FiveTech Support Forums

HOLA NUEVAMENTE A TODOS

ACUALTMENTE TRABAJO CON LISTBOX MIS CONSULTAS

LA FORMA QUE LO HAGO ES LA SIGUENTE

REDEFINE LISTBOX oLbx ;
FIELDS oPreccosCli:Codigo , ;
oPreccosCli:Nombre , ;
transform(oPreccosCli:ventas,"999,999,999.99") , ;
transform(oPreccosCli:Costo ,"999,999,999.99") , ;
transform(oPreccosCli:margen,"999,999,999.99") , ;
transform(oPreccosCli:utilidad,"999,999,999.99")+"%" ;
HEADER "Código","Nombre","Ventas", "Costo","Utilidad","Margen" ;
ID 172 ;
OF oDlg ;
ON DBLCLICK dobleclick_PreccosCod( oPreccos, oPreccosCli, aGets , oWnd ) ;
SIZES 40,250,75,75,75,75 UPDATE

     oPreccosCli:SetBrowse( oLbx )

TENGO UN EVENTO QUE ES DBLCLICK , PERO QUIERO SABER COMO HACER PARA DARLE CLICK DERECHO A UN REGISTRO Y QUE ME DESPLIEGUE UN POPUP CON DIFERENTES OPCIONES.

ALGUIEN PODRIA AYUDARME.

ATENTAMENTE,
Julio Rodrigo Ponce Hinestroza

www.suproye.com

Hola quique

Probe pero no me funciona que estare haciendo mal

TWbrowse():= .T.
REDEFINE LISTBOX oLbx ;
FIELDS oPreccos:Codigo , ;
oPreccos:Nombre , ;
transform(oPreccos:ventas,"999,999,999.99") , ;
transform(oPreccos:notas,"999,999,999.99") , ;
transform(valc(oPreccos:ventas-oPreccos:Notas),"999,999,999.99") ;
HEADER "Código","Nombre","Ventas", "Notas", "Total" ;
ID 172 ;
OF oWndFact01 ;
SIZES 40,380,75,75,75 UPDATE

oPreccos:SetBrowse( oLbx )

oLbx:nLineHeight := 16
oLbx:nHeaderHeight := 16
//oLbx:nFreeze := 4
oLbx:aHJustify:={2,2,2,2,2}
oLbx:={.t.,.f.,.t.,.t.,.t.}

oLbx:bRClicked := { | nRow, nCol | menutomenuop( nRow, nCol ) }



///////////////////////////////////
static function menutomenuop( nRow, nCol, oCtrl )
local oMenu
menu oMenu popup
menuItem "Opcion"
endMenu
activate popup oMenu at nRow, nCol of oCtrl
return nil

///////////////////////////////////

quique wrote:

Code: Select all Collapse

obj:bRClicked := { | nRow, nCol | menu( nRow, nCol ) } 

static function menu( nRow, nCol, oCtrl ) 
   local oMenu 
   menu oMenu popup 
      menuItem "Opcion" 
   endMenu 
   activate popup oMenu at nRow, nCol of oCtrl 
return nil

prueba cambiando

oLbx:bRClicked := { | nRow, nCol | menutomenuop( nRow, nCol, oLbx ) }

Quique
Asi si me funcionó te agradezoco mucho

Atentamente,
Julio Ponce