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 |