drop table fams;
create table fams as
   select distinct '01' fam, tipo familia from invent
   where tipo is not null;
update fams set fam=substr(to_char(rownum,'00'),2);

drop table clas;
create table clas as
   select distinct clase cla, 'Clase '||clase clase
   from invent
   where clase is not null;

drop table mars;
create table mars as
   select distinct '001' mar, 'Marca 001' tipo
   from invent;


insert into inv_linea
  (COD_CIA,COD_LINEA,DES_LINEA,PRECIO_REGULADO,PORC_FINANCIERO,PORC_MAYORISTA,PORC_DETALLISTA)
  select '001', fam, familia, 'N', 0, null, null
  from fams;


insert into inv_clase
   (COD_CIA,COD_CLASE,DES_CLASE,PORC_UTILIDAD)
   select '001', cla, substr(clase,1,30), null
   from clas;

select count(distinct cla) from clas;


insert into inv_marca
   (COD_CIA,COD_MARCA,DES_MARCA,PORC_UTILIDAD)
   select '001', mar, substr(tipo,1,30), null
   from mars;

select count(distinct mar) from mars;


insert into inv_comb_lcm
   (COD_CIA, COD_LINEA, COD_CLASE, COD_MARCA,PORC_UTILIDAD)
   select '001', cod_linea, cod_clase, cod_marca,  0
   from inv_linea, inv_clase, inv_marca;

create table reps as
   select clase, codigo, count(*) conteo
   from invent
   group by clase, codigo
   having count(*)>1;

declare
   cursor repetidos is
   select clase, codigo, conteo
   from reps;
begin
   for r in repetidos
   loop
      delete from inventario
      where clase=r.clase
        and codigo=r.codigo
        and rownum<r.conteo;
   end loop;
end;
/

alter table invent add (linea varchar2(5) default '04' not null);
alter table invent add (medida varchar2(5) default 'UND' not null);
update invent i set linea=(select fam from fams f
                          where f.familia=i.tipo)
where exists (select 1 from fams f where f.familia=i.tipo);

update invent set medida='LIT'
where linea='02';

insert into inv_articulo
   (COD_CIA,COD_ARTICULO,TIPO_INV,COD_LINEA,COD_CLASE,COD_MARCA,DES_ARTICULO,IND_BLOQUEADO,
    MEDIDA,COD_MONEDA,MIN_VENTA,CLASE_ABC,FRACCION,FEC_ULTMOD,COD_DEPTO,DES_BLOQUEADO,
    COD_TABCOMSN,IMPTOCONS,IMPTOVTAS,PESO,COD_PARTIDA,PROVEEDOR_TITULAR,MAXDESCUENTO,EMBALAJE,
    DESC_CORTA)
   select '001',clase||codigo,'1', linea, clase, '001', ARTICULO, 'N',
          medida,'CL',1,'A','N',trunc(sysdate),'001',null,
           null, null, DECODE(PCT_VENTAS,'13','ISV',NULL),0,null,null,null,un_medida,null
   from invent;

insert into inv_deptos
   (COD_CIA,COD_DEPTO,DESCRIPCION,BLQPRECIOS,BODEGA,CCOSTO,SUFIJOCONTABLE)
   values ('001','001','General','S','001','0',null);


insert into inv_deptos
   (COD_CIA,COD_DEPTO,DESCRIPCION,BLQPRECIOS,BODEGA,CCOSTO,SUFIJOCONTABLE)
   values ('001','002','Servicios','N','001','0',null);

update inv_articulo set tipo_inv='4', cod_depto='002'
where cod_linea='03';


insert into predetlista
   (COD_CIA,COD_LISTA_PRECIO,COD_MONEDA,COD_ARTICULO,COSTO,PRECIO_UNITARIO,PORC_UTILIDAD,DESCUENTO,DOCUMENTO)
   select '001', '001', 'CL', clase||codigo, nvl(valor_unit,precio_ven), precio_ven, 0, 0, null
   from invent
   where precio_ven is not null;

insert into inv_lote
 (COD_CIA,COD_LOTE,COD_ARTICULO,COD_LOTEPROV,COD_PROVEEDOR,
  FEC_INGRESO,FEC_VENCE,COS_UNIDAD,COS_COMPRA,DESCRIPCION)
  select '001','001',clase||codigo,null,null,
  sysdate, null, 1, 1, 'Lote 001'
from invent;



insert into inv_detmovimiento
(COD_CIA,SUCURSAL,TIP_MOVTO,COD_MOVTO,NUM_DOCTO,COD_BODEGA,
COD_LOTE,COD_ARTICULO,MEDIDA,DOC_REFEREN,CAN_ARTICULO,CAN_DESPACHADA,
CAN_BONIFICADA,LOCALIZA,CCOSTO,IMPUESTO_VTAS,SUB_TOTAL,CODMOVTO_REF)
select '001', '001' suc, 'E', '03', 1, '001','001',clase||codigo,medida,'0',cantidad,cantidad,
       0, null, '0', 0, nvl(cantidad*valor_unit,1), null
from invent
where cantidad>0;

select clase||codigo,medida,cantidad, cantidad*valor_unit
from invent
where cantidad>0 and valor_unit is null;

Poner precio regulado a combustibles.
Crear grupo pistero en la seguridad
Crear caja pista
Crear sinonimos y otorgar permisos
Configurar redondeo 10/5
Borrar usuarios sobrantes


select distinct substr(codigo,1,5)
from inventario
minus
select cod_marca from inv_marca;


update inv_linea set des_linea=replace(des_linea,chr(191),chr(233))
where des_linea like '%'||chr(191)||'%';

update inv_clase set des_clase=replace(des_clase,chr(191),chr(233))
where des_clase like '%'||chr(191)||'%';

update inv_clase set des_clase=replace(des_clase,chr(161),chr(237))
where des_clase like '%'||chr(161)||'%';

update inv_clase set des_clase=replace(des_clase,chr(162),chr(243))
where des_clase like '%'||chr(162)||'%';

update inv_marca set des_marca=replace(des_marca,chr(191),chr(233))
where des_marca like '%'||chr(191)||'%';

update inv_marca set des_marca=replace(des_marca,chr(161),chr(237))
where des_marca like '%'||chr(161)||'%';

update inv_marca set des_marca=replace(des_marca,chr(162),chr(243))
where des_marca like '%'||chr(162)||'%';

update inv_marca set des_marca=replace(des_marca,chr(164),chr(241))
where des_marca like '%'||chr(164)||'%';


update inv_articulo set des_articulo=replace(des_articulo,chr(191),chr(233))
where des_articulo like '%'||chr(191)||'%';

update inv_articulo set des_articulo=replace(des_articulo,chr(161),chr(237))
where des_articulo like '%'||chr(161)||'%';

update inv_articulo set des_articulo=replace(des_articulo,chr(162),chr(243))
where des_articulo like '%'||chr(162)||'%';

update inv_articulo set des_articulo=replace(des_articulo,chr(164),chr(241))
where des_articulo like '%'||chr(164)||'%';


update predetlista set precio_unitario=trunc((precio_unitario+2.49)/5)*5, porc_utilidad=0;


--update inv_articulo set des_articulo=substr(des_articulo,1,49)
--where length(des_articulo)=50;

--update inv_clase set des_clase=substr(des_clase,1,29)
--where length(des_clase)=30;

--update inv_marca set des_marca=substr(des_marca,1,29)
--where length(des_marca)=30;