(RDMLX) set element's value for Paramvalue of Set_EventParameter.

Please do not use to report errors- use your regional help desk.
Please mark posts as being for RPG or RDMLX (LANSA) developer.
To subscribe by email, display this forum, scroll to the end and select ‘Subscribe Forum’.
Post Reply
Yukiko Ikeo
Posts: 6
Joined: Wed Jul 02, 2014 4:28 pm

(RDMLX) set element's value for Paramvalue of Set_EventParameter.

Post by Yukiko Ikeo »

Hi,

I'd like to set element's value for Paramvalue of Set_EventParameter.
(ex. the value of the textbox, the text of the label)
The coding below doesn't work as expected.

---------------------------
* elements
#COM_OWNER.Set_TextBox Name(TEXT) Value('ABCDE') Layout_Col(1) Layout_Row(1) Maxlength(20)
#COM_OWNER.Set_Label Name(LABEL) Layout_Col(1) Layout_Row(2) Text('Label') Border_Thickness(1)

* set event parameter
#COM_OWNER.Set_EventParameter Event(BUTTON.Onclick) Param_N(1) Paramvalue(TEXT.Value)
#COM_OWNER.Set_EventParameter Event(BUTTON.Onclick) Param_N(2) Paramvalue('/Form.Fields.LABEL.Text')
---------------------------

How can I set element's value as the other method's parameter?

Regards,
Yukiko Ikeo
MarkDuignan
Posts: 346
Joined: Wed Apr 18, 2012 10:33 am

Re: (RDMLX) set element's value for Paramvalue of Set_EventParameter.

Post by MarkDuignan »

I think you need to get the value first into a field - then set from the field.
ie: Your reference to TEXT.Value is really just the string "TEXT.VALUE" to the RDMLX code generator - it has no special meaning.
Yukiko Ikeo
Posts: 6
Joined: Wed Jul 02, 2014 4:28 pm

Re: (RDMLX) set element's value for Paramvalue of Set_EventParameter.

Post by Yukiko Ikeo »

Hi Mark,

Thank you for your reply.
The coding below worked as expected.

---------------------------
* set event parameter
#COM_OWNER.Using Element('/Form.Fields.TEXT') Alwaysrememberlast(True)
#COM_OWNER.Get Property(Value) Into(#STD_TEXT)
#COM_OWNER.EndUsing
#COM_OWNER.Set_EventParameter Event(BUTTON.Onclick) Param_N(1) Paramvalue(#STD_TEXT)
*
#COM_OWNER.Using Element('/Form.Fields.LABEL') Alwaysrememberlast(True)
#COM_OWNER.Get Property(Text) Into(#STD_TEXTL)
#COM_OWNER.EndUsing
#COM_OWNER.Set_EventParameter Event(BUTTON.Onclick) Param_N(2) Paramvalue(#STD_TEXTL)
---------------------------

Thank you for your help.
Best regards, Yukiko Ikeo
Post Reply