A126EDGRV() - Edita os dados a serem gravados

O ponto de entrada A126EDGRV() edita os dados antes da gravação.

Edita as informações a serem gravadas da rotina ATFA126 - Solicitação de Baixa e Transferência de Ativos.

Versão 11:

User Function A126EDGRV()
Local aBaixa := paramixb[1]

ALERT("Ponto de Entrada A126EDGRV() executado")

AADD( aBaixa, { "N3_CBASE" , 01 , NIL } )
AADD( aBaixa, { "N3_ITEM" , 2 , NIL } )
AADD( aBaixa, { "N3_TIPO" , 01 , NIL } )
AADD( aBaixa, { "AUTQUANT" , 1 , NIL } )
AADD( aBaixa, { "AUTMOTBX" , 01 , Nil } )
AADD( aBaixa, { "AUTPERCBX" , 100 , Nil } )
AADD( aBaixa, { "AUTNOTA" , "01" , Nil } )
AADD( aBaixa, { "AUTSERIE" , "0000001" , Nil } )
AADD( aBaixa, { "AUTBXFILHOS", .T. , Nil } )
AADD( aBaixa, { "AUTVLRVENDA", 30000 , Nil } )

Return aBaixa

________________________________________________________________________________________________________________

Versão 12:

User Function A126EDGRV(aBxAux)

Local aBxAux := paramixb[1]

ALERT("Ponto de Entrada A126EDGRV() executado")

Return aBxAux

Português(Brasil)

Versões_Anteriores

Todos

Todas

V11: aBaixa | V12: aBxAux

V11: aBaixa | V12: aBxAux

Versão 11:

aBxAux := AClone(aBaixa)
If ExistBlock("A126EDGRV")
aBaixa := ExecBlock("A126EDGRV", .F., .F.,{aBaixa})
If ValType(aBaixa) <> "A"
aBaixa := AClone(aBxAux)
EndIf
EndIf

________________________________________________________________________________________________________________

Versão 12:

aBxAux := {}
aBxAux := Array(2)
aBxAux[1] := AClone(xCab)
aBxAux[2] := AClone(xAtivo)

If ExistBlock("A126EDGRV")
aBxAux := ExecBlock("A126EDGRV", .F., .F.,{aBxAux})

If ValType(aBxAux) == "A"
xCab := aBxAux[1]
xAtivo := aBxAux[2]
EndIf

EndIf

V11: aBaixa, aBxAux | V12: aBxAux

ATFA126.PRW