Visual LANSA Forum

adale wrote: Fri Sep 17, 2021 1:48 am Were you able to find out why your Server Module only had 1 record in the list?

If I remember correctly, before I called the SM I was only saving the first entry to the list. But I've not had any other issues when taking a list from the web to the SM since, sorry!

Hi all,

Does anyone know what property in the Theme Customizer changes the font size of the menu? And what property in the Theme Customizer changes the title bar of a prompt? Images below for clarification (ignore the terrible design, since there is almost no documentation on the themes this is all ...

It's a command handler, not a web page.

Hi All,

When customizing themes, you have the ability to choose any font that is installed on your machine. I confirmed this with Lansa Support and if you want to use a font that is not installed on your machine, you simply install it.

The problem I'm having is that, on my machine when I login to ...

EDIT: I had to set the fontsize of the webpage and then use the slider. For anyone interested the sample GOOGLE was very helpful.

Hi All,

I know there are shipped themes from Lansa and that I can create custom themes. Let's say I want to give the user the option to change font type, title bar ...

Hi Dino,

I'm all caught up with what you've done. I am stuck at same spot, i.e., the password being passed is correct, but keep getting the invalid password error message and retcode. Tried debugging CL program and manually changing password field and still same issue.

I also noticed, maybe it's ...

Yes,

Use Builtin(SET_SESSION_VALUE) With_Args(USER_AUDIT #PersistentString1.AsNativeString)

I have set for audit entries (works correctly).

I tried using string2/3 for another user/pw because I didn't want to interrupt what was already working. In debug I see username for string1/2 and pw in ...

Anyone else have any luck figuring this out?

Thanks again Dino. I have the same code you have, but I'm not even getting the user/pw to the routine (the persiststrings are blank).

ServerSystem:

Mthroutine Name(InitializeServiceRoutine)
Define_Map For(*BOTH) Class(#Prim_dc.UnicodeString) Name(#PersistentString1)
Define_Map For(*BOTH) Class ...

Thanks Dino, this is good stuff. I can't figure out how to bring the user/password to the routine.

* For example, you might consider altering LANSA’s audit user here using the
* SET_SESSION_VALUE built-in function:
Use Builtin(SET_SESSION_VALUE) With_Args(USER_AUDIT #PersistentString1 ...

Hi,

Do you mean this:

Call Pgm(FWLOGIN) Parm(#USERPROF #PASSWORD #CHANGEJOB #CHANGELIBL #HANDLE #RETCODE #ERRORMSG)

That links seems to be to capture user profile for audit purposes. That's already done, when user changes a file we are capturing the correct user profile. It's any job that goes ...

I'm interested.

Hello All,

From LANSA:

* As another example, this is an IBM i CL program that validates a user profile and
* password and then changes the current IBM i job to run under that profile. It also
* contains outline code to change the job’s library list.
*
PGM PARM(&USERPROF &PASSWORD &CHANGEJOB ...

Thanks all for the input. I ended up modifying the avcheckauth routine in the IIP to just not have the commands shown if there was no security clearance for user.

I agree, and maybe I'm missing something, but that's what's occurring.

Hi All,

I need to disable the command definition buttons at the top of an instance list. I used this code:

#avframeworkmanager.avChangeCommandState Objectname(#UOOBNM) Commandname('COMMAND_NEW') Enabled(false)

https://i.ibb.co/fxPt6Cy/instance4.png

which works, but when user clicks on an ...

EDIT: Reading through this I realized I had the Inz_List. Problem solved.

Hi Dino,

Appreciate the response. The best solution for my particular needs was to just drop a #PRIM_LIST on my reusable part so the user would be able to add rows of data.

I ran into a different issue now: Even though ...

Hello All,

VLFONE question, I'm using 3 duplicates in my example but I actually need this done dozens if not hundreds of times:

Let's say I have the same field 3 times on my reusable part. I have to change the name like so:

Define_Com Class(#CUST.Visual) Name(#CUST) Parent(#Panel)
Define_Com ...

Thanks for the ideas.

I ended up having to create a reusable part that I dropped on the view container and any messages that the server module returned were fed into the reusable part after the click event.

If anyone else is having an issue with this, happy to share what I did.

In my server module, I have a check for error for a field:

Begincheck

Change Field(#VALID) To(0)
Change Field(#WKSTR30) To(#ADDRNM)
Execute Subroutine(CHK_STR) With_Parms(#WKSTR30 #VALID)
If Cond('#VALID > 0')
Set_Error For_Field(#ADDRNM) Msgid(ESO8797) Msgf(ESOMSGS)
Endif
Endcheck

My issue is ...