FiveTech Software tech support forums

by **jponce** » Thu Jul 17, 2008 5:09 pm

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

by **quique** » Thu Jul 17, 2008 5:12 pm

Code: Select all Expand view RUN: 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

by **jponce** » Thu Jul 17, 2008 5:37 pm

Hola quique

Probe pero no me funciona que estare haciendo mal

TWbrowse():lHscroll:= .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:aJustify:={.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 Expand view RUN
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

by **quique** » Thu Jul 17, 2008 5:40 pm

prueba cambiando

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

by **jponce** » Thu Jul 17, 2008 5:45 pm

Quique
Asi si me funcionó te agradezoco mucho

Atentamente,
Julio Ponce

FiveTech Software tech support forums

POPUP LISTBOX

POPUP LISTBOX

Who is online