Error Sumando Columnas SQL

[[Caral]]

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

[martini002]

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

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;

[[Caral]]

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

[martini002]

estas creando una tabla por cada numero de factura ????

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

CREATE TABLE [Factura] (
  [Articulo] CHAR(48), 
  [Cantidad] INT, 
  [Precio] DECIMAL);

Para RFac

CREATE TABLE [RFac] (
  [CodigoFactura] INTEGER NOT NULL PRIMARY KEY, 
  [Monto] DECIMAL, 
  [Fecha] DATE, 
  [Hora] TIME);

Gracias

[[Caral]]

Hola
Lo modificamos del todo ?
Saludos

[martini002]

Empezado por Caral

Hola
Lo modificamos del todo ?
Saludos

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

Gracias

[[Caral]]

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