Linking Multiple Visualizations on Web
Posted: Wed Feb 14, 2024 12:41 am
I want to create a Dynamic pick list that gets populated from a previous pick list, I am following the example of this link
https://docs.lansa.com/15/en/lansa015/i ... 3_0460.htm However the example is not possible to run on Web, so I would like to know some solution to implement something similar on a Web Development
For example when I run this code:
The instruction #Deptment := #MonitorSubject.GetValue is not supported on the web
Also following the example it says that I should implent a form
But this kind of object is also not supported on Web, So what could be a solution for including this on web ?
https://docs.lansa.com/15/en/lansa015/i ... 3_0460.htm However the example is not possible to run on Web, so I would like to know some solution to implement something similar on a Web Development
For example when I run this code:
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_OBJT *implements #Prim_dc.iDynamicPicklist #Prim_dc.iMonitorSubject)
Mthroutine Name(Load) Options(*redefine)
#Picklist.RemoveAll
Select Fields(*all) From_File(Sectab) With_Key(#Deptment)
#Picklist.Add( #Section #Secdesc )
Endselect
Endroutine
Mthroutine Name(ApplyMonitoredValue) Options(*Redefine)
#Deptment := #MonitorSubject.GetValue
Endroutine
End_Com
Also following the example it says that I should implent a form
Code: Select all
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(304) Clientwidth(589) Left(277) Top(135) Width(605)
Define_Com Class(#Deptment.VisualPicklist) Name(#Deptment) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Width(401)
Define_Com Class(#Section.VisualPicklist) Name(#Section) Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(32) Width(401)
Define_Com Class(#prim_lm) Name(#DepartmentSection) Source(#Deptment) Target(#Section)
Evtroutine Handling(#Deptment.Changed)
* Ensure the Section is valid after a department change
#Section := *null
Select Fields(#Section) From_File(sectab) With_Key(#Deptment)
Leave
Endselect
Endroutine
End_Com