FC@)+4;z #FC)+' 44<z '#PPD  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~PPDDDD   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~D1\3^D B 0000ABIR TABLA B 0001CERRAR TABLA B 0002INSERTAR REGISTRO EN TABLA B 0003ACTUALIZAR REGISTRO EN TABLA B 0004BORRAR REGISTRO EN TABLA B 0005LECTURA CON LLAVE IGUAL A B 0006LEER SIGUIENTE REGISTRO B 0007LEER REGISTRO ANTERIOR B 0008LEER REGISTRO CON LLAVE MAYOR A B 0009LEER REGISTRO LLAVE MAYOR O IGUAL B 0010LEER REGISTRO LLAVE MENOR A D B 0104BORRAR REGISTRO EN TABLA B 0105LEER REGISTRO CON LLAVE IGUAL A B 0106LEER SIGUIENTE REGISTRO B 0107LEER REGISTRO ANTERIOR B 0108LEER REGISTRO LLAVE MAYOR A B 0109LEER REGISTRO LLAVE MAYOR O IGUAL B 0114CREACION DE TABLA B 0200ABRIR TABLA B 0201CERRAR TABLA B 0202INGRESAR REGISTRO EN TABLA B 0203REEMPLAZAR REGISTRO EN TABLA D B 0011LEER REGISTRO LLAVE MENOR O IGUAL B 0014CREACION DE TABLA B 0015STADISTICA DE TABLA B 0025STOP BTRIEVE B 0026VERSION B 0027DESBLOQUE DE REGISTRO B 0028RESET B 0100ABRIR TABLA B 0101CERRAR TABLA B 0102INGRESAR REGISTRO EN TABLA B 0103REEMPLAZAR REGISTRO EN TABLA MOVE 32 TO COLUMN-NUMBER. IF WS-CAMPO EQUAL 08 MOVE 18 TO ROW-NUMBER MOVE 32 TO COLUMN-NUMBER. CALL "CBL_SET_CSR_POS" USING SCREEN-POSITION RETURNING RETORNO. MOVE ZERO TO EVENT-TYPE. MOVE ZERO TO EVENT-DATA. MOVE ZERO TO MOUSE-ROW. MOVE ZERO B 0000B 00011B 0002\B 0003B 0004B 0005B 0006B 00073B 0008^B 0009B 0010B 0011 B 00141 B 0015\ B 0025 B 0026 B 0027 B 0028 MOUSE-HANDLE MOUSE-POSITION RETURNING MOUSE-STATUS. IF MOUSE-ROW EQUAL 07 AND MOUSE-COL > 00 AND MOUSE-COL < 11 MOVE 01 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 08 AND MOUSE-COL > 00 AND MOUSE-COL < 11 MOVE 01 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 07 AND MOUSE-COL > 10 AND MOUSE-COL < 21 MOVE 02 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 08 AND MOUSE-COL > 10 AND MOUSE-COL < 21 MOVE 02 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 07 AND MOUSE-COL > 20 AND MOUSE-COL < 33 MOVE 03 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 08 A B 01003 DB 0204BORRAR REGISTRO EN TABLA B 0205LEER REGISTRO CON LLAVE IGUAL A B 0206LEER SIGUIENTE REGISTRO B 0207LEER REGISTRO ANTERIOR B 0208LEER REGISTRO CON LLAVE MAYOR A B 0209LEER REGISTRO LLAVE MAYOR O IGUAL 3^'B 0101^ B 0102 B 0103 B 0104 B 01051 B 0106\ B 0107 B 0108 B 0109 B 0114 B 02003 B 0201^ B 0202 B 0203 B 0204B 02051B 0206\B 0207B 0208B 0209AL 08 AND MOUSE-COL > 53 AND MOUSE-COL < 65 MOVE 06 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW EQUAL 07 AND MOUSE-COL > 64 AND MOUSE-COL < 72 MOVE 07 TO TODO-OPC GO TO PROCESO-999. IF MOUSE-ROW