$set NESTCALL SQL(DBMAN=ODBC) IDENTIFICATION DIVISION. Program-id. Osegr02a. ****************************************************************** * ************************************************************** * * * * * * * IMPRIME LOS CERTIFICADOS DE SEGUROS * * * * * * * ************************************************************** * ****************************************************************** ENVIRONMENT DIVISION. configuration section. special-names. call-convention 8 is llnk. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT Errores ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS ESTADO. SELECT Entorno ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS ESTADO. SELECT Carac ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS ESTADO. SELECT LISTADO ASSIGN TO PRINTER. SELECT LISTADO-1 ASSIGN TO PRINTER-1. SELECT Pista ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS ESTADO. Select Que-Hacer ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS ESTADO. DATA DIVISION. FILE SECTION. FD Carac LABEL RECORD ARE STANDARD DATA RECORD IS Registro-Caracteres VALUE OF FILE-ID IS Ws-Caracteres. 01 Registro-Caracteres. 02 Todo-Caracrer Pic x(200). FD Errores LABEL RECORD ARE STANDARD DATA RECORD IS Registro-Errores VALUE OF FILE-ID IS Ws-Errores. 01 Registro-Errores. 02 Todo-El-Error Pic x(200). FD LISTADO LABEL RECORD ARE OMITTED LINAGE LINEAS-POR-PAGINA FOOTING OVERFLOW-POR-PAGINA. 01 LINEA PIC X(233). 01 LINEA132 PIC X(233). 01 LINEA233 PIC X(233). FD LISTADO-1 LABEL RECORD ARE OMITTED LINAGE LINEAS-POR-PAGINA FOOTING OVERFLOW-POR-PAGINA. 01 LINEA-1 PIC X(233). 01 LINEA132-1 PIC X(233). 01 LINEA233-1 PIC X(233). FD Entorno LABEL RECORD ARE STANDARD DATA RECORD IS Registro-Errores VALUE OF FILE-ID IS Ws-Entorno. 01 Registro-Entorno. 02 Texto-Entorno PIC X(34). 02 Texto-R01 Pic X. 02 Entorno-Recibido PIC X(300). 02 Texto-R02 Pic X. FD Pista LABEL RECORD ARE STANDARD DATA RECORD IS Registro-Pista VALUE OF FILE-ID IS Ws-Pista. 01 Registro-Pista. 02 Filler PIC X(15) Value 'Valor YY: '. 02 PYY Pic zzzzz9. 02 Filler PIC X(15) Value 'Valor AA: '. 02 PAA Pic zzzzz9. 02 Filler PIC X(15) Value 'Valor Tope: '. 02 PTope Pic zzzzz9. 02 Filler PIC X(15) Value 'Valor Topes: '. 02 PTopes Pic zzzzz9. 02 Filler PIC X(25) Value 'Valor despues YY: '. 02 PYYD Pic zzzzz9. 02 Filler PIC X(25) Value 'Valor despues Tope: '. 02 PTopeD Pic zzzzz9. 02 Filler PIC X(25) Value 'Valor despues Topes: '. 02 PTopesD Pic zzzzz9. FD Que-Hacer LABEL RECORD ARE STANDARD DATA RECORD IS Registro-Que-Hacer VALUE OF FILE-ID IS Ws-Que-Hacer. 01 Registro-Que-Hacer. 02 Todo-Que-hacer PIC X(116). 02 Raya-Que-Hacer Pic x. working-storage section. *> Enter additional On Entry:working-storage items here 77 Sw-Titulos Pic 9. 77 Ws-Po1 Pic 9999. 77 Ws-Lo1 Pic 9999. 77 Ws-Po2 Pic 9999. 77 Ws-Lo2 Pic 9999. 77 Linear PIC 9(8) VALUE ZERO. 77 Sw-Iniciar PIC 9 VALUE ZERO. 77 RR PIC 9(8) VALUE ZERO. 77 R1 PIC 9(8) VALUE ZERO. 77 R2 PIC 9(8) VALUE ZERO. 77 R3 PIC 9(8) VALUE ZERO. 77 WW PIC 9(8) VALUE ZERO. 77 ZZ PIC 9(8) VALUE ZERO. 77 QQ PIC 9(8) VALUE ZERO. 77 MA PIC 9(8) VALUE ZERO. 77 XX PIC 9(8) VALUE ZERO. *77 YY PIC 9(5) VALUE ZERO. 77 Ws-Datos Pic xx. 77 TMONEDA PIC X(20). 77 TOFICINA PIC X(20). 77 Edita-fecha Pic z9/99/9999. 77 Edita-Numero Pic zzz9. 77 Edita-Importe Pic z,zzz,zzz,zzz,zzz.zz. 77 Edita-Importes Pic zzz,zzz,zzz.zz. 77 Edita-Tasa Pic zz9.99999. 77 Tope-X Pic 9(5). 77 Sw-Que-Hacer Pic 9 Value Zero. 01 Ws-Pista Pic x(42). 01 Rws-Pista Redefines Ws-Pista. 02 Pista-Dis Pic x. 02 Pista-Rut Pic x(16). 02 Pista-Seg Pic x(25). 01 Ws-Que-Hacer Pic x(42). 01 Rws-Que-Hacer Redefines Ws-Que-Hacer. 02 Que-Hacer-Dis Pic x. 02 Que-Hacer-Rut Pic x(16). 02 Que-Hacer-Ext Pic x(25). 77 Wnn-Nombre Pic X(35). 01 FECHAS PIC 9(8). 01 WFECHAS REDEFINES FECHAS. 02 DIA PIC 99. 02 MES PIC 99. 02 ANO PIC 9999. 01 FECHAO PIC 9(8). 01 WFECHAO REDEFINES FECHAO. 02 ANOO PIC 9999. 02 MESO PIC 99. 02 DIAO PIC 99. ****************************************************************** 77 SW-OPEN-LISTADO PIC 9 VALUE ZERO. 77 LINEAS132 PIC X(132) VALUE SPACE. 77 LINEAS233 PIC X(233) VALUE SPACE. 77 Area-En-Blanco Pic x(300) Value Space. 77 Sw-Cargo-Formulario Pic 9 Value Zero. 77 Sw-Inicio-Ocrer110 Pic 9 Value Zero. 77 Sw-Logo Pic 9 Value Zero. 77 Ws-Len Pic 99 Value Zero. 77 Ws-Busca Pic x(100). 77 Sw-Inicio-Impresion Pic 9 Value Zero. 77 Sw-Duplex Pic 9 Value Zero. 77 Orientacion-Reporte Pic 99 Value Zero. 77 Ws-Orientacion Pic x Value Zero. 78 SET-DEFAULT-PRINTER value h"0001". 77 Opcion Pic x(4) Comp-5. 01 Error-Impresoras. 02 Filler Pic X(30) Value 'Ha ocurrido un error al hacer '. 02 Operacion-Impresora Pic X(20). 02 Filler Pic X(26) Value ' el codigo de retorno es '. 02 Retorno-Impresora Pic z(6). 02 Filler Pic XXX Value ' -'. 02 Texto-Error Pic X(115). 01 Errores-Impresoras. 02 Filler Pic x(115) Value 'Could not open printer device'. 02 Filler Pic x(115) Value 'Invalid printer control code specified'. 02 Filler Pic x(115) Value 'No printer device associated with specified handle'. 02 Filler Pic x(115) Value 'Out of memory while printing'. 02 Filler Pic x(115) Value 'Failed to open file'. 02 Filler Pic x(115) Value 'Disk full while spooling file'. 02 Filler Pic x(115) Value 'Print job aborted. No job sent to print spooler'. 02 Filler Pic x(115) Value 'Printer information structure badly constructed'. 02 Filler Pic x(115) Value 'No default printer found'. 02 Filler Pic x(115) Value 'Error attempting to display dialog'. 02 Filler Pic x(115) Value 'Write failure'. 02 Filler Pic x(115) Value 'No fonts found usable with this printer'. 02 Filler Pic x(115) Value 'The font requested does not exist'. 02 Filler Pic x(115) Value 'User aborted print job'. 02 Filler Pic x(115) Value 'Reserved'. 02 Filler Pic x(115) Value 'Reserved'. 02 Filler Pic x(115) Value 'Reserved'. 02 Filler Pic x(115) Value 'Failed to load bitmap'. 02 Filler Pic x(115) Value 'Invalid bitmap id'. 02 Filler Pic x(115) Value 'Failed to free bitmap'. 02 Filler Pic x(115) Value 'Failed to print bitmap'. 02 Filler Pic x(115) Value 'Bad parameter'. 02 Filler Pic x(115) Value 'Internal error'. 02 Filler Pic x(115) Value 'User pressed Cancel on the printer setup dialog on font selec'. 02 Filler Pic x(115) Value 'Unsupported function'. 02 Filler Pic x(115) Value 'Duplex not supported'. 02 Filler Pic x(115) Value 'Paper tray not found'. 02 Filler Pic x(115) Value 'Paper size not supported'. 01 RErrores-Impresoras Redefines Errores-Impresoras. 02 RRErrores-Impresoras Occurs 28 Times. 03 ID-Error Pic X(115). 77 Sw-PDFCreator Pic 9 Value Zero. 77 Longitud Pic X(4) Comp-5. 77 Retornos Pic XX Comp-5. 01 Tabla-Nombre Pic X(300). 01 RTabla-Nombre Redefines Tabla-Nombre. 02 RrTabla-Nombre Occurs 300 Times. 03 N Pic X. 01 TT Pic 9(6). 01 PP Pic 9(6). 01 Linea-Duplex Pic x(300). 01 Rlinea-Duplex Redefines Linea-Duplex. 02 Rrlinea-Duplex Occurs 300 Times. 03 Dup Pic X. 01 Linea-Duplexs Pic x(300). 01 Rlinea-Duplexs Redefines Linea-Duplexs. 02 Rrlinea-Duplexs Occurs 300 Times. 03 Dups Pic X. 01 Name-Printer Pic x(356). 01 Rname-Printer Redefines Name-Printer. 02 Rrname-Printer Occurs 356 Times. 03 P Pic X. 01 Printer-Name. 02 Longitud-Nombre Pic X(2) Comp-5. 02 Nombre-Impresora Pic x(128). 01 Control-Final Pic X(01) Value x"00". 01 flags Pic x(4) Comp-5 value 1. 01 status-code Pic x(2) Comp-5. 77 sw-open-printer pic 9 value zero. 01 Nombre-Impresoras Pic x(300). 01 Rnombre-Impresoras Redefines Nombre-Impresoras. 02 RrNombre-Impresoras Occurs 300 Times. 03 C Pic X. *01 x0 Pic 9999. 01 x1 Pic 9999. 01 yy Pic 9(6). 01 LINEA-IMPRIMIR PIC X(600). ****************************************************************** * ************************************************************** * * * * * * * PARA IMPRESION DE IMAGENES * * * * * * * ************************************************************** * ****************************************************************** 01 BmpLogo. 10 bmpname pic x(008) value "logo.bmp". 10 filler pic x(001) value x"0". 01 SbsLogo. 10 bmpname pic x(008) value "fsbs.bmp". 10 filler pic x(001) value x"0". 01 FichaLogo. 10 bmpname pic x(009) value "ficha.bmp". 10 filler pic x(001) value x"0". 01 ContableLogo. 10 bmpname pic x(012) value "contable.bmp". 10 filler pic x(001) value x"0". 01 TodosLogo. 10 bmpname pic x(009) value "todos.bmp". 10 filler pic x(001) value x"0". 01 bmp-id pic x(4) comp-5 value zero. 01 reserved pic x(4) comp-5 value 0. 01 bmp-row pic x(4) comp-5 value 1. 01 bmp-col pic x(4) comp-5 value 1. 01 bmp-width pic x(4) comp-5 value 5. 01 bmp-height pic x(4) comp-5 value 2. ****************************************************************** * ************************************************************** * * * * * * * PARAMETROS PARA IMPRESIONES * * * * * * * ************************************************************** * ****************************************************************** *>Parameteros para PC_PRINTER_OPEN 77 fore-or-back pic x(2) comp-5. 77 color-red pic x(2) comp-5 Value 0. 77 color-green pic x(2) comp-5 Value 0. 77 color-blue pic x(2) comp-5 Value 255. 01 Printer-Handle pic x(04) Comp-5 value 0. 01 Document-Title. 05 Title-Len pic x(02) Comp-5. 05 Title-Text pic x(18). 05 Title-Fil pic x(01) Value x"00". 01 Printer-Flags pic x(04) Comp-5 Value 4. 01 Window-Handle pic x(04) Comp-5 value 0. * Printer-Flags settings * bit decimal * 0 1 Display Printer Dialog allowing printer selection * and orientation specification. * 1 2 Display Font Dialog allowing default font * selection for the document. * 2 4 Specify Portrait orientation. No Dialog. (vertical) * (conflicts with bit 0 and bit 3). * 3 8 Specify Landscape orientation. No Dialog. (horizontal) * (conflicts with bit 0 and bit 2). * 4 16 Display Printing progress dialog. * The decimal values of the flags are additive. For example, if * Landscape and a Font Dialog are requirements, 8 plus 2 equals * 10, should be specified as the value for the flags item. *> *>Parameteros para PC_PRINTER_SET_FONT *>---Printer-Handle (same as above) 01 Font-Family-Name. 05 Font-Name-Len pic x(02) Comp-5. 05 Font-Name-Text pic x(80). 01 Font-Size pic x(04) Comp-5. 01 Font-Style pic x(04) Comp-5. *> *>Parameteros para PC_PRINTER_CONTROL *>---Printer-Handle (same as above) *>---print-command: 1 - Abort printing and close printer *> 2 - Throw a page *> 3 - Flush the print buffers *> 4 - Start a new line *> *>Parameteros para PC_PRINTER_WRITE *>---Printer-Handle (same as above) 01 Print-Buffer pic x(600). 01 RPrint-Buffer1 Redefines Print-Buffer. 02 Ws-Uno1 Pic x. 02 Ws-Dos1 Pic x(599). 01 RPrint-Buffer2 Redefines Print-Buffer. 02 Ws-Uno2 Pic xx. 02 Ws-Dos2 Pic x(598). 01 RPrint-Buffer3 Redefines Print-Buffer. 02 Ws-Uno3 Pic xxx. 02 Ws-Dos3 Pic x(597). 01 RPrint-Buffer4 Redefines Print-Buffer. 02 Ws-Uno4 Pic x(4). 02 Ws-Dos4 Pic x(596). 01 RPrint-Buffer5 Redefines Print-Buffer. 02 Ws-Uno5 Pic x(5). 02 Ws-Dos5 Pic x(595). 01 Print-Buffer-Len pic x(04) Comp-5. *>Parameteros para PC_PRINTER_CLOSE *>---Printer-Handle (same as above) *> 01 Default-Properties-Flags pic x(4) Comp-5. 01 Default-Properties. 02 pr-len pic x(2) Comp-5. 02 pr-papersize pic s9(4) Comp-5. 02 pr-paperlength pic s9(4) Comp-5. 02 pr-paperwidth pic s9(4) Comp-5. 02 pr-scale pic s9(4) Comp-5. 02 pr-copies pic s9(4) Comp-5. 02 pr-papertray pic s9(4) Comp-5. 02 pr-printquality pic s9(4) Comp-5. 02 pr-color pic s9(4) Comp-5. 02 pr-duplex pic s9(4) Comp-5. 02 pr-orientation pic s9(4) Comp-5. 02 pr-yresolution pic s9(4) Comp-5. 01 Operation pic x(30). Copy \Sifcnet\Copys\Scona06.Cpy. Copy \Sifcnet\Copys\Scona43.Cpy. Copy \Sifcnet\Copys\Scona54.Cpy. Copy \Sifcnet\Copys\Scona54z.Cpy. Copy \Sifcnet\Copys\Scona118.Cpy. COPY \SIFCNET\COPYS\scona148.cpy. COPY \SIFCNET\COPYS\scona149.cpy. Copy \Sifcnet\Copys\Btrieve.Par. Copy \Sifcnet\Copys\Btrieve.Msg. Copy \Sifcnet\Copys\Impresio.Par. Copy \Sifcnet\Copys\Impresoras.cpy. COPY \sifcnet\copys\Oclia07.CPY. COPY \sifcnet\copys\Oclia12.CPY. COPY \sifcnet\copys\Oclia15.CPY. COPY \sifcnet\copys\Oclia18.CPY. COPY \sifcnet\copys\Oclia107.CPY. COPY \sifcnet\copys\Osega01.CPY. COPY \sifcnet\copys\Osega02.CPY. COPY \sifcnet\copys\Osega03.CPY. COPY \sifcnet\copys\Osega04.CPY. COPY \sifcnet\copys\Osega05.CPY. COPY \sifcnet\copys\Osega06.CPY. COPY \sifcnet\copys\Osega07.CPY. COPY \sifcnet\copys\Osega08.CPY. COPY \sifcnet\copys\Osega11.CPY. COPY \sifcnet\copys\Osega12.CPY. COPY \sifcnet\copys\Osega13.CPY. COPY \sifcnet\copys\Osega14.CPY. COPY \sifcnet\copys\Osega15.CPY. COPY \sifcnet\copys\Osega16.CPY. COPY \sifcnet\copys\Osega17.CPY. COPY \sifcnet\copys\Osega18.CPY. COPY \sifcnet\copys\SCONA17.CPY. COPY \sifcnet\copys\SMENA03.CPY. 77 Impresiones-VC usage procedure-pointer. ****************************************************************** * VARIABLES PARA IMPRESORAS PREDETERMINADAS * ****************************************************************** 77 gg Pic 9(6). 77 jj Pic 9(6). 77 Tope Pic 9(6). 77 Topes Pic 9(6). 01 Nom-reporte Pic x(250). 01 Redefines Nom-Reporte. 02 Rnom-Reporte Occurs 250 Times. 03 Nr Pic x. 01 Reporte-Nombre Pic x(250). 01 Redefines Reporte-Nombre. 02 RReporte-Nombre Occurs 250 Times. 03 Rn Pic x. 01 PRINT-COMMAND pic x(04) Comp-5. 01 PC-HANDLE-PR pic x(04) Comp-5. 01 PC-TITULO-PR. 02 title-lena pic x(02) Comp-5 value 242. 02 title-texta pic x(80) value "PRUEBA PRINTER". * 02 filler pic x(01) value x"00". 01 PC-FLAGS-PR pic x(04) Comp-5 value 4. 01 PC-WIN-H-PR pic x(04) Comp-5 value 0. 01 PC-BUFFER-PR. 02 PC-LINEA-PR pic x(242) value spaces. 02 filler pic x(01) value x"00". 01 PC-LARGO-PR pic x(04) Comp-5 value 0. 01 PC-REPLY pic x(02) Comp-5 value 0. 01 OPL-IND pic 9(05) value 0. 01 OPL-PRT-LARGO pic X(04) Comp-5 value 0. 01 OPL-PRT-BUFFER. 02 OPL-AREA-DOC pic x(600) value spaces. * 02 OPL-100a pic x(002) value x"0D0A". * 02 filler pic x(01) value x"00". 01 filler redefines OPL-PRT-BUFFER. 02 OPL-100s Occurs 01 Times. 03 OPL-100 pic x(600). 01 FONT-FAMILY. 02 NAME-LEN PIC X(2) Comp-5 Value 5. 02 NAME-NAM PIC X(80) VALUE 'Arial '. 01 CONTROLES. 02 FILLER PIC X(02) VALUE X"0A0D". 01 RCONTROLES REDEFINES CONTROLES. 02 RRCONTROLES OCCURS 2 TIMES. 03 CAR PIC X. 78 CRLF value x"0D0A". *> PC_PRINTER_OPEN Flags settings *> bit decimal *> 0 1 Display Printer Dialog allowing printer selection *> and orientation specification. *> 1 2 Display Font Dialog allowing default font *> selection for the document. *> 2 4 Specify Portrait orientation. No Dialog. *> (conflicts with bit 0 and bit 3). *> 3 8 Specify Landscape orientation. No Dialog. *> (conflicts with bit 0 and bit 2). *> 4 16 Display Printing progress dialog. *> *> The decimal values of the flags are additive. For example, *> if Landscape and a Font Dialog are requirements, 8 plus 2 *> equals 10, should be specified as the value for the flags item. ****************************************************************** * FIN VARIABLES PARA IMPRESORAS PREDETERMINADAS * ****************************************************************** * * AREAS PARA EL LOG DE LAS IMPRESIONES * 77 mensajeError Pic X(200). 01 Error-Impresora Pic X(200). 01 RError-Impresora Redefines Error-Impresora. 02 M-Error Pic X(42). 02 M-Code Pic ZZZZ99BB. 02 M-Texto Pic X(150). 77 Estado Pic XX. 77 Retorno Pic XX. 77 Numero-pasos Pic 9(15) Value Zero. 77 Sw-Open-Errores Pic 9 Value Zero. 77 Sw-Open-Trace Pic 9 Value Zero. 01 Ws-Errores Pic X(64). 01 Ws-Errores1 Pic X(64). 01 Rws-Errores1 Redefines Ws-Errores1. 02 Disco1 Pic X. 02 Ruta1 Pic X(20). 02 Extencion1 Pic X(15). 02 Operador1 Pic 9(8). 02 Fecha1 Pic x(8). 02 Hora1 Pic 9(8). 02 Resto1 Pic X(18). 01 Ws-Errores2 Pic X(64). 01 Rws-Errores2 Redefines Ws-Errores2. 02 Ruta2 Pic X(19). 02 Extencion2 Pic X(15). 02 Operador2 Pic 9(8). 02 Fecha2 Pic x(8). 02 Hora2 Pic 9(8). 02 Resto2 Pic X(18). 01 Ws-Entorno Pic x(42). 01 Rws-Entorno Redefines Ws-Entorno. 02 Entorno-Dis Pic x. 02 Entorno-Rut Pic x(41). 78 name-count Value 34. 01 value-string pic x(256). 01 name-index pic 99 usage comp-5. 01 environment-names. 02 name-strings. 03 filler pic x(20) value 'AUTH_TYPE'. 03 filler pic x(20) value 'CONTENT_LENGTH'. 03 filler pic x(20) value 'CONTENT_TYPE'. 03 filler pic x(20) value 'DOCUMENT_ROOT'. 03 filler pic x(20) value 'GATEWAY_INTERFACE'. 03 filler pic x(20) value 'HTTP_ACCEPT'. 03 filler pic x(20) value 'HTTP_ACCEPT_CHARSET'. 03 filler pic x(20) value 'HTTP_ACCEPT_ENCODING'. 03 filler pic x(20) value 'HTTP_ACCEPT_LANGUAGE'. 03 filler pic x(20) value 'HTTP_COOKIE'. 03 filler pic x(20) value 'HTTP_CONNECTION'. 03 filler pic x(20) value 'HTTP_HOST'. 03 filler pic x(20) value 'HTTP_REFERER'. 03 filler pic x(20) value 'HTTP_USER_AGENT'. 03 filler pic x(20) value 'LIB_PATH'. 03 filler pic x(20) value 'PATH'. 03 filler pic x(20) value 'PATH_INFO'. 03 filler pic x(20) value 'PATH_TRANSLATED'. 03 filler pic x(20) value 'QUERY_STRING'. 03 filler pic x(20) value 'REMOTE_ADDR'. 03 filler pic x(20) value 'REMOTE_HOST'. 03 filler pic x(20) value 'REMOTE_IDENT'. 03 filler pic x(20) value 'REMOTE_PORT'. 03 filler pic x(20) value 'REQUEST_METHOD'. 03 filler pic x(20) value 'REQUEST_URI'. 03 filler pic x(20) value 'SCRIPT_FILENAME'. 03 filler pic x(20) value 'SCRIPT_NAME'. 03 filler pic x(20) value 'SERVER_ADDR'. 03 filler pic x(20) value 'SERVER_ADMIN'. 03 filler pic x(20) value 'SERVER_NAME'. 03 filler pic x(20) value 'SERVER_PORT'. 03 filler pic x(20) value 'SERVER_PROTOCOL'. 03 filler pic x(20) value 'SERVER_SIGNATURE'. 03 filler pic x(20) value 'SERVER_SOFTWARE'. 02 filler redefines name-strings. 03 name-string pic x(20) occurs name-count times. 01 Variables-De-Entorno. 02 RVariables-Entorno Occurs 34 Times. 03 Entorno-Inf Pic x(300). 01 Nombres-Entorno. 03 filler pic x(20) value 'AUTH_TYPE'. *> 1 03 filler pic x(20) value 'CONTENT_LENGTH'. *> 2 03 filler pic x(20) value 'CONTENT_TYPE'. *> 3 03 filler pic x(20) value 'DOCUMENT_ROOT'. *> 4 03 filler pic x(20) value 'GATEWAY_INTERFACE'. *> 5 03 filler pic x(20) value 'HTTP_ACCEPT'. *> 6 03 filler pic x(20) value 'HTTP_ACCEPT_CHARSET'. *> 7 03 filler pic x(20) value 'HTTP_ACCEPT_ENCODING'. *> 8 03 filler pic x(20) value 'HTTP_ACCEPT_LANGUAGE'. *> 9 03 filler pic x(20) value 'HTTP_COOKIE'. *> 10 03 filler pic x(20) value 'HTTP_CONNECTION'. *> 11 03 filler pic x(20) value 'HTTP_HOST'. *> 12 03 filler pic x(20) value 'HTTP_REFERER'. *> 13 03 filler pic x(20) value 'HTTP_USER_AGENT'. *> 14 03 filler pic x(20) value 'LIB_PATH'. *> 15 03 filler pic x(20) value 'PATH'. *> 16 03 filler pic x(20) value 'PATH_INFO'. *> 17 03 filler pic x(20) value 'PATH_TRANSLATED'. *> 18 03 filler pic x(20) value 'QUERY_STRING'. *> 19 03 filler pic x(20) value 'REMOTE_ADDR'. *> 20 03 filler pic x(20) value 'REMOTE_HOST'. *> 21 03 filler pic x(20) value 'REMOTE_IDENT'. *> 22 03 filler pic x(20) value 'REMOTE_PORT'. *> 23 03 filler pic x(20) value 'REQUEST_METHOD'. *> 24 03 filler pic x(20) value 'REQUEST_URI'. *> 25 03 filler pic x(20) value 'SCRIPT_FILENAME'. *> 26 03 filler pic x(20) value 'SCRIPT_NAME'. *> 27 03 filler pic x(20) value 'SERVER_ADDR'. *> 28 03 filler pic x(20) value 'SERVER_ADMIN'. *> 29 03 filler pic x(20) value 'SERVER_NAME'. *> 30 03 filler pic x(20) value 'SERVER_PORT'. *> 31 03 filler pic x(20) value 'SERVER_PROTOCOL'. *> 32 03 filler pic x(20) value 'SERVER_SIGNATURE'. *> 33 03 filler pic x(20) value 'SERVER_SOFTWARE'. *> 34 01 RNombres-Entorno Redefines Nombres-Entorno. 02 RrNombres-Entorno Occurs 34 Times. 03 Nombre-Entorno Pic x(20). 77 CC Pic 9999. 77 DD Pic 9999. 77 EE Pic 9999. 01 Variable-Host Pic x(300). 01 V Redefines Variable-Host. 02 V1 Occurs 300 Times. 03 Vi Pic X. 01 Variables-Host Pic x(300). 01 V2 Redefines Variables-Host. 02 V21 Occurs 300 Times. 03 Vo Pic X. 01 Texto-Impresoras Pic x(622). 01 Redefines Texto-Impresoras. 02 Texto1 Pic xx. 02 Texto2 Pic x(20). 02 Texto2a Pic x. 02 Texto3 Pic x(300). 02 RTexto3 Redefines Texto3. 03 Texto4 Pic xx. 03 Texto5 Pic X(298). 01 Redefines Texto-Impresoras. 02 RR Occurs 622 Times. 03 I Pic X. 01 Nombre-de-la-Impresoras Pic x(622). 01 Redefines Nombre-de-la-Impresoras. 02 RNombre-de-la-Impresoras Occurs 622 Times. 03 O Pic x. 77 A1 Pic 9999. 77 A2 Pic 9999. ****************************************************************** * VARIABLES PARA IMPRESORAS PREDETERMINADAS * ****************************************************************** 01 Linea-001. 02 Filler Pic X(344) Value Space. 02 Filler Pic x(26) Value 'CREDIVAC - RUC 20251543390'. 01 Linea-002. 02 Filler Pic x(273) Value Space. 02 Filler Pic X(56) Value 'Av. República del Perú 1430 - 1432 Urb. Huaquillas Comas'. 02 Filler Pic X(12) Value ' Lima - Perú'. 01 Linea-003. 02 Filler Pic X(331) Value Space. 02 Filler Pic X(38) Value 'Teléfonos (01) 536-4441/(01) 536-4377'. 01 Linea-004. 02 Filler Pic X(299) Value Space. 02 Filler Pic X(51) Value 'informes@credivac.com.pe / gerencia@credivac.com.pe'. 01 Titulo-001. 02 fILLER Pic X(25) Value Space. 02 Filler Pic X(086) Value 'CERTIFICADO DE CONTRATO COLECTIVO DE SEGURO'. 01 Titulo-002. 02 fILLER Pic X(56) Value Space. 02 Filler Pic X(12) Value 'Código SBS:'. 02 TSBS Pic zz999. 02 fILLER Pic X(56) Value Space. 01 Titulo-003. 02 fILLER Pic X(126) Value Space. 01 Titulo-004. 02 fILLER Pic X(053) Value 'En el presente Certificado se encuentra contenido el'. 02 fILLER Pic X(054) Value 'resumen del Contrato Colectivo de Seguro'. * 12345678901234567890123456789012345678901234567890 01 Detalle-001D. 02 TTITULO Pic x(370) Value 'DATOS DEL SEGURO'. 01 Detalle-002. 02 DRaya Pic x(370) Value all '▄'. * 02 Filler value x"0D0A". * 02 Filler Pic X(20) Value low-value. 01 Detalle-002C. 02 Filler Pic x(026) Value 'Contrato Colectivo No. |'. 02 DContrato Pic z(10). 02 Filler Pic X(334) Value Space. * 02 Filler value x"0D0A". 01 Detalle-003C. 02 Filler Pic x(031) Value 'Certificado No. |'. 02 DCertificado Pic z(10). 02 Filler Pic X(329) Value Space. * 02 Filler value x"0D0A". 01 Detalle-004-1. 02 Filler Pic x(025) Value 'Eventos Asegurados |'. 02 DEventos1 Pic X(345) Value Space. * 02 Filler value x"0D0A". 01 Detalle-004-2. 02 Filler Pic x(027) Value ' (Riesgos Cubiertos) |'. 02 DEventos2 Pic X(343) Value Space. * 02 Filler value x"0D0A". 01 Detalle-004-3. 02 Filler Pic x(039) Value ' |'. 02 DEventos3 Pic X(331) Value Space. * 02 Filler value x"0D0A". 01 Detalle-005-1. 02 Filler Pic x(028) Value 'Monto del Seguro |'. 02 Filler Pic X(342) Value 'Saldo insoluto del crédito otorgado por CREDIVAC.'. * 02 Filler value x"0D0A". 01 Detalle-005-2. 02 Filler Pic x(029) Value '(Suma Asegurada) |'. 02 Filler Pic X(341) Value Space. * 02 Filler value x"0D0A". 01 Detalle-006-1. 02 Filler Pic x(033) Value 'Beneficiario |'. 02 Filler Pic X(061) Value 'Cooperativa de Ahorro y Credito de los Vendedores Ambulantes'. 02 Filler Pic X(276) Value 'de Comas - CREDIVAC'. * 02 Filler value x"0D0A". 01 Detalle-007-1. 02 Filler Pic x(030) Value 'Inicio de Vigencia |'. 02 DVigencia Pic zz/zz/zzzz. 02 Filler Pic X(330) Value Space. * 02 Filler value x"0D0A". 01 Detalle-008-1. 02 Filler Pic x(040) Value ' |'. 02 Filler Pic X(062) Value 'El fin de vigencia se produce en la fecha de cancelación total'. 02 Filler Pic X(278) Value ' del crédito; fecha en la que el asegurado'. 01 Detalle-008-2. 02 Filler Pic x(031) Value 'Fin de Vigencia |'. 02 Filler Pic X(062) Value 'cumple la edad máxima de permanencia en el seguro, o fecha en '. 02 Filler Pic X(277) Value 'la que corre un evento asegurado; lo '. 01 Detalle-008-3. 02 Filler Pic x(040) Value ' |'. 02 Filler Pic X(062) Value 'que ocurra primero.'. 02 Filler Pic X(268) Value Space. * 02 Filler value x"0D0A". 01 Detalle-009-1. 02 Filler Pic x(370) Value 'No aplican deducibles, franquicias o similares.'. * 02 Filler value x"0D0A". * 12345678901234567890123456789012345678901234567890123456789012 * * LINEAS PARA IMPRIMIR DATOS DE LA ASEGURADORA * 01 Detalle-011D. 02 Filler Pic x(27) Value 'Razón Social |'. 02 DRazon1 Pic x(49) Value 'Cooperativa de Ahorro y Credito '. 02 Filler Pic x(30) Value '|RUC |'. * 123456789012345678901234567890 02 DRUC Pic x(35) Value Space. 02 Filler Pic x(229) Value Space. 01 Detalle-011D1. 02 Filler Pic x(35) Value ' |'. * 1234567890123456789012345678901234567890 02 DRazon2 Pic x(41) Value 'de los Ambulantes de Comas CREDIVAC'. 02 Filler Pic x(34) Value '| |'. * 123456789012345678901234567890 02 Filler Pic x(35) Value Space. 02 Filler Pic x(225) Value Space. 01 Detalle-012D. 02 Filler Pic x(29) Value 'Dirección |'. * 123456789012345678901234567 02 DDireccion Pic x(49) Value 'Av. República del Perú 1430-1432 '. 02 Filler Pic x(30) Value '|Distrito |'. * 123456789012345678901234567890 02 DDistrito Pic x(35) Value 'Comas'. 02 Filler Pic x(229) Value Space. 01 Detalle-013D. 02 Filler Pic x(29) Value 'Provincia |'. * 123456789012345678901234567 02 DProvincia Pic x(67) Value 'Lima '. 02 Filler Pic x(23) Value '|Departamento |'. * 123456789012345678901234567890 02 DDepartamento Pic x(35) Value 'Lima '. 02 Filler Pic x(216) Value Space. 01 Detalle-014D. 02 Filler Pic x(23) Value 'Correo electrónico |'. * 12345678901234567890123456789 02 DMail Pic x(53) Value 'informes@credivac.com.pe '. 02 Filler Pic x(27) Value '|Teléfono |'. * 123456789012345678901234567890 02 DTelefono Pic x(35) Value '(01) 536-4441'. 02 Filler Pic x(236) Value Space. * * LINEAS PARA IMPRIMIR DATOS DEL CREDITO * 01 Detalle-015D. 02 Filler Pic x(36) Value ' Producto Crediticio |'. 02 Filler Pic x(22) Value ' Moneda |'. * 123456789012345678901234567890 02 Filler Pic x(22) Value ' Monto Original |'. 02 Filler Pic x(22) Value ' Plazo '. 02 Filler Pic x(268) Value Space. 01 Detalle-016D. 02 DProducto Pic x(38) Value Space. 02 Filler Pic x Value '|'. 02 DMoneda Pic x(52) Value Space. 02 Filler Pic x Value '|'. * 123456789012345678901234567890 02 Filler Pic x(16) Value Space. 02 DAsegurado Pic bz,zzz,zzz,zzz,zzz.zz. 02 Filler Pic x Value '|'. 02 DPlazo Pic x(24) Value Space. 02 Filler Pic x Value ' '. 02 Filler Pic x(215) Value Space. * * LINEAS PARA IMPRIMIR DATOS DEL ASEGURADO * 01 Detalle-017D. 02 Filler Pic x(41) Value ' Primer Apellido |'. 02 Filler Pic x(41) Value ' Segundo Apellido |'. 02 Filler Pic x(40) Value ' Nombre(s) '. * 12345678901234567890123456789012345678901 02 Filler Pic x(248) Value Space. 01 Detalle-018D. 02 DPaterno Pic x(65). 02 Filler Pic x Value '|'. 02 DMaterno Pic x(70). 02 Filler Pic x Value '|'. 02 DNombres Pic x(40). 02 Filler Pic x(193) Value Space. 01 Detalle-019D. 02 Filler Pic x(29) Value ' Nacionalidad |'. 02 Filler Pic x(16) Value 'Tipo Documento|'. 02 Filler Pic x(13) Value 'No.Documento|'. * 12345678901234567890123456789012345678901 02 Filler Pic x(11) Value ' Género |'. 02 Filler Pic x(12) Value 'Est. Civil|'. 02 Filler Pic x(15) Value 'F.Nacimiento '. * 12345678901234567890123456789012345678901 02 Filler Pic x(274) Value Space. 01 Detalle-020D. 02 DNacionalidad Pic x(48). 02 Filler Pic x Value '|'. 02 DTipoDoc Pic x(37). 02 Filler Pic x Value '|'. 02 DNumDoc Pic x(25). 02 Filler Pic x Value '|'. 02 Dgenero Pic x(16). 02 Filler Pic x Value '|'. 02 DCivil Pic x(15). 02 Filler Pic x Value '|'. 02 DNacimiento Pic bbbbzz/zz/zzzz. 02 Filler Pic x(210) Value Space. 01 Detalle-021D. 02 Filler Pic x(15) Value 'Telefono Fijo|'. 02 Filler Pic x(15) Value ' Celular |'. 02 Filler Pic x(35) Value ' Correo Electrónico |'. 02 Filler Pic x(35) Value ' Ocupación '. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(270) Value Space. 01 Detalle-022D. 02 DFijo Pic x(22). 02 Filler Pic x Value '|'. 02 DCelular Pic x(17). 02 Filler Pic x Value '|'. 02 DEmail Pic x(41). 02 Filler Pic x Value '|'. 02 DOcupacion Pic x(53). * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(234) Value Space. 01 Detalle-023D. 02 Filler Pic x(38) Value ' Dirección del Domicilio |'. 02 Filler Pic x(15) Value 'No / Mz. / Lt.|'. 02 Filler Pic x(36) Value ' Distrito |'. 02 Filler Pic x(36) Value ' Provincia '. * 12345678901234567890123456789012345678901234567890 * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(245) Value Space. 01 Detalle-024D. 02 DDomicilioc Pic x(38). 02 Filler Pic x Value '|'. 02 DNumeroc Pic x(18). 02 Filler Pic x Value '|'. 02 DDistritoc Pic x(49). 02 Filler Pic x Value '|'. 02 DProvinciac Pic x(36). * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(226) Value Space. 01 Detalle-025D. 02 Filler Pic x(37) Value ' Departamento |'. 02 Filler Pic x(47) Value ' Relación con el contratante '. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(286) Value Space. 01 Detalle-026D. 02 DDepartamentoc Pic x(65). 02 Filler Pic x Value '|'. 02 Filler Pic x(40) Value 'Cliente titular del credito'. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(260) Value Space. * * LINEAS DE CONDICIONES DE INGRESO Y PERMANENCIA DEL SEGURO * 01 Detalle-027D. 02 Filler Pic x(37) Value 'Edad mínima de ingreso: '. 02 DEdadMinima Pic zz9. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(330) Value Space. * 1234567890123456789012345678901234567890123 4567890 01 Detalle-028D. 02 Filler Pic x(36) Value 'Edad máxima de ingreso: '. 02 DEdadMaxima Pic zz9. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(331) Value Space. * 1234567890123456789012345678901234567890123 4567890 01 Detalle-029D. 02 Filler Pic x(37) Value 'Edad máxima de permanencia: '. 02 DEdadPermanencia Pic zz9. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(330) Value Space. * 1234567890123456789012345678901234567890123 4567890 * * LINEAS DE IMPRIMIR DESCRIPCIONES DE LAS COBERTURAS * 01 Detalle-030D. 02 Filler Pic x(38) Value ' Cobertura (1) |'. * 123456789012345678901234567890123456789012345678901 02 Filler Pic x(90) Value ' Descripción'. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(242) Value Space. 01 Detalle-031D. 02 DNomCobertura Pic x(35) Value Space. * 123456789012345678901234567890123456789012345678901 02 Filler Pic x Value '|'. 02 DDesCobertura Pic x(90) Value Space. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(244) Value Space. 01 Detalle-031D2. 02 Filler Pic x(40) Value low-value. * 123456789012345678901234567890123456789012345678901 02 Filler Pic x Value '|'. 02 DDesCobertura1 Pic x(90) Value Space. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(239) Value Space. 01 Detalle-032D. 02 Filler Pic x(062) Value '(1) Las coberturas son excluyentes: se podrá utilizar una sola'. * 123456789012345678901234567890123456789012345678901234567890 02 Filler Pic x(308) Value ' cobertura durante la vigencia del seguro.'. * * LINEAS DE IMPRIMIR LAS EXCLUSIONES * 01 Detalle-033D. 02 Todo-Texto Pic x(130) Value Space. * 12345678901234567890123456789012345678901234567890 02 Filler Pic x(240) Value Space. * 1234567890123456789012345678901234567890123 4567890 01 Wr-Textos Pic x(370). 01 Rwr-Textos Redefines Wr-Textos. 02 Rrwr-Textos Occurs 370 Times. 03 W Pic x. 01 Ws-Numeracion Pic x(20). 01 Rws-Numeracion Redefines Ws-Numeracion. 02 Texto-Num1 Pic x(7). 02 Texto-Num2 Pic x(6). 02 Texto-Num3 Pic x(7). 01 Ws-Blancos Pic x(600) Value all low-value. 01 Wx-Blancos Pic x(600) Value all high-value. 01 Texto-Plazo Pic X(24). 01 RTexto-Plazo Redefines Texto-Plazo. 02 AAAA Pic zz. 02 Texto-AAAA Pic X(6). 02 MMM Pic zz. 02 Texto-MMM Pic X(7). 02 DDD Pic zz. 02 Texto-DDD Pic X(5). 77 AA Pic 9999. 77 BB Pic 9999. 77 C1 Pic 9999. 01 Ws-caracteres. 02 Caracter-Dis Pic x. 02 Caracter-Rut Pic x(16). 02 Caracter-Nom Pic x(20). 01 Tabla-caracteres Pic x(102). 01 RTabla-Caracteres Redefines Tabla-Caracteres. 02 RrTabla-Caracteres Occurs 102 Times. 03 Caract Pic x. 01 Tabla-Coberturas Pic x(38552). 01 RTabla-Coberturas Redefines Tabla-Coberturas. 02 Rrtabla-Cobertuas Occurs 38552 Times. 03 Cob-I Pic x. 01 RTabla-Coberturass Redefines Tabla-Coberturas. 02 Rrtabla-Cobertuass Occurs 11 Times. 03 Cob-T Pic X(50). 03 Cob-F Pic x. 01 Tabla-Coberturas-O Pic x(38552). 01 RTabla-Coberturas-O Redefines Tabla-Coberturas-O. 02 Rrtabla-Cobertuas-O Occurs 38552 Times. 03 Cob-O Pic x. 01 RTabla-Coberturass-O Redefines Tabla-Coberturas-O. 02 Rrtabla-Cobertuasso Occurs 11 Times. 03 Cob-TO Pic X(334). 01 Tabla-Coberturas-J Pic x(38552). 01 RTabla-Coberturas-J Redefines Tabla-Coberturas-J. 02 Rrtabla-Cobertuas-J Occurs 38552 Times. 03 Cob-J Pic x. 01 RTabla-Coberturass-J Redefines Tabla-Coberturas-J. 02 Rrtabla-CobertuassJ Occurs 11 Times. 03 Cob-TJ Pic X(334). 01 Texto-Imprimir Pic X(3700). 01 RTexto-Imprimir Redefines Texto-Imprimir. 02 RrTexto-Imprimir Occurs 3700 Times. 03 Tex-I Pic X. 01 Textos-Imprimir Pic X(3700). 01 RTextos-Imprimir Redefines Textos-Imprimir. 02 RrTextos-Imprimir Occurs 3700 Times. 03 Tex-O Pic X. 01 Lineas-Imprimir Pic X(3822). 01 RLineas-Imprimir Redefines Lineas-Imprimir. 02 RrLineas-Imprimir Occurs 49 Times. 03 Lin-O Pic X(78). 01 RLineas-Imprimirr Redefines Lineas-Imprimir. 02 RrLineas-Imprimirr Occurs 3822 Times. 03 Lin-Or Pic X(78). 01 Texto-Imprimir1 Pic X(3950). 01 RTexto-Imprimir1 Redefines Texto-Imprimir1. 02 RrTexto-Imprimir1 Occurs 3950 Times. 03 Tex-I1 Pic X. 01 Textos-Imprimir1 Pic X(3950). 01 RTextos-Imprimir1 Redefines Textos-Imprimir1. 02 RrTextos-Imprimir1 Occurs 3950 Times. 03 Tex-O1 Pic X. 01 Lineas-Imprimir1 Pic X(3950). 01 RLineas-Imprimir1 Redefines Lineas-Imprimir1. 02 RrLineas-Imprimir1 Occurs 30 Times. 03 Lin-O1 Pic X(130). 01 RLineas-Imprimirr1 Redefines Lineas-Imprimir1. 02 RrLineas-Imprimirr1 Occurs 3050 Times. 03 Lin-Or1 Pic X(130). *01 Lineas-Imprimir1 Pic X(3822). *01 RLineas-Imprimir1 Redefines Lineas-Imprimir1. * 02 RrLineas-Imprimir1 Occurs 30 Times. * 03 Lin-O1 Pic X(130). *01 RLineas-Imprimirr1 Redefines Lineas-Imprimir1. * 02 RrLineas-Imprimirr1 Occurs 3950 Times. * 03 Lin-Or1 Pic X(130). 01 Ws-Cobertura Pic x(50). 01 Rws-Cobertura Redefines Ws-Cobertura. 02 Rrws-Cobertura Occurs 50 Times. 03 Co Pic x. 77 Ws-Limite Pic 9(8). Linkage Section. COPY \sifcnet\copys\SCON.CPY. COPY \sifcnet\copys\OPERS01.CPY. COPY \sifcnet\copys\OPERA01.CPY. COPY \sifcnet\copys\OCLIA01.CPY. COPY \sifcnet\copys\OCREA03.CPY. COPY \sifcnet\copys\OCREA38.CPY. COPY \sifcnet\copys\FCONA15.CPY. 77 Ws-Contrato Pic 9(10). 77 Ws-Certificado Pic 9(10). PROCEDURE DIVISION USING PARAMETROS-GENERALES, VARIABLES-OPERT01, REGISTRO-OPERA01, REGISTRO-OCLIA01, REGISTRO-OCREA03, REGISTRO-OCREA38, REGISTRO-FCONA15, Ws-Contrato, Ws-Certificado. main section. *------------* Move 'Osegr02' To Wnn-Nombre. Copy \SIFCNet\Copys\Graba-Smena04-01.Cpy. MOVE 'Osegr02' To NOMBRES-PROGRAMA. Move Space To Tabla-Caracteres. Move Servidor To Caracter-Dis. Move ':\SIFC\Sistemas\' To Caracter-Rut. Move 'ASCII.txt' To Caracter-Nom. Open Input Carac. Read Carac Into Registro-Caracteres. Close Carac. Move Registro-Caracteres To Tabla-Caracteres. Move Zero To Key-Osega11. Move Ocrea38-Emp To Osega11-Emp. Move Ocrea38-Soc To Osega11-Soc. Move Ocrea38-Tip To Osega11-Tip. Move Ocrea38-Ptm To Osega11-Ptm. Move Ocrea38-Cam To Osega11-Cam. Move Ocrea38-Num To Osega11-Num. MOve 09 To Operaciones. Move Zero To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega11.tab. ` If C-Status Equal 03 Or C-Status Equal 09 Go To Proceso-999. If C-Status Not Equal 00 Go To Proceso-999. Go To Compara-Osega11. Siguiente-Osega11. *-----------------* MOve 06 To Operaciones. Move Zero To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega11.tab. If C-Status Equal 09 Go To Proceso-999. If C-Status Not Equal 00 Go To Proceso-999. Compara-Osega11. *---------------* If Ocrea38-Emp Not Equal Osega11-Emp Or Ocrea38-Soc Not Equal Osega11-Soc Or Ocrea38-Tip Not Equal Osega11-Tip Or Ocrea38-Ptm Not Equal Osega11-Ptm Or Ocrea38-Cam Not Equal Osega11-Cam Or Ocrea38-Num Not Equal Osega11-Num Go To Proceso-999. If Osega11-Nco Not Equal Ws-Contrato Go To Siguiente-Osega11. If Osega11-Cer Not Equal Ws-Certificado Go To Siguiente-Osega11. * Perform Pone-Coberturas Thru * Exit-Pone-Coberturas. Move Osega11-Emp To Osega01-Emp. Move Osega11-Seg To Osega01-Tse. Move Osega11-Seg To Osega01-Des. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \sifcnet\copys\Osega01.Tab. IF C-STATUS EQUAL 03 OR C-STATUS EQUAL 04 Move Zero To C-Status. IF C-STATUS NOT EQUAL 00 Go To Proceso-999. MOVE 1 To OPCION-SCREEN. MOVE ZERO To SW-OPEN-LISTADO. Move W-Oficina To Ofi-Usuario. Move Zero To Sw-Iniciar. Move Ocrea38-Emp To Scona17-Emp. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \sifcnet\copys\Scona17.Tab. IF C-STATUS EQUAL 03 OR C-STATUS EQUAL 04 GO TO SEGUIR. IF C-STATUS NOT EQUAL 00 GO TO SEGUIR. SEGUIR. *----* Move Scona17-Sbs To TSBS. IF Ocrea38-MON EQUAL ZERO MOVE Smonedan TO Fcona15-Nom MOVE SMONEDAS TO Fcona15-Sig. Copy \Sifcnet\Copys\Scona54.Lo1. MOVE FECHA-DIA TO FECHAS. Move 'Arial' To Scona54-Nom. Move 5 To Scona54-Lon. Move 10 To Scona54-Siz. Move Zero To Scona54-Sty. If Sw-Open-Printer Equal Zero Perform Open-Printer Thru Exit-Open-Printer Perform Leo-Scona43 Thru Exit-Leo-Scona43 Perform Logo-Todos Thru Exit-Logo-Todos MOve 4 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo MOVE 4 TO PRINT-COMMAND Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. * * Imprime numero de contrato * Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Osega11-Nco To DContrato. MOve Detalle-002C To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. * * Imprime numero de certificado * Perform Imprime-DEtalle-002 Thru Exit-Imprime-DEtalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Osega11-cer To DCertificado. MOve Detalle-003C To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. * * Imprime eventos asegurados * Perform Arma-Nombres-Coberturas Thru Exit-Arma-Nombres-Coberturas. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move 1 To xx. Move Cob-TO(xx) To DEventos1. Move Osega11-Moe To DAsegurado. MOve Detalle-004-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Add 1 To xx. Move Cob-TO(xx) To DEventos2. MOve Detalle-004-2 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Add 1 To xx. Perform Imprime-Nombre-Coberturas Thru Exit-Imprime-Nombre-Coberturas Until xx > 10. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. MOve Detalle-005-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. MOve Detalle-005-2 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. MOve Detalle-006-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Osega11-Ini To Fechao. Move Anoo To Ano. Move Meso To Mes. Move Diao To Dia. Move Fechas To DVigencia. Move Detalle-007-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Detalle-008-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Move Detalle-008-2 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Move Detalle-008-3 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Detalle-009-1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME DATOS DE LA ASEGURADORA * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'DATOS DE LA ASEGURADORA' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Numero-Ruc To DRUC. Move Detalle-011D To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Move Detalle-011D1 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Detalle-012D To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Detalle-013D To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Detalle-014D To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME DATOS DEL CREDITO * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'DATOS DEL CREDITO ' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setee-Color Thru Exit-Setee-Color. MOve Detalle-015d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Pone-Plazo Thru Exit-Pone-Plazo. Move Ocrea03-Des To DProducto. Move Fcona15-Nom To DMoneda. Move Osega11-Moe To DAsegurado. Move Texto-Plazo To DPlazo MOve Detalle-016d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME DATOS DEL AEGURADO * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'DATOS DEL ASEGURADO ' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-017d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Oclia01-Pat To Dpaterno. Move Oclia01-Mat To Dmaterno. Move Oclia01-Nob To DNombres. MOve Detalle-018d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. * Perform Imprime-Detalle-002 Thru * Exit-Imprime-Detalle-002. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-019d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Pone-Nacionalidad Thru Exit-Pone-Nacionalidad. Perform Pone-Tipo-Identidad Thru Exit-Pone-Tipo-Identidad. If Oclia01-Nui Not Equal Space Move Oclia01-Nui To DNumDoc Else Move Oclia01-Nut To DNumDoc. If Oclia01-Sex Equal '1' Move 'Masculino' To DGenero Else Move 'Femenino' To DGenero. If Oclia01-Sex Equal '1' Move 'Soltero' To DCivil. If Oclia01-Sex Equal '1' Move 'Soltera' To DCivil. If Oclia01-Civ Equal '2' And Oclia01-Sex Equal '1' Move 'Casado' To DCivil. If Oclia01-Civ Equal '2' And Oclia01-Sex Equal '1' Move 'Casada' To DCivil. If Oclia01-Civ Equal '3' And Oclia01-Sex Equal '1' Move 'Divorciado' To DCivil. If Oclia01-Civ Equal '3' And Oclia01-Sex Equal '1' Move 'Divorciado' To DCivil. If Oclia01-Civ Equal '4' And Oclia01-Sex Equal '1' Move 'Viudo' To DCivil. If Oclia01-Civ Equal '4' And Oclia01-Sex Equal '1' Move 'Viuda' To DCivil. If Oclia01-Civ Equal '4' Move 'Conviviente' To DCivil. Move Oclia01-Fna To Fechao. Move Anoo To Ano. Move Meso To Mes. Move Diao To Dia. Move Fechas To DNacimiento. MOve Detalle-020d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. * Perform Imprime-Detalle-002 Thru * Exit-Imprime-Detalle-002. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-021d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. If Oclia01-Te1 Not Equal Space MOve Oclia01-Te1 To DFijo Else Move Oclia01-Te2 To DFijo. If Oclia01-Te3 Not Equal Space MOve Oclia01-Te3 To DCelular Else Move Oclia01-Te4 To DCelular. Perform Pone-Email Thru Exit-Pone-Email. Perform Pone-Ocupacion Thru Exit-Pone-Ocupacion. MOve Detalle-022d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-023d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move Oclia01-Dom To DDomicilioc. Perform Pone-Numeracion Thru Exit-Pone-Numeracion. Perform Pone-Distrito Thru Exit-Pone-Distrito. Perform Pone-Provincia Thru Exit-Pone-Provincia. MOve Detalle-024d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-025d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Pone-Departamento Thru Exit-Pone-Departamento. MOve Detalle-026d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME CONDICIONES DE INGRESO Y PERMANENCIA DEL SEGURO * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'CONDICIONES DE INGRESO Y PERMANENCIA DEL SEGURO ' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Pone-Edad-Minima Thru Exit-Pone-Edad-Minima. Perform Pone-Edad-Maxima Thru Exit-Pone-Edad-Maxima. Perform Pone-Edad-Permanencia Thru Exit-Pone-Edad-Permanencia. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Pone-Departamento Thru Exit-Pone-Departamento. MOve Detalle-027d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. MOve Detalle-028d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. MOve Detalle-029d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME DESCRIPCION DE LAS COBERTURAS * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'COBERTURAS DEL SEGURO' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. Perform Setee-Color Thru Exit-Setee-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. MOve Detalle-030d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Imprimir-Coberturas Thru Exit-Imprimir-Coberturas. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. MOve Detalle-032d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. * * IMPRIME CLAUSULAS ADICIONALES * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'CLAUSULAS ADICIONALES' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. * * IMPRIME EXCLUSIONES O LO QUE NO CUBRE EL SEGURO * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move 'EXCLUSIONES O LO QUE NO CUBRE EL SEGURO ' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Perform Imprimir-Exclusiones Thru Exit-Imprimir-Exclusiones. Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. * * IMPRIME ¿QUÉ HACER SI SE PRESENTA UN SINIESTRO? * if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 15 To Scona54-Siz. Move 15 To Condensado. Move 0 To Scona54-Sty. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. Perform Setea-Color Thru Exit-Setea-Color. Move '¿QUÉ HACER SI SE PRESENTA UN SINIESTRO?' To Ttitulo. MOve Detalle-001d To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Perform Quita-Color Thru Exit-Quita-Color. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. RO? Perform Que-Hacer-Si Thru Exit-Que-Hacer-Si. MOve 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move 'Arial' & x"00" To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. RO? Perform Imprime-Detalle-002 Thru Exit-Imprime-Detalle-002. Go To Proceso-999. Que-Hacer-Si. *------------* Move Servidor To Que-Hacer-Dis. Move ':\SIFC\Importar\' To Que-hacer-Rut. Move 'Que-Hacer-Seguros.txt' To Que-hacer-Ext. Open Input Que-Hacer. If Estado Not Equal Zero Go To Exit-Que-Hacer-Si. Leo-Que-hacer. *-------------* Read Que-Hacer. If Estado Not Equal Zero Go To Exit-Que-Hacer-Si. Move Todo-Que-Hacer To Wr-Textos. Move 1 To r1. Perform Pones-low-Value Until r1 > 370. Move Wr-Textos To todo-Texto. MOve Detalle-033d To Print-Buffer Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Go To Leo-Que-Hacer. Exit-Que-Hacer-Si. *-----------------* Close Que-Hacer. Pones-Low-Value. *---------------* If W(R1) Equal ' ' Move Low-Value To W(r1). Add 1 To R1. Imprimir-Exclusiones. *--------------------* Move Zero To Key-Osega16. Move Osega11-Emp To Osega16-Emp. Move Osega11-Soc To Osega16-Soc. Move Osega11-Tip To Osega16-Tip. Move Osega11-Ptm To Osega16-Ptm. Move Osega11-Cam To Osega16-Cam. Move Osega11-Num To Osega16-Num. Move Osega11-Nco To Osega16-Nco. Move Osega11-Seg To Osega16-Seg. Move 09 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega16.tab. If C-Status Equal 03 Or C-Status Equal 09 Go To Exit-Imprimir-Exclusiones. If C-Status Not Equal 00 Go To Exit-Imprimir-Exclusiones. Go To Compara-Osega16. Siguiente-Osega16. *-----------------* Move 06 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega16.tab. If C-Status Equal 09 Go To Exit-Imprimir-Exclusiones. If C-Status Not Equal 00 Go To Exit-Imprimir-Exclusiones. Compara-Osega16. *---------------* If Osega11-Emp Not Equal Osega16-Emp Or Osega11-Soc Not Equal Osega16-Soc Or Osega11-Tip Not Equal Osega16-Tip Or Osega11-Ptm Not Equal Osega16-Ptm Or Osega11-Cam Not Equal Osega16-Cam Or Osega11-Num Not Equal Osega16-Num Or Osega11-Nco Not Equal Osega16-Nco Or Osega11-Seg Not Equal Osega16-Seg Go To Exit-Imprimir-Exclusiones. Move Zero To Key-Osega13. Move Osega16-Emp To Osega13-Emp. Move Osega16-Soc To Osega13-Soc. Move Osega16-Tip To Osega13-Tip. Move Osega16-Ptm To Osega13-Ptm. Move Osega16-Cam To Osega13-Cam. Move Osega14-Num To Osega13-Num. Move Osega16-Nco To Osega13-Nco. Move Osega16-Seg To Osega13-Seg. Move Osega16-Cob To Osega13-Cob. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega13.tab. If C-Status Equal 03 Or C-Status Equal 09 Move Key-Osega13 To Osega13-Des Move Zero To C-Status. If C-Status Not Equal 00 Go To Exit-Imprimir-Exclusiones. Move Osega13-des To Ws-Cobertura. Move 1 To R2. Perform Pone-Low-Value Until R2 > 50. Move Osega16-Exc To Texto-Imprimir1. Move Space To Textos-Imprimir1. Move Space To Lineas-Imprimir1. Move 1 To xx. Move Zero To yy. Move Zero To zz. Move Zero To R3. *> Controla caractes ^ = Blancos Move 130 To Tope-x. Move 130 To Tope. Move 130 To Topes. Perform Suprime-Blancos1 Thru Exit-Suprime-Blancos1 Until xx > 3500. Perform Justifico-Textos1 Thru Exit-Sustifico-Textos1 Compute Tope = (Ws-Limite / Topes) + 1 Move 1 To xx. Perform Imprime-Textos1 Thru Exit-Imprime-Textos1 Until xx > Tope. Go To Siguiente-Osega16. Exit-Imprimir-Exclusiones. *-------------------------* Exit. Imprimir-Coberturas. *-------------------* Move 78 To Tope-x. Move 78 To Topes. Move Zero To Key-Osega14. Move Osega11-Emp To Osega14-Emp. Move Osega11-Soc To Osega14-Soc. Move Osega11-Tip To Osega14-Tip. Move Osega11-Ptm To Osega14-Ptm. Move Osega11-Cam To Osega14-Cam. Move Osega11-Num To Osega14-Num. Move Osega11-Nco To Osega14-Nco. Move Osega11-Seg To Osega14-Seg. Move 09 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega14.tab. If C-Status Equal 03 Or C-Status Equal 09 Go To Exit-Imprimir-Coberturas. If C-Status Not Equal 00 Go To Exit-Imprimir-Coberturas. Go To Compara-Osega14. Siguiente-Osega14. *-----------------* Move 06 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega14.tab. If C-Status Equal 09 Go To Exit-Imprimir-Coberturas. If C-Status Not Equal 00 Go To Exit-Imprimir-Coberturas. Compara-Osega14. *---------------* If Osega11-Emp Not Equal Osega14-Emp Or Osega11-Soc Not Equal Osega14-Soc Or Osega11-Tip Not Equal Osega14-Tip Or Osega11-Ptm Not Equal Osega14-Ptm Or Osega11-Cam Not Equal Osega14-Cam Or Osega11-Num Not Equal Osega14-Num Or Osega11-Nco Not Equal Osega14-Nco Or Osega11-Seg Not Equal Osega14-Seg Go To Exit-Imprimir-Coberturas. Move Zero To Key-Osega13. Move Osega14-Emp To Osega13-Emp. Move Osega14-Soc To Osega13-Soc. Move Osega14-Tip To Osega13-Tip. Move Osega14-Ptm To Osega13-Ptm. Move Osega14-Cam To Osega13-Cam. Move Osega14-Num To Osega13-Num. Move Osega14-Nco To Osega13-Nco. Move Osega14-Seg To Osega13-Seg. Move Osega14-Cob To Osega13-Cob. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega13.tab. If C-Status Equal 03 Or C-Status Equal 09 Move Key-Osega13 To Osega13-Des Move Zero To C-Status. If C-Status Not Equal 00 Go To Exit-Imprimir-Coberturas. Move Osega13-des To Ws-Cobertura. Move 1 To R2. Perform Pone-Low-Value Until R2 > 50. Move Ws-Cobertura To DNomCobertura. Move Osega14-Exp To Texto-Imprimir. Move Space To Textos-Imprimir. Move Space To Lineas-Imprimir. Move 1 To xx. Move Zero To yy. Move Zero To zz. Move Zero To R3. *> Controla caractes ^ = Blancos Move 78 To Tope-x. Move 78 To Tope. Move 78 To Topes. Perform Suprime-Blancos Thru Exit-Suprime-Blancos Until xx > 3500. Perform Justifico-Textos Thru Exit-Sustifico-Textos. Compute Tope = (Ws-Limite / Topes) + 1 Move 1 To xx. Perform Imprime-Textos Thru Exit-Imprime-Textos Until xx > Tope. Go To Siguiente-Osega14. Exit-Imprimir-Coberturas. *------------------------* Exit. ****************************** * Justificacion Lineas de 78 caracteres ****************************** Low-Value-Textos1. *-----------------* If Lin-Or1(yy) Equal ' ' Move low-value To Lin-Or1(yy). Exit-Low-Value-textos1. *----------------------* Add 1 To yy. Imprime-Textos1. *---------------* * If Lin-O(xx) Equal Space * Move 200 To xx * Go To Exit-Imprime-Textos. * Move 1 To yy. * Perform Low-Value-Textos Thru * Exit-Low-Value-textos Until yy > 3500. * Move Lin-O1(xx) To Todo-Texto. MOve Detalle-033d To Print-Buffer Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Exit-Imprime-Textos1. *--------------------* Add 1 To xx. Justifico-Textos1. *-----------------* Move Space To Texto-Imprimir1. Move 1 To XX. Move Zero To YY. Move Zero To zz. Move Zero To ww. Move Zero To R2. Perform Justifica-Textos1 Thru Exit-Justifica-Textos1 Until xx > 3500. Close Pista. Move Texto-Imprimir1 To Lineas-Imprimir1. Exit-Sustifico-Textos1. *----------------------* Exit. Justifica-Textos1. *-----------------* If Tex-O1(xx) Equal ' ' and Tex-O1(xx + 1) Equal ' ' Go To Exit-Justifica-Textos1. If Tex-O1(xx) Equal '|' Add 1 To R2 Move Tope To yy Compute yy = Topes * R2 Compute Tope = yy + Topes * Move R2 To YY * Compute YY = YY - 1 * Add Tope To R2 * Move ' ' To Tex-O(xx) Go To Exit-Justifica-Textos1. If Tex-O1(xx) Not Equal ' ' Go To Sigo-Justifica-Textos1. Move xx To zz. Add 1 To zz. Move Zero To ww. Perform Cuento-Caracteres1 Thru Exit-Cuento-Caracteres1 Until zz > 3500. Compute QQ = yy + ww. If QQ < Tope Or QQ Equal Tope Go To Sigo-Justifica-Textos1. Add 1 To R2. If R2 = 1 Move Topes To yy Compute Tope = Tope * 2 Go To Sigo-Justifica-Textos1. Move Tope To yy. Compute yy = Topes * R2. Compute Tope = yy + Topes. Sigo-Justifica-Textos1. *---------------------* * If YY > 3500 * Move 8000 To xx * Go To Exit-Justifica-Textos. If Tex-o1(xx) Equal '^' Move '^' To Tex-O(xx). Add 1 To YY. Move yy To Ws-Limite. Move Tex-O1(xx) To Tex-I1(yy). Exit-Justifica-Textos1. *---------------------* Add 1 To xx. Cuento-Caracteres1. *------------------* If Tex-O1(zz) Equal ' ' Move 60000 To zz Go To Exit-Cuento-Caracteres1. Add 1 To ww. Exit-Cuento-Caracteres1. *-----------------------* Add 1 To ZZ. Suprime-Blancos1. *> Suprime blancos de mas entre palabras *----------------* If Tex-I1(xx) Equal x'0D' *> viene del texto Go To Exit-Suprime-Blancos1. *> copiado de Word If Tex-I1(xx) Equal x'0A' *> viene del texto Go To Exit-Suprime-Blancos1. *> copiado de Word If Tex-I1(xx) Equal x'2E' *> viene del texto Move '.' To Tex-I1(xx).*> copiado de Word If Tex-I1(xx) Equal x'09' *> viene del texto Move ' ' To Tex-I1(xx).*> copiado de Word If Tex-I1(xx) Equal ' ' And Tex-I1(xx + 1) Equal ' ' Go To Exit-Suprime-Blancos1. Add 1 To YY. Move Tex-I1(xx) To Tex-o1(yy). Exit-Suprime-Blancos1. *---------------------* Add 1 To xx. ****************************** * Fin Justificacion Lineas de 130 caracteres ****************************** ****************************** * Justificacion Lineas de 78 caracteres ****************************** Low-Value-Textos. *----------------* If Lin-Or(yy) Equal ' ' Move low-value To Lin-Or(yy). Exit-Low-Value-textos. *---------------------* Add 1 To yy. Pone-Low-Value. *--------------* If Co(r2) Equal ' ' Move low-value To Co(R2). Add 1 To R2. Imprime-Textos. *--------------* * If Lin-O(xx) Equal Space * Move 200 To xx * Go To Exit-Imprime-Textos. * Move 1 To yy. * Perform Low-Value-Textos Thru * Exit-Low-Value-textos Until yy > 3500. * If xx Equal 1 Move Lin-O(xx) To DDesCobertura MOve Detalle-031d To Print-Buffer Move 370 To print-buffer-len Else Move Lin-O(xx) To DDesCobertura1 MOve Detalle-031d2 To Print-Buffer Move 370 To print-buffer-len. Perform Imprime-Linea Thru Exit-Imprime-Linea. Move Low-value To DNomCobertura. Exit-Imprime-Textos. *-------------------* Add 1 To xx. Justifico-Textos. *----------------* * Move Servidor To Pista-Dis. * Move ':\SIFC\Exportar\' * To Pista-Rut. * Move 'Osegr02a.txt' To Pista-Seg. * Open Output Pista. Move Space To Texto-Imprimir. Move 1 To XX. Move Zero To YY. Move Zero To zz. Move Zero To ww. Move Zero To R2. Perform Justifica-Textos Thru Exit-Justifica-Textos Until xx > 3500. Close Pista. Move Texto-Imprimir To Lineas-Imprimir. Exit-Sustifico-Textos. *---------------------* Exit. Justifica-Textos. *----------------* If Tex-O(xx) Equal ' ' and Tex-O(xx + 1) Equal ' ' Go To Exit-Justifica-Textos. If Tex-O(xx) Equal '|' Add 1 To R2 Move Tope To yy Compute yy = Topes * R2 Compute Tope = yy + Topes * Move R2 To YY * Compute YY = YY - 1 * Add Tope To R2 * Move ' ' To Tex-O(xx) Go To Exit-Justifica-Textos. If Tex-O(xx) Not Equal ' ' Go To Sigo-Justifica-Textos. Move xx To zz. Add 1 To zz. Move Zero To ww. Perform Cuento-Caracteres Thru Exit-Cuento-Caracteres Until zz > 3500. Compute QQ = yy + ww. If QQ < Tope Or QQ Equal Tope Go To Sigo-Justifica-Textos. Add 1 To R2. If R2 = 1 Move Topes To yy Compute Tope = Tope * 2 Go To Sigo-Justifica-Textos. Move Tope To yy. Compute yy = Topes * R2. Compute Tope = yy + Topes. Sigo-Justifica-Textos. *---------------------* * If YY > 3500 * Move 8000 To xx * Go To Exit-Justifica-Textos. If Tex-o(xx) Equal '^' Move '^' To Tex-O(xx). Add 1 To YY. Move yy To Ws-Limite. Move Tex-O(xx) To Tex-I(yy). Exit-Justifica-Textos. *---------------------* Add 1 To xx. Cuento-Caracteres. *-----------------* If Tex-O(zz) Equal ' ' Move 60000 To zz Go To Exit-Cuento-Caracteres. Add 1 To ww. Exit-Cuento-Caracteres. *----------------------* Add 1 To ZZ. Suprime-Blancos. *> Suprime blancos de mas entre palabras *---------------* If Tex-I(xx) Equal x'0D' *> viene del texto Go To Exit-Suprime-Blancos. *> copiado de Word If Tex-I(xx) Equal x'0A' *> viene del texto Go To Exit-Suprime-Blancos. *> copiado de Word If Tex-I(xx) Equal x'2E' *> viene del texto Move '.' To Tex-I1(xx).*> copiado de Word If Tex-I(xx) Equal x'09' *> viene del texto Move ' ' To Tex-I1(xx).*> copiado de Word If Tex-I(xx) Equal ' ' And Tex-I(xx + 1) Equal ' ' Go To Exit-Suprime-Blancos. Add 1 To YY. Move Tex-I(xx) To Tex-o(yy). Exit-Suprime-Blancos. *--------------------* Add 1 To xx. ****************************** * Fin Justificacion lineas de 78 caractere ****************************** Pone-Edad-Permanencia. *---------------------* Move Osega11-Epe To DEdadPermanencia. Exit-Pone-Edad-Permanencia. *--------------------------* Exir. Pone-Edad-Maxima. *----------------* Move Osega11-Ema To DEdadMaxima. Exit-Pone-Edad-Maxima. *---------------------* Exit. Pone-Edad-Minima. *----------------* Move Osega11-Emi To DEdadMinima. Exit-Pone-Edad-Minima. *---------------------* Exit. Pone-Distrito. *-------------* Move Zero To Key-Oclia18. Move Oclia01-Emp To Oclia18-Emp. Move Oclia01-Dpt To Oclia18-Dpt. Move Oclia01-Prov To Oclia18-Pro. Move Oclia01-Pos To Oclia18-Dis. Move Space To Oclia18-Nom. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia18.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. Move Oclia18-Nom To DDistritoc. Exit-Pone-Distrito. *------------------* Exit. Pone-Provincia. *--------------* Move Zero To Key-Oclia18. Move Oclia01-Emp To Oclia18-Emp. Move Oclia01-Dpt To Oclia18-Dpt. Move Oclia01-Prov To Oclia18-Pro. Move Space To Oclia18-Nom. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia18.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. Move Oclia18-Nom To DProvinciac. Exit-Pone-Provincia. *-------------------* Exit. Pone-Departamento. *-----------------* Move Zero To Key-Oclia18. Move Oclia01-Emp To Oclia18-Emp. Move Oclia01-Dpt To Oclia18-Dpt. Move Space To Oclia18-Nom. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia18.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. Move Oclia18-Nom To DDepartamentoc. Exit-Pone-Departamento. *----------------------* Exit. Pone-Numeracion. *---------------* Move Space To Ws-Numeracion. If Oclia01-Nur Equal Space Go To Pone-manzana-Lote. Move Oclia01-Nur To Texto-Num1. If Oclia01-Int Not Equal Space Move ' Int.' To Texto-Num2 Move Oclia01-Int To Texto-Num3. Go To Sigo-Pone-Numeracion. Pone-manzana-Lote. *-----------------* Move Oclia01-Mza To Texto-Num1. If Oclia01-Lot Not Equal Space Move ' Lote' To Texto-Num2 Move Oclia01-Lot To Texto-Num3. Sigo-Pone-Numeracion. *--------------------* if Ws-Numeracion Equal Space Move Ws-Blancos To Ws-Numeracion. Move Ws-Numeracion To DNumeroc. Exit-Pone-Numeracion. *--------------------* Exit. Pone-Ocupacion. *--------------* Move Oclia01-Emp To Oclia07-Emp. Move Oclia01-Ciu To Oclia07-Ciu. Move Ws-Blancos To Oclia07-Nom. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia07.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. Move Oclia07-Nom To DOcupacion. Exit-Pone-Ocupacion. *-------------------* Exit. Pone-eMail. *----------* Move Oclia01-Emp To Oclia107-Emp. Move Oclia01-Soc To Oclia107-Soc. Move Ws-Blancos To Oclia107-Mai. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia107.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. If Oclia107-Mai Equal Space Move Ws-Blancos To DEmail Else Move Oclia107-mai To DEmail. Exit-Pone-eMail. *---------------* Exit. Pone-Tipo-Identidad. *-------------------* Move Oclia01-Emp To Oclia12-Emp. Move Oclia01-Per To Oclia12-Tip. Move 05 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 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. If Oclia01-Doi Not Equal Space MOve Oclia01-Doi To Ws-Datos Else MOve Oclia01-Dot To Ws-Datos. Move Ws-Datos To DTipoDoc. Move 1 To R1. perform Busca-Tipo-Documento Thru Exit-Busca-Tipo-Documento Until R1 > 15. Exit-Pone-Tipo-Identidad. *------------------------* Exit. Busca-Tipo-Documento. *--------------------* If Oclia01-Doi Not Equal Space Go To Compara-Identidad. If Oclia01-Dot Equal Oclia12-Tdo(r1) Move Oclia12-Des(R1) To DTipoDoc Move 30 To R1. Go To Exit-Busca-Tipo-Documento. Compara-Identidad. *-----------------* If Oclia01-Doi Equal Oclia12-Tdo(r1) Move Oclia12-Des(R1) To DTipoDoc Move 30 To R1. Exit-Busca-Tipo-Documento. *-------------------------* Add 1 To R1. Pone-Nacionalidad. *-----------------* Move Oclia01-Emp To Oclia15-Emp. Move Oclia01-Pai To Oclia15-Pai. Move Space To Oclia15-Nom. Move 05 To Operaciones. Move 0 To Numero-Key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Oclia15.tab. If C-Status Equal 03 Or C-Status Equal 04 Move Zero To C-Status. If C-Status Not Equal 00 Move Zero To C-Status. Move Oclia15-Nom To DNacionalidad. Exit-Pone-Nacionalidad. *----------------------* Exit. Pone-Plazo. *----------* Move Space To Texto-Plazo. Compute AA = Ocrea38-Per * (Ocrea38-Cuo - 1). Add Ocrea38-Ini To AA. Compute BB = AA / 30.4. Compute C1 = BB * 30.4. if CC Not Equal BB Add 1 To BB. If BB > 12 Or BB = 12 Compute C1 = BB / 12 Move C1 To AAAA Perform Pone-AAAA Compute C1 = C1 * 12 Compute C1 Rounded = C1 * 30 Compute BB = AA - C1. If BB > 30 Or BB = 30 Compute C1 = BB / 30 Move C1 To MMM Move ' Meses' To Texto-MMM Compute C1 = CC * 30 Compute BB = BB - CC. If BB > Zero Move BB To DDD Move ' Dias' To Texto-DDD. Exit-Pone-Plazo. *---------------* Exit. Pone-AAAA. *********** If C1 > 1 Move ' Años' To Texto-AAAA Else Move ' Año ' To Texto-AAAA. Imprime-Linea. *-------------* if Sw-Titulos Equal 1 Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move print-buffer To Linea-imprimir Move 2 To Print-Command call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code Perform Logo-Todos Thru Exit-Logo-Todos MOve 10 To Linear Perform Imprime-Titulo Thru Exit-Imprime-Titulo Move Scona54-Lonz To Scona54-Lon Move Scona54-Nomz To Scona54-Nom Move Scona54-Sizz To Scona54-Siz Move Scona54-Styz To Scona54-Sty Move Scona54-Lon To Name-Len Move Scona54-Nom To NAME-NAM Move Scona54-Siz To font-size Move Scona54-Sty To font-style Move Linea-Imprimir To Print-Buffer Move Zero To Sw-Titulos. call "PC_PRINTER_SET_FONT" using pc-handle-pr By Reference font-family by value font-size by value font-style returning pc-reply. if Pc-Reply not = 0 move "PC_PRINTER_SET_FONT" to Operation Move 'Set Fonts ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Go To Exit-Imprime-Linea. call "PC_PRINTER_WRITE" using PC-HANDLE-PR print-buffer by value print-buffer-len returning status-code. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. * Move 3 To Print-Command. * call "PC_PRINTER_CONTROL" using PC-HANDLE-PR * by value print-command * returning status-code. Add 1 To Linear. If Linear > Overflow-por-pagina move 1 To Sw-Titulos. Exit-Imprime-Linea. *------------------* Exit. Imprimo-Linea. *-------------* call "PC_PRINTER_SET_FONT" using pc-handle-pr By Reference font-family by value font-size by value font-style returning pc-reply. if Pc-Reply not = 0 move "PC_PRINTER_SET_FONT" to Operation Move 'Set Fonts ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Go To Exit-Imprimo-Linea. call "PC_PRINTER_WRITE" using PC-HANDLE-PR print-buffer by value print-buffer-len returning status-code. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. * Move 3 To Print-Command. * call "PC_PRINTER_CONTROL" using PC-HANDLE-PR * by value print-command * returning status-code. Add 1 To Linear. Exit-Imprimo-Linea. *------------------* Exit. Quita-Color. *-----------* Move 255 To Color-Red. Move 255 To Color-Green. Move 255 To Color-Blue. Move 2 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Move 0 To Color-Red. Move 0 To Color-Green. Move 0 To Color-Blue. Move 1 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Exit-Quita-Color. *----------------* Exit. Setea-Color. *-----------* Move 0 To Color-Red. Move 0 To Color-Green. Move 128 To Color-Blue. Move 2 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Move 255 To Color-Red. Move 255 To Color-Green. Move 255 To Color-Blue. Move 1 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Exit-Setea-Color. *----------------* Exit. Seteo-Color. *-----------* Move 0 To Color-Red. Move 0 To Color-Green. Move 128 To Color-Blue. Move 1 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Move 255 To Color-Red. Move 255 To Color-Green. Move 255 To Color-Blue. Move 2 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Exit-Seteo-Color. *----------------* Exit. Setee-Color. *-----------* Move 156 To Color-Red. Move 156 To Color-Green. Move 156 To Color-Blue. Move 2 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Move 0 To Color-Red. Move 0 To Color-Green. Move 0 To Color-Blue. Move 1 To fore-or-back. call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR by value fore-or-back by value color-red by value color-green by value color-blue returning status-code. Exit-Setee-Color. *----------------* Exit. Imprime-DEtalle-002. *-------------------* Move Scona54-Lon To Scona54-Lonz Move Scona54-Nom To Scona54-Nomz Move Scona54-Siz To Scona54-Sizz Move Scona54-Sty To Scona54-Styz Move 'Arial' & x"00" To Scona54-Nom. Move 6 To Scona54-Lon. Move 10 To Scona54-Siz. Move 10 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move Scona54-Nom To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. MOve Detalle-002 To Print-Buffer. *> raya continua Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Move Scona54-Lonz To Scona54-Lon. Move Scona54-Nomz To Scona54-Nom. Move Scona54-Sizz To Scona54-Siz. Move Scona54-Styz To Scona54-Sty. Exit-Imprime-DEtalle-002. *------------------------* Exit. Imprime-Nombre-Coberturas. *-------------------------* If Cob-TO(xx) Equal Space Move 20 To xx Go To Exit-Imprime-Nombre-Coberturas. Move Cob-To(xx) To DEventos3. MOve Detalle-004-3 To Print-Buffer. Move 370 To print-buffer-len Perform Imprime-Linea Thru Exit-Imprime-Linea. Exit-Imprime-Nombre-Coberturas. *------------------------------* Add 1 To xx. Arma-Nombres-Coberturas. *-----------------------* Move Space To Tabla-Coberturas. Move Space To Tabla-Coberturas-O. Move Zero To XX. Move Zero To Key-Osega13. Move Osega11-Emp To Osega13-Emp. Move Osega11-Soc To Osega13-Soc. Move Osega11-Tip To Osega13-Tip. Move Osega11-Ptm To Osega13-Ptm. Move Osega11-Cam To Osega13-Cam. Move Osega11-Num To Osega13-Num. Move Osega11-Nco To Osega13-Nco. Move Osega11-Seg To Osega13-Seg. Move 09 To Operaciones. Move 0 To Numero-key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega13.tab. If C-Status Equal 03 Or C-Status Equal 09 Go To Exit-Arma-Nombres-Coberturas. If C-Status Not Equal 00 Go To Exit-Arma-Nombres-Coberturas. Go To Compara-Osega13. Siguiente-Osega13. *-----------------* Move 06 To Operaciones. Move 0 To Numero-key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Osega13.tab. If C-Status Equal 09 Go To Exit-Arma-Nombres-Coberturas. If C-Status Not Equal 00 Go To Exit-Arma-Nombres-Coberturas. Compara-Osega13. *---------------* If Osega11-Emp Not Equal Osega13-Emp Or Osega11-Soc Not Equal Osega13-Soc Or Osega11-Tip Not Equal Osega13-Tip Or Osega11-Ptm Not Equal Osega13-Ptm Or Osega11-Cam Not Equal Osega13-Cam Or Osega11-Num Not Equal Osega13-Num Or Osega11-Nco Not Equal Osega13-Nco Or Osega11-Seg Not Equal Osega13-Seg Go To Exit-Arma-Nombres-Coberturas. Add 1 To xx. If xx > 10 Go To Exit-Arma-Nombres-Coberturas. Move Osega13-Des To Cob-T(xx). Move '^' To Cob-F(xx). Go To Siguiente-Osega13. Exit-Arma-Nombres-Coberturas. *----------------------------* If FinTransaccion Equal Zero Perform Arma-Coberturas-Nombre Thru Exit-Arma-Coberturas-Nombre. Arma-Coberturas-Nombre. *----------------------* Move 1 To XX. Move Zero To YY. Move Zero To zz. Perform Mueve-Coberturas-Nombres Thru Exit-Mueve-Coberturas-Nombres Until xx > 38550. Perform Justif-Nombre-Coberturas Thru Exit-Justif-Nombre-Coberturas. Exit-Arma-Coberturas-Nombre. *---------------------------* Exit. Justif-Nombre-Coberturas. *------------------------* Move Space To Tabla-Coberturas-J. Move 1 To XX. Move Zero To YY. Move Zero To zz. Move Zero To ww. Move 98 To R2. Perform Justifica-Cobertura Thru Exit-Justifica-Cobertura Until xx > 38550. Move Tabla-Coberturas-J To Tabla-Coberturas-O. Exit-Justif-Nombre-Coberturas. *-----------------------------* Exit. Justifica-Cobertura. *-------------------* If Cob-O(xx) Equal ' ' and Cob-O(xx + 1) Equal ' ' Go To Exit-Justifica-Cobertura. If Cob-O(xx) Not Equal ' ' * And * Cob-O(xx + 1) Not Equal ' ' Go To Sigo-Justifica-Cobertura. Move xx To zz. Add 1 To zz. Move Zero To ww. Perform Cuenta-Caracteres Thru Exit-Cuenta-Caracteres Until zz > 38550. Compute QQ = yy + ww. If QQ < R2 Or QQ Equal R2 Go To Sigo-Justifica-Cobertura. Move R2 To YY. Compute YY = YY - 1. Add 98 To R2. Sigo-Justifica-Cobertura. *------------------------* Add 1 To YY. Move Cob-O(xx) To Cob-J(yy). Exit-Justifica-Cobertura. *------------------------* Add 1 To xx. Cuenta-Caracteres. *-----------------* If Cob-O(zz) Equal ' ' Or Cob-O(zz + 1) Equal '^' Move 60000 To zz Go To Exit-Cuenta-Caracteres. Add 1 To ww. Exit-Cuenta-Caracteres. *----------------------* Add 1 To ZZ. Mueve-Coberturas-Nombres. *------------------------* If Cob-i(xx) Equal ' ' And Cob-I(xx + 1) Equal ' ' * And * Cob-I(xx + 2) Equal ' ' And * Cob-I(xx + 3) Equal ' ' Go To Exit-Mueve-Coberturas-Nombres. If Cob-i(xx) Equal ' ' And Cob-I(xx + 1) Equal '^' * And * Cob-I(xx + 2) Equal ' ' And * Cob-I(xx + 3) Equal ' ' Go To Exit-Mueve-Coberturas-Nombres. If Cob-i(xx) Equal '^' And Cob-I(XX + 1) Not Equal ' ' Add 1 To yy Move ',' To Cob-O(yy) Add 1 To yy Move ' ' To Cob-O(yy) Go To Exit-Mueve-Coberturas-Nombres. If Cob-i(xx) Equal '^' And Cob-I(XX + 1) Equal ' ' Move 60000 To xx Go To Exit-Mueve-Coberturas-Nombres. Add 1 To YY. Move Cob-I(xx) To Cob-o(yy). Exit-Mueve-Coberturas-Nombres. *-----------------------------* Add 1 To xx. Imprime-Titulo. *--------------* Move 'Arial ' To Scona54-Nom. Move 5 To Scona54-Lon. Move 13 To Scona54-Siz. Move 13 To Condensado. Move 0 To Scona54-Sty. Move Scona54-Lon To Name-Len. Move Scona54-Nom To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. * MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. * MOVE SCONA54-STY TO FONT-STYLE. MOve Titulo-001 To Print-Buffer. Move 129 To print-buffer-len Move 1 To fore-or-back. Perform Seteo-Color Thru Exit-Seteo-Color. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. MOve Titulo-002 To Print-Buffer. Move 129 To print-buffer-len Move 1 To fore-or-back. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. MOve Titulo-003 To Print-Buffer. Move 129 To print-buffer-len Perform Imprimo-Linea Thru Exit-Imprimo-Linea. If Sw-Titulos Equal 1 Perform Quita-Color Thru Exit-Quita-Color Go To Exit-Imprime-Titulo. Move Titulo-004 To Print-Buffer. Move 129 To print-buffer-len * Move 0 To Color-Red. * Move 0 To Color-Green. * Move 0 To Color-Blue. * call "PC_PRINTER_SET_COLOR" using PC-HANDLE-PR * by value fore-or-back * by value color-red * by value color-green * by value color-blue * returning status-code. Perform Quita-Color Thru Exit-Quita-Color. MOVE 9 TO FONT-SIZE. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. Exit-Imprime-Titulo. *-------------------* Exit. Logo-Todos. *----------* Move 'certificado-seguros.bmp' To Ws-Busca. Call 'exist' Using Ws-Busca, Retorno. * If Retorno Not Equal Zero * Go To Exit-Logo-Todos. If Retorno Not Equal Zero Go To Sigo-Logo-Todos. * Move 1 To Sw-Logo. call "PC_PRINTER_LOAD_BMP" using PC-HANDLE-PR * by reference "certificado-seguros.bmp" & x"0" by reference "logo.bmp" & x"0" by reference bmp-id returning status-code. Imprime-Logo. *------------* * bmp-width = largo * bmp-height = ancho Move 15 To bmp-width Move 02 To bmp-height Move 02 To bmp-col. Move 01 To bmp-row. call "PC_PRINTER_WRITE_BMP" using PC-HANDLE-PR by value bmp-id by value reserved by value bmp-row by value bmp-col by value bmp-width by value bmp-height returning status-code. * Move 4 To Print-Command. * call "PC_PRINTER_CONTROL" using PC-HANDLE-PR * by value print-command * returning status-code. call "PC_PRINTER_FREE_BMP" using PC-HANDLE-PR by value bmp-id. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. Move 4 To Print-Command. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR by value print-command returning status-code. Sigo-Logo-Todos. *---------------* Perform Quita-Color Thru Exit-Quita-Color. Move 'Arial Narrow' & x"00" To Scona54-Nom. Move 13 To Scona54-Lon. MOVE 7 TO Scona54-Siz. MOVE 0 TO Scona54-Sty. Move 370 To print-buffer-len Move Scona54-Lon To Name-Len. Move Scona54-Nom To NAME-NAM. Move Scona54-Siz To font-size. Move Scona54-Sty To font-style. MOve Linea-001 To Print-Buffer. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. MOve Linea-002 To Print-Buffer. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. MOve Linea-003 To Print-Buffer. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. MOve Linea-004 To Print-Buffer. Perform Imprimo-Linea Thru Exit-Imprimo-Linea. Exit-Logo-Todos. *---------------* Exit. Proceso-999. *-----------* If Sw-Open-Printer Equal 1 Perform Close-Printer tHRU Exit-Close-Printer Move Longitud-Linea To Ws-Orientacion Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Move Zero To Sw-Duplex Perform Graba-Errores Move Zero To FinTransaccion Move Zero To Sw-Open-Printer. Copy \SIFCNet\Copys\Graba-Smena04-02.Cpy. EXIT PROGRAM. ****************************************************************** If Orientacion Not Equal Ws-Orientacion And Sw-Open-Printer Equal 1 Perform Close-Printer tHRU Exit-Close-Printer Move Longitud-Linea To Ws-Orientacion Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Move Zero To Sw-Duplex Perform Graba-Errores Move Zero To FinTransaccion Move Zero To Sw-Open-Printer. Move Space To Linea-Duplex. If Control-Carro Not Equal 98 And Duplex Equal 'S' Perform Busca-Duplex Thru Exit-Busca-Duplex. If Linea-Duplex Equal 'DUULEX}' And Duplex Equal 'S' And Sw-Open-Printer Equal 1 Perform Close-Printer tHRU Exit-Close-Printer Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Perform Graba-Errores Move Zero To FinTransaccion Move Zero To Sw-Open-Printer Move 1 To Sw-Duplex Move 'S' To Duplex. * Exit Program. * If Linea-Duplex Equal 'FINDUULEX}' And If Duplex Equal 'X' * Sw-Open-Printer Equal 1 Perform Call-Default-Properties-N * * Perform Close-Printer tHRU * Exit-Close-Printer * Move 'Paso No. ' To M-Error * Move 40 To M-Code * Move Space To M-Texto * Perform Graba-Errores * Move Zero To FinTransaccion * Move Zero To Sw-Open-Printer * Move 0 To Sw-Duplex * Move 'X' To Duplex Exit Program. If Linea-Duplex Equal '{FINDUULEX}' And Duplex Equal 'S' And Sw-Open-Printer Equal 1 Perform Close-Printer tHRU Exit-Close-Printer Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Perform Graba-Errores Move Zero To FinTransaccion Move Zero To Sw-Open-Printer Move 0 To Sw-Duplex Move 'X' To Duplex Exit Program. Move 'Paso No. ' To M-Error. Move 1 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Control-Carro Equal 98 Perform Close-Printer tHRU Exit-Close-Printer Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Perform Graba-Errores Move Zero To Sw-Duplex Move Zero To FinTransaccion. If Control-Carro Equal 95 Perform Close-Printers tHRU Exit-Close-Printers Move 'Paso No. ' To M-Error Move 40 To M-Code Move Space To M-Texto Perform Graba-Errores Move Zero To Sw-Duplex Move Zero To FinTransaccion. If Control-Carro Equal 98 and Fintransaccion Equal zero Move 'Paso No. ' To M-Error Move 41 To M-Code Move Space To M-Texto Move Zero To Sw-Duplex Perform Graba-Errores Move Zero to Sw-Open-Printer Exit Program. If Control-Carro Equal 98 and Fintransaccion Not Equal zero Exit Program. Move 'Paso No. ' To M-Error. Move 2 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Sw-Open-Printer Equal Zero Perform Open-Printer Thru Exit-Open-Printer Perform Leo-Scona43 Thru Exit-Leo-Scona43 Perform Logo-Todos Thru Exit-Logo-Todos MOVE 4 TO PRINT-COMMAND. If Fintransaccion Not Equal Zero Exit Program. * If Scona06-Imp Equal '5' Or * Scona06-Imp Equal '6' * Move 'Arial Rounded MT Bold' To Tipo-Font * Move 21 To Tamano-Font * Move 'Arial Rounded MT Bold' To Scona54-Nom * Move 21 To Scona54-Lon. If Scona54-Fla Equal 1 Or Scona54-Fla Equal 16 Or Scona54-Fla Equal 17 Move Scona54-Siz To Tamano-Font Move Scona54-Sty To Estilo-Font Move Scona54-Nom To Tipo-Font. Move 'Paso No. ' To M-Error. Move 3 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Control-Carro Equal 97 Perform Printer-Pagina. Move 'Paso No. ' To M-Error. Move 4 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Perform Print-Text Thru Exit-Print-Text. Exit Program. Leo-Scona43. *-----------* Move Numemp To Scona43-Emp. Move 05 To Operaciones. Move 0 To Numero-key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Scona43.tab. If C-Status Not Equal 00 Move Zero To Scona43-Mar. Exit-Leo-Scona43. *----------------* Exit. Printer-Pagina. *--------------* Move 'Paso No. ' To M-Error. Move 5 To M-Code. Move Space To M-Texto. Perform Graba-Errores. call "PC_PRINTER_CONTROL" using PC-HANDLE-PR BY VALUE 2 returning PC-REPLY. if Pc-Reply not equal 0 move "PC_PRINTER_CONTROL" to Operation Move 'Printer Control ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Copy \sifcnet\copys\Scona54.Lo2. Arma-Titulo-Reporte. *-------------------* Move Nombre-Reporte To Nom-Reporte. Move Space To Reporte-Nombre. MOve Zero To Tope. Move 1 To gg. Move Zero To jj. Perform Quita-Blancos Thru Exit-Quita-Blancos Until gg > 200. Exit-Arma-Titulo-Reporte. *------------------------* Exit. Quita-Blancos. *-------------* If Nr(gg) Equal ' ' And Nr(gg + 1) Equal ' ' And Nr(gg + 2) Equal ' ' And Nr(gg + 3) Equal ' ' Move 300 To gg Go To Exit-Quita-Blancos. Add 1 To jj. Move jj To Tope. If Nr(gg) Equal ' ' Move '_' To Rn(jj) Else Move Nr(gg) To Rn(jj). Exit-Quita-Blancos. *------------------* Add 1 To gg. Open-Printer. *------------* MOve Servidor To Entorno-Dis. Move ':\SIFC\Externos\Entorno.txt' To Entorno-Rut. Call 'Exist' Using Ws-Entorno, Retorno. If Retorno Not Equal Zero Perform Carga-Formulario Thru Exit-Carga-Formulario Else Move 1 To Sw-Cargo-Formulario Perform Cargo-Formulario Thru Exit-Cargo-Formulario. Perform Arma-Titulo-Reporte Thru Exit-Arma-Titulo-Reporte If Tope Equal Zero Move 1 To Title-Lena Move 'A' To Title-Texta Else Move Tope To Title-Lena Move Reporte-Nombre To title-texta. Copy \sifcnet\copys\Scona54.Lo1. * If Nombre-De-Impresora Equal Space * Go To Abro-Por-Defecto. Move Scona54Est To Scona06Est. Move '4' To Scona06-Imp. Move 05 To Operaciones. Move 0 To Numero-key. Move -2 To Tipo-Acceso. Copy \SIFCNet\Copys\Scona06.Tab. If Scona06-Imp Equal '1' Go To Impresora-LPT1. * If Scona06-Imp Equal '5' * Move 'Arial Rounded MT Bold' To Tipo-Font * Move 21 To Tamano-Font. * If Scona06-Imp Equal '6' Or * Scona06-Imp Equal '7' * Move 'Courier New ' To Tipo-Font * Move 11 To Tamano-Font * Move 0 To Estilo-Font * Move 9 To Font-Size. If Tipo-Font Not Equal Space Move Tipo-Font To Scona54-Nom Move Tamano-Font To Scona54-Lon. If Estilo-Font Not Equal Zero Move Estilo-Font To Scona54-Sty Move 'Paso No. ' To M-Error. Move 6 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Move 1 To Flags. Perform Arma-Nombre-Impresora. If Sw-Cargo-Formulario Equal 1 MOve 'Impresora a usar' To Texto-Entorno Move '|' To Texto-r01 Move Nombre-Impresora To Entorno-Recibido Move '|' To Texto-r02 Write Registro-Entorno Close Entorno. Move Zero To Sw-PDFCreator. Move Printer-name To Tabla-Nombre. Move 1 To X1. Move 300 To Longitud. Call "CBL_TOUPPER" Using Tabla-Nombre By Value Longitud Returning Retornos. Perform Busca-PDFCreator Thru Exit-Busca-PDFCreator Until X1 > 300. Reabre-Printer. *--------------* Move 'Paso No. ' To M-Error. Move 7 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Sw-PDFCreator Equal 1 Go To Sigo-Reabre-Printer. Move SET-DEFAULT-PRINTER To Opcion. Call "PC_PRINTER_SET_DEFAULT" Using By Value Opcion By Reference Printer-Name returning status-code. if Status-Code Not Equal 0 move "PC_PRINTER_DEFAULT_NAME" to Operation Move 'Set Default Name' To Operacion-Impresora Move Status-Code To Retorno-Impresora Move ID-Error(Status-Code) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Move 'Paso No. ' To M-Error. Move 8 To M-Code. Move Space To M-Texto. Perform Graba-Errores. call "PC_PRINTER_DEFAULT_NAME" using by value flags by reference printer-name returning status-code. if Status-Code Not Equal 0 move "PC_PRINTER_DEFAULT_NAME" to Operation Move 'Default Name' To Operacion-Impresora Move Status-Code To Retorno-Impresora Move ID-Error(Status-Code) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Sigo-Reabre-Printer. *-------------------* If Longitud-Linea > Caracteres-Vertical MOVE 8 TO PC-FLAGS-PR ELSE MOVE 4 TO PC-FLAGS-PR. If Orientacion Equal 'H' MOVE 8 TO PC-FLAGS-PR. If Orientacion Equal 'V' MOVE 4 TO PC-FLAGS-PR. If Scona06-Imp Equal 6 Move 'H' To Orientacion MOVE 8 TO PC-FLAGS-PR. If Scona06-Imp Equal 7 MOVE 4 TO PC-FLAGS-PR. If Duplex Equal 'S' Or Sw-Duplex Equal 1 MOVE 4 TO PC-FLAGS-PR. If Duplex Equal 'S' Or Sw-Duplex Equal 1 Perform Call-Default-Properties Else Perform Call-Default-Properties. MOve Orientacion To Ws-Orientacion. Move 'Paso No. ' To M-Error. Move 9 To M-Code. Move Space To M-Texto. Perform Graba-Errores. call "PC_PRINTER_OPEN" using PC-HANDLE-PR PC-TITULO-PR BY VALUE PC-FLAGS-PR BY VALUE PC-WIN-H-PR RETURNING PC-REPLY. if Pc-Reply not = 0 move "PC_PRINTER_OPEN" to Operation Move 'Printer Open' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. if Pc-Reply = 0 Move 1 To Sw-Open-Printer end-if. Go To Exit-Open-Printer. Abro-Por-Defecto. *----------------* If Longitud-Linea > Caracteres-Vertical MOVE 8 TO PC-FLAGS-PR ELSE MOVE 4 TO PC-FLAGS-PR. Move 'Paso No. ' To M-Error. Move 10 To M-Code. Move Space To M-Texto. Perform Graba-Errores. CALL "PC_PRINTER_OPEN" USING PC-HANDLE-PR PC-TITULO-PR BY VALUE PC-FLAGS-PR BY VALUE PC-WIN-H-PR RETURNING PC-REPLY. if Pc-Reply not = 0 move "PC_PRINTER_OPEN" to Operation Move 'Printer Open' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. MOVE 1 TO SW-OPEN-Printer. MOve 'Arial' & x"00" To Scona54-Nom. Move 05 To Scona54-Lon. Move 08 To Scona54-Siz. Move 00 To Scona54-Sty. Go To Exit-Open-Printer. Impresora-LPT1. *--------------* If Sw-Open-Listado Equal 1 Go To Exit-Open-Printer. If Scona06-Imp Equal '1' Open Output Listado Move 1 To Sw-Open-Listado. If Scona06-Imp Equal '6' Open Output Listado-1 Move 1 To Sw-Open-Listado. If Longitud-Linea > 132 Move 15 To Bi-Modos Else Move 10 To Bi-Modos. perform Proceso-850 Thru Exit-Proceso-850. Exit-Open-Printer. *-----------------* Exit. Print-Text. *----------* If Scona06-Imp Equal '1' Perform Imprime-Lpt1 Thru Exit-Imprime-Lpt1 Go To Exit-Print-Text. move Longitud-Linea to Print-Buffer-Len. MOVE Linea-Impresion TO OPL-100(01). Move Print-Buffer To OPL-100(01). * MOve Space To OPL-100a(01). * MOve CRLF To OPL-100a(01). COMPUTE OPL-PRT-LARGO = Longitud-Linea + 2. * MOve 302 To OPL-PRT-LARGO MOve 602 To OPL-PRT-LARGO If Nombre-Impresora Not Equal Space perform Set-Printer-Font perform Write-To-Printer Else perform Set-Printer-Font-Defecto perform Write-To-Printer-Defecto. Move 1 To Sw-Inicio-Impresion. Exit-Print-Text. *---------------* Exit. Imprime-Lpt1. *------------* If Scona06-Imp Equal '1' And Control-Carro Equal 99 WRITE LINEA132 FROM Linea-Impresion After Page. If Scona06-Imp Equal '1' And Control-Carro Not Equal 99 WRITE LINEA132 FROM Linea-Impresion. If Scona06-Imp Equal '6' And Control-Carro Equal 99 WRITE LINEA132-1 FROM Linea-Impresion After Page. If Scona06-Imp Equal '6' And Control-Carro Not Equal 99 WRITE LINEA132-1 FROM Linea-Impresion. Exit-Imprime-Lpt1. *-----------------* Exit. Set-Printer-Font-Defecto. *------------------------* Move 'Paso No. ' To M-Error. Move 11 To M-Code. Move Space To M-Texto. Perform Graba-Errores. * MOVE 11 TO NAME-LEN. * MOVE 'Courier New' & x"00" TO NAME-NAM. * MOVE 8 TO FONT-SIZE. If Sw-Duplex Equal 1 Move 10 To Font-Size. MOVE 0 TO FONT-STYLE. call "PC_PRINTER_SET_FONT" using pc-handle-pr By Reference font-family by value font-size by value font-style returning pc-reply. if Pc-Reply not = 0 move "PC_PRINTER_OPEN" to Operation Move 'Set Font ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Set-Printer-Font. *----------------* Move 'Paso No. ' To M-Error. Move 12 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Move Zero To Return-Code. * MOVE 11 TO NAME-LEN. * MOVE 'Courier New' & x"00" TO NAME-NAM. MOVE SCONA54-Siz TO FONT-SIZE. * If Sw-Duplex Equal 1 * Move 08 To Font-Size. MOVE SCONA54-STY TO FONT-STYLE. * If Longitud-Linea > 136 * Move 9 To Font-Size. call "PC_PRINTER_SET_FONT" using pc-handle-pr By Reference font-family by value font-size by value font-style returning pc-reply. if Pc-Reply not = 0 move "PC_PRINTER_SET_FONT" to Operation Move 'Set Fonts ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error. * Move 1 To FinTransaccion * Exit program. Start-New-Line. *--------------* *>This is better than to print x"0D0A" using pc_printer_write If Control-Carro Not Equal 99 Move 'Paso No. ' To M-Error Move 13 To M-Code Move Space To M-Texto Perform Graba-Errores MOVE 4 TO PRINT-COMMAND call "PC_PRINTER_CONTROL" using PC-HANDLE-PR BY VALUE PRINT-COMMAND returning PC-REPLY Else Move 'Paso No. ' To M-Error Move 14 To M-Code Move Space To M-Texto Perform Graba-Errores MOVE 2 TO PRINT-COMMAND call "PC_PRINTER_CONTROL" using PC-HANDLE-PR BY VALUE PRINT-COMMAND returning PC-REPLY Perform Logo-Todos Thru Exit-Logo-Todos. if PC-Reply not = 0 move "PC_PRINTER_CONTROL" to Operation Move 'Printer Control' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Write-To-Printer. *----------------* If Scona06-Imp Not Equal '5' And Scona06-Imp Not Equal '7' Perform Imprime-no-Ticket else Perform Imprime-si-Ticket. Imprime-si-Ticket. *-----------------* Move 'Paso No. ' To M-Error. Move 15 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Sw-Inicio-Impresion > 0 Perform Start-New-Line. MOve 600 To OPL-PRT-LARGO. call "PC_PRINTER_WRITE" using By Reference PC-HANDLE-PR By reference OPL-AREA-DOC BY VALUE OPL-PRT-LARGo * RETURNING Pc-Reply. * end-call. if Pc-Reply Not = 0 move "PC_PRINTER_WRITE" to Operation Move 'Printer Write ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. * call "PC_PRINTER_WRITE" using * By Reference PC-HANDLE-PR * By reference OPL-AREA-DOC * BY VALUE OPL-PRT-LARGo * RETURNING Pc-Reply. * end-call. * * if Pc-Reply Not = 0 * move "PC_PRINTER_WRITE" to Operation * Move 'Printer Write ' To Operacion-Impresora * Move Pc-Reply To Retorno-Impresora * Move ID-Error(Pc-Reply) To Texto-Error * Move Error-Impresoras To Mensajes-de-Error * Move 1 To FinTransaccion * Exit program. * * call "PC_PRINTER_WRITE" using * By Reference PC-HANDLE-PR * By reference OPL-AREA-DOC * BY VALUE OPL-PRT-LARGo * * * * RETURNING Pc-Reply. * end-call. * * if Pc-Reply Not = 0 * move "PC_PRINTER_WRITE" to Operation * Move 'Printer Write ' To Operacion-Impresora * Move Pc-Reply To Retorno-Impresora * Move ID-Error(Pc-Reply) To Texto-Error * Move Error-Impresoras To Mensajes-de-Error * Move 1 To FinTransaccion * Exit program. * * call "PC_PRINTER_WRITE" using * By Reference PC-HANDLE-PR * By reference OPL-AREA-DOC * BY VALUE OPL-PRT-LARGo * RETURNING Pc-Reply. * end-call. * * if Pc-Reply Not = 0 * move "PC_PRINTER_WRITE" to Operation * Move 'Printer Write ' To Operacion-Impresora * Move Pc-Reply To Retorno-Impresora * Move ID-Error(Pc-Reply) To Texto-Error * Move Error-Impresoras To Mensajes-de-Error * Move 1 To FinTransaccion * Exit program. Imprime-no-Ticket. *-----------------* Move 'Paso No. ' To M-Error. Move 15 To M-Code. Move Space To M-Texto. Perform Graba-Errores. If Sw-Inicio-Impresion > 0 Perform Start-New-Line. MOve 600 To OPL-PRT-LARGO. call "PC_PRINTER_WRITE" using By Reference PC-HANDLE-PR By reference OPL-AREA-DOC BY VALUE OPL-PRT-LARGo * RETURNING Pc-Reply. * end-call. if Pc-Reply Not = 0 move "PC_PRINTER_WRITE" to Operation Move 'Printer Write ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Write-To-Printer-Defecto. *------------------------* If Sw-Inicio-Impresion > 0 Perform Start-New-Line. Move 'Paso No. ' To M-Error. Move 16 To M-Code. Move Space To M-Texto. Perform Graba-Errores. MOVE Linea-Impresion TO OPL-100(01). * MOve CRLF To OPL-100a(01). * MOve 302 To OPL-PRT-LARGO MOve 600 To OPL-PRT-LARGO. CALL "PC_PRINTER_WRITE" USING PC-HANDLE-PR OPL-AREA-DOC BY VALUE OPL-PRT-LARGO. * RETURNING PC-REPLY. if Pc-Reply Not = 0 move "PC_PRINTER_WRITE" to Operation Move 'Printer Write ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Close-Printer. *-------------* if sw-open-printer equal Zero Go To Exit-Close-Printer. If Nombre-Impresora Equal Space Go To Close-Printer-Defecto. Move Zero To Status-Code. Move 'Paso No. ' To M-Error. Move 17 To M-Code. Move Space To M-Texto. Perform Graba-Errores. if sw-open-printer equal 1 call "PC_PRINTER_CLOSE" using PC-HANDLE-PR RETURNING PC-REPLY end-call. Move 'Paso No. ' To M-Error. Move 35 To M-Code. Move Space To M-Texto. Perform Graba-Errores. if Pc-Reply not equal 0 move "PC_PRINTER_CLOSE" to Operation Move 'Printer Close ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Move 'Paso No. ' To M-Error. Move 36 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Go To Exit-Close-Printer. Close-Printer-Defecto. *---------------------* Move 'Paso No. ' To M-Error. Move 18 To M-Code. Move Space To M-Texto. Perform Graba-Errores. CALL "PC_PRINTER_CLOSE" USING By Reference PC-HANDLE-PR. * RETURNING PC-REPLY. if Pc-Reply not equal 0 move "PC_PRINTER_CLOSE" to Operation Move 'Printer Close ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Exit-Close-Printer. *------------------* Move Zero To Sw-Inicio-Impresion. Close-Printers. *--------------* If Scona06-Imp Equal 1 Close Listado Close Listado-1 Move Zero To Sw-Open-Listado Go To Exit-Close-Printers. If Nombre-Impresora Equal Space Go To Close-Printers-Defecto. Move 'Paso No. ' To M-Error Move 14 To M-Code Move Space To M-Texto Perform Graba-Errores MOVE 2 TO PRINT-COMMAND call "PC_PRINTER_CONTROL" using PC-HANDLE-PR BY VALUE PRINT-COMMAND returning PC-REPLY. if Pc-Reply not equal 0 move "PC_PRINTER_CONTROL" to Operation Move 'Printer Control' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Move Zero To Status-Code. Move 'Paso No. ' To M-Error. Move 17 To M-Code. Move Space To M-Texto. Perform Graba-Errores. if sw-open-printer equal 1 call "PC_PRINTER_CLOSE" using PC-HANDLE-PR RETURNING PC-REPLY end-call. Move 'Paso No. ' To M-Error. Move 35 To M-Code. Move Space To M-Texto. Perform Graba-Errores. if Pc-Reply not equal 0 move "PC_PRINTER_CLOSE " to Operation Move 'Printer Close ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Move 'Paso No. ' To M-Error. Move 36 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Go To Exit-Close-Printers. Close-Printers-Defecto. *----------------------* Move 'Paso No. ' To M-Error Move 14 To M-Code Move Space To M-Texto Perform Graba-Errores MOVE 2 TO PRINT-COMMAND call "PC_PRINTER_CONTROL" using PC-HANDLE-PR BY VALUE PRINT-COMMAND returning PC-REPLY. Move 'Paso No. ' To M-Error. Move 18 To M-Code. Move Space To M-Texto. Perform Graba-Errores. CALL "PC_PRINTER_CLOSE" USING By Reference PC-HANDLE-PR. * RETURNING PC-REPLY. if Pc-Reply not equal 0 move "PC_PRINTER_CLOSE " to Operation Move 'Printer Close ' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Exit-Close-Printers. *-------------------* Exit. * Copy \Sifcnet\Copys\Impresora.Msg. Arma-Nombre-Impresora. *---------------------* if Nombre-De-Impresora Not Equal Space Move Nombre-De-Impresora To Nombre-Impresoras. MOve Servidor To Entorno-Dis. Move ':\SIFC\Externos\Entornos-SI.txt' To Entorno-Rut. Call 'Exist' Using Ws-Entorno, Retorno. If Retorno Not Equal Zero Move Space To Entorno-Inf(12). If Entorno-Inf(12) Not Equal Space Perform Pega-Nombre-Impresora Thru Exit-Pega-Nombre-Impresora Else Move Nombre-Impresoras To Name-Printer. Move 01 To XX. Perform Armo-Nombre-Impresora Until XX > 255. Move Name-Printer To Nombre-Impresora. Pega-Nombre-Impresora. *---------------------* MOve Space To Texto-Impresoras. Move '\\' To Texto1. Perform Quita-Puerto. Move Entorno-Inf(12) To Texto2. Move Nombre-Impresoras To Texto3. If Texto4 Not Equal '\\' Move '\' To Texto2a. If Texto4 Equal '\\' Move '\' To Texto4. MOve Space To Nombre-de-la-Impresoras. Move 1 To A1. MOve Zero To A2. Perform Quitar-Blancos Thru Exit-Quitas-Blancos Until A1 > 622. MOve Nombre-de-la-Impresoras To Name-Printer. Exit-Pega-Nombre-Impresora. *--------------------------* Exit. Quita-Puerto. *------------* Move Entorno-Inf(12) To Variable-Host. Move Space To Variables-Host. Move 1 To DD. Move Zero To EE. Perform Quito-Puerto Thru Exit-Quito-Puerto Until DD > 300. Move Variables-Host To Entorno-Inf(12). Quito-Puerto. *------------* If V1(dd) Equal ':' Or V1(dd) Equal ' ' Move 300 To DD Go To Exit-Quito-Puerto. Add 1 To EE. Move Vi(dd) To Vo(ee). Exit-Quito-Puerto. *-----------------* Add 1 To DD. Quitar-Blancos. *--------------* If I(A1) Equal Space Go To Exit-Quitas-Blancos. Add 1 To A2. Move I(A1) To O(A2). Exit-Quitas-Blancos. *-------------------* Add 1 To A1. Armo-Nombre-Impresora. *---------------------* If P(xx) Equal Space And P(xx + 1) Equal Space And P(xx + 2) Equal Space And P(xx + 3) Equal Space Move Control-Final To P(xx) Move 600 To xx Else MOve xx To Longitud-Nombre Add 01 To xx. Call-Default-Properties. *-----------------------* Move 'Paso No. ' To M-Error. Move 19 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Initialize Default-Properties. move 24 To Pr-len. *> In the case of an HP LaserJet 5SI printer the available *> resolutions are 75, 150, 300 and 600 *> This setting can be different from printer to printer *> For this sample we will print at a resolution of 150 Move 150 To pr-printquality Move 150 To pr-yresolution *> The setting for the number of copies is simply the number *> of copies of the printed material that you would like to get Move Numero-Copias To pr-copies. *> The values for the orientation property flag are; *> *> Portrait 1 (Vertical) *> Landscape 2 (Horizontal) *> * *> Duplex 1 Simple *> 2 vertical tipo libro *> 3 horizontal tipo block If Longitud-Linea > Caracteres-Vertical MOVE 2 TO pr-orientation * Move 2 To Pr-duplex ELSE * Move 2 To Pr-duplex MOVE 1 TO pr-orientation. * move 2 to pr-orientation. *> The values for the papersize property flag are; *> *> LETTER 1. *> LETTERSMALL 2. *> TABLOID 3. *> LEDGER 4. *> LEGAL 5. *> STATEMENT 6. *> EXECUTIVE 7. *> A3 8. *> A4 9. *> A4SMALL 10. *> A5 11. *> B4 12. *> B5 13. *> FOLIO 14. *> QUARTO 15. *> 10X14 16. *> 11X17 17. *> NOTE 18. *> ENV-9 19. *> ENV-10 20. *> ENV-11 21. *> ENV-12 22. *> ENV-14 23. *> CSHEET 24. *> DSHEET 25. *> ESHEET 26. *> ENV-DL 27. *> ENV-C5 28. *> ENV-C3 29. *> ENV-C4 30. *> ENV-C6 31. *> ENV-C65 32. *> ENV-B4 33. *> ENV-B5 34. *> ENV-B6 35. *> ENV-ITALY 36. *> ENV-MONARCH 37. *> ENV-PERSONAL 38. *> FANFOLD-US 39. *> FANFOLD-STD-GERMAN 40. *> FANFOLD-LGL-GERMAN 41. *> ISO-B4 42. *> JAPANESE-POSTCARD 43. *> 9X11 44. *> 10X11 45. *> 15X11 46. *> ENV-INVITE 47. *> RESERVED-48 48. *> RESERVED-49 49. *> LETTER-EXTRA 50. *> LEGAL-EXTRA 51. *> TABLOID-EXTRA 52. *> A4-EXTRA 53. *> LETTER-TRANSVERSE 54. *> A4-TRANSVERSE 55. *> LETTER-EXTRA-TRANSVERS 56. *> A-PLUS 57. *> B-PLUS 58. *> LETTER-PLUS 59. *> A4-PLUS 60. *> A5-TRANSVERSE 61. *> B5-TRANSVERSE 62. *> A3-EXTRA 63. *> A5-EXTRA 64. *> B5-EXTRA 65. *> A2 66. *> A3-TRANSVERSE 67. *> A3-EXTRA-TRANSVERSE 68. *> LAST 68. *> USER 256. *> Move 1 to pr-papersize. move 1 To Ws-len. *> The values for the Default-Properties-Flags are *> *> PAPERSIZE 1 *> PAPERLENGTH 2 *> PAPERWIDTH 4 *> SCALE 8 *> COPIES 16 *> PAPERTRAY 32 *> PRINTQUALITY 64 *> COLOR 128 *> DUPLEX 256 *> ORIENTATION 512 *> YRESOLUTION 1024 *> *> To use a combination of the above flags just add the values *> In this case printquality(64) + yresolution(1024) *> + copies(16) + orientation(512) + papersize(1) = 1617 *> * Move 256 to pr-Duplex. Move 1 To pr-color. If Duplex Equal 'S' Or Sw-Duplex Equal 1 move 1872 To Default-Properties-Flags Else move 1617 To Default-Properties-Flags. If Scona06-Imp Not Equal 7 Add Ws-Len To Default-Properties-Flags. If Scona06-Imp Not Equal '5' And Scona06-Imp Not Equal '7' * And * Scona06-Imp Not Equal '6' call "PC_PRINTER_DEFAULT_PROPERTIES" using by value Default-Properties-Flags by reference Default-Properties Returning PC-REPLY end-call Else Move Zero To Pc-Reply. If Pc-Reply Equal 26 Perform Call-Default-Properties-N. if Pc-Reply not equal 0 move "PC_PRINTER_DEFAULT_PROPERTIES" to Operation Move 'Default Properties' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Call-Default-Properties-N. *-------------------------* Move 'Paso No. ' To M-Error. Move 19 To M-Code. Move Space To M-Texto. Perform Graba-Errores. Initialize Default-Properties. move 24 To Pr-len. *> In the case of an HP LaserJet 5SI printer the available *> resolutions are 75, 150, 300 and 600 *> This setting can be different from printer to printer *> For this sample we will print at a resolution of 150 Move 150 To pr-printquality Move 150 To pr-yresolution *> The setting for the number of copies is simply the number *> of copies of the printed material that you would like to get Move Numero-Copias To pr-copies. *> The values for the orientation property flag are; *> *> Portrait 1 (Vertical) *> Landscape 2 (Horizontal) *> * If Longitud-Linea > Caracteres-Vertical MOVE 2 TO pr-orientation * Move 1 To Pr-duplex ELSE * Move 1 To Pr-duplex MOVE 1 TO pr-orientation. * move 2 to pr-orientation. *> The values for the papersize property flag are; *> *> LETTER 1. *> LETTERSMALL 2. *> TABLOID 3. *> LEDGER 4. *> LEGAL 5. *> STATEMENT 6. *> EXECUTIVE 7. *> A3 8. *> A4 9. *> A4SMALL 10. *> A5 11. *> B4 12. *> B5 13. *> FOLIO 14. *> QUARTO 15. *> 10X14 16. *> 11X17 17. *> NOTE 18. *> ENV-9 19. *> ENV-10 20. *> ENV-11 21. *> ENV-12 22. *> ENV-14 23. *> CSHEET 24. *> DSHEET 25. *> ESHEET 26. *> ENV-DL 27. *> ENV-C5 28. *> ENV-C3 29. *> ENV-C4 30. *> ENV-C6 31. *> ENV-C65 32. *> ENV-B4 33. *> ENV-B5 34. *> ENV-B6 35. *> ENV-ITALY 36. *> ENV-MONARCH 37. *> ENV-PERSONAL 38. *> FANFOLD-US 39. *> FANFOLD-STD-GERMAN 40. *> FANFOLD-LGL-GERMAN 41. *> ISO-B4 42. *> JAPANESE-POSTCARD 43. *> 9X11 44. *> 10X11 45. *> 15X11 46. *> ENV-INVITE 47. *> RESERVED-48 48. *> RESERVED-49 49. *> LETTER-EXTRA 50. *> LEGAL-EXTRA 51. *> TABLOID-EXTRA 52. *> A4-EXTRA 53. *> LETTER-TRANSVERSE 54. *> A4-TRANSVERSE 55. *> LETTER-EXTRA-TRANSVERS 56. *> A-PLUS 57. *> B-PLUS 58. *> LETTER-PLUS 59. *> A4-PLUS 60. *> A5-TRANSVERSE 61. *> B5-TRANSVERSE 62. *> A3-EXTRA 63. *> A5-EXTRA 64. *> B5-EXTRA 65. *> A2 66. *> A3-TRANSVERSE 67. *> A3-EXTRA-TRANSVERSE 68. *> LAST 68. *> USER 256. *> Move 1 to pr-papersize. move 1 To Ws-len. *> The values for the Default-Properties-Flags are *> *> PAPERSIZE 1 *> PAPERLENGTH 2 *> PAPERWIDTH 4 *> SCALE 8 *> COPIES 16 *> PAPERTRAY 32 *> PRINTQUALITY 64 *> COLOR 128 *> DUPLEX 256 *> ORIENTATION 512 *> YRESOLUTION 1024 *> *> To use a combination of the above flags just add the values *> In this case printquality(64) + yresolution(1024) *> + copies(16) + orientation(512) + papersize(1) = 1617 *> * Move 256 to pr-Duplex. If Sw-Duplex Equal 1 move 2000 To Default-Properties-Flags Else move 1744 To Default-Properties-Flags. Add Ws-Len To Default-Properties-Flags. call "PC_PRINTER_DEFAULT_PROPERTIES" using by value Default-Properties-Flags by reference Default-Properties Returning PC-REPLY end-call if Pc-Reply not equal 0 move "PC_PRINTER_DEFAULT_PROPERTIES" to Operation Move 'Default Properties' To Operacion-Impresora Move Pc-Reply To Retorno-Impresora Move ID-Error(Pc-Reply) To Texto-Error Move Error-Impresoras To Mensajes-de-Error Move 1 To FinTransaccion Exit program. Abre-Errores. *------------* Move 'Abre archivo de errores' to M-Texto. Perform Graba-trace. If Servidor Not Equal Space Move Servidor To Disco1 Move ':\sifc\sistemas\log\' To Ruta1 Move Operadorp To Operador1 MOve Fecha-Dia To Fecha1 Accept Hora1 From Time Move 'Error_Impresora' To Extencion1 Move Ws-Errores1 To Ws-Errores Else Move '\sifc\sistemas\log\' To Ruta2 Move Operadorp To Operador2 MOve Fecha-Dia To Fecha2 Accept Hora2 From Time Move 'Error_Impresora' To Extencion2 Move Ws-Errores1 To Ws-Errores. Open Output Errores. Move Error-Impresora To Todo-El-Error. Write Registro-errores. Move Space To M-Texto. Move 1 To Sw-Open-Errores. Exit-Abre-Errores. *-----------------* Exit. Graba-Errores. *-------------* Exit. Grabe-Errores. *-------------* Display Error-Impresora. If Sw-Open-Errores Equal Zero Perform Abre-Errores Thru Exit-Abre-Errores. Perform Graba-trace. Graba-Trace. *-----------* Move Error-Impresora To Todo-El-Error. Write Registro-errores. Grabo-Errores. *-------------* Exit. * Copy \sifcnet\copys\Windows.Cpy. COPY \sifcnet\copys\PROCESO.850. Busca-Duplex. *------------* Move Linea-Impresion To Linea-Duplexs. Move 01 To TT. Move 01 To PP. Perform Busco-Duplex Thru Exit-Busco-Duplex Until TT > 300. Move Linea-Duplexs To Linea-Impresion. Exit-Busca-Duplex. *-----------------* Exit. Busco-Duplex. *------------* If Dups(tt) Equal 'D' And Dups(tt + 1) Equal 'U' And Dups(tt + 2) Equal 'P' And Dups(tt + 3) Equal 'L' And Dups(tt + 4) Equal 'E' And Dups(tt + 5) Equal 'X' And Dups(tt + 6) Equal '}' MOve ' ' To Dups(tt) MOve ' ' To Dups(tt + 1) MOve ' ' To Dups(tt + 2) MOve ' ' To Dups(tt + 3) MOve ' ' To Dups(tt + 4) MOve ' ' To Dups(tt + 5) MOve ' ' To Dups(tt + 6) MOve 'D' To Dup(pp) MOve 'U' To Dup(pp + 1) MOve 'P' To Dup(pp + 2) MOve 'L' To Dup(pp + 3) MOve 'E' To Dup(pp + 4) MOve 'X' To Dup(pp + 5) MOve '}' To Dup(pp + 6) Move 500 To TT Go To Exit-Busco-Duplex. If Dups(tt) Equal 'F' And Dups(tt + 1) Equal 'I' And Dups(tt + 2) Equal 'N' And Dups(tt + 3) Equal 'D' And Dups(tt + 4) Equal 'U' And Dups(tt + 5) Equal 'P' And Dups(tt + 6) Equal 'L' And Dups(tt + 7) Equal 'E' And Dups(tt + 8) Equal 'X' And Dups(tt + 9) Equal '}' MOve ' ' To Dups(tt) MOve ' ' To Dups(tt + 1) MOve ' ' To Dups(tt + 2) MOve ' ' To Dups(tt + 3) MOve ' ' To Dups(tt + 4) MOve ' ' To Dups(tt + 5) MOve ' ' To Dups(tt + 6) MOve ' ' To Dups(tt + 7) MOve ' ' To Dups(tt + 8) MOve ' ' To Dups(tt + 9) MOve 'F' To Dup(pp) MOve 'I' To Dup(pp + 1) MOve 'N' To Dup(pp + 2) MOve 'D' To Dup(pp + 3) MOve 'U' To Dup(pp + 4) MOve 'P' To Dup(pp + 5) MOve 'L' To Dup(pp + 6) MOve 'E' To Dup(pp + 7) MOve 'X' To Dup(pp + 8) MOve '}' To Dup(pp + 9) Move 500 To TT. Exit-Busco-Duplex. *-----------------* Add 01 To TT. Busca-PDFCreator. *----------------* If N(x1) Equal 'P' And N(x1 + 1) Equal 'D' And N(x1 + 2) Equal 'F' And N(x1 + 3) Equal 'C' And N(x1 + 4) Equal 'R' And N(x1 + 5) Equal 'E' And N(x1 + 6) Equal 'A' And N(x1 + 7) Equal 'T' And N(x1 + 8) Equal 'O' And N(x1 + 9) Equal 'R' Move 1 To Sw-PDFCreator Move 300 To X1. If N(x1) Equal 'B' And N(x1 + 1) Equal 'U' And N(x1 + 2) Equal 'L' And N(x1 + 3) Equal 'L' And N(x1 + 4) Equal 'Z' And N(x1 + 5) Equal 'I' And N(x1 + 6) Equal 'P' Move 1 To Sw-PDFCreator Move 300 To X1. Exit-Busca-PDFCreator. *----`-----------------* Add 1 To X1. Carga-Formulario. *----------------* display Name-String(12) upon environment-name. accept value-string from environment-value. Move value-string To Entorno-Inf(12). Exit-carga-Formulario. *---------------------* If Entorno-Inf(12) Equal '127.0.0.1' Move Space To Entorno-Inf(12). Cargo-Formulario. *----------------* Move Servidor To Entorno-Dis. Move ':\SIFC\Exportar\Entorno.txt' To Entorno-Rut. Open Output Entorno. Move '|' To Texto-R01. Move '|' To Texto-R02. Move 1 To cc. Perform Carga-Entorno Thru Exit-Carga-Entorno Until CC > 34. Exit-cargo-Formulario. *---------------------* If Entorno-Inf(12) Equal '127.0.0.1' Move Space To Entorno-Inf(12). Carga-Entorno. *-------------* Move Nombre-Entorno(cc) To Texto-Entorno. display Name-String(cc) upon environment-name. accept value-string from environment-value. Move value-string To Entorno-Inf(CC). Move Entorno-Inf(cc) To Entorno-Recibido. Write Registro-Entorno. Exit-Carga-Entorno. *------------------* Add 1 To cc.