Linha Microsiga Protheus - Inglês

Páginas filhas
  • AF060TOK PE ATFA060 Transfer - Inclusion of Validations with the data model in linhaOK of the routine

Versões comparadas

Versão antiga 1

changes.mady.by.user Thayna de Souza Moreira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Thayna de Souza Moreira

Gravado em

Chave

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

AF060TOK PE ATFA060 Transfer - Inclusion of Validations with the data model in linhaOK of the routine

01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Microsiga Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Asset (SIGAFIS)

Function:

ATFA060 - Transfers / PE - AF060TOK

Country:

Brazil

Ticket:

Internal

Requirement/Story/Issue:

DSERCTR1-42087

02. STATUS/REQUIREMENT

This document aims to explain the entry point AF060TOK.

03. SOLUTION

...

The entry point *AF060TOK* aims to allow that the customer adds their own validations when performing actions in the transfer routine when transmitted by the saving validations in the rows based on the routine model data, counting on the tables involved in its database, thus allowing more specific rules according to the customer's needs. Important 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 (PE) AF060TOK aims to allow that the customer adds their own validations when performing actions in the transfer routine when transmitted by the saving validations in the rows based on the routine model data, counting on the tables involved in its database, thus allowing more specific rules according to the customer's needs.

Aviso
titleImportant

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

Informações
titleCode and examples
Bloco de código
languagecpp
themeRDark
titleEntry Point Example
linenumberstrue
collapsetrue
#include 'totvs.ch'
#include "rwmake.ch"  

...


User Function AF060TOK()

...


    Local Modelo060 :=  PARAMIXB

...

[1

...

] 
    local cCheck    :=  Modelo060:GetValue("GridFNR",'FNR_LOCORI')
    Local lRetorno  :=  .T.

...

	
    If Empty(cCheck)
        If MsgYesNo("The asset does not have its location registered before performing the transfer." + CRLF + CRLF + "Continue?","")
            lRetorno    := .T.
        Else
            lRetorno    := .F.
        EndIf
    Else
        lRetorno    := .T.
    EndIf

...


Return lRetorno
  

...

 Bloco de código
languagecpp
themeRDark
titlePE Call in the System
linenumberstrue
collapsetrue
If (lRet .AND. lAF060TOK)

...
	lAux := ExecBlock("AF060TOK",.F.,.F.,
...
{oModel
...
})

...
	If ValType(lAux) == "L"

...
		lRet := lAux

...
	EndIf
Endif 
...
 Aviso
titleImportant
...
!!
...
The 
...
 examples 
...
 used 
...
 in 
...
 this 
...
 documentation 
...
 are 
...
 merely 
...
 illustrative.

04. 
...
OTHER INFORMATION

Parameters
Parameters
Type
Description
<ac:structured-macro ac:name="unmigrated-wiki-markup" ac:schema-version="1" ac:macro-id="8088309f-b8f7-44e8-bd59-d164e8219f57"><ac:plain-text-body><![CDATA[
PARAIXB[1]
Object
Data model of the transfer routine.
]]></ac:plain-text-body></ac:structured-macro>

Return
Name
Type
Description
lRetorno
Logical
The result expected from .T. or .F. based on the validations performed will allow or not the sequence of the process performed based on the rules implemented in the PE.





05. RELATED SUBJECTS
  • Not Applicable.