11 lines
940 B
JSON
11 lines
940 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\n\r\nIF @USERNAME = 'IMATEST_U' OR @USERNAME = 'BRYCE_BARB' THEN\r\n\tScreenSize = Get_Property('SYSTEM','SIZE')\r\n\tDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\n\twScreen = ScreenSize<3>\r\n\thScreen = ScreenSize<4>\r\n\r\n\txDialog = DialogSize<1>\r\n\tyDialog = DialogSize<2>\r\n\twDialog = DialogSize<3>\r\n\thDialog = DialogSize<4>\r\n\r\n\tcScreen = INT(wScreen/2)\r\n\r\n\tDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\n\tDialogSize<2> = 50\r\n\r\n\tvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\r\n\r\nEND\r\n\r\nvoid = Set_Property(@WINDOW,'VISIBLE',1)\r\n\r\nvoid = Set_Property(@WINDOW,'TIMER',60000)\t;* 60 second timer for refresh\r\n\r\nVoid = wo_daily_sched_all_comm( 'FORM_CREATE', '')\r\nRETURN 1"
|
|
}
|
|
}
|
|
} |