Hola buenos dias, deberias hacer tal como te dice caral, con el mismo query:
en vez de usar el insert...
Código Delphi
[-]
Qfacturacion.SQL.Text := 'Insert into Facturacion
Values ('+QuotedStr(ECodFactura.Text)+', '+QuotedStr(EdiCliente.Text)+ ',
'+ LabDireccion.Caption+ ' :FechaFactura, '+QuotedStr(Editequipo.Text)+ ',
'+QuotedStr(EditRNC.Text)+ ', '+QuotedStr(DBComboBox2.Text)+',
'+QuotedStr(EMonto.Text)+', '+
QuotedStr(Editcantidad.Text)+', '+QuotedStr(ETotal.Text)+',
'+QuotedStr(EImp.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(DBComboBox3.Text)+ ',
'+QuotedStr(ESTotal.Text)+ ', '+QuotedStr(EDescuento.Text)+')', '+
QuotedStr(EImpuesto.Text)+')';
Qfacturacion.Parameters.ParamByName('FechaFactura').Value:= DateToStr(DateTimePicker1.Date);
Qfacturacion.ExecSQL;
usar
Código Delphi
[-]
QFacturacion.Append;
QFacturacion.FieldValues['CODIGO_FACTURA'] := ECodFactura.Text;
QFacturacion.FieldValues['DIREC_CLIENTE'] := LabDireccion.Caption;
...
QFacturacion.FieldValues['TOTAL'] := total; QFacturacion.FieldValues['FECHA'] := Datetimepicker1.Date;
Qfacturacion.Post;
para salir del paso este que te bloquea. saludos.