Histórico da Página

Parâmetros:

ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela Array contendo os campos da FKF.
ParamIXB[2] - Alias da tabela, indicando em qual situação os dados deverão receber (SE1 ou SE2) .
ParamIXB[3] - Opção indicando qual a operação sendo executada ( 3 - Inclusão | 4 - Alteração ).

#INCLUDE "PROTHEUS.CH"
 
UserUUser Function FA986NFFACLMFKF()
Local oObjaRet   := ParamIxb[1] //Array com os campos recebidos
Local cAlias := ParamIxb[2] //Alias da Tabela  
Local nOpc  cCont1 := "1"
Local cCont2ParamIxb[3] // 3-Inclusão | 4-Alteração
Local nX
Local nPos   := "01"  

If cAlias == "SF2"  //Complemento de Título do Contas a Receber 0
Local aCamp := {} //Array com os campos desejados

if cAlias == "SE2"
   aCamp oObj:SetValue(= {{"FKFMASTERFKF_NATREN", "FKF_TPREPA15002", NIL},; 
  cCont1 )
		    oObj:SetValue( {"FKFMASTER","FKF_TPSERV", "04", cCont2 )

ElseIf cAlias == "SF1"  //Complemento de Título do Contas a Pagar   NIL}}
endif 

For nX := 1 to Len(aCamp)
   
   nPos := aScan(aRet, {|x| AllTrim(Upper(x[1])) == aCamp[nX][1] })
   //Verifica se o campo já esta no Array
   If nPos = 0 
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )
EndIf 

Return  aAdd(aRet, {aCamp[nX][1], aCamp[nX][2], aCamp[nX][3]})
   EndIf
      
Next nX

Return(aRet)