Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 12

changes.mady.by.user Tainã Alberto Cardoso

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Eduardo H. Mussi

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada para customizar a validação na gravação da saída de combustível.

Aviso
titleAtenção

Realizado conversão da rotina de Registro de saída de combustível(MNTA657) para MVC, por este motivo a chamada e utilização do ponto de entrada MNTA6570 deverá ser alterado para o novo modelo apresentado no exemplo abaixo. 

Características do Requisito

 Realizado conversão das rotina MNTA657 -Registro de saída de combustível para o modelo padrão de desenvolvimento MVC, por este motivo a chamada e utilização do ponto de entrada MNTA6570 deve ser alterada para o novo modelo

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA657

Saída de Combustível

Tickets relacionados

5460650

Issue:

DNG-4743

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Descrição

.

 

Ponto de Entrada

Descrição:

Ponto de entrada acionado no processo de validação para gravação de uma Saída de Combustível, permitindo customizar este processo.

Localização:

SIGAMNT: Em Atualizações > Controle de Combustível > Abastecimento > Saída Combustível.

Programa Fonte:

MNTA657.prx

Função:

MNT657TDOK()

Parâmetro:oModel - Modelo ativo da rotina

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Indica se haverá a gravação da Saída de Combustível.

Sim

Bloco de código
languagesql
titleExemplo: P.E. MNTA6570
linenumberstrue
#Include 'TOTVS.ch'
#Include 'TotvsFWMVCDEF.ch'
 
User function MNTA6570()

	Local lRet := .T.
    Local oModel657

 	If Type("PARAMIXB") == "A" 
  
        oModel657 := PARAMIXB[1] // Busca o modelo de dados, que conterá os dados do arquivo em tela.
 
        If oModeloModel657:GetValue( 'MNTA657_TTH', 'TTH_TIPO' ) == 1
            lRet := .F.
        EndIf

		If lRet
 			lRet   EndIf
 
Return := MsgYesNo("Deseja confirmar a saída de combustível ?")
		Endif

    EndIf
 
Return lRet