Visual LANSA Forum

Put this in a server module begin_com role(*EXTENDS #PRIM_SRVM) srvroutine name(Get) field_map for(*OUTPUT) field(#BPU1) #BPU1 := 1.14 endroutine end_com Then this in a web page begin_com role(*EXTENDS #PRIM_WEB) theme(#SYS_THEME<MaterialDesignBlue>) define_com class(#BPU1.EditField) name(#BPU1) dis...

Response from the server shows the right values.

In this instance CurrentBPU1 should not be relevant. It is used in a diff calculation later. It is defined as a reffld of BPU1 define field(#CurrentBPU1) reffld(#BPU1) BPU1 & 2, wk_Percent1 & 2 are the only fields displayed. From your MESSAGE_BOX_ADD, I assume you are using VLWIN, whereas I am in VL...

That was going to be my next move. I was trying to avoid it as when the user enters a value, I am going to have to do some checking to ensure only numbers are entered. Easily enough done, I was just wanting to avoid it if I could. The calculation should not require rounding. When I tried it with the...

I have two fields (BPU1 and BPU2) that are a signed(7,6). For display and data entry purposes I need those fields to be a whole percent. To do so, I have created a new field (wk_Percent1 and wk_Percent2) both of which are int(4). I calculate the percentage using wk_Percent1 = BPU1 * 100 so that .140...

This is been accepted as a correction to be released in a future EPC.

Thanks,
Joe

That is what I was looking for.

Thanks!

If I define an object as such function options(*DIRECT) begin_com role(*EXTENDS #PRIM_OBJT *LISTFIELDS #ListFields) group_by name(#ListFields) fields(#HVBTC #HVPLCN #HVPLD #wk_Bool1) define_pty name(TypeCode) get(*AUTO #HVBTC) set(*AUTO #HVBTC) define_pty name(ControlNumber) get(*AUTO #HVPLCN) set(*...

Done. I'll post their response when I hear back.

Thanks,
Joe

In the ancestor, they are just fields so I can add them in the group by Here is a test of the ancestor (TestBasePanel) function options(*DIRECT) begin_com role(*EXTENDS #PRIM_PANL) DisplayPosition(1) Height(270) Left(0) TabPosition(1) Top(0) Width(500) LayoutManager(#Layout1) define_com class(#PRIM_...

If I define a component that has three fields in it. begin_com role(*EXTENDS #PRIM_PANL) displayposition(1) height(270) left(0) tabposition(1) top(0) width(500) layoutmanager(#Layout1) * ================================================================================ * LAYOUT * =====================...

Docs are pretty lacking at the moment. This topic may be of help some if you have not found it. https://forum.developer.lansa.com/viewtopic.php?f=3&t=1915&p=5089 Regarding the debugging, you can debug, but not like you are probably used to. I got this trick from Support while tying to debug my own s...

Hey Chad,
Good to know. I was concerned I was going to have to something odd, because I could not find any indication of how the field RPU001 gets mapped back to RPU on the iSeries. I guess this is something that LANSA just knows and not something we see.

Thanks for the help.
Joe

This is my first experience with this type of situation and I would like to know more about how this works and if I am being setup for some issues. We have a File on the IBM i that I previously imported that contains a Field named RPU that is a Decimal(15). I just imported another File that has a Fi...

Digging through the docs and I found the *DBMS_RECORD_LOCKED System Variable. https://docs.lansa.com/14/en/lansa015/index.htm#lansa/ladtgub4_0115.htm On the the surface this appears that it could be the answer. The docs https://docs.lansa.com/14/en/lansa015/content/lansa/specfilklists_2.htm use it a...

Are you using Execute or ExecuteAsync in your call to the Server Module? If you are doing it synchronously (using Execute) then the browser will lockup and you will not see the image. Your example with the large loop, is simulating a synchronous execution. If you are using an async solution (Execute...

Is there anyway to detect that a record is locked when you fetch it? We have a case where a user used a 5250 screen to view a record. That user then went into our VLF-ONE app and tried to change the record only to have the app eventually crash seeming because of the lock. Question is then, how do yo...

Hey Art, You may want to make sure you are getting the latest script. i.e. do a hard refresh. I use popups like this all the time and every time time it seems like it does not work its because the browser had an outdated script. Here is a simple sample to compare with. The only way to close the popu...

Not sure what you mean by a browse list, but if you are using a PRIM_LIST, you can use the VerticalScrollTo method. https://docs.lansa.com/14/en/lansa016/prim_list_verticalscrollto.htm Since you are deleting a row and refreshing the list, you may have to store an index or something so you can get th...

Hi and Welcome!

There is a VLF-ONE demo that uses QuillJS embedded in a widget.

https://docs.lansa.com/14/en/lansa048/c ... 8_7000.htm

You can find the implementation in DF_Note_QuillInterface widget and the DF_Note_NoteDetailPanel RP.

Hope this helps.
Joe