Histórico da Página

#INCLUDE "PROTHEUS.CH"
 
UUserUser Function FACLMFKF()
Local aRet   := ParamIxb[1] //Array com os campos recebidos
Local cAlias := ParamIxb[2] //Alias da Tabela  
Local nOpc   := ParamIxb[3] // 3-Inclusão | 4-Alteração
Local nX
Local nPos   := 0
Local aCamp := {} //Array com os campos desejados

ifIf cAlias == "SE2"
   aCamp := {{"FKF_NATREN", "15002", NIL},; 
   		     {"FKF_TPSERV", "04", NIL}}
endifEndIf 

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 
      aAdd(aRet, {aCamp[nX][1], aCamp[nX][2], aCamp[nX][3]})
   EndIf
      
Next nX

Return(aRet)