Lantica User Forum - [Solved] Make form conditionally read only

(UTC)

Lantica User Forum › Lantica Discussions › Lantica Discussion › [Solved] Make form conditionally read only

(Moderator: Forum Admin)

‹ Previous Topic | Next Topic ›

Page Index Toggle

Pages: [1] 2

Send Topic

Print

Hot Topic (More than 10 Replies)

[Solved] Make form conditionally read only (Read 2032 times)

FlipGilbert Full Member Offline Running Ver 2.6.4 Posts: 236 Location: Sandy Eggo Joined: Mar 8^th, 2005	[Solved] Make form conditionally read only Oct 29^th, 2007 at 8:24pm	Print Post
	I'm looking to make a entire form layout read only for an @Group "User" then make it read only for @Group "Management" after 45days from @date. and Admin will have total access. How would I write a ReadOnly to the entire layout? without having to write every LE? being picky (I dont want it grayed out, just not changeable) Thank you

	It's not what a man says that matters or how he says it, but what he does and how he does it.
	IP Logged

Hammer YaBB Administrator Lanticans Offline Fire bad. Tree pretty. Posts: 3436 Location: Ohio Joined: Nov 22^nd, 2002	Re: Read Only qestion Reply #1 - Oct 29^th, 2007 at 8:33pm	Print Post
	Assuming version 2, try something like this On Form Entry: Code #include "sbasic_include.sbas" var vList as String var vGroup as String vGroup = @Group vList = @StringArrayElementList() If (vGroup = "User") Or ((vGroup = "Management") And (@ServerDate() >= (DateAdded + 45))) { StringArrayAttributes(vList, ATTR_ID_READ_ONLY, "2") } Else { StringArrayAttributes(vList, ATTR_ID_READ_ONLY, "0") }

	- Hammer The plural of anecdote is not data.
	WWW IP Logged

FlipGilbert Full Member Offline Running Ver 2.6.4 Posts: 236 Location: Sandy Eggo Joined: Mar 8^th, 2005	Re: Read Only qestion Reply #2 - Oct 29^th, 2007 at 8:57pm	Print Post
	very nice! and works well!! and doesn't every run 2.0.3? Thank you yet again

	It's not what a man says that matters or how he says it, but what he does and how he does it.
	IP Logged

Infinity Senior Member Members Offline Diagonally parked in a parallel dimension Posts: 1290 Location: Massachusetts Joined: May 27^th, 2005	Re: [Solved] Make form conditionally read only Reply #3 - Oct 30^th, 2007 at 12:10pm	Print Post
	Erika, I'm just curious as to why you use a variable instead of @Group() directly. Is it faster?

	** Captain Infinity
	WWW IP Logged

Hammer YaBB Administrator Lanticans Offline Fire bad. Tree pretty. Posts: 3436 Location: Ohio Joined: Nov 22^nd, 2002	Re: [Solved] Make form conditionally read only Reply #4 - Oct 30^th, 2007 at 12:42pm	Print Post
	Infinity wrote on Oct 30^th, 2007 at 12:10pm: Erika, I'm just curious as to why you use a variable instead of @Group() directly. Is it faster? Yes. Asking for the variable value is faster than calling @Group multiple times.

	- Hammer The plural of anecdote is not data.
	WWW IP Logged

Infinity Senior Member Members Offline Diagonally parked in a parallel dimension Posts: 1290 Location: Massachusetts Joined: May 27^th, 2005	Re: [Solved] Make form conditionally read only Reply #5 - Oct 30^th, 2007 at 12:50pm	Print Post
	Interesting, thank you. I use @Group and @UserId checks in a number of places. Would it make things a bit faster if I set static variables in Global Code and then did my checks against the statics? I'm thinking: Code Stat sGroup as String = @Group Stat sUser as String = @UserID

	** Captain Infinity
	WWW IP Logged

Hammer YaBB Administrator Lanticans Offline Fire bad. Tree pretty. Posts: 3436 Location: Ohio Joined: Nov 22^nd, 2002	Re: [Solved] Make form conditionally read only Reply #6 - Oct 30^th, 2007 at 1:35pm	Print Post
	Infinity wrote on Oct 30^th, 2007 at 12:50pm: Interesting, thank you. I use @Group and @UserId checks in a number of places. Would it make things a bit faster if I set static variables in Global Code and then did my checks against the statics? Never initialize statics as part of the declaration. Code stat sGroup as String stat sUser as String sGroup = @Group sUser = @UserID

	- Hammer The plural of anecdote is not data.
	WWW IP Logged

Infinity Senior Member Members Offline Diagonally parked in a parallel dimension Posts: 1290 Location: Massachusetts Joined: May 27^th, 2005	Re: [Solved] Make form conditionally read only Reply #7 - Oct 30^th, 2007 at 4:26pm	Print Post
	Thank you, I forgot that. I've seen it elsewhere and I'm afraid it's become habit. Do the initializations have to come before the subroutines and functions, or after, or does it not matter?

	** Captain Infinity
	WWW IP Logged

Hammer YaBB Administrator Lanticans Offline Fire bad. Tree pretty. Posts: 3436 Location: Ohio Joined: Nov 22^nd, 2002	Re: [Solved] Make form conditionally read only Reply #8 - Oct 30^th, 2007 at 7:53pm	Print Post
	Infinity wrote on Oct 30^th, 2007 at 4:26pm: Thank you, I forgot that. I've seen it elsewhere and I'm afraid it's become habit. Do the initializations have to come before the subroutines and functions, or after, or does it not matter? They are executable code, so they come after all declarations, including subroutine/function declarations.

	- Hammer The plural of anecdote is not data.
	WWW IP Logged

Infinity Senior Member Members Offline Diagonally parked in a parallel dimension Posts: 1290 Location: Massachusetts Joined: May 27^th, 2005	Re: [Solved] Make form conditionally read only Reply #9 - Oct 31^st, 2007 at 1:37pm	Print Post
	Thank you, I'll remember that. If I put the initializations into an _include.sbas file, I assume I have to call the #include after all the declarations as well? (I ask because I've only ever seen the #include calls at the top of code.)

	** Captain Infinity
	WWW IP Logged

Hammer YaBB Administrator Lanticans Offline Fire bad. Tree pretty. Posts: 3436 Location: Ohio Joined: Nov 22^nd, 2002	Re: [Solved] Make form conditionally read only Reply #10 - Oct 31^st, 2007 at 2:03pm	Print Post
	Infinity wrote on Oct 31^st, 2007 at 1:37pm: Thank you, I'll remember that. If I put the initializations into an _include.sbas file, I assume I have to call the #include after all the declarations as well? (I ask because I've only ever seen the #include calls at the top of code.) #include is just like pasting the including code where the #include appears. It follows the same rules. Where it goes depends on the content of the included file.

	- Hammer The plural of anecdote is not data.
	WWW IP Logged

Infinity Senior Member Members Offline Diagonally parked in a parallel dimension Posts: 1290 Location: Massachusetts Joined: May 27^th, 2005	Re: [Solved] Make form conditionally read only Reply #11 - Oct 31^st, 2007 at 2:30pm	Print Post
	Thank you!

	** Captain Infinity
	WWW IP Logged

FlipGilbert Full Member Offline Running Ver 2.6.4 Posts: 236 Location: Sandy Eggo Joined: Mar 8^th, 2005	Re: [Solved] Make form conditionally read only Reply #12 - Nov 6^th, 2007 at 4:44pm	Print Post
	ok, this doesn't work in the application but works great in preview. I have removed the ReadOnly(Command Buttons, 0) and still get the same thing. It gets a runtime SBasic error only in the application. Does anyone see a mistake? Code // Hide-Show Command Buttons Based on Mode 0=Add, 1=Update, 2=Retrieve and Do Not Enter Extend Mode #include "sbasic_include.sbas" var vList as String var vGroup as String vGroup = @Group vList = @StringArrayElementList() If @Mode() = 0 { Visibility(Header1,0) Visibility(Header2,0) Visibility(Prev_Record, 1) Visibility(Save_Exit, 1) Visibility(Add_Data, 1) Visibility(Search, 1) Visibility(Reports, 0) Visibility(Print_Form, 1) Visibility(Next_Record, 1) Visibility(Retrieve Records, 0) Visibility(Sort Records, 0) Visibility(Clear Specs, 0) Visibility(View As Table, 0) Visibility(Calc0,1) Visibility(Calc,0) } If @Mode() = 1 Then { If ((vGroup = "User") And (@ServerDate() >= (Call_Date + 45))) { StringArrayAttributes(vList, ATTR_ID_READ_ONLY, "2") } Else { StringArrayAttributes(vList, ATTR_ID_READ_ONLY, "0") } If (@ResultSetCurrentPosition() = @ResultSetTotal()) { NotifyForm(2) } ELSE { NotifyForm(-2) } If @IsBlank(SFP) { SFP = "SFP" } Visibility(Header1,0) Visibility(Header2,0) Visibility(Prev_Record, 1) Visibility(Save_Exit, 1) Visibility(Add_Data, 1) Visibility(Search, 1) Visibility(Reports, 1) Visibility(Print_Form, 1) Visibility(Next_Record, 1) Visibility(Retrieve Records, 0) Visibility(Sort Records, 1) Visibility(Clear Specs, 0) Visibility(View As Table, 1) Visibility(Calc0,0) Visibility(Calc,1) } ThrowFocus(Company_Name)

	It's not what a man says that matters or how he says it, but what he does and how he does it.
	IP Logged

Ray the Reaper Global Moderator Members Lantica Support Offline The One & The Only Posts: 2480 Joined: Aug 20^th, 2003	Re: [Solved] Make form conditionally read only Reply #13 - Nov 6^th, 2007 at 4:47pm	Print Post
	What is the Start In: directory for Sdesigner set to? What is the Start In: directory for Sesame set to? It may be that the Sesame program can not find the sbasic_include.sbas file to include but Preview mode can. -Ray

	Raymond Yoxall Consulting ray.yoxall@gmail.com ryoxall@lantica.com Sesame Applications, Design and Support
	WWW IP Logged

FlipGilbert Full Member Offline Running Ver 2.6.4 Posts: 236 Location: Sandy Eggo Joined: Mar 8^th, 2005	Re: [Solved] Make form conditionally read only Reply #14 - Nov 6^th, 2007 at 6:03pm	Print Post
	oooohhhh, C:\Sesame2 for Sdesigner and then C:\Sesame2\data for Sesame. Fixed it! Thank you Ray

	It's not what a man says that matters or how he says it, but what he does and how he does it.
	IP Logged

Page Index Toggle

Pages: [1] 2

Send Topic

Print

‹ Previous Topic | Next Topic ›

« Board Index ‹ Board Top

Top

Lantica User Forum » Powered by YaBB 2.6.11!
YaBB Forum Software © 2000-2024. All Rights Reserved.

Valid XHTML

Valid CSS

Powered by Perl

Source Forge