Lentidão Gerar OP - Revisão

Lentidão ao gerar OP, a medida que aumenta a quantidade de revisões do PA.

Solução: Manter o histórico das últimas 40 revisões. Todas as outras foram deletadas, sendo possível recuperar com auxilio da TI. 

Para deletar as revisões antigas acessar a rotina abaixo:

Informar o código do produto que deseja excluir as revisões e a quantidade de revisões que irá manter e clique em OK.
Após realizar o processo, verificar se o problema de lentidão foi resolvido.

Script de Consulta de Produto x Revisão

SELECT DISTINCT SC2.C2_PRODUTO, SB1.B1_REVATU, sb1.b1_revatu - 40 AS REV FROM SC2010 SC2, SB1010 SB1

WHERE SC2.C2_FILIAL = '10' 

AND SC2.C2_FILIAL = SB1.B1_FILIAL

AND SC2.C2_PRODUTO = SB1.B1_COD

AND SC2.C2_EMISSAO BETWEEN '20190601' AND '20201008' 

AND sb1.b1_revatu BETWEEN '040' AND '999'

AND SC2.d_e_l_e_t_ = ' '

AND sb1.d_e_l_e_t_ = ' '

Script de Update

UPDATE SG1010 SET D_E_L_E_T_ = '*', R_E_C_D_E_L_ = R_E_C_N_O_, G1_XRG = '20201008_1' WHERE G1_FILIAL = '01' AND G1_COD = 'PSS01651' AND G1_REVINI <= '079' AND G1_REVFIM <= '079' AND D_E_L_E_T_ = ' ';