Hoje vou mostrar como estornar o Cálculo do Custo Médio (MATA330).

Primeiramente pessoal, se forem realizar testes, ou se forem realizar os procedimentos abaixo, tentem fazer primeiro em base de testes. Não existe um procedimento padrão para estorno do Cálculo do Custo Médio, então aqui será demonstrado como fazer um paliativo para isso.

Esse tutorial foi montado pelo grande Kleber Santos (LinkedIn). Ah e para esse caso, não existem Ordens de Produção.

1. Acesse o configurador, no MV_ULMES altere para um mês antes, por exemplo, se você quer estornar Setembro, volte a data para agosto

Alterando o MV_ULMES

2. Agora faça um UPDATE na tabela SB9, excluindo todos os registros a partir do primeiro dia do mês que será estornado (no nosso caso, a partir de 01 de Setembro)

UPDATE SB9010
SET D_E_L_E_T_ = '*', R_E_C_D_E_L_ = R_E_C_N_O_
WHERE B9_DATA >= '20200901' AND D_E_L_E_T_ = ' '

Limpando a SB9

3. Agora é só rodar novamente o MATA330

Update (23/03/2021):

Pessoal, o grande Jonas Machado, mandou uma contribuição para quem também trabalha com lote (SBJ), endereçamento (SBK) e FIFO (SCC).

Para isso, se atente a algumas informações como:

• Faça backup do banco antes do procedimento
• Se quiser, faça backup apenas das tabelas que serão atualizadas
• Teste em homologação antes
• Se tem múltiplas filiais e empresas, adapte na query

Abaixo a query montada:

SELECT MAX(CC_DATA) FROM SCC010 WHERE D_E_L_E_T_=''
/*
DELEÇÃO DA TABELA DE SALDOS INICIAIS FIFO
*/
UPDATE SCC010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE CC_DATA=(SELECT MAX(CC_DATA) FROM SCC010 WHERE D_E_L_E_T_='') AND D_E_L_E_T_=''
--QUERY SIMPLES
UPDATE SCC010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE CC_DATA='20210131' AND D_E_L_E_T_=''

SELECT MAX(BJ_DATA) FROM SBJ010 WHERE D_E_L_E_T_=''
/*
DELEÇÃO DA TABELA DE SALDOS INICIAIS POR LOTE
*/
UPDATE SBJ010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE BJ_DATA=(SELECT MAX(BJ_DATA) FROM SBJ010 WHERE D_E_L_E_T_='') AND D_E_L_E_T_=''
--QUERY SIMPLES
UPDATE SBJ010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE BJ_DATA='20210131'

SELECT MAX(BK_DATA) FROM SBK010 WHERE D_E_L_E_T_=''
/*
DELEÇÃO NA TABELA DE SALDOS INICIAIS POR ENDEREÇO
*/
UPDATE SBK010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE BK_DATA=(SELECT MAX(BK_DATA) FROM SBK010 WHERE D_E_L_E_T_='') AND D_E_L_E_T_=''
--QUERY SIMPLES
UPDATE SBK010 SET D_E_L_E_T_='*', R_E_C_D_E_L_ = R_E_C_N_O_ WHERE BK_DATA='20210131'

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: Protheus