Error al calcular una factura

[[coso]]

PD: el skin del form principal, precioso creo q lo voy a guardar

[Yensis22]

Tiene que realizar

Realisar la connexion de ODBC por panel de control/ Herramientas administrativas/Orígenes de datos (ODBC)/DNS Sitem/agregar/Microsoft Accesss drive(*dma) y le pone nombre DB y seleciona el lugad donde esta la base de dtao tine que poner la carpeta en c:\

[[coso]]

no, eso ya lo hice. y entre con carlos 123

[Yensis22]

Entra con este Usuario
Yensis user
mcmlxxx clave

[[coso]]

siguen sin abrirse las tablas .yensis, lo siento pero aqui es tarde (00:51) si no lo miraria mas. Haz caso del mensaje anterior, de lo de los quotedstr, para almenos solucionar ese execsql.saludos.

[Yensis22]

en la ejecucion

Ya realice eso cambio pero cunado lo ejecuto manda este error (error de sistanxis (falta operador en la expresión de consulta " D?").
en el botón de los cálculos y en el de busqueda que me trael el otro form me lo trae pero no me inserta ningún dato.

[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.

[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.

[[coso]]

antes de qfacturacion.append...

Código Delphi [-]
 
qfacturacion.active := false;
qfacturacion.sql.text := 'select * from facturacion';
qfacturacion.active := true;
 
qfacturacion.append;
...

[[coso]]

descuento, etc... ahora los debes poner tal cual como reales, tal y como te comentaron en otro mensaje...ahora cada variable que pongas debe estar en su tipo...

[[Caral]]

Hola
Ademas de lo dicho por Coso:
Podria estar afectando los espacios, trata asi:

Código Delphi [-]
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;

Saludos

[[coso]]

antes se pasaban a string porque sql.text es una string, tambien, pero ahora no hace falta; de la misma manera se usa quotedstr para poner una cadena dentro de otra.

[[coso]]

otra cosa : veo q usas el texto normal para indicar lo que has hecho, el quoted para indicar lo que te ocurre o vas a hacer. Es muy confuso y molesto mejor no uses el quote a no ser q sea para referirte a algun mensaje anterior

[Yensis22]

ya me esta realisando los calculos
muchas gracas por lalucha que les dado con ese codigo

Por otra parte de este mismo from de factura yo tengo un botón busca, que lo que yo quiero que el me realice es que cunado yo lo llame me traiga otro from eso el me lo hace bien, pero que cuando yo le de le de clic a un cliente este me lo inserte en el edit de cliente de la factura esto lo que no me esta haciendo este es el código que tengo es este botón esta variable Nom_Cliente esta de clarada como publica Nom_Cliente: string; en el otro from que se llama FRegistroclient. este es el codigo del boton que me trael en from de del cliete.

Código Delphi [-]
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
FRegistroclient:=TFRegistroclient.Create(self);
   try
    FRegistroclient.ShowModal;
   finally
   If FRegistroclient.Nom_Cliente <> '' then
   EdiCliente.Text := FRegistroclient.Nom_Cliente;
   LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
   FRegistroclient.Free;
   end;
end;