Cambios en Modulo
Enviado por jhoanale • 11 de Septiembre de 2018 • Informe • 2.109 Palabras (9 Páginas) • 100 Visitas
[pic 1]
Cambios en Modulo
COL-1896
Allianz
Ciclo de Aprobación
Rol | Nombre | Fecha |
Autor: | Jhoan Alejandro Mora Rivera | 10/09/2018 |
Revisado por: | ||
Aprobado por: |
Historia de Cambios
Versión | Autor | Descripción del Cambio | Fecha |
1.0 | Jhoan Alejandro Mora Rivera | Nuevas opciones del módulo SNB2CP31 | 10/09/2018 |
Tabla de contenidos
1. Descripción 4
2. Relación de modificaciones 4
- Descripción
- Resulta necesario agregar nuevas opción al módulo SNB2CP31, debido a los indultos y accesos que se le va a retirar al módulo SCBO0031.
- Ninguna de los cursores permiten realizar la búsqueda de los datos a manipular según los criterios.
- Consulta el número de siniestros asociados a la póliza y aplica.
Los programas a modificar son:
SNB2CP31
- Relación de modificaciones
PROGRAMAS Y RUTINAS A MODIFICAR | |
PROGRAMA | SNB2CP31 |
RUTINA | Seleccionar opción |
OBSERVACIONES | Se agrega un nuevo cursor C7S31 al módulo llamado SNB2CP31. Se agrega una opción para obtener el número de registros al módulo llamado SNB2CP31.
Modificar el párrafo SELECC-FUNC donde se evalúan las opciones de apertura, lectura y cierre del cursor |
MODIFICACION | |
IF CS31-OPCIO = "EC" PERFORM DECLARE-EC GO TO FIN-SEF. IF CS31-OPCIO = "FC" PERFORM FETCH-FC GO TO FIN-SEF.
IF CS31-OPCIO = "CC" PERFORM CLOSE-CC GO TO FIN-SEF.
|
PROGRAMA | SNB2CP31 |
RUTINA | Apertura Cursor |
OBSERVACIONES | Se crea el párrafo DECLARE-EC para la apertura y declaración del cursor C7S31 |
MODIFICACION | |
DECLARE-EC. MOVE CS31-TIPOPERI TO QTIPOPERI. EXEC SQL DECLARE C7S31 CURSOR FOR SELECT REFSTRO , NUMORDEN , FECHPTJE8 , ESTADO , PERSONA , NIFPERITO , TIPOPERITOALTER, MATRI12, GARANTIA, RAMO, NIFTALLER, TIPOTALLERALTER, NOMPTJE, DOMPTJE, DPPTJE_C, SUBDPPTJE, POBPTJE FROM RAS.CSRR31 WHERE TIPOPERI < :QTIPOPERI END-EXEC. EXEC SQL OPEN C7S31 END-EXEC.
|
PROGRAMA | SNB2CP31 |
RUTINA | Fetch Cursor |
OBSERVACIONES | Se crea el párrafo FETCH-FC para la Lectura del cursor C7S31 |
MODIFICACION | |
FETCH-FC. EXEC SQL FETCH C7S31 INTO :QREFSTRO , :QNUMORDEN , :QFECHPTJE8 , :QESTADO , :QPERSONA , :Q-AUX-NIFPERITO , :QTIPOPERITOALTER, :QMATRI12, :QGARANTIA, :QRAMO, :Q-AUX-NIFTALLER, :QTIPOTALLERALTER, :QNOMPTJE, :QDOMPTJE, :QDPPTJE-C, :QSUBDPPTJE, :QPOBPTJE END-EXEC. MOVE QREFSTRO TO CS31-REFSTRO. MOVE QNUMORDEN TO CS31-NUMORDEN. MOVE QFECHPTJE8 TO CS31-FECHPTJE8. MOVE QESTADO TO CS31-ESTADO. MOVE QPERSONA TO CS31-PERSONA. MOVE Q-AUX-NIFPERITO TO CS31-NIFPERITO. MOVE QTIPOPERITOALTER TO CS31-TIPOPERITOALTER. MOVE QMATRI12 TO CS31-MATRI12. MOVE QGARANTIA TO CS31-GARANTIA. MOVE QRAMO TO CS31-RAMO. MOVE Q-AUX-NIFTALLER TO CS31-NIFTALLER. MOVE QTIPOTALLERALTER TO CS31-TIPOTALLERALTER. MOVE QNOMPTJE TO CS31-NOMPTJE. MOVE QDOMPTJE TO CS31-DOMPTJE. MOVE QDPPTJE-C TO CS31-DPPTJE-C. MOVE QSUBDPPTJE TO CS31-SUBDPPTJE. MOVE QPOBPTJE TO CS31-POBPTJE.
|
...