MaskEdit es la solucion?
 

Hola a todos.

Necesito trabajar con una referencia del tipo VV-0245-0556, donde VV indica vegetales, el primer numero que debe ser de 4 digitos (completados con 0s) es el numero parcial y el segundo numero el numero total tb de 4 digitos.

Los contadores se leen de la base de datos, se incrementan, se usan i se vuelven a guardar.

¿Como puedo crear un numero y que se autocomplete automaticamente con los 0s?
¿Y a la hora de guardarlo en la base de datos (oracle) que tipo de dato uso para que no se borren los 0s ?¿Uso VARCHAR2 o se puede hacer algo mejor con NUMBER?


Thx :rolleyes:

Pense en guardar los datos como cadena en la base de datos, leerlos, pasarlos a numero(desaparecen los 0s), incrementarlos y despues meter ese valor en un MaskEdit para que volvieran a aparecer los 0s...

Es que esto del pascal no es lo mio. como controlo la precision?

Si entiendo bien lo que quieres:

VV-0245-0556 Este dato debiera ser una cadena de ancho 12, para guardar también los guiones.

Luego con 2 campos de tipo número se guardarían los 2 contadores.

Y desde Delphi:

Código Delphi [-]
  Var
  cNumero:String;
  begin
  cNumero:='VV'+FormatFloat('0000', Table1Conta +1)+FormatFloat('0000',Table1Conta2+1);
  end;

Conta sería el campo contador para la posición 1 y Conta2 el campo contador para la posición 2.

Cada vez que se grabe un nuevo registro habrá que guardar los contadores actualizados para que el próximo tome los datos correctos.

También podrías usar en tu base de datos 3 campos, uno char(2), y dos integer, y en tu programa solo haces la presentación de esta:

Código Delphi [-]
var
  Numero: string;

begin
  Numero := Format('%s-%.4d-%.4d', [TblFieldChar, TblFieldCont1, TblFieldCont2]);
  // Esto te devuelve una cadena parecida a esta: 'vv-0245-0556'
end;

his
 

gracias por vuestras soluciones, pero os comento que puse en practica otra solucion algo mas chapuza pero con optimos resultados.

trabajo con cadenas miro la longitud del numero i añado ceros segun longitud a la cadena donde lo voi a volcar.. pero que chapucero soi por deux. xD:p