topic-43029

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

GET which twice Function
Posted: Wed Apr 12, 2023 02:26 PM

hi,

i have a GET to "show" RECNO()

   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 :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 (fw): Select all Collapse

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

greeting,

Jimmy

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: GET which twice Function
Posted: Wed Apr 12, 2023 04:35 PM

Code (fw): Select all Collapse

@ 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?

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: GET which twice Function
Posted: Wed Apr 12, 2023 05:24 PM

hi,

you are right, just call Function in VALID

Code (fw): Select all Collapse

    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 (fw): Select all Collapse

     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

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion