A126EDGRV() - Edit the data to be saved

The entry Point A126EDGRV() edits the data before saving.

It edits the information to be saved from the routine ATFA126 - Request for Posting and Transfer of Assets.

Version 11:

User Function A126EDGRV()

Local aBaixa := paramixb[1]

ALERT("Entry Point A126EDGRV() run")

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

________________________________________________________________________________________________________________
Version 12:

User Function A126EDGRV(aBxAux)

Local aBxAux := paramixb[1]

ALERT("Entry point A126EDGRV() run")

Return aBxAux
 

Portuguese(Brazil)

Previous_Versions

All

All

V11: aBaixa | V12: aBxAux

V11: aBaixa | V12: aBxAux

Version 11:

aBxAux := AClone(aBaixa)

If ExistBlock("A126EDGRV")

aBaixa := ExecBlock("A126EDGRV", .F., .F.,{aBaixa})

If ValType(aBaixa) <> "A"

aBaixa := AClone(aBxAux)

EndIf

EndIf
________________________________________________________________________________________________________________
Version 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