Nº factura

[tcp_ip_es]

No puedes poner una máscara y obligar al usuario a introducirlo bien??? o tb puedes programartelo tu .. quedaría algo asi... en el evento BeforePost de tu campo (Tfield) :

Código Delphi [-]
var cuatroprimeros,ochosegundos:string;
     i:integer;

i:=0;

while not (encontrado) do
begin
if cadena[i] = '-' then
 encontrado:=true
else
 Cuatroprimeros:= CuatroPrimeros + cadena[i];
i:=i+1;
end;

case length(Cuatroprimeros) of

0: Cuatroprimeros:= '0000' +  Cuatroprimeros;
1: Cuatroprimeros:= '000' +  Cuatroprimeros;
2: Cuatroprimeros:= '00' +  Cuatroprimeros;
3: Cuatroprimeros:= '0' +  Cuatroprimeros;
end;

while i<>length(cadena) do
begin
Ochosegundos:=OchoSegundos +cadena[i];
i:=i+1;
end;

case length(OchoSegundos) of

0: OchoSegundos:= '00000000' +  OchoSegundos;
1: OchoSegundos:= '0000000' +  OchoSegundos;
2: OchoSegundos:= '000000' +  OchoSegundos;
3: OchoSegundos:= '00000' +  OchoSegundos;
4: OchoSegundos:= '0000' +  OchoSegundos;
5: OchoSegundos:= '000' +  OchoSegundos;
6: OchoSegundos:= '00' +  OchoSegundos;
7: OchoSegundos:= '0' +  OchoSegundos;
end;

Tabla.fieldbyname('TuCampoCadena').asstring := CuatroPrimeros + '-' + OchoSegundos;

Saludos, Tony