Histórico da Página

#INCLUDE "PROTHEUS.CH"
 
User Function FA986NF()
Local oObj   := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local cCont  := "Campo Customizado"

if cAlias == "SF2"  //Complemento de Título do Contas a Receber 
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont )

elseif cAlias == "SF1"  //Complemento de Título do Contas a Pagar   
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont )
endif 


Return