11 lines
1.9 KiB
JSON
11 lines
1.9 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, Sent_event, admin_user, center_window, Send_message, fieldcount\r\ndeclare subroutine END_dialog\r\n$insert msg_equates\r\n\r\nIF index( CreateParam, 'CENTER', 1 ) THEN\r\n void = center_window( @window )\r\nEND ELSE\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nIF Admin_user( @user4 ) THEN \r\n\topen 'CONFIG' TO ConfigTable ELSE\r\n\t Void = msg( '', 'Unable to open CONFIG table' )\r\n\t END_dialog( @window, '' )\r\n\t RETURN 0\r\n\tEND\r\n\t\r\n\tLOCK ConfigTable, 'TABLENAMES' ELSE\r\n\t Void = msg( '', 'TABLENAMES is in use somewhere ELSE...' )\r\n\t END_dialog( @window, '' )\r\n\t RETURN 0\r\n\tEND\r\n\t\r\n\tREAD TableNamesData FROM ConfigTable, 'TABLENAMES' THEN\r\n\t IF TableNamesData THEN\r\n\t \t\r\n\t \ttnCnt = COUNT(TableNamesData<1>,@VM) + (TableNamesData<1> NE '')\r\n\t \t\r\n\t \tSortedArray = ''\r\n\t \t\r\n\t \tFOR I = 1 TO tnCnt\r\n\t \t\r\n\t \t\tTableTitle\t= TableNamesData<1,I>\r\n\t \t\tTableName\t= TableNamesData<2,I>\r\n\t \t\t\r\n\t \t\tLOCATE TableName IN SortedArray<2> BY 'AL' USING @VM SETTING Pos ELSE\r\n\t \t\t\tSortedArray = INSERT(SortedArray,1,Pos,0,TableTitle)\r\n\t \t\t\tSortedArray = INSERT(SortedArray,2,Pos,0,TableName)\r\n\t \t\tEND\r\n\t \t\r\n\t \t\r\n\t \tNEXT I\r\n\t \r\n\t \t\tvoid = Set_Property(@WINDOW:'.TABLENAMES','ARRAY',SortedArray) \r\n\t \r\n\t END\r\n\tEND\r\nEND ELSE\r\n Message = 'You do not have the proper security TO enter TableNames...' \r\n Message<micon$> = 'H'\r\n Void = msg( '', Message )\r\n End_Dialog( @window, '' )\r\nEND\r\n\r\nallControlsInMyWindow = Utility ('OBJECTLIST', @window, 'EDITTABLE')\r\nallControlsInMyWindow2 = Utility ('OBJECTLIST', @window, 'EDITBOX')\r\n\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |