Descrição: | A finalidade do ponto de entrada F070PCODE incluir tratamento referente aos valores do campo E1_SITUACA e Lançamentos de Integração com FIN x PCO |
Localização: | Está presente na função F460TitGer() |
Eventos: | F070PcoDet() |
Programa Fonte: | FINA070.PRX |
| Versões: | 12 |
Exemplo:
#INCLUDE "PROTHEUS.CH"
USER FUNCTION F70PCODE()
If AllTrim(SE1->E1_SITUACA) $ "0|F|G" // Carteira
PcoDetLan("000004","01","FINA070")
ElseIf AllTrim(SE1->E1_SITUACA) == "1|H" // Simples
PcoDetLan("000004","02","FINA070")
ElseIf SE1->E1_SITUACA == "2" // Descontada
PcoDetLan("000004","03","FINA070")
ElseIf AllTrim(SE1->E1_SITUACA) == "4" // Vinculada
PcoDetLan("000004","04","FINA070")
ElseIf Alltrim(SE1->E1_SITUACA) == "5" // c/Advogado
PcoDetLan("000004","05","FINA070")
ElseIf AllTrim(SE1->E1_SITUACA) == "6" // Judicial
PcoDetLan("000004","06","FINA070")
ElseIf AllTrim(SE1->E1_SITUACA) == "7" // Caucionada Descontada
PcoDetLan("000004","08","FINA070")
//Para as novas situacoes de cobranca
//repito os processos padroes existentes de acordo com a categoria de cada uma
ElseIF FN022SITCB(cSituacao)[1] //Carteira cSituacao $ "0|F|G"
PcoDetLan("000004","01","FINA070")
ElseIf FN022SITCB(cSituacao)[6] //Simples e Cartorio cSituacao $ "1|H"
PcoDetLan("000004","02","FINA070")
ElseIf FN022SITCB(cSituacao)[3] //Descontada cSituacao $ "2|7"
PcoDetLan("000004","03","FINA070")
ElseIf FN022SITCB(cSituacao)[4] //Cobranca em banco com protesto
PcoDetLan("000004","06","FINA070")
ElseIf FN022SITCB(cSituacao)[2] //Cobranca em banco sem protesto exceto Simples e Cartorio
PcoDetLan("000004","05","FINA070")
EndIf
Return