Histórico da Página
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
|---|
(Obrigatório)
Informações Gerais
Especificação | |||
Produto | Logix | Módulo | Materiais |
Segmento Executor | Materiais | ||
Projeto1 | MANMAT01 | IRM1 | MANMAT01-300 |
Requisito1 | MANMAT01-900 | Subtarefa1 |
|
Chamado2 |
| ||
País | (X ) Brasil ( ) Argentina ( ) Mexico ( ) Chile ( ) Paraguai ( ) Equador ( ) USA ( ) Colombia ( ) Outro _____________. | ||
Outros | <Caso necessário informe outras referências que sejam pertinentes a esta especificação. Exemplo: links de outros documentos ou subtarefas relacionadas>. | ||
Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos).
(Obrigatório)
Objetivo
Permitir que seja integrado
as ordens que geram pedidos com a Trade-easy, não sendo mais gerados pedidos que tenham contrato pelo Logix e sim enviados a Trade para serem gerados.no Trade-Easy, as ordens de compras via SUP4330/SUP22104, provenientes de contrato fechado com Fornecedor estrangeiro. Desta forma apenas ordens de compra que passaram pelo split, e seus itens possuirem contrato de fornecimento fechado com fornecedor estrangeiro, deverão ser enviados para Trade-Easy incluir o pedido de compra, sem a necessidade de enviar a ordem de compra pelo SUP34093. Assim a cotação será considerada de acordo com o percentual de participação realizado no contrato fechado.
<Nesta etapa informar o objetivo da especificação do requisito, ou seja, o que a funcionalidade deve fazer.
<Nesta etapa informar o objetivo da especificação do requisito, ou seja, o que a funcionalidade deve fazer. Exemplo: Permitir que o usuário defina o percentual mínimo em espécie (dinheiro), a referência mínima para calculo dos débitos do aluno e o período de validade do parâmetro de negociação>.
(Obrigatório)
Definição da Regra de Negócio
-
Criação de parâmetro para indicar que os pedidos gerados por contrato serão integrados com a Trade-Easy
Sera Será previsto nos programas SUP4330/SUP22104 , de elaboração dos pedidos de compra, para que sejam enviadas as ordens de compra que possuirem fornecedor e número de contaçãocotação, “contrato”, e que estejam com a situação Aberto para a Trade.
Uma vez que as Ordens forem identificadas durante o processamento do SUP4330/SUP22104 elas serão enviadas através do mensagem única request, adapter EAIADAPTERREQUEST1.
Sendo as ordens enviadas, colocadas como “suspensas”, e sera gravada texto "Enviadas para Trade-Easy", e não poderão ter alteradas o status pelos programas SUP0491/SUP21003.
<Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.
Rotina | Tipo de Operação |
SUP21003 - Ordem de compra | Alteração |
SUP22104 - Elaboração automática de pedidos de compra | Alteração |
SUP0491 - Consulta ordens de compra | Alteração |
| SUP4330 - Elaboração automática de pedidos de compra | Alteração |
| EAIADAPTERREQUEST1 - Adapter Request1 | Alteração |
| SUP10032 - Lib Adapter Request1 | Alteração |
Exemplo de Aplicação:
Criar parâmetro para identificar se os pedidos gerados por contrato serão integrados com a trade –Easy. Usar o log00086, para criar parâmetros, de nome m_trade_int_contrt (trade integra contrato). Que devera por default esta como “N”
Esse parâmetro será associado ao parâmetro PROCESSO ENTRADAS > COMPRAS > GERAIS, Parâmetro: Utiliza integração com o sistema Trade Easy Import? Objetivo: Indica se a integração com o sistema Trade Easy – Import está ou não ativa
OBS: valores aceitos "S" e "N" (Alterar para S para habilitar a integração) , sugestão de nome de variável modular “m_trade_int_contrt”.
O parâmetro "m_trade_int_contrt" deverá ser criado como char(01), default para “N”.
A intenção é que o parâmetro irá considerar os contratos gerados pela Trade, mas para isso deverá verificar se o parâmetro:” Utiliza integração com o sistema Trade Easy Import?” Esteja como "S", caso contrário devera desconsiderar, ira ajustar o parâmetro “m_trade_int_contrt” para “N”, mesmo que tenha sido setado para "S" no LOG000086.
A precedência de funcionamento do parâmetro “m_trade_int_contrt” será sempre o parâmetro “integra_tradeimport”, estando desativado, nulo, ou setado para “N” o parâmetro “m_trade_int_contrt” ira ser setado para “N”.
Criar parâmetro via putty, ou telnet.
Conforme imagens de 01 até 03
Alteração no adapter de envio da mensagem Request para as tags que identificam as Ordens de Compra que teriam o pedido gerado automaticamente pelo Logix (fornecedor, número do contrato, etc.)
No adapter EAIADAPTERREQUEST1, sera feito alteração prevendo o uso das variáveis other addfield, para novas tags, não sendo necessário alterar o HELPER do adapter pois faz parte da função.
TAG:
- Fornecedor
- Moeda
- Número do contrato
Na Lib SUP10032 prever o uso das variáveis conforme imagem 04, passando como parâmetro “FORNECEDOR”, “MOEDA” E “CONTRATO”, lembrar que o campo condição de pagamento existe no adapter, mais não esta ajustado, para uso. Fazer a chamada da função EAIHelperRequest1_set_BusinessContent_PaymentConditionCode, passando a condição de pagamento conforme imagem 05
Tabela de variáveis do adapter EAIADAPTERREQUEST1 com registros enviados para TRADE-EASY
Campo | Tipo | Descrição |
InternalId | Char | InternalId código da empresa mais ordem de compra |
CompanyInternalId | Char | Código da Empresa |
RequestItem_InternalId | Char | Código da empresa/ordem de compra/sequen |
ItemInternalId | Char | Código da empresa/código do item |
ItemCode | char | Código do item |
RequestItem_Text | char | Texto, “Enviadas para Trade-Easy” |
ItemReferenceCode | Char | Referencia do item |
UnitPrice | Decimal | Preço unitário ordem de compra |
TotalPrice | decimal | Valor total compra |
DeliveryDateTime | date | Data de entrega prevista |
CostCenterInternalId | char | Código da empresa/código seção recebedora |
UnitOfMeasureCode | char | Unidade de medida |
RequestItem_Quantity | Decimal | Quantidade solicitada |
PaymentConditionInternalId | char | Condição de pagamento |
ApportionRequestItem_InternalId | Char | Empresa/Ordem compra/cnt deb desp/seção recebedora |
ApportionRequestItem_DepartamentInternalId | char | Empresa/ cod seção recebedora |
ApportionRequestItem_CostCenterInternalId | Char | Empresa /centro de custo |
ApportionRequestItem_AccountantAcountInternalId | char | Empresa /conta debito despesa |
ApportionRequestItem_CostCenterInternalId | Char | Area e linha de negocio |
ApportionRequestItem_AccountantAcountInternalId | Char | Conta debito despesa |
ApportionRequestItem_Percentual | decimal | Percentual participaçao |
ApportionRequestItem_Quantity | decimal | Quantidade de participação |
|
|
|
DeliverySchedule_DeliveryID | Char | Número da programação de entrega |
DeliverySchedule_QuantityRequested | Char | Quantidade solicitada |
DeliverySchedule_EstimatedDeliveryDate | Char | Data de entrega prevista |
deliverySchedule_Observation | Char | Observação de entrega |
|
|
|
ADDFIELD_field | Char | FORNECEDOR |
ADDFIELD_value | Char | Código do fornecedor |
|
|
|
ADDFIELD_field | Char | MOEDA |
ADDFIELD_value | Char | Código da moeda |
|
|
|
ADDFIELD_field | Char | CONTRATO |
ADDFIELD_value | Char | Número do contrato |
|
|
|
A função SUP10032, sera responsável por setar as variáveis da ordem compra, a serem enviadas pelo trade-Easy
O adapter EAIADAPTERREQUEST1, terá que ser alterado para prever o uso dos campos já existentes no HELPER, que ainda não foram setados os valores.
Lembrando que não haverá necessidade de alteração da estrutura do XSD, uma vez que sera utilizado os campos já existentes.
Segue abaixo “modelo” de upsert utilizado para a integração de ordem de compra e que deverá ser adequado para fazer a integração da request:
IF find4glfunction("EAIAdapterRequest1_SendBusinessMessage") THEN
IF SUP10032_ordem_integrada_portal() THEN
CALL EAIMapper_Clear()
CALL EAIMapper_set("ordem_sup.cod_empresa", p_ordem_sup.cod_empresa)
CALL EAIMapper_set("ordem_sup.num_oc", p_ordem_sup.num_oc)
CALL EAIMapper_set("ordem_sup.gru_ctr_desp", p_ordem_sup.gru_ctr_desp)
CALL EAIMapper_set("ordem_sup.cod_item", p_ordem_sup.cod_item)
CALL EAIMapper_set("ordem_sup.pre_unit_oc", p_ordem_sup.pre_unit_oc)
CALL EAIMapper_set("ordem_sup.dat_entrega_prev", p_ordem_sup.dat_entrega_prev)
CALL EAIMapper_set("ordem_sup.cod_secao_receb", p_ordem_sup.cod_secao_receb)
CALL EAIMapper_set("ordem_sup.cod_unid_med", p_ordem_sup.cod_unid_med)
CALL EAIMapper_set("ordem_sup.qtd_solic", p_ordem_sup.qtd_solic)
CALL EAIMapper_set("ordem_sup.cnd_pgto", p_ordem_sup.cnd_pgto)
CALL EAIMapper_set("ordem_sup.fornecedor", p_ordem_sup. fornecedor)
CALL EAIMapper_set("ordem_sup.moeda", p_ordem_sup.moeda)
#Num contação é o número de contrato
CALL EAIMapper_set("ordem_sup.num_contacao", p_ordem_sup. num_contacao)
IF NOT EAIAdapterRequest1_SendBusinessMessage("upsert") THEN
CALL log0030_mensagem("Problemas durante a integração com Trade. " || EAIMapper_getError(1), "exclamation")
LET l_status = FALSE
END IF
END IF
END IF
Caberá ao programa TradeEasy, ao receber um XML da mensagem gerar o pedido ,com base no número de contrato, campo ADDFIELD_field = “CONTRATO”, “FORNECEDOR”, E “MOEDA”
Se houver necessidade de envio de novas informações sera utilizada as tags de ADDFIELD_field e ADDFIELD_value , bem como a validação da viabilidade da regra de negócios
para comprar os novos registros ( se houver necessidade de construir funções para atender os valores solicitados nos novos campos, ocorrendo essa situação sera necessário verificar a demanda de tempo envolvida.)
Alteração na rotina de geração automática de pedidos para Ordens de Compra atendidas por contrato, visando o envio para o Trade-Easy das ordens que comporiam o pedido automático (via mensagem Request, criando solicitações de importação no Trade-Easy), suspensão destas ordens (com motivo "Enviadas para Trade-Easy") e desvio para não gerar o pedido no Logix neste momento.
O programa SUP2430 é responsável pela designação do fornecedor, e do número de cotação (contrato) gerando e atualizando a tabela ordem_sup, não será alterado.
Durante o processamento do programa SUP4330\SUP22104, as ordens que tiverem o fornecedor designado, e o número de contrato gerado, serão desconsideradas no processo de geração automática de pedidos do SUP4330\SUP22104.
No programa SU4330\SUP22104, sera atualizada as ordens de compras que forem enviadas para Trade com sucesso, como “SUSPENSAS”, e não sera permitida fazer manutenção da mesmas nos programa SUP0491\SUP21003
Incluir busca para parâmetro:
INITIALIZE m_trade_int_contrt TO NULL
CALL log2250_busca_parametro(p_cod_empresa,"trade_int_contrt") RETURNING m_trade_int_contrt , l_status
IF l_status = FALSE OR
m_trade_int_contrt IS NULL OR
m_trade_int_contrt = " " THEN
LET m_trade_int_contrt = "N"
END IF
INITIALIZE m_utiliza_easytrade TO NULL
CALL log2250_busca_parametro(p_cod_empresa, "integra_tradeimport") RETURNING m_utiliza_easytrade, l_status
IF NOT l_status OR
m_utiliza_easytrade IS NULL OR
m_utiliza_easytrade = ' ' THEN
LET m_utiliza_easytrade = 'N'
END IF
#Se integração estiver desligada, a integração por contrato devera ser desligada.
IF m_utiliza_easytrade = "N" THEN
LET m_trade_int_contrt = "N"
END IF
Alterar na chamada de função do sup4330, para prever nas duas chamadas para trade Easy a funções abaixo.
IF find4GLFunction('sup10033_verifica_oc_integrado_TradeEasy') THEN
IF sup10033_verifica_oc_integrado_TradeEasy(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup1 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
ELSE
LET p_processa = TRUE
IF sup4330_verifica_contrato() AND m_trade_int_contrt = "S" THEN
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup1 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
ELSE
IF NOT p_processa THEN
EXIT WHILE
END IF
END IF
END IF
END IF
Apenas ordens de compra que possuírem contrato fechado serão enviadas para Trade pelo SUP4330/SUP22104, as demais ordens de compra serão processadas normalmente gerando pedido de compra no ambiente Logix.
Todo relatório referente a geração de pedidos com contratos será de responsabilidade da Trade.
Todo processamento e regras anteriores a rotina do SUP4330/SUP22104 será mantido conforme já existente, permitindo alteração e exclusão, exceto a partir do momento que é processado as ordens de compra com contrato pelo SUP4330/SUP22104.
Sendo assim as ordens que passam por aprovação eletrônica de compras, tanto por aprovação técnica de débito direto quanto as por nível de alçada , debito direto e estoque, terão suas manutenções mantidas pois ocorrem antes do processamento da geração do pedido, e conforme definição do projeto não sofreram mudanças nessa especificação, será mantido que apenas ordens que tenham a situação em Aberto, que serão enviadas.
As ordens de compras a serem enviadas pelo SUP4330/SUP22104, não irão gravar pedido, apenas será utilizado o processamento com as consistências pertinentes a regras de negócios já existentes.
Todas as ordens de compra enviadas pelo SUP4330/SUP22104 irão gravar registro na tabela sup_par_oc,” Ordem integrada ao Trade Easy”, parâmetro “integrado_trade_easy”, para que não sejam processadas novamente.
Todas as ordens de compra com contrato enviadas, irão gravar registro na tabela sup_par_oc, com informações do agrupador, e mesmo não tendo recebido a mensagem de order, (pedido) essas ordens de compra não serão mais permitidas que sofram alteração.
Todas as ordens que tiverem o pedido gerado na Trade, irão retornar através da adapter EAIADAPTERORDER que chama a Lib SUP10033. Lembrando que o SUP10033, realiza as consistências relacionadas a geração de pedidos, conforme definido no projeto original de integração Logix Trade.
As ordens de compra serão enviadas através de mensagem única EAIADAPTERREQUEST1 no modo Sincrono, conforme definição original do projeto, terá apenas um retorno de mensagem recebida. Essa definição já é do escopo do projeto original e visa atender funcionabilidades já acertadas com a Trade.
Não existirá obrigatoriedade do cadastro das classificações fiscais (NCM), cadastro de item das ordens de compra, pois isso será tratado na Trade ao gerar os pedidos de compra.
Conforme definição acertada com a Trade será enviada informações adicionais necessárias para que eles gerem os pedidos e nos retornem , através das Tag ADDFIELD_field e ADDFIELD_value, conforme descrito na tabela do adapter de envio da mensagem Request. (Tabela 01).
As informações transitadas nessas tags, serão a de fornecedor, moeda, contrato, agrupador e como teremos o número do pedido temporário que seria gerado, mas não será gravado, iremos enviar para montar o relacionamento das ordens de compra que será realizado internamente na Trade.
Lembrar que o número de pedido enviado, será apenas como referência para Trade e poderá não ser o mesmo utilizado após o recebimento do pedido via LIB SUP10033.
O número oficial relacionado ao pedido é gerado somente no recebimento do adapter EAIADAPTERORDER (pedido de compra) via lib SUP10033 pelo Logix, enviado para Trade, para que eles possam fazer as consistências no sistema deles.
Todo pedido recebido da Trade, estará com a situação como “R” , realizado de acordo com a definição original do projeto. (L_MAT001_IRM000254_REQ05_pedidos.)
Não existira opção para reaproveitamento de pedidos, conforme existe no Logix.
Os pedidos criados pela Trade e recebidos pelo Logix, via integração poderão ser consultados via programa SUP1582
Toda ordem de compra que for processada e enviada para trade, irá gerar registro de consistência no relatório do SUP4330/SUP22104, com a informação de “Enviadas para Trade-Easy”.
Todo o processamento de ordem de compra irá usar como Agrupador a data hora e minuto e segundo, para efeito de processamento, bem como o número do pedido Logix a ser recebido apenas como referência para a ordem de compra na TRADE.
O Agrupador deverá agrupar as ordens de compra que obtiverem as mesmas condições comerciais e fornecedor para enviar para a Trade, isso significa que essas ordens deverão pertencer ao mesmo pedido de compra. Importante, não poderá conter no mesmo pedido de compras, ordens com condições comerciais e fornecedores diferentes. Sendo as consistências as condições comerciais também tratadas no Trade-Easy para garantir a integridade das informações.
Todas as ordens de compra que já tiveram pedido de compra gerado na Trade, não poderão sofrer alteração de de valores no ERP, esse processo terá que ser realizado no sistema da Trade, que nos enviará através do EAIADAPTERORDER, lib SUP10033 mensagem com variável indicando que se trata de uma atualização. Com isso as informações de valores deverão ser atualizadas no ERP.
Essa situação já é prevista no projeto original da Trade – Easy, conforme os requisitos, L_MAT001_IRM0000254_REQ03_Ordem_compra e L_MAT001_IRM000254_REQ05_pedidos.
Definição dos Procedimentos
Usuário cria as ordens de compra (OCs) no Logix com os programas SUP0290/SUP0300 versão 10.02 ou SUP21003 versão 12
Ao executar a rotina de geração de pedidos no Logix SUP4330 versão 10.02 ou SUP22104 versão 12, especificamente para os pedidos de contrato, caso o parâmetro “integra_tradeimport” indique que o Logix está integrado com Trade-Easy Importação, serão enviadas mensagens Request, afim de criar as Solicitações de Importação (SI’s) no Trade-Easy conforme diagrama entidade relacionamento;
a. Cada Ordem de compra que seria atendida pelo contrato gerará uma mensagem Request a ser enviada ao Trade-Easy, gerando uma SI (cada Ordem de compra terá um registro na tabela SUP_PAR_OC , parâmetro "integrado_trade_easy", indicando este envio para a Trade-Easy, conforme já é realizado no envio de Ordem de compras pelo SUP34093);
b. Além das tags que compõem uma mensagem Request tradicional, serão enviadas informações que estariam no pedido automático do Logix (ex.: fornecedor, moeda, número do contrato, data/hora/minuto/segundo, número de pedido temporário), visando agrupar as Ordens de compra que comporiam o Pedido de Compra no Logix e alimentar a tela facilitadora que gerará o Purchase Order (PO) e, posteriormente, enviará o Pedido de Compra ao Logix;
c. Nesta situação , os pedidos automáticos não serão gerados pelo SUP4330/SUP22104 no Logix, mas somente após o envio pelo Trade-Easy;
Trade-Easy disponibilizará uma tela facilitadora, não disponível no ERP Logix, para agrupar as SI’s que serão atendidas pelo contrato (com base nas informações enviadas pelo Logix), onde o usuário de Comex complementará as informações específicas da importação (ex.: INCOTERM, via de transporte, etc.) e gerará o PO;
É retomado fluxo tradicional da integração, onde a mensagem Order é enviada ao Logix para criação do Pedido de Compra, sendo enviada via o adapter EAIADAPTERORDER e processada pelo SUP10033, responsável por incluir e gerar o número do pedido que será enviado para Trade;
O uso das funcionalidades disponíveis no Easy Import Control anteriores a geração do Purchase Order, como a cotação de preços, serão mantidos para os itens que não possuem contrato.
<Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.
Rotina | Tipo de Operação |
SUP21003 - Ordem de compra | Alteração |
SUP22104 - Elaboração automática de pedidos de compra | Alteração |
| SUP4330 - Elaboração automática de pedidos de compra | Alteração |
| EAIADAPTERREQUEST1 - Adapter Request1 | Alteração |
| SUP10032 - Lib Adapter Request1 | Alteração |
| SUP10033 - Lib Recebimento Order | Alteração |
Exemplo de Aplicação:
Alteração no adapter de envio da mensagem Request para as tags que identificam as Ordens de Compra que teriam o pedido gerado automaticamente pelo Logix (fornecedor, número do contrato, etc.)
Iremos passar pela tag otther fields os seguintes campos e os valores, não será previsto a parte de contrato de serviços, SISCOSERV
- Fornecedor
- Moeda
- Número do Contrato
- Número pedido Logix.
- Agrupador
Na Lib SUP10032 prever o uso das variáveis passando como parâmetro “FORNECEDOR”, “MOEDA” , “CONTRATO” e "AGRUPADOR", lembrar que o campo condição de pagamento já existe no adapter, mais não esta ajustado, para uso. Fazer a chamada da função EAIHelperRequest1_set_BusinessContent_PaymentConditionCode, passando a condição de pagamento.
Tabela de variáveis do adapter EAIADAPTERREQUEST1 com registros enviados para TRADE-EASY
Campo | Tipo | Descrição |
InternalId | Char | InternalId código da empresa mais ordem de compra |
CompanyInternalId | Char | Código da Empresa |
RequestItem_InternalId | Char | Código da empresa/ordem de compra/sequen |
ItemInternalId | Char | Código da empresa/código do item |
ItemCode | char | Código do item |
RequestItem_Text | char | Texto, “Enviadas para Trade-Easy” |
ItemReferenceCode | Char | Referencia do item |
UnitPrice | Decimal | Preço unitário ordem de compra |
TotalPrice | decimal | Valor total compra |
DeliveryDateTime | date | Data de entrega prevista |
CostCenterInternalId | char | Código da empresa/código seção recebedora |
UnitOfMeasureCode | char | Unidade de medida |
RequestItem_Quantity | Decimal | Quantidade solicitada |
PaymentConditionInternalId | char | Condição de pagamento |
ApportionRequestItem_InternalId | Char | Empresa/Ordem compra/cnt deb desp/seção recebedora |
ApportionRequestItem_DepartamentInternalId | char | Empresa/ cod seção recebedora |
ApportionRequestItem_CostCenterInternalId | Char | Empresa /centro de custo |
ApportionRequestItem_AccountantAcountInternalId | char | Empresa /conta debito despesa |
ApportionRequestItem_CostCenterInternalId | Char | Area e linha de negocio |
ApportionRequestItem_AccountantAcountInternalId | Char | Conta debito despesa |
ApportionRequestItem_Percentual | decimal | Percentual participaçao |
ApportionRequestItem_Quantity | decimal | Quantidade de participação |
|
|
|
DeliverySchedule_DeliveryID | Char | Número da programação de entrega |
DeliverySchedule_QuantityRequested | Char | Quantidade solicitada |
DeliverySchedule_EstimatedDeliveryDate | Char | Data de entrega prevista |
deliverySchedule_Observation | Char | Observação de entrega |
|
|
|
ADDFIELD_field | Char | FORNECEDOR |
ADDFIELD_value | Char | Código do fornecedor |
|
|
|
ADDFIELD_field | Char | MOEDA |
ADDFIELD_value | Char | Código da moeda |
|
|
|
ADDFIELD_field | Char | CONTRATO |
ADDFIELD_value | Char | Número do contrato |
|
|
|
| ADDFIELD_field | Char | AGRUPADOR |
| ADDFIELD_value | Char | Data, hora, minuto e segundo |
| ADDFIELD_field | Char | PEDIDOLOGIX |
| ADDFIELD_value | Char | Número pedido Logix gerado |
A função SUP10032, será responsável por setar as variáveis da ordem compra, a serem enviadas pelo trade-Easy
O adapter EAIADAPTERREQUEST1, terá que ser alterado para prever o uso dos campos já existentes no HELPER, que ainda não foram setados os valores.
Lembrando que não haverá necessidade de alteração da estrutura do XSD, uma vez que será utilizado os campos já existentes.
Segue abaixo “modelo” de upsert utilizado para a integração de ordem de compra e que deverá ser adequado para fazer a integração da request:
IF find4glfunction("EAIAdapterRequest1_SendBusinessMessage") THEN
IF SUP10032_ordem_integrada_portal() THEN
CALL EAIMapper_Clear()CALL EAIMapper_set("ordem_sup.cod_empresa", p_ordem_sup.cod_empresa)
CALL EAIMapper_set("ordem_sup.num_oc", p_ordem_sup.num_oc)
CALL EAIMapper_set("ordem_sup.gru_ctr_desp", p_ordem_sup.gru_ctr_desp)
CALL EAIMapper_set("ordem_sup.cod_item", p_ordem_sup.cod_item)
CALL EAIMapper_set("ordem_sup.pre_unit_oc", p_ordem_sup.pre_unit_oc)
CALL EAIMapper_set("ordem_sup.dat_entrega_prev", p_ordem_sup.dat_entrega_prev)
CALL EAIMapper_set("ordem_sup.cod_secao_receb", p_ordem_sup.cod_secao_receb)
CALL EAIMapper_set("ordem_sup.cod_unid_med", p_ordem_sup.cod_unid_med)
CALL EAIMapper_set("ordem_sup.qtd_solic", p_ordem_sup.qtd_solic)
CALL EAIMapper_set("ordem_sup.cnd_pgto", p_ordem_sup.cnd_pgto)
CALL EAIMapper_set("ordem_sup.fornecedor", p_ordem_sup. fornecedor)
CALL EAIMapper_set("ordem_sup.moeda", p_ordem_sup.moeda)
#Num contação é o número de contrato
CALL EAIMapper_set("ordem_sup.num_contacao", p_ordem_sup. num_contacao)
IF NOT EAIAdapterRequest1_SendBusinessMessage("upsert") THEN
CALL log0030_mensagem("Problemas durante a integração com Trade. " || EAIMapper_getError(1), "exclamation")
LET l_status = FALSE
END IF
END IF
END IF
Caberá ao programa TradeEasy, ao receber um XML gerar o pedido com base no número de contrato, campo ADDFIELD_field = “CONTRATO”, “FORNECEDOR”, “MOEDA” , “AGRUPADOR” e “PEDIDOLOGIX”
Se houver necessidade de envio de novas informações será utilizada as tags de ADDFIELD_field e ADDFIELD_value , bem como a validação da viabilidade da regra de negócios para os novos dados ( necessidade de construir funções para atender os valores solicitados nos novos campos, ocorrendo essa situação será necessário verificar a demanda de tempo envolvida.)
Alterações nas rotinas dos programas de envio.
#----------------------------------------------#--------------------------------------------------#
FUNCTION sup4330 FUNCTION sup10033_verifica_contrato()ordem(lr_ordem_sup, l_funcmsgorder)
#---------------------------------------#----------------------------------------------------------#
DEFINE l_ies_tipo_contrato LIKE item_forn_particip.ies_tip_contrato,
l_ies_item_contrato SMALLINT,
l_ies_tip_preco LIKE cotacao_preco.ies_tip_preco
parametro LIKE sup_par_oc.parametro_ind
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
DEFINE l_funcmsgorder CHAR(03)
LET l_ies_tipo_contrato = NULL
WHENEVER ERROR CONTINUE
SELECT sup_par_oc.parametro_ind
SELECT ies_tip_contrato INTO l_ies_tipo_contrato
FROM item_forn_particip
parametro
FROM sup_par_oc
WHERE sup_par_oc.empresa = lr_ordem_sup. WHERE cod_empresa = p_cod_empresa
AND codsup_item = ppar_oc.ordem_sup_orig.cod_item AND cod_fornecedor = pcompra = lr_ordem_sup_orig.codnum_fornecedoroc
AND datsup_ini_vigencia <= m_dat_vigencia AND dat_fim_vigencia >= m_dat_vigenciapar_oc.parametro = "integrado_trade_easy"
AND sup_par_oc.seq_parametro = 1
WHENEVER ERROR STOP
IF sqlca.sqlcode = <> 0 THEN
IF l_ies_tipo_contrato = "1" OR l_ies_tipo_contrato = "4"
OR (m_emit_ped_consig = "S" AND l_ies_tipo_contrato = "3") THEN
IF l_ies_tipo_contrato = "4" THEN
## Caso exista um contrato tipo '4' considera para reaproveitar
## o pedido, pois o SUP0120 já criou o pedido
LET p_ies_aproveita = TRUE
END IF
LET l_ies_item_contrato = TRUE
ELSE
LET l_ies_item_contrato = FALSE
END IF
ELSE
LET l_ies_item_contrato = FALSE
END IF
IF l_ies_item_contrato THEN
LET l_ies_tip_preco = NULL
WHENEVER ERROR CONTINUE
SELECT cotacao_preco.ies_tip_preco
INTO l_ies_tip_preco
FROM cotacao_preco
WHERE cotacao_preco.cod_empresa = p_ordem_sup_orig.cod_empresa
AND cotacao_preco.cod_fornecedor = p_ordem_sup_orig.cod_fornecedor
AND cotacao_preco.num_cotacao = p_ordem_sup_orig.num_cotacao
AND cotacao_preco.cod_item = p_ordem_sup_orig.cod_item
AND cotacao_preco.num_versao =
(SELECT MAX(cotacao_preco.num_versao)
FROM cotacao_preco
WHERE cotacao_preco.cod_empresa = p_ordem_sup_orig.cod_empresa
AND cotacao_preco.cod_fornecedor = p_ordem_sup_orig.cod_fornecedor
AND cotacao_preco.num_cotacao = p_ordem_sup_orig.num_cotacao
AND cotacao_preco.cod_item = p_ordem_sup_orig.cod_item)
WHENEVER ERROR STOP
IF l_ies_tip_preco = "2" THEN
# Se o item tiver contrato, verifica se a cotação que está
# na ordem de compra é do tipo de preço '2', ou seja, se
# foi designada manualmente. Neste caso considerará a
# ordem como não pertencente à um contrato.
LET l_ies_item_contrato = FALSE
END IF
END IF
IF l_ies_item_contrato THEN
IF NOT sup4330_suspende_ordem_sup_contrato() THEN
LET p_processa = FALSE
RETURN FALSE
END IF
IF NOT sup4330_send_request_ordem_sem_pedido() THEN
LET p_processa = FALSE
RETURN FALSE
END IF
CALL sup4330_grava_texto_suspensao_oc()
RETURN TRUE
END IF
LET p_processa = TRUE
RETURN FALSE
END FUNCTION
#---------------------------------------------#
FUNCTION sup4330_suspende_ordem_sup_contrato()
#---------------------------------------------#
WHENEVER ERROR CONTINUE
UPDATE ordem_sup SET ordem_sup.ies_situa_oc = "S"
WHERE cod_empresa = p_ordem_sup_orig.cod_empresa
AND num_oc = p_ordem_sup_orig.num_oc
AND num_versao = p_ordem_sup_orig.num_versao
AND ies_versao_atual = "S"
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
CALL log003_err_sql("UPDATE","ordem_sup")
RETURN FALSE
END IF
RETURN TRUE
END FUNCTION
#---------------------------------------------#
FUNCTION sup4330_grava_texto_suspensao_oc()
#---------------------------------------------#
DEFINE l_status SMALLINT
CALL supm395_ordem_sup_txt_leitura(p_ordem_sup_orig.cod_empresa,
p_ordem_sup_orig.num_oc ,
"P",
1,
TRUE,
TRUE)
RETURNING l_status
CALL supm395_ordem_sup_txt_set_tex_observ_oc("Enviadas para Trade-Easy")
IF l_status = FALSE THEN
CALL supm395_ordem_sup_txt_set_cod_empresa(p_ordem_sup_orig.cod_empresa)
CALL supm395_ordem_sup_txt_set_num_oc(p_ordem_sup_orig.num_oc )
CALL supm395_ordem_sup_txt_set_ies_tip_texto("Y")
CALL supm395_ordem_sup_txt_set_num_seq(1)
CALL supt395_ordem_sup_txt_inclui(TRUE, true)
RETURNING l_status
ELSE
CALL supt395_ordem_sup_txt_modifica(TRUE, TRUE)
RETURNING l_status
END IF
END FUNCTION
RETURN FALSE, "Ordem de compra não integrada ao Trade Easy"
END IF
IF l_parametro <> "S" THEN
RETURN FALSE, "Ordem de compra não integrada ao Trade Easy"
END IF
IF l_funcmsgorder = 9 THEN # Faz verificações apenas se o processo for de inclusão
IF lr_ordem_sup.ies_situa_oc <> "A" THEN #Verifica se ordem está aberta
RETURN FALSE, "Ordem de compra não está com situação aberta."
END IF
END IF
IF lr_ordem_sup.num_pedido <> 0 THEN #Verifica se a ordem ainda não possui pedido
RETURN FALSE, "Ordem de compra já possui pedido associado. "
END IF
END IF
RETURN TRUE, " "
END FUNCTION
##############################
#------------------------------------------------#
FUNCTION sup10032_exporta_ordem_compra_contrato()
#------------------------------------------------#
DEFINE l_ind,l_status SMALLINT,
l_msg CHAR(150)
DEFINE l_data DATETIME YEAR TO SECOND
LET l_data = EXTEND(CURRENT, YEAR TO SECOND)
FOR l_ind = 1 TO 3000
CALL sup10032_set_other_addfields_addfield_field("FORNECEDOR",1)
CALL sup10032_set_other_addfields_addfield_value(ma_ordem_sup[l_ind].cod_fornecedor,1)
CALL sup10032_set_other_addfields_addfield_field("MOEDA",2)
CALL sup10032_set_other_addfields_addfield_value(ma_ordem_sup[l_ind].cod_moeda,2)
CALL sup10032_set_other_addfields_addfield_field("CONTRATO",3)
CALL sup10032_set_other_addfields_addfield_value(ma_ordem_sup[l_ind].num_cotacao,3)
CALL sup10032_set_other_addfields_addfield_field("AGRUPADOR",4)
CALL sup10032_set_other_addfields_addfield_value(l_data,4)
CALL sup10032_set_other_addfields_addfield_field("PEDIDOLOGIX",5)
CALL sup10032_set_other_addfields_addfield_value(ma_ordem_sup[l_ind].num_pedido,5)
CALL EAIMapper_set("ordem_sup.cod_empresa" , ma_ordem_sup[l_ind].cod_empresa)
CALL EAIMapper_set("ordem_sup.num_oc" , ma_ordem_sup[l_ind].num_oc)
CALL EAIMapper_set("ordem_sup.cod_item" , ma_ordem_sup[l_ind].cod_item)
CALL EAIMapper_set("ordem_sup.pre_unit_oc" , ma_ordem_sup[l_ind].pre_unit_oc)
CALL EAIMapper_set("ordem_sup.dat_entrega_prev" , ma_ordem_sup[l_ind].dat_entrega_prev)
CALL EAIMapper_set("ordem_sup.cod_secao_receb" , ma_ordem_sup[l_ind].cod_secao_receb)
CALL EAIMapper_set("ordem_sup.cod_unid_med" , ma_ordem_sup[l_ind].cod_unid_med)
CALL EAIMapper_set("ordem_sup.qtd_solic" , ma_ordem_sup[l_ind].qtd_solic)
CALL EAIMapper_set("ordem_sup.dat_entrega_prev" , ma_ordem_sup[l_ind].dat_entrega_prev)
CALL EAIMapper_set("ordem_sup.cnd_pgto" , ma_ordem_sup[l_ind].cnd_pgto)
CALL EAIMapper_set("ordem_sup.num_cotacao" , ma_ordem_sup[l_ind].num_cotacao)
CALL EAIMapper_set("ordem_sup.cod_comprador" , ma_ordem_sup[l_ind].cod_comprador)
CALL EAIMapper_set("ordem_sup.pct_ipi" , ma_ordem_sup[l_ind].pct_ipi)
CALL EAIMapper_set("ordem_sup.gru_ctr_desp" , ma_ordem_sup[l_ind].gru_ctr_desp)
CALL EAIAdapterRequest1_SendBusinessMessage("upsert")
RETURNING l_status
IF NOT l_status THEN
LET l_msg = 'Ordem de Compra: ',ma_ordem_sup[l_ind].num_oc CLIPPED,' - Erro ao enviar mensagem para o Adapter "EAIAdapterRequest1".'
CALL log0030_mensagem(l_msg,"info")
RETURN l_status
END IF
END FOR
RETURN TRUE
END FUNCTION
#-------------#------------------------------------------------------------#
FUNCTION sup4330sup10032_sendset_requestother_ordemaddfields_semaddfield_pedido(field(l_conteudo, l_ind)
#----------------------------------------------------------#
IF p_ordem_sup_orig.num_pedido = 0 THEN
CALL sup10032_set_cod_empresa(p_ordem_sup_orig.cod_empresa)
CALL sup10032_set_num_oc(p_ordem_sup_orig.num_oc )
CALL sup10032_set_tipo("upsert")
CALL sup10032_exporta_ordem_compra()
RETURNING l_status, l_msg
IF l_status = FALSE THEN
CALL log0030_mensagem(l_msg,"exclamation")
RETURN FALSE
END IF
ELSE
RETURN FALSE
END IF
RETURN TRUE
END FUNCTION
Prever também na versão metadados
Alteração na rotina de reabertura de Ordens de Compra suspensas para não permitir alteração de status nas ordens enviadas para o Trade-Easy
Os programas SUP0491/SUP21003, serão alterados para prever através da tabela ordem_sup_txt, as ordens que foram suspensas por terem sido enviadas a Trade na fase de geração de pedidos, com isso não deveram permitir que estas ordens seja modificadas.
Incluir busca para parâmetros
INITIALIZE m_trade_int_contrt TO NULL
CALL log2250_busca_parametro(p_cod_empresa,"trade_int_contrt") RETURNING m_trade_int_contrt , l_status
IF l_status = FALSE OR
m_trade_int_contrt IS NULL OR
m_trade_int_contrt = " " THEN
LET m_trade_int_contrt = "N"
END IF
INITIALIZE m_utiliza_easytrade TO NULL
CALL log2250_busca_parametro(p_cod_empresa, "integra_tradeimport") RETURNING m_utiliza_easytrade, l_status
IF NOT l_status OR
m_utiliza_easytrade IS NULL OR
m_utiliza_easytrade = ' ' THEN
LET m_utiliza_easytrade = 'N'
END IF
#Se integração estiver desligada, a integração por contrato devera ser desligada.
IF m_utiliza_easytrade = "N" THEN
LET m_trade_int_contrt = "N"
END IF
Acrescentar na função
AFTER FIELD funcao
LET l_ind = arr_curr()
IF ma_array_tela[l_ind].funcao <> "S"
AND ma_array_tela[l_ind].funcao <> " " THEN
ERROR " Funcao invalida "
NEXT FIELD funcao
ELSE
IF NOT sup0491_verifica_suspensao(l_ind) THEN
NEXT FIELD funcao
END IF
---------------#
DEFINE l_ind SMALLINT
DEFINE l_conteudo varchar(12)
CALL EAIHelperRequest1_set_BusinessContent_ListOfRequestItem_RequestItem_OTHER_ADDFIELDS_ADDFIELD_field(l_conteudo, l_ind)
END FUNCTION
#-------------------------------------------------------------------------#
FUNCTION sup10032_set_other_addfields_addfield_value(l_conteudo, l_ind)
#-------------------------------------------------------------------------#
DEFINE l_ind SMALLINT
DEFINE l_conteudo varchar(60)
CALL EAIHelperRequest1_set_BusinessContent_ListOfRequestItem_RequestItem_OTHER_ADDFIELDS_ADDFIELD_value(l_conteudo, l_ind)
END FUNCTION
#----------------------------------------------------------------#
FUNCTION sup10032_inclui_oc_integrada(l_cod_empresa, l_num_oc)
#----------------------------------------------------------------#
DEFINE l_cod_empresa LIKE ordem_sup.cod_empresa,
l_num_oc LIKE ordem_sup.num_oc
WHENEVER ERROR CONTINUE
INSERT INTO sup_par_oc (empresa, ordem_compra, parametro, des_parametro, seq_parametro, parametro_ind)
VALUES (l_cod_empresa, l_num_oc, 'integrado_trade_easy','Ordem integrada ao Trade Easy',1,'S')
WHENEVER ERROR STOP
IF sqlca.sqlcode = 0 THEN
RETURN TRUE
END IF
RETURN TRUE
END FUNCTION
#--------------------------------------------------------------#
FUNCTION sup10032_set_all_ordem_sup(lr_ordem_sup,l_ind) END IF
#------------------------------------------#
FUNCTION sup0491_verifica_suspensao(l_ind)
#------------------------------------------#
DEFINE l_ind SMALLINT
IF m_trade_int_contrt = "N" THEN
RETURN TRUE
END IF
IF find4GLFunction('sup10033_verifica_oc_integrado_TradeEasy') THEN
IF NOT sup0491_verifica_oc_integrado_TradeEasy(l_ind) THEN
RETURN FALSE
END IF
END IF
RETURN TRUE
END FUNCTION
#----------------------------------------------------------------------------------------------#
FUNCTION sup0491_verifica_oc_integrado_TradeEasy(l_ind)
#----------------------------------------------------------------------------------------------#
DEFINE l_ind SMALLINT
WHENEVER ERROR CONTINUE
SELECT UNIQUE num_oc FROM ordem_sup_txt
#
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
DEFINE l_ind SMALLINT
let ma_ordem_sup[l_ind].cod_empresa = lr_ordem_sup.cod_empresa
let ma_ordem_sup[l_ind].num_oc = lr_ordem_sup.num_oc
let ma_ordem_sup[l_ind].num_versao = lr_ordem_sup.num_versao
let ma_ordem_sup[l_ind].num_versao_pedido = lr_ordem_sup.num_versao_pedido
let ma_ordem_sup[l_ind].ies_versao_atual = lr_ordem_sup.ies_versao_atual
let ma_ordem_sup[l_ind].cod_item = lr_ordem_sup.cod_item
let ma_ordem_sup[l_ind].num_pedido = lr_ordem_sup.num_pedido
let ma_ordem_sup[l_ind].ies_situa_oc = lr_ordem_sup.ies_situa_oc
let ma_ordem_sup[l_ind].ies_origem_oc = lr_ordem_sup.ies_origem_oc
let ma_ordem_sup[l_ind].ies_item_estoq = lr_ordem_sup.ies_item_estoq
let ma_ordem_sup[l_ind].ies_imobilizado = lr_ordem_sup.ies_imobilizado
let ma_ordem_sup WHERE cod_empresa = ma_array_tela[l_ind].cod_empresa AND num_oc = ma_array_telaunid_med = lr_ordem_sup.cod_unid_med
let ma_ordem_sup[l_ind].num_oc
AND IES_TIP_TEXTO = 'Y'
AND NUM_SEQ = 1
AND tex_observ_oc = 'Enviadas para Trade-Easy'
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
IF sqlca.sqlcode <> 100 THEN
CALL log003_err_sql("select","ordem_sup_txt")
RETURN FALSE
END IF
ELSE
CALL log0030_mensagem("Ordem suspensa enviada ao Trade Easy, não pode ser alterada.","INFO")
RETURN FALSE
END IF
RETURN TRUE
END FUNCTION
METADADOS
INCLUIR BUSCA PARA PARAMETROS
INITIALIZE m_trade_int_contrt TO NULL
CALL log2250_busca_parametro(p_cod_empresa,"trade_int_contrt") RETURNING m_trade_int_contrt , l_status
IF l_status = FALSE OR
m_trade_int_contrt IS NULL OR
m_trade_int_contrt = " " THEN
LET m_trade_int_contrt = "N"
END IF
INITIALIZE m_utiliza_easytrade TO NULL
CALL log2250_busca_parametro(p_cod_empresa, "integra_tradeimport") RETURNING m_utiliza_easytrade, l_status
IF NOT l_status OR
m_utiliza_easytrade IS NULL OR
m_utiliza_easytrade = ' ' THEN
LET m_utiliza_easytrade = 'N'
END IF
#Se integração estiver desligada, a integração por contrato devera ser desligada.
IF m_utiliza_easytrade = "N" THEN
LET m_trade_int_contrt = "N"
END IF
#----------------------------------------#
FUNCTION sup210036_before_input_update()
#----------------------------------------#
.................
IF m_trade_int_contrt = "S" THEN
IF mr_ordem_sup_tela.ies_situa_oc <> "S" THEN
IF NOT sup21003_verifica_suspensao() THEN
RETURN FALSE
END IF
END IF
END IF
#------------------------------------------#
FUNCTION sup21003_verifica_suspensao()
#------------------------------------------#
IF m_trade_int_contrt = "N" THEN
RETURN TRUE
END IF
IF find4GLFunction('sup10033_verifica_oc_integrado_TradeEasy') THEN
IF NOT sup21003_verifica_oc_integrado_TradeEasy() THEN
RETURN FALSE
END IF
END IF
RETURN TRUE
END FUNCTION
#----------------------------------------------------------------------------------------------#
FUNCTION sup21003_verifica_oc_integrado_TradeEasy()
#----------------------------------------------------------------------------------------------#
DEFINE l_ies_situa_oc LIKE ordem_sup.ies_situa_oc
WHENEVER ERROR CONTINUE
SELECT ies_situa_oc INTO l_ies_situa_oc
WHERE cod_empresa = mr_ordem_sup.cod_empresa
AND num_oc = mr_ordem_sup.num_oc
AND ies_versao_atual = 'S'
WHENEVER ERROR STOP
IF l_ies_situa_oc = "S"
AND mr_ordem_sup.ies_situa_oc <> "S" THEN
WHENEVER ERROR CONTINUE
SELECT UNIQUE num_oc FROM ordem_sup_txt
WHERE cod_empresa = mr_ordem_sup.cod_empresa
AND num_oc = mr_ordem_sup.num_oc
AND IES_TIP_TEXTO = 'Y'
AND NUM_SEQ = 1
AND tex_observ_oc = 'Enviadas para Trade-Easy'
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
IF sqlca.sqlcode <> 100 THEN
CALL log003_err_sql("select","ordem_sup_txt")
RETURN FALSE
END IF
ELSE
CALL log0030_mensagem("Ordem suspensa enviada ao Trade Easy, não pode ser alterada.","INFO")
RETURN FALSE
END IF
END IF
RETURN TRUE
END FUNCTION
#---------------------------------------#
FUNCTION sup21003_before_input_update()
#---------------------------------------#
LET m_funcao = "MODIFICACAO"
LET m_funcao_repete = FALSE # TSFI52
LET m_cod_item_original = mr_ordem_sup_tela.cod_item
IF mr_ordem_sup_compl.num_lista > 0 THEN
CALL log0030_mensagem("Ordem de compra pertence à lista de compras. Utilize SUP21017.","info")
RETURN FALSE
END IF
IF m_trade_int_contrt = "S" THEN
IF mr_ordem_sup_tela.ies_situa_oc <> "S" THEN
IF NOT sup21003_verifica_suspensao() THEN
RETURN FALSE
END IF
END IF
END IF
Todo as alterações visam apenas identificar as ordens de compra que possuem contratos, que ao processar pelas rotinas do SUP4330 E SUP22104 não sejam geradas os pedidos, para que sejam reliazados pela TRADE.
Após processamento do pedidos da Trade, o fluxo segue normal como ocorre hoje, sem haver necessidade de mudanças posteriores ao projeto.
dat_emis = lr_ordem_sup.dat_emis
let ma_ordem_sup[l_ind].qtd_solic = lr_ordem_sup.qtd_solic
let ma_ordem_sup[l_ind].dat_entrega_prev = lr_ordem_sup.dat_entrega_prev
let ma_ordem_sup[l_ind].fat_conver_unid = lr_ordem_sup.fat_conver_unid
let ma_ordem_sup[l_ind].qtd_recebida = lr_ordem_sup.qtd_recebida
let ma_ordem_sup[l_ind].pre_unit_oc = lr_ordem_sup.pre_unit_oc
let ma_ordem_sup[l_ind].dat_ref_cotacao = lr_ordem_sup.dat_ref_cotacao
let ma_ordem_sup[l_ind].ies_tip_cotacao = lr_ordem_sup.ies_tip_cotacao
let ma_ordem_sup[l_ind].pct_ipi = lr_ordem_sup.pct_ipi
let ma_ordem_sup[l_ind].cod_moeda = lr_ordem_sup.cod_moeda
let ma_ordem_sup[l_ind].cod_fornecedor = lr_ordem_sup.cod_fornecedor
let ma_ordem_sup[l_ind].num_cotacao = lr_ordem_sup.num_cotacao
let ma_ordem_sup[l_ind].cnd_pgto = lr_ordem_sup.cnd_pgto
let ma_ordem_sup[l_ind].cod_mod_embar = lr_ordem_sup.cod_mod_embar
let ma_ordem_sup[l_ind].num_docum = lr_ordem_sup.num_docum
let ma_ordem_sup[l_ind].gru_ctr_desp = lr_ordem_sup.gru_ctr_desp
let ma_ordem_sup[l_ind].cod_secao_receb = lr_ordem_sup.cod_secao_receb
let ma_ordem_sup[l_ind].cod_progr = lr_ordem_sup.cod_progr
let ma_ordem_sup[l_ind].cod_comprador = lr_ordem_sup.cod_comprador
let ma_ordem_sup[l_ind].pct_aceite_dif = lr_ordem_sup.pct_aceite_dif
let ma_ordem_sup[l_ind].ies_tip_entrega = lr_ordem_sup.ies_tip_entrega
let ma_ordem_sup[l_ind].ies_liquida_oc = lr_ordem_sup.ies_liquida_oc
let ma_ordem_sup[l_ind].dat_abertura_oc = lr_ordem_sup.dat_abertura_oc
let ma_ordem_sup[l_ind].num_oc_origem = lr_ordem_sup.num_oc_origem
let ma_ordem_sup[l_ind].qtd_origem = lr_ordem_sup.qtd_origem
let ma_ordem_sup[l_ind].dat_origem = lr_ordem_sup.dat_origem
let ma_ordem_sup[l_ind].ies_tip_incid_ipi = lr_ordem_sup.ies_tip_incid_ipi
let ma_ordem_sup[l_ind].ies_tip_incid_icms = lr_ordem_sup.ies_tip_incid_icm
let ma_ordem_sup[l_ind].cod_fiscal = lr_ordem_sup.cod_fiscal
let ma_ordem_sup[l_ind].cod_tip_despesa = lr_ordem_sup.cod_tip_despesa
let ma_ordem_sup[l_ind].ies_insp_recebto = lr_ordem_sup.ies_insp_recebto
let ma_ordem_sup[l_ind].ies_tipo_inspecao = lr_ordem_sup.ies_tipo_inspecao
END FUNCTION
#--------------------------------------------------------------#
FUNCTION sup10032_grava_oc_integrada_contrato(lr_ordem_sup)
#--------------------------------------------------------------#
#Por existir processo transacional, uso de tabelas temp, iram comprometer o funcionamento da função
#tratada com array, para enviar mensagem de request1 ao final do processo.
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
DEFINE l_ind SMALLINT
FOR l_ind = 1 TO 3000
IF ma_ordem_sup[l_ind].cod_empresa IS NULL
OR ma_ordem_sup[l_ind].cod_empresa = " " THEN
CALL sup10032_set_all_ordem_sup(lr_ordem_sup.*,l_ind)
CALL sup10032_grava_consistencia_oc(lr_ordem_sup.*,l_ind)
EXIT FOR
END IF
END FOR
END FUNCTION
#--------------------------------------------------------------#
FUNCTION sup10032_grava_consistencia_oc(lr_ordem_sup,l_ind)
#--------------------------------------------------------------#
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
DEFINE l_ind SMALLINT
WHENEVER ERROR CONTINUE
CALL log085_transacao("BEGIN")
WHENEVER ERROR STOP
IF NOT sup10032_inclui_oc_integrada(lr_ordem_sup.cod_empresa, lr_ordem_sup.num_oc) THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
RETURN
END IF
WHENEVER ERROR CONTINUE
CALL log085_transacao("COMMIT")
WHENEVER ERROR STOP
END FUNCTION
#--------------------------------------------------------------#
FUNCTION sup10032_verifica_oc_integrada_fornecedor_estrangeiro(lr_ordem_sup)
#--------------------------------------------------------------#
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
WHENEVER ERROR CONTINUE
SELECT UNIQUE cod_fornecedor
FROM fornecedor
WHERE cod_fornecedor = lr_ordem_sup.cod_fornecedor
AND cod_pais <> '001'
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
IF sqlca.sqlcode <> 100 THEN
CALL log003_err_sql("SELECT 2","fornecedor")
RETURN FALSE
END IF
RETURN TRUE
END IF
RETURN TRUE
END FUNCTION
#--------------------------------------------------------------#
FUNCTION sup10032_verifica_oc_integrada_contrato(lr_ordem_sup)
#---------------------------------------------------------------#
#Verifica se a ordem de compra que será integrada tem contrato, se verdadeiro será enviada via request
DEFINE lr_ordem_sup RECORD LIKE ordem_sup.*
IF NOT sup10032_verifica_oc_integrada_fornecedor_estrangeiro(lr_ordem_sup.*) THEN
RETURN FALSE
END IF
IF lr_ordem_sup.num_cotacao > 0 AND lr_ordem_sup.pre_unit_oc > 0
AND lr_ordem_sup.cod_moeda > 0 AND lr_ordem_sup.cnd_pgto > 0
AND lr_ordem_sup.cod_mod_embar > 0 THEN
RETURN TRUE
ELSE
IF (lr_ordem_sup.pre_unit_oc IS NULL OR lr_ordem_sup.pre_unit_oc = 0)
OR (lr_ordem_sup.cod_moeda IS NULL OR lr_ordem_sup.cod_moeda = 0)
OR (lr_ordem_sup.cnd_pgto IS NULL OR lr_ordem_sup.cnd_pgto = 0)
OR (lr_ordem_sup.cod_mod_embar IS NULL OR lr_ordem_sup.cod_mod_embar = 0) THEN
RETURN FALSE
ELSE
RETURN TRUE
END IF
END IF
RETURN TRUE
END FUNCTION
#----------------------------------------------------------------#
FUNCTION sup10032_verifica_oc_integrada(l_cod_empresa, l_num_oc)
#----------------------------------------------------------------#
#Verifica se a ordem de compra, já foi enviada via mensagem unica request para Trade.
DEFINE l_cod_empresa LIKE ordem_sup.cod_empresa,
l_num_oc LIKE ordem_sup.num_oc
# condicoes para selecao das ordens de remessa de consignacao
IF NOT m_flag THEN
INITIALIZE m_emit_ped_consig TO NULL
SELECT par_ies INTO m_emit_ped_consig
FROM par_sup_pad
WHERE par_sup_pad.cod_empresa = p_cod_empresa
AND par_sup_pad.cod_parametro = "emit_ped_consig"
IF sqlca.sqlcode <> 0 OR m_emit_ped_consig IS NULL OR m_emit_ped_consig = " " THEN
LET m_emit_ped_consig = "N"
END IF
LET m_flag = TRUE
END IF
WHENEVER ERROR CONTINUE
SELECT UNIQUE empresa
FROM sup_par_oc
WHERE empresa = l_cod_empresa
AND ordem_compra = l_num_oc
AND parametro = 'integrado_trade_easy'
AND parametro_ind = 'S'
WHENEVER ERROR STOP
IF sqlca.sqlcode = 0 THEN
RETURN TRUE
END IF
RETURN FALSE
END FUNCTION
SUP4330
# Verificar se a ordem de compra possui integração com o processo de importação TradeEasy
IF find4GLFunction('sup10032_verifica_oc_integrada') THEN
#IF sup10033_verifica_oc_integrado_TradeEasy(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
IF sup10032_verifica_oc_integrada(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup1 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
IF p_processa = FALSE THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
ELSE
#Aqui tratado para integração com trade, tendo contrato, não ira permitir gerar o pedido, mas
#manterar a consistencia para continuar processamento de outras ordens de compra e outros pedidos
IF find4GLFunction('sup10032_verifica_oc_integrada_contrato') THEN
IF sup10032_verifica_oc_integrada_contrato(p_ordem_sup_orig.*) THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
CALL sup10032_grava_oc_integrada_contrato(p_ordem_sup_orig.*)
LET p_processa = FALSE
LET p_erros.des_erro = "Enviadas para Trade-Easy. "
CALL sup433_grava_excessoes(p_ordem_sup_orig.*)
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup1 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
# Verificar se a ordem de compra possui integração com o processo de importação TradeEasy
IF find4GLFunction('sup10032_verifica_oc_integrada') THEN
#IF sup10033_verifica_oc_integrado_TradeEasy(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
IF sup10032_verifica_oc_integrada(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup2 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
IF p_processa = FALSE THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
ELSE
#Aqui tratado para integração com trade, tendo contrato, não ira permitir gerar o pedido, mas
#manterar a consistencia para continuar processamento de outras ordens de compra e outros pedidos
IF find4GLFunction('sup10032_verifica_oc_integrada_contrato') THEN
IF sup10032_verifica_oc_integrada_contrato(p_ordem_sup_orig.*) THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
CALL sup10032_grava_oc_integrada_contrato(p_ordem_sup_orig.*)
LET p_processa = FALSE
LET p_erros.des_erro = "Enviadas para Trade-Easy. "
CALL sup433_grava_excessoes(p_ordem_sup_orig.*)
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup2 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
# Verificar se a ordem de compra possui integração com o processo de importação TradeEasy
IF find4GLFunction('sup10032_verifica_oc_integrada') THEN
#IF sup10033_verifica_oc_integrado_TradeEasy(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
IF sup10032_verifica_oc_integrada(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup3 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
IF p_processa = FALSE THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
ELSE
#Aqui tratado para integração com trade, tendo contrato, não ira permitir gerar o pedido, mas
#manterar a consistencia para continuar processamento de outras ordens de compra e outros pedidos
IF find4GLFunction('sup10032_verifica_oc_integrada_contrato') THEN
IF sup10032_verifica_oc_integrada_contrato(p_ordem_sup_orig.*) THEN
WHENEVER ERROR CONTINUE
CALL log085_transacao("ROLLBACK")
WHENEVER ERROR STOP
CALL sup10032_grava_oc_integrada_contrato(p_ordem_sup_orig.*)
LET p_processa = FALSE
LET p_erros.des_erro = "Enviadas para Trade-Easy. "
CALL sup433_grava_excessoes(p_ordem_sup_orig.*)
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup3 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
IF find4GLFunction('sup10032_exporta_ordem_compra_contrato') THEN
IF NOT sup10032_exporta_ordem_compra_contrato() THEN
END IF
END IF
Alteração na rotina de geração automática de pedidos para Ordens de Compra atendidas por contrato, visando o envio para o Trade-Easy das ordens que comporiam o pedido automático (via mensagem Request, criando solicitações de importação no Trade-Easy), suspensão destas ordens (com motivo "Enviadas para Trade-Easy") e desvio para não gerar o pedido no Logix neste momento.
Conforme definição do projeto, todas as alterações anteriores ao envio do SUP4330/SUP22104 serão mantidas conforme projeto original.
Durante o processamento do programa SUP4330\SUP22104, as ordens que tiverem o fornecedor, e o número de contrato gerado, serão consideradas no processo de geração automática de pedidos do SUP4330\SUP22104.
A partir do momento que o programa SUP4330\SUP22104 envia as ordens para gerar os pedidos de compra, e incluído na tabela sup_par_oc, identificado as ordens que já foram enviadas, com isso programa SUP34093 não irá processar novamente essas ordens.
Incluir busca para parâmetro
Alterar na chamada de função do sup4330, para prever nas duas chamadas para trade Easy a funções abaixo.
# Verificar se a ordem de compra possui integração com o processo de importação TradeEasy
IF find4GLFunction('sup10033_verifica_oc_integrado_TradeEasy') THEN
IF sup10033_verifica_oc_integrado_TradeEasy(p_ordem_sup_orig.cod_empresa, p_ordem_sup_orig.num_oc) THEN
LET p_processa = TRUE
WHENEVER ERROR CONTINUE
FETCH cq_ordem_sup2 INTO p_ordem_sup_orig.*
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
EXIT WHILE
END IF
CONTINUE WHILE
END IF
END IF
Opcional
Protótipo de Tela
Imagem 01
Imagem 02
Imagem 03
Imagem 04
Imagem 05
<Caso necessário inclua protótipos de telas com o objetivo de facilitar o entendimento do requisito, apresentar conceitos e funcionalidades do software>.
Fluxograma das atividades
Fluxograma Macro processo de contratos
Fluxograma rotinas 4gl versão v10.02
Fluxograma rotinas metadados versão v12
Diagrama de Entidade e Relacionamento
Diagrama de Sequência
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
|---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas