define cia='''001'''
define origen='''011'''
define destino='''911'''

set verify off

insert into inv_nomloc (cod_cia, ordinal, cod_bodega, codigo, descripcion)
   select cod_cia, ordinal, &destino, codigo, descripcion
   from  inv_nomloc
   where cod_cia=&cia
     and cod_bodega=&origen;

insert into inv_loc (cod_cia, cod_bodega, localiza, des_localiza)
   select cod_cia, &destino, localiza, des_localiza
   from  inv_loc
   where cod_cia=&cia
     and cod_bodega=&origen;

insert into inv_artic_locbod (cod_cia, cod_bodega, cod_articulo, localiza)
   select cod_cia, &destino, cod_articulo, localiza
   from  inv_artic_locbod
   where cod_cia=&cia
     and cod_bodega=&origen;
 
update inv_detmovimiento
  set cod_bodega=&destino
where cod_cia=&cia
  and cod_bodega=&origen;

update inv_lote_artic_bodega
  set cod_bodega=&destino
where cod_cia=&cia
  and cod_bodega=&origen;

delete inv_artic_locbod
where cod_cia=&cia
  and cod_bodega=&origen;


insert into inv_articulobod (cod_cia, cod_bodega, cod_articulo, COS_ULTIMO,
                             COS_MAYOR, FEC_ULTCOSTO, MIN_EXIST, MAX_EXIST,
                             PUNTO_REORDEN, PORC_UTILIDAD, FEC_ULTMOVTO)
   select cod_cia, '9'||substr(cod_bodega,2), cod_articulo, COS_ULTIMO,
          COS_MAYOR, FEC_ULTCOSTO, MIN_EXIST, MAX_EXIST,
          PUNTO_REORDEN, PORC_UTILIDAD, FEC_ULTMOVTO
   from  inv_articulobod
   where cod_cia='001'
     and cod_bodega in ('001','002','003','004','005','006','011');


UPDATE inv_ACUM_PERIODO
   SET COD_BODEGA='9'||substr(cod_bodega,2)
where cod_cia='001'
  and cod_bodega in ('001','002','003','004','005','006','011');
