Histórico da Página
| Aviso | ||
|---|---|---|
| ||
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: |
| ||||
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: |
|
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas