Hola a todos me da gusto saludarles... desearia me ayudaran en lo siguiente:
tengo articulos.dbf y compras.dbf, en la primera existen campos como
precios, existencias y al realizar adquisicion de mercancia se uso
compras.dbf al terminar de capturar la factura de compras deseo actualizar la
tabla de articulos.dbf para incorporar los entradas y precios: yo tengo esto
pero no funciona:

LOCAL cbarras,ncant,nprecio
nCant=0
SELECT compras
SET ORDER TO tag codebar
GO top
cbarras=ALLTRIM(codebar)
ncatidad=cant && Asigna la total de piezas a variable para vaciar en
articulos
nprecio=pventa && igual que cantidad
DO WHILE .t.
SELECT articulos
LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo siguiente:
replace entradas WITH entradas+ncant
replace precio WITH nprecio
SELECT compras && Regresa a Tabla de Compras para asignar nuevo
reg.
cbarras=Alltrim(codebar)
ncant=cant
nprecio=Pventa
IF EOF()
EXIT
ELSE
skip
Endif
ENDDO
SELECT articulos
GO top
replace existencia WITH entradas - salidas all
Titulo='PROCESANDO...'
Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
MESSAGEBOX(Mensaje,64,titulo)
Return

Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
Mil Gracias por su ayuda

VFP9:
***********
CLOSE TABLES ALL
CREATE CURSOR Articulos (codebar int,entradas Int, precio Num(8,2),
existencia C(1))
INSERT INTO Articulos VALUES (1,21,10.00,'X')
INSERT INTO Articulos VALUES (2,12,20.50,'Y')
BROWSE LAST NOWAIT
CREATE CURSOR Compras (codebar int , cant int, precio Num(8,2))
INSERT INTO Compras VALUES (1, 2, 12.00)
INSERT INTO Compras VALUES (2, 5, 22.00)
BROWSE LAST NOWAIT

UPDATE Articulos From Compras ;
SET entradas=entradas+Compras.cant, ;
precio=Compras.precio ;
WHERE Articulos.codebar=Compras.codebar
**************
-Anders

"Amado Garcia Lara" <AmadoGarciaLara***discussions.microsoft.com> wrote in
message news:C5EFF364-0E38-400F-9DF9-928BD5E36BD1***microsoft.com...
> Hola a todos me da gusto saludarles... desearia me ayudaran en lo
> siguiente:
> tengo articulos.dbf y compras.dbf, en la primera existen campos como
> precios, existencias y al realizar adquisicion de mercancia se uso
> compras.dbf al terminar de capturar la factura de compras deseo actualizar
> la
> tabla de articulos.dbf para incorporar los entradas y precios: yo tengo
> esto
> pero no funciona:
>
> LOCAL cbarras,ncant,nprecio
> nCant=0
> SELECT compras
> SET ORDER TO tag codebar
> GO top
> cbarras=ALLTRIM(codebar)
> ncatidad=cant && Asigna la total de piezas a variable para vaciar en
> articulos
> nprecio=pventa && igual que cantidad
> DO WHILE .t.
> SELECT articulos
> LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo
> siguiente:
> replace entradas WITH entradas+ncant
> replace precio WITH nprecio
> SELECT compras && Regresa a Tabla de Compras para asignar nuevo
> reg.
> cbarras=Alltrim(codebar)
> ncant=cant
> nprecio=Pventa
> IF EOF()
> EXIT
> ELSE
> skip
> Endif
> ENDDO
> SELECT articulos
> GO top
> replace existencia WITH entradas - salidas all
> Titulo='PROCESANDO...'
> Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
> MESSAGEBOX(Mensaje,64,titulo)
> Return
>
> Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
> Mil Gracias por su ayuda

VFP9:
***********
CLOSE TABLES ALL
CREATE CURSOR Articulos (codebar int,entradas Int, precio Num(8,2),
existencia C(1))
INSERT INTO Articulos VALUES (1,21,10.00,'X')
INSERT INTO Articulos VALUES (2,12,20.50,'Y')
BROWSE LAST NOWAIT
CREATE CURSOR Compras (codebar int , cant int, precio Num(8,2))
INSERT INTO Compras VALUES (1, 2, 12.00)
INSERT INTO Compras VALUES (2, 5, 22.00)
BROWSE LAST NOWAIT

UPDATE Articulos From Compras ;
SET entradas=entradas+Compras.cant, ;
precio=Compras.precio ;
WHERE Articulos.codebar=Compras.codebar
**************
-Anders

"Amado Garcia Lara" <AmadoGarciaLara***discussions.microsoft.com> wrote in
message news:C5EFF364-0E38-400F-9DF9-928BD5E36BD1***microsoft.com...
> Hola a todos me da gusto saludarles... desearia me ayudaran en lo
> siguiente:
> tengo articulos.dbf y compras.dbf, en la primera existen campos como
> precios, existencias y al realizar adquisicion de mercancia se uso
> compras.dbf al terminar de capturar la factura de compras deseo actualizar
> la
> tabla de articulos.dbf para incorporar los entradas y precios: yo tengo
> esto
> pero no funciona:
>
> LOCAL cbarras,ncant,nprecio
> nCant=0
> SELECT compras
> SET ORDER TO tag codebar
> GO top
> cbarras=ALLTRIM(codebar)
> ncatidad=cant && Asigna la total de piezas a variable para vaciar en
> articulos
> nprecio=pventa && igual que cantidad
> DO WHILE .t.
> SELECT articulos
> LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo
> siguiente:
> replace entradas WITH entradas+ncant
> replace precio WITH nprecio
> SELECT compras && Regresa a Tabla de Compras para asignar nuevo
> reg.
> cbarras=Alltrim(codebar)
> ncant=cant
> nprecio=Pventa
> IF EOF()
> EXIT
> ELSE
> skip
> Endif
> ENDDO
> SELECT articulos
> GO top
> replace existencia WITH entradas - salidas all
> Titulo='PROCESANDO...'
> Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
> MESSAGEBOX(Mensaje,64,titulo)
> Return
>
> Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
> Mil Gracias por su ayuda

VFP9:
***********
CLOSE TABLES ALL
CREATE CURSOR Articulos (codebar int,entradas Int, precio Num(8,2),
existencia C(1))
INSERT INTO Articulos VALUES (1,21,10.00,'X')
INSERT INTO Articulos VALUES (2,12,20.50,'Y')
BROWSE LAST NOWAIT
CREATE CURSOR Compras (codebar int , cant int, precio Num(8,2))
INSERT INTO Compras VALUES (1, 2, 12.00)
INSERT INTO Compras VALUES (2, 5, 22.00)
BROWSE LAST NOWAIT

UPDATE Articulos From Compras ;
SET entradas=entradas+Compras.cant, ;
precio=Compras.precio ;
WHERE Articulos.codebar=Compras.codebar
**************
-Anders

"Amado Garcia Lara" <AmadoGarciaLara***discussions.microsoft.com> wrote in
message news:C5EFF364-0E38-400F-9DF9-928BD5E36BD1***microsoft.com...
> Hola a todos me da gusto saludarles... desearia me ayudaran en lo
> siguiente:
> tengo articulos.dbf y compras.dbf, en la primera existen campos como
> precios, existencias y al realizar adquisicion de mercancia se uso
> compras.dbf al terminar de capturar la factura de compras deseo actualizar
> la
> tabla de articulos.dbf para incorporar los entradas y precios: yo tengo
> esto
> pero no funciona:
>
> LOCAL cbarras,ncant,nprecio
> nCant=0
> SELECT compras
> SET ORDER TO tag codebar
> GO top
> cbarras=ALLTRIM(codebar)
> ncatidad=cant && Asigna la total de piezas a variable para vaciar en
> articulos
> nprecio=pventa && igual que cantidad
> DO WHILE .t.
> SELECT articulos
> LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo
> siguiente:
> replace entradas WITH entradas+ncant
> replace precio WITH nprecio
> SELECT compras && Regresa a Tabla de Compras para asignar nuevo
> reg.
> cbarras=Alltrim(codebar)
> ncant=cant
> nprecio=Pventa
> IF EOF()
> EXIT
> ELSE
> skip
> Endif
> ENDDO
> SELECT articulos
> GO top
> replace existencia WITH entradas - salidas all
> Titulo='PROCESANDO...'
> Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
> MESSAGEBOX(Mensaje,64,titulo)
> Return
>
> Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
> Mil Gracias por su ayuda

VFP9:
***********
CLOSE TABLES ALL
CREATE CURSOR Articulos (codebar int,entradas Int, precio Num(8,2),
existencia C(1))
INSERT INTO Articulos VALUES (1,21,10.00,'X')
INSERT INTO Articulos VALUES (2,12,20.50,'Y')
BROWSE LAST NOWAIT
CREATE CURSOR Compras (codebar int , cant int, precio Num(8,2))
INSERT INTO Compras VALUES (1, 2, 12.00)
INSERT INTO Compras VALUES (2, 5, 22.00)
BROWSE LAST NOWAIT

UPDATE Articulos From Compras ;
SET entradas=entradas+Compras.cant, ;
precio=Compras.precio ;
WHERE Articulos.codebar=Compras.codebar
**************
-Anders

"Amado Garcia Lara" <AmadoGarciaLara***discussions.microsoft.com> wrote in
message news:C5EFF364-0E38-400F-9DF9-928BD5E36BD1***microsoft.com...
> Hola a todos me da gusto saludarles... desearia me ayudaran en lo
> siguiente:
> tengo articulos.dbf y compras.dbf, en la primera existen campos como
> precios, existencias y al realizar adquisicion de mercancia se uso
> compras.dbf al terminar de capturar la factura de compras deseo actualizar
> la
> tabla de articulos.dbf para incorporar los entradas y precios: yo tengo
> esto
> pero no funciona:
>
> LOCAL cbarras,ncant,nprecio
> nCant=0
> SELECT compras
> SET ORDER TO tag codebar
> GO top
> cbarras=ALLTRIM(codebar)
> ncatidad=cant && Asigna la total de piezas a variable para vaciar en
> articulos
> nprecio=pventa && igual que cantidad
> DO WHILE .t.
> SELECT articulos
> LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo
> siguiente:
> replace entradas WITH entradas+ncant
> replace precio WITH nprecio
> SELECT compras && Regresa a Tabla de Compras para asignar nuevo
> reg.
> cbarras=Alltrim(codebar)
> ncant=cant
> nprecio=Pventa
> IF EOF()
> EXIT
> ELSE
> skip
> Endif
> ENDDO
> SELECT articulos
> GO top
> replace existencia WITH entradas - salidas all
> Titulo='PROCESANDO...'
> Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
> MESSAGEBOX(Mensaje,64,titulo)
> Return
>
> Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
> Mil Gracias por su ayuda

VFP9:
***********
CLOSE TABLES ALL
CREATE CURSOR Articulos (codebar int,entradas Int, precio Num(8,2),
existencia C(1))
INSERT INTO Articulos VALUES (1,21,10.00,'X')
INSERT INTO Articulos VALUES (2,12,20.50,'Y')
BROWSE LAST NOWAIT
CREATE CURSOR Compras (codebar int , cant int, precio Num(8,2))
INSERT INTO Compras VALUES (1, 2, 12.00)
INSERT INTO Compras VALUES (2, 5, 22.00)
BROWSE LAST NOWAIT

UPDATE Articulos From Compras ;
SET entradas=entradas+Compras.cant, ;
precio=Compras.precio ;
WHERE Articulos.codebar=Compras.codebar
**************
-Anders

"Amado Garcia Lara" <AmadoGarciaLara***discussions.microsoft.com> wrote in
message news:C5EFF364-0E38-400F-9DF9-928BD5E36BD1***microsoft.com...
> Hola a todos me da gusto saludarles... desearia me ayudaran en lo
> siguiente:
> tengo articulos.dbf y compras.dbf, en la primera existen campos como
> precios, existencias y al realizar adquisicion de mercancia se uso
> compras.dbf al terminar de capturar la factura de compras deseo actualizar
> la
> tabla de articulos.dbf para incorporar los entradas y precios: yo tengo
> esto
> pero no funciona:
>
> LOCAL cbarras,ncant,nprecio
> nCant=0
> SELECT compras
> SET ORDER TO tag codebar
> GO top
> cbarras=ALLTRIM(codebar)
> ncatidad=cant && Asigna la total de piezas a variable para vaciar en
> articulos
> nprecio=pventa && igual que cantidad
> DO WHILE .t.
> SELECT articulos
> LOCATE FOR ALLTRIM(codebar)=cbarras && Busca y remplaza lo
> siguiente:
> replace entradas WITH entradas+ncant
> replace precio WITH nprecio
> SELECT compras && Regresa a Tabla de Compras para asignar nuevo
> reg.
> cbarras=Alltrim(codebar)
> ncant=cant
> nprecio=Pventa
> IF EOF()
> EXIT
> ELSE
> skip
> Endif
> ENDDO
> SELECT articulos
> GO top
> replace existencia WITH entradas - salidas all
> Titulo='PROCESANDO...'
> Mensaje='LA COMPRA SE HA APLICADO SATISFACTORIAMENTE...!!'
> MESSAGEBOX(Mensaje,64,titulo)
> Return
>
> Esto rutina la llamo con BtnProcesa desde el form FrmCompras.
> Mil Gracias por su ayuda