Exemplos | /* ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±± ±±ºPrograma ³ VC500IMP º Autor ³ Andre Luis Almeida º Data ³ 06/10/15 º±± ±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±± ±±ºDescricao ³ Impressao CUSTOMIZADA do VEICC500 º±± ±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±± ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß */ User Function VC500IMP() Local aImpr := ParamIXB[01] Local nTp := ParamIXB[02] Local nLinha := ParamIXB[03] Local cAux := "" Local ni := nLinha Local nLin := 60 If nTp == 1 // Selecionado nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) nLin++ @ nLin++ , 00 psay "T DtAgenda DtVisita Cliente Cidade-UF " @ nLin++ , 00 psay aImpr[ni,2]+" "+left(Transform(aImpr[ni,3],"@D"),6)+right(Transform(aImpr[ni,3],"@D"),2)+" "+left(Transform(aImpr[ni,4],"@D"),6)+right(Transform(aImpr[ni,4],"@D"),2)+" "+aImpr[ni,7]+" "+aImpr[ni,8]+" "+left(aImpr[ni,9]+space(19),19)+" "+left(aImpr[ni,14]+space(18),18)+" "+left(aImpr[ni,12]+space(14),14)+" "+left(aImpr[ni,13]+space(14),14) cAux := FM_SQL("SELECT A1_CGC FROM "+RetSqlName("SA1")+" WHERE A1_FILIAL='"+xFilial("SA1")+"' AND A1_COD='"+left(aImpr[ni,7],6)+"' AND A1_LOJA='"+right(aImpr[ni,7],2)+"' AND D_E_L_E_T_=' '") @ nLin++ , 20 psay "CPF/CNPJ: " + left(Transform(cAux,IIf(Len(Alltrim(cAux))>12,"@R 99.999.999/9999-99","@R 999.999.999-99"))+space(18),18) nLin++ @ nLin++ , 00 psay "Vendedor: "+aImpr[ni,5]+" - "+aImpr[ni,6] If len(cObjetiv) > 0 @ nLin++ , 00 psay repl("_",132) nLin++ @ nLin++ , 00 psay "*** "+"Objetivo"+" ***" // Objetivo nLin++ For ni := 1 to len(cObjetiv) step 132 If nLin >= 58 nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1 EndIf @ nLin++ , 00 psay substr(cObjetiv,ni,132) Next EndIf If len(cObserv) > 0 @ nLin++ , 00 psay repl("_",132) nLin++ @ nLin++ , 00 psay "*** "+"Ocorrência"+" ***" // Ocorrencia nLin++ For ni := 1 to len(cObserv) step 132 If nLin >= 58 nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1 EndIf @ nLin++ , 00 psay substr(cObserv,ni,132) Next EndIf If !Empty(aInterC[1,1]+aInterC[1,2]+aInterC[1,3]) @ nLin++ , 00 psay repl("_",132) nLin++ @ nLin++ , 00 psay "*** "+"Oportunidade de Negócios - Interesses do Cliente"+" ***" // Oportunidade de Negocios nLin++ For ni := 1 to len(aInterC) If nLin >= 58 nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1 EndIf @ nLin++ , 00 psay aInterC[ni,1]+" "+aInterC[ni,2]+" "+aInterC[ni,3]+Transform(aInterC[ni,4],"@E 9999")+" "+Transform(aInterC[ni,5],"@D") Next EndIf ElseIf nTp == 2 // Relacionados cTamanho:= "G" // P/M/G Limite := 220 cabec1 := cFiltro cabec2 := "T DtAgenda DtVisita Vendedor Cliente Cidade-UF " Asort(aImpr,1,,\{|x,y| x[5]+Dtos(x[3])+Dtos(x[4])+x[2]+x[7] > y[5]+Dtos(y[3])+Dtos(y[4])+y[2]+y[7]\}) For ni:=1 to Len(aImpr) If nLin >= 58 nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1 EndIf @ nLin++ , 00 psay aImpr[ni,2]+" "+; left(Transform(aImpr[ni,3],"@D"),6)+right(Transform(aImpr[ni,3],"@D"),2)+" "+; left(Transform(aImpr[ni,4],"@D"),6)+right(Transform(aImpr[ni,4],"@D"),2)+" "+; left(aImpr[ni,5]+"-"+aImpr[ni,6]+space(25),25)+" "+; left(aImpr[ni,7]+" "+aImpr[ni,8]+space(50),50)+" "+left(aImpr[ni,9]+space(30),30)+" "+; left(aImpr[ni,14]+space(20),20)+" "+left(aImpr[ni,12]+space(20),20)+" "+left(aImpr[ni,13]+space(20),20) Next EndIf Ms_Flush() Set Printer to Set Device to Screen If aReturn[5] == 1 OurSpool( cNomeRel ) EndIf Return() |
---|