CN300RST - Validação do retorno da situação do contrato

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Gestão de Contratos

Rotina:

Rotina	Nome Técnico
CNTA300	Manutenção de Contratos

Parâmetro(s):

xRet - PARAMIXB[1]

cTpCnt - PARAMIXB[2]

Ponto de Entrada:

CN300RST

Versão:

Protheus 12.1.27

Ponto de Entrada

Descrição:	Ponto de entrada para validação do retorno da situação do contrato.
Eventos:	Na função da rotina CNTA300
Programa Fonte:	CNTA300.prw
Função:	CN300RetSt
Retorno:	xRet

Exemplo:

#Include 'Protheus.ch'

##Include 'FWMVCDef.ch'

User Function CN300RST()

Local xRet := ParamixB[1]
Local cTpCnt := ParamixB[2]

If FWIsInCallStack('CNTA120') .And. FWIsInCallStack('CN130TudOk') .And. (cTpCnt == "003" .Or. cTpCnt == "004")
xRet := .T.
EndIf

Return xRet