ATF060GRV EP Transfer ATFA060 - Saving Additional Data

01. GENERAL DATA

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

02. STATUS/REQUISITION

This document aims to explain the entry point ATF060GRV.

03. SOLUTION

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.

Important

The changes performed to the entry point are the total responsibility of the customer that implements them.

Code and Examples

Codes and Examples

Example of Entry Point

#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

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.

04. OTHER INFORMATION

Parameters

Parameters	Type	Description
PARAIXB[1]	Object	Data model of the transfer routine.

Return

Name	Type	Description
Not Applicable	Not Applicable	Not Applicable

05. RELATED SUBJECTS

Not Applicable.

Páginas filhas