Histórico da Página
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.
...
Handling of EP in the system
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If ExistBlock("AF240CLA") |
...
ExecBlock("AF240CLA",.F.,.F.) |
...
EndIf |
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas