11 lines
838 B
JSON
11 lines
838 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function wo_daily_sched_all_comm, center_window\r\n\r\nScreenSize = Get_Property('SYSTEM','SIZE')\r\nDialogSize = Get_Property(@WINDOW,'SIZE')\r\n\r\nwScreen = ScreenSize<3>\r\nhScreen = ScreenSize<4>\r\n\r\nxDialog = DialogSize<1>\r\nyDialog = DialogSize<2>\r\nwDialog = DialogSize<3>\r\nhDialog = DialogSize<4>\r\n\r\ncScreen = INT(wScreen/2)\r\n\r\nDialogSize<1> = cScreen + 1\t\t; * Center + 1\r\nDialogSize<2> = 50\r\n\r\nvoid = Set_Property(@WINDOW,'SIZE',DialogSize)\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"
|
|
}
|
|
}
|
|
} |