Borrar Productos en A2 Administrativo Por Categoria

Tiempo sin postear, pero por complicaciones de trabajo....
unos amigos me pedian que necesitaban borrar item por categorias en a2, asi que le dejo aca los query


UPDATE SINVENTARIO SET FI_STATUS=FALSE WHERE FI_CATEGORIA='CODIGO_DEL_DEPARTAMENTO';

DELETE FROM SDetalleInv WHERE FDI_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SDetalleCompra WHERE FDI_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SDetalleVenta WHERE FDI_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SFixed WHERE FX_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SInvOferta WHERE FO_PRODUCTO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SProvInvent WHERE FTP_CODEPRODUCTO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SInvDep WHERE FT_CODIGOPRODUCTO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SDetalleLote WHERE FDI_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);
DELETE FROM SInventario WHERE FI_CODIGO IN (SELECT FI_CODIGO FROM SINVENTARIO WHERE FI_STATUS=FALSE);

donde dice CODIGO_DEL_DEPARTAMENTO van a colocar el codigo del departamento.. esto se hace en el dbisam.... es importante saber que esto borra el historial de ventas y compras del producto..como si nunca existio.. incluso las ofertas y los lotes.... si otro producto esta desactivado tambien lo borra

espero que le sirva...saludos