Eventos de chamada do Ponto de Entrada | Function
FS_AGENDA (cTpACEV,dDatCEV,cVenCEV,cCliCEV,cLojCEV,cObsCEV,cOriCEV,cEmiFic,cObjetiv)
Local lObjetivo := ( VC1->(FieldPos("VC1_OBSOBJ")) > 0 )
Local cVC1_PROTPA := IIf(type("M->VC1_PROTPA")=="C",M->VC1_PROTPA,"") // Proximo Tipo de Agenda
Local cVC1_PROVEN := IIf(type("M->VC1_PROVEN")=="C",M->VC1_PROVEN,"") // Proximo Vendedor
Local cTpOrig := "C" // CEV
Local cSlvObj := IIf(Type("M->VC1_OBJETI")<>"U",M->VC1_OBJETI,"")
Local cQuery := ""
Local lContinua := .t.
Private cMotivo := "000010" //Filtro da consulta do motivo de Encerramento do Contato CEV
Default cTpACEV := IIf(!Empty(cVC1_PROTPA),cVC1_PROTPA,M->VC1_TIPAGE)
Default dDatCEV := M->VC1_PROCON
Default cVenCEV := IIf(!Empty(cVC1_PROVEN),cVC1_PROVEN,M->VC1_CODVEN)
Default cCliCEV := M->VC1_CODCLI
Default cLojCEV := M->VC1_LOJA
Default cObsCEV := ""
Default cOriCEV := ""
Default cEmiFic := "0"
Default cObjetiv := ""
If ExistBlock("VCM510AG") // PE para validar se sera gerada a agenda
lContinua := ExecBlock("VCM510AG",.f.,.f.,\{ cTpACEV , dDatCEV , cVenCEV , cCliCEV , cLojCEV , cOriCEV \})
EndIf
If lContinua .and. !Empty(dDatCEV)
DbSelectArea("VC5")
DbSetOrder(1)
DbSeek( xFilial("VC5") + cTpACEV )
If !Empty(cOriCEV) .and. VC5->VC5_AGEOFI == "3" // Balcao
cQuery := "SELECT SF4.F4_OPEMOV FROM "+RetSQLName("VS3")+" VS3 INNER JOIN "+RetSQLName("SF4")+" SF4 ON SF4.F4_FILIAL = '"+xFilial("SF4")+"' AND SF4.F4_CODIGO = VS3.VS3_CODTES AND SF4.D_E_L_E_T_=' ' "
cQuery += "WHERE VS3.VS3_FILIAL='"+xFilial("VS3")+"' AND VS3.VS3_NUMORC='"+cOriCEV+"' AND VS3.D_E_L_E_T_=' '"
If FM_SQL(cQuery) <> "05" // quando não for Vendas, não continua (não gera Agenda)
return .t.
Endif
Endif |
|---|
