$set preprocess(htmlpp) endp
IDENTIFICATION DIVISION.
program-id. "ocret40-0005".
*> ocret40-0005
* Pagina de Input : Ocret40-0004
* Paginas de Output : Ocret40
* Ocret40-0001
* Ocret40-0003
* Ocret40-0004
* Ocret40-0005
* Sifcnet
ENVIRONMENT DIVISION.
configuration section.
special-names.
call-convention 8 is llnk.
DATA DIVISION.
working-storage section.
*> WARNING: Do not remove this copy statement
*> or modify the contents of the copy file.
copy "ocret40-0005.cpf".
*> WARNING: Do not remove this copy statement
*> or modify the contents of the copy file.
copy "ocret40-0005.cpy".
*> Enter additional working-storage items here
77 opcion pic 99 value zero.
77 mmm PIC 9(5).
77 nnn PIC 9(5).
77 WW PIC 9(5).
77 YY PIC 9(5).
77 YYS PIC 99.
77 XX PIC 9(5).
77 sw-nuevo pic 9 value zero.
77 sw-open-trabajo pic 9.
77 WS-TRABAJOSX PIC X(42) VALUE SPACE.
77 nombre-archivo pic x(8).
77 Sw-Open-Scona02 pic 9 Value Zero.
77 sw-error pic 99 value 1.
77 sw-salir pic 9.
77 sw-transac pic 9.
77 estado pic xx.
77 retorno pic xx.
77 Meses-Fechas pic x(9).
77 Numero-Mes pic 99.
77 importe pic 9(13)v99.
77 cuotas pic 9999.
77 XXX PIC 9999.
77 XXS PIC 9999.
01 W-BANCOS PIC X(36).
01 RW-BANCOS REDEFINES W-BANCOS.
02 W-BANCO PIC 999.
02 W-RAYA PIC XXX.
02 W-NOMBRES PIC X(30).
01 WS-PRODUCTO PIC X(37).
01 RWS-PRODUCTO REDEFINES WS-PRODUCTO.
02 W-CLASEP PIC 99.
02 W-RAYA1P PIC XXX.
02 W-PRODUCTOP PIC 9999.
02 W-RAYA2P PIC XXX.
02 W-NOMBRE PIC X(25).
01 FECHAOO PIC 9(8).
01 RFECHAOO REDEFINES FECHAOO.
02 ANOOO PIC 9999.
02 MESOO PIC 99.
02 DIAOO PIC 99.
01 FECHAO PIC 9(8).
01 RFECHAO REDEFINES FECHAO.
02 SIGO PIC 99.
02 ANOO PIC 99.
02 MESO PIC 99.
02 DIAO PIC 99.
01 FECHAS PIC 9(8).
01 RFECHAS REDEFINES FECHAS.
02 ANOS PIC 9999.
02 MESS PIC 99.
02 DIAS PIC 99.
01 FECHA PIC 9(8).
01 RFECHA REDEFINES FECHA.
02 DIA PIC 99.
02 MES PIC 99.
02 SIG PIC 99.
02 ANO PIC 99.
01 HORA PIC 9(8).
01 RHORA REDEFINES HORA.
02 HH1 PIC 99.
02 MM1 PIC 99.
02 SS1 PIC 99.
01 Todo pic x(260).
01 RTodo redefines Todo.
02 rrtodo occurs 260 times.
03 c pic x.
01 Todoss pic x(1600).
01 Todos pic x(1416) redefines todoss.
01 RTodoss redefines Todoss.
02 rrtodos occurs 1600 times.
03 l pic x.
01 WS-OCREA21 PIC X(46).
01 RWS-OCREA21 REDEFINES WS-OCREA21.
02 OCREA21-DISCO PIC X.
02 OCREA21-PUNTO PIC X.
02 OCREA21-CAMIN PIC X(20).
02 OCREA21-NOMBRE PIC X(24).
02 ROCREA21-NOMBRE REDEFINES OCREA21-NOMBRE.
03 OCREA21-NOMBR PIC X(8).
03 OCREA21-OPERA PIC X(8).
03 OCREA21-HORAS PIC 9(8).
01 REGISTRO-IMPRESION.
02 KEY-TRABAJOS.
03 CLIENTES PIC 9(8).
03 RUBROS PIC 99.
03 NUM-LINEA PIC 9999.
02 SALTO PIC 99.
02 DETALLE PIC X(180).
02 CAMPANAS PIC 9999.
02 NUMEROS PIC 9(8).
01 EDITAR-FECHA PIC X(18).
01 REDITAR-FECHA REDEFINES EDITAR-FECHA.
02 MENSA1 PIC X(8).
02 EDITA-FECHA PIC 99/99/9999.
01 WS-SOLICITUD PIC X(21).
01 RWS-SOLICITUD REDEFINES WS-SOLICITUD.
02 W-CLASE PIC XX.
02 W-RAYA1 PIC X.
02 W-PRODUCTO PIC XXXX.
02 W-RAYA2 PIC X.
02 W-CAMPANA PIC XXXX.
02 W-RAYA3 PIC X.
02 W-NUMERO PIC X(6).
01 EDITAR-HORA PIC X(15).
01 REDITAR-HORA REDEFINES EDITAR-HORA.
02 MENSA2 PIC X(7).
02 HH PIC 99.
02 MENSA3 PIC X.
02 MM PIC 99.
02 MENSA4 PIC X.
02 SS PIC 99.
01 TIPO-DOCUMENTO PIC X(20).
01 RTIPO-DOCUMENTO REDEFINES TIPO-DOCUMENTO.
02 TIP-DOCU PIC XXX.
02 RAY-DOCU PIC XX.
02 NUM-DOCU PIC X(15).
01 W-CONCEPTO PIC X(35).
01 RW-CONCEPTO REDEFINES W-CONCEPTO.
02 W-CUENTA PIC 9(8).
02 LIBRE1 PIC X.
02 W-CLASES PIC 99.
02 LIBRE2 PIC X.
02 W-TIPO PIC 9999.
02 LIBRE3 PIC X.
02 W-CAMPANAS PIC 9999.
02 LIBRE4 PIC X.
02 W-NUMEROS PIC 9(6).
02 W-MENSA PIC X(7).
77 TRABAJO1L PIC S9(13)V99 COMP-3.
77 TRANSACCION PIC 9999 VALUE ZERO.
77 APLICACION PIC XXXX VALUE SPACE.
77 BCO PIC 999 VALUE ZERO.
77 CTA PIC X(15) VALUE SPACE.
77 IDE PIC 9 VALUE ZERO.
77 CHE PIC X(10) VALUE SPACE.
77 WS-TRABAJO PIC X(42) VALUE SPACE.
77 SW-FCONR04 PIC 9 VALUE ZERO.
77 PAGINACIONES PIC 9(7) VALUE ZERO.
77 INGRESADOS PIC 9(7) VALUE ZERO.
77 ACTUALIZADOS PIC 9(7) VALUE ZERO.
77 DELETEADOS PIC 9(7) VALUE ZERO.
77 ACCION PIC 9 VALUE 1.
01 TABLA-INICIOS.
02 RTABLA-INICIOS OCCURS 10 TIMES.
03 TFINALIDAD PIC 99.
03 TRUBRO PIC 999.
03 TVARIEDAD PIC 99.
03 ULTIMA PIC 9(8).
03 PRIMERA-CUOTA PIC 9(8).
03 INTERESES PIC S9(13)V99 COMP-3.
01 datos-cliente pic x(66).
01 rdatos-cliente redefines datos-cliente.
02 ws-socio pic x(8).
02 ws-nombrecliente pic x(35).
02 ws-codigoplanilla pic x(20).
02 ws-oficina pic xxx.
01 datos-clientes pic x(87).
01 rdatos-clientes redefines datos-clientes.
02 ws-socios pic x(8).
02 ws-nombreclientes pic x(35).
02 ws-codigoplanillas pic x(20).
02 ws-oficinas pic xxx.
02 ws-solicitudes pic x(21).
01 Numero-Solicitud pic x(11).
01 rNumero-Solicitud Redefines Numero-Solicitud.
02 ws-campana pic xxxx.
02 ws-rayas pic x.
02 ws-numero pic x(6).
01 ws-sifcnet pic x(450).
01 rws-sifcnet redefines ws-sifcnet.
02 ws-nombreusuario pic x(35).
02 ws-nombremenu pic x(20).
02 ws-codigousuario pic x(8).
02 ws-usuarionombre pic x(35).
02 ws-restocookie pic x(352).
01 edito-fecha pic x(8).
01 redito-fecha redefines edito-fecha.
02 edito-mes pic x(4).
02 edito-ano pic xxxx.
01 Tabla-Mes.
02 Filler pic x(9) value 'Enero '.
02 Filler pic x(9) value 'Febrero '.
02 Filler pic x(9) value 'Marzo '.
02 Filler pic x(9) value 'Abril '.
02 Filler pic x(9) value 'Mayo '.
02 Filler pic x(9) value 'Junio '.
02 Filler pic x(9) value 'Julio '.
02 Filler pic x(9) value 'Agosto '.
02 Filler pic x(9) value 'Setiembre'.
02 Filler pic x(9) value 'Octubre '.
02 Filler pic x(9) value 'Noviembre'.
02 Filler pic x(9) value 'Diciembre'.
01 Tabla-Meses Redefines Tabla-Mes.
02 rTabla-Meses occurs 12 times.
03 meses pic x(9).
COPY \sifcnet\copys\SifcNetCookie.cpy.
COPY \SIFCNET\COPYS\scon.cpy.
COPY \SIFCNET\COPYS\scona02.cpy.
COPY \SIFCNET\COPYS\scona05.cpy.
COPY \SIFCNET\COPYS\btrieve.par.
COPY \SIFCNET\COPYS\btrieve.msg.
COPY \SIFCNET\COPYS\fcona15.cpy.
COPY \SIFCNET\COPYS\fctta01.cpy.
COPY \SIFCNET\COPYS\oahoa59.cpy.
COPY \SIFCNET\COPYS\oclia01.cpy.
COPY \SIFCNET\COPYS\oclia12.cpy.
COPY \SIFCNET\COPYS\oclia19.cpy.
COPY \SIFCNET\COPYS\ocrea02.cpy.
COPY \SIFCNET\COPYS\ocrea03.cpy.
COPY \SIFCNET\COPYS\ocrea21.cpy.
COPY \SIFCNET\COPYS\ocrea38.cpy.
COPY \SIFCNET\COPYS\ocrea143.cpy.
COPY \SIFCNET\COPYS\integra1.cpy.
PROCEDURE DIVISION.
main section.
perform process-form-input-data
perform convert-input
perform process-business-logic
if sw-error equal 99
perform llena-seguridad-inicial
move space to ws-nombreusuario
move space to ws-nombremenu
move space to ws-codigousuario
move space to ws-usuarionombre
move space to ws-restocookie
string
ws-nombreusuario
ws-nombremenu
ws-CodigoUsuario
ws-usuarionombre
ws-restocookie
delimited by size into SifcNet
perform sifcnet-cvt
perform sifcnet-out.
if sw-error equal 98
perform llena-seguridad-inicial
move space to ws-codigousuario
move space to ws-usuarionombre
move space to ws-restocookie
string
ws-nombreusuario
ws-nombremenu
ws-CodigoUsuario
ws-usuarionombre
ws-restocookie
delimited by size into SifcNet
perform ocret40-cvt
perform ocret40-out.
if sw-error equal 01
string
ws-nombreusuario
ws-nombremenu
ws-CodigoUsuario
ws-usuarionombre
ws-restocookie
delimited by size into SifcNet
perform ocret40-0001-cvt
perform ocret40-0001-out.
if sw-error equal 03
move oclia01-soc to ws-socio
move oclia01-nom to ws-nombrecliente
move oclia01-ser to ws-codigoplanilla
move oclia01-ofi to ws-oficina
move datos-cliente to ws-restocookie
string
ws-nombreusuario
ws-nombremenu
ws-CodigoUsuario
ws-usuarionombre
ws-restocookie
delimited by size into SifcNet
perform ocret40-0003-cvt
perform ocret40-0003-out.
if sw-error equal 04
move oclia01-soc to ws-socio
move oclia01-nom to ws-nombrecliente
move oclia01-ser to ws-codigoplanilla
move oclia01-ofi to ws-oficina
move oclia01-soc to ws-socios
move oclia01-nom to ws-nombreclientes
move oclia01-ser to ws-codigoplanillas
move oclia01-ofi to ws-oficinas
move ws-solicitud to ws-solicitudes
move datos-clientes to ws-restocookie
string
ws-nombreusuario
ws-nombremenu
ws-CodigoUsuario
ws-usuarionombre
ws-restocookie
delimited by size into SifcNet
perform ocret40-0004-cvt
perform ocret40-0004-out.
exit program
stop run.
process-form-input-data section.
*> Accept the input from the Browser
*> and check for errors
perform browser-initialize
accept htmlform
exit.
convert-input section.
*> Convert numeric input values
perform input-conversion
if v-all-ok = 0
perform output-form-error-and-stop
end-if
exit.
process-business-logic section.
*> Add application business logic here.
Perform Consistencia-Principal thru
Exit-Consistencia-Principal.
exit.
output-form-error-and-stop section.
exec html
:v-first-bad is a numeric field and
contains an invalid or out of range value,
please enter a valid value
end-exec
exit program
stop run.
*> WARNING: Do not remove this copy statement
*> or modify the contents of the copy file.
copy "ocret40-0005.cpv".
Fin-Secciones Section.
*---------------------*
exit.
Consistencia-Principal.
*----------------------*
accept TheSifcnet.
move todosifcnet to ws-sifcnet.
move ws-NombreUsuario to NombreUsuario.
move ws-UsuarioNombre to UsuarioNombre.
copy \sifcnet\copys\dlls.cpy.
move ws-codigousuario to operadorp
call 'sconr136' using
parametros-generales,
sw-error.
move fecha-dia to fechao.
move sigo to sig.
move anoo to ano.
move meso to mes.
move diao to dia.
move Nomempl to NombreEmpresa.
move 'Fecha :' to mensa1.
move fecha to Edita-Fecha.
move 'Hora : ' to mensa2.
move ':' to mensa3.
move ':' to mensa4.
ACCEPT HORA FROM TIME.
MOVE HH1 TO HH.
MOVE MM1 TO MM.
MOVE SS1 TO SS.
* move Editar-Fecha to Diafechas.
move Editar-Fecha to Diafecha.
move Editar-hora to Diahora.
If ws-nombreusuario equal space
move 99 to sw-error
go to Exit-Consistencia-Principal.
If ws-codigousuario equal space
move 99 to sw-error
go to Exit-Consistencia-Principal.
move ws-restocookie to Datos-Clientes.
move Numemp to Oclia01-emp.
move ws-socios to Oclia01-Soc.
MOVE 05 TO OPERACIONES.
move 0 to Numero-Key.
move -2 to Tipo-Acceso.
COPY \sifcnet\COPYS\OCLIA01.TAB.
Move Oclia01-soc to CodigoCIP.
Move Oclia01-nom to NombrePrestatario.
If ssubmit equal 'Ejecutar' or
ssubmit equal 'Extornar Autorización'
perform consistencia thru
exit-consistencia.
If ssubmit equal 'Otra Solicitud'
move 3 to sw-error
perform carga-ocret40-0003 thru
exit-carga-ocret40-0003.
If ssubmit equal 'Cliente'
move 1 to sw-error
perform carga-ocret40-0001 thru
exit-carga-ocret40-0001.
If ssubmit equal 'Salir'
move 97 to sw-error.
Exit-Consistencia-Principal.
*---------------------------*
Exit.
Consistencia.
*------------*
if ws-nombreusuario equal space
move 99 to sw-error
go to exit-consistencia.
if ws-codigousuario equal space
move 99 to sw-error
go to exit-consistencia.
move zero to Fintransaccion.
move zero to sw-transac.
if Lanp equal 2
Go To Sin-Transaccion.
move 1419 to Operaciones.
copy \sifcnet\copys\transac.tab.
if c-status not equal 00
move 1 to Fintransaccion
go to exit-consistencia.
move 1 to sw-transac.
Sin-Transaccion.
*---------------*
Move ws-solicitudes to ws-solicitud.
Move Oclia01-emp to Ocrea21-Emp.
Move Oclia01-soc to Ocrea21-Soc.
Move w-clase to Ocrea21-tip.
Move w-producto to Ocrea21-ptm.
Move w-campana to Ocrea21-cas.
Move w-Numero to Ocrea21-nus.
MOVE 05 TO OPERACIONES.
move 0 to Numero-Key.
move zero to Tipo-Acceso.
COPY \sifcnet\COPYS\OCREA21.TAB.
If Ocrea21-sit equal 03 and
ssubmit equal 'Ejecutar'
move 04 to sw-error
move 'Solicitud ya fue autorizado su desembolso'
to Mensajeerror
go to exit-consistencia.
If Ocrea21-sit not equal 03 and
ssubmit equal 'Extornar Autorización'
move 04 to sw-error
move 'Solicitud no ha sido autorizado su desembolso'
to Mensajeerror
go to exit-consistencia.
Move Ocrea21-emp to Ocrea03-Emp.
Move Ocrea21-tip to Ocrea03-cla.
Move Ocrea21-ptm to Ocrea03-ptm.
MOVE 05 TO OPERACIONES.
move 0 to Numero-Key.
move -2 to Tipo-Acceso.
COPY \sifcnet\COPYS\OCREA03.TAB.
If c-status equal 03 or
c-status equal 04
move 04 to sw-error
move 'Producto de crédito no esta registrado'
to Mensajeerror
go to exit-consistencia.
If c-status not equal 00
move 04 to sw-error
move 'Error en lectura del OCREA03'
to Mensajeerror
go to exit-consistencia.
* PERFORM Actualiza-Aprobacion THRU
* Exit-Actualiza-Aprobacion.
If Fintransaccion not equal 00
go to Exit-consistencia.
move 01 to sw-error.
move
'Se efectuo satisfactoriamente la autorización de desembolso'
to Mensajeerror.
move 1 to sw-error.
perform carga-ocret40-0001 thru
exit-carga-ocret40-0001.
go to Exit-consistencia.
Exit-consistencia.
*-----------------*
if Fintransaccion equal zero
PERFORM FIN-TRANSACCION
ELSE
move 04 to sw-error
PERFORM ABORTAR-TRANSACCION.
If sw-error equal 04
Perform Llena-Ocret40-0004 Thru
Exit-Llena-Ocret40-0004.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCLIA01.TAB.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCLIA19.TAB.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCREA21.TAB.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCREA03.TAB.
FIN-TRANSACCION.
*---------------*
if sw-transac equal 1
move b-end-transaction to Operaciones
copy \sifcnet\copys\transac.tab.
IF C-STATUS NOT EQUAL 00
PERFORM ABORTAR-TRANSACCION.
ABORTAR-TRANSACCION.
*-------------------*
if Fintransaccion not equal zero and
sw-transac equal 1
move b-abort to Operaciones
copy \sifcnet\copys\transac.tab.
Carga-Ocret40-0003.
*------------------*
if ws-nombreusuario equal space
move 99 to sw-error
go to Exit-Carga-Ocret40-0003.
if ws-codigousuario equal space
move 99 to sw-error
go to Exit-Carga-Ocret40-0003.
perform llena-datos-cliente thru
exit-llena-datos-cliente.
MOVE ZERO TO XX.
MOVE ZERO TO KEY-OCREA21.
MOVE OCLIA01-EMP TO OCREA21-EMP.
MOVE OCLIA01-SOC TO OCREA21-SOC.
MOVE 09 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA21.TAB.
IF C-STATUS EQUAL 03 OR
C-STATUS EQUAL 09
go to Exit-Carga-Ocret40-0003.
IF C-STATUS NOT EQUAL 00
go to Exit-Carga-Ocret40-0003.
GO TO COMPARA-CLIENTES.
SIGUIENTE-OCREA21.
*-----------------*
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA21.TAB.
MOVE 06 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA21.TAB.
IF C-STATUS EQUAL 09
go to Exit-Carga-Ocret40-0003.
IF C-STATUS NOT EQUAL 00
go to Exit-Carga-Ocret40-0003.
COMPARA-CLIENTES.
*----------------*
IF oclia01-emp NOT EQUAL OCREA21-EMP or
oclia01-soc NOT EQUAL OCREA21-SOC
go to Exit-Carga-Ocret40-0003.
IF OCREA21-SIT NOT EQUAL 03
GO TO SIGUIENTE-OCREA21.
add 01 to XX.
MOVE XX TO c-SolicitudesPendientes.
move ocrea21-emp to ocrea03-emp.
move ocrea21-tip to ocrea03-cla.
move ocrea21-ptm to ocrea03-ptm.
move 'Producto no registrado '
to Ocrea03-des.
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA03.TAB.
MOVE OCREA03-CLA TO W-CLASE.
MOVE '-' TO W-RAYA1.
MOVE OCREA03-PTM TO W-PRODUCTO.
MOVE '-' TO W-RAYA2.
move ocrea21-cas to w-campana.
move '/' to w-raya3.
move ocrea21-nus to w-numero.
move ws-solicitud to NumeroSolicitud(xx).
move ocrea03-des to ProductoCredito(xx).
Move Ocrea21-fes to Fechao.
move Sigo to Sig.
move Anoo to Ano.
move Meso to Mes.
move Diao to Dia.
move Fecha to FechaPresentacion(xx).
If Ocrea03-mo1 equal zero
move smonedas to fcona15-sig
move smonedan to fcona15-nom
go to salta-fcona15.
move Ocrea21-emp to Fcona15-emp.
move Ocrea03-mo1 to Fcona15-mon.
move Ocrea03-mo1 to Fcona15-sig.
move Ocrea03-mo1 to Fcona15-nom.
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\FCONA15.TAB.
salta-fcona15.
*-------------*
Move Fcona15-sig to SignoMoneda(xx).
Move Ocrea21-mos to MontoSolicitado(xx).
Move Ocrea21-cus to NumeroCuotas(xx).
Move zero to Registro-Ocrea38.
Move Ocrea21-emp to Ocrea38-emp.
Move Ocrea21-soc to Ocrea38-soc.
Move zero to Ocrea38-con.
Move Ocrea21-tip to Ocrea38-tip.
Move Ocrea21-ptm to Ocrea38-ptm.
Move Ocrea21-Cap to Ocrea38-cam.
Move Ocrea21-Nup to Ocrea38-num.
If Ocrea21-sit equal 01
move 'Pendiente' to Situacion(xx)
Else
move 'Aprobado' to Situacion(xx).
GO TO SIGUIENTE-OCREA21.
Exit-Carga-Ocret40-0003.
*-----------------------*
if xx < 01
move
'Cliente no tiene solicitudes pendientes de aprobación'
to MensajeError
move 01 to sw-error.
if xx equal 01
perform llena-ocret40-0004 thru
exit-llena-ocret40-0004.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\FCONA15.TAB.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCREA03.TAB.
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OCREA21.TAB.
llena-datos-cliente.
*-------------------*
move oclia01-soc to CodigoCIP.
move oclia01-ser to CodigoPlanilla.
move oclia01-nom to NombrePrestatario.
exit-llena-datos-cliente.
*------------------------*
exit.
llena-ocret40-0004.
*-------------------*
move NumeroSolicitud(1) to ws-solicitud.
move Numemp to ocrea21-emp.
move Oclia01-soc to Ocrea21-soc.
move w-clase to ocrea21-tip.
move w-producto to ocrea21-ptm.
move w-campana to ocrea21-cas.
move w-numero to ocrea21-nus.
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA21.TAB.
IF C-STATUS EQUAL 03 OR
C-STATUS EQUAL 04
go to exit-llena-Ocret40-0004.
IF C-STATUS NOT EQUAL 00
go to exit-llena-Ocret40-0004.
Move Ocrea21-cas to Ws-Campana.
move '/' to Ws-Rayas.
Move Ocrea21-nus to Ws-Numero.
Move Numero-Solicitud to NumeroSolicitudes.
move ocrea21-emp to ocrea03-emp.
move ocrea21-tip to ocrea03-cla.
move ocrea21-ptm to ocrea03-ptm.
move 'Producto no registrado '
to Ocrea03-des.
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\OCREA03.TAB.
Move Ocrea03-des to ProductosCredito.
If Ocrea03-mo1 equal zero
move smonedas to fcona15-sig
move smoendan to fcona15-nom
go to salto-fcona15.
move Ocrea21-emp to Fcona15-emp.
move Ocrea03-mo1 to Fcona15-mon.
move Ocrea03-mo1 to Fcona15-sig.
move Ocrea03-mo1 to Fcona15-nom.
MOVE 05 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \SIFCNET\COPYS\FCONA15.TAB.
salto-fcona15.
*-------------*
Move ocrea21-fes to fechao.
Move Sigo to Sig.
Move Anoo to Ano.
Move Meso to Mes.
Move Diao to Dia.
move Fecha to FechasPresentacion.
Move ocrea21-feg to fechao.
Move Sigo to Sig.
Move Anoo to Ano.
Move Meso to Mes.
Move Diao to Dia.
move Fecha to FechaProbableDesembolso.
Move Ocrea21-Ini to DiasInicio.
Move Ocrea21-Per To DiasEntreCuotas.
Move Fcona15-nom to Moneda.
move Ocrea21-mos to MontosSolicitados.
Move Ocrea21-cus to NumerodeCuotas.
If Ocrea21-tcu equal 01
Move 'Cuotas Fijas' to TipodeCuotas.
If Ocrea21-tcu equal 02
Move 'Cuotas Decrecientes' to TipodeCuotas.
If Ocrea21-tcu equal 04
Move 'Cuotas Libres' to TipodeCuotas.
If Ocrea21-tcu equal 05
Move 'Cuotas Días Fijos' to TipodeCuotas.
If Ocrea21-tcu equal 06
Move 'Fines de Mes' to TipodeCuotas.
move 01 to xxx.
move zero to yys.
perform mueve-dia until xxx > 31.
move 01 to xx.
perform mueve-mes until xx > 12.
move 01 to xxx.
move fecha-dia to fechaoo.
subtract 2 from anooo.
perform mueve-ano until xxx > 5.
Move ocrea21-fea to fechao.
Move Sigo to Sig.
Move Anoo to Ano.
Move Meso to Mes.
Move Diao to Dia.
move Fecha to FechaAprobacion.
move Ocrea21-moa to MontosAprobados.
Move Ocrea21-cua to CuotasAprobadas.
move ocrea21-emp to Ocrea143-Emp.
Move Ocrea21-nia to Ocrea143-Niv.
move Ocrea03-Mo1 to Ocrea143-mon.
Move Ocrea21-Nia to Ocrea143-des.
move 05 to Operaciones.
move 0 to Numero-Key.
Move -2 to Tipo-Acceso.
Copy \sifcnet\copys\Ocrea143.tab.
Move Ocrea143-Des to NivelAprobacion.
move B-Close to Operaciones.
Copy \sifcnet\copys\Ocrea143.tab.
Perform Llena-Fctta01 thru
Exit-Llena-Fctta01.
Move 04 To Sw-Error.
If Ocrea21-sit equal 02
go to Exit-Llena-Ocret40-0004.
Move Ocrea21-Cta To CtaCte.
Move Ocrea21-Che To NumeroCheque.
If Ocrea21-Tgi equal 1
Move '1' to FormadeGiro.
If Ocrea21-Tgi equal 3
Move '3' to FormadeGiro.
If Ocrea21-Tgi equal 4
Move '4' to FormadeGiro.
Exit-Llena-Ocret40-0004.
*------------------------*
Exit.
Llena-Fctta01.
*-------------*
MOVE 01 TO WW.
Move zero to Key-Fctta01.
Move 09 To Operaciones.
Move 0 To Numero-Key.
Move -2 to Tipo-Acceso.
Copy \SIFCNET\COPYS\Fctta01.tab.
If C-Status Equal 03 Or
C-Status Equal 09
Go To Exit-Llena-Fctta01.
if C-Status Not Equal 00
Go To Exit-Llena-Fctta01.
Go To Compara-Fctta01.
Siguiente-Fctta01.
*-----------------*
Move 06 To Operaciones.
Move 0 To Numero-Key.
Move -2 to Tipo-Acceso.
Copy \SIFCNET\COPYS\Fctta01.tab.
If C-Status Equal 09
Go To Exit-Llena-Fctta01.
if C-Status Not Equal 00
Go To Exit-Llena-Fctta01.
Compara-Fctta01.
*---------------*
Add 01 to ww.
Move Key-Fctta01 to w-Banco.
Move ' - ' to w-raya.
Move Fctta01-Nom to w-nombres.
Move w-Bancos to Bancos(ww).
MOVE WW TO C-BANCOS.
If Ocrea21-Bco Not Equal Zero and
Ocrea21-Bco Equal Key-Fctta01
Move W-Bancos to Bancos(01).
Go to Siguiente-Fctta01.
Exit-Llena-Fctta01.
*------------------*
Exit.
mueve-ano.
*---------*
add 01 to xxx.
move anooo to AnoEjecucion(xxx).
compute anooo = anooo + 1.
move xxx to c-AnoEjecucion.
mueve-dia.
*---------*
add 01 to xxx.
add 01 to yys.
move yys to DiaEjecucion(xxx).
move xxx to c-DiaEjecucion.
mueve-mes.
*---------*
add 01 to xx.
move meses(xx - 1) to MesEjecucion(xx).
move xx to c-MesEjecucion.
carga-ocret40-0001.
*-------------------*
if ws-nombreusuario equal space
move 99 to sw-error
go to Exit-Carga-Ocret40-0001.
if ws-codigousuario equal space
move 99 to sw-error
go to Exit-Carga-Ocret40-0001.
PERFORM CREA-OAHOA59 THRU
EXIT-CREA-OAHOA59.
exit-carga-ocret40-0001.
*-----------------------*
exit.
CREA-OAHOA59.
*------------*
Move 05 To Operaciones.
Move 0 To Numero-Key.
Move -1 To Tipo-Acceso.
Copy \SIFCnet\Copys\Oahoa59.Tab.
Move B-Close To Operaciones.
Move 9999 To Numero-Key.
Copy \SIFCnet\Copys\Oahoa59.Tab.
MOVE ZERO TO YY.
MOVE ZERO TO WW.
move zero to c-tipoidentidad.
move zero to c-tipotributario.
MOVE ZERO TO OCLIA12-EMP.
MOVE SPACE TO OCLIA12-TIP.
MOVE 09 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \sifcnet\COPYS\OCLIA12.TAB.
IF C-STATUS EQUAL 03 OR
C-STATUS EQUAL 09
GO TO EXIT-CREA-OAHOA59.
IF C-STATUS NOT EQUAL 00
GO TO EXIT-CREA-OAHOA59.
GO TO COMPARA-OAHOA59.
SIGUIENTE-OAHOA59.
*-----------------*
MOVE 06 TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -2 TO TIPO-ACCESO.
COPY \sifcnet\COPYS\OCLIA12.TAB.
IF C-STATUS EQUAL 09
GO TO EXIT-CREA-OAHOA59.
IF C-STATUS NOT EQUAL 00
GO TO EXIT-CREA-OAHOA59.
COMPARA-OAHOA59.
*---------------*
MOVE 01 TO XX.
PERFORM GRABA-OAHOA59 THRU
EXIT-GRABA-OAHOA59 UNTIL XX > 15.
GO TO SIGUIENTE-OAHOA59.
EXIT-CREA-OAHOA59.
*-----------------*
* IF SW-OPEN-OAHOA59 EQUAL 1
MOVE B-CLOSE TO OPERACIONES.
COPY \sifcnet\COPYS\OAHOA59.TAB.
CANCEL 'OAHOA59'.
GRABA-OAHOA59.
*-------------*
IF OCLIA12-TDO(XX) EQUAL SPACE
MOVE 16 TO XX
GO TO EXIT-GRABA-OAHOA59.
MOVE OCLIA12-EMP TO OAHOA59-EMP.
MOVE OCLIA12-TDO(XX) TO OAHOA59-TDO.
MOVE OCLIA12-DES(XX) TO OAHOA59-DES.
MOVE B-INSERT TO OPERACIONES.
MOVE 0 TO NUMERO-KEY.
MOVE -1 TO TIPO-ACCESO.
COPY \sifcnet\COPYS\OAHOA59.TAB.
IF C-STATUS EQUAL 05
GO TO EXIT-GRABA-OAHOA59.
IF C-STATUS NOT EQUAL 00
GO TO EXIT-GRABA-OAHOA59.
if oclia12-ti1(xx) equal 1
ADD 01 TO YY
MOVE YY TO c-tipoidentidad
MOVE OCLIA12-TDO(XX) TO tip-docu
move '-' to ray-docu
MOVE OCLIA12-DES(XX) TO num-docu
move tipo-documento to tipoidentidad(yy)
else
ADD 01 TO ww
MOVE ww TO c-tipotributario
MOVE OCLIA12-TDO(XX) TO tip-docu
move '-' to ray-docu
MOVE OCLIA12-DES(XX) TO num-docu
move tipo-documento to tipotributario(ww).
EXIT-GRABA-OAHOA59.
*------------------*
ADD 01 TO XX.
llena-seguridad-inicial.
*-----------------------*
move 'Inform&225tica Donet EIRL'
to Publicos1.
move 'Calle Simbila Mz E Lote 38 Urb. La Capullana'
to Publicos2.
move 'Lima 033 - Perú'
to Publicos3.
move 'Teléfonos [0511] 448-5814 [0511] 448-7427'
to Publicos4.
Move 'Fax [0511] 449-7872'
to Publicos5.
move 'mdonetm@informaticadonet.com'
to Publicos6.
move 'www.informaticadonet.com'
to Publicos7.
Move pPublicos1 to Publicos1.
Move pPublicos2 to Publicos2.
Move pPublicos3 to Publicos3.
Move pPublicos4 to Publicos4.
Move pPublicos5 to Publicos5.
Move pPublicos6 to Publicos6.
Move pPublicos7 to Publicos7.
move Nombre-Menup to TituloMenu.
COPY \SIFCNET\COPYS\proceso.870.
COPY \SIFCNET\COPYS\integra2.cpy.
COPY \SIFCNET\COPYS\integra4.cpy.
GRABA-SCONR05.
*-------------*
PERFORM PROCESO-872 THRU
EXIT-PROCESO-872.
MOVE ZERO TO INGRESADOS.
MOVE ZERO TO ACTUALIZADOS.
MOVE ZERO TO DELETEADOS.
MOVE ZERO TO PAGINACIONES.