Exemplos | /*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ VCM550IC º Autor ³ Andre Luis Almeida º Data ³ 06/10/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Impressao CUSTOMIZADA do VEICM550 º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function VCM550IC()
Local cT := ParamIXB[01] // Titulo
Local lOk := .f.
Local ni := 0
Local cDtVisit := ""
If SM0->M0_CODIGO == "09" // EMPRESA 09
cabec1 := " Cliente CPF/CNPJ Cidade-UF Fone E-mail Cadastro Segmento Vendedores"
EndIf
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
IncProc( ( "Impressão dos Clientes "+cT+"..." ) )
If lEndCli .or. lFroCli .or. lAgeCli .or. lConCli .or. lPerCli
@ nLin++ , 00 psay repl("-",220)
EndIf
For ni:=1 to Len(aClientes)
If aClientes[ni,nT] .and. ( aClientes[ni,9] >= cCEPIni .and. aClientes[ni,9] <= cCEPFin )
nTotCli++
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
@ nLin++ , 00 psay repl("-",220)
EndIf
cDtVisit := space(39)
DbSelectArea("VC1")
DbSetOrder(7)
DbSeek(xFilial("VC1")+ aClientes[ni,10] + "9999" ,.T.)
If !Bof() .and. ( VC1->VC1_CODCLI+VC1->VC1_LOJA # aClientes[ni,10] )
DbSelectArea("VC1")
DbSkip(-1)
EndIf
While !Bof() .and. VC1->VC1_FILIAL == xFilial("VC1") .and. ( VC1->VC1_CODCLI+VC1->VC1_LOJA == aClientes[ni,10] )
If Empty(cAgendas) .or. VC1->VC1_TIPAGE $ cAgendas
If !Empty(VC1->VC1_DATVIS)
cDtVisit := left(Transform(VC1->VC1_DATVIS,"@D"),6)+right(Transform(VC1->VC1_DATVIS,"@D"),2)
cDtVisit += " "+Transform(dDataBase-VC1->VC1_DATVIS,"@E 99999")
SA3->(DbSetOrder(1))
SA3->(MsSeek(xFilial("SA3")+VC1->VC1_CODVEN))
cDtVisit += " "+VC1->VC1_CODVEN+"-"+left(SA3->A3_NOME,17)
Exit
EndIf
EndIf
DbSelectArea("VC1")
DbSkip(-1)
EndDo
If SM0->M0_CODIGO == "09" // EMPRESA 09
cPrintVend := ""
If cVend == "Todos"
cPrintVend := "Vei:"+left(aClientes[ni,16],6)+" Pec:"+left(aClientes[ni,17],6)+" Srv:"+left(aClientes[ni,18],6)
ElseIf cVend == "Veiculos" .or. cVend == "Veículos"
cPrintVend := "Vei:"+left(aClientes[ni,16],28)
ElseIf cVend == "Pecas" .or. cVend == "Peças"
cPrintVend := "Pec:"+left(aClientes[ni,17],28)
ElseIf cVend == "Servicos" .or. cVend == "Serviços"
cPrintVend := "Srv:"+left(aClientes[ni,18],28)
EndIf
@ nLin++ , 00 psay IIf(aClientes[ni,11],"* "," ")+left(left(aClientes[ni,10],SA1->(TamSx3("A1_COD")[1]))+"-"+right(aClientes[ni,10],SA1->(TamSx3("A1_LOJA")[1]))+" "+aClientes[ni,4],40)+" "+aClientes[ni,3]+" "+left(aClientes[ni,5]+space(25),25)+" "+aClientes[ni,6]+" "+aClientes[ni,13]+" "+aClientes[ni,14]+" "+aClientes[ni,12]+" "+cPrintVend
Else
@ nLin++ , 00 psay IIf(aClientes[ni,11],"* "," ")+left(left(aClientes[ni,10],SA1->(TamSx3("A1_COD")[1]))+"-"+right(aClientes[ni,10],SA1->(TamSx3("A1_LOJA")[1]))+" "+aClientes[ni,4],40)+" "+aClientes[ni,3]+" "+left(aClientes[ni,5]+space(25),25)+" "+cDtVisit+" "+aClientes[ni,6]+" "+aClientes[ni,12]+" "+aClientes[ni,13]+" "+aClientes[ni,14]
EndIf
If lEndCli
@ nLin++ , 05 psay aClientes[ni,7]+" "+aClientes[ni,8]+" CEP: "+aClientes[ni,9]+Space(62)+"Grupo Economico "+aClientes[ni,15]
EndIf
If lAgeCli
FS_IMP_AGEND(aClientes[ni,10])
EndIf
FS_IMP_FROTA(aClientes[ni,10])
If lConCli
FS_IMP_CONTA(aClientes[ni,10])
EndIf
If lPerCli
FS_IMP_PERIO(aClientes[ni,10])
EndIf
If lEndCli .or. lFroCli .or. lAgeCli .or. lConCli .or. lPerCli
@ nLin++ , 00 psay repl("-",220)
EndIf
EndIf
Next
IncProc( ( "Concluindo Impressão dos Clientes "+cT+"..." ) )
nLin++
nLin++
nLin++
If nLin >= 50
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
nLin++
EndIf
@ nLin++ , 20 psay "**************** R E S U M O - T O T A L G E R A L ****************"
nLin++
If !Empty(Alltrim(cRegiao))
@ nLin++ , 27 psay " - Cidades da Região "+cRegiao+"..............................................:" + str(nTotCid,8)
Else
@ nLin++ , 27 psay " - Cidades.............."+"..............................................:" + str(nTotCid,8)
EndIf
@ nLin++ , 27 psay " - Cidades Selecionadas...............................................:" + str(len(aCidades),8)
@ nLin++ , 27 psay " - Clientes das Cidades Selecionadas..................................:" + str(len(aClientes),8)
@ nLin++ , 27 psay " - Clientes " + left(cT+repl(".",13),13)+".............................................:" + str(nTotCli,8)
@ nLin++ , 27 psay " - Clientes " + left(cT+" com Frota"+repl(".",23),23)+"...................................:" + Str(nTotFroC,8)
@ nLin++ , 27 psay " - Frota dos Clientes " + left(cT+repl(".",13),13)+"...................................:" + Str(nTotFroT,8)
If lFroCli .and. Len(aResumo) > 0
aSort(aResumo,1,,\{|x,y| x[2]+x[1] < y[2]+y[1] \})
For ni:=1 to Len(aResumo)
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
nLin++
EndIf
@ nLin++ , 32 psay aResumo[ni,1]+aResumo[ni,2]+" "+str(aResumo[ni,3],8)
Next
EndIf
Ms_Flush()
Set Printer to
Set Device to Screen
If aReturn[5] == 1
OurSpool( cNomeRel )
EndIf
Return()
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ FS_IMP_AGEND³ Autor ³ Andre Luis Almeida ³ Data ³ 07/10/15 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ Impressao da Agenda ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function FS_IMP_AGEND(cSeek)
Local lImpCab := .t.
Local cQAlAge := "SQLVC1"
cQuery := "SELECT VC1.VC1_DATVIS , VC1.VC1_TIPAGE , VC1.VC1_DATAGE , VC1.VC1_CODVEN , VC5.VC5_DTPAGE , SA3.A3_NOME "
cQuery += "FROM "+RetSqlName("VC1")+" VC1 , "+RetSqlName("VC5")+" VC5 , "+RetSqlName("SA3")+" SA3 "
cQuery += "WHERE VC1.VC1_FILIAL='"+xFilial("VC1")+"' AND VC1.VC1_CODCLI='"+left(cSeek,SA1->(TamSx3("A1_COD")[1]))+"' AND VC1.VC1_LOJA='"+right(cSeek,SA1->(TamSx3("A1_LOJA")[1]))+"' AND "
cQuery += "VC5.VC5_FILIAL='"+xFilial("VC5")+"' AND VC1.VC1_TIPAGE=VC5.VC5_TIPAGE AND "
cQuery += "SA3.A3_FILIAL='"+xFilial("SA3")+"' AND VC1.VC1_CODVEN=SA3.A3_COD AND "
cQuery += "VC1.D_E_L_E_T_=' ' AND VC5.D_E_L_E_T_=' ' AND SA3.D_E_L_E_T_=' ' "
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlAge , .F., .T. )
Do While !( cQAlAge )->( Eof() )
If Empty(( cQAlAge )->( VC1_DATVIS ))
If lImpCab
lImpCab := .f.
If nLin >= 60
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
EndIf
nLin++
@ nLin++,44 PSAY "Agenda: Tipo Dt.Visit Vendedor"
EndIf
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
nLin++
EndIf
@nLin++,52 PSAY ( cQAlAge )->( VC1_TIPAGE ) +" - "+ left(( cQAlAge )->( VC5_DTPAGE ),12)+" "+left(Transform(stod(( cQAlAge )->( VC1_DATAGE )),"@D"),6)+right(Transform(stod(( cQAlAge )->( VC1_DATAGE )),"@D"),2)+" "+( cQAlAge )->( VC1_CODVEN)+" - "+( cQAlAge )->( A3_NOME )
EndIf
( cQAlAge )->( DbSkip() )
EndDo
( cQAlAge )->( dbCloseArea() )
Return()
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ FS_IMP_FROTA³ Autor ³ Andre Luis Almeida ³ Data ³ 07/10/15 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ Impressao da Frota ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function FS_IMP_FROTA(cSeek)
Local nPos := 0
Local cQAlFro := "SQLVC3"
cQuery := "SELECT VC3.VC3_QTDFRO , VC3.VC3_CODMAR , VC3.VC3_MODVEI , VC3.VC3_FABMOD, VC3.VC3_DATATU FROM "+RetSqlName("VC3")+" VC3 "
cQuery += "WHERE VC3.VC3_FILIAL='"+xFilial("VC3")+"' AND VC3.VC3_CODCLI='"+substr(cSeek,1,6)+"' AND VC3.VC3_LOJA='"+substr(cSeek,7,2)+"' AND VC3.D_E_L_E_T_=' ' "
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlFro , .F., .T. )
If !( cQAlFro )->( Eof() )
If lFroCli
If nLin >= 60
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
EndIf
nLin++
@ nLin++,44 PSAY "Frota.: Qtd Marca/Modelo Veiculo Fabr/Mod. Dt.Atualiz"
EndIf
nFroCli := 0
Do While !( cQAlFro )->( Eof() )
If lFroCli
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
EndIf
@nLin++,52 PSAY Str(( cQAlFro )->( VC3_QTDFRO ),3)+" "+( cQAlFro )->( VC3_CODMAR )+" "+substr(( cQAlFro )->( VC3_MODVEI ),1,20)+" "+Posicione("VV2",1,xFilial("VV2")+( cQAlFro )->( VC3_CODMAR )+( cQAlFro )->( VC3_MODVEI ),"VV2_DESMOD")+" "+Transform(( cQAlFro )->( VC3_FABMOD ),"@R 9999/9999")+" "+DtoC(Stod(( cQAlFro )->( VC3_DATATU )))
nPos := 0
nPos := ascan(aResumo,\{|x| x[1]+x[2] == ( cQAlFro )->( VC3_CODMAR )+" "+substr(( cQAlFro )->( VC3_MODVEI ),1,20)+" "+VV2->VV2_DESMOD+" "+Transform(( cQAlFro )->( VC3_FABMOD ),"@R 9999/9999") \})
If nPos == 0
Aadd(aResumo,\{ ( cQAlFro )->( VC3_CODMAR )+" "+substr(( cQAlFro )->( VC3_MODVEI ),1,20)+" "+VV2->VV2_DESMOD+" " , Transform(( cQAlFro )->( VC3_FABMOD ),"@R 9999/9999") , ( cQAlFro )->( VC3_QTDFRO ) \} )
Else
aResumo[nPos,3] += ( cQAlFro )->( VC3_QTDFRO )
Endif
EndIf
nFroCli += ( cQAlFro )->( VC3_QTDFRO )
( cQAlFro )->( DbSkip() )
EndDo
nTotFroC++
nTotFroT += nFroCli
If lFroCli
@ nLin++,44 PSAY "Total.:" + Str(nFroCli,4)
EndIf
EndIf
( cQAlFro )->( dbCloseArea() )
Return()
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ FS_IMP_CONTA³ Autor ³ Andre Luis Almeida ³ Data ³ 07/10/15 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ Impressao das Pessoas de Contato (VC2) ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function FS_IMP_CONTA(cSeek)
Local cQAlCon := "SQLVC2"
Local cImpres := left("Pessoas de Contato:"+space(22),22)
cQuery := "SELECT VC2.VC2_NOMCON , VC2.VC2_CARCON , VC2.VC2_ASSUNT , VC2.VC2_DDDCEL , VC2.VC2_TELCEL , VC2.VC2_EMAILC FROM "+RetSqlName("VC2")+" VC2 "
cQuery += "WHERE VC2.VC2_FILIAL='"+xFilial("VC2")+"' AND VC2.VC2_CODCLI='"+left(cSeek,SA1->(TamSx3("A1_COD")[1]))+"' AND VC2.VC2_LOJA='"+right(cSeek,SA1->(TamSx3("A1_LOJA")[1]))+"' AND VC2.D_E_L_E_T_=' ' "
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlCon , .F., .T. )
If !( cQAlCon )->( Eof() )
Do While !( cQAlCon )->( Eof() )
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
EndIf
@nLin++,12 PSAY cImpres+( cQAlCon )->( VC2_NOMCON )+" - "+( cQAlCon )->( VC2_CARCON )+space(8)+" ( "+left(X3CBOXDESC("VC2_ASSUNT",( cQAlCon )->( VC2_ASSUNT ))+" ) "+space(30),30)+" "+left(Alltrim(( cQAlCon )->( VC2_DDDCEL ))+" "+( cQAlCon )->( VC2_TELCEL )+space(40),40)+( cQAlCon )->( VC2_EMAILC )
cImpres := space(22)
( cQAlCon )->( DbSkip() )
EndDo
EndIf
( cQAlCon )->( dbCloseArea() )
Return()
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ FS_IMP_PERIO³ Autor ³ Andre Luis Almeida ³ Data ³ 07/10/15 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ Periodicidade/Vendedores do cliente ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function FS_IMP_PERIO(cSeek)
Local cQAlPer := "SQLVCF"
Local cImpres := left("Periodicidade:"+space(18),18)
cQuery := "SELECT VCF.VCF_VENPEC , VCF.VCF_DIAPEP , VCF.VCF_VENVEI , VCF.VCF_DIAPER , VCF.VCF_VENSRV , VCF.VCF_DIAPES FROM "+RetSqlName("VCF")+" VCF "
cQuery += "WHERE VCF.VCF_FILIAL='"+xFilial("VCF")+"' AND VCF.VCF_CODCLI='"+left(cSeek,SA1->(TamSx3("A1_COD")[1]))+"' AND VCF.VCF_LOJCLI='"+right(cSeek,SA1->(TamSx3("A1_LOJA")[1]))+"' AND VCF.D_E_L_E_T_=' ' "
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cQAlPer , .F., .T. )
If !( cQAlPer )->( Eof() )
If nLin >= 62
nLin := cabec(ctitulo,cabec1,cabec2,cnomprog,ctamanho,nCaracter) + 1
EndIf
If cVend == "Todos" .or. cVend == "Pecas" .or. cVend == "Peças" // Todos ou Pecas
If ( cQAlPer )->( VCF_DIAPEP ) > 0 .or. !Empty(( cQAlPer )->( VCF_VENPEC ))
@nLin++,12 PSAY cImpres+left("Peças"+space(10),10)+" "+right(str(( cQAlPer )->( VCF_DIAPEP )),3)+" dia(s) Vendedor: "+( cQAlPer )->( VCF_VENPEC )+" - "+left(FM_SQL("SELECT A3_NOME FROM "+RetSqlName("SA3")+" WHERE A3_FILIAL='"+xFilial("SA3")+"' AND A3_COD='"+( cQAlPer )->( VCF_VENPEC )+"' AND D_E_L_E_T_=' '"),20)
cImpres := space(18)
EndIf
EndIf
If cVend == "Todos" .or. cVend == "Veiculos" .or. cVend == "Veículos" // Todos ou Veiculos
If ( cQAlPer )->( VCF_DIAPER ) > 0 .or. !Empty(( cQAlPer )->( VCF_VENVEI ))
@nLin++,12 PSAY cImpres+left("Veículos"+space(10),10)+" "+right(str(( cQAlPer )->( VCF_DIAPER )),3)+" dia(s) Vendedor: "+( cQAlPer )->( VCF_VENVEI )+" - "+left(FM_SQL("SELECT A3_NOME FROM "+RetSqlName("SA3")+" WHERE A3_FILIAL='"+xFilial("SA3")+"' AND A3_COD='"+( cQAlPer )->( VCF_VENVEI )+"' AND D_E_L_E_T_=' '"),20)
cImpres := space(18)
EndIf
EndIf
If cVend == "Todos" .or. cVend == "Servicos" .or. cVend == "Serviços" // Todos ou Oficina
If ( cQAlPer )->( VCF_DIAPES ) > 0 .or. !Empty(( cQAlPer )->( VCF_VENSRV ))
@nLin++,12 PSAY cImpres+left("Serviços"+space(10),10)+" "+right(str(( cQAlPer )->( VCF_DIAPES )),3)+" dia(s) Vendedor: "+( cQAlPer )->( VCF_VENSRV )+" - "+left(FM_SQL("SELECT A3_NOME FROM "+RetSqlName("SA3")+" WHERE A3_FILIAL='"+xFilial("SA3")+"' AND A3_COD='"+( cQAlPer )->( VCF_VENSRV )+"' AND D_E_L_E_T_=' '"),20)
cImpres := space(18)
EndIf
EndIf
EndIf
( cQAlPer )->( dbCloseArea() )
Return() |
|---|
