Description

The entry point AF030VAL() allows the valued added to the Asset Posting routine (ATFA030) to be manipulated.

Examples

User Function AF030VAL()

Local nVlVend := 0

Local aBxAtivo := {}

Alert("Entry Point AF030VAL() run.")

AADD( aBxAtivo, { "N3_CBASE" , SN1->N1_CBASE } )

AADD( aBxAtivo, { "CNOTA" , SN4->N4_NOTA } )

AADD( aBxAtivo, { "CITEM" , SN1->N1_ITEM } )

AADD( aBxAtivo, { "N3_TIPO" , SN3->N3_TIPO } )

AADD( aBxAtivo, { "CSERIE" , SN4->N4_SERIE } )

AADD( aBxAtivo, { "VLRBAIXA", SN3->N3_VORIG1 } )

AADD( aBxAtivo, { "NQUANT" , SN1->N1_QUANTD } )

AADD( aBxAtivo, { "AUTPERCBX" , 100 } )

AADD( aBxAtivo, { "NVLVEND" , SN4->N4_VENDA } )

nVlVend := aBxAtivo[9][2]

Return nVlVend

Language

Portuguese(Brazil)

Versions

Previous_Versions

Operating Systems Supported

All

Compatible with the following Databases

All

Return

nVlVend

Call events of the Entry Point

Posting an asset in the ATFA030 routine.

Source Program

ATFA030.PRW