insert into cxp_documento
select * from viejo.cxp_documento;

insert into cxp_con_documento
select * from viejo.cxp_con_documento;

insert into cxp_credito
select * from viejo.cxp_credito;

insert into cxp_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_proveedor,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,
 doc_ref,fec_reg,nom_asiento)
select cod_cia,sucursal,tip_doc,num_doc,fec_doc,fec_int,fec_vence,nvl(interes,0),nvl(int_mora,0),num_asiento,ano_fiscal,
 per_proceso,cod_proveedor,mon_docto,cod_moneda,tip_cambio,tip_cambio,num_pagos,num_dias_pago,
 des_observacion, estado,ind_externo,mon_saldo,mon_interes,mon_int_mora,
 substr(doc_ref,1,10),fec_reg,nom_asiento
from viejo.cxp_enc_movimiento;

commit;

insert into cxp_enc_pago_nota
(cod_cia,sucursal,tip_doc,num_doc,cod_proveedor,fec_doc,ano_fiscal,per_proceso,cod_moneda,tip_cambio,
 tip_cambio_base,ind_forma_pago,num_asiento,mon_pago,interes,int_mora,estado,des_observacion,ind_externo,
 doc_ref,fec_reg,nom_asiento,tip_doc_ref)
 select cod_cia,sucursal,tip_doc,num_doc,cod_proveedor,fec_doc,ano_fiscal,per_proceso,cod_moneda,tip_cambio,
 tip_cambio,ind_forma_pago,num_asiento,mon_pago,interes,int_mora,estado,des_observacion,ind_externo,
 substr(doc_ref,1,10),fec_reg,nom_asiento,tip_doc_ref
 from viejo.cxp_enc_pago_nota;

commit;

insert into cxp_det_pago_nota
(COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,TIP_DOC_REF,NUM_DOC_REF,NUM_PARTE,FEC_VENCE,      
MON_DESCUENTO,MON_PAGO,INTERES,INT_MORA,SUCURSAL_REF)   
select COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,TIP_DOC_REF,NUM_DOC_REF,NUM_PARTE,FEC_VENCE,      
MON_DESCUENTO,MON_PAGO,INTERES,INT_MORA,SUCURSAL_REF   
from viejo.cxp_det_pago_nota;
commit;

insert into cxp_obligacion
(COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,NUM_PARTE,FEC_VENCE,MON_PAGO,MON_SALDO)      
select COD_CIA,SUCURSAL,TIP_DOC,NUM_DOC,NUM_PARTE,FEC_VENCE,MON_PAGO,MON_SALDO      
from viejo.cxp_obligacion;

insert into cxp_enc_gen_pago
(COD_CIA,ID_PAGO,COD_PROVEEDOR,SUCURSAL,COD_BANCO,CUENTA,TIP_DOC,                
FEC_DOC,COD_MONEDA,IND_FORMA_PAGO,REQ_REPORTE,ESTADO)                 
select COD_CIA,ID_PAGO,COD_PROVEEDOR,SUCURSAL,COD_BANCO,CUENTA,TIP_DOC,                
FEC_DOC,COD_MONEDA,IND_FORMA_PAGO,REQ_REPORTE,estado
from viejo.cxp_enc_gen_pago;

insert into cxp_det_gen_pago
(COD_CIA,ID_PAGO,COD_PROVEEDOR,SUCURSAL,TIP_DOC,NUM_DOC,NUM_PARTE,              
FEC_VENCE,MON_PAGO,INTERES,INT_MORA,DESCUENTO)              
select COD_CIA,ID_PAGO,COD_PROVEEDOR,SUCURSAL,TIP_DOC,NUM_DOC,NUM_PARTE,            
FEC_VENCE,MON_PAGO,INTERES,INT_MORA,DESCUENTO              
from viejo.cxp_det_gen_pago;

insert into cxp_pago_nota_con
select * from viejo.cxp_pago_nota_con;

insert into cxp_enc_movimiento_con
select * from viejo.cxp_enc_movimiento_con;


insert into cxp_cheques
(cod_cia,sucursal,tip_doc,num_doc,cuenta,tipo_mov,documento,fecha_pago,monto_pago,estado)
select cod_cia,sucursal,tip_doc,num_doc,cuenta,tipo_mov,documento,fecha_pago,monto_pago,estado
from viejo.cxp_cheques;

commit;


declare 
  cursor c_mov is 
  select a.cod_cia,a.sucursal,a.tip_doc,a.num_doc,b.fec_doc,a.cod_proveedor,a.cod_moneda,a.tip_cambio,
  a.ano_fiscal,a.per_proceso,b.mon_pago,a.num_asiento,b.id_pago,b.sucursal_ref,b.tip_doc_ref,b.num_doc_ref,a.fec_vence
  from cxp_enc_movimiento_res a,cxp_canmov_res b
  where a.cod_cia = b.cod_cia
  and   a.sucursal= b.sucursal
  and   a.tip_doc = b.tip_doc
  and   a.num_doc = b.num_doc;
  vconse number(10);
begin
   for x in c_mov
   loop
      select consecutivo+1 into vconse
      from cxp_con_documento
      where cod_cia = x.cod_cia
      and   sucursal= x.sucursal
      and   tip_doc = x.tip_doc;

      insert into cxp_enc_pago_nota
      (cod_cia,sucursal,tip_doc,num_doc,cod_proveedor,fec_doc,ano_fiscal,per_proceso,cod_moneda,tip_cambio,
      ind_forma_pago,num_asiento,mon_pago,interes,int_mora,estado,des_observacion,ind_externo,
      ind_impreso,ind_int_bancos,doc_ref,fec_reg,nom_asiento,tip_doc_ref)
      values(x.cod_cia,x.sucursal,x.tip_doc,vconse,x.cod_proveedor,x.fec_doc,x.ano_fiscal,x.per_proceso,
      x.cod_moneda,x.tip_cambio,'E',x.num_asiento,x.mon_pago,0,0,'A','Movimiento a Saldo Generado',null,
      'N','N',x.num_doc,x.fec_doc,null,x.tip_doc);

      insert into cxp_det_pago_nota
      (cod_cia,sucursal,tip_doc,num_doc,sucursal_ref,tip_doc_ref,num_doc_ref,num_parte,
       fec_vence,mon_descuento,mon_pago,interes,int_mora)
      values
      (x.cod_cia,x.sucursal,x.tip_doc,vconse,x.sucursal_ref,x.tip_doc_ref,x.num_doc_ref,1,
       x.fec_vence,0,x.mon_pago,0,0);
      
      update cxp_con_documento
      set consecutivo=consecutivo+1
      where cod_cia = x.cod_cia
      and   sucursal= x.sucursal
      and   tip_doc = x.tip_doc;

   end loop;
   commit;
end;
/



