Calculo de Kardex fisico valorado

Hola, te pediria los Script de las tablas, algunos datos de ejemplo y el
resultado final como debe quedar, tambien porfavor metelo todo en un .txt
porque el correo lo deforma :S


Salu2

Microsoft MVP SQL Server
Culminis Speaker
INETA Speaker

"jcac" escribió en el mensaje
news:%23$

Hola lista, estoy con algo que me esta rompiendo la cabeza y bueno estoy
pensando en cambiar lo que ya existe en el programa, primero les comentare
las estructuras que tengo:

Tabla de kardex
(Producto int, TipoMovimiento int, IngresoF decimal (14,4), SalidaF
decimal(14,4), SaldoF decimal(14,4), CostoPromedio decimal(20, 10),
CostoAdquisicion decimal(20, 10), SaldoValorado decimal(20, 10),
FechaMovimiento Datetime, Orden Int)

En esta tabla se guardan todos los movimientos que se produzcan es decir
si hubo una venta , compras, transferencia y demas.

Tabla de saldos
(Producto int, FechaSaldo datetime, SaldoF decimal(14,4), SaldoValorado
decimal(20, 10), CostoPromedio decimal(20, 10))

En esta tabla se almacenan los saldos de cada producto por una fecha, es
decir si en un mismo dia compre de un producto 10 piezas y vendi 5,
entonces me almacena un saldo de 5.

Lo que me sucede es cuando valorizan las compras realizadas ya existen
ventas hechas, entonces el programa tiene como un reproceso de calculo de
los Costos y esto lo hace es sacar todos los productos que se han tenido
movimiento entre la fecha de esta compra valorizada y el utlimo movimiento
que haya, entonces este conjunto de datos los empieza a procesar no en
scroll en el servidor pero si en un recordset en el cliente.

Les adjunto unos datos de las dos tablas

Kardex
Producto TipoMovimiento IngresoF SalidaF SaldoF CostoPromedio
CostoAdquision SaldoValorado FechaMovimiento Orden
1 1 100 100 1.5000000000 1.5000000000 150.0000000000 20060101 1
Ingreso por compras
1 14 10 90 1.5000000000 1.5000000000 135.0000000000 20060305 2
Salida por ventas
1 13 4 94 1.5000000000 1.5000000000 141.0000000000 20060308 3
Devolucion de ventas
1 1 200 294 1.8401360544 2.0000000000 541.0000000000 20060410 4
Ingreso por compras
1 14 5 289 1.8401360544 1.8401360544 531.7993197279 20060420 5
Salida por ventas
1 14 200 89 1.8401360544 1.8401360544 163.7721088435 20060420 6
Salida por ventas
1 1 300 389 1.8091827991 1.8000000000 703.7721088435 20060510 7
Ingreso por compras
1 1 200 589 2.0437557026 2.5000000000 1203.7721088435 20060510 8
Ingreso por compras
1 13 3 592 2.0427238463 1.8401360544 1209.2925170068 20060610 9
Devolucion de ventas

Saldos
Producto FechaSaldo SaldoF SaldoValorado CostoPromedio
1 20060101 100 150.0000000000 1.5000000000
1 20060305 90 135.0000000000 1.5000000000
1 20060308 94 141.0000000000 1.5000000000
1 20060410 294 541.0000000000 1.8401360544
1 20060420 89 163.7721088435 1.8401360544
1 20060610 592 1209.2925170068 2.0427238463


Les explico un poco el proceso que hace si por ejemplo se valoriza la
primera compra entonces de alli hasta el ultimo movimiento hace el calculo
de costo promedio, como es la primera compra el costo de adquision es
igual al costo promedio, en el caso de las ventas hace uso del ultimo
costo promedio que haya, y en el caso de las devoluciones hacen uso del
costo promedio con el que se realizo la venta, todo esto que les describo
se hace via programa, no se hace en sql server y quiero buscar una forma
de poderlo hacer desde el sql server o es que como esta es la mejor forma,
ya que si tenemos un producto que tiene varios movimientos este proceso se
demora demasiado y a veces me produce bloqueos.

Espero haberme explicado de la mejor forma.

Saludos y esperando sus comentarios y aportaciones

Juan Carlos

Hola Maxi,

Gracias por el tiempo que me estas dando te adjunto el txt que me indicas.

Algunas explicaciones las he puesto en el mismo adjunto espero que sean
claras.

Saludos

Juan Carlos


"Maxi" escribió en el mensaje
news:

Hola, te pediria los Script de las tablas, algunos datos de ejemplo y el
resultado final como debe quedar, tambien porfavor metelo todo en un .txt
porque el correo lo deforma :S


Salu2

Microsoft MVP SQL Server
Culminis Speaker
INETA Speaker

"jcac" escribió en el mensaje
news:%23$

Hola lista, estoy con algo que me esta rompiendo la cabeza y bueno estoy
pensando en cambiar lo que ya existe en el programa, primero les
comentare
las estructuras que tengo:

Tabla de kardex
(Producto int, TipoMovimiento int, IngresoF decimal (14,4), SalidaF
decimal(14,4), SaldoF decimal(14,4), CostoPromedio decimal(20, 10),
CostoAdquisicion decimal(20, 10), SaldoValorado decimal(20, 10),
FechaMovimiento Datetime, Orden Int)

En esta tabla se guardan todos los movimientos que se produzcan es decir
si hubo una venta , compras, transferencia y demas.

Tabla de saldos
(Producto int, FechaSaldo datetime, SaldoF decimal(14,4), SaldoValorado
decimal(20, 10), CostoPromedio decimal(20, 10))

En esta tabla se almacenan los saldos de cada producto por una fecha, es
decir si en un mismo dia compre de un producto 10 piezas y vendi 5,
entonces me almacena un saldo de 5.

Lo que me sucede es cuando valorizan las compras realizadas ya existen
ventas hechas, entonces el programa tiene como un reproceso de calculo de
los Costos y esto lo hace es sacar todos los productos que se han tenido
movimiento entre la fecha de esta compra valorizada y el utlimo
movimiento
que haya, entonces este conjunto de datos los empieza a procesar no en
scroll en el servidor pero si en un recordset en el cliente.

Les adjunto unos datos de las dos tablas

Kardex
Producto TipoMovimiento IngresoF SalidaF SaldoF CostoPromedio
CostoAdquision SaldoValorado FechaMovimiento Orden
1 1 100 100 1.5000000000 1.5000000000 150.0000000000 20060101 1
Ingreso por compras
1 14 10 90 1.5000000000 1.5000000000 135.0000000000 20060305 2
Salida por ventas
1 13 4 94 1.5000000000 1.5000000000 141.0000000000 20060308 3
Devolucion de ventas
1 1 200 294 1.8401360544 2.0000000000 541.0000000000 20060410 4
Ingreso por compras
1 14 5 289 1.8401360544 1.8401360544 531.7993197279 20060420 5
Salida por ventas
1 14 200 89 1.8401360544 1.8401360544 163.7721088435 20060420 6
Salida por ventas
1 1 300 389 1.8091827991 1.8000000000 703.7721088435 20060510 7
Ingreso por compras
1 1 200 589 2.0437557026 2.5000000000 1203.7721088435 20060510 8
Ingreso por compras
1 13 3 592 2.0427238463 1.8401360544 1209.2925170068 20060610 9
Devolucion de ventas

Saldos
Producto FechaSaldo SaldoF SaldoValorado CostoPromedio
1 20060101 100 150.0000000000 1.5000000000
1 20060305 90 135.0000000000 1.5000000000
1 20060308 94 141.0000000000 1.5000000000
1 20060410 294 541.0000000000 1.8401360544
1 20060420 89 163.7721088435 1.8401360544
1 20060610 592 1209.2925170068 2.0427238463


Les explico un poco el proceso que hace si por ejemplo se valoriza la
primera compra entonces de alli hasta el ultimo movimiento hace el
calculo
de costo promedio, como es la primera compra el costo de adquision es
igual al costo promedio, en el caso de las ventas hace uso del ultimo
costo promedio que haya, y en el caso de las devoluciones hacen uso del
costo promedio con el que se realizo la venta, todo esto que les describo
se hace via programa, no se hace en sql server y quiero buscar una forma
de poderlo hacer desde el sql server o es que como esta es la mejor
forma,
ya que si tenemos un producto que tiene varios movimientos este proceso
se
demora demasiado y a veces me produce bloqueos.

Espero haberme explicado de la mejor forma.

Saludos y esperando sus comentarios y aportaciones

Juan Carlos

begin 666 actualizar kardex en conjunto.txt
M0W)E871E(%1A8FQE(&IC86-?:V%R9&5X#0HH4')O9'5C=&\@:6YT+"!4:7!O
M36]V:6UI96YT;R!I;G0L($EN9W)E<V]&(&1E8VEM86P@*#$T+#0I+"!386QI
M9&%&(&1E8VEM86PH,30L-"DL(%-A;&1O1B!D96-I;6%L*#$T+#0I+"!#;W-T
M;U!R;VUE9&EO(&1E8VEM86PH,C L(#$P*2P@#0I#;W-T;T%D<75I<VEC:6]N
M(&1E8VEM86PH,C L(#$P*%L9&]686QO<F%D;R!D96-I;6%L*#(P+" Q
M,"DL($9E8VAA36]V:6UI96YT;R!$871E=&)*0T*#0I#
M<F5A=&&%B;&4@:F-A8U]S86QD;W,-"BA0<F]D=6-T;R!I;G0L($9E8VAA
M4V%L9&\@9&%T971I;64L(%-A;&1O1B!D96-I;6%L*#$T+#0I+"!386QD;U9A
M;&]R861O(&1E8VEM86PH,C L(#$P*]S=&]0<F]M961I;R!D96-I;6%L
M*#(P+" Q,"DI#0H-"BTM1&%T;W,@;W)I9VEN86QE;W,@9&%T;W,@
M97-T86X@<VEN(&-O<W1O?IN(&YO(&AA>2!V86QO<FEZ86-I;VX-"@T*
M:6YS97)T(&EN=&\@:F-A8U]K87)D97@@=F%LeS("@Q+#$L,3 P+# L,3 P
M+# L,"PP+"<R,# V,#$P,2<L,2D-"FEN<V5R="!I;G1O(&IC86-?:V%R9&5X
M('9A;'5E<R H,2PQ-"PP+#$P+#DP+# L,"PP+"<R,# V,#,P-2<L,BD-"FEN
M<V5R="!I;G1O(&IC86-?:V%R9&5X('9A;'5E<R H,2PQ,RPT+# L.30L,"PP
M+# L)S(P,#8P,S X)RPS*0T*:6YS97)T(&EN=&\@:F-A8U]K87)D97@@=F%L
MeS("@Q+#$L,C P+# L,CDT+# L,"PP+"<R,# V,#0Q,"<L-"D-"FEN<V5R
M="!I;G1O(&IC86-?:V%R9&5X('9A;'5E<R H,2PQ-"PP+#4L,+# L,"PP
M+"<R,# V,#0R,"<L-2D-"FEN<V5R="!I;G1O(&IC86-?:V%R9&5X('9A;'5E
M<R H,2PQ-"PP+#(P,"PX.2PP+# L,"PG,C P-C T,C G+#8I#0II;G-E<G0@
M:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@*#$L,2PS,# L,"PS.#DL,"PP+# L
M)S(P,#8P-3$P)RPW*0T*:6YS97)T(&EN=&\@:F-A8U]K87)D97@@=F%LeS
M("@Q+#$L,C P+# +# L,"PP+"<R,# V,#4Q,"<L."D-"FEN<V5R="!I
M;G1O(&IC86-?:V%R9&5X('9A;'5E<R H,2PQ,RPS+# L-3DR+# L,"PP+"<R
M,# V,#8Q,"<L.2D-"@T*:6YS97)T(&EN=&\@:F-A8U]S86QD;W,@=F%LeS
M("@Q+"<R,# V,#$P,2<L,3 P+# L,"D-"FEN<V5R="!I;G1O(&IC86-?<V%L
M9&]S('9A;'5E<R H,2PG,C P-C S,#4G+#DP+# L,"D-"FEN<V5R="!I;G1O
M(&IC86-?<V%L9&]S('9A;'5E<R H,2PG,C P-C S,#@G+#DT+# L,"D-"FEN
M<V5R="!I;G1O(&IC86-?<V%L9&]S('9A;'5E<R H,2PG,C P-C T,3 G+#(Y
M-"PP+# I#0II;G-E<G0@:6YT;R!J8V%C7W-A;&1O<R!V86QU97,@*#$L)S(P
M,#8P-#(P)RPX.2PP+# I#0II;G-E<G0@:6YT;R!J8V%C7W-A;&1O<R!V86QU
M97,@*#$L)S(P,#8P-C$P)RPU.3(L,"PP*0T*#0HM+2!$871O<R!C=6%N9&\@
M>6$@:&%Y('-E(&AA;B!I;F=R97-A9&\@;&]S(&-O<W1O<R!D92!L87,@8V]M
M<')A<R -"BTM('%U92!S;VX@=6YO<R!D92!L;W,@;6]V:6UI96YT;W,@<75E
M('-E('9A;&]R:7IA;@<F5S=&\@:&%C96X@=7-O(&1E;"!P<F]M961I
M;PT*#0II;G-E<G0@:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@*#$L,2PQ,# L
M,"PQ,# L,2XU+#$N-2PQ-3 L)S(P,#8P,3 Q)RPQ*2 M+2!#;VQO8V%N9&\@
M=6X@=F%L;W(@9&4@,2XU(&1E(&%D<75I<VEC:6]N#0II;G-E<G0@:6YT;R!J
M8V%C7VMA<F1E>"!V86QU97,@*#$L,30L,"PQ,"PY,"PQ+C4L,2XU+#$S-2PG
M,C P-C S,#4G+#(I#0II;G-E<G0@:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@
M*#$L,3,L-"PP+#DT+#$N-2PQ+C4L,30Q+"<R,# V,#,P."<L,RD@#0II;G-E
M<G0@:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@*#$L,2PR,# L,"PR.30L,2XX
M-# Q,S8P-30T,C$W-RPR+#4T,2PG,C P-C T,3 G+#0I("TM($-O;&]C86YD
M;R!U;B!V86QO<B!D92 R(&1E(&%D<75I<VEC:6]N#0II;G-E<G0@:6YT;R!J
M8V%C7VMA<F1E>"!V86QU97,@*#$L,30L,"PU+#(X.2PQ+,#$S-C U-#0R
M,3<W+#$N.#0P,3,V,#4T-#(Q-S<L-3,Q+C<Y.3,Q.3,2PG,C P-C T
M,C G+#4I#0II;G-E<G0@:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@*#$L,30L
M,"PR,# L.#DL,2XX-# Q,S8P-30T,C$W-RPQ+,#$S-C U-#0R,3<W+#$V
M,RXW-S(Q,#@X-#,U,S<L)S(P,#8P-#(P)RPV*0T*:6YS97)T(&EN=&\@:F-A
M8U]K87)D97@@=F%LeS("@Q+#$L,S P+# L,+#$N.# Y,,#@S
M-C0L,2XX+#<P,RXW-S(Q,#@X-#,U,S<L)S(P,#8P-3$P)RPW*2 M+2!#;VQO
M8V%N9&\@=6X@=F%L;W(@9&4@,2XX(&1E(&%D<75I<VEC:6]N#0II;G-E<G0@
M:6YT;R!J8V%C7VMA<F1E>"!V86QU97,@*#$L,2PR,# L,"PU.#DL,BXP-#,W
M-34W,#(V,C V,2PR+C4L,3(P,RXW-S(Q,#@X-#,U-"PG,C P-C U,3 G+#@I
M("TM($-O;&]C86YD;R!U;B!V86QO<B!D92 R+&:6-I;VX-
M"FEN<V5R="!I;G1O(&IC86-?:V%R9&5X('9A;'5E<R H,2PQ,RPS+# L-3DR
M+#(N,#0R-S(S.#0V,CDU,C<L,2XX-# Q,S8P-30T,C$W-RPQ,C Y+C(Y,C4Q
M-S )S(P,#8P-C$P)RPY*0T*#0II;G-E<G0@:6YT;R!J8V%C7W-A;&1O
M<R!V86QU97,@*#$L)S(P,#8P,3 Q)RPQ,# L,34P+#$N-2D-"FEN<V5R="!I
M;G1O(&IC86-?<V%L9&]S('9A;'5E<R H,2PG,C P-C S,#4G+#DP+#$S-2PQ
M+C4I#0II;G-E<G0@:6YT;R!J8V%C7W-A;&1O<R!V86QU97,@*#$L)S(P,#8P
M,S X)RPY-"PQ-#$L,2XU*0T*:6YS97)T(&EN=&\@:F-A8U]S86QD;W,@=F%L
MeS("@Q+"<R,# V,#0Q,"<L,CDT+#4T,2PQ+,#$S-C U-#0R,3<W*0T*
M:6YS97)T(&EN=&\@:F-A8U]S86QD;W,@=F%LeS("@Q+"<R,# V,#0R,"<L
M.#DL,38S+C<W,C$P.#@T,S4S-RPQ+,#$S-C U-#0R,3<W*0T*:6YS97)T
M(&EN=&\@:F-A8U]S86QD;W,@=F%LeS("@Q+"<R,# V,#8Q,"<L-3DR+#$R
M,#DN,CDR-3$W,# V."PR+C T,C<R,(Y-3(W*0T*#0HM+2!0<F]C961I
M;6EE;G1O<R!Qd@;&EZ86X-"@T*+2U%<W1E('!R;V-E9&EM:65N
M=&\@<V]L;R!A8W1U86QI>F$@]S=&\@9&4@=6X@<')O9'5C=&\L('!E
M<F\@;F\@;&\@:&%C92!C;@<F5S=&\@9&4@;6]V:6UI96YT;W,@<75E
M('1I96YE(&5L('!R;V1U8W1O(&5N(&%D96QA;G1E#0I#<F5A=&')O8V5D
M=7)E($%C='5A;&EZ84MA<F1E> T*0$-O<W1O061QnS:6-I;&5C:6UA
M;"@R,"P@,3 I+"! <')O9'5C=&\@:6YT+"! 5&EP;VUOþM:65N=&\@:6YT
M+"! ;W)D96X@:6YT#0IA<PT*=7!D871E(&IC86-?:V%R9&5X('-E="!C;W-T
M;V%D<75I<VEC:6]N(#&-O<W1O861QnS:6-I;VXL#0H)<V%L9&]V86QO
M<F%D;R ](&ES;G5L;"@H<V5L96-T('1O<" Q('-A;&1O=F%L;W)A9&\@9G)O
M;2!J8V%C7VMA<F1E>"!W:&5R92!P<F]D=6-T;R ](&LN<')O9'5C=&\@86YD
M(&9E8VAA;6]V:6UI96YT;R \/2!K+F9E8VAA;6]V:6UI96YT;R!A;F0@;W)D
M96X@/"!K+F]R9&5N(&]R9&5R(&)Y(&]R9&5N(&1E<V,I+" P*2 K(&-O<W1O
M861QnS:6-I;VX@*B H:6YG<F5S;V8@+2!S86QI9&%F*2P-"@EC;W-T;W!R
M;VUE9&EO(#T@<V%L9&]V86QO<F%D;R O('-A;&*9G)O;2!J8V%C7VMA
M<F1E>"!K#0IW:&5R92!O<F1E;B ]($!O<F1E;B!A;F0@<')O9'5C=&\@/2!
M<')O9'5C=&\@86YD('1I<&]M;W9I;6EE;G1O(#'1I<&]M;W9I;6EE;G1O
M( T*#0HM+65J96UP;&\@#0I!8W1U86QI>F%+87)D97@@,BP@,2P@,2P@,0T*
M#0H-"BTM16P@<')O8V5D:6UI96YT;R!A;G1E<FEO<B!S92!E:F5CqA('1A
M;G1A<R!V96-E<R!C;VUO('-E82!N96-E<V%R:6\L(&AA<W1A(&%C='5A;&EZ
M87(@#0HM+65L(&-O<W1O(&1E('1O9&]S(&QO<R!P<F]D=6-T;W,@;R!E;B!E
M<W1E(&-A<V\@9&!P<F]D=6-T;RX-"@T*+RI,82!T86)L82!J8V%C
M7W-A;&1O<R!S;VQO('-E('5T:6QI>F$@8V]M;R!U;B!R97-U;6ED;R!D96P@
M:V%R9&5X('EA('%U92!A;&QI('-E(&%L;6%C96YA;B!L;W,@<V%L9&]S(&1E
M(&-A9&$@<')O9'5C=&\@<&]R(&3M80T*<W5P;VYG;R!(&QO(&UA
M;G1I96YE;B!P;W(@<75E(&]T<F]S(&UO9'5L;W,@;&\@qI;&EZ86XL('!E
M<F\@96X@@:F-A8U]K87)D97@@97,@96P@:6UP;W)T86YT92X-"D5S
M=&$@=&%B;&$@9&4@<V%L9&]S(&QA(&%C='5A;&]N('5N('1R:6=G
M97(J+PT*#0HM+2!,;R!)A('!R;V)A;F1O(&5R82!A;&=O(&-O
M;6\@97-T;R!P97)O(&EG=6%L(&YO(&UE(&9U;F-I;VYA(&-O;6\@86QG;R!R
M96-U<G-I=F\N(%1E('!O;F=O(&QO('%U92!P<F]B86)A#0H-"G5P9&%T92!J
M8V%C7VMA<F1E>" -"G-E="!S86QD;W9A;&]R861O(#T@:7-N=6QL*"AS96QE
M8W0@=&]P(#$@<V%L9&]V86QO<F%D;R!F<F]M(&IC86-?:V%R9&5X('=H97)E
M('!R;V1U8W1O(#T@:RYP<F]D=6-T;R!A;:&%M;W9I;6EE;G1O(#P]
M(&LN9F5C:&%M;W9I;6EE;G1O(&%N9"!O<F1E;B \(&LN;W)D96X@;W)D97(@
M8GD@;W)&5S8RDL(# I("]S=&]A9'%U:7-I8VEO;B J("AI;F=R
M97-O9B M('-A;&ED868I+ T*"6-O<W1O861QnS:6-I;VX@/2!I<VYU;&PH
M*'-E;&5C="!T;W @,2!C87-E('=H96X@:RYT:7!O;6]V:6UI96YT;R ](#$T
M(']S=&]P<F]M961I;R -"@D)"0D)"0EW:&5N(&LN=&EP;VUOþM
M:65N=&\@/2 Q,R!T:&5N(&-O<W1O<')O;65D:6\@#0H)"0D)"0D)=VAE;B!K
M+G1I<&]M;W9I;6EE;G1O(#T@,2!T:&5N(&-O<W1O861QnS:6-I;
M#0H)9G)O;2!J8V%C7VMA<F1E>"!W:&5R92!P<F]D=6-T;R ](&LN<')O9'5C
M=&\@86YD(&9E8VAA;6]V:6UI96YT;R \/2!K+F9E8VAA;6]V:6UI96YT;R!A
M;F0@;W)D96X@/"!K+F]R9&5N(&]R9&5R(&)Y(&]R9&5N(&1E<V,I+" P*2P-
M"@EC;W-T;W!R;VUE9&EO(#T@<V%L9&]V86QO<F%D;R O('-A;&*9G)O
D;2!J8V%C7VMA<F1E>"!K#0IW:&5R92!O<F1E;B ^(#0-"@T*
`
end