Histórico da Página

Descrição

Ponto de entrada que adiciona validações antes da gravação do erro de importação de abastecimento. Permitindo o cliente a fazer validações especificas para erro gerado.

Exemplos

Bloco de código

theme	Eclipse
firstline	1
title	Fonte exemplo
linenumbers	true

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

Idioma

Português(Brasil)

Parâmetro

PARAMIXB[1] //Array contendo dados do abastecimento.

Conteúdo do Array
01 - Número do Abastecimento
02 - Placa do Bem
03 - Tipo de Combustível
04 - CNPJ do Posto
05 - Motorista
06 - Contador
07 - Quantidade de Combustível
08 - Valor Unitário do Combustível
09 - Valor Total do Combustível
10 - Data
11 - Hora
12 - Número do Abastecimento Anterior
13 - Erro
14 - Tanque
15 - Bomba
16 - Contador 2
17 - Empresa Origem
18 - Filial Origem
19 - Empresa Destino
20 - Filial Destino
21 - Posto Destino
22 - Loja Destino
23 - Tanque Destino
24 - Motivo da Transferência
25 - Posto
26 - Loja
27 - Observacao
28 - Convênio

PARAMIXB[2] //Caracter com código do erro que está prestes a ser gravado.

Versões

P12.1.17

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Boleano

Programa Fonte

MNTA635

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave