Como puedo calcular Stock ...

[ilichhernandez]

Compañeros, este programa lo estoy haciendo para una empresa Chilena, y como mencionan por ahí efectivamente el stock al que hago referencia es la existencia de un determinado producto....voy a probar con la idea de Caral a ver como me va.....no sabia que se podía hacer eso directamente así.....gracias.... les cuento luego....

[ilichhernandez]

Estimados, la sentencia que me facilito caral, efectivamente me devuelve el stock , solo que para un código, estoy intentando adaptar esto para que pueda obtener la existencia de todos los productos ....y va mas o menos asi... pero al hacerlo de esta manera pierdo siempre el valor anterior... que será mejor.... realizar una tabla temporal donde colocar los datos a medida que los calculo??......una ayudita, gracias.....

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

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