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	 	       := 0
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 }}
               
      AAdd(aFKG, aAuxFKG )
   
   ElseIf nOpc == 4 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058"               , NIL },;
               { "FKG_VALOR"   , 125                    , NIL }}
   
EndIf      AAdd(aFKG, aAuxFKG )
   EndIf
If
ElseIf cAlias == "SE1"
   If nOpc == 3 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058VIC001"               , NIL },;
               { "FKG_VALOR"   , 152500                    , NIL }},;
            { "FKG_NUMPRO"  , "1594984685"  
      AAdd(aFKG, aAuxFKG )
 , NIL }}
   ElseIf nOpc == 4 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"               , NIL },;
               { "FKG_IDFKE"   , "FIN058VIC001"               , NIL },;
               { "FKG_VALOR"   , 125                    , NIL }}
,;
            { "FKG_NUMPRO"  , "1594984685"     
      AAdd(aFKG, aAuxFKGNIL )}}
   EndIf 
EndIf  

If !Empty(aAuxFKG) 
       AAdd(aFKG, aAuxFKG )
EndIf
 
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]})
      If cAlias == "SE1"
         aAdd(aRet, {aFKG[nX][4]})
      EndIf
   EndIf
    
Next nX
 
Return(aRet)