FiveTech Software tech support forums

You should not be using bOnChange at all.

bEditBlock should return the value to be assigned if the user selects else nil.

Example:

oCol:bEditBlock := { || PRD->VELD }
Remove bOnChange

... ::Value, ::BlankValue() ) end if ::obrw:lgetbar if ::obrw:nrowsel==-1 ::bOnPostEdit:={|o,v,n| if(n != VK_ESCAPE ,::cf1:=v,)} ::nEdittype:={||if(::beditblock<>nil,EDIT_GET_BUTTON,1)} if ::beditblock<>nil.and.GetCursorPos()[2]>::nwidth+ ::nDisplayCol-10 ::RunBtnAction() end elseif ...

... the description column for this use the codeblock Helppre() ----------- oLbxp:aCols[ 5 ]:nEditType := EDIT_GET_BUTTON // // oLbxp:aCols[ 5 ]:bEditBlock := {||HelpcPres(oLbxp)} oLbxp:aCols[ 5 ]:bEditBlock := {||(if(Helppre(),VolHpre(.t.),VolHpre(.f.)),.t.)} --------------------------- Pressing ...

... "TB" ; COLUMNS aBrowse CELL LINES FOOTERS NOBORDER FONT oFont WITH OBJECT oBrw WITH OBJECT oBrw:aCols[1] :nEditType := EDIT_BUTTON :bEditBlock := { | nRow, nCol, oCol, nKey | LookArt( nRow, nCol, oCol, nKey ) } END ... end oBrw:SetRDD() oBrw:CreateFromCode() oBrw:lFooter:=.t. oBrw:MakeTotals() ...

... "TB" ; COLUMNS aBrowse CELL LINES FOOTERS NOBORDER FONT oFont WITH OBJECT oBrw WITH OBJECT oBrw:aCols[1] :nEditType := EDIT_BUTTON :bEditBlock := { | nRow, nCol, oCol, nKey | LookArt( nRow, nCol, oCol, nKey ) } END ... end oBrw:SetRDD() oBrw:CreateFromCode() oBrw:lFooter:=.t. oBrw:MakeTotals() ...

... que la instruccion no es la que necesito Gracias a todos Josep Armengol Hola Ing. Josep, prueba haciendo con este ejemplo: oBrw:aCols[4]:bEditBlock := {|| MovDetFac(oBrw1,oBrw2) } // llama a una funcion que abre un Dlg y muestra el Detalle A ver que tal. Saludos y buen dia.! Atte: Adrian ...

Antonio

Lo que necesito es que el cuadro que muestra el bEditBlock poner una imagen con F2 y al pulsar F2 me ejecute un función que muestre otro browse donde pueda elegir un registro.

Gracias,

Saludos,

Adhemar

Amigos

El SetBrnGet es de TSBrowse, como es en xBrowse?

Que sirve para poder pulsar una tecla asignada para realizar una acción cuando estamos usando bEditBlock, además permite colocar una imagen

Gracias por la ayuda.

Saludos,

Adhemar

oBrw:aCols[ COL_PC ]:bEditBlock := {|row, col, oCol| picklist("profit", "cntr", self, LN_CNTR) }oBrw:aCols[ COL_PC ]:bEditValid := {|oGet, oCol| IsValidPC(oGet, self) }  ...

... leaf for column "AmtPaid". Notice when clicking on the button of a branch cell of the tree it works as expected -that is, as coded on bEditBlock. When clicking on a leaf, the xbrowse breaks. If I compile with fwh 2012 it all works perfectly. If I compile with fwh 2014 it breaks. Notice ...

... http://forums.fivetechsupport.com/viewtopic.php?p=155418#p155418 * New: xBrowse: New column data lRunBtnAction class TXBrwColumn. When oCol:bEditBlock or oCol:aEditListTxt is not empty and oCol:bEditValid sets oCol:lRunBtnAction to .T. and exits, the bEditBlock / Listbox is executed immediately ...

... the following code:    if oEditGet != nil .and. !oEditGet:lValidating      if oCol:lRunBtnAction == .t. .and. ;         ( ! Empty( oCol:bEditBlock ) .or. ! Empty( oCol:aEditListTxt ) )            oCol:lRunBtnAction := nil         oCol:oEditGet:End()         oCol:oEditGet ...

... "Age", "First", "Last" ;      CELL LINES FASTEDIT NOBORDER   oBrw:Age:nEditType     := EDIT_BUTTON   oBrw:Age:bEditBlock    := { |nRow,nCol,oCol,nKey| ChooseValue( oCol:Value ) }   oBrw:CreateFromCode()   ACTIVATE DIALOG oDlg CENTEREDreturn ...

... field. XBrowse automatically provides edit of RTF memps, if you set oCol:nEditType := EDIT_BUTTON for a memofield and you do not have to provide bEditBlock. So far all of my work has been pure text with Memoedit( ) but my clients think it would be good to have highlighted text. Good Idea. Actually ...

Use oCol:nEditType := EDIT_BUTTON

You need to specify oCol:bEditBlock := { |nRow,nCol,oCol,nKey| MyEditFunc( nRow, nCol, oCol, nKey )

In this function you can browse the other table.
If selected return the value to be written in the browsed table.
If not selected you should return NIL