FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Debate de Inventarios
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.
__________________
Y recueda que no hay preguntas tontas, si no, tontos que no preguntan. Sr. Genny Cris Morillo Santos Estudiante ING. Sistemas Santo Domingo D.N. |
#2
|
||||
|
||||
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. |
#3
|
|||
|
|||
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 Código:
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 Última edición por pedrohdez fecha: 14-05-2003 a las 09:43:15. |
|
|
|