ER_Tratar_atributo_origem_produto

Informações Gerais

Objetivo

Para a integração do WMS Logix com o ERP Protheus foi necessária a criação de um novo campo associado ao cadastro do produto: Origem.

A indicação desta nova informação foi prevista apenas no cadastro de item (rotinas MAN9922 e MAN10021), porém para que a solução fique completa é necessário tratar o recebimento desta informação no EDI de produtos.

Como a origem do produto no cadastro do backoffice Protheus é tipo char(02) e inicialmente estes valores foram fixados em 0, 1 ou 2 no WMS6571, o campo deverá ser alterado para char(02) e  não devem ser feitas consistências, para que não haja incompatibilidade na integração.

Definição da Regra de Negócio

Criar o atributo Origem no EDI de produtos e efetuar os respectivos tratamentos na rotina de processamento de EDI de produtos.

EDIR2 - Atualização das tabelas do EDI

Deverá ser criado um novo atributo para o EDI de cadastro de produtos, referente ao campo "Origem" já existente na tela do WMS6571.

A alteração deverá ser feita na função edir2_atualiza_edi_lista_atrib_tip_processo_aux():

• Após a linha abaixo deverá ser incluído o comando para a criação do novo atributo.

  IF NOT edir2_edi_lista_atrib_tip_processo_inclui(l_modo_exibicao_msg, 'RECEBIMENTO CADASTRO PRODUTOS','SITUACAO','item','PRODUTO','ies_situacao','N',NULL,NULL,'edi0010_valida_situacao',NULL) THEN
  END IF

• Novo atributo:
  IF NOT edir2_edi_lista_atrib_tip_processo_inclui(l_modo_exibicao_msg, 'RECEBIMENTO CADASTRO PRODUTOS','ORIGEM','man_inf_com_item','PRODUTO','informacao_compl','N',NULL,NULL,'edi0010_valida_origem',NULL) THEN
  RETURN FALSE
  END IF

EDI0010 - Cadastro de produtos

• No início da função deverá ser criada uma varável modular M_ORIGEM tipo char(02) que irá receber o valor do atributo Origem. Está variável deverá ser inicializada com nulo na função edi0010_item_set_default()
• Criar a função edi0010_valida_origem().
  • Seguir os moldes das demais funções de validação, edi0010_valida_qtd_caixa_lastro().
  • Após a chamada da função edi0009_retorna_conteudo não é necessário testar valor negativo.
  • Se o conteúdo for válido deverá ser armazenado na variável M_ORIGEM.
    
    
• Alterar a função edi0010_insert_item_sup_compl().
  • No final da função deverá ser criada uma lógica adicional para a inclusão do novo parâmetro.
  • Deverá testar se l_sucesso_operacao igual a True, se for False não deverá fazer o tratamento do atributo, pois já ocorreu algum erro no processo.
  • Somente deverá ser incluído o parâmetro se o valor de m_origem for diferente de nulo ou branco.
  • Se a operação for "I" deverá fazer insert na tabela man_inf_com_item, o valor do campo m_origem deverá ser gravado no campo val_texto
    INSERT INTO man_inf_com_item VALUES(mr_item_sup_compl.cod_empresa, mr_item_sup_compl.cod_item,'integra_origem','Integração do campo origem Logix x Protheus',NULL,m_origem, NULL,NULL,NULL,NULL)
  • Se a operação for de alteração, deverá fazer um select para verificar se o registro existe na tabela e posteriormente o update do registro do atributo na man_inf_com_item.
  • Caso não exista o registro deverá efetuar o insert.
  • Caso ocorra algum erro de SQL deverá ser feito os mesmos tratamentos de erro nos SQLs já existentes na função, apenas adaptando as mensagens para o atributo em questão.

WMS6571 - Item WMS - Integrações 

Alteração de tela. Deverá alterar o tipo do campo Origem para Char(02) sem a opção Radio, pois este campo poderá receber qualquer valor.

Alterar rotina de leitura, inclusão e alteração para que o valor seja gravado no campo val_texto da tabela man_inf_com_item.

Como podem já existir registros para este parâmetro na tabela, ao iniciar o WMS6571 deverá executar o update abaixo, para atualizar o que estava gravado no Val_flag para o  val_texto.

Update man_inf_com_item

set val_texto = val_flag,

val_flag = null

where empresa = p_cod_empresa

and informacao_compl = 'integra_origem'

and ( val_flag <>  null AND val_flag <> ' ' )

MANR100

1. Alterar a função manr100_leitura_origem(). No select deverá buscar o valor o origem do campo val_texto.

Tabelas Utilizadas

• man_inf_com_item
• edi_lista_atrib_tip_processo