Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

Ponto de entrada que permite customizar a validação de negociação e preço de posto na rotina de Abastecimento Manual (MNTA655)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

Rotina

Nome Técnico

MNTA655

Abastecimento Manual

Rotina(s) envolvida(s)

Nome Técnico

MNTA6557

Ponto de Entrada

País(es)

Países:

Todos

Banco(s)

Bancos de Dados:

Todos

Sistema(s) Operacional(is)Sistemas Operacionais:

Todos

Ponto de Entrada

///MNTA6557

Descrição:

Ponto de entrada executado na rotina de Abastecimento Manual (MNTA655) para customização da validação de negociação e preço de posto 

Localização:

SIGAMNT: Atualizações

> Controle de Combustíveis

> Abastecimento

> Abastecimento Manual

Programa Fonte:

MNTA655.prx

Função:

MNTA655HR() / MNA655HR()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo do Posto
ParamIXB[2]CaracterCódigo da Loja
ParamIXB[3]CaracterCNPJ/CPF

Retorno:

Nome

X

Tipo

Descrição

Obrigatório

 lRet

Lógico

Confirma a customização se verdadeiro ( .T. ), se falso ( .F. ), não conclui a alteração

 

Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNTA6557()P.E. MNTA6557
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
 
User Function MNTA6557()
 
	    Local lRet := .T.

	// Parâmetros
	    cCodPos := PARAMIXB[1] // Código do Posto
	    cCodLoj := PARAMIXB[2] // Código da Loja
	    cCodCnp := PARAMIXB[3] // CNPJ/CPF

	 
    If Empty( M->TQN_VALUNI )
        
        If MsgYesNo("Não há uma negociação anterior a esse abastecimento. Deseja Continuar?","ATENÇÃO")
		            M->TQN_VALUNI := 3.19 // Recebe o valor padrão
	Else
		        Else
            lRet := .F.
	EndIf

        EndIf
    
    EndIf
 
Return lRet