declare cursor cmov is
  select * from com_enc_nacionalizacion
  where cod_cia='001'
  and fecha<=to_date('30/09/2001','dd/mm/yyyy');
begin
  for a in cmov
  loop
    delete com_det_nacionalizacion
    where cod_cia='001'
    and sucursal='001'
    and num_nacionalizacion=a.num_nacionalizacion;

    delete com_cargos_nacionalizacion
    where cod_cia='001'
    and sucursal='001'
    and num_nacionalizacion=a.num_nacionalizacion;

    delete com_nac_arancel
    where cod_cia='001'
    and sucursal='001'
    and num_nacionalizacion=a.num_nacionalizacion;

    delete com_enc_nacionalizacion
    where cod_cia='001'
    and sucursal='001'
    and num_nacionalizacion=a.num_nacionalizacion;


  end loop;
end;

declare cursor cmov is
  select * from com_enc_orden
  where cod_cia='001'
  and fecha<=to_date('30/09/2001','dd/mm/yyyy');
begin
  for a in cmov
  loop

    delete com_det_fac_orden
    where cod_cia='001'
    and sucursal='001'
    and num_orden=a.num_orden;

    delete com_det_orden
    where cod_cia='001'
    and sucursal='001'
    and num_orden=a.num_orden;
    delete com_enc_orden
    where cod_cia='001'
    and sucursal='001'
    and num_orden=a.num_orden;


  end loop;
end;


declare cursor cmov is
  select * from com_enc_factura
  where cod_cia='001'
  and fecha<=to_date('30/09/2001','dd/mm/yyyy');
begin
  for a in cmov
  loop
    delete com_det_factura
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura
    and cod_proveedor=a.cod_proveedor;

    delete com_det_fac_orden
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura;

    delete com_enc_fac_orden
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura
    and cod_proveedor=a.cod_proveedor;

    delete com_cargos_factura
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura
    and cod_proveedor=a.cod_proveedor;


    delete com_est_factura
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura
    and cod_proveedor=a.cod_proveedor;

    delete com_enc_factura
    where cod_cia='001'
    and sucursal='001'
    and cod_movto=a.cod_movto
    and num_factura=a.num_factura
    and cod_proveedor=a.cod_proveedor;

  end loop;
end;


declare
  vnum number(3):=0;
  varticulo varchar2(25);
begin
  loop
     vnum:=vnum+1;
     if vnum>99 then
        exit;
     end if;
     if vnum<10 then
        varticulo:='0'||to_char(vnum);
     else
        varticulo:=to_char(vnum);
     end if;
     insert into inv_articulo 
     (COD_CIA,COD_ARTICULO,TIPO_INV,COD_LINEA,COD_CLASE,COD_MARCA,DES_ARTICULO,IND_BLOQUEADO,DES_BLOQUEADO,
     COD_TABCOMSN,POR_IMPTOCON,IND_IMPTOVNT,COD_MONEDA,PESO,COD_PARTIDA,IND_DESCUENTO,MEDIDA,CLASE_ABC,
     IND_CONV_MONTO,COD_DEPTO,FEC_ULTMOD,MIN_VENTA,FRACCION,COLOR,TAMANO,ESTILO)
    values('001',varticulo,'001','000','000','000','COMODIN '||varticulo,'N',null,
    '01',0,'S','CL',0,null,'S','UND','A',
    'N','000',sysdate,1,'S',null,null,null);
   end loop;
end;

  
 IND_CONV_MONTO,COD_DEPTO,FEC_ULTMOD,MIN_VENTA,FRACCION,COLOR,TAMANO,ESTILO                 
 from inv_articulo 
 where cod_cia      = :com_det_factura.cod_cia
 and   cod_articulo = :com_det_factura.cod_articulo;
