[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