Lo que pasa es que tengo varias columnas definidas en un xbrowse. Y necesito que al hacer clic derecho me muestre un menu popup. Actualmente lo estoy haciendo de la siguiente manera:
- Code: Select all Expand view
oBrwDofa:bRClicked := { | nRow, nCol | ShowPopup( nRow, nCol , oBrwDofa }
y el menu
- Code: Select all Expand view
- ***********************************
*MENU POP-UP CON TODAS LAS OPCIONES
***********************************
function ShowPopup( nRow, nCol, oBrw )
local oPopup, oFont
MENU oPopup POPUP 2007
MENUITEM "Agregar Lote" RESOURCE "#8073" ACTION oLamcla:autoriza(72)
MENUITEM "Modificar Lote" RESOURCE "#8082" ACTION oLamcla:autoriza(73)
MENUITEM "Borrar Lote" RESOURCE "#8074" ACTION oLamcla:autoriza(74)
SEPARATOR
MENUITEM "Fotografia Lote" RESOURCE "#8081" ACTION oLamcla:autoriza(76)
if alltrim(oRsDocfac:Fields( "estdcpt" ):Value)="L"
MENUITEM "Vender Lote" RESOURCE "#8084" ACTION oLamcla:autoriza(79)
else
MENUITEM "Vender Lote" DISABLED RESOURCE "#8084"
endif
MENUITEM "Consulta Pagos" ACTION oLamcla:autoriza(77)
MENUITEM "Linderos Lote" RESOURCE "#8098" ACTION oLamcla:autoriza(105)
SEPARATOR
if alltrim(oRsDocfac:Fields( "estdcpt" ):Value)="G"
MENUITEM "Gestion Acuerdos de Pago" RESOURCE "#8097" ACTION oLamcla:autoriza(87)
else
MENUITEM "Gestion Acuerdos de Pago" RESOURCE "#8097" DISABLED
endif
SEPARATOR
MENUITEM "Contrato C-Vta Entregado" RESOURCE "#8084" ACTION oLamcla:autoriza(108)
SEPARATOR
MENUITEM "Cerrar Ventana" RESOURCE "#8076" ACTION oWHiCt:End()
ENDMENU
ACTIVATE POPUP oPopup OF oBrw AT nRow, nCol
return nil
Hasta ahí todo bien ahora el tema se complica, por que necesito saber sobre que columna se hace el clic. Dependiendo de la columna se deben mostrar opciones diferentes.
Alguien sabe como hacer esto?.