Histórico da Página

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.

Aviso

title	Important

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

Code and Examples

Informações

title	Codes and Examples

Bloco de código

language	cpp
theme	RDark
title	Example of Entry Point
linenumbers	true
collapse	true

#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

Bloco de código

language	cpp
theme	RDark
title	PE Call in System
linenumbers	true
collapse	true

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.

Aviso

title	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

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

01. GENERAL DATA

02. STATUS/REQUISITION

03. SOLUTION

04. OTHER INFORMATION

05. RELATED SUBJECTS