AF060TOK PE Transferência ATFA060 - Inclusão de Validações com o modelo de dados no linhaOK da rotina

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Serviços
Módulo:	TOTVS Backoffice (Linha Protheus) - Ativo Fixo (SIGAATF)
Função:	ATFA060 - Transferências / PE - AF060TOK
País:	Brasil
Ticket:	Interno
Requisito/Story/Issue :	DSERCTR1-42087

02. SITUAÇÃO/REQUISITO

Essa documentação visa esclarecer e exemplificar sobre o ponto de entrada AF060TOK.

03. SOLUÇÃO

O ponto de entrada AF060TOK tem o objetivo de permitir ao cliente a funcionalidade de adicionar suas próprias validações ao realizar ações na rotina de transferência quando é passado pelas validações de gravação nas linhas com base nos dados do modelo da rotina, contanto com as tabelas envolvidas em seu modelo de dados, assim permitindo regras mais especificas de acordo com a necessidade do cliente.

Importante

As alterações realizadas no ponto de entrada são de total responsabilidade do cliente que o implementa.

Codigo e exemplos

Exemplo do ponto de Entrada

#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("o Bem nao esta com seu local cadastrado antes de realizar a sua transferencia?" + CRLF + CRLF + "Deseja continuar?","")
            lRetorno    := .T.
        Else
            lRetorno    := .F.
        EndIf
    Else
        lRetorno    := .T.
    EndIf
    
Return lRetorno

Chamada do PE no Sistema

If (lRet .AND. lAF060TOK)
	lAux := ExecBlock("AF060TOK",.F.,.F.,{oModel})
	If ValType(lAux) == "L"
		lRet := lAux
	EndIf
Endif

Importante !!

Os exemplos utilizados nessa documentação são meramente ilustrativos.

04. DEMAIS INFORMAÇÕES

Parâmetros

Parâmetros	Tipo	Descrição
PARAIXB[1]	Object	Modelo de dados da rotina de transferência.

Retorno

Nome	Tipo	Descrição
lRetorno	Lógico	Resultado esperado de .T. ou .F. com base nas validações realizadas irá ou não permitir a sequencia do processo realizado com base nas regras implementadas no PE.

05. ASSUNTOS RELACIONADOS

Não se aplica.

Árvore de páginas