A126EDGRV() - Edita los datos que se grabarán

El punto de entrada A126EDGRV() edita los datos antes de la grabación.

Edita la información que se grabará de la rutina ATFA126 - Solicitud de baja y transferencia de activos.

Versión 11:

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

ALERT("Punto de entrada A126EDGRV() ejecutado")

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

________________________________________________________________________________________________________________

Versión 12:

User Function A126EDGRV(aBxAux)

Local aBxAux := paramixb[1]

ALERT("Punto de entrada A126EDGRV() ejecutado")

Return aBxAux

Portugués(Brasil)

Versiones_Anteriores

Todos

Todas

V11: aBaixa | V12: aBxAux

V11: aBaixa | V12: aBxAux

Versión 11:

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

________________________________________________________________________________________________________________

Versión 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