insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'EO', can_otrent, mon_otrent
   from inv_acum_mensual_movtos
   where (can_otrent)>0 or (mon_otrent)>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'EI', can_inicial, mon_inicial
   from inv_acum_mensual_movtos
   where (can_inicial)>0 or (mon_inicial)>0;

insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'EC', can_compra, mon_compra
   from inv_acum_mensual_movtos
   where can_compra>0 or mon_compra>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'ED', can_devcli, mon_devcli
   from inv_acum_mensual_movtos
   where can_devcli>0 or mon_devcli>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'EA', can_ajuspos, mon_ajuspos
   from inv_acum_mensual_movtos
   where can_ajuspos>0 or mon_ajuspos>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'ET', can_entrans, mon_entrans
   from inv_acum_mensual_movtos
   where can_entrans>0 or mon_entrans>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'SV', can_venta, mon_venta
   from inv_acum_mensual_movtos
   where can_venta>0 or mon_venta>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'SD', can_devprov, mon_devprov
   from inv_acum_mensual_movtos
   where can_devprov>0 or mon_devprov>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'SA', can_ajusneg, mon_ajusneg
   from inv_acum_mensual_movtos
   where can_ajusneg>0 or mon_ajusneg>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'ST', can_satrans, mon_satrans
   from inv_acum_mensual_movtos
   where can_satrans>0 or mon_satrans>0;
insert into inv_acum_periodo
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          'SR', can_otrsal, mon_otrsal
   from inv_acum_mensual_movtos
   where can_otrsal>0 or mon_otrsal>0;

create view inv_acum_mensual_movtos as
   select COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO,
          sum(decode(clase_movto,'EI',cantidad,0)) can_inicial,
          sum(decode(clase_movto,'EI',monto,0))    mon_inicial,
          sum(decode(clase_movto,'EC',cantidad,0)) can_compra,
          sum(decode(clase_movto,'EC',monto,0))    mon_compra,
          sum(decode(clase_movto,'ED',cantidad,0)) can_devcli,
          sum(decode(clase_movto,'ED',monto,0))    mon_devcli,
          sum(decode(clase_movto,'EA',cantidad,0)) can_ajuspos,
          sum(decode(clase_movto,'EA',monto,0))    mon_ajuspos,
          sum(decode(clase_movto,'ET',cantidad,0)) can_entrans,
          sum(decode(clase_movto,'ET',monto,0))    mon_entrans,
          sum(decode(clase_movto,'EO',cantidad,0)) can_otrent,
          sum(decode(clase_movto,'EO',monto,0))    mon_otrent,
          sum(decode(clase_movto,'SV',cantidad,0)) can_venta,
          sum(decode(clase_movto,'SV',monto,0))    mon_venta,
          sum(decode(clase_movto,'SD',cantidad,0)) can_devprov,
          sum(decode(clase_movto,'SD',monto,0))    mon_devprov,
          sum(decode(clase_movto,'SA',cantidad,0)) can_ajusneg,
          sum(decode(clase_movto,'SA',monto,0))    mon_ajusneg,
          sum(decode(clase_movto,'ST',cantidad,0)) can_satrans,
          sum(decode(clase_movto,'ST',monto,0))    mon_satrans,
          sum(decode(clase_movto,'SR',cantidad,0)) can_otrsal,
          sum(decode(clase_movto,'SR',monto,0))    mon_otrsal
   from inv_acum_periodo
   group by COD_CIA,SUCURSAL,COD_BODEGA,COD_ARTICULO,ANO_FISCAL,PER_PROCESO;

   select COD_CIA,SUCURSAL,COD_BODEGA,
          sum(can_inicial+can_compra+can_devcli+can_ajuspos+can_entrans) canents,
          sum(can_venta+can_devprov+can_ajusneg+can_satrans+can_otrsal)  cansals,
          sum(mon_inicial+mon_compra+mon_devcli+mon_ajuspos+mon_entrans) monents,
          sum(mon_venta+mon_devprov+mon_ajusneg+mon_satrans+mon_otrsal)  monsals
   from inv_acum_mensual_movtos
   group by COD_CIA,SUCURSAL,COD_BODEGA;