-- Ojo con suc

DELETE CLIENTES
   WHERE COD_CLIENT=0;

insert into gen_cliente
  (cod_cia, cod_cliente,COD_CLASE,TIP_CLIENTE,SUCURSAL,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_MOROSO,POR_MAXDESCUE,IND_CREDITCER,DES_RECIBOFAC,
   DES_PAGOFACTR,IND_RECIBCORR,COD_ZONA,COD_SUBZONA,LISTA_PRECIO,   
   LISTA_DESCUENTO,DIRECCION_ENVIO,ESTADO,CONSIGNATARIO,POR_EXOVENTA)
  select '001',COD_CLIENT, '01', 'J', '002' suc,nvl(cedula,'1'),CLIENTE_NO,
     nvl(DIRECCION,'X'),REPRESENT,null,TELEFONO,null,FAX,CLIENTE_NO razon,
     REPRESENT, '06','10','03','N','N',0,'N',null,
     null,'N','03','01',null lp, null ld, direccion, 'AC', null, 0
  from clientes;

insert into cxc_credito
   (COD_CIA,LINEA,COD_CLIENTE,PERFIL,DIAS_CREDITO,LIMITE_CREDITO,
    INTERES,INT_MORA,SALDO,CKSTRANSITO,ESTADO)
   select '001','001', cod_client, '001', dias, credit_max,
    0, 0, 0, 0, 'A'
   from clientes;

delete from factura
where saldo_fact=0;

update cobros c
   set fecha_pag=(select c.fecha+x.dias from clientes x
                  where x.cod_client=c.cod_client)
where exists (select 1 from clientes x
                  where x.cod_client=c.cod_client);

insert into cxc_enc_movimiento
  (COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,FEC_DOC,FEC_INT,FEC_VENCE,INTERES,INT_MORA,
   NUM_ASIENTO,ANO_FISCAL,PER_PROCESO,COD_CLIENTE,LINEA,PERSONA,COD_AGENTE,
   MON_DOCTO,COD_MONEDA,TIP_CAMBIO,TIP_CAMBIO_BASE,NUM_PAGOS,NUM_DIAS_PAGO,
   DES_OBSERVACION,ESTADO,IND_EXTERNO,MON_SALDO,MON_INTERES,MON_INT_MORA,   
   TIPO_COBRO,DOC_REF,NOM_ASIENTO,AUTORIZACION,FEC_REG)
  select '001','002' suc, 'FAC', rownum, emision, vence_fech, vence_fech, 0, 0,
   null, 2007, 6, cod_client, '001', null, '01',
   monto_fact, 'CL', 1,1,1,1,
   'Traslado', 'A', null, saldo_fact, 0, 0,
   'N',factura_nu, null, null, sysdate
  from factura
  where tipo_movto='CREDITO';

update cxc_con_documento c
  set consecutivo=(select count(*)+1 from cxc_enc_movimiento e)
where cod_cia='001'
  and sucursal='002'
  and tip_doc='FAC';

delete cxc_con_documento
where sucursal!='002';


insert into cxc_obligacion
  (COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,NUM_PARTE,FEC_VENCE,MON_PAGO,MON_SALDO)
  select '001', '002' suc, 'FAC',  rownum, 1, vence_fech, monto_fact, saldo_fact
  from factura
  where tipo_movto='CREDITO';

update cxc_credito c
   set saldo=(select sum(mon_saldo) from cxc_enc_movimiento x
              where x.cod_cia=c.cod_cia and x.cod_cliente=c.cod_cliente
                and x.linea=c.linea)
where exists (select 1 from cxc_enc_movimiento x
              where x.cod_cia=c.cod_cia and x.cod_cliente=c.cod_cliente
                and x.linea=c.linea);

insert into gen_clie_agente
   (COD_CIA,SUCURSAL,COD_CLIENTE,TIPO_AGENTE,COD_AGENTE,COD_DEPTO)
   select '001', '002' suc, cod_client, 'VN', '01', null
   from clientes;