SwitchBancario BBDD- v2.0.1.0
| Autor | Arturo Sosa |
| Fecha |
|
| Estado |
|
| Ambiente |
|
REGISTRO DE CAMBIOS
- Modificaciones en la tabla de D_CUENTAS para meter un flag más.
OBJETOS AFECTADOS
BBDD BAPY@CREDITOPY (10.5.3.22:1522)
- BBDD BAPY@CREDITOPY (10.5.3.5:1521)
PRE-REQUISITOS
IMPLEMENTACION
EJECUTAR EN LA BBDD DE DIMO_SICOOP@DIMO_SICOOP(10.5.3.22:1522) EL SGTE QUERY:
CREAR PR PR_INSERT_TCO_CUENTAS_V1ALTER TABLE DIMO_SICOOP.D_CUENTA ADD ENABLED_APP_COOP NUMBER(1,0) NULL; INSERT INTO CREDITOPY.API_CEIBO_PROCEDURES_PRMS_IN (ID_API_SP, NRO_ORDEN, PARAM_NAME, TIPO_DATO, REQUERIDO_API_S_N, NULABLE_S_N, DEFAULT_VALUE) VALUES(71, 2, 'FRONT', 'TEXTO', 'S', 'N', '0');
EJECUTAR EN LA BBDD DE BAPY@CREDITOPY (10.5.3.5:1521) EL SGTE QUERY:
CREAR PR PR_INSERT_TCO_CUENTAS_V1CREATE OR REPLACE PROCEDURE CREDITOPY.PR_CUENTAS_USER_DIMO(P_DOCUMENTO IN VARCHAR2, P_FRONT IN VARCHAR2, CUENTAS_USUARIOS OUT SYS_REFCURSOR) IS BEGIN DECLARE BEGIN IF P_FRONT = '1600' THEN BEGIN OPEN CUENTAS_USUARIOS FOR SELECT dcl.CI, CREDITOPY.FC_GET_PARTICIPANTE_GW(dc.PARTICIPANTE_ID) AS GW, dc.TIPO_CUENTA, (CASE WHEN dc.TIPO_CUENTA = 'TP' THEN (SELECT creditopy.fc_cripto2pan(t.TARJETA) FROM TARJETAS t WHERE t.EMISOR = 115 AND t.DOCUMENTO LIKE '%'||TRIM(P_DOCUMENTO) AND t.ESTADO = 1 AND t.PRODUCTO = 1 AND t.NUMERO_CUENTA = dc.NRO_CUENTA) ELSE dc.NRO_CUENTA END) AS NRO_CUENTA, dc.ENABLED FROM DIMO_SICOOP.D_CUENTA@SICOOP dc INNER JOIN DIMO_SICOOP.D_CLIENTE@SICOOP dcl ON dc.CLIENTE_ID = dcl.CLIENTE_ID WHERE dc.CLIENTE_ID = (SELECT dc2.CLIENTE_ID FROM DIMO_SICOOP.D_CLIENTE@SICOOP dc2 WHERE dc2.CI=P_DOCUMENTO) AND dc.ENABLED = 1 AND dc.TIPO_CUENTA IN ('TP', 'TPO', 'TCO', 'CCAHOO') ORDER BY GW; END; ELSE BEGIN OPEN CUENTAS_USUARIOS FOR SELECT dcl.CI, CREDITOPY.FC_GET_PARTICIPANTE_GW(dc.PARTICIPANTE_ID) AS GW, dc.TIPO_CUENTA, (CASE WHEN dc.TIPO_CUENTA = 'TP' THEN (SELECT creditopy.fc_cripto2pan(t.TARJETA) FROM TARJETAS t WHERE t.EMISOR = 115 AND t.DOCUMENTO LIKE '%'||TRIM(P_DOCUMENTO) AND t.ESTADO = 1 AND t.PRODUCTO = 1 AND t.NUMERO_CUENTA = dc.NRO_CUENTA) ELSE dc.NRO_CUENTA END) AS NRO_CUENTA, dc.ENABLED FROM DIMO_SICOOP.D_CUENTA@SICOOP dc INNER JOIN DIMO_SICOOP.D_CLIENTE@SICOOP dcl ON dc.CLIENTE_ID = dcl.CLIENTE_ID WHERE dc.CLIENTE_ID = (SELECT dc2.CLIENTE_ID FROM DIMO_SICOOP.D_CLIENTE@SICOOP dc2 WHERE dc2.CI=P_DOCUMENTO) AND (dc.ENABLED = 1 OR dc.ENABLED_APP_COOP = 1) AND dc.TIPO_CUENTA IN ('TP', 'TPO', 'TCO', 'CCAHOO') ORDER BY GW; END; END IF; END; END PR_CUENTAS_USER_DIMO;
ROLLBACK
- NO POSEE ROLLBACK