Histórico da Página
Aviso | ||
---|---|---|
| ||
|
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. |
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 |