Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function FACLMFKG()
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 aAuxFKG     := {}
Local aFKG        := {} //Array com os campos desejados

If cAlias == "SE2"
         	aAuxFKG := {{ "FKG_ITEM"  	, "000001"        		 , NIL },;
				{ "FKG_IDFKE"  	, "FIN058"        		 , NIL },;
				{ "FKG_VALOR"	, 152          				 , NIL }} 
endIf 


AAdd(aFKG, aAuxFKG )

aAuxFKG := {}

For nX := 1 to Len(aFKG)
   
   nPos := aScan(aRet, {|x| AllTrim(Upper(x[1])) == aFKG[nX][1] })
   
   If nPos = 0 
      aAdd(aRet, {aFKG[nX][1], aFKG[nX][2], aFKG[nX][3]})
   EndIf 
   
Next nX


Return(aRet)