AF030VAL() - Manipulate asset posting values

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

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

Portuguese(Brazil)

Previous_Versions

All

All

nVlVend

Posting an asset in the ATFA030 routine.

ATFA030.PRW