Objetivo

Permitir pesquisar as eliminações de resíduos realizadas no PROTHEUS, ajustando os pedidos de matérias do TOTVS Obras e Projetos, para liberar o saldo o produto para consumo.

Proposta

Utilizar um serviço REST com controle de paginação de dados.

Utilizar o processo disponível em PROCEDURE. Este processo permite a pesquisa por pedido e também o agendamento.

Ajustes no RM

Alterar o processo utilizado na integração por PROCEDURE, permitindo consultar as eliminações de resíduos no PROTHEUS via serviço REST. Formatar o retorno de forma a realizar a sequência do processo sem necessidade de alteração.

A configuração do acesso ao serviço REST deve ser utilizada a mesma da apropriação (parâmetro PRJ_URLAPIRESTPROTHEUS).

Ao solicitar deve ser utilizado o padrão criado para busca da apropriação, adicionando uma lista de solicitações e outra de pedido a serem pesquisados.

Ajustes no PROTHEUS

Disponibilizar o serviço REST de acordo com o padrão estabelecido.

Utilizar como base para pesquisa a instrução SQL abaixo que são utilizadas nas pesquisa da integração por PROCEDURE:

• Para solicitação de compras

SELECT SOL.C1_NUM AS NUMSC, SOL.C1_QUANT AS QUANTSC, SOL.C1_RESIDUO AS RESIDUOSC, SOL.C1_QUJE AS QUJESC, SOL.C1_COTACAO AS COTACAOSC, SOL.C1_APROV AS APROVSC,  PED.C7_NUM AS NUMPC, PED.C7_QUANT AS QUANTPC, PED.C7_RESIDUO AS RESIDUOPC, PED.C7_QUJE AS QUJEPC, PED.C7_APROV AS APROVPC   FROM {0} SOL (NOLOCK)   LEFT JOIN {1} PED (NOLOCK)  ON PED.C7_FILIAL = SOL.C1_FILIAL   AND PED.C7_NUMSC = SOL.C1_NUM  AND PED.C7_ITEMSC = SOL.C1_ITEM  AND PED.D_E_L_E_T_ <> '*'  WHERE SOL.C1_NUM = :NUMSC  AND SOL.C1_ITEM LIKE '%' || :NUMITEMSC AND SOL.D_E_L_E_T_ <> '*'

• Pedido de Compras

SELECT SOL.C1_NUM AS NUMSC, SOL.C1_QUANT AS QUANTSC, SOL.C1_RESIDUO AS RESIDUOSC, SOL.C1_QUJE AS QUJESC, SOL.C1_COTACAO AS COTACAOSC, SOL.C1_APROV AS APROVSC, PED.C7_NUM AS NUMPC, PED.C7_QUANT AS QUANTPC, PED.C7_RESIDUO AS RESIDUOPC, PED.C7_QUJE AS QUJEPC, PED.C7_APROV AS APROVPC  FROM {0} PED (NOLOCK)  LEFT JOIN {1} SOL (NOLOCK)  ON 1 = 2  WHERE PED.C7_NUM = :NUMPC  AND PED.C7_ITEM LIKE '%' || :NUMITEMPC  AND PED.D_E_L_E_T_ <> '*'

Retornar as informações com base nas colunas dos comandos acima. Paginando se necessário.

Pontos de Atenção

Os processos que desfazem a eliminação de resíduos, devem ser avaliado com  critérios. 

Se necessário criar uma demanda para inibir o cancelamento (exclusão de notas ou pedido) da eliminação de resíduos caso o saldo que foi disponibilizado no TOP tenha sido utilizado.