Linha Microsiga Protheus

Árvore de páginas

Define se deverá gravar inconsistências do abastecimento

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

MNTA635

Consistência de abastecimento

Issues Relacionadas

DNG-1385

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada executado para cada inconsistência do abastecimento.

Localização:

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

Eventos:

Consistência de Abastecimento (MNTA635)

Programa Fonte:

MNTA635.prx

Função:

MNTA6356()

Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]Array

Contém os dados do abastecimento

NomeTipoDescrição
Array[ 1, 1 ]CarácterNúmero do Abastecimento
Array[ 1, 2 ]CarácterPlaca do Bem

Array[ 1, 3 ]

CarácterTipo de Combustível
Array[ 1, 4 ]CarácterCNPJ do Posto
Array[ 1, 5 ]CarácterMotorista
Array[ 1, 6 ]NuméricoContador
Array[ 1, 7 ]NuméricoQuantidade de Combustível
Array[ 1, 8 ]NuméricoValor Unitário do Combustível
Array[ 1, 9 ]NuméricoValor Total do Combustível
Array[ 1, 10 ]DataData
Array[ 1, 11 ]CarácterHora
Array[ 1, 12 ]CarácterNúmero do Abastecimento Anterior
Array[ 1, 13 ]CarácterErro
Array[ 1, 14 ]
CarácterTanque
Array[ 1, 15 ]CarácterBomba
Array[ 1, 16 ]NuméricoContador 2
Array[ 1, 17 ]CarácterEmpresa Origem
Array[ 1, 18 ]CarácterFilial Origem
Array[ 1, 19 ]CarácterEmpresa Destino
Array[ 1, 20 ]CarácterFilial Destino
Array[ 1, 21 ]CarácterPosto Destino
Array[ 1, 22 ]CarácterLoja Destino
Array[ 1, 23 ]CarácterTanque Destino
Array[ 1, 24 ]CarácterMotivo da Transferência
Array[ 1, 25 ]CarácterPosto
Array[ 1, 26 ]CarácterLoja
Array[ 1, 27 ]CarácterObservação
Array[ 1, 28 ]CarácterConvênio
Sim
PARAMIXB[2]CarácterCódigo da inconsistência encontrada na importação.Sim
Retorno:
NomeTipoDescriçãoObrigatório
lRecordLógicoDefine se a inconsistência será gravada.Sim

 

Exemplo
#Include 'Totvs.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA6356
Valida gravação da inconsistência do abastecimento

@author  NG Informática
@since   27/02/19
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA6356()

    Local lRecord    := .T.         // Define se grava inconsistência encontrado.
    Local aSupplyDat := PARAMIXB[1] // Dados do abastecimento.
    Local cCodError  := PARAMIXB[2] // Código da inconsistência encontrada pelo sistema.

    If AllTrim( cCodError ) == '05' // Veiculo nao cadastrado
        MsgInfo('Desconsiderado Código de inconsistência: ' + cCodError + CRLF + 'Placa: ' + aSupplyDat[ 2 ] + CRLF + ;
                'Data e Hora: ' + cValToChar( aSupplyDat[ 10 ] ) + ' ' + aSupplyDat[ 11 ], 'Atenção!' )
        lRecord := .F. //Não grava o inconsistência.
    EndIf

Return lRecord