/*
EVENTO TRANSFER_DEFAULT PARA EL FUNCIONAMIENTO DEL TRASPASO DE CRÉDITOS VIGENTES A VENCIDOS
*/

DELETE FROM TSUBSISTEMAEVENTOSTRANSACCION where CEVENTO='TRANSFER_DEFAULT' AND FHASTA=FNCFHASTA;
DELETE FROM TSUBSISTEMAEVENTOSID where CEVENTO='TRANSFER_DEFAULT';
INSERT INTO TSUBSISTEMAEVENTOSID (CEVENTO, CSUBSISTEMA, CPERSONA_COMPANIA) VALUES ('TRANSFER_DEFAULT', '06', 2);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
INSERT INTO TSUBSISTEMAEVENTOSTRANSACCION (CEVENTO, CSUBSISTEMA, CPERSONA_COMPANIA, FHASTA, FDESDE, CSUBSISTEMA_TRANSACCION, CTRANSACCION, VERSIONTRANSACCION, RUBRO, VERSIONCONTROL) VALUES ('TRANSFER_DEFAULT', '06', 2, fncfhasta, sysdate, '06', '7004', '01', null, 0);