Page History

CREATE OR REPLACE PROCEDURE CREDITOPY.PR_INSERT_TCO_CUENTAS_V1(P_DOCUMENTO IN VARCHAR2,
																P_TARJETA_ENCR IN VARCHAR2) IS
BEGIN
	DECLARE
		PO_DOCUMENTO VARCHAR2(40);
		PO_TARJETA_DESEN VARCHAR2(40);
	BEGIN
		PO_DOCUMENTO := P_DOCUMENTO;
		PO_TARJETA_DESEN:= CREDITOPY.FC_CRIPTO2PAN(P_TARJETA_ENCR);
		
		--RECUPERAR EL CLIENTE_ID
		SELECT dc.CLIENTE_ID INTO PO_DOCUMENTO
			FROM DIMO_SICOOP.D_CLIENTE@SICOOP dc
			WHERE dc.CI = P_DOCUMENTO;
		
		--HACER EL INSERT
		INSERT INTO DIMO_SICOOP.D_CUENTA@SICOOP
			(CUENTA_ID, CLIENTE_ID, PARTICIPANTE_ID, NRO_CUENTA, TIPO_CUENTA, NRO_CONTRATO, MONEDA, ENABLED, LAST_USER, LAST_TIME, CUENTA_MADRE_FLAG, CODIGO_NOVEDAD, FAVORITO)
			VALUES(DIMO_SICOOP.S_D_CUENTA.nextval@SICOOP, PO_DOCUMENTO, 1, PO_TARJETA_DESEN, 'TCO', '0', 'GUA', 1, 'administrador', SYSDATE(), 0, NULL, 0);
		 COMMIT;
		 
		EXCEPTION
			WHEN OTHERS THEN 
				PO_DOCUMENTO := 'ALGO REVIENTA';
				PO_TARJETA_DESEN := SQLCODE;
	END;
END PR_INSERT_TCO_CUENTAS_V1;