Já tentou importar um arquivo texto para a rotina de orçamento? É uma tristeza só, a rotina de orçamento utiliza uma tabela temporária chamada TMP1 e por conta disso temos algumas pequenas dificuldades em suas validações. Mas com um certo jeitinho, conseguimos driblar e resolver os problemas do dia a dia com esta rotina. Hoje,…
Leia mais
BKPREST – Rotina de Cópia e Restauração de arquivos 1.2 – P11.X832 DownloadsBaixar agora!
Outro dia me perguntaram se era possível gerar um arquivo PDF no Protheus, mas sem que abri-se uma tela, procura daqui, procura dali, encontrei a função FWMSPrinter, é o mesmo componente utilizado na geração da Danfe. Para mais detalhes consulte http://tdn.totvs.com/display/public/mp/FWMsPrinter Abaixo tem um bom exemplo funcional para mostrar o seu funcionamento
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#INCLUDE "RPTDEF.CH" #INCLUDE "FWPrintSetup.ch" #INCLUDE "protheus.ch" User Function fPrintPDF() Local lAdjustToLegacy := .F. Local lDisableSetup := .T. Local oPrinter Local cLocal := "c:\siga\" Local cCodINt25 := "34190184239878442204400130920002152710000053475" Local cCodEAN := "123456789012" Local cFilePrint := "" oPrinter := FWMSPrinter():New('orcamento_000000.PD_', IMP_PDF, lAdjustToLegacy,cLocal, lDisableSetup, , , , , , .F., ) oPrinter:FWMSBAR("INT25" /*cTypeBar*/,1/*nRow*/ ,1/*nCol*/, cCodINt25/*cCode*/,oPrinter/*oPrint*/,.T./*lCheck*/,/*Color*/,.T./*lHorz*/,0.02/*nWidth*/,0.8/*nHeigth*/,.T./*lBanner*/,"Arial"/*cFont*/,NIL/*cMode*/,.F./*lPrint*/,2/*nPFWidth*/,2/*nPFHeigth*/,.F./*lCmtr2Pix*/) oPrinter:FWMSBAR("EAN13" /*cTypeBar*/,5/*nRow*/ ,1/*nCol*/ ,cCodEAN /*cCode*/,oPrinter/*oPrint*/,/*lCheck*/,/*Color*/,/*lHorz*/, /*nWidth*/,/*nHeigth*/,/*lBanner*/,/*cFont*/,/*cMode*/,.F./*lPrint*/,/*nPFWidth*/,/*nPFHeigth*/,/*lCmtr2Pix*/) oPrinter:Box( 130, 10, 500, 700, "-4") oPrinter:Say(210,10,"Teste para Code128C") cFilePrint := cLocal+"orcamento_000000.PD_" File2Printer( cFilePrint, "PDF" ) oPrinter:cPathPDF:= cLocal oPrinter:Preview() Return |
No exemplo, mostro de forma simples a importação de um arquivo texto com duas colunas Exemplo formato do arquivo: linha1coluna1;linha1coluna2; linha2coluna1;linha2coluna2; linha3coluna1;linha3coluna2; linha4coluna1;linha4coluna2; linha5coluna1;linha5coluna2;
Apresenta uma janela para seleção de arquivos da estação de trabalho em uso pelo SmartClient. Na minha opinião ficou ótimo a tela, finalmente evoluiram! Antes: Depois: Nome Tipo Descrição cMascara Carácter Indica a máscara de arquivos, ex: ret := TFileDialog(“All files (*) | All Text files (*.txt)”, … cTitulo Carácter Indica o título da janela.…
Leia mais
Você conhece a função GetFuncArray() ? Retorna um ou mais arrays contendo os dados das funções contidas no RPO – Repositório Portável de Objetos, a partir de uma máscara.
Hoje ao atualizar o meu ambiente com a última versão do Smartclient, descobrir que o uso via compartilhamento de rede não é mais homologado, devido a um problema conhecido relativo ao arquivo QtWebEngineProcess.
Na atualização do Protheus, apareceu uma nova opção no Wizard de configuração do TSS
As empresas estão obrigadas a informar a carga tributária nos cupons e notas fiscais, e estão sujeitas a auto de infração aquelas que não prestarem a informação ao consumidor, conforme Lei 12.741/2012.
Amigos me perguntam se é possível criar um browse editável, sem a necessidade de criar uma tela para abrir e alterar o conteúdo de um campo.
Dias atrás um amigo perguntou se era possível fazer importação de um arquivo texto no qual se era possível importar diversas linhas para a rotina movimentação interna modelo 2 (Movimentação Múltipla).
Segue algumas sugestões de Ferramentas para usar no seu dia a dia Base de conhecimento Base de conhecimento é um pequeno software para armazenar seus códigos fontes em um único local, de forma simples e descomplicada Continue lendo… CamStudio CamStudio é capaz de gravar todas as atividades de tela e áudio em seu computador e…
Leia mais