Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada padrão MVC

A rotina relacionada a este ponto de entrada passou recentemente por uma reestruturação para o padrão de desenvolvimento MVC, desta forma o exemplo de código 01, apresentado neste documento, pode não ser mais efetivo, desta forma indicamos a utilização do Exemplo 02 - MVC.

Ponto de Entrada para confirmação de geração de Título na tabela de Contas a Pagar.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos

Rotina:

Rotina

Nome Técnico

MNTA765

Registro de Multas

Chamados Relacionados

TVNP15

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada para seja confirmada a geração do Título na tabela de Contas a Pagar.

Localização:

SIGAMNT: Atualizações/Multas/Multa

Eventos:

Multa (MNTA765)

Programa Fonte:

MNTA765.PRX

Função:

MNTA7659()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Retorna se deve gerar Título financeiro (SE2).

Sim

 

Exemplo 01 - Padrão 
#Include 'Protheus.ch'

User Function MNTA7659()

Local lRet := .T.

       If !MsgYesNo("Deseja gerar um título para esta Multa?")

              lRet := .F.

       EndIf

Return lRet
Exemplo 02 - MVC 
#Include 'Protheus.ch'

User Function MNTA7659()

Local lRet := .T.
Local oModel765 := PARAMIXB[1] // Recebe parâmetro oModel o qual contêm os valores de memória em tela. 

	If !Empty(oModel765:GetValue('MULTAS','TRX_MULTA')) // Verifica se o campo de Multas está preenchido. 
       If !MsgYesNo("Deseja gerar um título para esta Multa?")

              lRet := .F.

       EndIf
	EndIf

Return lRet