FiveTech Support Forums

Maybe you could just create the column at the start but specify a width of zero, then change the width at runtime.

No,
I think ( and I found it on this forum) I can make a function type

Function Addcolumn()
ADD TO oBrw AT 8 DATA oBrw:Rit HEADER "SlNo"
oBrw:Rit:setcheck()
return nil

where Rit ia a field .... but it not run here!!!

ADD TO oBrw AT 8 DATA oBrw:Rit HEADER "SlNo"
oBrw:Rit:setcheck()

There are two problems. Rit is not data of oBrw, and fields don't have methods, so you can't do oBrw:Rit:setcheck().

There is a setCheck() method of oBrw but it has to do with bitmaps.

METHOD SetCheck( aBmps, uEdit, aPrompts ) CLASS TXBrowse

Maybe you should review the original posting showing the code you posted.

Did you try my previous suggestion?

James the setcheck is not important !! I Know there are two bmps. If you see testxbrowse sample there is a field maried

oCol  := oBrw:oCol( "Married" )

oCol:SetCheck( { "GREEN", "RED" }, {|o, v| (DBRLOCK(), _FIELD->Married := v, DBUNLOCK() ) } )
oCol:bStrData := { || If( _FIELD->Married, "Yes", "No" ) }
oCol:nDataStrAlign := AL_RIGHT

Rit is a field of the same archive of xbrowse

on init there is not the column and the final user can insert it on runtime because for one document it is not important while for other it is need (order,invoice,quote...)

and if the user check this colums the procedure must calc an specific oeration on Total od Import of invoice

ADD TO oBrw AT 8 ............
is the right way.

But I am not sure what you want to display in the inserted column and what other column you want to change and refresh.

If you just want to display 20% of the value in Importo column, you can do this

ADD TO oBrw AT 8 DATA (oBrw:Importo:Value * 0.20) TITLE "New" PICTURE "9999.99"

If you want some other display and some other action, we can incorporate the same

Mr Nages,

I try to explain you

I wish only insert a column with checkbox.... from user

the user can insert this column check but at init when I create the xbrowse it must no showed

then..

on my Function of Totals I musst be able to Know if that record at that column is check .

If it check I must calc the new import ( sample nImporto+20%)

I made

@x,y button ...action Ins_Ritenuta(oBrw)

Function Ins_Ritenuta(oBrw)

  WITH OBJECT oBrw:InsCol( 8 )
  :bEditValue    := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 }
  :SetCheck()
  :nHeadBmpNo    := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) }
  :cHeader       := "Rit."

END

    oBrw:bLClicked        := { |r,c,f,oBrw| If( oBrw:MouseColPos( c ) == 8 , ;
                                           If( ( f := AScan( oBrw:aSelected, oBrw:BookMark ) ) == 0, ;
                                                       AAdd( oBrw:aSelected, oBrw:BookMark ), ;
                                                       ADel( oBrw:aSelected, f, .t. ) ), nil ), ;
                                                        oBrw:RefreshCurrent() }
   oBrw:refresh()
   return nil

but it make errors

I tried also with

              WITH OBJECT oBrw:InsCol( 8 )
                    :lHide      :=  lRitenuta
                    :bEditValue    := { || AScan( oBrw:aSelected, oBrw:BookMark ) > 0 }
                    :SetCheck()
                    :nHeadBmpNo    := { || If( Len( oBrw:aSelected ) == oBrw:nLen, 1, 2 ) }
                    :cHeader       := "Rit."
                 END

at the init lRitenuta is false

the the use can press a button and change lritenuta

@x,y button ACTION ( lRitenuta:=IF(lRitenuta,.f.,.t.), oBrw:refresh() )

the browse is not refreshed