¿Cómo defino un evento en un grid?
Hola, tengo un form que mando llamar de varias partes, el form tiene un combobox del cual despliega a los proveedores, al seleccionar el proveedor en el evento click, creo 3 cursores en los cuales lleno informacion que selecciono de varias tablas y ya posteriormente genero 3 grids para mostrar dicha informacion, en uno muestro informacion general como el codigo de los productos del proveedor, descripcion, existencia en almacen, cantidad en ordenes de compra en transito y pedidos que hay por producir con ese producto, en el segundo grid muestro el detalle de las ordenes de compra que hay de ese producto y en el tercer grid muetro el detalle de los pedidos que hay que producir, lo unico que me hace falta es hacer que al seleccionar un registro dentro del primer grid, este mande el codigo del producto seleccionado a un editbox y este a su vez regrese el valor al programa que lo mando a llamar, en si mi problema es que no se como programar el evento AfterRowColChange en el grid, les agrego parte del codigo que manejo al definir mis grid
IF TYPE('thisform.g2') = 'O'
thisform.removeobject('g2')
ENDIF
thisform.addobject('g2','grid')
WITH thisform.g2
.columncount = 7
.deletemark = .F.
.fontsize = 8
.recordsource = 'QOCPROD'
.left = 530
.top = 324
.width = 410
.height = 176
.column1.width = 50
.column3.width = 50
.column4.width = 50
.column5.width = 40
.column6.width = 60
.column6.format = 'R'
.column6.inputmask = '999,999,999.999'
.column7.width = 60
.column7.format = 'R'
.column7.inputmask = '999,999,999.999'
.readonly = .T.
.visible = .T.
endwith
Espero me puedas ayudar.. Saludos!
IF TYPE('thisform.g2') = 'O'
thisform.removeobject('g2')
ENDIF
thisform.addobject('g2','grid')
WITH thisform.g2
.columncount = 7
.deletemark = .F.
.fontsize = 8
.recordsource = 'QOCPROD'
.left = 530
.top = 324
.width = 410
.height = 176
.column1.width = 50
.column3.width = 50
.column4.width = 50
.column5.width = 40
.column6.width = 60
.column6.format = 'R'
.column6.inputmask = '999,999,999.999'
.column7.width = 60
.column7.format = 'R'
.column7.inputmask = '999,999,999.999'
.readonly = .T.
.visible = .T.
endwith
Espero me puedas ayudar.. Saludos!
1 Respuesta
Respuesta de ingesoft