Histórico da Página

F70PCODE - Permite incluir tratamentos para os valores do campo E1_SITUACA

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
Retorno:	Lógico.

Exemplo:

No exemplo abaixo é demonstrado a forma correta de incluir um novo item sem alterar as posições atuais do menu padrão.

#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 .T. Return