Hello everyone. Does anyone know of any examples of TXBrowse() being used to display two tables held in a one-to-many relationship? The main problem is getting the parent TXBrowse() to send a refresh message to the second TXBrowse() window when the record position of the parent browse changes. It would be nice if I could set a code block notification in the Parent browse that would fire whenever the parent record pointer moves, and send a message to the child browse to completely refresh. In the class help file for TXBrowse() the closest thing I see to this is the :bSkip block which would certainly be notified when a parent record move is made because it would have to actually implement it. Is there a way to get notification of record position change without having to write a custom skip block for the parent browse? Thanks!
I use this way:
oBrwVen := TXBrowse():New( oDlg1 )
oBrwVen:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrwVen:nColDividerStyle := LINESTYLE_LIGHTGRAY
oBrwVen:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oBrwVen:bSeek := {|c| DbSeek( Upper( c ) ) }
oBrwVen:bChange := {||VEI->(OrdScope(0,cNLoja+VEN->nupd)),VEI->(OrdScope(1,cNLoja+VEN->nupd)),VEI->(DbGoTop()),oBrwVen2:GoTop(),oBrwVen2:Refresh()}
oCol := oBrwVen:AddCol()
oCol:cHeader := "Venda"
oCol:bStrData := { || VEN->nupd }
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
oCol:nWidth := 71
oCol:bLClickHeader := {|| Checa_Indices(1,1,oBrwVen,"VEN") }
oCol:AddBmpFile( "BLANK.BMP", .T. )
oCol:AddBmpFile( "CLIP.BMP", .T. )
oCol:nHeadBmpNo := 1
....
....
oBrwVen2 := TXBrowse():New( oDlg1 )
oBrwVen2:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrwVen2:nColDividerStyle := LINESTYLE_LIGHTGRAY
oBrwVen2:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oCol := oBrwVen2:AddCol()
oCol:cHeader := "Venda"
oCol:bStrData := { || VEN->nupd }
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
oCol:nWidth := 71
oCol:bLClickHeader := {|| Checa_Indices(1,1,oBrwVen,"VEN") }
oCol:AddBmpFile( "BLANK.BMP", .T. )
oCol:AddBmpFile( "CLIP.BMP", .T. )
oCol:nHeadBmpNo := 1
....
....Hope this helps
FWH / xHb / xDevStudio / SQLLIB
Hello Kleyber. That's work very well, thank you so much! The big thing I needed to know about was the :bChange block (I didn't see it in the available methods of the TXBrowse() documentation.
One thing, how do you handle the case of their being no related records in the Vei table for the current Ven record? In my test, the Vei table remains on the related records for the previous Ven record. Is there a way to have the child Vei browse simply show no records in that case? I tried setting oBrwVen2:nDataLines to zero in that case but that didn't clear the browse display. Thanks!
Patrick
I use a scope for the related records - and on the bChange clear the
scope and set another scope for the next set records and if no records match then I hide the browse oLbx:Hide().
Colin
Thanks Colin that certainly works, but if the user is scrolling though records in the parent table, it creates a flashing effect as the child browse is refreshed and changes to grey with no grid lines for those parent records for which no related records exist in the child table. I'll use that for now, but eventually I'd like to find a way to keep the column titles and grid lines, just have no data showing when there are no related records.
:Hide is another TXBrowse() method that I don't see in the TXBrowse class definition in the FiveWin documentation, so I'm sure glad you guys know about it. Hopefully the FiveWin .chm files will be updated again soon.
-Patrick
Patrick,
Class TXBrowse inherits from Class TControl which inherits from Class TWindow. So there are DATAs and Methods that you don't see in Class TXBrowse source code as they are declared in those parent classes, i.e. Hide()
The docs are quite updated 
Actually my copy of the fwclass.chm file does not have a :Hide() method in the TControl class (the closest thing is a HideDots() method). Also, the formatting of the fwclass.chm file seems very strange compared with the very nice and orderly formatting of the other help files such as fwfun.chm where Syntax, Returns, Comments, etc. are nicely separated. So I'm wondering if my copy of fwclass.chm might possible be damaged. I'm attaching an image of how it looks on my screen.
[/img]
Hide Hide window Syntax: TWindow:Hide() \\ Purpose: Hides the window, and brings another one to the top.
EMG
Hey Enrico,
What's the actual name of the file that's in? Maybe I'm missing something. The chm files I have are:
Directory of C:\FWH\MANUAL
11/02/2003 06:41 AM 567,167 fivewin.chm
03/02/2006 08:57 AM 522,563 fwclass.chm
02/03/2005 10:32 AM 185,193 fwcmd.chm
03/02/2006 09:03 AM 1,008,766 fwfun.chm
The hlp files I have are are quite old, so I thought the chm files are complete replacements for them. But the ones I have are:
Directory of C:\FWH\MANUAL
12/19/2001 12:14 PM 55,293 fiveodbc.hlp
11/19/2002 07:14 PM 345,862 fwclass.hlp
11/19/2002 07:27 PM 269,883 fwcmd.hlp
11/19/2002 07:02 PM 616,700 fwfun.hlp
07/04/2001 06:45 PM 213,338 fwprog.hlp
Thanks - Patrick
It is in fwclass.chm. It wont's come up with a search but it is there.
EMG