Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada executado logo após a gravação de um abastecimento na rotina de Consistência

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

MNTA6351

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 após a gravação de cada abastecimento na rotina de Consistência de Abastecimento (MNTA635)

Programa Fonte:

MNTA635.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Consistência de Abastecimento

Função:

MNTA6351()
Parâmetros:
ParâmetroTipoDescrição
ParamIXB[1]NuméricoNúmero do registro da tabela TQN (recno). Ex.: 633052
ParamIXB[2]StringFilial do abastecimento. Ex.: 'M RJ 01'
ParamIXB[3]StringFilial do veículo. Ex.: 'M RJ '
ParamIXB[4]Array

Informações referente ao abastecimento gravado. Para consistência de abastecimento são utilizadas informações da tabela TR6 e para reprocessamento são utilizadas as informações da TQQ. A seguir os campos utilizados para a estrutura do array:

PosiçãoTabela TR6Tabela TQQ
1TR6_NUMABATQQ_NABAST
2TR6_PLACATQQ_PLACA
3

TR6_TIPCOM

TQQ_CODCOM
4TR6_CNPJTQQ_CNPJ
5TR6_CPFMOTTQQ_CODMOT
6TR6_KMABASTQQ_HODOM
7TR6_QTDCOMTQQ_QUANT
8TR6_VLCOMBTQQ_VALUNI
9TR6_VLTOTTQQ_VALTOT
10TR6_DTABASTQQ_DTABAS
11TR6_HRABASTQQ_HRABAS
12TR6_NABANTTQQ_NABAAN
13
TQQ_ERROVA
14TR6_TANQUETQQ_TANQUE
15TR6_BOMBATQQ_BOMBA
16TR6_POSCO2TQQ_POSCO2
17TR6_EMPORITQQ_EMPORI
18TR6_FILORITQQ_FILORI
19TR6_EMPDESTQQ_EMPDES
20TR6_FILDESTQQ_FILDES
21TR6_POSDESTQQ_POSDES
22TR6_LOJDESTQQ_LOJDES
23TR6_TANDESTQQ_TANDES
24TR6_MOTTRATQQ_MOTTRA
25TR6_POSTOTQQ_POSTO
26TR6_LOJATQQ_LOJA
27TR6_OBSERVTQQ_OBSERV
28TR6_CONVENTQQ_CONVEN
29NilTQQ_FILIAL

Adicional, sempre na última posição do array

Array de campos customizados passados pelo ponto de entrada MNTA6353 caso exista.Array de campos customizados passados pelo ponto de entrada MNTA6602 caso exista.

Retorno:

Nulo
Exemplo do Ponto de Entrada MNTA6351()
#Include 'Protheus.ch'

User Function MNTA6351()

    Local aParam  := Paramixb
    Local cMsg    := 'Ponto de entrada MNTA6351 executado com sucesso.' + CRLF

    cMsg +=  'Cadastro TQN   : ' + cValtochar( aParam[1] ) + CRLF
    cMsg +=  'Filial Abastec.: ' + aParam[2] + CRLF
    cMsg +=  'Filial ST9     : ' + aParam[3] + CRLF
    cMsg +=  'Placa          : ' + aParam[4,2]  

    MsgInfo( cMsg, 'Atenção')

Return Nil