Linha Microsiga Protheus - Inglês

Páginas filhas
  • EP AF271TP

Versões comparadas

Versão antiga 1

changes.mady.by.user Otto Alexandre Monteiro Altorfer

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Otto Alexandre Monteiro Altorfer

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF)

Function:

ATFA271

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46748

02. DESCRIPTION

Entry Point AF271TP is activated during the call of routine ATFA271 (Asset Group Register) and allows the customer to implement additional adjustments or validations that meet the specific needs of their company. This entry point offers the flexibility needed for adapting the asset group registration process, ensuring that the data entered are compliant with internal policies and rules.

With the AF271TP, the customer can set validation criteria to make sure that all data related to the asset group register are consistent and appropriate to their organization's business context, contributing to greater accuracy and control of records.

03. OTHER INFORMATION

Bloco de código
languagecpp
themeRDark
titleHandling of EP in the system
ExecBlock("AF271TP",.F.,.F.)
Bloco de código
languagecpp
themeRDark
titleEP Example
#Include 'protheus.ch'
#Include 'parmtype.ch'

User Function AF271TP()

//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

// This example allows editing the field X3_CBOX to make sure type 12 (FNG_TIPO) is available in the asset group register.

//---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

      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
Aviso
titleImportant
  • It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
  • The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.

04. RELATED SUBJECTS

  • Not Applicable.