Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Alexandre dos Santos

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

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.

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()

Retorno
Parâmetro:oModel - Modelo ativo da rotina

Retorno:

aRet[1].Indica se deve realizar as demais validações padrão do sistema

Nome

Tipo

Descrição

Obrigatório

aRet

Array

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

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

SimaRet[2]Lógico

.

Não

Sim

 

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

	Local lRet := MsgYesNo( 'Deseja confirmar a saída de combustível ?' )
	Local lVld.T.
    Local oModel657

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

		If lRet
 			lRet := MsgYesNo("Deseja 'Desejaconfirmar realizara assaída demaisde validações padrão do sistema ?' )
combustível ?")
		Endif

    EndIf
 
Return { lRet, lVld }