FiveTech Support Forums

See oCol:nEditType := any value > 0 like EDIT_GET, EDIT_BUTTON, etc for the columns you want to edit.
Retain oCol:nEditType := 0 for other columns.

What else am I missing?

I tried also with

:nEditType := EDIT_BUTTON
:bEditBlock := { |o|Msginfo("") }
:bEditWhen := { || oBrw:nArrayAt<>1 }

I wish when on first line of the browse thefinal user cannot edit the cell

the user can edit only from second line

Please try
:bEditWhen := { || oBrw:KeyNo == 1 }

nageswaragunupudi wrote:This is possible in 18.04:


For Gets also.

Rao

:bEditWhen := { || oBrw:KeyNo == 1 }

I tried also with

:bEditWhen := { || oBrw:KeyNo <>1 }

it continue to process the editblock on first line

Rao if you try this test

#include "fivewin.ch"

function Main()

   local oDlg, oBrw

   USE c:\work\FWH\SAMPLES\CUSTOMER   

   DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE Alias() ;
      AUTOCOLS CELL LINES NOBORDER

   WITH OBJECT oBrw:aCols[ 2 ]
      :nEditType     := EDIT_BUTTON
      :AddResource( "OPEN" )
      :nBtnBmp       := 1
      :bEditBlock    := { || test()}
      :beditwhen    := { || oBrw:keyno <> 1 }
   END
   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

return nil

Function test()
return "modified"

it modified the record inserting "modified"

I wish no modify the first record How I can resolve ?

beditwhen must make as this function

Function test(oBrw)
IF oBrw:keyno =1
Msginfo(" I cannot mofified")
else
return "modified"
endif

return nil

but it not run ok

Now I correct with

:bEditBlock := { ||IF(oBrw:KeyNo=1,,RES->QUANTITY++) }

but I cannot use bwhenedit codeblock

Now with these lines seem run ok

 WITH OBJECT oBrw:aCols[ 4]
            :AddBmpFile(".\bitmaps\sh_minus.bmp")
            :nBtnBmp := 1
            :nwidth    := 40
            :nEditType := EDIT_BUTTON
            :bEditBlock := { ||IF(oBrw:KeyNo=1,,IIF(RES->QUANTITY>1, RES->QUANTITY--,RES->QUANTITY:= 1))  }
            :lBtnTransparent := .t.
            :lBmpStretch := .t.
            :nDataStrAlign := AL_CENTER
            :nHeadStrAlign := AL_CENTER
         END


          WITH OBJECT oBrw:aCols[ 5]
            :AddBmpFile(".\bitmaps\sh_plus.bmp")
            :nBtnBmp := 1
            :nwidth    := 60
            :nDataStrAlign := AL_CENTER
            :nHeadStrAlign := AL_CENTER
            :nEditType := EDIT_BUTTON
            :bEditBlock := { ||IF(oBrw:KeyNo=1,,RES->QUANTITY++)  }
            :lBtnTransparent := .t.
           END

is there a bug on bwhenedit codeblock ?

is there a bug on bwhenedit codeblock ?

thanks

Saludos estoy necesitando poner un button en el xbrowse que me lleve a una consulta de movimientos del documento seleccionado todo funciona bien le he puesto una imagen al button pero cuando abandono la aplicación se me cuelga comento ese configuracion de la columna y termina normal.

/
WITH OBJECT aBrw:aCols[ 1 ]
:addbmpfile( op:bmp16+"eye.bmp" )
:nBtnBmp := 1
:nEditType := EDIT_BUTTON
:bEditBlock := {|| VerItems( cCodigo,cQry:tipo,cQry:ord_comp )}
:lBtnTransparent := .t.
:lBmpStretch := .t.
END
/
he tenido que solucionarlo usando

:aCols[01]:bLDClickData := { || VerItems( cCodigo,cQry:tipo,cQry:ord_comp ) }

version de FWH 1801 hay alguna razon ??