Ver Mensaje Individual
  #12  
Antiguo 13-11-2009
ekbadel ekbadel is offline
Registrado
 
Registrado: may 2007
Posts: 7
Reputación: 0
ekbadel Va por buen camino
Smile

Cita:
Empezado por Carmelo Cash Ver Mensaje
Hola foro:
Será posible hacer una conculta que de como resultado la siguiente salida?.
La tabla es algo así:
Fecha--- Detalle--Cantidad
01/01/07 Compra_____5
02/01/07 Venta_____ -1
03/01/07 Venta_____ -3
04/01/07 Compra____ 2

Y el la salida que necesito es:
Fecha--- Detalle--Entrada--Salida--Stock
01/01/07 Compra____5______ 0_____5
02/01/07 Venta_____0______-1_____4
03/01/07 Venta_____0______-3_____1
04/01/07 Compra____2______ 0_____3

Estoy usando InterBase.
Bueno, Si alguno tiene una idea le agradeceré infinitamente.

Personalmente no se como tengas tu Tabla de Stock, en un programa ke ice para Salir de l Universidad mi tabla tiene

Periodo
idarticulo
cantidadinicial
cantidadanterior
cantidadActual

NumeroEntradas
NumeroSalidas
TotalMovimiento

y mi query la lanzo asi.

qryPeriodo.Close;
qryPeriodo.ParamByName('Periodo').AsString := dbe_periodo.Text;
qryPeriodo.Open;
if qryPeriodo.IsEmpty then
ShowMessage('error')
else
While Not qryperiodo.Eof Do Begin
qryperiodo2.Open;
qryperiodo2.Edit;
qryperiodo2Periodo.Value := dbe_sigperiodo.text;
qryperiodo2idarticulo.value := qryperiodoIdArticulo.Value;
qryperiodo2ExistenciaInicial.Value := qryperiodoExistenciaFinal.Value;
qryperiodo2ExistenciaActual.Value := qryperiodo2ExistenciaInicial.Value;
qryperiodo2CostoProInicial.Value := qryperiodoCostoProActual.Value;
qryPeriodo2.Post;
qryperiodo2.Close;
qryperiodo.Next;
end;
except
on e:exception do begin
showmessage(e.message);
end;
end;


Espero te sirva de algo lo hice con Firebird 1.5

Saludos..
Responder Con Cita