Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA030 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
You can use entry point AF030VAL to handle the values added to the Asset Posting (ATFA030) routine. It offers flexibility to make adjustments or validations in the values processed during the manual asset posting operations, allowing the customer to apply specific business rules.
nVlVend := Iif(ExistBlock( "AF030VAL" ),ExecBlock("AF030VAL",.F.,.F.), 0)
User Function AF030VAL()
Local nVlVend := 0
Local aBxAtivo := {}
Alert("Entry Point AF030VAL() executed.")
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
Important