Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   sentencia sql para el control de existencias de un sistema de inventarios multialmace (https://www.clubdelphi.com/foros/showthread.php?t=67655)

Rom@n 28-04-2010 18:46:02

sentencia sql para el control de existencias de un sistema de inventarios multialmace
 
Hola expertos espero esten muy bien, siempre es un gusto saludarlos y saber que siempre estan ahi para ayudar a ser mejores programadores.

Les quiero mostrar el codigo sql que utilizo en un sistema de inventarios multialmacen con punto de venta, me sirve para actualizar el campo 'existe' de una tabla llamada 'tab_stock' la cual me dice la cantidad existente por producto y por almacen, esta consulta se enlaza con otra tabla que se llama 'venta' donde se guardan las ventas registradas en los puntos de venta, la consulta cambia un poco solo en la ultima condicion 'WHERE' dependiendo el proceso en el que se encuentre por ejemplo esta que muestro es cuando estamos en un proceso de compra y solo actualizo los productos que estoy comprando o dandole entrada al almacen, pues bien mi cuestion es si alguien me entiende y me pueda decir si el metodo que utilizo es bueno o malo o si conocen una mejor manera de hacerlo poder cambiarlo aun funcionandome bien hasta ahora. utilizo delphi7 y MySQL(adoconnection MyODBC, MySQL Workbench 5.2)
.
Código SQL [-]
 update tab_stock ts set ts.existe=(SELECT
                SUM( If( tipo_mov =1, cantidad, 0 ) )+
                SUM( If( tipo_mov =2, cantidad, 0 ) )-
                SUM( If( tipo_mov =3, cantidad, 0 ) )-
(select IF(sum(cantidad)>0,sum(cantidad),0) from venta v where v.id_almacen=:ida and v.id_producto=ts.id_producto)-
                SUM( If( tipo_mov =5, cantidad, 0 ) )+
                SUM( If( tipo_mov =6, cantidad, 0 ) )+
                SUM( If( tipo_mov =7, cantidad, 0 ) )-
                SUM( If( tipo_mov =8, cantidad, 0 ) )+
                FROM tab_detalle_compra tdc 
                WHERE tdc.id_almacen=:ida
                 AND tdc.id_producto=ts.id_producto)
                WHERE ts.id_almacen=:ida
                 AND ts.id_producto IN(select id_producto from tab_detalle_compra where id_compra=:idc))
muchas gracias amigos espero sus comentarios

Ñuño Martínez 29-04-2010 09:31:54

Hola rom@n. También es un gusto ver que sigues en la brecha. :)

Personalmente yo no lo haría en SQL. Es decir, obtendría los datos que necesito y los computaría en Delphi. Las consultas SQL con tantos SUM, tantos IF y tantas operaciones aritméticas no suelen ser muy eficientes.

Rom@n 05-05-2010 19:05:04

Gracias Ñuño
 
Hola Ñuño Martinez disculpa por no responder antes.

Lo que me comentas es muy buena idea, pero no lo hago de esa manera porque creo que es poco redundante al momento de hacer updates o modificaciones por ejemplo:

1.-campturo una entrada o compra nueva y guardo
2.-aumenta mi inventario al guardar segun el detalle
3.-me doy cuenta que tengo un error de captura en esa compra registrada
4.-la localizo y entro a modificar el error
5.-al guardar me duplicaria el inventario.

para evitar que se dupliquen las cantidades en el inventario lo unico que se me ocurre antes de entrar a modificar primero descontar del inventario todo lo que contenga mi entrada para que al guardar los cambios no se dupliquen las cantidades, ademas si cancelo la modificacion tendria que dar de alta de nuevo seria igual que guardar cambios, todo eso se me hace redundante amenos que al campo existe de la tabla stock aplique una sentencia sql que obtenga la suma de todas las entradas menos todas las salidas.

se puede decir que casi no tengo experiencia en esto si tu podrias ayudar a escojer el mejor camino para lograrlo te lo agradeceria mucho estoy dispuesto a programar lo que me propongas. muchas gracias.:)

Ñuño Martínez 05-05-2010 23:27:16

No sé si lo he pillado, pero...
Cita:

Empezado por Rom@n (Mensaje 362916)
1.-campturo una entrada o compra nueva y guardo
2.-aumenta mi inventario al guardar segun el detalle
3.-me doy cuenta que tengo un error de captura en esa compra registrada
4.-la localizo y entro a modificar el error
5.-al guardar me duplicaria el inventario.

No tiene por qué duplicar si utilizas UPDATE en ese paso, en lugar de un SELECT.

También puedes agrupar las acciones en "transacciones", las cuales tienen la ventaja de poder deshacerse. Así si detectas un error puedes cancelarlo y reconstruir la transacción de nuevo.


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

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