Árvore de páginas

Versões comparadas

Chave

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

...

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

...