Páginas filhas
  • A126EDGRV() - Edit the data to be saved

Description

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

Notes

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

Examples

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
 

Language

Portuguese(Brazil)

Versions

Previous_Versions

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

V11: aBaixa | V12: aBxAux

Return

V11: aBaixa | V12: aBxAux

Call events of the Entry Point

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

Variables

V11: aBaixa, aBxAux | V12: aBxAux

Source Program

ATFA126.PRW

  • Sem rótulos