Histórico da Página

Informações Gerais

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

Objetivo

 Criar as parametrizações básicas para que, nos processos de recebimento e expedição do WMS, seja possível controlar o IUM - Identificador Único de Medicamentos. Além de criar as funções de integração do WMS Logix com o sistema Neogrid Rastreabilidade, que serão utilizadas nas demais rotinas.

Definição da Regra de Negócio

1. Alterar o WMS6111 - Categorias de Itens onde deverá ser incluído o novo campo conforme protótipo 01.
   Campo "Controla IUM (identificador único de medicamentos) - Tipo Char(01) onde os valores poderão ser "S" para Sim, "N" para Não e deverá ser apresentado como listbox.
   Este campo deverá ser gravado na tabela wms_item_categoria, campo controle_ium.
   
   
2. Alterar o WMS6171 - Item WMS onde deverá ser incluído o novo atributo do item conforme protótipo 02.
   Campo "Controla IUM (identif. único de medicamentos) - Tipo Char(01) onde os valores poderão ser "S" para Sim, "N" para Não, "P" padrão  e deverá ser apresentado como listbox.
   Este campo deverá ser gravado na tabela man_inf_com_item a exemplo do Tipo carga, onde informacao_compl = "wms_controle_ium"; des_inf_com  = "Controla IUM (identif. único de medicamentos)"; val_flag = "P"; "S"; "N"
   Alterar o WMS60023 - Contrato (Outros) onde deverão ser incluídos os novos parâmetros conforme protótipo 03.
   Campo "Sistema de integração rastreabilidade" tipo listBox com valor 1 = NeoGrid Rastreabilidade. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "sist_rastreabilidade";
   5. val_texto = "Sistema de integração rastreabilidade";
   6. val_flag = "1"
   7. contrato = contrato ativo.
   Campo "Caminho de envio dos arquivos (OUT)" tipo text. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "rastrea_dir_envio";
   5. val_texto = "Diretório de envio dos arquivos rastreabilidade (OUT)";
   6. val_flag = "1"
   7. contrato = contrato ativo.
   Campo "Caminho de recebimento dos arquivos (IN)" tipo text. Será gravado na tabela wms_parametro_complementar com os seguintes valores:Um item não poderá ser marcado como controle de IUM e tipo carga granel ao mesmo tempo. Deverá ser feita consistência para que o item tenha apenas um dos controles. Caso o campo de controle seja padrão, deverá ser verificado em conjunto a categoria do item para que não permita que um item de uma categoria com controle de IUM seja também marcado com tipo de carga Granel.
   
   
3. Altarar a função WMS0004. 
   Criar uma função chamada wms0004_item_controle_ium(), está função verificará se o item tem controle de IUM.
   Receberá os parâmetros: empresa, depositante, item e modo de exibição;
   Retornará dois status, o primeiro indica se a execução foi realizada com sucesso e o segundo indica se o item controla IUM.
   Para efetuar a verificação, primeiramente deverá ser efetuado o select na tabela man_inf_com_item  buscando o VAL_FLAG por empresa, codigo do item e informação complementar igual a "wms_controle_ium".
   Se não encontrar registro significa que o item não tem controle de IUM e deve retornar True, False.
   Se ocorreu algum erro de SQL diferente de NOTFOUND, deve exibir mensagem de erro e retornar False, False.
   Se encontrou registro, deverá verificar o valor de VAL_FLAG
   1. Se "S" indica que controla IUM, então retorna True, True;
   2. Se "N" indica que não controla, então retorna True, False;

   3. Se for "P", é o padrão da categoria do item, então deverá verificar buscando o valor do campo controle_ium da categoria do item na tabela wms_item_categoria.

      SELECT a.controle_ium
      FROM wms_item_complemento a,
      wms_item_categoria b
      WHERE a.empresa = l_empresa
      AND a.empresa = b.empresa
      AND a.cat_item = b.cat_item
      AND a.item = '0004'
      AND (( b.abrang = 'D'
      AND b.empresa_deposit = '948632')
      OR ( b.abrang = 'E'
      AND b.empresa_deposit = 'AV'))

      
      
      1. Se o valor do campo acima for nulo ou "N", então retorna True, False;
      2. Se o valor for "S" retorna True, True;
      3. Se ocorrer erro de SQL deve exibir a mensagem de erro e retornar False, False.
         
         
4. Alterar o WMS60023 - Contrato (Outros) onde deverão ser incluídos os novos parâmetros conforme protótipo 03.
   Campo "Sistema de integração rastreabilidade" tipo listBox com valor 1 = NeoGrid Rastreabilidade. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "sist_rastreabilidade";
   5. val_texto = "Sistema de integração rastreabilidade";
   6. val_flag = "1"
   7. contrato = contrato ativo.
      
      
   Campo "Caminho de envio dos arquivos (OUT)" tipo text. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "rastrea_dir_envio";
   5. val_texto = "Diretório de envio dos arquivos rastreabilidade (OUT)";
   6. val_flag = "1"
   7. contrato = contrato ativo.
      
      
   Campo "Caminho de recebimento dos arquivos (IN)" tipo text. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "rastrea_dir_receb";
   5. val_texto = "Diretório de recebimento dos arquivos rastreabilidade (IN)";
   6. val_flag = "1"
   7. contrato = contrato ativo.
      
      
   Campo "E-mail responsável integração rastreabilidade" tipo text. Será gravado na tabela wms_parametro_complementar com os seguintes valores:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "email_resp_rastreab";
   5. val_texto = "E-mail responsável integração rastreabilidade";
   6. val_flag = "1"
   7. contrato = contrato ativo.
   
   
   
5. Criar função wmsr128.4gl - Funções rastreabilidade que conterá as funções  abaixo:
   1. empresa = p_cod_empresa;
   2. trans_parametro = sequencial da tabela;
   3. depositante = depositante do contrato;
   4. nom_parametro = "rastrea_dir_receb";
   5. val_texto = "Diretório de recebimento dos arquivos rastreabilidade (IN)";
   6. val_flag = "1"
   contrato = contrato ativo.
   Criar função wmsr128_envia_evento_movimentacao().
   

   Está função irá gerar arquivos do tipo Registro de Eventos (JSON padrão NeoGrid)

   1. Receberá os parâmetros: empresa, evento, cesv_docum, solicitacao_carga
      Evento corresponde ao código do evento de rastreabilidade de acordo com o manual de integração NeoGrid.
   Quando for processo de recebimento deverá seguir os passos a seguir:
   2. Se for operador logístico e a nota não estiver marcada como devolução = 3002 (recebimento em transferência), ou;
   3. Se estiver marcado como devolução = 3004 (recebimento em devolução);
   4. Se for indústria e a nota não estiver marcada como devolução = 3001 (compra), ou;
   5. Se estiver marcado como devolução = 3004 (recebimento em devolução);
   Criar cursor da tabela wms_checkin_ium filtrando por empresa e cesv_docum. 
   SELECT ium.ium_agregadora AS trackableItemId,
                   ium.ctr_ent_sai_veic_docum, 
                  
   6. wmsr128_envia_evento_movimentacao().
      

      Está função irá gerar arquivos do tipo Registro de Eventos (JSON padrão NeoGrid)

      1. 1. Receberá os parâmetros: empresa, evento, cesv_docum, solicitacao_carga, modo de exibição. Onde o evento poderá ser: 1 - Check-in, ou 2 - Check-out.
         2. Buscar parâmetro que indica se empresa é operador logístico ou indústria.
         3. Quando o evento for check-in deverá seguir os passos a seguir:
            1. Buscar informação de nota de devolução conforme abaixo:

            2. SELECT DISTINCT(1) 
               FROM wms_cesv_docum_nota_fiscal cesv,
               nf_sup nf
               WHERE cesv.empresa= l_empresa
               AND cesv.ctr_ent_sai_veic_docum = l_cesv_docum
               AND cesv.devolucao = 'S'
               AND cesv.empresa = nf.cod_empresa
               AND cesv.nota_fiscal = nf.num_nf
               AND cesv.serie_nota_fiscal = nf.ser_nf
               AND cesv.subserie_nota_fiscal = nf.ssr_nf
               AND cesv.emitente_nota_fiscal= nf.cod_fornecedor

               
               Se ocorrer erro de SQL exibir mensagem de erro e retornar falso.

            3. Se for operador logístico e a nota não estiver marcada como devolução, o evento será '3002' (recebimento em transferência);
            4. Se estiver marcado como devolução o eventro será igual a '3004' (recebimento em devolução);
            5. Se for indústria e a nota não estiver marcada como devolução será o evento '3001' (compra), ou, se estiver marcado como devolução evento igual a  '3004' (recebimento em devolução);
            6. Criar cursor do select abaixo:
               

               SELECT ium_det.ium_agregadora AS trackableItemId,
               ium.ctr_ent_sai_veic_docum,
               transp.num_cgc_cpf AS byUniversalCompanyId,
               depos.num_cgc_cpf AS fromUniversalCompanyId,
               nf.num_nf AS invoice_id_nf,
               par.parametro_texto AS invoice_id
               FROM wms_ium_movimentacao ium,
               INNER JOIN wms_ium_movimentacao_detalhe ium_det
               ON ium.empresa = ium_det.empresa
               AND ium.transacao_ium_movimento = ium_det.transacao_ium_movimento
               INNER JOIN nf_sup nf
               ON nf.cod_empresa = ium.empresa
               AND ium.aviso_recebto = nf.num_aviso_rec
               INNER JOIN clientes transp
               ON transp.cod_cliente = nf.cod_transpor
               INNER JOIN clientes depos
               ON depos.cod_cliente = nf.cod_fornecedor
               left JOIN sup_par_ar par
               ON par.empresa = id_conf.empresa
               AND par.aviso_recebto = ium.aviso_recebto
               AND par.parametro = 'chav_aces_nf_eletr'
               WHERE ium.empresa = l_empresa
               AND ium.cesv_docum = l_cesv_docum
               ORDER BY invoice_id_nf, trackableItemId

               
               Não será necessário criar controle para quebra de documentos, pois uma CESV poderá ter apenas um documento relacionado. Deverá ser criado um documento por CESV/nota fiscal.
               O arquivo deverá seguir o layout Neogrid anexo e deverá ser criado na pasta out configurada no contrato e ter o nome composto por: “[Tipo do Documento]_[Timestamp]_[Número sequencial].json”. Além disso o arquivo deverá ser no formato UTF-8 (utilizar o LOG_encodeUTF8(l_texto)).
               1. [Tipo de Documento] é o código do tipo de documento, cada evento terá um tipo de documento. 
               2. [Timestamp] é a data e hora no formato “yyyyMMddHHmmssSSS” 
               3. [Número sequencial] é um número sequencial de quatro dígitos que deverá ser controlado na tabela wms_parametro_complementar
               4. Exemplo de nome de arquivo para um evento de Compra (check in): “901_20150703154700123_0001.json”
         4. Quando for expedição:
            1. Se for operador logístico o código do evento será '4002' (entrega em transferência); ou, se for indústria será '4001' (venda).
            2. Criar cursor a partir do select abaixo:
               

               SELECT ium.ium_agregadora,
               sc.transportador,
               pl.transportador,
               sc.nota_fiscal, 
               

   7. 1. 1. 1. transp.num_cgc_cpf AS byUniversalCompanyId,
               

                  

   8. 1. 1. 1. depos.num_cgc_cpf AS fromUniversalCompanyId,
               

                   nf

   9. 1. 1. 1. sc.destinatario,
               cli.num_

   nf AS invoice_id_nf, 
                   par.parametrowms

   10. 1. 1. 1. cgc_cpf AS toUniversalCompanyId, 
                par.val_texto AS invoice_id 
                

      FROM

   11. 1. 1. 1. FROM wms_

   checkin

   12. 1. 1. 1. checkout_ium

   ium
      ON ium.empresa = id_conf.empresa
      AND ium.cesv_docum = id_conf.ctr_ent_sai_veic_docum 
      INNER JOIN nf_sup nf
      ON nf.cod_empresa = ium.empresa
      AND ium.aviso_recebto = nf.num_aviso_rec
      INNER JOIN clientes transp
      ON transp.cod_cliente = nf.cod_transpor
      INNER JOIN clientes depos
      ON depos.cod_cliente = nf.cod_fornecedor
      left JOIN sup_par_ar par
      ON par.empresa = id_conf.empresa
      AND par.aviso_recebto = ium.aviso_recebto 
      AND par.parametro = 'chav_aces_nf_eletr'
      WHERE ium.empresa = l_empresa
            AND ium.cesv_docum = l_cesv_docum
   ORDER BY 1, 2
   
   13. Para cada IUM ou agregadora informada na conferência do recebimento, deverá ser criado um arquivo seguindo o layout da NeoGrid.
       O arquivo deverá ser criado na pasta out configurada no contrato e ter o nome composto por: “[Tipo do Documento]_[Timestamp]_[Número sequencial].json”. Além disso o arquivo deverá ser no formato UTF-8 (utilizar o LOG_encodeUTF8(l_texto)).
       1. [Tipo de Documento] é o código do tipo de documento, cada evento terá um tipo de documento. 
       2. [Timestamp] é a data e hora no formato “yyyyMMddHHmmssSSS” 
       3. [Número sequencial] é um número sequencial de quatro dígitos que deverá ser controlado na tabela wms_parametro_complementar
       4. Exemplo de nome de arquivo para um evento de Compra (check in): “901_20150703154700123_0001.json”
   14. Quando for expedição:
       1. Se for operador logístico enviar 4002 (entrega em transferência);
       2. Se for indústria enviar 4001 (venda).
       3. Criar cursor a partir do select abaixo:

   SELECT ium.ium_agregadora,
   sc.transportador,
   pl.transportador,
   sc.nota_fiscal, 
   transp.num_cgc_cpf AS byUniversalCompanyId,
   depos.num_cgc_cpf AS fromUniversalCompanyId,
   sc.destinatario,
   cli.num_cgc_cpf AS toUniversalCompanyId, 
   par.val_texto AS invoice_id 
   FROM wms_checkout_ium ium 
   INNER JOIN wms_solicitacao_carga_mestre sc
   ON ium.empresa = sc.empresa
   AND ium.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
   -- Busca chave acesso
   INNER JOIN wms_parametro_complementar par
   ON par.empresa = sc.empresa
   AND par.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
   AND par.nom_parametro = 'chave_acesso_nfe'
   -- Busca cliente 
   INNER JOIN clientes cli
   ON cli.cod_cliente = sc.destinatario
   -- busca cnpj depositante
   INNER JOIN clientes depos
   ON depos.cod_cliente = sc.deposit
   -- relaciona com o planejto embarque solic carga
   INNER JOIN wms_plnjt_embq_solic_carga emb
   ON emb.empresa = sc.empresa 
   AND emb.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
   --relaciona com o plano embarque para buscar o transportador
   INNER JOIN wms_planejto_embarq pl
   ON pl.empresa = emb.empresa
   AND pl.planejto_embarq = emb.planejto_embarq

   INNER JOIN clientes transp
   ON pl.transportador = transp.cod_cliente 
   WHERE sc.empresa = p_cod_empresa
   AND ium.trans_solicitacao_carga_mestre = l_solic_carga
   ORDER BY 1, 2

    

   7. Criar função wmsr128_envia_evento_agregacao()
      Está função irá gerar arquivos do tipo Agregação (JSON padrão NeoGrid) seguindo o layout que contas no manual.
      Carregar informações geradas na tabela wms_agregacao_ium utilizando como filtro:
      
6. Empresa;
7. Etiqueta agrupadora;
sit_integração igual 1 - pendente;
Caso o arquivo tenha sido gerado com sucesso deverá atualizar o registro da tabela wms_agregacao_ium, atualizar o campo sit_integracao para 3 (arquivo enviado) e dat_hora_integracao para data/hora atual.


1. 1. 1. 1. 1. ium 
               INNER JOIN wms_solicitacao_carga_mestre sc
               ON ium.empresa = sc.empresa
               AND ium.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
               -- Busca chave acesso
               INNER JOIN wms_parametro_complementar par
               ON par.empresa = sc.empresa
               AND par.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
               AND par.nom_parametro = 'chave_acesso_nfe'
               -- Busca cliente 
               INNER JOIN clientes cli
               ON cli.cod_cliente = sc.destinatario
               -- busca cnpj depositante
               INNER JOIN clientes depos
               ON depos.cod_cliente = sc.deposit
               -- relaciona com o planejto embarque solic carga
               INNER JOIN wms_plnjt_embq_solic_carga emb
               ON emb.empresa = sc.empresa 
               AND emb.trans_solicitacao_carga_mestre = sc.trans_solicitacao_carga_mestre 
               --relaciona com o plano embarque para buscar o transportador
               INNER JOIN wms_planejto_embarq pl
               ON pl.empresa = emb.empresa
               AND pl.planejto_embarq = emb.planejto_embarq

               INNER JOIN clientes transp
               ON pl.transportador = transp.cod_cliente 
               WHERE sc.empresa = p_cod_empresa
               AND ium.trans_solicitacao_carga_mestre = l_solic_carga
               ORDER BY 1, 2

            2. Deverá ser criado um controle de quebra de notas fiscais, pois para cada nota deverá ser gerada um arquivo listando todas IUMs relacionadas.
            3. Os arquivos deverão ser gerados seguindo as mesmas regras dos arquivos de recebimento descrita acima.
               
               
      Ao final da geração do arquivo e gravação no diretório de envio deverá ser gravado um registro na tabela wms_integracao_ium com situação "Arquivo enviado"
      
      
   2. Criar função wmsr128_envia_evento_agregacao()
      Está função irá gerar arquivos do tipo Agregação (JSON padrão NeoGrid) seguindo o layout que contas no manual.
      1. Carregar informações geradas na tabela wms_agregacao_ium utilizando como filtro:
         
       
      • Empresa;
      • Etiqueta agrupadora;
      • sit_integração igual 1 - pendente;
      Caso o arquivo tenha sido gerado com sucesso deverá atualizar o registro da tabela wms_agregacao_ium, atualizar o campo sit_integracao para 3 (arquivo enviado) e dat_hora_integracao para data/hora atual.
      
      
   3. Criar função wmsr128_get_unix_timestamp()
      

      Está função deverá pegar a data atual do sistema e convertê-la no formato UnixEpochTime.

      Para isso deverá executar o comando select conforme o banco utilizado:

      1. Oracle 

      SELECT (SYSDATE - TO_DATE('01/01/1970 00:00:00', 'MM-DD-YYYY HH24:MI:SS')) * 24 * 60 * 60 FROM DUAL

      2. IBM Informix

      SELECT dbinfo('data hora corrente') FROM sysmaster:sysdual;

      3. SQL Server

      SELECT DATEDIFF(s, '1970-01-01 00:00:00', 'data hora corrente')

      
      Fonte:  http://www.epochconverter.com
      
      
   4. Criar função wmsr128_ium_ativa()
      Está função deverá verificar se uma IUM está ativa no operador logístico.
      Deverá receber como parâmetros: empresa, depositante, ium/agregadora e modo de exibição.
      Deverá retornar status de execução, status da IUM (A - Ativa, I - Inativa, N - não cadastrada), nota fiscal e cesv caso esteja ativa.

      Select distinct sit_ium, nota_fiscal, cesv_docum 

      from wms_checkin_ium

      where empresa = empresa recebida

      and ium_agregadora = ium recebida

      and depositante = depositante recebido

Tabelas Utilizadas

• wms_ium_agregadora
• wms_checkin_ium
• wms_checkout_ium
• wms_agregacao_ium
• wms_integracao_ium

Protótipo de Tela

Protótipo 01

Image Added

Protótipo 02

Image Added

Protótipo 03

Image Added

Dicionário de Dados

Está função deverá pegar a data atual do sistema e convertê-la no formato UnixEpochTime.

Para isso deverá executar o comando select conforme o banco utilizado:

1. Oracle 

SELECT (SYSDATE - TO_DATE('01/01/1970 00:00:00', 'MM-DD-YYYY HH24:MI:SS')) * 24 * 60 * 60 FROM DUAL

2. IBM Informix

SELECT dbinfo('data hora corrente') FROM sysmaster:sysdual;

3. SQL Server

SELECT DATEDIFF(s, '1970-01-01 00:00:00', 'data hora corrente')

Tabelas Utilizadas

• wms_ium_agregadora
• wms_checkin_ium
• wms_checkout_ium
• wms_agregacao_ium

Protótipo de Tela

Protótipo 01

Image Removed

Protótipo 02

Image Removed

Protótipo 03

Image Removed

Dicionário de Dados