buenas noches como siempre lo hago antes de abrir un hilo nuevo busco primero a ver si consigo problemas relacionados con el mio, pero por ser internet se encuentra un gran cantidad de problemas paracidos pero de los que lei ninguno concuerda con el mio, por otra parte como me urge un pronta respuesta decidi abrir un hilo
aqui les dejo mi problema y espero me puedan ayudar gracias de antemano..
tengo un programa de facturacion, el cual al agregar o eliminar un producto me hace la siguiente funcion:
Código Delphi
[-]
Var
Precio : Currency;
iva,total,total2:double;
n1,n2,nt:double;
begin
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);
iva:=total*0.09;
edit5.Text:=format('%f',[iva]);
n1:=strtofloat(edit4.text);
n2:=strtofloat(Edit5.text);
nt:=n1+n2;
edit6.Text:=floattostr(nt);
end;
esto va calculado en tres tedit
edit1 subtotal este campo viene expresado en entero ya que todos lo productos que se ingresan son enteros
edit2 iva este flotante po lo de *0.09
edit3 total y este a su vez deveria ser flotante porque es la suma de edit1+edit2 pero no.
ejemplo:
asi deberia ser:
edit1 subtotal 13245
edit2 iva 1192,05
edit3 total 14437,05
asi lo hace:
edit1 subtotal 13245
edit2 iva 1192,05
edit3 total 14437,0
y como por otra parte tengo trabando el Atexto para convertir el monto en letras para la factura me da como resultado:
catorse mil cuatrocientos treinta y siete con cero cinco centimos
entonces no entiendo otra cosa que me interesaria es hacer que de este formato:
edit1 subtotal 13245
edit2 iva 1192,05
edit3 total 14437,05
se viera asi:
edit1 subtotal 1.3245
edit2 iva 1.192,05
edit3 total 14.437,05
con la separacion de decimales y de miles!!
gracias por la ayuda que puedas brindarme!!!!
