Histórico da Página

Parâmetros:

ParamIXB[1] - Sub-model para adicionar dados complementares no registro da tabela FKF - Array contendo os campos da FKG.
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"
 
User Function FA986NFFACLMFKG()
Local oObjaRet     := 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 cCont1aAuxFKG  := "1"{}
Local aFKG cCont2    := "01"  
{} //Array com os campos desejados
 
If cAlias == "SE2"
   If nOpc == 3 
      aAuxFKG := "SF2"  //Complemento de Título do Contas a Receber 
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )
{{ "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  
ElseIf cAlias == "SF1"  //Complemento de Título do Contas a Pagar  "SE1"
   If nOpc == 3 
      aAuxFKG := {{ "FKG_ITEM"    , "000001"         , NIL },;
            { "FKG_IDFKE"   , "VIC001"               , NIL },;
            { "FKG_VALOR"   , 500                    , NIL },;
            { "FKG_NUMPRO"  , "1594984685"           , NIL }}
   ElseIf nOpc == 4 
    oObj:SetValue( "FKFMASTER","FKF_TPREPA" , cCont1 )
    oObj:SetValue( "FKFMASTER","FKF_TPSERV" , cCont2 )
EndIf 

Return  aAuxFKG := {{ "FKG_ITEM"    , "000001"            , NIL },;
            { "FKG_IDFKE"   , "VIC001"               , NIL },;
            { "FKG_VALOR"   , 125                    , NIL },;
            { "FKG_NUMPRO"  , "1594984685"           , NIL }}
   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
      If cAlias == "SE2"
         aAdd(aRet, {aFKG[nX][1], aFKG[nX][2], aFKG[nX][3]})
      ElseIf cAlias == "SE1"
         aAdd(aRet, {aFKG[nX][1], aFKG[nX][2], aFKG[nX][3], aFKG[nX][4]})
      EndIf
   EndIf
    
Next nX
 
Return(aRet)