Error Sumando Columnas SQL

[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

[martini002]

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

[[Caral]]

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

[martini002]

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

[[Caral]]

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.

[martini002]

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.

[[Caral]]

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

[martini002]

Listo, con los mismos nombres y todo!

Edito:
Tambien tenemos la tabla inventario:

CREATE TABLE [Inventario] (
  [Codigo] INT, 
  [Articulo] CHAR(48), 
  [Precio] DECIMAL, 
  [Stock] INT);

CREATE UNIQUE INDEX [CodigoUnique] ON [Inventario] ([Codigo]);

[[Caral]]

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

[martini002]

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

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

[Casimiro Notevi]

Empezado por Casimiro Notevi

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

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

[martini002]

Empezado por Casimiro Notevi

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

Casimiro, Help!

[Casimiro Notevi]

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

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

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);

[martini002]

Empezado por mamaro

Que tipo de base de datos estás usando?

SQLite con el gestor Zeos para Delphi 2010