Histórico da Página

Parâmetros:

ParamIXB[1] - Objeto - Sub-model para adicionar dados complementares no registro MVC da tabela FKF .para verificar os dados já informados nos campos;

ParamIXB[2]  - Numérico - Identificação da operação que está sendo executada (3-Inclusão/4-Alteração);

ParamIXB[3] - Caracter - Identificação do título da tabela FK7;

ParamIXB[4] - Caracter - Nome do alias da carteira do título (SE1 para contas a receber / SE2 para contas a pagar);

ParamIXB[5] - Caracter - Chave do título na tabela SE1/SE2;- Alias da tabela, indicando em qual situação os dados deverão receber.

#INCLUDE "PROTHEUS.CH"
 
User Function F986Valid()
Local oObjoModel   := ParamIxb[1]
Local cAliasnOpc    := ParamIxb[2]
Local cIdDoc cCont1 := "1"ParamIxb[3]
Local cCont2cAliasC := "01"  ParamIxb[4]
Local cChave  := ParamIxb[5]

If cAliascAliasC == "SF2SE2"  //Complemento de Título do Contas a Receber Pagar
    oObj:SetValue( If Alltrim(oModel:GetValue("FKFMASTER","FKF_TPREPANATREN")) ,$ cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )

ElseIf cAlias == "SF1"  //Complemento de Título do Contas a Pagar   
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )"20001" .And. M->E2_IRRF > 0
		Help( ,,"F986Valid",,"Revise a Natureza de Rendimento, pois não deve conter imposto na carteira a pagar", 1, 0 )
	EndIf
EndIf 

Return