Como puedo calcular Stock ...

[[Caral]]

Hola
Quitale el where que es el que define y te dara la suma de todos.
Saludos

[ilichhernandez]

Hola Caral, buenos dias, mira lo que sucede es que al quitarle el where (que ya acabo de probar) me da efectivamente el total pero como total general, o sea un resultado, pero yo lo que necesito obtener es el resultado para cada producto .....o sea por ejemplo....

Cajas tipo 1 1500
Cajas tipo 2 8000
Bolsas tipo 1 2000
etc...

Por eso he intentado el While pero pierdo el dato anterior.....

[[Caral]]

Hola
Que Base de datos usas?
Lo comento por que necesitas un DISTINCT, pero en algunas BD funciona y en otras hay que recurrir a max o min.
Saludos

[ilichhernandez]

Estoy trabajando con Interbase 6.5, he ocupado alguna vez el disctint.....saludos

[[Caral]]

Hola
Intenta asi:

Código Delphi [-]
while not dm1.TBLEnvases.eof do
Begin
dm1.Qtemp.SQL.clear;
dm1.Qtemp.SQL.Text := 'Select DISTINCT ingre.codenvases, (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock, '+
                 ' From Ingre, Egresos where ingre.codenvases = Egresos.codenvases '+
                 ' and ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ;
dm1.Qtemp.open;
vartext1  := dm1.Qtemp.FieldByName('Stock').AsString; end;
end;

Saludos

[ilichhernandez]

Hola, disculpa la molestia nuevamente, he intentado con el ultimo codigo que has colocado y me arroja un error "INVALID COLUMN REFERENCE", he revisado los campos y son los adecuados y las tablas tambien....

Código Delphi [-]
procedure TFstock.FormShow(Sender: TObject); 
var cadena,vartext1 : string; 
begin 
while not dm1.TBLEnvases.eof do 
Begin dm1.Qtemp.SQL.clear; 
dm1.Qtemp.SQL.Text := 'Select DISTINCT ingre.codenvases, (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock '+ 
      ' From Ingre, Egresos where ingre.codenvases = Egresos.codenvases '+ 
      ' and ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ; 
dm1.Qtemp.open; 
end; 
end;

gracias....

[[Caral]]

Hola
Es que como no tengo nada de lo que tu tienes a la mano solo puedo creer que dara resultado.
Prueba quitando cosas:

Código Delphi [-]
procedure TFstock.FormShow(Sender: TObject); 
var cadena,vartext1 : string; 
begin 
while not dm1.TBLEnvases.eof do 
Begin dm1.Qtemp.SQL.clear; 
dm1.Qtemp.SQL.Text := 'Select DISTINCT ingre.codenvases, (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock '+ 
      ' From Ingre, Egresos where ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ; 
dm1.Qtemp.open; 
end; 
end;

o asi:

Código Delphi [-]
procedure TFstock.FormShow(Sender: TObject); 
var cadena,vartext1 : string; 
begin 
while not dm1.TBLEnvases.eof do 
Begin dm1.Qtemp.SQL.clear; 
dm1.Qtemp.SQL.Text := 'Select DISTINCT (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock , ingre.codenvases '+ 
      ' From Ingre, Egresos where ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ; 
dm1.Qtemp.open; 
end; 
end;

Solo puedo imaginar lo que sucede.
Saludos
PD: Ademas no le puedes pedir mucho a este Novato, que esta para aprender.