Error al calcular una factura

[Yensis22]

Aqui esta la base dede datos sola
para que la baje y la haga la prueba
http://www.4shared.com/file/61518389...cturacion.html

[[Caral]]

Hola
Creo y casi podria asegurar que no as revisado el ORDEN en que estan los datos en la tabla.
Indique hace ya un rato que el ORDEN DE LA TABLA TIENE QUE SER EL MISMO QUE EL DEL INSERT.
Lo que pude notar haciendo algunas pruebas es que no coinciden los datos ni de la tabla ni con el tipo de dato.
Si se hace un cambio, da otro error y asi sucesivamente.
Consejo:
Cambia ese insert (osea el query) por un table y haces un edit y un post.
Esto lo digo para que salgas del problema facilmente, ya que tienes poco tiempo.
Cuando tengas mas tiempo y experiencia regresa al query que es la mejor opción, de otra manera estaras aqui toda la noche y no creo que nadie te pueda ayudar, es muy dificil entender esto, como esta.
Saludos

[Yensis22]

que modifique las tabla a datos double

[quote]
si cambioa a la tabla tengo que cambiar todo el codigo casimentes eso es empesa de cero.
[quote]

[tcp_ip_es]

Abro Paréntesis con aclaración sin desvirtuar el hilo.

Hola, a manera de observación les aconsejaría que no se limiten tan apresuradamente a sacar conclusiones de la grafía de una persona. Es muy posible que sea una persona con dislexia.

Precisamente por no sacar conclusiones le he preguntado ¿que por qué escribía asi? es posible que sea lo que dices tu o bien lo que he dicho yo sobre que hable otro idioma y su segundo idioma sea el castellano/español y se le de peor, pero hasta que Yensis nos aclare el tema no nos podremos enterar (y no miro a nadie ehhh )

Cierro Paréntesis con aclaración sin desvirtuar el hilo.

[[coso]]

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; // siendo la variable total real
QFacturacion.FieldValues['FECHA'] := Datetimepicker1.Date;
Qfacturacion.Post;

para salir del paso este que te bloquea. saludos.

[[coso]]

Código Delphi [-]
 
'... Values ('+QuotedStr(ECodFactura.Text)+', ' 
+QuotedStr(EdiCliente.Text)+ ',  ' + 
LabDireccion.Caption + ' :FechaFactura, '+ // <--- con quotedstr, y falta una coma delante el :
QuotedStr(Editequipo.Text)+ ',' ...

otro fallo, esto deberia ser QuotedStr, y antes de :FechaFactura, tendria que haber una coma...

[[coso]]

bueno, a ver si sales del paso yensis, saludos. Procura escribir mas ordenadamente la proxima vez, de igual manera con tu codigo, que te ayudara mucho. venga, saludos.