Sugerir numero de cliente, entre huecos

[noe aburto]

Saludos

Tengo que resolver una cuestion ya que mi catalogo de clientes puede tener hasta 99999 claves de clientes, y entre ellos hay numeros de cliente no usados, p. ej.

00001
00002
00005
00006
..
..
99889
99890
etc

lo que quiero es que por medio de una funcion que no recorrra todo el catalogo, me sugiera que el siguiente clientes sea 00003
y luego el 00004, que no estan registrados como cliente.

Que el siguiente cliente lo busque entre numeros que no estan secuanciales

Alguna sugerencia porfa.

[hmpaquito]

Hola,

Lamentablemente, IMHO, tienes que recorrer toda la lista, de lo contrario te obligaría a llevar un control de los huecos, lo cual puede generarte muchos dolores de cabeza.

Code: Select all

FUNCTION ClienteHueco()
Local nArea:= Select()
LOCAL nI, cCli, cCliHueco:= NIL
SELECT Client
FOR nI:= 1 TO 99999
   cCli:= StrZero(nI, 5)
   SEEK cCli
   IF Eof()
       cCliHueco:= cCli
       EXIT
   ENDIF
NEXT
SELECT (nArea)
RETURN cCliHueco
 

Saludos

[joseluisysturiz]

Saludos

Tengo que resolver una cuestion ya que mi catalogo de clientes puede tener hasta 99999 claves de clientes, y entre ellos hay numeros de cliente no usados, p. ej.

00001
00002
00005
00006
..
..
99889
99890
etc

lo que quiero es que por medio de una funcion que no recorrra todo el catalogo, me sugiera que el siguiente clientes sea 00003
y luego el 00004, que no estan registrados como cliente.

Que el siguiente cliente lo busque entre numeros que no estan secuanciales

Alguna sugerencia porfa.

Lamentablemente eso pasa cuando no se usa incrementacion automatica, imagino que usas DBF, lo que te puedo sugerir es que hagas un recorrido de la DBF una ves, y crees una DBF adicional donde tengas los numero que no consigas en el recorrido, asi solo buscas en esa DBF el numero que le toca en el orden que deberia estar y luego de adicionarlo a la DBF principal, lo eliminas de la secundaria hasta que quede vacia, obvio chequeas antes de asignar si esta vacia o no la DBF...no se, es una idea que se me viene, asi no recorres cada rato la DBF principal, si no que tomas el valor de la DBF secundaria, espero haber explicado bien...saludos...

[hmpaquito]

Lamentablemente eso pasa cuando no se usa incrementacion automatica,

El incremento automático, en ambiente multiusuario, también puede generar huecos si el código se obtiene al principio.
Puede ser necesario obtener el codigo al principio si se necesita asociarlo con tablas secundarias, por poner por caso.
Así pues, el incremento automatico tambien puede generar huecos: dependerá cuando se use el incremento: al final, en el momento de la grabación o antes.

[lubin]

Estimado
Yo tenia ese problema y se me estaban acabando los codigos... 99989 .. 99990... 99991 asi que lo que hice fue ampliar la codificacion
para manejar ... 999998.. 999999.... luego A00001... A00002....A00003....A00004... A99999... B00001... B00002... cuando llegue Z99998... AA0001 .. AA0002...

Bueno amigo asi me olvie del problema, y los huecos.. ahi quedaron al olvido

Saludos..
Lubin

[joseluisysturiz]

Lamentablemente eso pasa cuando no se usa incrementacion automatica,

El incremento automático, en ambiente multiusuario, también puede generar huecos si el código se obtiene al principio.
Puede ser necesario obtener el codigo al principio si se necesita asociarlo con tablas secundarias, por poner por caso.
Así pues, el incremento automatico tambien puede generar huecos: dependerá cuando se use el incremento: al final, en el momento de la grabación o antes.

Cuando me refiero a incremento automatico, es mas relaciona con SQL(mysql, mariabd, etc) ya que el auto-increment evita esos huecos porque incrementa al momento de grabar el registro, seria una buena opcion para el colega, pero por lo visto usa DBF y no se si eso se podra hacer con DBF...saludos...

[FranciscoA]

Noe.
Lo que necesitas se parece a un chequeo de secuencia. (en mis programas reviso secuencias numericas de documentos)
Intenta lo siguiente, por favor. No tendras que recorrer toda la dbf, a menos que los huecos estén en la parte final de la secuencia.
La tabla debe estar indexada por el campo codigo. (en este ejemplo)

Code: Select all

FUNCTION RevisaSecuencia(cAlias,nMaxCodigos)
local n, cCodigo

FOR n := 1 TO nMaxCodigos  
   cCodigo := StrZero(n, 5)
  if !(cAlias)->(dbseek(cCodigo,.t.))
      EXIT
 endif
NEXT

Return cCodigo
 

Saludos.

[Armando]

Noe:

Ahí te va otra idea que puede funcionar si aún vas a controlar los folios.

1.- Creas una DBF con los folios que consideres se van a emplear,
desde el 1 hasta 99999, ejemplo:
00001
00002
00003
00004
………
……..
99999

2.- Cuando consumas un folio lo eliminas de esta DBF, supongamos
que consumes el 00002, entonces te quedarían así

00001
00003
00004
……..
…….
99999

De esta manera siempre tendrás al frente el folio que sigue, sin necesidad
de buscar huecos.

Ojalá puedas decirnos cual sugerencia te funcionó
Saludos

[russimicro]

ALGORITMO ... TEMA ESTRUCTURA DE DATOS

Code: Select all

( SI EL ID ES NUMERICO)
// index por id 
do while cli->( !eof() )
   cNroIde := cli->id   
   cli->( dbskip () )
   if val(cNroIde)+ 1 <> cli->id    
      alert("ID no es secuencial : "+cli->id)
   endif
enddo
 

[jbrita]

Amigo prueba

SELECT t.asiento +1 FROM vendido t WHERE NOT EXISTS ( SELECT * FROM vendido t2 WHERE t2.asiento = t.asiento + 1 ) LIMIT 1

Saludos