consecutivos 001 002 003

jgcamposv
12 de Septiembre del 2003
Quiero hacer una rutina que me permita incrementar desde 001 hasta 999, en forma automatica cada vez que se introduce un producto, por ejemplo si se introduce leche como producto, el codigo sea 001 si se introduce otro producto su codigo sea 002. Ademas se puede hacer con tipo texto.

Gracias

JAVS
12 de Septiembre del 2003
Si creo que te entendi, lo que buscas es de que cada vez que ejecutes tu programa, este te de el numero automaticamente, si es eso te puedo ayudar.

Primero esta es una tabla de ejemplo. (Base1)

Campo Significado Tipo Longitud

a Numeracion Numerico 5
b Nombre Caracter 20

Ahora este es la estructura del programa.(Programax)

Define window vantana fom 1,1 to 10,30
activate window ventana
use base1
store (0) to x
store space (30) to vb
go bottom
x = a + 1
@ 5,5 say "Clave:"
@ 5,15 say x
@ 7,5 say "Nombre:"
@ 7,15 get vb
read
@ 10,5 say "deseas guardarlo [S/N]" get var1 pict [@!]
read
if var1 = "S"
append blank
replace a with x
replace b with vb
else
endif
@ 10,5 say "deseas uno nuevo [S/N]" get var2 pict [@!]
if var2 = "S"
clear
do programax
else
clear
cancel
endif

Nota: Lo que en realidad ayuda es el Go Bottom que hace que el cursor se coloque en el ultimo registro de la base de datos y toma el valor de "A" al hacer la suma ya tienes el numero siguiente y despues lo registras y asi es como funciona, espero que te pueda ayudar.