11 lines
1.4 KiB
JSON
11 lines
1.4 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n\r\n* Info will be sent with \"LotInfo\":char(244):\"All other Edit fields\":char(244):\"Prod Ret radio button\"\r\nLotInfo = field( CreateParam, char(244), 1 )\r\nEditControlInfo = field( CreateParam, char(244), 2 )\r\nHoldEditControlInfo = EditControlInfo\r\nProdRet = field( EditControlInfo, @fm, 1, 1)\r\n.prod_ret->value = ProdRet\r\nEditControlInfo = field( EditControlInfo, @fm, 2, 999)\r\n.special_inst->text = field( CreateParam, char(244), 3 )\r\n.eng_comments->text = field( CreateParam, char(244), 4 )\r\n.ret_lot_info->array = LotInfo\r\n* now load the controls\r\nEditControls = 'WAF_REC_DATE/WAF_GIVEN_TO/WAF_GIVEN_DATE/ENG_SIGNATURE'\r\nswap '/' with @rm:@window:'.' in EditControls\r\nEditControls = @window:'.':EditControls\r\nVoid = set_property( @window, '@EditControls', EditControls )\r\n* ok\r\nconvert @fm to @rm in EditControlInfo\r\nVoid = set_property( EditControls, 'TEXT', EditControlInfo )\r\n.eng_signature_name->text = oconv( HoldEditControlInfo<5>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n* above HoldEditControlInfo<5> is the FIFTH value passed which is eng_signature if this\r\n* should change then above code must change\r\nset_list_box_data( @window )\r\nRETURN 1\r\n"
|
|
}
|
|
}
|
|
} |