Como puedo calcular Stock ...

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

[ilichhernandez]

Hola, Caral.... voy a probar los cambios que tan amablemente has expuesto aquí.... oye y en lo referente a lo de novato.....guau....ya me gustaría ser un novato con tantos conocimientos.....muchísimos saludos y gracias.....ahí me conecto y cuento como va el tema.....

[[fjcg02]]

Espero que te oriente

Código SQL [-]
SELECT CODIGOARTICULO, SUM(CAMPO1)-SUM(CAMPO2) AS STOCK
WHERE
 [LAS CONDICIONES QUE TU QUIERAS]
GROUP BY CODIGOARTICULO
 [OPCIONAL]
HAVING SUM(CAMPO1)-SUM(CAMPO2) > 10

En el Group By siempre los campos que no aparezcan con una función de agregado SUM, AVERAGE, MIN, MAX, ...
En cualquier manual de SQL podrás encontrar ejemplos.

Saludos

[ilichhernandez]

Hola, bueno gracias a todos por el tiempo y las dudas que han resuelto,les cuento que al final este tema no me ha funcionado tan bien como debía asi que opté por una solución distinta..... una tabla temporal que almacena los valores de existencias y esta la despliego en la grid que quiero mostrar.....

Saludos