[[Delphius]]

Interesante método de resolverlo seoane. Ha decir verdad, me resulta elegante.

Ahora bien... tu código dice:

Código Delphi [-]
function Entrelazar(i,j: integer): string;
begin
  Result:= '';
  while (i > 0) or (j > 0) do
  begin
    Result:= Format('%d%d',[i mod 10, j mod 10]) + Result;
    i:= i div 10;
    j:= j div 10;
  end;
  while Length(Result) < 9 do
    Result:= '0' + Result;
  Result:= Copy(Result,1,9);
end;

// Obtenemos el valor guardado de i
i:= i + 1;
ShowMessage(Mezclar(Random(9999),i));
// Guardamos el valor de i

Primeramente llamas Entrelazar y luego Mezclar
Pero la idea es buena... y tal vez mis algoritmos GNA sean demasiados para lo que coletaun necesita. Sobre todo si previamente hay que modificar mi/s algoritmo/s para que "recuerde" y además hay que calcular un valor correcto de los parámetros para garantizar que la serie no se repita.

Empezado por seoane

Lo único malo es que solo permite generar 99999 números distintos

Tal vez con el tiempo... si la cantidad de clientes aumenta (y asi parece ser... pues por algo necesita de números de 9 digitos) habría que modificar un poco tu codigo para que funcione.

Igulmente hay que ver que nos dice coletaun de esto...
Saludos,