01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ajustar a rotina 6000 - Manutenção de Banco de Dados para incluir tratamento da PKG_ESTOQUE.

03. SOLUÇÃO

A rotina foi ajustada de acordo com os critérios: 

1. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_SAIDA, quando for 'SP':

/Atualizando PCEST/
UPDATE PCEST
SET ROW = REG_PCEST
WHERE CODPROD = PREG_PCMOV.CODPROD
AND CODFILIAL = PREG_PCMOV.CODFILIAL;

2. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_ENTRADA, quando for 'EP':

/Atualizando o regitro na PCEST/
UPDATE PCEST
SET ROW = REG_PCEST
WHERE CODPROD = R_ITEM.CODPRODMP
AND CODFILIAL = PREG_PCMOV.CODFILIAL;
END LOOP;

3. Chamada deverá ocorrer na finalização da transação;

4. Corrigir a geração das informações referentes a saída de produção CODOPER = 'SP' devendo ser comentado a inserção de informação no campo NUMTRANSENT e gerar informação no campo NUMTRANSVENDA, conforme procedure PRC_MONTA_BOICASADO.

=======================================  
PRC_TRANSFERE_EST_PRODUTO
=======================================

1. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_SAIDA:

– Faz a baixa
REG_PCEST.QTEST := nvl(REG_PCEST.QTEST,0) - P_QT;
REG_PCEST.QTESTGER := nvl(REG_PCEST.QTESTGER,0) - P_QT;

– Faz o update no banco
update PCEST set row = REG_PCEST where CODPROD = REG_PROD_ORIG.CODPROD and CODFILIAL = P_CODFILIAL;

2. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_ENTRADA:

– Faz a entrada
if nvl(P_QT_CONVERT,0) > 0 then
REG_PCEST_DEST.QTEST := nvl(REG_PCEST_DEST.QTEST,0) + (P_QT_CONVERT * P_QT);
REG_PCEST_DEST.QTESTGER := nvl(REG_PCEST_DEST.QTESTGER,0) + (P_QT_CONVERT * P_QT);
else
REG_PCEST_DEST.QTEST := nvl(REG_PCEST_DEST.QTEST,0) + P_QT;
REG_PCEST_DEST.QTESTGER := nvl(REG_PCEST_DEST.QTESTGER,0) + P_QT;
end if;

– Faz o update no banco
update PCEST set row = REG_PCEST_DEST where CODPROD = REG_PROD_DEST.CODPROD and CODFILIAL = P_CODFILIAL;

3. Chamada deverá ocorrer na finalização da transação;

=======================================
PRC_MONTA_BOICASADO
=======================================

1. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_SAIDA

--FAZ A BAIXA
REG_PCEST.QTEST := NVL (REG_PCEST.QTEST, 0) + PREG_PCMOV.QT;
REG_PCEST.QTESTGER := NVL (REG_PCEST.QTESTGER, 0) + PREG_PCMOV.QT;

– FAZ O UPDATE NO BANCO
UPDATE PCEST
SET ROW = REG_PCEST
WHERE CODPROD = PREG_PCMOV.CODPROD
AND CODFILIAL = PREG_PCMOV.CODFILIAL;

2. Retirar o Update da PCEST abaixo e substituir pela chamada da PKG_ESTOQUE utilizando o método VENDAS_ENTRADA:

IF R_ITEM.QTPRODMP > 0 THEN
REG_PCEST.QTEST := NVL (REG_PCEST.QTEST, 0) - (PREG_PCMOV.QT * R_ITEM.QTPRODMP / NVL (R_ITEM.QTPRODACAB, 1));
REG_PCEST.QTESTGER := NVL (REG_PCEST.QTESTGER, 0) - (PREG_PCMOV.QT * R_ITEM.QTPRODMP / NVL (R_ITEM.QTPRODACAB, 1));
ELSE
REG_PCEST.QTEST := NVL (REG_PCEST.QTEST, 0) - (PREG_PCMOV.QT * (R_ITEM.PERCPRODACABADO / 100));
REG_PCEST.QTESTGER := NVL (REG_PCEST.QTESTGER, 0) - (PREG_PCMOV.QT * (R_ITEM.PERCPRODACABADO / 100));
END IF;

– FAZ O UPDATE NO BANCO
UPDATE PCEST
SET ROW = REG_PCEST
WHERE CODPROD = R_ITEM.CODPRODMP
AND CODFILIAL = PREG_PCMOV.CODFILIAL;

3. Chamada deverá ocorrer na finalização da transação;

4. Incluir a dependência nas rotinas 6022 e 6029

04. DEMAIS INFORMAÇÕES

• Como atualizar as rotinas do WinThor?

• Link CCW: https://centraldecontrole.pcinformatica.com.br/