problema al convertir valor en edit de forma str a float

[jirbert]

hola lepe gracias por la sugerencia, pero estoy empezando a creer que son problemas matematicos
porque en este ejemplo

edit1 subtotal 59595
edit2 iva 5363,55
edit3 total 64958,55

me puse a sacar cuentas en calculadoras y al igual que mi programa omite en cero de la derecha del decimal. con respecto a lo de la separacion de decimales y miles. no me funciona yo estuve probando

Código Delphi [-]
edit6.text:=format('#.###,##', (edit6.text))

pero no me funciona ni la que me proporcionaste.. de todas formas gracias por la ayuda

[[Luis M.]]

Prueba esto:

Código Delphi [-]
edit6.text:=format('#,##0.00', (edit6.text))

[ContraVeneno]

¿por que en lugar de utilizar TEdits para manejar valores monetarios no utilizas el TJVValidateEdit de las Jedi?, son gratis y muy muy recomendables.

Además de que te evitas la pena de andar haciendo conversiones de Str a Curr o viceversa:

UnValidateEdit.AsCurrency := FieldByName('unCampo').AsCurrency; // AsCurrency, AsINteger, AsFloat, AsString... como quieras.
UnValidateEdit.AsCurrency := OtroValidate.AsCurrency + 100;

Y para los formatos, simplemente editar una o dos propiedades y te olvidas del formato...

[[egostar]]

Empezado por jirbert

hola lepe gracias por la sugerencia, pero estoy empezando a creer que son problemas matematicos
porque en este ejemplo

edit1 subtotal 59595
edit2 iva 5363,55
edit3 total 64958,55

me puse a sacar cuentas en calculadoras y al igual que mi programa omite en cero de la derecha del decimal. con respecto a lo de la separacion de decimales y miles. no me funciona yo estuve probando

Código Delphi [-]
edit6.text:=format('#.###,##', (edit6.text))

pero no me funciona ni la que me proporcionaste.. de todas formas gracias por la ayuda

Hola

Yo sugiero que se use esto:

Código Delphi [-]
  edit1.Text := Format('%m',[subtotal]);
  edit2.Text := Format('%m',[IVA]); 
  edit3.Text := Format('%m',[subtotal+IVA]);

Salud OS

[jirbert]

hola egostar gracias por el suministro, pero al igual que el de lepe no me da respuesta diferente sigue siendo la misma, ContraVeneno de casualidad tienes algun link para descargar eso de las jevi porque estuve googleando y no consegui nada!!

[[Lepe]]

Busca por JVCL seguro que vas derechito a la web

Si no te funciona, ojito que en mi ejemplo suma_total está declarado como un float, si es un string desde luego que no funciona.

saludos

[ContraVeneno]

changos... hace un mes que salió la 3.35 y yo sigo con la 3.34... a caray... la 35 está en pruebas todavía... que bien, entonces seguimos con la 3.34
http://sourceforge.net/project/showf...ease_id=616736

[jirbert]

funcionan con cualquier delphi verdad yo tengo delphi6, gracias por el link

[ContraVeneno]

pues yo los tengo instalados en un Delphi 5, en un 2006 y en un 2007... así que supongo que sí funcionan en delphi 6

[[egostar]]

Empezado por jirbert

hola egostar gracias por el suministro, pero al igual que el de lepe no me da respuesta diferente sigue siendo la misma, ContraVeneno de casualidad tienes algun link para descargar eso de las jevi porque estuve googleando y no consegui nada!!

Hola,

No te entiendo, esto es lo que me muestra a mi.



Esto es como hago los calculos

Código Delphi [-]
  subtotal := 13245;
  iva := SubTotal * 0.09;
  edit1.Text := Format('%m',[SubTotal]);
  edit2.Text := Format('%m',[IVA]);
  edit3.Text := Format('%m',[SubTotal+IVA]);

Salud OS

[jirbert]

Empezado por egostar

Hola,

No te entiendo, esto es lo que me muestra a mi.



Esto es como hago los calculos


Código Delphi [-]
subtotal := 13245;
iva := SubTotal * 0.09;
edit1.Text := Format('%m',[SubTotal]);
edit2.Text := Format('%m',[IVA]);
edit3.Text := Format('%m',[SubTotal+IVA]);





Salud OS

bueno egostar es si lo hace a segun como deberia ser per opor ejemplo cuando es 13254,50 aprece 13254,5 y a la hora del Atexto aparece 50, por lo que el contador me esta sugiriendo que lo acomode de tal modo que aparezca tal cual como en el texto con sus dos decimales, ya que esas son las normas que piden.

[jirbert]

saben algo me puse a verificar la base de datos y todos las facturas antes realizadas estan guardadas perfectamente, ahora no se porque a la hora de reflejarlo en el edit me elimina el cero del segundo decimal, y al imprimirlo sale igual que lo reflejado en el edit pero segun todos los registros en la bd estan perfectamente.

[[Delphius]]

¿Podrías mostrarnos un poco de código? Tal vez de esa manera podríamos saber donde está el problema.
La verdad es que podríamos estar adivinando donde está el problema, sería muy recomendable que expongas el código para saber como y que estás haciendo... tal vez hay algo en el medio que afecta.

Saludos,

[[egostar]]

Empezado por jirbert

saben algo me puse a verificar la base de datos y todos las facturas antes realizadas estan guardadas perfectamente, ahora no se porque a la hora de reflejarlo en el edit me elimina el cero del segundo decimal, y al imprimirlo sale igual que lo reflejado en el edit pero segun todos los registros en la bd estan perfectamente.

Dejame entender, como es que quieres que se traduzca 13254,5

• Trece mil doscientos cincuenta y cuatro pesos 50/100 MN
• Trece mil doscientos cincuenta y cuatro pesos con 50 centavos
• Trece mil doscientos cincuenta y cuatro pesos con cincuenta centavos

Porque acabo de probar el componente y a mi me muestra esto

trece mil doscientos cincuenta y cuatro pesos con cincuenta centavos

Uso esto

Código Delphi [-]
  Letras1.Numero := 13254.5;
  Letras1.Moneda := 'pesos';
  Letras1.Centavos := 'centavos';
  ShowMessage(Letras1.AsString);

Usando este valor

Código Delphi [-]
  Letras1.Numero := 13254.05;
  Letras1.Moneda := 'pesos';
  Letras1.Centavos := 'centavos';
  ShowMessage(Letras1.AsString);

Me muestra

trece mil doscientos cincuenta y cuatro pesos con cinco centavos

Salud OS

[[egostar]]

Empezado por jirbert

saben algo me puse a verificar la base de datos y todos las facturas antes realizadas estan guardadas perfectamente, ahora no se porque a la hora de reflejarlo en el edit me elimina el cero del segundo decimal, y al imprimirlo sale igual que lo reflejado en el edit pero segun todos los registros en la bd estan perfectamente.

De casualidad, no le habrás puesto un limite de caracteres en el Edit digo a estas alturas todo se vale

Salud OS