Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Debates (https://www.clubdelphi.com/foros/forumdisplay.php?f=29)
-   -   Debate de Inventarios (https://www.clubdelphi.com/foros/showthread.php?t=409)

cmgenny 14-05-2003 07:15:19

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.

marcoszorrilla 14-05-2003 08: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 09: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
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



La franja horaria es GMT +2. Ahora son las 17:14:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi