Hi All ,
Which event we should use to display/get value of cSeek in XBROWSE. if I use bKeychar it does not display latest value because the bKeychar block evaluates before changing ::cSeek variable.
Thanks
Shridhar
If the purpose is to display oBrw:cSeek then what we are required to do is :
@ nRow, nCol SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 100,20 OF oDlg
XBrowse automatically updates the SAY.
oBrw:cSeek is updated only after successful seek and refresh.
If you want to know the value prior to seek,
oBrw:bSeek := { |cSeek| MsgInfo( cSeek ), .... yourseekfunc( cSeek ) }
Dear Sir ,
In 12.08 I was using bChange block to populate cSeek value in a Get Objects like oBrw:bChange{ |oGet| oGet:TextOut( cSeek ) }. But the same code does not work in FWH 13.09. so thats why I posted this query.
if we have bPostSeek or bPostAlEvents blocks that would be great because we have almost inbuilt seek functions for the different database. I am using Dolphin Lib.
Thanks
Shridhar
oBrw:bChange{ |oGet| oGet:TextOut( cSeek ) }oBrw:bChange := { |oGet| oGet:TextOut( cSeek ) } DEFINE DIALOG oLovWnd FROM nTop , nLeft TO nBottom, nRight STYLE nOr( DS_MODALFRAME, WS_POPUP ) PIXEL
@ 0 , 0 XBROWSE oLovBrw SIZE nLovWidth, nLovHight PIXEL ;
OF oLovWnd FONT oApp:oFontBrw1 ;
COLUMNS oGet:xaCols;
OBJECT oQry AUTOSORT
//HEADERS oGet:xaHeaders ;
oLovBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLovBrw:bClrSelFocus := { || { nRGB( 255, 255, 255 ) , nRGB( 0, 0, 160 ) } }
oLovBrw:bChange := { || ( oGet:cText( oLovBrw:cSeek ) ) } // here the GET update with the latest value of cSeek but this does not work in 13.09
oLovBrw:bKeyChar := { | n, f | IIf( n == VK_RETURN , ( oGet:cText( AllTrim( ( oQry:FieldGet( oGet:xuGetField ) ) ) ), oLovWnd:END() ) , NIL ) }Shri;
Check out the oSeek property of the xbrowse class.
oBrw:oSeek := … some previously declared TGet object. I think that's what you are looking for.
Reinaldo.
Hi Reinaldo,
I tried the oBrw:oSeek as well but cSeek value and oSeek value does NOT synchronize properly. oBrw:oSeek updates later than cSeek for instance if cSeek shows "India" whereas in the GET box it shows "Indi" the last letter "a" does not shows in the oSeek ( GET box). oBrw:cSeek works fine but that is not my need I want to display the latest value in GET.
REDEFINE GET oGet3 VAR cSeek ID 100 OF oDlg WHEN .f.
WITH Object oBrw
:oSeek := oGet3
:bSeek := {|c| ::oDbf:Seek( upper( c ) ) }// CALLING INCREMENTAL SEARCH FUNCTION IN THE GET bChange Event.
oGet:bChange := < | n, f |
myListIncr( oGet ,"Select Item_Name from Item_mast order item_name ",{"item_name"},"item_name" )
oWnd:Update()
>
//------------------------------------------------------------------------------
FUNCTION myListIncr( oGet , cSqlQry , aCols , cGetField )
LOCAL oLovBrw
LOCAL nWnd_H := ( LST_CHARPIX_H * 15 )
LOCAL cKeyID
LOCAL nLovHight
LOCAL nLovWidth
LOCAL oLovWnd
LOCAL oQry
LOCAL j
aGCoors := GetWndRect( oGet:hWnd )
nTop := aGCoors[ 1 ] + ( ( aGCoors[ 3 ] - aGCoors[ 1 ] ) + 1 )
nLeft := aGCoors[ 2 ]
nBottom := aGCoors[ 3 ] + ( ( aGCoors[ 3 ] - aGCoors[ 1 ] ) * 20 )
nRight := aGCoors[ 4 ]
nLovHight := ( nBottom - nTop ) / 2
nLovWidth := ( nRight - nLeft ) / 2
nLovHight := nLovHight - 10
oQry := oApp:gDBServer:Query( cSqlQry )
DEFINE DIALOG oLovWnd FROM nTop , nLeft TO nBottom, nRight STYLE nOr( DS_MODALFRAME, WS_POPUP ) PIXEL
@ 0 , 0 XBROWSE oLovBrw SIZE nLovWidth, nLovHight PIXEL ;
OF oLovWnd FONT oApp:oFontBrw1 ;
COLUMNS aCols;
OBJECT oQry AUTOSORT
oLovBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLovBrw:lIncrFilter := .T.
oLovBrw:bClrSelFocus := { || { nRGB( 255, 255, 255 ) , nRGB( 0, 0, 160 ) } }
oLovBrw:oSeek := oGet
oLovBrw:bKeyChar := { | n, f | IIf( n == VK_RETURN , oLovWnd:END() , NIL ) }
oLovBrw:lHeader := .F.
oLovBrw:lFooter := .F.
oLovBrw:lHScroll := .F.
oLovBrw:lRecordSelector := .F.
oQry:Seek( Upper( AllTrim( oGet:cText() ) ) , cGetField , , ,.T. )
oLovBrw:CreateFromCode()
oLovWnd:oClient := oLovBrw
@ nLovHight+1, 00 SAY oLovBrw:oSeek PROMPT oLovBrw:cSeek SIZE 150, 10 PIXEL ;
FONT oApp:fBold OF oLovWnd
ACTIVATE DIALOG oLovWnd ON INIT ( oLovBrw:SetFocus() )
oQry:END()
oGet:oWnd:GoNextCtrl( oGet:hWnd ) // Move NEXT Control
RETURN cKeyIDREDEFINE GET oGet3 VAR cSeek ID 100 OF oDlg WHEN .f.
…
oBrw:oSeek := oGet3
… // 3 TGETs
@50, 120 GET aoGET[ 1 ] VAR AD_ACCT_NAME SIZE 325 , C_GETH PIXEL OF oWnd ;
NOBORDER COLOR C_FCLR, C_BCLR FONT oApp:oFontGet UPDATE
@80, 120 GET aoGET[ 2 ] VAR AD_AGRP_NAME SIZE 325 , C_GETH PIXEL OF oWnd ;
NOBORDER COLOR C_FCLR, C_BCLR FONT oApp:oFontGet UPDATE
@210, 120 GET aoGET[3 ] VAR AD_OP_BAL PICTURE C_FORMAT_AMT SIZE 125, C_GETH PIXEL Right OF oWnd ;
VALID ! ( AD_OP_BAL < 0 ) ;
NOBORDER COLOR C_FCLR, C_BCLR FONT oApp:oFontGet UPDATE
// 2nd GET has bChange to Call XBROWSE
// As soon as user press a key the list open to search values
aoGET[ 2 ]:bChange := < | n, f |
myListIncr( oGet ,"Select Item_Name from Item_mast order item_name ",{"item_name"},"item_name" )
oWnd:Update()
>Hi Reinaldo ,
Could you please let me know your view in this requirement whether it is possible to implement in FWH ?.
Hi All,
Requesting to all FWH users...!
REDEFINE XBROWSE oData ID 120 OF oDlg3 AUTOSORT
