Clarion - Numero de Folio

Hola que tal, esperom alguien pueda ayudarme, lei un poco aqui acerca de como dar los consecutivos o folios a los movimientos yo estoy en la misma situacion pues primero puse el codigo para generarlo al abrir la ventana y me di cuenta de que tenia saltos en mis movimientos, por lo tanto decidi colocar el embed al momento de cerrar la ventana " kill procedure "
el codigo que tengo hecho al abrir la ventana de el numero consecutivo es este:

!GENERADOR DE NUMERO DE FOLIO

LOC:FOLIO = 0
Clear(llaveprincipal, 1)
Set(llaveprincipal, llveprincipal)
PREVIOUS(tabla)
PREVIOUS(tabla)
LOC:FOLIO = folio + 1
NEXT(tabla)
folio = LOC:FOLIO
UPDATE()
END

este codigo al abrir la ventana si me da el consecutivo pero al ponerlo en el kill procedure o no hace nada o me marca error

ya lo he colocado en:

arriba de parentcall ->> no marca error pero no hace nada
abajo de parentcall ->> no marca error pero no hace nada
call close file methods ->> aqui si marca un error 33 (imagino que es porque ya cerro las tablas)

muchas gracias por su atencion esperom poder encontrar la ayuda .....
buen dia

POR QUE NO INTENTAS ESTO:

OPEN(TABLA)
SET(LLAVE)
PREVIOUS(TABLA)
CLOSE(TABLA)
X#=No DE CUENTA
CLEAR(REC:ARCHIVO) ------------ DONDE REC ES EL SUB DEL ARCHIVO
No DE CUENTA=X#
DISPLAY

me hace lo mismo :(

pero no = es decir ahora el error es del tipo assertion failed shall i GPF :D

he estado pensado que en lugar de hacer el desplazamiento inverso en la tabla, pues ni modo hacerlo del modo tradicional :(

recorrer toda la tabla con un loop until obio esto sera cada ves mas lento conforme vaya creciendo la base de datos.


(a veces pienso que es mi clarion, llega a hacer cosas mucho muy raras)

creo que ya esta, muchas gracias por la ayuda me dio una idea el error generado :D

coloque arriba de "perform field validation" - accepted del boton ok la rutina folio

la cual quedo asi:

LOC:FOLIO = 0
ACCESS:tabla.OPEN()
clear(campo autonumerico, 1)
Set(llave,llave)
PREVIOUS(tabla)
PREVIOUS(tabla)
LOC:FOLIO = folio + 1
NEXT(tabla)
folio = LOC:FOLIO
DISPLAY()
ACCESS:tabla.CLOSE()

muchas gracias !

Hola que tal, esperom alguien pueda ayudarme, lei un poco aqui acerca de como dar los consecutivos o folios a los movimientos yo estoy en la misma situacion pues primero puse el codigo para generarlo al abrir la ventana y me di cuenta de que tenia saltos en mis movimientos, por lo tanto decidi colocar el embed al momento de cerrar la ventana " kill procedure "
el codigo que tengo hecho al abrir la ventana de el numero consecutivo es este:

!GENERADOR DE NUMERO DE FOLIO

LOC:FOLIO = 0
Clear(llaveprincipal, 1)
Set(llaveprincipal, llveprincipal)
PREVIOUS(tabla)
PREVIOUS(tabla)
LOC:FOLIO = folio + 1
NEXT(tabla)
folio = LOC:FOLIO
UPDATE()
END

este codigo al abrir la ventana si me da el consecutivo pero al ponerlo en el kill procedure o no hace nada o me marca error

ya lo he colocado en:

arriba de parentcall ->> no marca error pero no hace nada
abajo de parentcall ->> no marca error pero no hace nada
call close file methods ->> aqui si marca un error 33 (imagino que es porque ya cerro las tablas)

muchas gracias por su atencion esperom poder encontrar la ayuda .....
buen dia