Producto: | TOTVS Backoffice |
|---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF) |
Función: | ATFA271 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
El punto de entrada AF271TP se incluye durante la activación de la rutina ATFA271 (Registro de grupos de bienes) y permite al cliente implementar validaciones o ajustes adicionales que atiendan las necesidades específicas de su empresa. Este punto de entrada proporciona la flexibilidad necesaria para adaptar el proceso de registro de grupos de bienes, garantizando que las informaciones incluidas estén en conformidad con las reglas y políticas internas.
Con AF271TP, el cliente puede definir criterios de validación que garanticen que todos los datos relacionados al registro de grupos de bienes sean consistentes y adecuados al contexto de negocios de la organización, contribuyendo para mayor precisión y control sobre los registros.
ExecBlock("AF271TP",.F.,.F.)
#Include 'protheus.ch'
#Include 'parmtype.ch'
User Function AF271TP()
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
// Este ejemplo permite modificar el campo X3_CBOX para garantizar que el tipo 12 (FNG_TIPO), esté a disposición en el registro de grupos de activos.
//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SX3->(DbSetOrder(2))
If SX3->(DbSeek("FNG_TIPO"))
If ALLTRIM(SX3->X3_CBOX) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOX := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
If ALLTRIM(SX3->X3_CBOXSPA) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOXSPA := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
If ALLTRIM(SX3->X3_CBOXENG) == '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13"})'
RecLock("SX3", .F.)
SX3->X3_CBOXENG := '#ATFCBGener(xFilial("SX5"),"SX5","G1","01",{"01","10","03","13","12"})'
MsUnLock()
EndIf
EndIf
Return
Importante