Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada para adicionar validações antes da gravação do erro de importação de abastecimento na rotina Consistência de Abastecimento (MNTA635)

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

MNTA635

Consistência de Abastecimento

Rotina(s) envolvida(s)

Nome Técnico

MNTA6356

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina Consistência de Abastecimento (MNTA635) para adicionar validações antes da gravação do erro de importação de abastecimento, permitindo criar validações específicas para o erro gerado.

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Consistência de Abastecimento  

Programa Fonte:

MNTA635.prx

Função:

MNTA6356()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]ArrayDados do abastecimento
ParamIXB[2]CaracterCódigo do erro a ser gravado

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lGrava

Lógico

Não grava o erro se for falso ( .F. ), caso verdadeiro ( .T. ) o erro é gravado

X

 

Exemplo do Ponto de Entrada MNTA6356()
User Function MNTA6356()

    Local lGrava := .T. //Grava erro encontrado.

    aDadosAbst := PARAMIXB[1] //Dados do abastecimento.
    cCodigoErr := PARAMIXB[2] //Código do erro que está prestes a ser gravado.

    If AllTrim(cCodigoErr) == "54" //"Tipo combustível/convênio incompatível com o tipo de convênio do posto."
        If aDadosAbst[25] == "000006" .And. aDadosAbst[26] == "01" //Posto conveniado com CTF e GoodCard. No entanto o cadastro só aceita um convenio.
            If NGSEEK('TQM',aDadosAbst[3],nIndTQM,'TQM->TQM_CONVEN') == "5" //5-GoodCard.
                lGrava := .F. //Não grava o erro, pois esse posto aceita mais de um convenio.
            EndIF
        EndIf
    EndIf


Return lGrava