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() |
|---|
