Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Technology |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA036 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point AF036DEP() ignores the last depreciation date in the process of posting a fixed asset using the request process (ATFA125.PRW) and the approval and posting process (ATFA126.PRW). This creation is an improvement to the Postings (ATFA036) routine.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
lRetDepr := ExecBlock("AF036DEP", .F., .F.,{dUltDepr,dDataBx}) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function AF036DEP() |
...
Local dUltDepr := ParamIxb[1] |
...
Local dDataBx := ParamIxb[2] |
...
Local lRetDepr := .F. |
...
If MsgYesNo( "Disregard the last depreciation date?", "Attention" |
...
lRetDepr := .T.
Else
lRetDepr := .F.
EndIf
Return lRetDepr
...
)
lRetDepr := .T.
Else
lRetDepr := .F.
EndIf
Return lRetDepr |
| Aviso | ||
|---|---|---|
| ||
|