PDA

Ver la Versión Completa : Debate de Inventarios


cmgenny
14-05-2003, 08:15:19
Holas

Esto no es una pregunta exactamente es mas bien un debate acerca de el famoso INVENTARIO. Todos talvez de alguna o de otra manera lo hemos utilizado en nuestras aplicaciones. La pregunta surge, cual seria la mejor forma de implementarlo?, es decir, la forma mas optima.

Yo particularmente lo he tratado de hacer de varias maneras.

1 - Que la existencia se valla descontando y cuando esta sea cero se acabo y luego ir agregando mas.

2 - Que la existencia sea una tabla independiente de la de articulos.

3 - Que la cantidad total se reste a la salida y te de la existencia.

Estas son alguna de las formas que yo le he dado al inventario en aplicaciones en las que practico y me gustaria saber como lo manejan ustedes.

Gracias a todos y esperando que se animen a conversar un poco y a darme sus puntos de vista.

marcoszorrilla
14-05-2003, 09:00:45
A mi modo de ver, las existencias deben de ser una tabla a parte.

Tendríamos al empezar el ejercicio las existencias iniciales de cada producto, ya que cada vez que se haga una compra nos incrementa las existencias y nos restará al hacer una venta.

Esto se alimentará por medio de las líneas de las facturas de compra y las facturas de venta.

Ademas tendrá que haber otra tabla para las regularizaciones, es decir productos que se pierden por rotura, robo.....


De esta manera en cualquier momento podremos recalcular las existencias.

Partimos de las iniciales, le sumamos a cada producto las compras, le restamos las ventas y finalmente recorremos la tabla regularizaciones para añadir o restar las que desaparecieron o aparecieron súbitamente.


Un Saludo.

pedrohdez
14-05-2003, 10:38:33
Me apunto con MarcosZorrilla, si mantienes un acumulado en la ficha del articulo, no podras validar ese numero, es mejor tener un registro de los movimientos que te permita reconstruir ese numero, obtener precios medios y demas.
En el ultimo que monte deje la posibilidad de introducir inventarios en cualquier momento, el problema para conocer el stock de un articulo es localizar el apunte de inventario mas cercano y acumular a partir de el, aqui os pongo el storeproc que uso para automatizarlo, a ver si le veis pegas o mejoras, por supuesto se aceptan criticas y comentarios ;-D
ALTER PROCEDURE "STOCKARTICULO"
(
"ARTICULO" VARCHAR(6) CHARACTER SET ISO8859_1,
"FECHA" DATE
)
RETURNS
(
"INVENTARIO" INTEGER,
"ENTRA" INTEGER,
"SALE" INTEGER,
"MERMA" INTEGER,
"VENTA" INTEGER,
"STOCK" INTEGER,
"PRECIOMEDIO" DOUBLE PRECISION
)
AS
declare variable Inicio Date;
declare variable flag integer;
declare variable tmp integer;
declare variable pvp double precision;
declare variable tipo char(1);
BEGIN
Entra= 0;
Sale= 0;
merma= 0;
Venta= 0;
preciomedio= 0;
Stock= 0;
flag= 0;
/* Buscamos el primer inventario, no nos queda mas remedio que usar un for */
for select Fecha, Unidades, Precio from ArtMueve
where Articulo=:Articulo and TipoMueve='I' and Fecha <=:Fecha
order by Fecha desc into :Inicio, :tmp, :pvp do begin
/* Hay fecha inicial, la primera vez sumamos, el resto se desechan*/
if (flag=0) then begin
Inventario= tmp;
PrecioMedio= pvp*tmp;
/* Acumulamos por tipo de movimiento */
for select TipoMueve, sum(Unidades), sum(Unidades*Precio) from ArtMueve
where Articulo=:Articulo and Fecha>:Inicio and Fecha <=:Fecha
group by TipoMueve into :tipo, :tmp, :pvp do begin
if (tipo='E') then begin
Entra= Entra+tmp;
PrecioMedio= PrecioMedio+pvp;
end
if (tipo='S') then Sale = Sale +tmp;
if (tipo='M') then Merma = Merma +tmp;
end
/* Sumamos las ventas producidas */
select sum(Unidades) from ArticuloGasto
where Articulo=:Articulo and Fecha>:Inicio and Fecha<=:Fecha
into :tmp;
if (tmp is not null) then Venta= Venta;
flag= 1;
end
end

/* No hay inventario inicial, asi que actuamos sin fechas */
if (flag=0) then begin
for select TipoMueve, sum(Unidades) from ArtMueve
where Articulo=:Articulo and Fecha<=:Fecha
group by TipoMueve into :tipo, :tmp do
if (tipo='E') then begin
Entra= Entra+tmp;
PrecioMedio= PrecioMedio+pvp;
end
if (tipo='S') then Sale = Sale +tmp;
if (tipo='M') then Merma = Merma +tmp;
select sum(Unidades) from ArticuloGasto
where Articulo=:Articulo and Fecha<=:Fecha into tmp;
if (tmp is not null) then Venta= tmp;
end
Stock= Inventario+Entra-Sale-Merma-Venta;
if ((Inventario+Entra)<> 0) then
PrecioMedio= PrecioMedio/(Inventario+Entra);
else
PrecioMedio= 0;
suspend;
END