Function VEICC500(cPCodCli,cPLojCli,dPDtAgeI,dPDtAgeF)
Local nTam := 0
Local aObjects := {} , aInfo := {}, aPos := {}
Local aSizeHalf := MsAdvSize(.t.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR)
Local OXverme
Local OXverde
Local OXazull
Local OXcinza
Local oXLbNO
Local oXLbOK
Local oXLbCa
Local oXLbTIK
Local lCEVOUT := ( VAI->(FieldPos("VAI_CEVOUT")) <> 0 )
Private aBotVCC500 := {}
Private overde := LoadBitmap( GetResources(), "BR_VERDE" )
Private overme := LoadBitmap( GetResources(), "BR_VERMELHO" )
Private oazull := LoadBitmap( GetResources(), "BR_AZUL" )
Private ocinza := LoadBitmap( GetResources(), "BR_CINZA" )
Private oLbNO := LoadBitmap( GetResources(), "LBNO" )
Private oLbOK := LoadBitmap( GetResources(), "LBOK" )
Private oLbCa := LoadBitmap( GetResources(), "AVGOIC1" )
Private oLbTIK := LoadBitmap( GetResources(), "LBTIK" )
Private aVetor := {}
Private cTipAge := " "
Private cCodVen := space(6)
Private cCodCli := space(6)
Private cLojCli := " "
Private cFiltro := ""
Private cNomAge := space(100)
Private cNomVen := space(100)
Private cNomCli := space(100)
Private aContat := {STR0013,STR0021+" - "STR0008,STR0021" - "STR0007,STR0022" - "STR0016,STR0022" - "+STR0017}
Private cContat := STR0013
Private aPesSat := {"","0="+STR0060,"1="+STR0061,"2="+STR0062,"3="+STR0064}
Private cPesSat := ""
Private aInsati := {"","0="+STR0084,"1="+STR0063}
Private cInsati := ""
Private aMotEnc := {"",STR0087,STR0088}
Private cMotEnc := ""
Private cObjetiv:= ""
Private cObserv := ""
Private cVeic := ""
Private cMarca := ""
Private cModelo := ""
Private nQtd := 0
Private dData := ctod("")
Private cPrePag := ""
Private dDtAgeI := dDataBase
Private dDtAgeF := ctod("01/"IIf(month(dDatabase)<12,strzero(month(dDatabase)+1,2)"/"+substr(strzero(year(dDatabase),4),3,2),"01/"+substr(strzero(year(dDatabase)+1,4),3,2)))-1
Private dDtVisI := ctod("")
Private dDtVisF := dDtAgeF
Private lCheck := .f.
Private lTodos := .t.
Private lDtVis := .t.
Private l2Via := .t.
Private cTotal := "0"
Private cTot1 := "0"
Private cTot2 := "0"
Private cverd := "0"
Private cverm := "0"
Private cazul := "0"
Private ccinz := "0"
Private lAgend := .t.
Private lMOTPNR := ( VC1->(FieldPos("VC1_MOTPNR")) > 0 )
Private lMotEnc := ( VC1->(FieldPos("VC1_MOTIVO")) > 0 )
Default cPCodCli := cCodCli
Default cPLojCli := cLojCli
Default dPDtAgeI := ctod("")
Default dPDtAgeF := ctod("")
///////////////////////////////////////////////////////////////////////
// Carrega VETOR com todos os Motivos de Encerramento do Contato CEV //
///////////////////////////////////////////////////////////////////////
DbSelectArea("VS0")
DbSetOrder(1)
DbSeek(xFilial("VS0")+"000010")
While !Eof() .and. VS0->VS0_FILIAL == xFilial("VS0") .and. VS0->VS0_TIPASS == "000010"
aadd(aMotEnc,"- "VS0->VS0_CODMOT": "+left(VS0->VS0_DESMOT,25)+IIf(len(VS0->VS0_DESMOT)>22,"...",""))
DbSelectArea("VS0")
DbSkip()
EndDo
///////////////////////////////////////////////////////////////////////
DbSelectArea("VAI")
DbSetOrder(4)
DbSeek(xFilial("VAI")+__cUserID)
cCodCli := cPCodCli
cLojCli := cPLojCli
If !Empty(dPDtAgeI)
dDtAgeI := dPDtAgeI
dDtAgeF := dPDtAgeF
EndIf
If Empty(cCodCli)
cCodVen := VAI->VAI_CODVEN
If !FS_VAL_VCC500("VD")
cCodVen := space(6)
EndIf
Else
If lCEVOUT .and. VAI->VAI_CEVOUT<>"1"
cCodVen := VAI->VAI_CODVEN
EndIf
lAgend := .f.
If Empty(dPDtAgeI)
dDtAgeI := dDtVisI
EndIf
FS_VAL_VCC500("CL")
EndIf //////////////////////////////
/// Carregar OPCOES/BOTOES ///
//////////////////////////////
AADD(aBotVCC500, {"PENDENTE" ,{|| IIf((aVetornAt,22 <> 0),(FS_PESQSAT(aVetornAt,2,aVetornAt,21,aVetornAt,20,aVetornAt,10,aVetornAt,4),FS_FILTRAR(1),FS_OBSVC500()), MsgStop(STR0077,STR0040)) }, STR0058 } ) // Pesq.Satisfacao / Pesquisa de Satisfacao nao existente! / Atencao
If lMOTPNR
AADD(aBotVCC500, {"afastamento" ,{|| (FS_MOTPNR(),FS_FILTRAR(1),FS_OBSVC500()) }, STR0065 } ) // Registra Pesq. nao realizada
EndIf
AADD(aBotVCC500, {"BMPVISUAL" ,{|| VEICR501V(substr(aVetornAt,7,1,6),substr(aVetornAt,7,8,2),aVetornAt,2) }, STR0020 } )
AADD(aBotVCC500, {"watch" ,{|| IIf((aVetornAt,21 <> "C"),FS_VERORIG(oLbTexto:nAt),MsgStop(STR0078,STR0040)) }, STR0053 } ) // Impossível visualizar a origem! / Atencao
AADD(aBotVCC500, {"alt_cad" ,{|| (FS_REGABO(aVetornAt,10),FS_FILTRAR(1),FS_OBSVC500()) }, STR0039 } )
AADD(aBotVCC500, {"critica" ,{|| VEICC590(substr(aVetornAt,7,1,6),substr(aVetornAt,7,8,2)) }, STR0042 } )
AADD(aBotVCC500, {"BMPGROUP" ,{|| FS_CADCLI(aVetornAt,7) }, STR0043 } )
AADD(aBotVCC500, {"print02" ,{|| FS_IMPRIMIR() }, STR0027 } )
AADD(aBotVCC500, {"textjustify" ,{|| IIf(l2Via,FS_2VIA(oLbTexto:nAt),.t.) }, STR0044 } )
If ( VV1->(FieldPos("VV1_BLQPRO")) > 0 )
AADD(aBotVCC500, {"BPMSDOCE" ,{|| FS_BLQVEI(oLbTexto:nAt) }, STR0074 } ) // Bloqueia Prospeccao do Veiculo
EndIf
If FindFunction("VEICM660")
AADD(aBotVCC500, {"cargaseq" ,{|| VEICM660() }, STR0090 } ) // Roteiro de Visitas
EndIf
////////////////////////////// aInfo := { aSizeHalf[ 1 ], aSizeHalf[ 2 ],aSizeHalf[ 3 ] ,aSizeHalf[ 4 ], 3, 3 } // Tamanho total da tela
aAdd( aObjects, { 0 , 55 , .T. , .F. } ) // Topo
aAdd( aObjects, { 0 , 0 , .T. , .T. } ) // ListBox
aAdd( aObjects, { 0 , 110 , .T. , .F. } ) // Rodape
aPos := MsObjSize( aInfo, aObjects ) If ExistBlock("VC500AFI")
ExecBlock("VC500AFI",.f.,.f.)
EndIf FS_FILTRAR(0) DbSelectArea("VC1")
DEFINE MSDIALOG oDlgContCEV TITLE STR0001 From aSizeHalf7,0 TO aSizeHalf6,aSizeHalf5 OF oMainWnd PIXEL STYLE DS_MODALFRAME STATUS //Movimentos / Atendimentos do Veiculo
oDlgContCEV:lEscClose := .F. nTam := Int((aPos1,4/3)) @ aPos1,1+000,aPos1,2+000 TO aPos2,1-003,aPos1,4 LABEL "" OF oDlgContCEV PIXEL
@ aPos1,1005,aPos1,2+004(nTam*0) SAY STR0010 SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1004,aPos1,2+033(nTam*0) MSGET oTipAge VAR cTipAge F3 "VC5" VALID FS_VAL_VCC500("TP") PICTURE X3Picture("VC1_TIPAGE") SIZE 20,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1005,aPos1,2+057(nTam*0) SAY cNomAge SIZE 100,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1017,aPos1,2+004(nTam*0) SAY STR0011 SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1016,aPos1,2+033(nTam*0) MSGET oCodVen VAR cCodVen F3 "SA3" VALID FS_VAL_VCC500("VD") PICTURE X3Picture("A3_COD") SIZE 30,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE WHEN ( !lCEVOUT .or. VAI->VAI_CEVOUT=="1" )
@ aPos1,1017,aPos1,2+069(nTam*0) SAY cNomVen SIZE 100,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1029,aPos1,2+004(nTam*0) SAY STR0012 SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1028,aPos1,2+033(nTam*0) MSGET oCodCli VAR cCodCli F3 "SA1" VALID FS_VAL_VCC500("CL") PICTURE X3Picture("A1_COD") SIZE 30,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1028,aPos1,2+068(nTam*0) MSGET oLojCli VAR cLojCli VALID FS_VAL_VCC500("CL") PICTURE X3Picture("A1_LOJA") SIZE 10,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1029,aPos1,2+085(nTam*0) SAY cNomCli SIZE 095,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1041,aPos1,2+004(nTam*0) SAY STR0015 SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1040,aPos1,2+033(nTam*0) MSCOMBOBOX oContat VAR cContat ITEMS aContat VALID FS_CONTATOS() SIZE 110,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE @ aPos1,1005,aPos1,2+001(nTam*1) SAY (STR0003+":") SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1004,aPos1,2+030(nTam*1) MSGET oDtAgeI VAR dDtAgeI VALID FS_CONTATOS() PICTURE "@D" SIZE 40,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1005,aPos1,2+073(nTam*1) SAY STR0024 SIZE 20,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1004,aPos1,2+084(nTam*1) MSGET oDtAgeF VAR dDtAgeF VALID(dDtAgeF>=dDtAgeI .and. FS_CONTATOS()) PICTURE "@D" SIZE 40,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1017,aPos1,2+001(nTam*1) SAY (STR0023+":") SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1016,aPos1,2+030(nTam*1) MSGET oDtVisI VAR dDtVisI PICTURE "@D" SIZE 40,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE WHEN lDtVis
@ aPos1,1017,aPos1,2+073(nTam*1) SAY STR0024 SIZE 20,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1016,aPos1,2+084(nTam*1) MSGET oDtVisF VAR dDtVisF VALID(dDtVisF>=dDtVisI) PICTURE "@D" SIZE 40,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE WHEN lDtVis
@ aPos1,1028,aPos1,2+001(nTam*1) CHECKBOX oCheck VAR lCheck PROMPT STR0025 OF oDlgContCEV SIZE 180,08 PIXEL COLOR CLR_BLUE WHEN lTodos
@ aPos1,1041,aPos1,2+001(nTam*1) SAY (STR0058+":") SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1040,aPos1,2+045(nTam*1) MSCOMBOBOX oPesSat VAR cPesSat ITEMS aPesSat SIZE 110,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE @ aPos1,1005,aPos1,2+001(nTam*2) SAY (STR0085+":") SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1004,aPos1,2+038(nTam*2) MSCOMBOBOX oInsati VAR cInsati ITEMS aInsati SIZE 115,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1017,aPos1,2+001(nTam*2) SAY (STR0086+":") SIZE 45,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos1,1016,aPos1,2+038(nTam*2) MSCOMBOBOX oMotEnc VAR cMotEnc ITEMS aMotEnc SIZE 115,08 OF oDlgContCEV PIXEL COLOR CLR_BLUE WHEN lMotEnc @ aPos1,1+040,aPos1,4-060 BUTTON oFiltrar PROMPT STR0009 OF oDlgContCEV SIZE 55,10 PIXEL ACTION (FS_FILTRAR(1),FS_OBSVC500()) @ aPos2,1+000,aPos2,2+000 LISTBOX oLbTexto FIELDS HEADER "",; //"Status" 1
"",; //"Pesq.Satisfacao" 22
STR0002,; //"Tp Agenda" 2
STR0003,; //"Dt Agenda" 3
STR0023,; //"Dt Visita" 4
STR0004,; //"Vendedor" 5 6
STR0006,; //"Cliente" 7 8
STR0045,; //"Fone"
STR0014,; //"Cidade-UF"
STR0028,; //"Tipo de Abordagem"
STR0029 ; //"Tipo de Contato"
COLSIZES 10,10,18,30,30,65,110,105,100,80,80 SIZE aPos2,4-3,aPos2,3-aPos2,1 OF oDlgContCEV PIXEL ON CHANGE FS_OBSVC500() oLbTexto:SetArray(aVetor)
oLbTexto:bLine := { || {IIf(aVetornAt,1=="verd",overde,IIf(aVetornAt,1=="verm",overme,IIf(aVetornAt,1=="azul",oazull,ocinza))),;
IIf(aVetornAt,22==1,oLbOK,IIf(aVetornAt,22==2,oLbTIK,IIf(aVetornAt,22==3,oLbCa,oLbNO))) ,;
aVetornAt,2 ,;
aVetornAt,3 ,;
aVetornAt,4 ,;
aVetornAt,5+" "+left(aVetornAt,6,15) ,;
aVetornAt,7+" "+left(aVetornAt,8,25) ,;
aVetornAt,19 ,;
aVetornAt,9 ,;
aVetornAt,17 ,;
aVetornAt,18 }} @ aPos3,1-002,aPos3,2+000 TO aPos3,1+060,(aPos3,4/2)-2 LABEL STR0081 OF oDlgContCEV PIXEL // Objetivo
@ aPos3,1+005,aPos3,2+001 GET oCEVObjetiv VAR cObjetiv OF oDlgContCEV MEMO SIZE (aPos3,4/2)-7,054 PIXEL READONLY MEMO
@ aPos3,1-002,(aPos3,4/2)+000 TO aPos3,1+060,aPos3,4 LABEL STR0082 OF oDlgContCEV PIXEL // Ocorrencia
@ aPos3,1+005,(aPos3,4/2)+001 GET oCEVObserv VAR cObserv OF oDlgContCEV MEMO SIZE (aPos3,4/2)-2,054 PIXEL READONLY MEMO nTam := Int((aPos3,4/11)) @ aPos3,1060,aPos3,2(nTam*0)000 TO aPos3,1+084,aPos3,2((nTam*9)-2) LABEL STR0030 OF oDlgContCEV PIXEL
@ aPos3,1072,aPos3,2(nTam*0)+005 MSGET oCEVVeic VAR cVeic PICTURE "@!" SIZE nTam*1,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK When .f.
@ aPos3,1065,aPos3,2(nTam*1)+005 SAY STR0031 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1072,aPos3,2(nTam*1)+005 MSGET oCEVMarca VAR cMarca PICTURE "@!" SIZE nTam*1,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK When .f.
@ aPos3,1065,aPos3,2(nTam*2)+005 SAY STR0032 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1072,aPos3,2(nTam*2)+005 MSGET oCEVModelo VAR cModelo PICTURE "@!" SIZE nTam*3,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK when .f.
@ aPos3,1065,aPos3,2(nTam*5)+005 SAY STR0033 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1072,aPos3,2(nTam*5)+005 MSGET oCEVQtd VAR nQtd PICTURE "999" SIZE nTam,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK when .f.
@ aPos3,1065,aPos3,2(nTam*6)+005 SAY STR0034 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1072,aPos3,2(nTam*6)+005 MSGET oCEVData VAR dData PICTURE "@D" SIZE nTam,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK when .f.
@ aPos3,1065,aPos3,2(nTam*7)+005 SAY STR0035 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1072,aPos3,2(nTam*7)+005 MSGET oCEVPrePag VAR cPrePag PICTURE "@!" SIZE nTam*1.85,08 OF oDlgContCEV PIXEL COLOR CLR_BLACK when .f. @ aPos3,1084,aPos3,2(nTam*0)000 TO aPos3,1+112,aPos3,2(nTam-2) LABEL STR0015 OF oDlgContCEV PIXEL
@ aPos3,1095,aPos3,2(nTam*0)+002 MSGET oTotal VAR cTotal SIZE (nTam-05),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f. @ aPos3,1084,aPos3,2(nTam*1)000 TO aPos3,1+112,aPos3,2((nTam*5)-2) LABEL STR0021 OF oDlgContCEV PIXEL
@ aPos3,1095,aPos3,2(nTam*1)+002 MSGET oTot1 VAR cTot1 SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f.
@ aPos3,1090,aPos3,2(nTam*2)+000 BITMAP OXverde RESOURCE "BR_verde" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1090,aPos3,2(nTam*2)+010 SAY STR0008 SIZE 80,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1089,aPos3,2(nTam*4)+000 MSGET overd VAR cverd SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f.
@ aPos3,1101,aPos3,2(nTam*2)+000 BITMAP OXverme RESOURCE "BR_vermelho" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1101,aPos3,2(nTam*2)+010 SAY STR0007 SIZE 80,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1100,aPos3,2(nTam*4)+000 MSGET overm VAR cverm SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f. @ aPos3,1084,aPos3,2(nTam*5)000 TO aPos3,1+112,aPos3,2((nTam*9)-2) LABEL STR0022 OF oDlgContCEV PIXEL
@ aPos3,1095,aPos3,2(nTam*5)+002 MSGET oTot2 VAR cTot2 SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f.
@ aPos3,1090,aPos3,2(nTam*6)+000 BITMAP OXazull RESOURCE "BR_azul" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1090,aPos3,2(nTam*6)+010 SAY STR0016 SIZE 80,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1089,aPos3,2(nTam*8)+000 MSGET oazul VAR cazul SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f.
@ aPos3,1101,aPos3,2(nTam*6)+000 BITMAP OXcinza RESOURCE "BR_cinza" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1101,aPos3,2(nTam*6)+010 SAY STR0017 SIZE 80,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1100,aPos3,2(nTam*8)+000 MSGET ocinz VAR ccinz SIZE (nTam-03),08 OF oDlgContCEV PIXEL COLOR CLR_BLUE when .f. @ aPos3,1060,aPos3,2(nTam*9)+000 TO aPos3,1+112,aPos3,4 LABEL STR0058 OF oDlgContCEV PIXEL
@ aPos3,1070,aPos3,2(nTam*9)+002 BITMAP oXLbNO RESOURCE "LbNO" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1071,aPos3,2(nTam*9)+010 SAY STR0060 SIZE 120,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1080,aPos3,2(nTam*9)+002 BITMAP oXLbOK RESOURCE "LbOK" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1081,aPos3,2(nTam*9)+010 SAY STR0061 SIZE 120,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1090,aPos3,2(nTam*9)+002 BITMAP oXLbCa RESOURCE "AVGOIC1" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1091,aPos3,2(nTam*9)+010 SAY STR0064 SIZE 120,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE
@ aPos3,1100,aPos3,2(nTam*9)+002 BITMAP oXLbTIK RESOURCE "LbTIK" OF oDlgContCEV PIXEL NOBORDER SIZE 10,10 when .f.
@ aPos3,1101,aPos3,2(nTam*9)+010 SAY STR0062 SIZE 80,10 OF oDlgContCEV PIXEL COLOR CLR_BLUE ACTIVATE MSDIALOG oDlgContCEV ON INIT (EnchoiceBar(oDlgContCEV,{|| oDlgContCEV:End() }, {|| oDlgContCEV:End() },,aBotVCC500),) Return | 