drop table clie;
create table clie as
select distinct cod_cliente from cxc_enc_movimiento;

drop table clit;
create table clit  as select distinct substr(cliente,1,8) cod_cliente
from traslado.tarcliente;

drop table clif;
create table clif as
select cod_cliente from clit
minus
select cod_Cliente from clie;


SELECT tip_doc,max(num_doc) from cxc_enc_movimiento
group by tip_doc;


SELECT tip_doc,max(num_doc) from cxc_enc_pago_Nota
group by tip_doc;


delete cxc_det_pago_nota
where (cod_cia,sucursal,tip_doc,num_doc) 
in (select cod_cia,sucursal,tip_doc,num_doc
from cxc_enc_pago_nota
where cod_Cliente in (select cod_Cliente from clif));


delete cxc_enc_pago_Nota
where cod_Cliente in (select cod_Cliente from clif);


delete cxc_enc_movimiento
where cod_Cliente in (select cod_Cliente from clif);

drop table saldo;
create table saldo as
select a.cod_Cliente,sum(decode(b.tip_saldo,'D',a.mon_saldo,-a.mon_saldo)) saldo
from cxc_enc_movimiento a,cxc_documento b
where a.tip_doc=b.tip_doc
group by cod_cliente;

insert into saldo
select a.cod_Cliente,sum(decode(b.tip_saldo,'D',a.mon_pago,-a.mon_pago))
from cxc_enc_pago_nota a,cxc_documento b
where a.tip_doc=b.tip_doc
group by cod_cliente;



declare cursor xx is 
  select cod_Cliente,saldo from saldo;
begin
  for a in xx loop
    update cxc_Credito
    set saldo=a.saldo
    where cod_Cia='001'
    and linea='001'
    and cod_cliente=a.cod_cliente;
  end loop;
end;


--Esto es del libro de precios
--delete from GEN_ENC_PRECIO;                                                                         
--delete from GEN_CAMB_PRECIO;                                                                        

insert into gen_moneda select * from viejo.gen_moneda;
insert into gen_pais select * from viejo.gen_pais;
insert into gen_zona select * from viejo.gen_zona;
insert into gen_subzona select * from viejo.gen_subzona;
insert into GEN_DENOMINACIONES select * from gen_denominaciones;                                                                      
insert into gen_mas_comision select * from gen_mas_comision;
insert into gen_tipo_cambio select * from gen_tipo_cambio;

insert into gen_parametro
select COD_CIA,FOR_FECHA,FOR_CLIENTE,FOR_PROVEEDOR,          
FOR_IMP_CONSUMO,FOR_IMP_VENTA,IND_IMP_VTA_CONS,IND_CONTA_LINEA,COD_MONEDA_BASE
from  viejo.gen_parametro;

insert into gen_impuesto(COD_CIA,IMPUESTO,PORCENTAJE,DESCRIPCION,CUENTA)
values('001','ISV',13,'IMPUESTO SOBRE VENTAS',NULL);         

commit;
insert into gen_compania select * from viejo.gen_compania;
insert into gen_provincia select * from viejo.gen_provincia;
insert into gen_canton select * from viejo.gen_canton;
insert into gen_distrito select * from viejo.gen_distrito;
insert into GEN_TIPCONTACTO select * from viejo.gen_tipcontacto;                                                                        
insert into  GEN_CONTCLIE select * from viejo.gen_contclie;                                                                           
insert into GEN_CONTPROV select * from viejo.gen_contprov;
insert into GEN_CONSTANTES select * from viejo.gen_constantes;                                                                                                                                                    
insert into gen_sucursal select * from viejo.gen_sucursal;        
insert into  GEN_CLASIFICACION select * from viejo.gen_clasificacion;
commit;



insert into gen_clase_cliente                                                    
(COD_CIA,COD_CLASE,DES_CLASE,LISTA_PRECIO,LISTA_DESCUENTO,CCOSTO,PORC_RETIR)                   
select COD_CIA,COD_CLASE,DES_CLASE,LISTA_PRECIO,LISTA_DESCUENTO,CCOSTO,0
from viejo.gen_clase_cliente;
     
insert into GEN_CLASE_CLIE_MONEDA select * from viejo.GEN_CLASE_CLIE_MONEDA;                                                                  
insert into GEN_CLASE_PROV select * from viejo.GEN_CLASE_PROV;                                                                         
insert into GEN_CLASE_PROV_MONEDA select * from viejo.GEN_CLASE_PROV_MONEDA;                                                                  
insert into GEN_OFICINA select * from viejo.GEN_OFICINA;
insert into gen_tipo_agente select * from viejo.gen_tipo_agente;
insert into GEN_AGENTE select * from viejo.GEN_AGENTE;
insert into GEN_FUNCIONES select * from viejo.gen_funciones;                                                                                                                                                                                                                             
insert into GEN_COM_AGENTE select * from viejo.gen_com_agente;                                                                         
commit;
                                                                            
insert into GEN_CLIENTE
(COD_CIA,COD_CLIENTE,COD_CLASE,TIP_CLIENTE,SUCURSAL,COD_CIACLIENTE,CEDULA,                 
NOM_CLIENTE,DES_DIRECCION,CONTACTO,NUM_APARTADO,NUM_TELEFONO1,NUM_TELEFONO2,          
NUM_FAX,DES_RAZSOCIAL,NOM_RESPONSABLE,COD_PROVINCIA,COD_CANTON,COD_DISTRITO,           
IND_PAGACONSM,IND_PAGAVENTA,IND_MOROSO,POR_MAXDESCUE,IND_CREDITCER,DES_RECIBOFAC,          
DES_PAGOFACTR,IND_RECIBCORR,COD_ZONA,COD_SUBZONA,LISTA_PRECIO,LISTA_DESCUENTO,        
DIRECCION_ENVIO,ESTADO,CONSIGNATARIO)
select COD_CIA,COD_CLIENTE,COD_CLASE,TIP_CLIENTE,SUCURSAL,COD_CIACLIENTE,CEDULA,                 
NOM_CLIENTE,DES_DIRECCION,CONTACTO,NUM_APARTADO,NUM_TELEFONO1,NUM_TELEFONO2,          
NUM_FAX,DES_RAZSOCIAL,NOM_RESPONSABLE,COD_PROVINCIA,COD_CANTON,COD_DISTRITO,           
IND_PAGACONSM,IND_PAGAVENTA,IND_MOROSO,POR_MAXDESCUE,IND_CREDITCER,DES_RECIBOFAC,          
DES_PAGOFACTR,IND_RECIBCORR,COD_ZONA,COD_SUBZONA,LISTA_PRECIO,LISTA_DESCUENTO,        
DIRECCION_ENVIO,ESTADO,null from viejo.gen_cliente;


insert into GEN_CLIENTE_ACCION select * from viejo.GEN_CLIENTE_ACCION;                                                                     
insert into GEN_CLIENTE_BITACORA select * from viejo.gen_cliente_bitacora;                                                                   
insert into GEN_CLIENTE_CLASIF select * from viejo.gen_cliente_clasif;                                                                     
insert into GEN_CLIENTE_REFERENCIA select * from viejo.gen_cliente_referencia;                                                                 
insert into GEN_CLIE_AGENTE select * from viejo.gen_clie_agente;                                                                        
insert into GEN_PERIODO select * from viejo.gen_periodo;                                                                            
insert into GEN_PERIODO_RANGO select * from viejo.gen_periodo_rango;                                                                      
insert into GEN_PERSONA select * from viejo.gen_persona;                                                                            

          
insert into GEN_PROVEEDOR
(COD_CIA,COD_PROVEEDOR,COD_CLASE,TIPO_PROVEEDOR,CEDULA,DES_PROVEEDOR,DES_DIRECCION,          
CONTACTO,NUM_APARTADO,NUM_TELEFONO1,NUM_TELEFONO2,NUM_FAX,DES_RAZSOCIAL,NOM_RESPONSABLE,        
COD_PROVINCIA ,COD_CANTON,COD_DISTRITO,ESTADO_COBRO,COD_PAIS,     
COD_PAIS_DESPACHO,DIR_DESPACHO,ENCARGADO_DESPACHO,ENCARGADO_PAGO,IND_INHABILITADO,    
EMAIL,FEC_ULTMOVTO)           
select COD_CIA,COD_PROVEEDOR,COD_CLASE,TIPO_PROVEEDOR,CEDULA,DES_PROVEEDOR,DES_DIRECCION,          
CONTACTO,NUM_APARTADO,NUM_TELEFONO1,NUM_TELEFONO2,NUM_FAX,DES_RAZSOCIAL,NOM_RESPONSABLE,        
COD_PROVINCIA ,COD_CANTON,COD_DISTRITO,ESTADO_COBRO,COD_PAIS,     
COD_PAIS_DESPACHO,DIR_DESPACHO,ENCARGADO_DESPACHO,ENCARGADO_PAGO,IND_INHABILITADO,    
EMAIL,FEC_ULTMOVTO from viejo.gen_proveedor;
                                                                          
insert into GEN_PROV_COMISION select * from viejo.GEN_PROV_COMISION;                                                                      

commit;                                                                     