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