Formato de porcentajes para campos

[[egostar]]

Empezado por FelipeDiaz

Hola Tefots, lo que sucede es que necesito hacerlo en el formulario de captura de datos, asi como cuando uno escribe un valor de moneda el al recibir el foco muestra solo digitos, sin punto ni coma ni signo pesos (en mi caso pesos Colombianos, simbolo de moneda)

Pues de esta forma quiero es que en el mismo formulario en el mismo control, me reciba el valor en la forma 0,016 y al salir el foco del control, lo muestre como 1,6%. Lo del la moneda se puede hacer en la propiedad Display Format del DBEdit. con el formato que mencioné arriba.

Pero con el porcentaje, no se que hacer. Comprendo tu explicacion pero es mediante codigo, aqui no se como implementarlo.

Gracais nuevamente.

Porque no usas el evento onexit de tu campo para convertir el dato a porcentaje.

Salud OS

[FelipeDiaz]

Hola Egostar,

La verdad, no se si eso se pueda, pues altero el campo y por ser un DBEdit no s esi me afecte el valro en la Base de datos y como pasaria de un float a un String por agregarle el signo %, me podria dar una excepcion.

Bueno, lo hice de esta forma.
en el formulario de alimentadion de tablas de descuentos, Ivas y retenciones dejo que el usuario encargado los llene teneido la precausion que los llenara en formato float.

por otro lado agregando un campo calculado de tipo String donde guardo por decirlo '30,5%',. ese campo es el que vinculo por un DBLOOKUPCOMBOBOX, de esta forma el usurario que hara uso de los Descuentos y valroi de Iva previamente configurados o alimentados en la aplicacion, los vera en lenguaje mas natural.

Solo queda como incomodo para el que alimenta la BD. que tiene que colocar un 5% como .... 0,050.

Si se els ocurre alguna alternativa, me comentan..

Saludos a todos y de nuevo gracias.

[[basti]]

Puedes usar los eventos OnGetText y OnSetText del campo.

Algo así:

Código Delphi [-]
procedure TForm1.Table1PorcentajeGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
    Text := FloatToStr(Sender.asFloat * 100) + '%'
end;

procedure TForm1.Table1PorcentajeSetText(Sender: TField;
  const Text: String);
begin
  Sender.AsFloat := StrToFloat(Text) / 100;
end;

[FelipeDiaz]

Hola Basti....... Mis respetos ...Nunca imagine que eso fuese posible y tan sencillo.....funcionó. Era lo que andaba buscando.

Mil Gracias.....¿ Podria saberse como ...o de donde aprendiste lo que sabes.. .. algun libro en esepcial que recomiendes?

Bueno en todo caso, Un abrazo..Quedo enormemente agradecido.

FELIPE:

[[basti]]

Pásate por el ftp del club. Hay una sección de libros. Ahí encontrarás algunos. Sobre todo La Cara Oculta.