Edit cell on xbrowse

[Silvio.Falconi]

on a xbrowse I use




:nEditTypes := EDIT_GET

the user can insert numbers But I wish the use can insert only number of two digit from 1 to 90

How I can resolve ?

[cmsoft]

Puedes usar bEditValid

Code: Select all  Expand view

:bEditValid :=  {| oGet | if(oGet:value > 0 .and. oGet:value < 91,.t.,(MsgInfo("Solo 0 a 90"),.f.)) }

[Silvio.Falconi]

Puedes usar bEditValid

Code: Select all  Expand view

:bEditValid :=  {| oGet | if(oGet:value > 0 .and. oGet:value < 91,.t.,(MsgInfo("Solo 0 a 90"),.f.)) }

Not Work



I made

@ 80, 10 XBROWSE oBrw SIZE 455,oDlg:nBottom-200 PIXEL OF oDlg ;
DATASOURCE aData AUTOCOLS CELL LINES NOBORDER FASTEDIT

SetupBrowseMatrix(oBrw)
oBrw:RecSelShowKeyNo()
oBrw:CreateFromCode()

static function SetupBrowseMatrix( oBrw )

WITH OBJECT oBrw
// :RecSelShowKeyNo()

AEval( :aCols, { |o,i| o:cHeader := LTrim( Str( i, 2 ) ) } )
:bEditValid := {| oGet | if(oGet:value > 0 .and. oGet:value < 91,.t.,(MsgInfo("Solo 0 a 90"),.f.)) }
:nEditTypes := EDIT_GET
:nWidths := 24
:lDrawBorder := .t.


....


END

[Silvio.Falconi]

perhaps ...

Code: Select all  Expand view

For n=1 to  len(oBrw:aCols)
        oBrw:aCols[n]:bEditValid :=  {| oGet | if(oGet:value >= 0 .and. oGet:value < 91,.t.,;
                         (MsgInfo("Solo da 0  a 90"),.f.)) }
      END

But it must erase the edit

[cmsoft]

bEditValid es un metodo de la clase TXBrwColumn no de la clase TXBrowse
Debes ponerlo a cada columna que desees

[nageswaragunupudi]

But it must erase the edit

Please try this alternative

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local aData := Array( 10, 10 )

   AEval( aData, { |aRow| AFill( aRow, 0 ) } )

   XBROWSER aData FASTEDIT SHOW RECID SETUP ( ;
      oBrw:bEditValues := { |x,o| If( x == nil, o:oBrw:aRow[ o:nCreationOrder ], ;
         If( x >= 0 .and. x < 91, o:oBrw:aRow[ o:nCreationOrder ] := x, nil ) ) }, ;
      oBrw:cEditPictures := "@Z 99" ;
      )

return nil