Error Sumando Columnas SQL
 

Saludos amigos, donde quiera que se encuentren.

En el siguiente codigo, podran darse cuenta que funciona
como un ciclo infinito, hasta que el usuario decida detener
el programa, basicamente lo que hacemos es agregar en una tabla temporal
algunos datos para visualizarlos en un grid, luego vaciamos esos datos
en nuevas tablas para el registro de facturas, y luego limpia la tabla temporal
para poder crear nuevas facturas.

El problema consiste en lo siguiente:
agregamos los articulos con el boton1 y luego cuando tengamos
los que queramos, entonces despachamos la orden con el boton2
la cuestion es que cuando vuelo a agregar articulos,
se tranca el proceso. Justo cuando esta sumando, en esta linea:

Código Delphi [-]
ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From Factura';

La primera vez el lo hace bien, todo correcto,
pero la segunda vez ya no pasa de alli.

Hechenle un vistazo al codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text<>'' then
    begin
      ZQueryBD.Close;
      ZQueryBD.SQL.Text:= 'Select Codigo From Inventario Where Codigo = '+Edit1.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
      Else
        Begin
          if StrToInt(Edit2.Text)>=1 then
            begin
              DataSourceBD.Enabled:= True;
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Insert Into Factura (Articulo, Cantidad, Precio) Select Articulo, '+Edit2.Text+', Precio*'+Edit2.Text+' From Inventario Where Codigo = '+Edit1.Text;
              ZQueryBD.ExecSQL;
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Select * From Factura';
              ZQueryBD.Open;
              ZQuery1.Close;
              ShowMessage('La suma de los precios');
              //Aqui se tranca
              ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From Factura';
              ShowMessage('agregado');
              //Justo aqui abajo, no abre el query
              ZQuery1.Open;
              ShowMessage('sumados');
              Edit3.Text:= ZQuery1.FieldByName('Suma').AsString+' BsF';
              Monto:= ZQuery1.FieldByName('Suma').AsString;
            end
          Else
            begin
              ShowMessage('La Cantidad debe ser Mayor o Igual que 1');
            end;
        End;
    end
  Else
    begin
      ShowMessage('Ingrese un Codigo');
    end;
end;


procedure TForm1.Button2Click(Sender: TObject);
Var
  Codigo:Integer;
begin
  DataSourceBD.Enabled:= False;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ('+Monto+', Date(), Time())';
  ZQueryBD.ExecSQL;
  ZQuery1.Close;
  ZQuery1.SQL.Text:= 'Select Max(CodigoFactura) as CodigoFactura From RFac';
  ZQuery1.Open;
  Codigo:= ZQuery1.FieldByName('CodigoFactura').AsInteger;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Create Table F_'+IntToStr(Codigo)+' (NumArticulo Integer Not Null Primary Key AutoIncrement, Articulo Char(48), Cantidad Integer, Precio Decimal)';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into F_'+IntToStr(Codigo)+' (Articulo, Cantidad, Precio) Select Articulo, Cantidad, Precio From Factura';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into F_'+IntToStr(Codigo)+' (Precio) Values ('+Monto+')';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Delete From Factura';
  ZQueryBD.ExecSQL;
  Monto:='';
  Edit3.Text:='0.00 BsF';
  Edit1.Text:='';
end;

Gracias siempre por su tiempo y su apoyo :)

Hola
Cuando vuelves a agregar productos, antes o despues de eliminar los datos de la tabla temporal ?.
Saludos

Tal vez tienes que mandar un "commit" despues de cada transaccion, creo que al final de cada ciclo.

Yo no uso Zeos, pero checa a ver si se aplica el concepto de concluir una transaccion antes de empezar otra.

Despues de darle click al segundo boton,
luego de agregar los nuevos registros y crear la tabla nueva
con los valores de la nueva factura;
despues de borrar la tabla temporal.

Pienso que podria haber un problema
entre el ZQuery1 del primer boton
y el ZQuery1 del segundo, he intentado con otro ZQuery
pero me da otro error :/

Hola
Para mi gusto esta algo desordenado. no entiendo bien el concepto.
Hay variables que son globales, no me parece.
No se que BD usas, eso complica algo mas el asunto.
No entiendo como el articulo y el precio estan en el mismo edit ?

Código Delphi [-]
Select Articulo, '+Edit2.Text+', Precio*'+Edit2.Text+' From Inventario

Bueno, no entiendo como te complicas la vida amigo.:);)
Saludos

Bueno estoy usando SQLite,

Esto basicamente, multiplica la Cantidad por el Precio y me da un subtotal
el Edit2 corresponde a la Cantidad, Estoy usando una variable global "Monto"
porque necesito ese dato en el otro Procedimiento.

Código Delphi [-]
Select Articulo, '+Edit2.Text+', Precio*'+Edit2.Text+' From Inventario

Pues sigo estancado aqui, he intentado de todo pero hasta ahora
no he tenido nada de avance :/
si hay un poco de desorden, pero los momentos solo quiero que funcione
ya despues con mas calma cuando este modulo este listo, entonces
comienzo a agregarle los comentarios, y algunas condiciones de control,
detallitos pues :)

Hola
Sigo sin entender.
Cuando se hace una factura esta tiene un numero UNICO.
Se hace sobre la tabla directa y si se requiere eliminar un item se elimina sin problemas.
Cuando usas una tabla temporal no necesitas eliminar los datos ya que te podrian servir de algo, pero lo veo innecesario.
Lo que no veo es ningun numero que identifique la factura.
No vi el signo de multiplicar, por eso me parecio raro, aun asi creo que estas complicandote la vida sin necesidad.
Saludos

Amigo, te aconsejo que primero leas este libro, luego lo verás todo de otra forma.

Casimiro te agradezco mucho tu consejo,
pero no puedo leerme todo ese libro para poder resolver este problemita,
te agradeceria aun mas, si me dijeras mas o menos que partes me recomiendas,
a mi me gusta ir aprendiendo de acuerdo a las necesidades,
yo tengo la Cara Oculta de Delphi 6, no se si tambien sea conveniente,
ademas tengo a mano el manual de SQL que lo he venido leyendo
a medida que estoy manejando estas BD, pues soy nuevo con esto.

Edito, No habia leido tu comentario Caral.

Mira, el codigo de la factura se guarda,
uso una tabla para almacenar los registros de:
NumeroFactura y MontoFactura
para que se haga mas facil para mi la lectura de este.

uso la tabla temporal porque necesito mostrarla en un DBGRid,
y alli se editara que es lo que queremos agregar y eliminar o modificar,
una vez tengamos eso listo, entonces procedemos a guardar y registrar todo

Gracias

Saludos

Hola
Busca un commit.
ZQueryBD.commit.
Me avisas si esta.
saludos

No creo que hay ZQueryBD.commit;
pero si logre encontrar un ZQueryBD.CommitUpdates;
:/

Hola
Intenta esto es esta linea:

Código Delphi [-]
 ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Delete From Factura';
  ZQueryBD.ExecSQL;
  ZQueryBD.CommitUpdates;

Saludos

Bueno,
probe esto que me dices, pero me da un error,
dice que no puede ejecutar esto: "ZQueryBD.CommitUpdates;"
si esta cerrado, entonces lo coloque asi:

Código Delphi [-]
  ZQueryBD.SQL.Text:= 'Delete From Factura';
  ZQueryBD.ExecSQL;
  ZQueryBD.Open;
  ZQueryBD.CommitUpdates;

Y continua pues, pero me sigue dando el error incial,
no puedo agregar otra factura.

Hola
Pensando............
Saludos
PD: No te desesperes, estamos en esto.

Te lo agradezco, yo he estado
pensando en esto mucho mucho,
inclusive, en cambiar la logica
y crearlo de otra forma mas eficiente.

Hola
A ver por partes que hacemos.
Yo diria que no necesitas dos consultas para la suma, cambiaria por esto:

Código Delphi [-]
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Select Articulo, Cantidad, Precio, Sum(Precio) as Suma  From Factura' +
                                  ' Group By Articulo, Cantidad, Precio' ;
              ZQueryBD.Open;
            //  ZQuery1.Close;
            //  ShowMessage('La suma de los precios');
              //Aqui se tranca
            //  ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From Factura';
              ShowMessage('agregado');
              //Justo aqui abajo, no abre el query
            //  ZQuery1.Open;
              ShowMessage('sumados');
              Edit3.Text:= ZQueryBD.FieldByName('Suma').AsString+' BsF';
              Monto:= ZQueryBD.FieldByName('Suma').AsString;
            end

Empecemos por aqui, me dices si te sirve o si te gusta.:)
Saludos

Me gusto mucho esa solucion,
porque acortas bastante el codigo,
ya no presenta el error cuando agregaba otro producto,
pero ahora me presenta un error en el segundo boton,
se tranca en la linea que esta descrita abajo,
y entonces no crea las tablas ni borra la temporal tampoco.
creo que podemos aplicar la misma tecnica que arriba,
intentare a ver como me va :D

mira aqui:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var
  Codigo:String;
begin
  DataSourceBD.Enabled:= False;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into RFac (Monto, Fecha, Hora) Values ('+Monto+', Date(), Time())';
  ZQueryBD.ExecSQL;
  ZQuery1.Close;
  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Text:= 'Select Max(CodigoFactura) as CodigoFactura From RFac';
  ZQuery1.Open;
  //Justo aqui Abajo.
  Codigo:= ZQuery1.FieldByName('CodigoFactura').AsString;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Create Table F_'+Codigo+' (NumArticulo Integer Not Null Primary Key AutoIncrement, Articulo Char(48), Cantidad Integer, Precio Decimal)';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into F_'+Codigo+' (Articulo, Cantidad, Precio) Select Articulo, Cantidad, Precio From Factura';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Insert Into F_'+Codigo+' (Precio) Values ('+Monto+')';
  ZQueryBD.ExecSQL;
  ZQueryBD.Close;
  ZQueryBD.SQL.Text:= 'Delete From Factura';
  ZQueryBD.ExecSQL;
  Monto:='';
  Edit3.Text:='0.00 BsF';
  Edit1.Text:='';
end;

Hola
La verdad estoy algo perdido.
Me gustaria saber:
1- que campos tiene la tabla factura.
2- que campos tiene la tabla RFac
3- estas creando una tabla por cada numero de factura ????
Saludos

hahaha Si :S estoy seguro que es lo menos eficiente,
pero hasta ahorita no he logrado dar con un formato
"amigable" para lograr almacenar todos los detalles de cada factura en una sola tabla,

Vamos con los campos:

Estos son los DDL que me da el SQLite Personal Expert

Para Tabla Factura
Para RFac
Gracias

Hola
Lo modificamos del todo ?
Saludos

Tan mal esta? :(
bueno, podemos trabajar en eso,
estoy siempre abierto a las nuevas propuestas,

Gracias

Hola
No es que este mal, estas complicandote la vida, a mi no me gusta complicarmela.
Vamos a ver que te parece este concepto:

1- tenemos una tabla temporal (facturaTemp) con los campos:
[ID] INT,
[Articulo] CHAR(48),
[Cantidad] INT,
[Precio] DECIMAL);
[Monto] DECIMAL,

2- tenemos una tabla factura con los campos:
[CodigoFactura] INTEGER NOT NULL PRIMARY KEY,
[Monto] DECIMAL,
[Fecha] DATE,
[Hora] TIME);

3- tenemos una tabla FacturaDetalle con los campos:
[CodigoFactura] INTEGER NOT NULL PRIMARY KEY,
[Articulo] CHAR(48),
[Cantidad] INT,
[Precio] DECIMAL);

con esto no se creara ninguna tabla por factura, cada factura estara detallada en su tabla y los items en la tabla correspondiente, ademas si se toma el dato del monto no se necesita una variable global.
Que opinas ?
saludos

Me parece bien,
lo que no logro entender muy bien,
es como vas a conocer que Items pertenecen
a una factura X?

Hola
Tienes una tabla factura con el campo [CodigoFactura] y tienes una tabla detallefactura con el mismo campo [CodigoFactura]
Cuando vas a ver que items pertenecen a la factura X se hace una sentecia sql sencilla de dos tablas.
Saludos

Perfecto, lets do it then!
voy a modificar todo el programa entonces,
para evitar hacer todo desde 0 eso es sencillito :)

Hola
Hazte un ejemplo en otro programa, veras lo que hacemos y luego modificas el programa si te convence.
Saludos.
PD: Pense que me preguntarias sobre el campo MONTO en la tabla temporal ya que ese campo se hace un UPDATE por Item. :)

Ya tengo un respaldo de mi programita,
no te creas aun me queda la duda, de saber exactamente
como conoces los items de una factura, entiendo que los vincules,
y quiza el Monto sea el separador de Items? algo asi habia pensado antes,
pero realmente no se como automatizar la lectura y escritura de eso.

Hola
Bien, ya lo entenderas.
De momento modifica las tablas con los campos que puse antes y crea la tabla que falta, una vez hecho me dices.
Saludos

Listo, con los mismos nombres y todo!

Edito:
Tambien tenemos la tabla inventario:

Hola
Boton 1:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var 
numero, arti: String;
Prec : Real;
begin
  if Edit1.Text<>'' then
    begin
      ZQueryBD.Close;
      ZQueryBD.SQL.Text:= 'Select Codigo From Inventario Where Codigo = '+Edit1.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
      Else
        Begin
          if StrToInt(Edit2.Text)>=1 then
               begin
            // Numero ID
                      ZQueryBD.Close;  
                      ZQueryBD.SQL.Text := 'Select Max(ID) from facturaTemp';
                      ZQueryBD.Active := true;
                      try
                      numero := IntToStr(ZQueryBD.Fields[0].AsInteger+1);
                      except
                      numero := '1';
                      end;
                      ZQueryBD.Active :=False;
                      end;
              
              // obtengo el articulo y el precio
              ZQueryBD.SQL.Text:= 'Select Articulo, Precio * '+Edit2.Text+' from Inventario Where Codigo = '+Edit1.Text;
              ZQueryBD.Open;
              // guardo los datos en las variables
              arti:= ZQueryBD.Fields[0].Asstring;
              Prec:= FloatToStr(ZQueryBD.Fields[1].AsFloat);
             
             // inserto en la tabla temporal
              DataSourceBD.Enabled:= True;
              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;
 
              // selecciono los datos de la tabla
              ZQueryBD.Close;
              ZQueryBD.SQL.Text:= 'Select * From facturaTemp';
              ZQueryBD.Open;
             
              // sumo el precio
              ZQuery1.Close;
              ZQuery1.SQL.Text:=  'Select Sum(Precio) as Suma From facturaTemp';
              ShowMessage('agregado');
              ZQuery1.Open;
              ShowMessage('sumados '+ZQuery1.Fields[0].Asstring +' BsF';
             
              Edit3.Text:= ZQuery1.FieldByName('Suma').AsString +' BsF';
              end
          Else
            begin
              ShowMessage('La Cantidad debe ser Mayor o Igual que 1');
            end;
        End;
    end
  Else
    begin
      ShowMessage('Ingrese un Codigo');
    end;
end;

Vamos por aqui, si tienes dudas avisa
Saludos

Esta muy bien, lo entiendo,
solo estoy arreglando unos detallitos con unos End, y unos Begin,
te los comiste antes haha

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

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

Acabo de ver este mensaje, ha sido un lapsus, era para otro usuario en otro hilo :D

Casimiro, Help!

Pon un 'breakpoint' en qquerybd.execquery y mira lo que contiene la sentencia y los parámetros que se le pasan.

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

Que tipo de base de datos estás usando?

Hermano, en la tabla FacturaTemp no hay un campo monto

SQLite con el gestor Zeos para Delphi 2010