Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Guilherme Fre

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Sidnei Trevizan

Gravado em

Chave

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

Após a liberação da data XX/XX/XXXX deverá ser utilizado o Exemplo 2 - MVC como padrão. 

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

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 1 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 2 02 - MVC:
linenumberstrue
collapsetrue
#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 oModel7655!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