NetTalk Central
NetTalk Web Server => Web Server - Ask For Help => Topic started by: bramkip on October 24, 2007, 02:40:47 AM
-
Hi,
I have two questions;
1. How to implement a Tree function on a browse (with levels)
2. In a Browse the rows are highlighted after a click. It is possible to have it highlighted on a MouseOver?
Thanks
Bram Kip
-
Hi Bram,
1) There are a number of javascript tree controls floating around on the web, but I've not had an opportunity yet to incorporate one of them into the NetTlak package. It's on my list though.
2) I've played with this on and off, it's also been on my list, but I've not made a solution yet that I like, that works the way I want it to. It's also still on my list though.
Cheers
Bruce
-
I used this one in my "MenuOnLeft":
http://www.softcomplex.com/products/tigra_tree_menu/docs/
It's flexible, easy to use, and free... :)
I can recommend it.
regards
Evert
-
Hi Evert,
Indeed this is nice, but I need a Tree function for a parent with child browses. I think this is not possible with this Tigra Tree menu.
regards,
Bram
-
Hi Bram,
I think it is.
I used it in a different environment, to illustrate the dependecies between parent and child records in an AS/400 database.
It is just a matter of reading through the data the right way.
Trees are all about parents and children.
Rene
-
Hallo Bram,
Even een stukje in het Nederlands.
Ik zag dat je uit Musselkanaal komt en dat is maar 100 kilometer hier vandaan (Dokkum)
Maar de rest doe ik in het Engels dan snappen de andere forum gebruikers het ook. :)
Sorry guys this was just a little dutch.
however,
This is a sample of how i build the treeitems with three levels (And more is just as simple)
I know it ia a long one, but it could be helpfull for someone
regards
Evert
!!!!!!!!! I use the Main lvel to retrun to the mainMenu
Treemenu routine
temptext='BACK TO MAIN MENU'
linktext=clip('MenuOnLeft target="left_fram""')
packet = clip(packet) & |
'<9><<script language="JavaScript"><13,10>'&|
'<9><<!--//<13,10>'&|
'<13,10>'&|
'var TREE_ITEMS = [<13,10>'&|
'<9>['&''''&clip(temptext)&''''&','&''''&linktext&''''&',<13,10>'
do SendPacket
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! Then I make a menu-node that is only visible for customers to go to the check-out
if p_web.GetSessionValue('Customernumber')>0
temptext=clip('To ShoppingCart')
linktext=clip('ToCheckout target="right_fram""')
packet = clip(packet) & |
'<9,9>['''&clip(temptext)&''''&','&''''&linktext&''''&'],<13,10>'
do sendpacket
.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!Then the real Parent child thingy based on data files is starting
!!!!Based on these files:
open(ProductMainGroup,42h)
open(ConnectFileMainSub,42h)
open(ProductSubgroup,42h)
open(ConnectFileSubgroup_Group,42h)
open(ProductGroup,42h)
!!!!!!!!!
!!!!Here we go!
MAIN:MaingroupDescription=''
set(MAIN:KeyMaingroupDescription,MAIN:KeyMaingroupDescription)
loop until eof(ProductMainGroup)
next(ProductMainGroup)
temptext=clip(MAIN:MaingroupDescription)
z#=0
loop until z#=1
if instring('''',temptext,1,1)>0
x#=len(clip(temptext))
temptext=clip( SUB( clip(temptext),1,(instring('''',temptext,1,1)-1)) & SUB(clip(temptext),(instring('''',temptext,1,1)+1),x#) )
else
z#=1
.
end
linktext=clip('Bestelregel<!-- Net:s:SID-->&BrowseOrderregels_Sort=+bes:DEBNUM,+bes:Artikelnr&UpdateFile=Bestelregels&UpdateKey=bes:KEYORDERREGE&IDField=bes__ORDERREGELNU&Insert_btn=Insert&target=right_fram&filtertext=Hgroup:'&MAIN:Maingroupnumber&'.')
packet = clip(packet) & |
'<9,9>['&''''&clip(temptext)&''''&','&''''&linktext&''''&',<13,10>'
do sendpacket
HS:Maingroupnumber=MAIN:Maingroupnumber
set(HS:KeyMaingroupnumber,HS:KeyMaingroupnumber)
loop until eof(ConnectFileMainSub) or HS:Maingroupnumber<>MAIN:Maingroupnumber
next(ConnectFileMainSub)
if HS:Maingroupnumber=MAIN:Maingroupnumber
SUB:Subgroupnumber=HS:Subgroupnumber
get(ProductSubgroup,SUB:KeySubgroupnumber)
temptext=clip(SUB:SubgroupDescription)
z#=0
loop until z#=1
if instring('''',temptext,1,1)>0
x#=len(clip(temptext))
temptext=clip( SUB( clip(temptext),1,(instring('''',temptext,1,1)-1)) & SUB(clip(temptext),(instring('''',temptext,1,1)+1),x#) )
else
z#=1
.
end
linktext=clip('Bestelregel<!-- Net:s:SID-->&BrowseOrderregels_Sort=+bes:DEBNUM,+bes:Artikelnr&UpdateFile=Bestelregels&UpdateKey=bes:KEYORDERREGE&IDField=bes__ORDERREGELNU&Insert_btn=Insert&target=right_fram&filtertext=Sgroup:'&SUB:Subgroupnumber&'.')
packet = clip(packet) & |
'<9,9,9>['&''''&clip(temptext)&''''&','&''''&linktext&''''&',<13,10>'
do sendpacket
AKSG:Subgroup=SUB:Subgroupnumber
set(AKSG:PerSubgroup,AKSG:PerSubgroup)
loop until eof(ConnectFileSubgroup_Group) or AKSG:Subgroup<>SUB:Subgroupnumber
next(ConnectFileSubgroup_Group)
if AKSG:Subgroup=SUB:Subgroupnumber
ARG2:Groupnumber=AKSG:Groupnumber
get(ProductGroup,ARG2:KeyGroupnumber)
temptext=clip(ARG2:Description)
z#=0
loop until z#=1
if instring('''',temptext,1,1)>0
x#=len(clip(temptext))
temptext=clip( SUB( clip(temptext),1,(instring('''',temptext,1,1)-1)) & SUB(clip(temptext),(instring('''',temptext,1,1)+1),x#) )
else
z#=1
.
end
linktext=clip('Bestelregel<!-- Net:s:SID-->&BrowseOrderregels_Sort=+bes:DEBNUM,+bes:Artikelnr&UpdateFile=Bestelregels&UpdateKey=bes:KEYORDERREGE&IDField=bes__ORDERREGELNU&Insert_btn=Insert&target=right_fram&filtertext=Agroup:'&ARG2:Groupnumber&'.')
packet = clip(packet) & |
'<9,9,9,9>['''&clip(temptext)&''''&','&''''&linktext&''''&'],<13,10>'
do SendPacket
.
end
packet = clip(packet) & |
'<9,9,9>],<13,10>'
do SendPacket
.
end
packet = clip(packet) & |
'<9,9>],<13,10>'
do SendPacket
end
packet = clip(packet) & |
'<9>]<13,10>'&|
'];<13,10>'&|
'<9>//--><13,10>'&|
'<9><</script><13,10>'&|
''
do SendPacket
-
Hallo Evert,
<---- dutch ----->
Inderdaad, Dokkum is niet zover hier vandaan. Wat is je website?
<---- english ----->
Thanks for your example. I will try to implement this in my app.
Regards,
Bram