Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
titlePonto de Entrada é Válido a partir do Release 11.80.18 e superiores

 

Aviso
titlePonto de Entrada é Válido a partir do Release 12.1.7 e superiores

 

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

 

Bloco de código
languagejava
firstline1
titleExemplo 01 - Padrão
linenumberstrue
collapsetrue
#Include 'Protheus.ch'

User Function MNTA7659()

Local lRet := .T.

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

              lRet := .F.

       EndIf

Return lRet
Bloco de código
languagejava
firstline1
titleExemplo 02 - MVC
linenumberstrue
collapsetrue
#Include 'Protheus.ch'


User Function MNTA7659()


Local lRet := .T.

       If

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