Relations/Scope on/off
Relations/Scope on/off
Hi,
Please "little" help for me
I have several databases (6), one is master, and other is scoped with it using one key/field.
In app window I have all six tables as "one to many" view. If I listing in first, records on othes move too using scope key.
bCPA,bEPA,bSTA,bBYT,bPVA.
It is correct. thanks Roger Donnay for super examples in eXpress
But in one moment I want OFF this relation using click to button Rel.VYP for example, and want see all databases and may listing in it in all 6 "tables", respectively I want make some report from all databases using filters, etc.
I sit on this problem about 3 days, but do not know how do it.
If I OFF scope, I have listing in first database,without listing in others, it is ok, but I do not see full database 2,3,4..
How can I reload or Refresh it .
I used DC_Clrscope() in several points in source... but still problem.
Please, see for source , here is only important part from it.
SOURCE :
Local bVLA,bCPA,bEPA,bSTA,bBYT,bPRV
* relations for scope
bCPA:={||CPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_DbGoTop()), ;
oBrowsepa:refreshAll()}
bEPA:={||EPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_DbGoTop()), ;
oBrowseep:refreshAll()}
bSTA:={||STAVBY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_DbGoTop()), ;
oBrowsecs:refreshAll()}
bBYT:={||BYTY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
BYTY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
BYTY->(DC_DbGoTop()), ;
oBrowsebp:refreshAll()}
bPRV:={||PRV->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
PRV->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
PRV->(DC_DbGoTop()), ;
oBrowsepv:refreshAll()}
* First database "window"
@pozyvl,10 DCBROWSE oBrowsevl ALIAS "VLASTNICI" ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
PRESENTATION aBrowPres ;
ITEMMARKED {|| ;
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
DC_Clrscope() ), ;
DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,(GETLIST_BROWSE)) , ;
zvolosc:=(VLASTNICI->OSC)}
DCSETPARENT oBrowsevl
DCBROWSECOL FIELD VLASTNICI->KN_CLV ;
HEADER "LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
* Second database "window"
@pozypa,10 DCBROWSE oBrowsepa ALIAS "CPARCELY" ;
SIZE rozxpa,rozypa PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsepa
DCBROWSECOL FIELD CPARCELY->CPAU ;
HEADER "Parcela " WIDTH znakpixc[1]*14
* etc
DCSETPARENT TO
* database 3. "window"
@pozyep,10 DCBROWSE oBrowseep ALIAS "EPARCELY" ;
SIZE rozxep,rozyep PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowseep
DCBROWSECOL FIELD EPARCELY->CPAU ;
HEADER "Parcela " WIDTH znakpixc[1]*14
* etc
DCSETPARENT TO
* database 4. "window"
@pozycs,10 DCBROWSE oBrowsecs ALIAS "STAVBY" ;
SIZE rozxcs,rozycs PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsecs
DCBROWSECOL FIELD STAVBY->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
database 5 "window"
@pozybp,10 DCBROWSE oBrowsebp ALIAS "BYTY" ;
SIZE rozxbp,rozybp PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsebp
DCBROWSECOL FIELD BYTY->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
* database 6 "window"
@pozypv,10 DCBROWSE oBrowsepv ALIAS "PRV" ;
SIZE rozxpv,rozypv PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsepv
* šírka poľa vypočítaná cez Len...
DCBROWSECOL FIELD PRV->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT oToolbar1
* TOOLBAR
@ pozyvl+10,rozxvl+20 DCTOOLBAR oToolbar1 PIXEL SIZE 80,600 ;
ALIGN DCGUI_ALIGN_LEFT ;
BUTTONSIZE 60,25 ;
SPACE fontnv ;
RESIZE DCGUI_RESIZE_REPOSONLY_X
* here is button to On/off Scope /relations toogle on/off
*****************************************************
DCADDBUTTON CAPTION {||cCaption} PARENT oToolbar1 ;
TOOLTIP "Zapnutie/Vypnutie relácie" ;
ACTION {||tone(1000,1),cCaption:=relzmen(),DC_GetRefresh(Getlist)}
* this is manually button to OFF scope / relation
DCADDBUTTON CAPTION "Rel.VYP" PARENT oToolbar1 ;
TOOLTIP "Vypnutie relácie" ;
ACTION {||tone(1000,1),relvyp()}
* this is manually button to ON scope / relation
DCADDBUTTON CAPTION "Rel.ZAP" PARENT oToolbar1 ;
TOOLTIP "Zapnutierelácie" ;
ACTION {||tone(1000,1),relzap()}
DCREAD GUI ;
OPTIONS GetOptions ;
TITLE "[ VLASTNÍCI ] - [ "+nazku+" ] - [ "+nazovdbf4+" ]" ;
MODAL ;
EVAL {|o|SetAppFocus(oBrowsevl:GetColumn(1))}
return(0)
* function to ON,OFF Scope
FUNCTION RELZMEN
if relon==.T.
relon=.F.
return("Rel.VYP")
elseif relon==.F.
relon=.T.
return("Rel.ZAP")
else
relon=.T.
return("Rel.ZAP")
endif
return("Rel.ZAP")
* Scope ON
FUNCTION RELZAP
relon=.T.
return nil
* Scope OFF
FUNCTION RELVYP
relon=.F.
return nil
Please "little" help for me
I have several databases (6), one is master, and other is scoped with it using one key/field.
In app window I have all six tables as "one to many" view. If I listing in first, records on othes move too using scope key.
bCPA,bEPA,bSTA,bBYT,bPVA.
It is correct. thanks Roger Donnay for super examples in eXpress
But in one moment I want OFF this relation using click to button Rel.VYP for example, and want see all databases and may listing in it in all 6 "tables", respectively I want make some report from all databases using filters, etc.
I sit on this problem about 3 days, but do not know how do it.
If I OFF scope, I have listing in first database,without listing in others, it is ok, but I do not see full database 2,3,4..
How can I reload or Refresh it .
I used DC_Clrscope() in several points in source... but still problem.
Please, see for source , here is only important part from it.
SOURCE :
Local bVLA,bCPA,bEPA,bSTA,bBYT,bPRV
* relations for scope
bCPA:={||CPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_DbGoTop()), ;
oBrowsepa:refreshAll()}
bEPA:={||EPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_DbGoTop()), ;
oBrowseep:refreshAll()}
bSTA:={||STAVBY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_DbGoTop()), ;
oBrowsecs:refreshAll()}
bBYT:={||BYTY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
BYTY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
BYTY->(DC_DbGoTop()), ;
oBrowsebp:refreshAll()}
bPRV:={||PRV->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
PRV->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
PRV->(DC_DbGoTop()), ;
oBrowsepv:refreshAll()}
* First database "window"
@pozyvl,10 DCBROWSE oBrowsevl ALIAS "VLASTNICI" ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
PRESENTATION aBrowPres ;
ITEMMARKED {|| ;
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
DC_Clrscope() ), ;
DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,(GETLIST_BROWSE)) , ;
zvolosc:=(VLASTNICI->OSC)}
DCSETPARENT oBrowsevl
DCBROWSECOL FIELD VLASTNICI->KN_CLV ;
HEADER "LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
* Second database "window"
@pozypa,10 DCBROWSE oBrowsepa ALIAS "CPARCELY" ;
SIZE rozxpa,rozypa PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsepa
DCBROWSECOL FIELD CPARCELY->CPAU ;
HEADER "Parcela " WIDTH znakpixc[1]*14
* etc
DCSETPARENT TO
* database 3. "window"
@pozyep,10 DCBROWSE oBrowseep ALIAS "EPARCELY" ;
SIZE rozxep,rozyep PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowseep
DCBROWSECOL FIELD EPARCELY->CPAU ;
HEADER "Parcela " WIDTH znakpixc[1]*14
* etc
DCSETPARENT TO
* database 4. "window"
@pozycs,10 DCBROWSE oBrowsecs ALIAS "STAVBY" ;
SIZE rozxcs,rozycs PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsecs
DCBROWSECOL FIELD STAVBY->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
database 5 "window"
@pozybp,10 DCBROWSE oBrowsebp ALIAS "BYTY" ;
SIZE rozxbp,rozybp PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsebp
DCBROWSECOL FIELD BYTY->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT TO
* database 6 "window"
@pozypv,10 DCBROWSE oBrowsepv ALIAS "PRV" ;
SIZE rozxpv,rozypv PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres
*FIT ; - aj tu zablokované lebo ide mimo okna
DCSETPARENT oBrowsepv
* šírka poľa vypočítaná cez Len...
DCBROWSECOL FIELD PRV->KN_CLV ;
HEADER " LV " WIDTH znakpixc[1]*7
* etc
DCSETPARENT oToolbar1
* TOOLBAR
@ pozyvl+10,rozxvl+20 DCTOOLBAR oToolbar1 PIXEL SIZE 80,600 ;
ALIGN DCGUI_ALIGN_LEFT ;
BUTTONSIZE 60,25 ;
SPACE fontnv ;
RESIZE DCGUI_RESIZE_REPOSONLY_X
* here is button to On/off Scope /relations toogle on/off
*****************************************************
DCADDBUTTON CAPTION {||cCaption} PARENT oToolbar1 ;
TOOLTIP "Zapnutie/Vypnutie relácie" ;
ACTION {||tone(1000,1),cCaption:=relzmen(),DC_GetRefresh(Getlist)}
* this is manually button to OFF scope / relation
DCADDBUTTON CAPTION "Rel.VYP" PARENT oToolbar1 ;
TOOLTIP "Vypnutie relácie" ;
ACTION {||tone(1000,1),relvyp()}
* this is manually button to ON scope / relation
DCADDBUTTON CAPTION "Rel.ZAP" PARENT oToolbar1 ;
TOOLTIP "Zapnutierelácie" ;
ACTION {||tone(1000,1),relzap()}
DCREAD GUI ;
OPTIONS GetOptions ;
TITLE "[ VLASTNÍCI ] - [ "+nazku+" ] - [ "+nazovdbf4+" ]" ;
MODAL ;
EVAL {|o|SetAppFocus(oBrowsevl:GetColumn(1))}
return(0)
* function to ON,OFF Scope
FUNCTION RELZMEN
if relon==.T.
relon=.F.
return("Rel.VYP")
elseif relon==.F.
relon=.T.
return("Rel.ZAP")
else
relon=.T.
return("Rel.ZAP")
endif
return("Rel.ZAP")
* Scope ON
FUNCTION RELZAP
relon=.T.
return nil
* Scope OFF
FUNCTION RELVYP
relon=.F.
return nil
Re: Relations/Scope on/off
The below code does not look correct.
You are refreshing everything except the browse objects.
Try changing to DC_GetRefresh(GetList)
You are refreshing everything except the browse objects.
Try changing to DC_GetRefresh(GetList)
Code: Select all
ITEMMARKED {|| ;
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
DC_Clrscope() ), ;
DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,(GETLIST_BROWSE)) , ;
zvolosc:=(VLASTNICI->OSC)}
The eXpress train is coming - and it has more cars.
Re: Relations/Scope on/off
change DC_GetRefresh(GetList) does not help me, .
second, third... databases are still "scoped"
But if I close window, and open again, all record are listed as I need
(if I click to button Rel.OFF, variable relon change from .T. to .F. and it is PUBLIC .)
I need some example like "one to many" from your demo sources with Scope on/off button
second, third... databases are still "scoped"
But if I close window, and open again, all record are listed as I need
(if I click to button Rel.OFF, variable relon change from .T. to .F. and it is PUBLIC .)
I need some example like "one to many" from your demo sources with Scope on/off button
Re: Relations/Scope on/off
Give me a sample program that I can compile and run.
Include the databases.
I will solve this for you.
Include the databases.
I will solve this for you.
The eXpress train is coming - and it has more cars.
Re: Relations/Scope on/off
Hi,
I think you will need to do a gotop after clearing the scope. With dc_getrefresh the 'view' is refreshed, but not the record positions.
I think you will need to do a gotop after clearing the scope. With dc_getrefresh the 'view' is refreshed, but not the record positions.
Re: Relations/Scope on/off
Hi,
I sent source to your mail.
If you have some time, please look to it.
Many thanks for your time .
Viktor alias Victorio.
I sent source to your mail.
If you have some time, please look to it.
Many thanks for your time .
Viktor alias Victorio.
Re: Relations/Scope on/off
skiman: please, tell me, where put dbgotop ? I examine put it to codeblock for scope, to ITEMMARKED, but no function.
I do not know, how refresh all tables, if I see more, than one on screen, need I some AppFocus to add to some place ?
I do not know, how refresh all tables, if I see more, than one on screen, need I some AppFocus to add to some place ?
Re: Relations/Scope on/off
update : I modify scope source , to two versions bCPA with scope, bCPA2 without scope, etc look here :
* relácie - zadanie väzieb VLA/CPA/EPA/STA/BYT/PRV
bCPA:={||CPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_DbGoTop()), ;
oBrowsepa:refreshAll()}
* this is key without relations / scope
bCPA2:={||CPARCELY->(DC_ClrScope()),CPARCELY->(DC_DbGoTop()),oBrowsepa:refreshAll()}
bEPA:={||EPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_DbGoTop()), ;
oBrowseep:refreshAll()}
bEPA2:={||EPARCELY->(DC_ClrScope()),EPARCELY->(DC_DbGoTop()),oBrowseep:refreshAll()}
bSTA:={||STAVBY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_DbGoTop()), ;
oBrowsecs:refreshAll()}
bSTA2:={||STAVBY->(DC_ClrScope()),STAVBY->(DC_DbGoTop()),oBrowsecs:refreshAll()}
bBYT:={||BYTY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
BYTY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
BYTY->(DC_DbGoTop()), ;
oBrowsebp:refreshAll()}
bBYT2:={||BYTY->(DC_ClrScope()),BYTY->(DC_DbGoTop()),oBrowsebp:refreshAll()}
bPRV:={||PRV->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
PRV->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
PRV->(DC_DbGoTop()), ;
oBrowsepv:refreshAll()}
bPRV2:={||PRV->(DC_ClrScope()),PRV->(DC_DbGoTop()),oBrowsepv:refreshAll()}
and too modify DCBROWSE , where is parameter relon, if true, with scope, if false, without scope :
@pozyvl,10 DCBROWSE oBrowsevl ALIAS "VLASTNICI" ;
SIZE rozxvl,rozyvl PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres ;
ITEMMARKED {|| ;
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
{Eval(bCPA2),Eval(bEPA2),Eval(bSTA2),Eval(bBYT2),Eval(bPRV2)} ), ;
DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,(GETLIST_BROWSE)) , ;
zvolosc:=(VLASTNICI->OSC)}
This work ok, but still I need click to first table ( ITEMMARKED ..) to accept switching Scope on or off .
But it is similar problem I need put some EVAL or now I do not know where to do it.
Maybe it is not very correct algoritm ...
* relácie - zadanie väzieb VLA/CPA/EPA/STA/BYT/PRV
bCPA:={||CPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
CPARCELY->(DC_DbGoTop()), ;
oBrowsepa:refreshAll()}
* this is key without relations / scope
bCPA2:={||CPARCELY->(DC_ClrScope()),CPARCELY->(DC_DbGoTop()),oBrowsepa:refreshAll()}
bEPA:={||EPARCELY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
EPARCELY->(DC_DbGoTop()), ;
oBrowseep:refreshAll()}
bEPA2:={||EPARCELY->(DC_ClrScope()),EPARCELY->(DC_DbGoTop()),oBrowseep:refreshAll()}
bSTA:={||STAVBY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
STAVBY->(DC_DbGoTop()), ;
oBrowsecs:refreshAll()}
bSTA2:={||STAVBY->(DC_ClrScope()),STAVBY->(DC_DbGoTop()),oBrowsecs:refreshAll()}
bBYT:={||BYTY->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
BYTY->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
BYTY->(DC_DbGoTop()), ;
oBrowsebp:refreshAll()}
bBYT2:={||BYTY->(DC_ClrScope()),BYTY->(DC_DbGoTop()),oBrowsebp:refreshAll()}
bPRV:={||PRV->(DC_SetScope(0,VLASTNICI->KN_CLV)), ;
PRV->(DC_SetScope(1,VLASTNICI->KN_CLV)), ;
PRV->(DC_DbGoTop()), ;
oBrowsepv:refreshAll()}
bPRV2:={||PRV->(DC_ClrScope()),PRV->(DC_DbGoTop()),oBrowsepv:refreshAll()}
and too modify DCBROWSE , where is parameter relon, if true, with scope, if false, without scope :
@pozyvl,10 DCBROWSE oBrowsevl ALIAS "VLASTNICI" ;
SIZE rozxvl,rozyvl PIXEL ;
NOSOFTTRACK ;
SCOPE ;
OPTIMIZE ;
CURSORMODE XBPBRW_CURSOR_ROW ;
SCROLLBARHEIGHT fontnv+2 ;
PRESENTATION aBrowPres ;
ITEMMARKED {|| ;
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
{Eval(bCPA2),Eval(bEPA2),Eval(bSTA2),Eval(bBYT2),Eval(bPRV2)} ), ;
DC_GetRefresh(GetList,,DCGETREFRESH_TYPE_EXCLUDE,(GETLIST_BROWSE)) , ;
zvolosc:=(VLASTNICI->OSC)}
This work ok, but still I need click to first table ( ITEMMARKED ..) to accept switching Scope on or off .
But it is similar problem I need put some EVAL or now I do not know where to do it.
Maybe it is not very correct algoritm ...
Re: Relations/Scope on/off
Update 2 :
I done it, everything works as I want, using two versions of "scope", as in previous part of source
I done it, everything works as I want, using two versions of "scope", as in previous part of source
Re: Relations/Scope on/off
Hi,
I would place it here:
...
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
DC_Clrscope(), .. .. ), ;
...
I would place it here:
...
if (relon,{Eval(bCPA),Eval(bEPA),Eval(bSTA),Eval(bBYT),Eval(bPRV)}, ;
DC_Clrscope(), .. .. ), ;
...