Monta tela generica para processo batch FormBatch( cTitle, aSays, aButtons, lOk, bValid ) cTitle = Titulo da janela aSays = Array com Says aButtons = Array com bottoes aButtons[i,1] = Tipo de botao aButtons[i,2] = Tipo de enabled aButtons[i,3] = bAction bValid = Bloco de validacao do Form nAltura= Altura do Form em Pixel (Default…
Leia mais
Algumas sugestões de grid no Protheus, em pesquisa no TDN, encontrei vários componentes, mas na minha opinião, abaixo estão 5 tipos diferentes e suas particularidades.
Muitos ainda tentam se acostumar com o layout do Protheus 11, com aquelas telas praticamente sem imagens, é claro que para nós desenvolvedores ficou mais fácil desenhá-las, mas outro dia, um amigo me perguntou se ainda era possível desenvolver telas com layouts diferente do padrão, assim como era nas versões anteriores. Sim, respondi a ele,…
Leia mais
Para mim o tReport é um dos componentes mais completos para impressão, já que ele permite imprimir em diversos formatos tais como, PDF, Planilha, Open Office, HTML e ainda permite enviar a impressão para disco, impressora e e-mail.
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 |
A função MSCBPrinter, permite realizar as configurações da impressora, que darão ao programador a habilidade de determinar as características de impressão, definidas pelos parâmetros abaixo: Sintaxe: MSCBPrinter Configura Impressora ( [ cModelPrt ] [ cPorta ] [ nDensidade ] [ nTamanho ] [ lSrv ] [ nPorta ] [ cServer ] [ cEnv ]…
Leia mais
No exemplo abaixo, um simples exemplo que como gerar etiquetas, neste exemplo uso o componente TmsPrinter().
A propriedade para criar uma linha abaixo de cada registro é ThinLine() Use oReport:ThinLine()
Usando NULLIF e COALESCE Algumas vezes podemos nos deparar com a seguinte mensagem “Divide by zero error encountered” numa consulta SQL onde por exemplo temos uma divisão Num caso como esse se o conteúdo do campo D1_QUANT for zero, ocorrerá um erro pois não se divida algo por zero, para evitar um erro indesejável, existe…
Leia mais
O objetivo do Embedded SQL é facilitar a escrita e leitura de queries. Para isso, foi definida uma sintaxe para que se possa escrever a query diretamente no código AdvPL, sem a necessidade de ficar concatenando pedaços de string para compor a string final.
Formatar uma string para ser utilizada no clausula IN do comando SELECT em ambiente SQL. Parametros: cString -> String a ser formatada cSep -> Separador das strings Retorno: cRet -> String formatada, conforme exemplo
|
1 |
FormatIn("BA /AB-/CA-/XX+", "/")= "('BA','AB-','CA-','XX+')" |
Exemplo:
|
1 2 3 4 5 6 7 |
cNFs := "000001234/000001445/000001124" cQuery := " SELECT * FROM " + RetSqlName("CB6") + " " + CRLF cQuery += " WHERE D_E_L_E_T_='' " + CRLF cQuery += " AND CB6_NOTA IN " + FormatIn(cNFs,"/") + " " + CRLF cQuery += " AND CB6_SERIE= '" + cSeries + "' " + CRLF cQuery += " ORDER BY CB6_VOLUME " |
Após a abertura do cursor, no alias especificado, a função GetLastQuery() retorna um array, com 5 elementos, onde estão disponíveis as seguintes informações sobre a query executada. [1] cAlias – Alias usado para abrir o cursor. [2] cQuery – Query executada. [3] aCampos – Array de campos com critério de conversão especificados. [4] lNoParser –…
Leia mais