FoxPro/Visual FoxPro - como pasar datos de un grid al otro y calcular

como pasar datos de un grid al otro y calcular

Publicado por Francisco (1 intervención) el 15/02/2020 02:04:58

hola espero que este foro no este muerto. de no ser asi yo entre en una empresa que usan visual fox pro9
mi duda es que tengo 2 grids, uno de productos y el otro de ventas, mi idea era programar un boton que me permita pasar todos los datos de un grid al otro. pasa que en los 2 grid tengo una columna de stock y lo que pasa al grid2 se resta del grid1 y yo queria eliminar todos los datos de grid2 y que el stock lo vuelva a suma al grid1.
el tema es que no calcula bien osea termina sumando cualquier cosa o termina por no sumar nada, aca tengo lo que hice:

IF !USED("productos")
USE productos IN 0 SHARED
ENDIF

SELECT productos

GO TOP

LOCATE FOR productos.producto = ventas.producto

IF productos.producto = ventas.producto THEN
replace productos.stock WITH ventas.stock + productos.stock
ELSE
ENDIF
************************************************************************
SELECT ventas
DELETE
************************************************************************
thisform.Refresh

si alguien me puede ayudar estaria agradecido

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 471

como pasar datos de un grid al otro y calcular

Publicado por Mauricio Antonio (1541 intervenciones) el 15/02/2020 13:21:14

Puedes subir una imagen de la pantalla? Debes proporcionar informacion para poder ubicarse en lo que intentas hacer....

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 3

Val: 642

como pasar datos de un grid al otro y calcular

Publicado por Abel (286 intervenciones) el 15/02/2020 14:40:11

1ro. Deberías trabajar con tabla cursor en ventas y en Productos y crearle un índice

Select Select(1)

Select * From Productos into Cursor csrProds

Index On Producto Tag Producto

Select Select(1)

Select * From Ventas into Cursor csrVentas where .F.

Index On Producto Tag Producto

2do. Todos los movimientos de reemplazo y eliminación se harán en dichas tablas cursor, por ende no modifica nada a las tablas físicas; por lo tanto debes crear un botón guardar que hará los cambios al finalizar.

3ro. Como pasas registros de la tabla Productos a Ventas; tu botón o doble clic o lo que sea que uses; debe insertar el registro seleccionado de la tabla Productos dentro de la tabla vacía Ventas; por lo tanto será algo así...

Select csrProds

Scatter name oProds

Inset into csrVentas From Name oProds

Delete

NOTA:: EL mismo procediiento funcionará para devolver el producto de Ventas a Productos; solo invirtiendo nombres...

Select csrVentas

Scatter name oProds

Inset into csrProds From Name oProds

Delete

4to. Para finalizar y registrar la información en las tablas productos y Ventas, será:

4.a. Para tabla Ventas:

Insert into Ventas Select * From csrVentas

4.b. Para tabla Productos:

Select csrVentas

Scan

     If Seek(csrVentas.Producto,"Productos","Producto")

          Select Productos

          Delete

     endif

Endscan

Valora esta respuesta

Comentar

Numero de posicion

Tengo problemas para generar varios checkbox en tiempo de ejecución