Producto: | TOTVS Backoffice |
|---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF) |
Función: | ATFA030 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
El punto de entrada AF030VAL permite el manejo de los valores incluidos en la rutina Bajas del activo (ATFA030). Este ofrece flexibilidad para realizar ajustes o validaciones en los valores procesados durante las operaciones de baja manual de activos, permitiendo que el cliente aplique reglas específicas de negocio.
nVlVend := Iif(ExistBlock( "AF030VAL" ),ExecBlock("AF030VAL",.F.,.F.), 0) |
User Function AF030VAL()
Local nVlVend := 0
Local aBxAtivo := {}
Alert("Punto de entrada AF030VAL() ejecutado.")
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 |
|