Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

User Function FI040SE1()

Local aAutoCab aRet := PARAMIXB[1]
Local nOper := PARAMIXB[2]
Local nPos := 0
Local aRet := {}


// Inclusão
If nOper == 3

     If nPos := aScan(aRet,{ |x| x[1] == "E1_HIST"}) > 0
           aRetaRet[nPos] := {"E1_HIST","INTEG PE-FI040SE1",Nil}
     Else
           aAddaAdd(aRet,{"E1_HIST","INTEG PE-FI040SE1",Nil})
     EndIf

EndIf

Return aRet

 

teio}