01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

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

Function:

ATFA240

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46748

02. DESCRIPTION

Entry point AF240CLA runs at the end of the Asset Classification process in the assets routine. It allows you to customize the process, as well as save additional data related to the classified asset.

You can use this entry point to meet specific data processing and storage needs not available in the default configuration of the system.

03. OTHER INFORMATION


Handling of EP in the system


If ExistBlock("AF240CLA")
      ExecBlock("AF240CLA",.F.,.F.)
EndIf



User Function AF240CLA()

      Local dDtAquiN3 := SN3->N3_AQUISIC //Store in variable the content of SN3->N3_AQUISIC
      Local dDtAquiN1 := SN1->N1_AQUISIC //Store in variable the content of SN1->N1_AQUISIC

      If dDtAquiN1 <> dDtAquiN3 //If the dates are divergent I notify the user
            lRet := MsgYesNo("Divergent acquisition dates (N1_AQUISIC/N3_AQUISIC), do you want to save with similar dates?","Acquisition Dates")
            If lRet //If the user selects the option "yes" the system saves both fields with the same content
                  RecLock("SN3")
                  SN3->N3_AQUISIC := dDtAquiN1
            EndIf
      EndIf

Return .T.
  • 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