DELETE FROM consolida1 WHERE CODSUCURSAL = '351' AND (DVDIAOPE LIKE '%/00/2025' OR DDDIAOPE LIKE '%/00/2025');
UPDATE consolida1 SET DEVALPAR  = DEVALUNI*DECANTIDAD WHERE DEVALPAR = 0 AND PERIODODOC = '002025' AND DECODBOD='351';
UPDATE consolida1 SET DEVALBASE = DEVALTOTAL*DEVALIVA WHERE DEVALBASE = 0 AND PERIODODOC = '002025' AND DECODBOD='351';
UPDATE consolida1 SET DEVALIVA  = DEVALTOTAL-DEVALBASE WHERE PERIODODOC = '002025' AND DECODBOD='351';
UPDATE consolida1 SET VRBASEDOC = TOTALDOC-VRIVADOC WHERE VRBASEDOC = 0 AND VRIVADOC = 0 AND PERIODODOC = '002025' AND DECODBOD='351';
