Linha Microsiga Protheus

Árvore de páginas

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

Países:

Todos

Bancos de Dados:

Todos

Sistemas Operacionais:

Todos

Ponto de Entrada

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:

Tipo

Descrição

Lógico

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

 

Exemplo P.E. MNTA6557
#INCLUDE 'PROTHEUS.CH'
 
User Function MNTA6557()
 
    Local lRet := .T.

    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
            lRet := .F.
        EndIf
    
    EndIf
 
Return lRet