phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/OIEVENT/OPTIONS/REACTOR_LOG.SERV_INFO.json
View File

@ -5,7 +5,7 @@
},
"body": {
"record1": {
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert react_servs_equ\r\n$insert reactor_log_equates\r\n$insert react_serv_cat_equates\r\n\r\n\r\nRETURN 1\r\n\r\nSelPos = .serv_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nbegin case\r\n case CurCol = 1 \r\n\t\tStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Chosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t *DEBUG\r\n \t\t convert @fm to @vm in Chosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 1, CurRow, 0, Chosen )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \t\t \r\n\t\tend \r\n\r\n case CurCol = 3\r\n \r\n \r\n\t\tStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t \r\n\t\t IF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\t\t \r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 3, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 4, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 5, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 6, CurRow, 0 )\r\n\t\t\tCurArray = insert( CurArray, 3, CurRow, 0, Choosen )\r\n\t\t\tCatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\tCatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\tCurArray = insert( CurArray, 5, CurRow, 0, CatIds )\r\n\t\t\tCurArray = insert( CurArray, 6, CurRow, 0, CatDescs )\r\n\t\t\tRecord = get_property( @window, 'RECORD' )\r\n\t\t\tRecord = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend \r\n\tcase CurCol = 9\r\n\t\tStmt = 'SELECT REACT_ITEMS WITH STATUS = \"A\" BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n\t\t OverRide = ''\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 9, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 9, CurRow, 0, Choosen )\r\n\t\t\t*CatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\t*CatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\t*Record = get_property( @window, 'RECORD' )\r\n\t\t\t*Record = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend\t\r\n\tend case\r\nRETURN 0"
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert react_servs_equ\r\n$insert reactor_log_equates\r\n$insert react_serv_cat_equates\r\n\r\n\r\nRETURN 1\r\n\r\nSelPos = .serv_info->selpos\r\nCurCol = SelPos<1>\r\nCurRow = SelPos<2>\r\nbegin case\r\n case CurCol = 1 \r\n\t\tStmt = 'SELECT REACT_PROB_CAT BY REACTOR_PROBLEM_CATEGORY'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_PROB_CAT' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Chosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t *DEBUG\r\n \t\t convert @fm to @vm in Chosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 1, CurRow, 0, Chosen )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \t\t \r\n\t\tend \r\n\r\n case CurCol = 3\r\n \r\n \r\n\t\tStmt = 'SELECT REACT_SERVS BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_SERVS' )\r\n\t\t OverRide = ''\r\n\t\t OverRide<pselect$> = 2\r\n\t\t OverRide<pselect$> = 2\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t \r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 3, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 4, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 5, CurRow, 0 )\r\n\t\t\tCurArray = delete( CurArray, 6, CurRow, 0 )\r\n\t\t\tCurArray = insert( CurArray, 3, CurRow, 0, Choosen )\r\n\t\t\tCatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\tCatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\tCurArray = insert( CurArray, 5, CurRow, 0, CatIds )\r\n\t\t\tCurArray = insert( CurArray, 6, CurRow, 0, CatDescs )\r\n\t\t\tRecord = get_property( @window, 'RECORD' )\r\n\t\t\tRecord = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend \r\n\tcase CurCol = 9\r\n\t\tStmt = 'SELECT REACT_ITEMS WITH STATUS = \"A\" BY DESCRIPTION'\r\n\t\trlist( Stmt, target_activelist$, '', '', '' )\r\n\t\tif @reccount then\r\n\t\t PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_REACT_ITEMS' )\r\n\t\t OverRide = ''\r\n\t\t Choosen = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n\t\t convert @fm to @vm in Choosen\r\n\t\t\tCurArray = .serv_info->array\r\n\t\t\tCurArray = delete( CurArray, 9, CurRow, 0 )\t\t\t\t\t\r\n\t\t\tCurArray = insert( CurArray, 9, CurRow, 0, Choosen )\r\n\t\t\t*CatIds = xlate( 'REACT_SERVS', Choosen, react_servs_react_serv_cat_id$, 'X' )\r\n\t\t\t*CatDescs = xlate( 'REACT_SERV_CAT', CatIds, react_serv_cat_reactor_service_category$, 'X' )\t\r\n\t\t\t*Record = get_property( @window, 'RECORD' )\r\n\t\t\t*Record = insert( Record, reactor_log_react_serv_cat_id$, CurRow, 0, CatIds )\r\n\t\t\t.serv_info->array = CurArray\r\n\t\t\tVoid = set_property( @window, 'RECORD', Record )\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 2 )\t\t\t\r\n\t\t\tVoid = send_event( @window, '.SERV_INFO', 'CALCULATE', 4 )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', 1 )\r\n\t\t Void = send_event( @window:'.SERV_INFO', 'LOSTFOCUS' )\t\r\n\t\t\tVoid = set_property( @window, '@NoTopPosServs', '' ) \r\n\t\tend\t\r\n\tend case\r\nRETURN 0"
}
}
}