problema al convertir valor en edit de forma str a float

[[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

[jirbert]

hola delphius mira tengo esto en el boton de entrada de cada producto

Código Delphi [-]
Var
Precio : Currency;
iva,total:double;
n1,n2,nt:double;

begin
 form1.Table4.Append;
 form1.Table4.Fields[0].Value:=edit2.Text; // bd datos temporal de productos a facturar
 form1.Table4.Fields[1].Value:=edit9.Text;// bd datos temporal de productos a facturar
 form1.Table4.Fields[2].Value:=edit7.text; // bd datos temporal de productos a facturar
 form1.Table4.Fields[4].Value:=edit8.Text;// bd datos temporal de productos a facturar
 form1.Table4.Fields[5].Value:=edit4.Text; // bd datos temporal de productos a facturar
 form1.Table4.Fields[3].Value:=edit5.Text; // bd datos temporal de productos a facturar
 form1.Table4.Fields[6].Value:=edit6.Text; // bd datos temporal de productos a facturar
 form1.Table4.Post; // bd datos temporal de productos a facturar 
 panel1.Visible:=false;

    precio := 0;
    form1.Table4.DisableControls;
    try
     form1.Table4.First;
      While Not form1.Table4.Eof do
      begin
       Precio := Precio + form1.Table4.FieldbyName('Total').ASCurrency;
       form1.Table4.Next;
      end;
       edit4.Text := CurrToStr(Precio);
        finally
     form1.Table4.EnableControls;
    end;
  begin
    total:=strtofloat(edit4.text);  // esto es el subtotal
    iva:=total*0.09;
    edit5.Text:=format('%f',[iva]);   //aqui el iva
    n1:=strtofloat(edit4.text);
    n2:=strtofloat(Edit5.text);
    nt:=n1+n2;
    edit6.text:=floattostr(nt);   // aqui la suma de ambos

 end;

end;

egostar yo utilizo este:

• Trece mil doscientos cincuenta y cuatro pesos con cincuenta centavos

[[Delphius]]

No veo el problema, al menos con una visión rápida, pero lo que si noto que hay muchos pasos de float a string y a la inversa.... ¿Porqué en vez de estar haciendo estas conversiones (a mi modo de ver innecesarias) no guardas los datos en variables temporales y muestras el resultado final en los edits?

Quizá el lio está en esas conversiones de float a string y a la inversa, de string a float.

Saludos,

[[egostar]]

Hola

No entiendo para que usas esos tipos de datos, yo usaria esto,

Código Delphi [-]
Var
  Precio,iva,total : Real;
begin
    Precio := 0;
    form1.Table4.First;
    while Not form1.Table4.Eof do begin
       Precio := Precio + form1.Table4.FieldbyName('Total').Value;
       form1.Table4.Next;
    end;
    edit4.Text := format('%m',[Precio]);
    iva:= Precio * 0.09;
    edit5.Text := format('%m',[iva]); 
    edit6.Text := format('%m',[Precio+iva]); 
    Letras1.Numero := Precio+iva;
    Letras1.Moneda := 'pesos';
    Letras1.Centavos := 'centavos';
    ShowMessage(Letras1.AsString);
end;

Salud OS

[jirbert]

bueno prove el cod de egostar y me realiza lo mismo
[IMG]file:///C:/DOCUME%7E1/ADMINI%7E1/CONFIG%7E1/Temp/moz-screenshot-2.jpg[/IMG]

[[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