11 lines
1.2 KiB
JSON
11 lines
1.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function rowexists, next_mesa_wo_log_key, post_event, Get_Property\r\ndeclare subroutine forward_event,Set_Property\r\n\r\n* Dead as of 1/23/2006\r\n\r\n/*\r\nif rowexists( 'WO_LOG', .wo_no->text ) else\r\n .entry_id->text = @user4\r\n if .received_time->text = '' then\r\n .received_time->text = '10:00AM'\r\n end\r\nend\r\n\r\nCommitDate = .commit_date->text\r\nif CommitDate = '' then\r\n\t\r\n CurReceivedDate = iconv( .received_date->text, 'D' )\r\n if ( CurReceivedDate <> '' ) then\r\n .commit_date->text = oconv( CurReceivedDate + 14, 'D2/' )\r\n * STANDARD 14 DAY TURN AROUND\r\n end\r\nend\r\n\r\nRxDt = Get_Property(@WINDOW:'.RECEIVED_DATE','TEXT')\r\nRxTm = Get_Property(@WINDOW:'.RECEIVED_TIME','TEXT')\r\n\r\nSet_Property(@WINDOW:'.RX_DTM','DEFPROP',RxDt:' ':RxTm)\r\n\r\nforward_event()\r\n\r\nif get_property( @window, '@RetWoLog' ) then\r\n Void = post_event( @window, 'CLOSE' )\r\n Void = post_event( 'WO_MAST_SCHED.SCHED_INFO', 'OMNIEVENT' )\r\nend\r\nreturn 0\r\n*/"
|
|
}
|
|
}
|
|
} |