[Yensis22]

Ya Realise los cambio

Pero me esta mandando este error “Raised exception class EDatabaseError with messege “”qfacturacion: Fild “cliente” not found.” Y se para en esta linea (QFacturacion.FieldValues['Direccion'] :=LabDireccion.Caption este es el nuevo codigo.

Código Delphi [-]
procedure TFFacturacion.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h :real;
begin
 a:= StrTofloat(Editcantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 //QFacturacion.Active := false;
 QFacturacion.Append;
 QFacturacion.FieldValues['NumeroFactura'] := ECodFactura.Text;
 QFacturacion.FieldValues['Cliente'] :=EdiCliente.Text;
 QFacturacion.FieldValues['Direccion'] :=LabDireccion.Caption;
 QFacturacion.FieldValues['FechaFactura'] := Datetimepicker1.Date;
 QFacturacion.FieldValues['Equipos'] :=Editequipo.Text;
 QFacturacion.FieldValues['NCF'] :=EditRNC.Text;
 QFacturacion.FieldValues['Tecnico'] :=DBComboBox2.Text;
 QFacturacion.FieldValues['Monto'] :=EMonto.Text;
 QFacturacion.FieldValues['Cantidad'] :=Editcantidad.Text;
 QFacturacion.FieldValues['Total'] :=ETotal.Text;
 QFacturacion.FieldValues['ITBIS'] :=EImp.Text;
 QFacturacion.FieldValues['Descuento'] :=EDesc.Text;
 QFacturacion.FieldValues['FormaPago'] :=DBComboBox3.Text;
 QFacturacion.FieldValues['SubTotal'] :=ESTotal.Text;
 QFacturacion.FieldValues['Desctotal'] :=EDescuento.Text;
 QFacturacion.FieldValues['ITBIStotal'] :=EImpuesto.Text;
 QFacturacion.FieldValues['Comentario'] :=DBMemo1.Text;
   Qfacturacion.Post;
        end;
end.