Error Sumando Columnas SQL

[[Caral]]

Hola
Boton 2:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var
  Codigo, Cat:Integer;
  Tot, Prec: Real;
  Art: String;
begin

  ZQueryBD.SQL.Text:=  'Select Sum(Precio) as Suma From facturaTemp';
  ZQueryBD.Open;
  Tot:= ZQueryBD.Fields[0].AsFloat;
  ZQueryBD.Close;

  ZQueryBD.SQL.Text := 'Select Max(CodigoFactura) from factura';
  ZQueryBD.Active := true;
  try
  Codigo := ZQueryBD.Fields[0].AsInteger+1;
  except
  Codigo := 1;
  end;
  ZQueryBD.Active :=False;
  end;
  
  ZQueryBD.SQL.Text:= 'Insert Into factura (CodigoFactura, Monto, Fecha, Hora) Values (:Num, :Mont, :Fec, :Hor)';
  ZQueryBD.Params[0].Value := Codigo;
  ZQueryBD.Params[1].Value := Tot;
  ZQueryBD.Params[2].Value := Date();
  ZQueryBD.Params[3].Value :=Time();
  ZQueryBD.ExecSQL;


  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Select Articulo, Cantidad, Precio From facturaTemp';
  ZQueryBD.Open;
  While not ZQueryBD.Eof do
   begin
  Art:= ZQueryBD.Fields[0].AsString;
  Cat:= ZQueryBD.Fields[0].AsInteger;
  Prec:= ZQueryBD.Fields[0].AsFloat;

  ZQueryBD.SQL.Text:= 'Insert Into facturaDetalle (CodigoFactura, Articulo, Cantidad, Precio) Values (:Num, :Arti, :cant, :xpre)';
  ZQueryBD.Params[0].Value := Codigo;
  ZQueryBD.Params[1].Value := Art;
  ZQueryBD.Params[2].Value := Cat;
  ZQueryBD.Params[3].Value := Prec;
  ZQueryBD.ExecSQL;
  ZQueryBD.Next;
   end;
  ZQueryBD.Close;

  DataSourceBD.Enabled:= False;
 
  Showmessage(' insertado');

  ZQueryBD.SQL.Text:= 'Delete From facturaTemp';
  ZQueryBD.ExecSQL;
  
  Edit3.Text:='0.00 BsF';
  Edit1.Text:='';
end;

A ver que te parece.
Saludos

[martini002]

Hola Caral,
ayer me quede dormido sobre la mesa :/
disculpa que no te pude responder,
tengo 3 horas jugando con este codigo desde que me desperte
lo entiendo bien, pero no quiere funcionar,
tenia unos detallitos que es comun que falten,
pero mira basicamente no quiere ejecutar esta linea
y tira este error "SQL Error near ",": Syntax error."

Código Delphi [-]
 
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Insert Into facturaTemp (ID, Articulo, Cantidad, Precio) values ( :num, :art, :cant, :xpre )';
              ZQueryBD.Params[0].Value := numero;
              ZQueryBD.Params[1].Value := arti;
              ZQueryBD.Params[2].Value := Edit2.Text;
              ZQueryBD.Params[3].Value := Prec;
              ZQueryBD.ExecSQL; //Esta! SQL Error near ",": Syntax error.

Ahora, eso con el codigo tal cual como lo pusiste,
yo estuve cambiando un par de cositas, por lo menos en el boton 1
porque hasta que no se arregle no quisiera pasar al otro.

Saludos, Gracias

[[Caral]]

Hola
Todo esto lo estoy haciendo sin probar nada, es logico que tenga errores, mas viniendo de mi,
Revisa los campos de la tabla temporal, no estoy usando el campo monto ya que no me gustaba, eliminalo de la tabla y prueba otra vez.
Saludos

[mamaro]

Que tipo de base de datos estás usando?

[martini002]

Empezado por mamaro

Que tipo de base de datos estás usando?

SQLite con el gestor Zeos para Delphi 2010

[mamaro]

No he utilizado nunca SQLite, pero te diré que los componentes Zeos utilicé durante bastante tiempo con Firebird y ahora tuve que migrar a utilizar los nativos de Delphi porque me daban algunos problemas (a partir de la version 2.1 de Firebird)

Si fuera Firebird te recomendaría que te ahorraras algunos problemas metiendo código dentro de la base de datos (en los Triggers) para calcular los totales de las facturas por ejemplo, utilizar llaves foráneas para verificar la integridad de los datos, y utilizaras el sistema de transacciones para no recurrir a tablas temporales.

Como te lo dije más arriba nunca e utilizado SQLite por lo que no sé si estas cosas son posibles en esa base de datos pero no perderías nada averiguándolo.

[martini002]

Hermano, en la tabla FacturaTemp no hay un campo monto

CREATE TABLE [FacturaTemp] (
[ID] INTEGER PRIMARY KEY AUTOINCREMENT,
[Articulo] CHAR(48),
[Cantidad] INTEGER,
[Precio] DECIMAL);

[[Caral]]

Hola
Curioso un error de sintaxis.
Prueba esto:

Código Delphi [-]
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Insert Into facturaTemp values ( :num, :art, :cant, :bpre )';
              ZQueryBD.Params[0].Value := intToStr(numero);
              ZQueryBD.Params[1].Value := arti;
              ZQueryBD.Params[2].Value := Edit2.Text;
              ZQueryBD.Params[3].Value := Prec;
              ZQueryBD.ExecSQL;

o esto:

Código Delphi [-]
              ZQueryBD.SQL.Text:= 'Insert Into facturaTemp (ID, Articulo, Cantidad, Precio) values ( :num, :art, :cant, :xpre )';
              ZQueryBD.Params[0].Value := IntToStr(numero);
              ZQueryBD.Params[1].Value := arti;
              ZQueryBD.Params[2].Value := Edit2.Text;
              ZQueryBD.Params[3].Value := Prec;
              ZQueryBD.ExecSQL;

Me comentas que paso.
saludos

[martini002]

Sigue igual Caral,
voy a intentar reescribir otra vez,
vamos a ver como me va, usare parametros
y una idea nueva con lo de las tablas.

te agradezco mucho el tiempo y la ayuda

[martini002]

Porfin! Quedo resuelto,
Gracias a todos por su contribucion, en especial a Caral
les muestro como quedo el codigo.

No estoy usando los parametros,
porque me estan dando errores que desconozco

Gracias

Código Delphi [-]
procedure TForm1.BAgregarClick(Sender: TObject);
begin
  if ECodigo.Text<>'' then       //Condicion de codigo en blanco
    begin
      ZQueryBD.Close;
      ZQueryBD.SQL.Text:= 'Select Codigo From Inventario Where Codigo = '+ECodigo.Text;
      ZQueryBD.Open;
      if ZQueryBD.IsEmpty then //Controlar el Codigo del producto
                               //Verifica si es correcto o no entrara a las otras condiciones.
        Begin
          ShowMessage('El Codigo del Producto es Invalido o NO esta Registrado');
        End                    //Controlar el codigo del producto si es correcto
      Else                     //entonces entrara en esta codicion
        begin
          //Si Cantidad es correcta
          if StrToInt(ECantidad.Text)>=1 then
            begin
              //Seleccionamos Producto y precio desde inventario
              //y transferimos a la Factura Temporal
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Insert Into FacturaTemp (Articulo, Cantidad, Precio) Select Articulo, '+
                                   ECantidad.Text+', Precio * '+ECantidad.Text+' From Inventario Where Codigo = '+ECodigo.Text;
              ZQueryBD.Open;

              //Muestro en el DBGrid todo lo de factura
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Select * From FacturaTemp';
              ZQueryBD.Open;

              //Sumo el Total
              ZQuery1.Close;
              ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From FacturaTemp';
              ZQuery1.Open;
              ETotal.Text:= ZQuery1.FieldByName('Suma').AsString +' BsF';
            end
          Else //Cantidad correcta o No
            begin
              ShowMessage('La Cantidad debe ser Mayor o Igual que 1');
            end;
        end;
    end
  Else
    begin
      ShowMessage('Ingrese un Codigo'); //Condicion de codigo en blanco
    end;
end;


procedure TForm1.BDespacharClick(Sender: TObject);
Var
  Codigo :Integer;
  Total  :String;
begin
  //Selecciona monto total para registrar
  Total:='';
  ZQuery1.Close;
  ZQuery1.SQL.Text:= 'Select Sum(Precio) as Precio From FacturaTemp';
  ZQuery1.Open;
  Total:= ZQuery1.FieldByName('Precio').AsString+' BsF';

  //Seleccionar maximo codigo y sumarle 1
  ZQuery1.Close;
  ZQuery1.SQL.Text := 'Select Max(CodigoFactura) as CodigoFactura from FacturaDetalle';
  ZQuery1.Open;
  Codigo:= ZQuery1.FieldByName('CodigoFactura').AsInteger;
  Codigo:= Codigo+1;

  //Transferir datos desde la temporal a la final
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into FacturaDetalle Select '+IntToStr(Codigo)+', Articulo, Cantidad, Precio From FacturaTemp';
  ZQueryBD.ExecSQL;

  ZQueryBD.SQL.Text:= 'Delete From facturaTemp';
  ZQueryBD.ExecSQL;

  ETotal.Text:='0.00 BsF';
  ECodigo.Text:='';
  ECantidad.Text:='1';
end;