GET which twice Function

[Jimmy]

hi,

i have a GET to "show" RECNO()

Code: Select all  Expand view

  0, 672 GET oGet VAR nVar PICTURE "999999" SIZE 96, 48 PIXEL RIGHT OF oBar ;
            FONT oFontDefault ;
            COLOR BFcolor, BGcolor ;
            VALID (.T.)

   oBrwDBF:bChange := { || SayStatusDBF(oBrwDBF,oGet,@nVar) }

now i like to use "same" GET to "input" Number and press "ENTER" for "GOTO" ... how ... need Idea

---

when "navigate" in XBROWSE Codeblock bChange will call PROCEDURE to "assign" RECNO()
when "input" a Number i want to press "ENTER" for "GOTO"

how can i find out if "ENTER" was press

Code: Select all  Expand view

           VALID ( IF(IsPressENTER(),Do_Goto(nVar),NIL), .T. )

[cmsoft]

Code: Select all  Expand view

@ 0, 672 GET    oGet VAR nVar PICTURE "999999" SIZE 96, 48 PIXEL RIGHT OF oBar;
            FONT oFontDefault ;
            COLOR BFcolor, BGcolor ;
        ACTION oBrwDBF:Goto(oGet:Value) BITMAP "BUSC1"  

Algo asi?

[Jimmy]

hi,

you are right, just call Function in VALID

Code: Select all  Expand view

   VALID ( CheckRecno( oBrwDBF, oGet, nVar ), .t. )

STATIC PROCEDURE CheckRecno( oBrwDBF, oGet, nVar )
   IF nVar <> RECNO()
      GOTO( nVar )
      oBrwDBF:refresh()
      oBrwDBF:SetFocus()
   ENDIF
RETURN

i was confuse by

Code: Select all  Expand view

    oBrwDBF:bChange := { || SayStatusDBF( oBrwDBF, oGet, @nVar ) }

STATIC PROCEDURE SayStatusDBF( oBrwDBF, oGet, nVar )
   // per Refernce
   nVar := RECNO()

   IF DELETED()
      oGet:SetColor( CLR_WHITE, CLR_RED )
   ELSE
      oGet:SetColor( BFcolor, BGcolor )
   ENDIF

   oGet:refresh()
RETURN