Páginas filhas
  • ATF060GRV EP Transfer ATFA060 - Saving Additional Data

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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.

...

Aviso
titleImportant
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

...


Informações
titleCodes and Examples



Bloco de código
languagecpp
themeRDark
titleExample of Entry Point 
linenumberstrue
collapsetrue
#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
languagecpp
themeRDark
titlePE Call in System

...

linenumberstrue
collapsetrue
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
titleImportant

...

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.

...