Error Sumando Columnas SQL

[[Caral]]

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

[martini002]

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

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