Exibir origem

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.

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

Code and Examples

#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

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.

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.