Nº factura

[[Lepe]]

Empezado por cadetill

Tony, a ver que te parece esto en lugar de esos case

Código Delphi [-]
Cuatroprimeros := FormatFloat('0000', StrToInt(Cuatroprimeros));
OchoSegundos:= FormatFloat('00000000', StrToInt(OchoSegundos));

Curioso lo del FormatFloat, no se me hubiera ocurrido nunca

Si teneis las rxlibs, viene una unidad llamada nkstrs.pas, con funciones como PadLeft y padRight, que añade cualquier caracter por la derecha o por la izquierda.

Y ya que usas paradox, echale una visual a la unidad bdeutils que trae las rxlibs, para hacer un pack de las tablas y muchas otras cositas interesantes

Saludos