Product: | TOTVS Backoffice |
Product Line: | Microsiga Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Asset (SIGAFIS) |
Function: | ATFA060 - Transfers / EP- ATF060GRV |
Country: | Brazil |
Ticket: | Internal |
Requirement/Story/Issue: | DSERCTR1-42088 |
This document aims to explain the entry point ATF060GRV.
The purpose of Entry Point ATF060GRV is to make additional recordings after the ordinary recordings of the transfer routine. It can make additional recordings to selected tables SN3 and SN4, also taking it as parameter for reverence the routine's data model for verifications and possible criterion points based on the selected transaction asset.
| The changes performed to the entry point are the total responsibility of the customer that implements them. |
Code and Examples
Example of Entry Point Expandir origem
#include 'totvs.ch'
#include "rwmake.ch"
User Function ATF060GRV()
Local Modelo060 := PARAMIXB[1]
Local aArea := GetArea()
Local cBase := Modelo060:GetValue("GridFNR",'FNR_CBAORI')
Local cItem := Modelo060:GetValue("GridFNR",'FNR_ITEORI')
Local cFilMovi := Modelo060:GetValue("FieldFN9",'FN9_FILIAL')
Local cChave := cFilMovi + cBase + cItem
dbSelectArea("SN4")
dbSetOrder(1)
If dbSeek(cChave)
While SN4->(!EOF()) .And. cChave==SN4->(N4_FILIAL+N4_CBASE+N4_ITEM)
If rtrim(SN4->N4_CONTA) == '1110205' //ACCOUNT AT ORIGIN
Reclock("SN4", .F.)
N4_CONTA := 'TX003' // ACCOUNT AT DESTINATION
MsUnlock()
Endif
SN4->(dbSkip())
EndDo
Endif
RestArea(aArea)
Return
PE Call in System Expandir origem
If lCont .And. ExistBlock ("ATF060GRV")
ExecBlock("ATF060GRV",.F.,.F.,{oModel})
EndIf
It must be emphasized that the entry point is only activated if all default validations of the routine are correct.
Important !!
The examples used in this documentation are merely illustrative.
Parameters
Parameters | Type | Description |
PARAIXB[1] | Object | Data model of the transfer routine. |
Return
Name | Type | Description |
Not Applicable | Not Applicable | Not Applicable |