Histórico da Página

(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

(Obrigatório)

Objetivo

Realizar manutenção na funcionalidade de equipamento da frota com o objetivo de acrescentar mais informações na mensagem xlm disponibilizadas para os clientes.

(Obrigatório)

Definição da Regra de Negócio

Realizar manutenção na funcionalidade de equipamento da frota com o objetivo de acrescentar mais informações na mensagem xlm disponibilizadas para os clientes.

Essa informação a ser adicionada adicional é referente a ultima última data de cadastro do último registro existente no folder "Hist.Estabel" do cadastro de equipamento (AB0138).

Exemplo de Aplicação:

• Adicionar o campo da data do último histórico do equipamento. 

Tabelas Utilizadas

• mab-histor-ativid – Histórico Grupo Atividade Equipamento;
• mab-eqpto – Equipamentos Frota.

Equipamento Frota (AB0138):

Esta funcionalidade tem o objetivo Cadastrar de cadastrar os equipamentos que serão controlados no sistema de manutenção de frota.

Ao criar, copiar ou

alterar um equipamento (AB0138A) ou Histórico Estabelecimento (AB0138D) é gerado uma mensagem xlm com informação do equipamento em questão.

Será necessário adicionar uma nova "TAQTAG" na mensagem xlm, onde irá receber o conteúdo o va ultima conteúdo a data de cadastro do último registro existente no folder "Hist.Estabel" do cadastro de equipamento (AB0138).

Informações referente a nova tag: 

Código: 56

Descrição: Exibe Mensagem de Advertência Campo Causa (AB0302)

Valor Inicial: Sim

Help: No AB0302 (Óleo/Filtro) quando o evento informado em tela for igual ao evento padrão (Parâmetro 18 – Evento Remonta Óleo) cadastrado na funcionalidade Parâmetros de Frota (AB0101), será exibida uma mensagem de alerta, informando a importância do preenchimento do campo CAUSA, para uma futura rastreabilidade da causa de uma remonta de óleo.

 SiteHistoryDate

Tipo: xs:date

Formato: "AAAA-MM-DD"

Help: Informar a Data do Cadastro do histórico de estabelecimento e atividade do equipamento (Uso interno: campo =  mgfro.mab-histor-ativid.dat-cadastro)

Posição: Deverá ser adicionado depois da tag "Documents".

  Dicas para realizar a manutenção no AB0302C: 

Nota: Durante o desenvolvimento desta especificação poderão ser utilizadas lógicas diferentes das existentes neste documento, pois as mesmas são sugestões para auxiliar o desenvolvedor, no entanto, deverão ser utilizadas as lógicas necessárias para que o objetivo desta engenharia seja alcançado.

Dicas para

realizar a manutenção dos objetos "axsmf001.p" e "axsmf009.p": 

• Os adapters se encontro no TFS dentro do EMS2 na pasta adapters\xml\mn2;
  
  
• Exemplo de código para buscar a última data do histórico:

DEFINE VARIABLE cBackupFormat AS CHARACTER NO-UNDO.

/*busca pelo último histórico da atividade do Equipamento*/
for last mab-histor-ativid fields (ep-codigo cod-eqpto dat-cadastro cod-ativid)

where mab-histor-ativid.ep-codigo = tt-eqpto.ep-codigo
and mab-histor-ativid.cod-eqpto = tt-eqpto.cod-eqpto
and mab-histor-ativid.dat-cadastro <= today no-lock:

ASSIGN cBackupFormat = SESSION:DATE-FORMAT.
ASSIGN SESSION:DATE-FORMAT = "ymd".

RUN addNodeDate IN hGenXml (iFirstId, "SiteHistoryDate", d-data-eqpto, OUTPUT iId).

ASSIGN SESSION:DATE-FORMAT = cBackupFormat.

Dicas para realizar a manutenção dos objetos "Equipments_204_000.xsd" e "Equipments5_505_000.xsd": 

• Os adapters se encontro no TFS dentro do EMS2 na pasta xmlschema\mn2;
  
  

• Adicionar a tag "SiteHistoryDate", segue detalhes da tag:
  Código: SiteHistoryDate

  Tipo: xs:date

  Formato: "AAAA-MM-DD"

  Help: Informar a Data do Cadastro do histórico de estabelecimento e atividade do equipamento (Uso interno: campo =  mgfro.mab-histor-ativid.dat-cadastro)

  Posição: Deverá ser adicionado depois da tag "Documents".

FOR FIRST mab-param WHERE mab-param.cdn-param = 56 NO-LOCK:

END.

IF  AVAIL mab-param THEN DO:

IF  mab-param.des-valor = "1" THEN DO:

FIND FIRST mab-param WHERE mab-param.cdn-param = 18 NO-LOCK NO-ERROR.

IF AVAIL mab-param AND mab-param.des-valor = {&ttTable}.cod-evento:SCREEN-VALUE IN FRAME fPage1 THEN DO:

IF {&ttTable}.cod-causa :SCREEN-VALUE IN FRAME fPage1 = "" THEN DO:

IF  l-msg-evento = YES THEN

RUN utp/ut-msgs.p (INPUT 'SHOW':U,
INPUT 54033,
INPUT RETURN-VALUE).

END.

END.

END.

END.

END.

END.

ELSE DO:

         /*

          Nesse ponto deverá ser codificado para criar o parâmetro 56 com o Valor inicial igual a "Sim"

           A tabela de parâmetros é "mab-param". Ver exemplo de criação da "mab-param" no ab0101a.p

         */

END.

Programas Auxiliares Utilizados para teste: 

• AB0138 - Cadastro de Equipamento;AB0302 - Apontamento Abastecimento/Lubrificação.
  

• :

Ao criar ou copiar um equipamento (AB0138A) ou Histórico Estabelecimento (AB0138D) é gerado uma mensagem xlm com informação do equipamento em questão.

• • Adicionar, Alterar ou Copiar um Equipamento (AB0138A);
  • Adicionar, Alterar ou Copiar um Histórico Estabelecimento (Folder "Hist.Estabel) (AB0138D).
• Monitor de Integração - EAI (para executar direto, deve ser "Ctrl+Alt+x" e digitar queue_monitor): Nessa funcionalidade irá exibir a mensagem criada "Equipments".

Informação para o Help on-line: Não se aplica.