Histórico da Página

#INCLUDE "PROTHEUS.CH"  #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"
   	if nOpc == 3 
      aAuxFKG := {{ "FKG_ITEM"   	 , "000001"              		 , NIL },;
				               { "FKG_IDFKE"  	 , "FIN058"              		 , NIL },;
				               { "FKG_VALOR"	   , 152                    , NIL }}
   elseif nOpc == 4  			
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058"               , NIL },;
               { "FKG_VALOR"   , 125                    , NIL }}
      endif 
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)