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

ready for deployment

Browse Source
This commit is contained in:
Infineon\StieberD
2025-05-23 11:38:34 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 6aad8036e5
commit 550f376a0b
11 changed files with 1457 additions and 1357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
LSL2/STPROC/COMM_REACTOR_LOG.txt
View File

@ -20,7 +20,7 @@ Declare Function Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.I
Declare Function Send_Message, Msg, Security_Check, obj_React_Item, Select_Into, MemberOf, Create_Dialog, obj_Calendar
Declare Function GetAsyncKeyState, obj_Tables, MemberOf, Environment_Services, Database_Services, Rds_Services
Declare Function Reactor_Services, Error_Services, React_Servs_Services, Reactor_Log_Services, Send_Event, SRP_List
Declare Function Nica_Orders_Services
Declare Function Nica_Orders_Services, SRP_Date, React_Item_Services, SRP_Datetime, Datetime
$Insert MSG_EQUATES
$Insert APPCOLORS
@ -1229,64 +1229,51 @@ SvcsOptions:
If ItemType NE '' then
RetVal = ''
ItemType = ICONV(ItemType,'[CONV_CODE_DESC,REACT_ITEM_TYPE]')
ItemType = ICONV(ItemType,'[CONV_CODE_DESC,REACT_ITEM_TYPE]')
RIKeys = React_Item_Services('GetReactItems', ItemType, 'N,U')
OPEN 'DICT.REACT_ITEM' to DictReactItem else
ErrMsg('Unable to open DICT.REACT_ITEM')
return
end
SearchString = 'RI_TYPE':@VM:ItemType:@FM
SearchString := 'CURR_STATUS':@VM:'N':@VM:'U':@FM
RIKeys = ''
Option = ''
Flag = ''
Btree.Extract(SearchString,'REACT_ITEM',DictReactItem,RIKeys,Option,Flag)
If Get_Status(errCode) then
ErrMsg(errCode)
return
end
TypeOver = ''
TypeOVer<PMODE$> = 'K'
TypeOver<PDISPLAY$> = RIKeys
RetVal = Popup(@Window,TypeOver,'REACT_ITEM')
If RetVal NE '' then
obj_AppWindow('LUValReturn',RetVal:@RM:@Window:'.SERV_INFO':@RM:SelPos)
RIRec = XLATE('REACT_ITEM',RetVal,'','X')
If RIRec<REACT_ITEM_RI_TYPE$> = 'T' then
CardWindow = 'REACT_ITEM'
CardKey = RetVal
DefaultRec = ''
NewCardCtrl = ''
RecalcCtrl = @Window:'.SERV_INFO'
RecalcPos = SelPos
RetCtrl = @Window:'.SERV_INFO'
RetPos = SelPos
oAParms = CardWindow:@RM:CardKey:@RM:DefaultRec:@RM:NewCardCtrl:@RM:RecalcCtrl:@RM:RecalcPos:@RM:RetCtrl:@RM:RetPos
obj_AppWindow('ViewNewCard',oAParms)
Set_Property('REACT_ITEM.TUBE_GRADE','FOCUS',1)
If Get_Status(errCode) then
ErrMsg(errCode)
end
end
GoSub Refresh
If Error_Services('NoError') then
TypeOver = ''
TypeOVer<PMODE$> = 'K'
TypeOver<PDISPLAY$> = RIKeys
RetVal = Popup(@Window,TypeOver,'REACT_ITEM')
If RetVal NE '' then
obj_AppWindow('LUValReturn',RetVal:@RM:@Window:'.SERV_INFO':@RM:SelPos)
RIRec = XLATE('REACT_ITEM',RetVal,'','X')
If RIRec<REACT_ITEM_RI_TYPE$> = 'T' then
CardWindow = 'REACT_ITEM'
CardKey = RetVal
DefaultRec = ''
NewCardCtrl = ''
RecalcCtrl = @Window:'.SERV_INFO'
RecalcPos = SelPos
RetCtrl = @Window:'.SERV_INFO'
RetPos = SelPos
oAParms = CardWindow:@RM:CardKey:@RM:DefaultRec:@RM:NewCardCtrl:@RM:RecalcCtrl:@RM:RecalcPos:@RM:RetCtrl:@RM:RetPos
obj_AppWindow('ViewNewCard',oAParms)
Set_Property('REACT_ITEM.TUBE_GRADE','FOCUS',1)
If Get_Status(errCode) then
ErrMsg(errCode)
end
end
GoSub Refresh
end
end else
Error_Services('DisplayError')
end
end ;* End of check for null SNReq
End Case
GoSub Refresh
@ -1877,4 +1864,3 @@ ColorRemRiTable:
return