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: |
| ||||||||
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: |
| |||||||||
Retorno: |
|
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