ready for deployment
This commit is contained in:
Infineon\StieberD
Stieber Daniel (CSC FI SPS MESLEO)
parent
6aad8036e5
commit
550f376a0b
@ -9,7 +9,7 @@
|
|||||||
"<2>": "-1",
|
"<2>": "-1",
|
||||||
"<3>": "-1",
|
"<3>": "-1",
|
||||||
"<4>": "-1",
|
"<4>": "-1",
|
||||||
"<5>": "16777215",
|
"<5>": "-2",
|
||||||
"<6>": {
|
"<6>": {
|
||||||
"<6,1>": {
|
"<6,1>": {
|
||||||
"<6,1,1>": "Tahoma",
|
"<6,1,1>": "Tahoma",
|
||||||
@ -31,7 +31,7 @@
|
|||||||
}
|
}
|
||||||
},
|
},
|
||||||
"<7>": "REACT_ITEM",
|
"<7>": "REACT_ITEM",
|
||||||
"<8>": "BY @ID",
|
"<8>": "BY-DSND ENTER_DTM",
|
||||||
"<9>": {
|
"<9>": {
|
||||||
"<9,1>": {
|
"<9,1>": {
|
||||||
"<9,1,1>": "RI_NO",
|
"<9,1,1>": "RI_NO",
|
||||||
@ -120,6 +120,22 @@
|
|||||||
"<9,11,4>": "C",
|
"<9,11,4>": "C",
|
||||||
"<9,11,5>": "D4/",
|
"<9,11,5>": "D4/",
|
||||||
"<9,11,6>": "Retire Dt"
|
"<9,11,6>": "Retire Dt"
|
||||||
|
},
|
||||||
|
"<9,12>": {
|
||||||
|
"<9,12,1>": "ENTER_DTM",
|
||||||
|
"<9,12,2>": "14",
|
||||||
|
"<9,12,3>": "L",
|
||||||
|
"<9,12,4>": "C",
|
||||||
|
"<9,12,5>": "DT2/^H",
|
||||||
|
"<9,12,6>": "Enter Dtm"
|
||||||
|
},
|
||||||
|
"<9,13>": {
|
||||||
|
"<9,13,1>": "CURR_STATUS",
|
||||||
|
"<9,13,2>": "5",
|
||||||
|
"<9,13,3>": "L",
|
||||||
|
"<9,13,4>": "C",
|
||||||
|
"<9,13,5>": "[CONV_ITEM_CURR_STATUS]",
|
||||||
|
"<9,13,6>": "Curr Status"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
"<10>": "T",
|
"<10>": "T",
|
||||||
@ -147,7 +163,17 @@
|
|||||||
"<32>": "0",
|
"<32>": "0",
|
||||||
"<33>": "1",
|
"<33>": "1",
|
||||||
"<34>": "16777215",
|
"<34>": "16777215",
|
||||||
"<35>": "16777215"
|
"<35>": "16766894",
|
||||||
|
"<36>": "",
|
||||||
|
"<37>": "",
|
||||||
|
"<38>": "",
|
||||||
|
"<39>": "",
|
||||||
|
"<40>": "-2",
|
||||||
|
"<41>": "1000",
|
||||||
|
"<42>": "",
|
||||||
|
"<43>": "",
|
||||||
|
"<44>": "",
|
||||||
|
"<45>": ""
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -9,7 +9,7 @@
|
|||||||
"<2>": "-1",
|
"<2>": "-1",
|
||||||
"<3>": "-1",
|
"<3>": "-1",
|
||||||
"<4>": "-1",
|
"<4>": "-1",
|
||||||
"<5>": "16777215",
|
"<5>": "-2",
|
||||||
"<6>": {
|
"<6>": {
|
||||||
"<6,1>": {
|
"<6,1>": {
|
||||||
"<6,1,1>": "MS Sans Serif",
|
"<6,1,1>": "MS Sans Serif",
|
||||||
@ -91,7 +91,17 @@
|
|||||||
"<32>": "0",
|
"<32>": "0",
|
||||||
"<33>": "1",
|
"<33>": "1",
|
||||||
"<34>": "16777215",
|
"<34>": "16777215",
|
||||||
"<35>": "16777215"
|
"<35>": "16777215",
|
||||||
|
"<36>": "",
|
||||||
|
"<37>": "",
|
||||||
|
"<38>": "",
|
||||||
|
"<39>": "",
|
||||||
|
"<40>": "-2",
|
||||||
|
"<41>": "1000",
|
||||||
|
"<42>": "",
|
||||||
|
"<43>": "",
|
||||||
|
"<44>": "",
|
||||||
|
"<45>": ""
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -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 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 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 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 MSG_EQUATES
|
||||||
$Insert APPCOLORS
|
$Insert APPCOLORS
|
||||||
@ -1229,26 +1229,11 @@ SvcsOptions:
|
|||||||
If ItemType NE '' then
|
If ItemType NE '' then
|
||||||
|
|
||||||
RetVal = ''
|
RetVal = ''
|
||||||
|
|
||||||
ItemType = ICONV(ItemType,'[CONV_CODE_DESC,REACT_ITEM_TYPE]')
|
ItemType = ICONV(ItemType,'[CONV_CODE_DESC,REACT_ITEM_TYPE]')
|
||||||
|
|
||||||
OPEN 'DICT.REACT_ITEM' to DictReactItem else
|
RIKeys = React_Item_Services('GetReactItems', ItemType, 'N,U')
|
||||||
ErrMsg('Unable to open DICT.REACT_ITEM')
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
SearchString = 'RI_TYPE':@VM:ItemType:@FM
|
If Error_Services('NoError') then
|
||||||
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 = ''
|
||||||
TypeOVer<PMODE$> = 'K'
|
TypeOVer<PMODE$> = 'K'
|
||||||
@ -1282,11 +1267,13 @@ SvcsOptions:
|
|||||||
end
|
end
|
||||||
|
|
||||||
GoSub Refresh
|
GoSub Refresh
|
||||||
|
end
|
||||||
|
end else
|
||||||
|
Error_Services('DisplayError')
|
||||||
end
|
end
|
||||||
|
|
||||||
end ;* End of check for null SNReq
|
end ;* End of check for null SNReq
|
||||||
|
|
||||||
|
|
||||||
End Case
|
End Case
|
||||||
|
|
||||||
GoSub Refresh
|
GoSub Refresh
|
||||||
@ -1877,4 +1864,3 @@ ColorRemRiTable:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -440,7 +440,7 @@ END
|
|||||||
IF CurrStatus NE '' THEN
|
IF CurrStatus NE '' THEN
|
||||||
SWAP @VM WITH '" "' IN CurrStatus
|
SWAP @VM WITH '" "' IN CurrStatus
|
||||||
IF SelectSent NE '' THEN SelectSent := ' AND'
|
IF SelectSent NE '' THEN SelectSent := ' AND'
|
||||||
SelectSent := ' WITH CURR_STATUS ':QUOTE(CurrStatus)
|
SelectSent := ' WITH CURR_STATUS_STATIC ':QUOTE(CurrStatus)
|
||||||
END
|
END
|
||||||
|
|
||||||
IF PartTypes NE '' THEN
|
IF PartTypes NE '' THEN
|
||||||
@ -471,7 +471,7 @@ SelectSent = 'SELECT REACT_ITEM ':SelectSent
|
|||||||
|
|
||||||
|
|
||||||
Def = ""
|
Def = ""
|
||||||
Def<MTEXT$> = "Selecting Reactor Events..."
|
Def<MTEXT$> = "Selecting Reactor Items..."
|
||||||
Def<MTYPE$> = "U"
|
Def<MTYPE$> = "U"
|
||||||
|
|
||||||
* display the processing message and do the processing
|
* display the processing message and do the processing
|
||||||
@ -502,6 +502,3 @@ End_Dialog(@WINDOW,RINos)
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -18,7 +18,7 @@ COMPILE FUNCTION obj_Reactor_Log(Method,Parms)
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Btree.Extract, obj_React_Item_Hist, Update_Index, obj_Post_Log
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Btree.Extract, obj_React_Item_Hist, Update_Index, obj_Post_Log
|
||||||
Declare subroutine Error_Services, Database_Services
|
Declare subroutine Error_Services, Database_Services, React_Item_Services
|
||||||
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, obj_React_Item, obj_Calendar, Database_Services
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, obj_React_Item, obj_Calendar, Database_Services
|
||||||
|
|
||||||
|
|
||||||
@ -195,18 +195,16 @@ PostReactItems:
|
|||||||
ReactorLogRec<REACTOR_LOG_RI_POST_DTM$> = PostDTM
|
ReactorLogRec<REACTOR_LOG_RI_POST_DTM$> = PostDTM
|
||||||
|
|
||||||
otParms = FIELDSTORE(otParms,@RM,4,0,ReactorLogRec)
|
otParms = FIELDSTORE(otParms,@RM,4,0,ReactorLogRec)
|
||||||
//obj_Tables('WriteRec',otParms)
|
|
||||||
Database_Services('WriteDataRow', 'REACTOR_LOG', RLNo, ReactorLogRec, 1, 0, 1)
|
Database_Services('WriteDataRow', 'REACTOR_LOG', RLNo, ReactorLogRec, 1, 0, 1)
|
||||||
|
|
||||||
Update_Index('REACT_ITEM_HIST', 'INST_RL_ID', False$, True$) ;* Don't wait for indexer - flush pending indexes now
|
Update_Index('REACT_ITEM_HIST', 'INST_RL_ID', False$, True$) ;* Don't wait for indexer - flush pending indexes now
|
||||||
Update_Index('REACT_ITEM_HIST', 'REM_RL_ID', False$, True$)
|
Update_Index('REACT_ITEM_HIST', 'REM_RL_ID', False$, True$)
|
||||||
|
|
||||||
end else
|
end else
|
||||||
Error_Services('Add', ValidationFailureReason)
|
Error_Services('Add', ValidationFailureReason)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
@ -386,10 +384,3 @@ RemHistKeys:
|
|||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -19,10 +19,11 @@ COMPILE FUNCTION obj_React_Item_Hist(Method,Parms)
|
|||||||
|
|
||||||
|
|
||||||
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Send_Dyn, obj_Popup
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Send_Dyn, obj_Popup
|
||||||
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Btree.Extract, React_Item_Services
|
||||||
DECLARE SUBROUTINE ErrMsg, Btree.Extract
|
|
||||||
|
|
||||||
|
$Insert LOGICAL
|
||||||
$INSERT REACT_ITEM_HIST_EQUATES
|
$INSERT REACT_ITEM_HIST_EQUATES
|
||||||
|
$INSERT RLIST_EQUATES
|
||||||
|
|
||||||
EQU CRLF$ TO \0D0A\
|
EQU CRLF$ TO \0D0A\
|
||||||
EQU TAB$ TO CHAR(9)
|
EQU TAB$ TO CHAR(9)
|
||||||
@ -62,26 +63,26 @@ RETURN Result
|
|||||||
Install:
|
Install:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
RIHKey = Parms[1,@RM]
|
RIHKey = Parms[1,@RM]
|
||||||
RL_Id = Parms[COL2()+1,@RM]
|
RL_Id = Parms[COL2()+1,@RM]
|
||||||
ReactWfrCnt = Parms[COL2()+1,@RM]
|
ReactWfrCnt = Parms[COL2()+1,@RM]
|
||||||
ReactHrs = Parms[COL2()+1,@RM]
|
ReactHrs = Parms[COL2()+1,@RM]
|
||||||
|
|
||||||
IF RIHKey = '' THEN ErrorMsg = 'Null Parameter "RIHKey" passed to routine. (':Method:')'
|
IF RIHKey = '' THEN ErrorMsg = 'Null Parameter "RIHKey" passed to routine. (':Method:')'
|
||||||
IF RL_Id = '' THEN ErrorMsg = 'Null Parameter "RL_Id" passed to routine. (':Method:')'
|
IF RL_Id = '' THEN ErrorMsg = 'Null Parameter "RL_Id" passed to routine. (':Method:')'
|
||||||
*IF ReactWfrCnt = '' THEN ErrorMsg = 'Null Parameter "ReactWfrCnt" passed to routine. (':Method:')' ;* Optional
|
|
||||||
*IF ReactHrs = '' THEN ErrorMsg = 'Null Parameter "ReactHrs" passed to routine. (':Method:')' ;* Optional
|
|
||||||
|
|
||||||
IF ErrorMsg NE '' THEN RETURN
|
IF ErrorMsg NE '' THEN RETURN
|
||||||
|
|
||||||
RIHRec = ''
|
RIHRec = ''
|
||||||
RIHRec<REACT_ITEM_HIST_INST_RL_ID$> = RL_ID
|
RIHRec<REACT_ITEM_HIST_INST_RL_ID$> = RL_ID
|
||||||
RIHRec<REACT_ITEM_HIST_INST_REACT_WFR_CNT$> = ReactWfrCnt
|
RIHRec<REACT_ITEM_HIST_INST_REACT_WFR_CNT$> = ReactWfrCnt
|
||||||
RIHRec<REACT_ITEM_HIST_INST_REACT_HRS$> = ReactHrs
|
RIHRec<REACT_ITEM_HIST_INST_REACT_HRS$> = ReactHrs
|
||||||
|
|
||||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey:@RM:@RM:RIHRec
|
otParms = 'REACT_ITEM_HIST':@RM:RIHKey:@RM:@RM:RIHRec
|
||||||
|
|
||||||
obj_Tables('WriteRec',otParms)
|
obj_Tables('WriteRec',otParms)
|
||||||
|
RINo = Field(RIHKey, '*', 2, 1)
|
||||||
|
React_Item_Services('UpdateReactItemStatus', RINo)
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -90,38 +91,36 @@ RETURN
|
|||||||
Remove:
|
Remove:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
RIHKey = Parms[1,@RM]
|
RIHKey = Parms[1,@RM]
|
||||||
RemoveDTM = Parms[COL2()+1,@RM] ;* Internal format *
|
RemoveDTM = Parms[COL2()+1,@RM] ;* Internal format *
|
||||||
RL_Id = Parms[COL2()+1,@RM]
|
RL_Id = Parms[COL2()+1,@RM]
|
||||||
ReactWfrCnt = Parms[COL2()+1,@RM]
|
ReactWfrCnt = Parms[COL2()+1,@RM]
|
||||||
ReactHrs = Parms[COL2()+1,@RM]
|
ReactHrs = Parms[COL2()+1,@RM]
|
||||||
|
|
||||||
IF RIHKey = '' THEN ErrorMsg = 'Null Parameter "RIHKey" passed to routine. (':Method:')'
|
IF RIHKey = '' THEN ErrorMsg = 'Null Parameter "RIHKey" passed to routine. (':Method:')'
|
||||||
IF RemoveDTM = '' THEN ErrorMsg = 'Null Parameter "RemoveDTM" passed to routine. (':Method:')'
|
IF RemoveDTM = '' THEN ErrorMsg = 'Null Parameter "RemoveDTM" passed to routine. (':Method:')'
|
||||||
IF RL_Id = '' THEN ErrorMsg = 'Null Parameter "RL_Id" passed to routine. (':Method:')'
|
IF RL_Id = '' THEN ErrorMsg = 'Null Parameter "RL_Id" passed to routine. (':Method:')'
|
||||||
*IF ReactWfrCnt = '' THEN ErrorMsg = 'Null Parameter "ReactWfrCnt" passed to routine. (':Method:')' ;* Optional
|
|
||||||
*IF ReactHrs = '' THEN ErrorMsg = 'Null Parameter "ReactHrs" passed to routine. (':Method:')' ;* Optional
|
|
||||||
|
|
||||||
IF ErrorMsg NE '' THEN RETURN
|
IF ErrorMsg NE '' THEN RETURN
|
||||||
|
|
||||||
* Read and update record *
|
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
||||||
|
|
||||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
RIHRec = obj_Tables('ReadRec',otParms)
|
||||||
|
|
||||||
RIHRec = obj_Tables('ReadRec',otParms)
|
IF Get_Status(errCode) THEN
|
||||||
|
|
||||||
IF Get_Status(errCode) THEN
|
|
||||||
Set_Status(0)
|
Set_Status(0)
|
||||||
RIHRec = ''
|
RIHRec = ''
|
||||||
END
|
END
|
||||||
|
|
||||||
RIHRec<REACT_ITEM_HIST_REM_DTM$> = RemoveDTM
|
RIHRec<REACT_ITEM_HIST_REM_DTM$> = RemoveDTM
|
||||||
RIHRec<REACT_ITEM_HIST_REM_RL_ID$> = RL_Id
|
RIHRec<REACT_ITEM_HIST_REM_RL_ID$> = RL_Id
|
||||||
RIHRec<REACT_ITEM_HIST_REM_REACT_WFR_CNT$> = ReactWfrCnt
|
RIHRec<REACT_ITEM_HIST_REM_REACT_WFR_CNT$> = ReactWfrCnt
|
||||||
RIHRec<REACT_ITEM_HIST_REM_REACT_HRS$> = ReactHrs
|
RIHRec<REACT_ITEM_HIST_REM_REACT_HRS$> = ReactHrs
|
||||||
|
|
||||||
otParms = FIELDSTORE(otParms,@RM,4,0,RIHRec)
|
otParms = FIELDSTORE(otParms,@RM,4,0,RIHRec)
|
||||||
obj_Tables('WriteRec',otParms)
|
obj_Tables('WriteRec',otParms)
|
||||||
|
RINo = Field(RIHKey, '*', 2, 1)
|
||||||
|
React_Item_Services('UpdateReactItemStatus', RINo)
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -130,24 +129,21 @@ RETURN
|
|||||||
ClearRemove:
|
ClearRemove:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
RIHKey = Parms[1,@RM]
|
RIHKey = Parms[1,@RM]
|
||||||
|
|
||||||
IF RIHKey = '' THEN RETURN
|
IF RIHKey = '' THEN RETURN
|
||||||
|
|
||||||
|
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
||||||
|
|
||||||
* Read and update record *
|
RIHRec = obj_Tables('ReadRec',otParms)
|
||||||
|
|
||||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
RIHRec<REACT_ITEM_HIST_REM_DTM$> = ''
|
||||||
|
RIHRec<REACT_ITEM_HIST_REM_RL_ID$> = ''
|
||||||
|
RIHRec<REACT_ITEM_HIST_REM_REACT_WFR_CNT$> = ''
|
||||||
|
RIHRec<REACT_ITEM_HIST_REM_REACT_HRS$> = ''
|
||||||
|
|
||||||
RIHRec = obj_Tables('ReadRec',otParms)
|
otParms = FIELDSTORE(otParms,@RM,4,0,RIHRec)
|
||||||
|
obj_Tables('WriteRec',otParms)
|
||||||
RIHRec<REACT_ITEM_HIST_REM_DTM$> = ''
|
|
||||||
RIHRec<REACT_ITEM_HIST_REM_RL_ID$> = ''
|
|
||||||
RIHRec<REACT_ITEM_HIST_REM_REACT_WFR_CNT$> = ''
|
|
||||||
RIHRec<REACT_ITEM_HIST_REM_REACT_HRS$> = ''
|
|
||||||
|
|
||||||
otParms = FIELDSTORE(otParms,@RM,4,0,RIHRec)
|
|
||||||
obj_Tables('WriteRec',otParms)
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
@ -156,49 +152,50 @@ RETURN
|
|||||||
GetHistory:
|
GetHistory:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
ReactNo = Parms[1,@RM]
|
ReactNo = Parms[1,@RM]
|
||||||
RINo = Parms[COL2()+1,@RM]
|
RINo = Parms[COL2()+1,@RM]
|
||||||
RIType = Parms[COL2()+1,@RM]
|
RIType = Parms[COL2()+1,@RM]
|
||||||
|
|
||||||
IF ReactNo = '' AND RINo = '' AND RIType = '' THEN RETURN
|
IF ReactNo = '' AND RINo = '' AND RIType = '' THEN RETURN
|
||||||
|
|
||||||
OPEN 'DICT.REACT_ITEM_HIST' TO DictVar ELSE
|
OPEN 'DICT.REACT_ITEM_HIST' TO DictVar ELSE
|
||||||
ErrorMsg = 'Unable to open DICT.REACT_ITEM_HIST for index lookup'
|
ErrorMsg = 'Unable to open DICT.REACT_ITEM_HIST for index lookup'
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
Search = ''
|
Search = ''
|
||||||
|
|
||||||
IF ReactNo NE '' THEN Search := 'REACT_NO':@VM:ReactNo:@FM
|
IF ReactNo NE '' THEN Search := 'REACT_NO':@VM:ReactNo:@FM
|
||||||
IF RINo NE '' THEN Search := 'RI_NO':@VM:RINo:@FM
|
IF RINo NE '' THEN Search := 'RI_NO':@VM:RINo:@FM
|
||||||
IF RIType NE '' THEN Search := 'RI_TYPE':@VM:RIType:@FM
|
IF RIType NE '' THEN Search := 'RI_TYPE':@VM:RIType:@FM
|
||||||
|
|
||||||
Option = ''
|
Option = ''
|
||||||
Flag = ''
|
Flag = ''
|
||||||
|
|
||||||
Btree.Extract(Search, 'REACT_ITEM_HIST', DictVar, RIKeys, Option, Flag) ;* Get unsorted keys based on Search parameters
|
Btree.Extract(Search, 'REACT_ITEM_HIST', DictVar, RIKeys, Option, Flag) ;* Get unsorted keys based on Search parameters
|
||||||
|
|
||||||
* Put sort data in first column (Install DTM)
|
// Put sort data in first column (Install DTM)
|
||||||
|
|
||||||
WorkList = ''
|
WorkList = ''
|
||||||
riCnt = COUNT(RIKeys,@VM) + (RIKeys NE '')
|
riCnt = COUNT(RIKeys,@VM) + (RIKeys NE '')
|
||||||
FOR I = 1 TO riCnt
|
FOR I = 1 TO riCnt
|
||||||
RIKey = RIKeys<1,I>
|
RIKey = RIKeys<1,I>
|
||||||
WorkList<I> = FIELD(RIKey,'*',3):@VM:RIKey
|
WorkList<I> = FIELD(RIKey,'*',3):@VM:RIKey
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
WorkList := @RM
|
WorkList := @RM
|
||||||
|
|
||||||
CONVERT @FM:@VM TO @RM:@FM IN WorkList ;* push delimiters higher for V119
|
CONVERT @FM:@VM TO @RM:@FM IN WorkList ;* push delimiters higher for V119
|
||||||
|
|
||||||
CALL V119('S','','D','L',WorkList,'') ;* Descending Left justified sort
|
CALL V119('S','','D','L',WorkList,'') ;* Descending Left justified sort
|
||||||
|
|
||||||
CONVERT @FM:@RM TO @VM:@FM IN WorkList ;* pull delimiters lower
|
CONVERT @FM:@RM TO @VM:@FM IN WorkList ;* pull delimiters lower
|
||||||
|
|
||||||
WorkList[-1,1] = '' ;* Trim trailing delimiter
|
WorkList[-1,1] = '' ;* Trim trailing delimiter
|
||||||
|
|
||||||
FOR I = 1 TO riCnt
|
FOR I = 1 TO riCnt
|
||||||
Result<1,I> = WorkList<I,2> ;* Strip Sort column(s)
|
Result<1,I> = WorkList<I,2> ;* Strip Sort column(s)
|
||||||
NEXT I
|
NEXT I
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|||||||
@ -62,24 +62,80 @@ API reactItems.HEAD
|
|||||||
API reactItems.GET
|
API reactItems.GET
|
||||||
|
|
||||||
QueryFields = HTTP_Services('GetHTTPGetString')
|
QueryFields = HTTP_Services('GetHTTPGetString')
|
||||||
If Index(QueryFields, 'riType', 1) then
|
If IndexC(QueryFields, 'includeNullRetireDt', 1) then
|
||||||
|
IncludeNullRetireDt = HTTP_Services('GetQueryField', 'includeNullRetireDt')
|
||||||
|
Begin Case
|
||||||
|
Case ( (IncludeNullRetireDt EQ 1) or (IncludeNullRetireDt EQ 0) )
|
||||||
|
Null
|
||||||
|
Case ( (IncludeNullRetireDt _EQC 'true') or (IncludeNullRetireDt _EQC 'yes') )
|
||||||
|
IncludeNullRetireDt = True$
|
||||||
|
Case ( (IncludeNullRetireDt _EQC 'false') or (IncludeNullRetireDt _EQC 'no') )
|
||||||
|
IncludeNullRetireDt = False$
|
||||||
|
Case Otherwise$
|
||||||
|
Error_Services('Add', 'Error in ':CurrentAPI:' API. Invalid value "':IncludeNullRetireDt:'" passed in for includeNullRetireDt.')
|
||||||
|
End Case
|
||||||
|
end else
|
||||||
|
IncludeNullRetireDt = ''
|
||||||
|
end
|
||||||
|
|
||||||
|
If Error_Services('NoError') then
|
||||||
|
If IndexC(QueryFields, 'showAllDetails', 1) then
|
||||||
|
ShowAllDetails = HTTP_Services('GetQueryField', 'showAllDetails')
|
||||||
|
Begin Case
|
||||||
|
Case ( (ShowAllDetails EQ 1) or (ShowAllDetails EQ 0) )
|
||||||
|
Null
|
||||||
|
Case ( (ShowAllDetails _EQC 'true') or (ShowAllDetails _EQC 'yes') )
|
||||||
|
ShowAllDetails = True$
|
||||||
|
Case ( (ShowAllDetails _EQC 'false') or (ShowAllDetails _EQC 'no') )
|
||||||
|
ShowAllDetails = False$
|
||||||
|
Case Otherwise$
|
||||||
|
Error_Services('Add', 'Error in ':CurrentAPI:' API. Invalid value "':ShowAllDetails:'" passed in for showAllDetails.')
|
||||||
|
End Case
|
||||||
|
end else
|
||||||
|
ShowAllDetails = False$
|
||||||
|
end
|
||||||
|
|
||||||
|
If Error_Services('NoError') then
|
||||||
|
If IndexC(QueryFields, 'currStatus', 1) then
|
||||||
|
CurrStatus = HTTP_Services('GetQueryField', 'currStatus')
|
||||||
|
end else
|
||||||
|
CurrStatus = ''
|
||||||
|
end
|
||||||
|
If IndexC(QueryFields, 'riType', 1) then
|
||||||
RIType = HTTP_Services('GetQueryField', 'riType')
|
RIType = HTTP_Services('GetQueryField', 'riType')
|
||||||
end else
|
end else
|
||||||
RIType = ''
|
RIType = ''
|
||||||
end
|
end
|
||||||
If Index(QueryFields, 'currStatus', 1 ) then
|
If IndexC(QueryFields, 'entryDtStart', 1) then
|
||||||
CurrStatus = Http_Services('GetQueryField', 'currStatus')
|
EntryDtStart = HTTP_Services('GetQueryField', 'entryDtStart')
|
||||||
end else
|
end else
|
||||||
CurrStatus = ''
|
EntryDtStart = ''
|
||||||
end
|
end
|
||||||
If Index(QueryFields, 'showAllDetails', 1 ) then
|
If IndexC(QueryFields, 'entryDtEnd', 1) then
|
||||||
ShowAllDetails = Http_Services('GetQueryField', 'showAllDetails')
|
EntryDtEnd = HTTP_Services('GetQueryField', 'entryDtEnd')
|
||||||
end else
|
end else
|
||||||
ShowAllDetails = False$
|
EntryDtEnd = ''
|
||||||
|
end
|
||||||
|
If IndexC(QueryFields, 'retireDtStart', 1) then
|
||||||
|
RetireDtStart = HTTP_Services('GetQueryField', 'retireDtStart')
|
||||||
|
end else
|
||||||
|
RetireDtStart = ''
|
||||||
|
end
|
||||||
|
If IndexC(QueryFields, 'retireDtEnd', 1) then
|
||||||
|
RetireDtEnd = HTTP_Services('GetQueryField', 'retireDtEnd')
|
||||||
|
end else
|
||||||
|
RetireDtEnd = ''
|
||||||
end
|
end
|
||||||
StatusCode = 200
|
|
||||||
|
|
||||||
|
StatusCode = 200
|
||||||
GoSub CreateHALCollection
|
GoSub CreateHALCollection
|
||||||
|
end else
|
||||||
|
HTTP_Services('SetResponseStatus', 400, Error_Services("GetMessage"))
|
||||||
|
end
|
||||||
|
end else
|
||||||
|
HTTP_Services('SetResponseStatus', 400, Error_Services("GetMessage"))
|
||||||
|
end
|
||||||
|
|
||||||
end api
|
end api
|
||||||
|
|
||||||
|
|
||||||
@ -254,11 +310,7 @@ CreateHALCollection:
|
|||||||
|
|
||||||
JSONCollection = ''
|
JSONCollection = ''
|
||||||
Abort = False$
|
Abort = False$
|
||||||
If RIType NE '' OR CurrStatus NE '' then
|
ReactItems = React_Item_Services('GetReactItems', RIType, CurrStatus, EntryDtStart, EntryDtEnd, RetireDtStart, RetireDtEnd, IncludeNullRetireDt)
|
||||||
ReactItems = React_Item_Services('GetReactItems', RIType, CurrStatus)
|
|
||||||
end else
|
|
||||||
ReactItems = React_Item_Services('GetAllReactItemKeys')
|
|
||||||
end
|
|
||||||
|
|
||||||
If ReactItems NE '' then
|
If ReactItems NE '' then
|
||||||
If SRP_JSON(hJSONCollection, 'New', 'Object') then
|
If SRP_JSON(hJSONCollection, 'New', 'Object') then
|
||||||
@ -304,3 +356,4 @@ CreateHALCollection:
|
|||||||
end
|
end
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|||||||
@ -182,19 +182,6 @@ Service SignReactorLog(ReactorLogID, UserID)
|
|||||||
ErrorMsg = 'Error in ':Service:' service. Error calling obj_React_Reads("Create"). Error code: ':ErrCode:'.'
|
ErrorMsg = 'Error in ':Service:' service. Error calling obj_React_Reads("Create"). Error code: ':ErrCode:'.'
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
If ErrorMsg EQ '' then
|
|
||||||
// Check if injector settings have been entered
|
|
||||||
* ReactInjSetting = ReactorLogRec<REACTOR_LOG_INJ_SETTING$>
|
|
||||||
* If ReactInjSetting NE '' then
|
|
||||||
* plParms = 'REACT_STATE':@RM
|
|
||||||
* plParms := ReactorNo:@RM
|
|
||||||
* plParms := REACT_STATE_CURR_INJ_RL_ID$:@RM
|
|
||||||
* plParms := ReactorLogID:@RM
|
|
||||||
* obj_Post_Log('Create',plParms)
|
|
||||||
* If Get_Status(ErrCode) then
|
|
||||||
* ErrorMsg = 'Error in ':Service:' service. Error calling obj_Post_Log("Create"). Error code: ':ErrCode:'.'
|
|
||||||
* end
|
|
||||||
* end
|
|
||||||
If ErrorMsg EQ '' then
|
If ErrorMsg EQ '' then
|
||||||
// Check reactor prevent maintenance records
|
// Check reactor prevent maintenance records
|
||||||
CurServices = ReactorLogRec<REACTOR_LOG_REACT_SERV_ID$>
|
CurServices = ReactorLogRec<REACTOR_LOG_REACT_SERV_ID$>
|
||||||
@ -304,7 +291,7 @@ Service SignReactorLog(ReactorLogID, UserID)
|
|||||||
end else
|
end else
|
||||||
ErrorMsg = 'Error in ':Service:' service. Error creating INTRUSIVE_MAINT NICA order.'
|
ErrorMsg = 'Error in ':Service:' service. Error creating INTRUSIVE_MAINT NICA order.'
|
||||||
end
|
end
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -974,4 +961,3 @@ ClearCursors:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1,10 +1,10 @@
|
|||||||
Function REACT_ITEM_Actions(Action, CalcColName, FSList, Handle, Name, FMC, Record, Status, OrigRecord, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10)
|
Function REACT_ITEM_ACTIONS(Action, CalcColName, FSList, Handle, Name, FMC, Record, Status, OrigRecord, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10)
|
||||||
/***********************************************************************************************************************
|
/***********************************************************************************************************************
|
||||||
|
|
||||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
||||||
permission from Infineon.
|
permission from Infineon.
|
||||||
|
|
||||||
Name : RDS_Actions
|
Name : React_Item_Actions
|
||||||
|
|
||||||
Description : Handles calculated columns and MFS calls for the current table.
|
Description : Handles calculated columns and MFS calls for the current table.
|
||||||
|
|
||||||
@ -36,39 +36,19 @@ Function REACT_ITEM_Actions(Action, CalcColName, FSList, Handle, Name, FMC, Reco
|
|||||||
method.
|
method.
|
||||||
|
|
||||||
History : (Date, Initials, Notes)
|
History : (Date, Initials, Notes)
|
||||||
04/10/18 dmb Original programmer.
|
05/12/25 djs Updated WRITE_PRE action to update the CURR_STATUS_STATIC field if the retire date changes.
|
||||||
10/04/18 djs Added a trigger within the WRITE_RECORD event, which fires when the reactor number has
|
|
||||||
changed. When this occurs the related RDS_LAYER records for this RDS record are populated
|
|
||||||
with the most recent associated TOOL_PARMS record. (related by PSN and Reactor)
|
|
||||||
|
|
||||||
***********************************************************************************************************************/
|
***********************************************************************************************************************/
|
||||||
|
|
||||||
#pragma precomp SRP_PreCompiler
|
#pragma precomp SRP_PreCompiler
|
||||||
|
|
||||||
$Insert FILE.SYSTEM.EQUATES
|
|
||||||
$Insert ACTION_SETUP
|
$Insert ACTION_SETUP
|
||||||
$Insert RDS_EQUATES
|
|
||||||
$Insert CLEAN_INSP_EQUATES
|
|
||||||
$Insert COMPANY_EQUATES
|
|
||||||
$Insert RDS_LAYER_EQUATES
|
|
||||||
$Insert TOOL_PARMS_EQUATES
|
|
||||||
$Insert RLIST_EQUATES
|
|
||||||
$Insert APP_INSERTS
|
$Insert APP_INSERTS
|
||||||
$Insert QA_MET_EQUATES
|
$Insert FILE.SYSTEM.EQUATES
|
||||||
$Insert PRS_STAGE_EQUATES
|
$Insert REACT_ITEM_EQUATES
|
||||||
$Insert WO_MAT_EQUATES
|
|
||||||
$Insert WO_MAT_QA_EQUATES
|
|
||||||
|
|
||||||
Equ COMMA$ to ','
|
|
||||||
|
|
||||||
Declare function Error_Services, Database_Services, obj_RDS_Test, Logging_Services, Environment_Services, SRP_Math
|
|
||||||
Declare function Tool_Parms_Services, Signature_Services, obj_WO_Mat_QA, Datetime, Override_Services, obj_WO_Mat
|
|
||||||
Declare subroutine Error_Services, Database_Services, Logging_Services, Set_Status, Schedule_Services_Dev
|
|
||||||
Declare subroutine Work_Order_Services, Material_Services, Set_FSError
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Declare function obj_React_Item
|
||||||
|
Declare subroutine Error_Services
|
||||||
|
|
||||||
If KeyID then GoSub Initialize_System_Variables
|
If KeyID then GoSub Initialize_System_Variables
|
||||||
|
|
||||||
@ -109,12 +89,8 @@ CalculateColumn:
|
|||||||
// Make sure the ActionFlow return variable is cleared in case nothing is calculated.
|
// Make sure the ActionFlow return variable is cleared in case nothing is calculated.
|
||||||
ActionFlow = ''
|
ActionFlow = ''
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
READ_RECORD_PRE:
|
READ_RECORD_PRE:
|
||||||
@ -124,10 +100,9 @@ READ_RECORD_PRE:
|
|||||||
// Status = 0
|
// Status = 0
|
||||||
// Record = ''
|
// Record = ''
|
||||||
// ActionFlow = ACTION_STOP$
|
// ActionFlow = ACTION_STOP$
|
||||||
|
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
READ_RECORD:
|
READ_RECORD:
|
||||||
|
|
||||||
// In order to stop a record from being read in this action these lines of code must be used:
|
// In order to stop a record from being read in this action these lines of code must be used:
|
||||||
@ -138,6 +113,7 @@ READ_RECORD:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
READONLY_RECORD_PRE:
|
READONLY_RECORD_PRE:
|
||||||
// In order to stop a record from being read in this action these lines of code must be used:
|
// In order to stop a record from being read in this action these lines of code must be used:
|
||||||
//
|
//
|
||||||
@ -147,6 +123,7 @@ READONLY_RECORD_PRE:
|
|||||||
// ActionFlow = ACTION_STOP$
|
// ActionFlow = ACTION_STOP$
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
READONLY_RECORD:
|
READONLY_RECORD:
|
||||||
// In order to stop a record from being read in this action these lines of code must be used:
|
// In order to stop a record from being read in this action these lines of code must be used:
|
||||||
//
|
//
|
||||||
@ -155,51 +132,56 @@ READONLY_RECORD:
|
|||||||
// Record = ''
|
// Record = ''
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
WRITE_RECORD_PRE:
|
WRITE_RECORD_PRE:
|
||||||
|
|
||||||
ErrMsg = ''
|
ErrMsg = ''
|
||||||
|
|
||||||
//Req'd parameter checks
|
// Req'd parameter checks
|
||||||
ItemType = {RI_TYPE}
|
ItemType = {RI_TYPE}
|
||||||
|
|
||||||
If ItemType EQ '' then
|
* If ItemType EQ '' then ErrMsg := 'Item Type was not specified. '
|
||||||
ErrMsg := 'Item Type was not specified. '
|
|
||||||
end
|
|
||||||
|
|
||||||
If ErrMsg NE '' then
|
If ErrMsg NE '' then
|
||||||
Error_Services('Add', 'Error Saving Reactor Item: ' : ErrMsg)
|
Error_Services('Add', 'Error Saving Reactor Item: ' : ErrMsg)
|
||||||
OrigFileError = 104:': Error Saving Reactor Item: ' : ErrMsg
|
OrigFileError = 104:': Error Saving Reactor Item: ' : ErrMsg
|
||||||
Status = 0
|
Status = 0
|
||||||
Record = ''
|
Record = ''
|
||||||
ActionFlow = ACTION_STOP$
|
ActionFlow = ACTION_STOP$
|
||||||
end
|
end else
|
||||||
|
OrigRetireDt = OrigRecord<REACT_ITEM_RETIRE_DT$>
|
||||||
|
NewRetireDt = Record<REACT_ITEM_RETIRE_DT$>
|
||||||
|
OrigNotes = OrigRecord<REACT_ITEM_NOTES$>
|
||||||
|
NewNotes = Record<REACT_ITEM_NOTES$>
|
||||||
|
If ( (OrigRetireDt NE NewRetireDt) or (OrigNotes NE NewNotes) ) then
|
||||||
|
CurrStatus = obj_React_Item('CurrStatus', Name:@RM:Record)
|
||||||
|
Record<REACT_ITEM_CURR_STATUS_STATIC$> = CurrStatus
|
||||||
|
SaveRecord = Record
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
WRITE_RECORD:
|
WRITE_RECORD:
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
DELETE_RECORD_PRE:
|
DELETE_RECORD_PRE:
|
||||||
|
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
DELETE_RECORD:
|
DELETE_RECORD:
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
// Internal GoSubs
|
// Internal GoSubs
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
ClearCursors:
|
ClearCursors:
|
||||||
|
|
||||||
For counter = 0 to 8
|
For counter = 0 to 8
|
||||||
ClearSelect counter
|
ClearSelect counter
|
||||||
Next counter
|
Next counter
|
||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
@ -251,4 +233,3 @@ Restore_System_Variables:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -20,62 +20,110 @@ Compile function React_Item_Services(@Service, @Params)
|
|||||||
08/02/22 djs Original programmer.
|
08/02/22 djs Original programmer.
|
||||||
|
|
||||||
***********************************************************************************************************************/
|
***********************************************************************************************************************/
|
||||||
|
|
||||||
#pragma precomp SRP_PreCompiler
|
#pragma precomp SRP_PreCompiler
|
||||||
|
|
||||||
$Insert LOGICAL
|
|
||||||
$Insert APP_INSERTS
|
$Insert APP_INSERTS
|
||||||
|
$Insert SERVICE_SETUP
|
||||||
$Insert RLIST_EQUATES
|
$Insert RLIST_EQUATES
|
||||||
$Insert REACT_ITEM_EQUATES
|
$Insert REACT_ITEM_EQUATES
|
||||||
|
|
||||||
Declare function Database_Services, Error_Services, SRP_JSON, NextKey
|
Declare function Database_Services, Error_Services, SRP_JSON, NextKey, SRP_Date, obj_React_Item, SRP_Array
|
||||||
Declare subroutine SRP_JSON, Error_Services, Btree.Extract, Database_Services
|
Declare subroutine SRP_JSON, Error_Services, Btree.Extract, Database_Services, Update_Index
|
||||||
GoToService
|
|
||||||
|
|
||||||
Return Response or ""
|
GoToService else
|
||||||
|
Error_Services('Set', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
|
||||||
|
end
|
||||||
|
|
||||||
//-----------------------------------------------------------------------------
|
Return Response else ''
|
||||||
// SERVICES
|
|
||||||
//-----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Service GetAllReactItemKeys()
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
AllKeys = ''
|
// Service Parameter Options
|
||||||
RList('SELECT REACT_ITEM', TARGET_ACTIVELIST$, '', '', '')
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
Done = False$
|
Options BOOLEAN = True$, False$
|
||||||
Reactors = ''
|
|
||||||
Loop
|
|
||||||
Readnext keyId else Done = True$
|
|
||||||
Until Done
|
|
||||||
AllKeys<1,-1> = keyId
|
|
||||||
Repeat
|
|
||||||
Response = AllKeys
|
|
||||||
end service
|
|
||||||
|
|
||||||
Service GetReactItems(RIType, CurrStatus)
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
// Services
|
||||||
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
|
||||||
|
Service GetReactItems(RIType, CurrStatus, EntryDtStart, EntryDtEnd, RetireDtStart, RetireDtEnd, IncludeNullRetireDt=BOOLEAN)
|
||||||
|
|
||||||
ErrorMsg = ''
|
ErrorMsg = ''
|
||||||
Response = ''
|
Response = ''
|
||||||
Swap ',' with @VM in RIType
|
If ( (RIType NE '') or (CurrStatus NE '') or (EntryDtStart NE '') or (EntryDtEnd NE '') or (RetireDtStart NE '') or (RetireDtEnd NE '') or (IncludeNullRetireDt NE '') ) then
|
||||||
Swap ',' with @VM in CurrStatus
|
If EntryDtStart NE '' and Not(Num(EntryDtStart)) then EntryDtStart = IConv(EntryDtStart, 'D')
|
||||||
|
If EntryDtEnd NE '' and Not(Num(EntryDtEnd)) then EntryDtEnd = IConv(EntryDtEnd, 'D')
|
||||||
|
If RetireDtStart NE '' and Not(Num(RetireDtStart)) then RetireDtStart = IConv(RetireDtStart, 'D')
|
||||||
|
If RetireDtEnd NE '' and Not(Num(RetireDtEnd)) then RetireDtEnd = IConv(RetireDtEnd, 'D')
|
||||||
Open 'DICT.REACT_ITEM' to DictReactItem then
|
Open 'DICT.REACT_ITEM' to DictReactItem then
|
||||||
|
|
||||||
SearchString = ''
|
SearchString = ''
|
||||||
If RIType NE '' then SearchString := 'RI_TYPE':@VM:RIType:@FM
|
If RIType NE '' then
|
||||||
If CurrStatus NE '' then SearchString := 'CURR_STATUS':@VM:CurrStatus:@FM
|
Swap ',' with @VM in RIType
|
||||||
RIKeys = ''
|
SearchString := 'RI_TYPE':@VM:RIType:@FM
|
||||||
Btree.Extract(SearchString, 'REACT_ITEM', DictReactItem, RIKeys, '', '')
|
end
|
||||||
ErrCode = ''
|
Begin Case
|
||||||
IF Get_Status(ErrCode) then
|
Case ( (EntryDtStart NE '') and (EntryDtEnd NE '') )
|
||||||
ErrorMsg = 'Error in ':Service:' service. Error calling Btree.Extract. Error code ':ErrCode:'.'
|
EntryDtStart = OConv(EntryDtStart - 1, 'D4/')
|
||||||
end else
|
EntryDtEnd = OConv(EntryDtEnd + 1, 'D4/')
|
||||||
Response = RIKeys
|
SearchString := 'ENTER_DT':@VM:EntryDtStart:'~':EntryDtEnd:@FM
|
||||||
|
Case (EntryDtStart NE '')
|
||||||
|
EntryDtStart = OConv(EntryDtStart, 'D4/')
|
||||||
|
SearchString := 'ENTER_DT':@VM:'>=':EntryDtStart:@FM
|
||||||
|
Case (EntryDtEnd NE '')
|
||||||
|
SearchString := 'ENTER_DT':@VM:'<=':EntryDtEnd:@FM
|
||||||
|
Case Otherwise$
|
||||||
|
Null
|
||||||
|
End Case
|
||||||
|
Begin Case
|
||||||
|
Case ( (RetireDtStart NE '') and (RetireDtEnd NE '') )
|
||||||
|
RetireDtStart = OConv(RetireDtStart - 1, 'D4/')
|
||||||
|
RetireDtEnd = OConv(RetireDtEnd + 1, 'D4/')
|
||||||
|
SearchString := 'RETIRE_DT':@VM:RetireDtStart:'~':RetireDtEnd
|
||||||
|
If IncludeNullRetireDt then SearchString := @VM:''
|
||||||
|
SearchString := @FM
|
||||||
|
Case (RetireDtStart NE '')
|
||||||
|
RetireDtStart = OConv(RetireDtStart, 'D4/')
|
||||||
|
SearchString := 'RETIRE_DT':@VM:'>=':RetireDtStart
|
||||||
|
If IncludeNullRetireDt then SearchString := @VM:''
|
||||||
|
SearchString := @FM
|
||||||
|
Case (RetireDtEnd NE '')
|
||||||
|
SearchString := 'RETIRE_DT':@VM:'<=':RetireDtEnd
|
||||||
|
If IncludeNullRetireDt then SearchString := @VM:''
|
||||||
|
SearchString := @FM
|
||||||
|
Case IncludeNullRetireDt
|
||||||
|
SearchString := 'RETIRE_DT':@VM:'':@FM
|
||||||
|
Case Otherwise$
|
||||||
|
Null
|
||||||
|
End Case
|
||||||
|
If CurrStatus NE '' then
|
||||||
|
Swap ',' with @VM in CurrStatus
|
||||||
|
SearchString := 'CURR_STATUS_STATIC':@VM:CurrStatus:@FM
|
||||||
|
end
|
||||||
|
Flag = ''
|
||||||
|
RIKeys = ''
|
||||||
|
Btree.Extract(SearchString, 'REACT_ITEM', DictReactItem, RIKeys, 'E', Flag)
|
||||||
|
If Flag EQ 0 then
|
||||||
|
EnterDtms = Xlate('REACT_ITEM', RIKeys, 'ENTER_DTM', 'X')
|
||||||
|
Array = RIKeys:@FM:EnterDtms
|
||||||
|
Array = SRP_Array('SortRows', Array, 'DN2', 'ARRAY', @FM, @VM)
|
||||||
|
Response = Array<1>
|
||||||
|
end else
|
||||||
|
ErrorMsg = 'Error in ':Service:' service. Error calling Btree.Extract.'
|
||||||
end
|
end
|
||||||
|
|
||||||
end else
|
end else
|
||||||
ErrorMsg = 'Error in ':Service:' service. Error opening REACT_ITEM dictionary.'
|
ErrorMsg = 'Error in ':Service:' service. Error opening REACT_ITEM dictionary.'
|
||||||
end
|
end
|
||||||
|
end else
|
||||||
|
AllKeys = ''
|
||||||
|
RList('SELECT REACT_ITEM', TARGET_ACTIVELIST$, '', '', '')
|
||||||
|
Done = False$
|
||||||
|
Loop
|
||||||
|
Readnext KeyId else Done = True$
|
||||||
|
Until Done
|
||||||
|
AllKeys<1, -1> = KeyId
|
||||||
|
Repeat
|
||||||
|
Response = AllKeys
|
||||||
|
end
|
||||||
If ErrorMsg NE '' then
|
If ErrorMsg NE '' then
|
||||||
Error_Services('Add', ErrorMsg)
|
Error_Services('Add', ErrorMsg)
|
||||||
end
|
end
|
||||||
@ -155,7 +203,6 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
|||||||
|
|
||||||
Response = jsonRecord
|
Response = jsonRecord
|
||||||
|
|
||||||
|
|
||||||
end service
|
end service
|
||||||
|
|
||||||
|
|
||||||
@ -326,11 +373,11 @@ Service GetReactItemTemplateJSON()
|
|||||||
|
|
||||||
Response = jsonRecord
|
Response = jsonRecord
|
||||||
|
|
||||||
|
|
||||||
end service
|
end service
|
||||||
|
|
||||||
|
|
||||||
Service CreateReactItem(Record)
|
Service CreateReactItem(Record)
|
||||||
|
|
||||||
ErrMsg = ''
|
ErrMsg = ''
|
||||||
KeyID = ''
|
KeyID = ''
|
||||||
If Record NE '' then
|
If Record NE '' then
|
||||||
@ -355,6 +402,7 @@ Service CreateReactItem(Record)
|
|||||||
|
|
||||||
end service
|
end service
|
||||||
|
|
||||||
|
|
||||||
Service ConvertRecordToJSONQuick(KeyID, Record, ItemURL)
|
Service ConvertRecordToJSONQuick(KeyID, Record, ItemURL)
|
||||||
|
|
||||||
jsonRecord = ''
|
jsonRecord = ''
|
||||||
@ -407,6 +455,32 @@ Service ConvertRecordToJSONQuick(KeyID, Record, ItemURL)
|
|||||||
Response = jsonRecord
|
Response = jsonRecord
|
||||||
|
|
||||||
end service
|
end service
|
||||||
|
|
||||||
|
|
||||||
|
Service UpdateReactItemStatus(RINo)
|
||||||
|
|
||||||
|
If RINo NE '' then
|
||||||
|
If RowExists('REACT_ITEM', RINo) then
|
||||||
|
RIRec = Database_Services('ReadDataRow', 'REACT_ITEM', RINo)
|
||||||
|
If Error_Services('NoError') then
|
||||||
|
Update_Index('REACT_ITEM_HIST', 'RI_NO', False$, True$)
|
||||||
|
ReactItemCurrStatus = obj_React_Item('CurrStatus', RINo:@RM:RIRec)
|
||||||
|
ReactItemCurrStatusStatic = RIRec<REACT_ITEM_CURR_STATUS_STATIC$>
|
||||||
|
If ReactItemCurrStatus NE ReactItemCurrStatusStatic then
|
||||||
|
Open 'REACT_ITEM' to hTable then
|
||||||
|
WriteV ReactItemCurrStatus on hTable, RINo, REACT_ITEM_CURR_STATUS_STATIC$ else
|
||||||
|
Error_Services('Add', 'Error in ':Service:' service. Error writing CURR_STATUS_STATIC, ':ReactItemCurrStatus:', for REACT_ITEM ':RINo:'.')
|
||||||
|
end
|
||||||
|
end else
|
||||||
|
Error_Services('Add', 'Error in ':Service:' service. Error opening REACT_ITEM table for status update.')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
end service
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
// Internal GoSubs
|
// Internal GoSubs
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
@ -419,6 +493,3 @@ ClearCursors:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -28,3 +28,5 @@ Equ REACT_ITEM_TUBE_GRADE$ To 18
|
|||||||
Equ REACT_ITEM_TUBE_PRESS$ To 19
|
Equ REACT_ITEM_TUBE_PRESS$ To 19
|
||||||
Equ REACT_ITEM_TUBE_STYLE$ To 20
|
Equ REACT_ITEM_TUBE_STYLE$ To 20
|
||||||
Equ REACT_ITEM_NEW_OR_REFURB$ To 21
|
Equ REACT_ITEM_NEW_OR_REFURB$ To 21
|
||||||
|
Equ REACT_ITEM_CURR_STATUS_STATIC$ To 22
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user