Ponto de Entrada no Cadastro de Lançamento Padrão em MVC

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina	Nome Técnico
CTBA080	Lançamentos Contábeis de Integração

Ponto de Entrada:

CTBA080

País(es):

Brasil

Banco(s) de Dados:

Todas

Sistema(s) Operacional(is):

Todos

Descrição

O objetivo do ponto de entrada no Cadastro de Lançamento Padrão segue os moldes das rotinas desenvolvidas em MVC onde um único ponto de entrada deve ser uma User Function e ter como nome o ID do Modelo de Dados (Model) do Fonte. Peguemos de exemplo um fonte do Modulo Contabilidade Gerencial : CTBA080. Neste fonte o ID do Modelo de Dados ( definido na funcão ModelDef() ) é também CTBA080, portanto ao se escrever o ponto de entrada desta rotina, faríamos User Function CTBA080(), onde este é invocado em diversos momentos, conforme documentação TDN.

link http://tdn.totvs.com/pages/viewpage.action?pageId=208345968

No caso os pontos de entrada que anteriormente eram executados deverão ser substituídos colocando o evento de validação do formulário e de persistência após gravação dos dados na transação, portanto os pontos de entrada CTA080TOK e CT080GRV deverão ser reescritos na User Function CTBA080.

Ponto de Entrada

Descrição:	O ponto de entrada CT105BUT permite adicionar novos botões à tela de Lançamentos Contábeis (CTBA105).
Eventos:	If ExistBlock("CT105But") aButtonNew := ExecBlock("CT105But",.F.,.F.,aButton) If (ValType(aButtonNew) == "A") aButton := aClone(aButtonNew) EndIf EndIf
Programa Fonte:	CTBA105
Retorno:	aBotoes = Array contendo as opções do menu

Exemplo:

#INCLUDE "protheus.ch"

User Function CT105BUT()
Local aBotoes := ParamIXB

aAdd(aBotoes,{ "PE" , { || CTBA080() }, "PE", "PE"} )

Return aBotoes