MNTA6592 - Adição de validações nas rotinas de abastecimento.

Ponto de Entrada para realizar validações nas rotinas de abastecimento.

#INCLUDE "Protheus.ch"

User Function MNTA6592()

Local cCodBem := PARAMIXB[1] // Código do Bem
Local cFilBem := PARAMIXB[2] // Filial do Bem
Local dDtAbast:= PARAMIXB[3] // Data do Abastecimento
Local cHhAbast:= PARAMIXB[4] // Hora do Abastecimento
Local aReturn := PARAMIXB[5] // Array com validações padrão

//
If !U_VERIFBEM()

MsgInfo("O bem: " + cCodBem + "está com o cadastro de estrutura inconsistente, é necessário realizar o ajuste para finalizar o abastecimento.")

aReturn[1][1] += "Estepe - O bem não possui estepe cadastrado em sua estrutura. É necessário realizar o ajuste do veículo para incluir um abastecimento."
aadd(aReturn[2],{.F., " ZZ"}) // Adiciona ao vetor valor falso e código do erro (genérico)

Endif

Return aReturn

Português(Brasil)

Todas

Todos

Todas

PARAMIXB[1] - Código do Bem
PARAMIXB[2] - Filial do Bem
PARAMIXB[3] - Data do Abastecimento
PARAMIXB[4] - Hora do Abastecimento
PARAMIXB[5] - Array com validações padrão :
[1] - cMensagem (Mensagem de divergência no abastecimento.)
[2][1] - {lEsquema (Valor que indica validação de esquema padrão) , código do erro para importação }
[2][2] - {lEstrutura (Valor que indica validação de estrutura padrão), código do erro para importação }
[2][3] - {lManutPad (Valor que indica manutenção padrão) , código do erro para importação }
[2][4] - {lManut (Valor que indica manutenção), código do erro para importação }

Array com validações padrão :

[1] - cMensagem (Mensagem de divergência no abastecimento.)
[2][1] - {lEsquema (Valor que indica validação de esquema padrão) , código do erro para importação }
[2][2] - {lEstrutura (Valor que indica validação de estrutura padrão), código do erro para importação }
[2][3] - {lManutPad (Valor que indica manutenção padrão) , código do erro para importação }
[2][4] - {lManut (Valor que indica manutenção), código do erro para importação }

 Obs.: Caso existam mais validações, deverão ser adicionadas de acordo com o exemplo.

MNTA659