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

 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio Antonio
Val: 674
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

como pasar datos de un grid al otro y calcular

Publicado por Mauricio Antonio (1501 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Abel
Val: 667
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

como pasar datos de un grid al otro y calcular

Publicado por Abel (253 intervenciones) el 15/02/2020 14:40:11
1ro. Deberías trabajar con tabla cursor en ventas y en Productos y crearle un índice
1
2
3
4
5
6
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í...
1
2
3
4
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...
1
2
3
4
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:
1
Insert into Ventas Select * From csrVentas

4.b. Para tabla Productos:
1
2
3
4
5
6
7
Select csrVentas
Scan
     If Seek(csrVentas.Producto,"Productos","Producto")
          Select Productos
          Delete
     endif
Endscan
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar