Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Lectura del ultimo registro (https://www.cobolforo.es/showthread.php?t=808)

jmeza 31 de enero de 2018 04:25
Lectura del ultimo registro
 
Hola a todos, si alguien me pude ayudar con el siguiente problema
Powercobolv9
Estoy programando un form que la clave inicial es un numero de Pic 9(5)
Este número es correlativo, como puede hacer la lectura para saber cual es el ultimo número del registro guardado.
Al ultimo registro yo le sumo 1 para un nuevo registro y que lo muestre en el Cmtext1
Saludos

Gatomalo 31 de enero de 2018 14:18
Código COBOL:
  1.       
  2.        OPEN INPUT TABLA.
  3.        MOVE 1 TO TIPO-T.
  4.         READ TABLA INVALID KEY STOP "NO EXITE NRO TABLA".
  5.            
  6.        ADD 1 TO NRO-T.
  7.        CLOSE TABLA.
  8.        MOVE NRO-T TO POW-NUMERIC OF CMTEXT1.

Cada vez que grabes adicionas 1 y regrabas.

Gusaiello 31 de enero de 2018 15:30
Otra posibilidad es :

Código COBOL:
  1. MOVE HIGH-VALUE TO CLAVE.
  2. START ARCHIVO KEY NOT > CLAVE.
  3. READ ARCHIVO PREVIOUS
  4.         AT END MOVE 0 TO CLAVE
  5. END-READ.
  6. ADD 1 TO CLAVE.

La primera vez que se ejecuta el programa inicializa en 0 el campo CLAVE.
Y en lo sucesivo te devuelve el último ingresado, y a ese le suma 1.
En este caso, no es necesario guardar ningún dato adicional, con esta búsqueda alcanza.

Kuk 31 de enero de 2018 20:40
jmeza,

Código COBOL:
  1. READ ARCHIVO LAST

jmeza 5 de febrero de 2018 03:13
OK probara con las alternativas enviados

Saludos

---------- Post añadido : 02:13 ---------- Post anterior : 20:24 ----------

El Código cobol que utilice para lectura del ultimo Registro y que me funciono ok es el que está a continuación (LEE-ORDE).

Pero tengo pendiente por resolver 2 problemas que no he logrado solucionar.

1.- Hay forma que el nuevo registro se muestre el número que corresponde al siguiente en cmtext11 al abril el formulario (este es el primer campo del formulario), solo se está mostrando después de pasar al siguiente campo. (como un UPDATE en Rmcobol).

2.- Cuando trato de editar un registro ya existente para modificar, imprimir etc. no funciona no muestra los datos del registro que solicite, solo muestra el nuevo número que selecciono LEE-ORDE.

Pero si deshabilito el código programado del LEE-ORDE, inicio el programa en PROCESO
Si muestra el registro que yo solicite sin problema.

Alguien más entendido en el tema me podría ayudar como solucionar estos problemas.
Código COBOL:
  1.  PROCEDURE       DIVISION.
  2.  LEE-ORDE.
  3.        OPEN INPUT REGORDEN.
  4.        MOVE HIGH-VALUE TO ORD-CLAV1.
  5.        START REGORDEN KEY NOT > ORD-CLAV1
  6.        READ REGORDEN PREVIOUS AT END MOVE 0 TO ORD-CLAV1
  7.        END-READ.
  8.        ADD 1 TO ORD-NUMORDE.
  9.        MOVE ORD-NUMORDE TO POW-NUMERIC OF CMTEXT11.
  10.        CLOSE REGORDEN.
  11.  
  12.  PROCESO.     
  13.       OPEN INPUT REGORDEN MAEPROV REGREM05 REGTABLA.
  14.       MOVE POW-NUMERIC OF CMTEXT11 TO ORD-NUMORDE.
  15.       READ REGORDEN INVALID KEY GO FIN.
  16.       CALL "LIMPIAR".
  17.       MOVE ORD-NUMORDE TO POW-NUMERIC OF CMTEXT11.
  18.       MOVE ORD-FECORDE TO POW-TEXT OF CMTEXT12.
  19.       IF ORD-MONEDA = 1 MOVE "PESOS" TO POW-TEXT OF CmStatic27.
  20.       IF ORD-MONEDA = 2 MOVE "DOLAR" TO POW-TEXT OF CmStatic27.
  21.       IF ORD-MONEDA = 3 MOVE "EURO"  TO POW-TEXT OF CmStatic27.
  22.         
  23.       MOVE ORD-TCAMBIO TO POW-NUMERIC OF CMTEXT13.
  24.       MOVE ORD-RUTPV TO POW-NUMERIC OF CMTEXT14.
  25.       MOVE ORD-RUTPV TO CODPV.
  26.       READ MAEPROV INVALID KEY MOVE "NO EXISTE" TO NOM-PV.
  27.       MOVE NOM-PV TO POW-TEXT OF CmStatic13.
  28.       CLOSE REGORDEN MAEPROV REGREM05 REGTABLA.
  29.       invoke cmtext12 "setfocus".
  30.       EXIT PROGRAM.
  31.  
  32.  FIN.
  33.       CALL "LIMPIAR1".
  34.       CLOSE REGORDEN MAEPROV REGREM05 REGTABLA.
  35.       INVOKE CMTEXT12 "SETFOCUS".


La franja horaria es GMT +2. Ahora son las 00:23.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.