Jump to content

Archived

This topic is now archived and is closed to further replies.

Enigma25

Control de stock en excel con access

Recommended Posts

P.D. El problema que tengo es con el saldo actual el cual seria en base a una consulta donde reste l cantidad entrada - la cantidad de salida. He tratado con el que tenia anteriormente pero es raro que hoy ya no me salga.

Share this post


Link to post
Share on other sites

P.D. Creo que ya di con la posible solucion. Estoy probando y todo bien:

  SQL = " SELECT" & _
        " T.Codigo As Cod," & _
        " T.Detalle As Detal," & _
        " T.Id_Und, T.Costo As Costo, T.Precio As Precio," & _
        " U.Id_Und, U.Abreviatura As Unidad," & _
        "(SELECT SUM(T1.Cantidad) FROM Tb_Detalle_Compra T1 Where T.Codigo=T1.Codigo) - (SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T.Codigo=T2.Codigo) As Saldo" & _
        " FROM Tb_Productos T," & _
        " Tb_Unidad U" & _
        " Where T.Id_Und=U.Id_Und" & _
        " And T.Codigo='" & Dato & "'"

La idea es hacer dos consultas por separado (Idea daba por mi hermano [uSER=206490]@Cesar Durand[/uSER] ) y que segun puedo ver me funciona. Solo basta que me confirme si está correcta.

Saludos.

Share this post


Link to post
Share on other sites

...La emoción duró poco. No funciona bien. Resulta que este tipo de consulta funciona solo si tiene registro de entrada y salidas, de lo contrario, solo muestre valor 0.

  SQL = " SELECT" & _
        " T.Codigo As Cod," & _
        " T.Detalle As Detal," & _
        " T.Id_Und, T.Costo As Costo, T.Precio As Precio," & _
        " U.Id_Und, U.Abreviatura As Unidad," & _
        "(SELECT SUM(T1.Cantidad) FROM Tb_Detalle_Compra T1 Where T.Codigo=T1.Codigo) - (SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T.Codigo=T2.Codigo) As Saldo" & _
        " FROM Tb_Productos T," & _
        " Tb_Unidad U" & _
        " Where T.Id_Und=U.Id_Und" & _
        " And T.Codigo='" & Dato & "'"

Seguiré buscando.

Saludos.

Share this post


Link to post
Share on other sites

Muy cierto pero dicha solución no la puse en practica en el proyecto dado que ya estaba diseñado con la de Restar y/o Sumar la cantidad del inventario con un Update. Algo asi como:

Cnn.Execute "Update Tabla1 Set Campo_Stock=Campo_Stock+" Cantidad

Entonces me vi en la necesidad de implementar dado que me sugieren emplearla para descartar el Update. Pero poniendo en prueba la consulta veo que no me muestra la cantidad como deberia ser.

Esta es la solución que me diste hermano:


Rs.Open "Select Tb_Productos.Cod As CC, Tb_Productos.Detalle As Detal, Tb_Productos.UMV As Un," & _
" Tb_Detal_OrdenE.Cod As E, Sum(Tb_Detal_OrdenE.Cantidad) As CanE," & _
" Tb_Detal_OrdenS.Cod As S, Sum(Tb_Detal_OrdenS.Cantidad) As CanS" & _
" From ((Tb_Productos" & _
" Left Join Tb_Detal_OrdenE ON" & _
" Tb_Detal_OrdenE.Cod=Tb_Productos.Cod)" & _
" Left Join Tb_Detal_OrdenS On" & _
" Tb_Detal_OrdenS.Cod=Tb_Productos.Cod)" & _
" WHERE Tb_Productos.Cod= '" & CmbCodigo & "'" & _
" Group By Tb_Productos.Cod, Tb_Productos.Detalle, Tb_Productos.UMV, Tb_Detal_OrdenE.Cod,Tb_Detal_OrdenS.Cod", Cnn, adOpenKeyset, adLockOptimistic, adCmdText

[/Code]

Pero el caso es que si ingreso 150 unidades, luego otras 150 de un producto, posteriormente le hago una salida de 150...deberían quedar 150 y sucede que no me sale nada.

En otros casos, doy dos ingreso de 250 c/u y hago una salida de 235, debería restarme 265 y me sale 30. Es por ello que tengo dicho inconveniente.

Share this post


Link to post
Share on other sites

Adjunto archivo para mayor enfoque. Este es un ejemplo del como tengo las tablas del proyecto.

De antemano gracias. Se que es un tema gastado y que seguro lo deben manejar muy bien pero mi cuestión es que no podría confiar en que una consulta me de o no el stock real si haber verificado sus pro y contras.

De hecho ya estaba por darme por vencido y quedarme con el Update todo tiene su ventaja como desventaja.

Si tienes una idea del cual es el problema, bienvenida mi hermano, si no...Me meteré a panadero jejejeje y dejo esto jejeje"

Aporte Normalizacion.zip

Share this post


Link to post
Share on other sites
...La emoción duró poco. No funciona bien. Resulta que este tipo de consulta funciona solo si tiene registro de entrada y salidas, de lo contrario, solo muestre valor 0.

  SQL = " SELECT" & _
        " T.Codigo As Cod," & _
        " T.Detalle As Detal," & _
        " T.Id_Und, T.Costo As Costo, T.Precio As Precio," & _
        " U.Id_Und, U.Abreviatura As Unidad," & _
        "(SELECT SUM(T1.Cantidad) FROM Tb_Detalle_Compra T1 Where T.Codigo=T1.Codigo) - (SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T.Codigo=T2.Codigo) As Saldo" & _
        " FROM Tb_Productos T," & _
        " Tb_Unidad U" & _
        " Where T.Id_Und=U.Id_Und" & _
        " And T.Codigo='" & Dato & "'"

Seguiré buscando.

Saludos.

con esta debería funcionarte, agregue una compra para el codigo SASSA y lo deje sin ventas, y funciona correctamente

SELECT T.Codigo As Cod, T.Detalle As Detal, T.Id_Und, T.Costo As Costo,
T.Precio As Precio, U.Id_Und, U.Abreviatura As Unidad,
(
(SELECT SUM(T1.Cantidad) FROM Tb_Detalle_Compra T1 Where T1.Codigo = T.Codigo) -
IIF(ISNULL((SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T2.Codigo = T.Codigo)),0,
(SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T2.Codigo = T.Codigo))
) As Saldo
FROM Tb_Productos T,
Tb_Unidad U
Where T.Id_Und=U.Id_Und
And T.Codigo='SASSA'[/CODE]

saludos

Share this post


Link to post
Share on other sites

Hermano [uSER=133908]@bigpetroman[/uSER] Mis respetos hermano.

Excelente la solución!!!!. No se porque no lo ví pero imagino que por estar atorado en el problema no veo las cosas claras ademas que me falta mas aprender mas sobre sql. Estoy probandolo con solo entradas sin salidas he igual funciona perfecto.

Me tomé la libertad de reducir la condición a esta:

Anterior:

" IIF(ISNULL((SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T2.Codigo = T.Codigo)),0," & _
''            " (SELECT SUM(T2.Cantidad) FROM Tb_Detalle_Venta T2 Where T2.Codigo = T.Codigo))" & 

Modificación:

(SELECT SUM(IIF(T2.Cantidad>0,T2.Cantidad,0))

Y tambien funciona.

Seguiré probando para asegurarme que todo esté bien para continuar con el proyecto.

Un saludo cordial [uSER=133908]@bigpetroman[/uSER]

Share this post


Link to post
Share on other sites

hola [uSER=98799]@Enigma25[/uSER]

excelente trabajo creado en excel, me ha servido de mucho ayuda.

hoy traigo un opinión que veo para mejorar un poco mas el desarrollo del aplicativo, lo habia comentado en otro post para colaboración pero lo pude realizar solo era un error de consulta, y pues comparto el código, que sirve para crear consecutivos independiente de entradas, salidas o traslados asi el aplicativo que estas desarrollando podrá llevar consecutivos únicos de los movimientos que haga, espero te sirva.

Sub Maximo()
Call Conexion
Set Rs = New ADODB.Recordset
lblStock.Caption = ""
Rs.Open "Select max(control) as maximo From REGISTROS where Movimiento='" & "ENTRADA" & "'", Cnn, adOpenKeyset, adLockOptimistic, adCmdText
consecutivo = Right(Rs.Fields("Maximo"), 10)

If consecutivo > 0 Then
lblControl.Caption = "ENT-" & Format(consecutivo + 1, "0000000000")
Else
lblControl.Caption = "ENT-" & Format(1, "0000000000")
End If

Rs.Close
Set Rs = Nothing
End Sub[/CODE]

ha otra cosa que note es que si el usuario realiza un traslado, o devolución de mercancía ya sea por salida, entrada o traslado también tiene que afectar el reporte de kardex por que es un movimiento de mercancía del almacén que se esta trabajando isa podar verse la existencia real.

espero que todo le pueda servir para mejorar mas el aplicativo

saludos

Share this post


Link to post
Share on other sites

Muchas gracias por tu aporte y si, tienes toda la razón. De hecho ahora lo manejo con un contador aparte (Tabla) de manera que cuando se haga una operación X, este se actualice al nuevo numero, es decir, 1+1 y así sucesivamente. Todo esto con un Update.

Share this post


Link to post
Share on other sites

hola [uSER=98799]@Enigma25[/uSER]

Ok vale, otra opinión de mejora, seria genial que cuando el usuario haga la operación de salida que en el registro guarde el ultimo costo del producto con el fin de que cuando el usuario quiera ver la utilidad realizada sea la real.

saludos

Share this post


Link to post
Share on other sites

buenas he bajado los archivos y he abierto el excel pero en los formularios me sale que no se puede encontrar el proyecto o la biblioteca

agradeceria me indiquen que puede hacer o q estoy haceindo mal

Gracias

Share this post


Link to post
Share on other sites

Hola [uSER=98799]@Enigma25[/uSER] , gracias por el aporte, una consulta el vídeo donde muestras el programa, es el mismo programa que está publicado desde tu primer post de este tema? ingresé a ver el vídeo y en la descripción indicas que te lo solicitemos por Mail. Ahora mi consulta es y con todo respeto, lo estas compartiendo gratis?

Muchas gracias de nuevo.

Share this post


Link to post
Share on other sites

Hola.

No hermano, este es gratis para todos. Me imagino que viste otro del canal el cual si tiene un costo, pero reitero, el de Control de Almacen en Excel + Access es gratis.

Solo solicita el usuario y contraseña por correo y listo.

Saludos y gracias por ver el vídeo.

Share this post


Link to post
Share on other sites

Saludos Enigma25, una consulta cuando subiras los archivos del video, ojala sea pronto, y un aporte en los reportes de entrada y salida de materiales si puedes agregar que salga la unidad del material.

Gracias maestro

Share this post


Link to post
Share on other sites

Hola [uSER=367]@jhonfa[/uSER]

El otro vídeo del que hablé en el post #242 fué solo a modo de muestra de las mejoras en la programación. Mas no es para dar de manera gratis.

El que sigue siendo gratis y para todo el publico es el de Control de Almacén en Excel + Access :

Saludos hermano.

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy