-- Parametrizacion para que grabe como forma de desembolso CRE en lugar de DEB.
DELETE FROM TFORMASDESEMBOLSO where CFORMADESEMBOLSO='DEB';
DELETE FROM TSOLICITUDPARADESEMBOLSO WHERE CFORMADESEMBOLSO='DEB';
DELETE FROM TFORMASDESEMBOLSOID WHERE CFORMADESEMBOLSO='DEB';

-- TFORMASDESEMBOLSOID
insert into TFORMASDESEMBOLSOID (CFORMADESEMBOLSO,CODIGOFORMAPAGO) values ('CRE',null);

-- TFORMASDESEMBOLSO
insert into TFORMASDESEMBOLSO (CIDIOMA,CFORMADESEMBOLSO,FHASTA,FDESDE,DESCRIPCION,VERSIONCONTROL) values ('ES','CRE',FNCFHASTA,FNCSYSDATE,'CRÉDITO A CUENTAS',0);