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",
|
||||
"<3>": "-1",
|
||||
"<4>": "-1",
|
||||
"<5>": "16777215",
|
||||
"<5>": "-2",
|
||||
"<6>": {
|
||||
"<6,1>": {
|
||||
"<6,1,1>": "Tahoma",
|
||||
@ -31,7 +31,7 @@
|
||||
}
|
||||
},
|
||||
"<7>": "REACT_ITEM",
|
||||
"<8>": "BY @ID",
|
||||
"<8>": "BY-DSND ENTER_DTM",
|
||||
"<9>": {
|
||||
"<9,1>": {
|
||||
"<9,1,1>": "RI_NO",
|
||||
@ -120,6 +120,22 @@
|
||||
"<9,11,4>": "C",
|
||||
"<9,11,5>": "D4/",
|
||||
"<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",
|
||||
@ -147,7 +163,17 @@
|
||||
"<32>": "0",
|
||||
"<33>": "1",
|
||||
"<34>": "16777215",
|
||||
"<35>": "16777215"
|
||||
"<35>": "16766894",
|
||||
"<36>": "",
|
||||
"<37>": "",
|
||||
"<38>": "",
|
||||
"<39>": "",
|
||||
"<40>": "-2",
|
||||
"<41>": "1000",
|
||||
"<42>": "",
|
||||
"<43>": "",
|
||||
"<44>": "",
|
||||
"<45>": ""
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -9,7 +9,7 @@
|
||||
"<2>": "-1",
|
||||
"<3>": "-1",
|
||||
"<4>": "-1",
|
||||
"<5>": "16777215",
|
||||
"<5>": "-2",
|
||||
"<6>": {
|
||||
"<6,1>": {
|
||||
"<6,1,1>": "MS Sans Serif",
|
||||
@ -91,7 +91,17 @@
|
||||
"<32>": "0",
|
||||
"<33>": "1",
|
||||
"<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 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,26 +1229,11 @@ SvcsOptions:
|
||||
If ItemType NE '' then
|
||||
|
||||
RetVal = ''
|
||||
|
||||
ItemType = ICONV(ItemType,'[CONV_CODE_DESC,REACT_ITEM_TYPE]')
|
||||
|
||||
OPEN 'DICT.REACT_ITEM' to DictReactItem else
|
||||
ErrMsg('Unable to open DICT.REACT_ITEM')
|
||||
return
|
||||
end
|
||||
RIKeys = React_Item_Services('GetReactItems', ItemType, 'N,U')
|
||||
|
||||
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
|
||||
If Error_Services('NoError') then
|
||||
|
||||
TypeOver = ''
|
||||
TypeOVer<PMODE$> = 'K'
|
||||
@ -1282,11 +1267,13 @@ SvcsOptions:
|
||||
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
|
||||
|
||||
|
||||
|
||||
@ -440,7 +440,7 @@ END
|
||||
IF CurrStatus NE '' THEN
|
||||
SWAP @VM WITH '" "' IN CurrStatus
|
||||
IF SelectSent NE '' THEN SelectSent := ' AND'
|
||||
SelectSent := ' WITH CURR_STATUS ':QUOTE(CurrStatus)
|
||||
SelectSent := ' WITH CURR_STATUS_STATIC ':QUOTE(CurrStatus)
|
||||
END
|
||||
|
||||
IF PartTypes NE '' THEN
|
||||
@ -471,7 +471,7 @@ SelectSent = 'SELECT REACT_ITEM ':SelectSent
|
||||
|
||||
|
||||
Def = ""
|
||||
Def<MTEXT$> = "Selecting Reactor Events..."
|
||||
Def<MTEXT$> = "Selecting Reactor Items..."
|
||||
Def<MTYPE$> = "U"
|
||||
|
||||
* display the processing message and do the processing
|
||||
@ -502,6 +502,3 @@ End_Dialog(@WINDOW,RINos)
|
||||
|
||||
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 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
|
||||
|
||||
|
||||
@ -195,18 +195,16 @@ PostReactItems:
|
||||
ReactorLogRec<REACTOR_LOG_RI_POST_DTM$> = PostDTM
|
||||
|
||||
otParms = FIELDSTORE(otParms,@RM,4,0,ReactorLogRec)
|
||||
//obj_Tables('WriteRec',otParms)
|
||||
|
||||
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', 'REM_RL_ID', False$, True$)
|
||||
|
||||
end else
|
||||
Error_Services('Add', ValidationFailureReason)
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
@ -386,10 +384,3 @@ RemHistKeys:
|
||||
|
||||
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 SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn
|
||||
DECLARE SUBROUTINE ErrMsg, Btree.Extract
|
||||
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, ErrMsg, Btree.Extract, React_Item_Services
|
||||
|
||||
$Insert LOGICAL
|
||||
$INSERT REACT_ITEM_HIST_EQUATES
|
||||
$INSERT RLIST_EQUATES
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO CHAR(9)
|
||||
@ -69,8 +70,6 @@ ReactHrs = Parms[COL2()+1,@RM]
|
||||
|
||||
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 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
|
||||
|
||||
@ -82,6 +81,8 @@ RIHRec<REACT_ITEM_HIST_INST_REACT_HRS$> = ReactHrs
|
||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey:@RM:@RM:RIHRec
|
||||
|
||||
obj_Tables('WriteRec',otParms)
|
||||
RINo = Field(RIHKey, '*', 2, 1)
|
||||
React_Item_Services('UpdateReactItemStatus', RINo)
|
||||
|
||||
RETURN
|
||||
|
||||
@ -99,13 +100,9 @@ ReactHrs = Parms[COL2()+1,@RM]
|
||||
IF RIHKey = '' THEN ErrorMsg = 'Null Parameter "RIHKey" 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 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
|
||||
|
||||
* Read and update record *
|
||||
|
||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
||||
|
||||
RIHRec = obj_Tables('ReadRec',otParms)
|
||||
@ -122,6 +119,8 @@ RIHRec<REACT_ITEM_HIST_REM_REACT_HRS$> = ReactHrs
|
||||
|
||||
otParms = FIELDSTORE(otParms,@RM,4,0,RIHRec)
|
||||
obj_Tables('WriteRec',otParms)
|
||||
RINo = Field(RIHKey, '*', 2, 1)
|
||||
React_Item_Services('UpdateReactItemStatus', RINo)
|
||||
|
||||
RETURN
|
||||
|
||||
@ -134,9 +133,6 @@ RIHKey = Parms[1,@RM]
|
||||
|
||||
IF RIHKey = '' THEN RETURN
|
||||
|
||||
|
||||
* Read and update record *
|
||||
|
||||
otParms = 'REACT_ITEM_HIST':@RM:RIHKey
|
||||
|
||||
RIHRec = obj_Tables('ReadRec',otParms)
|
||||
@ -178,7 +174,7 @@ Flag = ''
|
||||
|
||||
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 = ''
|
||||
riCnt = COUNT(RIKeys,@VM) + (RIKeys NE '')
|
||||
@ -202,3 +198,4 @@ FOR I = 1 TO riCnt
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
@ -62,24 +62,80 @@ API reactItems.HEAD
|
||||
API reactItems.GET
|
||||
|
||||
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')
|
||||
end else
|
||||
RIType = ''
|
||||
end
|
||||
If Index(QueryFields, 'currStatus', 1 ) then
|
||||
CurrStatus = Http_Services('GetQueryField', 'currStatus')
|
||||
If IndexC(QueryFields, 'entryDtStart', 1) then
|
||||
EntryDtStart = HTTP_Services('GetQueryField', 'entryDtStart')
|
||||
end else
|
||||
CurrStatus = ''
|
||||
EntryDtStart = ''
|
||||
end
|
||||
If Index(QueryFields, 'showAllDetails', 1 ) then
|
||||
ShowAllDetails = Http_Services('GetQueryField', 'showAllDetails')
|
||||
If IndexC(QueryFields, 'entryDtEnd', 1) then
|
||||
EntryDtEnd = HTTP_Services('GetQueryField', 'entryDtEnd')
|
||||
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
|
||||
StatusCode = 200
|
||||
|
||||
StatusCode = 200
|
||||
GoSub CreateHALCollection
|
||||
end else
|
||||
HTTP_Services('SetResponseStatus', 400, Error_Services("GetMessage"))
|
||||
end
|
||||
end else
|
||||
HTTP_Services('SetResponseStatus', 400, Error_Services("GetMessage"))
|
||||
end
|
||||
|
||||
end api
|
||||
|
||||
|
||||
@ -254,11 +310,7 @@ CreateHALCollection:
|
||||
|
||||
JSONCollection = ''
|
||||
Abort = False$
|
||||
If RIType NE '' OR CurrStatus NE '' then
|
||||
ReactItems = React_Item_Services('GetReactItems', RIType, CurrStatus)
|
||||
end else
|
||||
ReactItems = React_Item_Services('GetAllReactItemKeys')
|
||||
end
|
||||
ReactItems = React_Item_Services('GetReactItems', RIType, CurrStatus, EntryDtStart, EntryDtEnd, RetireDtStart, RetireDtEnd, IncludeNullRetireDt)
|
||||
|
||||
If ReactItems NE '' then
|
||||
If SRP_JSON(hJSONCollection, 'New', 'Object') then
|
||||
@ -304,3 +356,4 @@ CreateHALCollection:
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
|
||||
@ -182,19 +182,6 @@ Service SignReactorLog(ReactorLogID, UserID)
|
||||
ErrorMsg = 'Error in ':Service:' service. Error calling obj_React_Reads("Create"). Error code: ':ErrCode:'.'
|
||||
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
|
||||
// Check reactor prevent maintenance records
|
||||
CurServices = ReactorLogRec<REACTOR_LOG_REACT_SERV_ID$>
|
||||
@ -304,7 +291,7 @@ Service SignReactorLog(ReactorLogID, UserID)
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Error creating INTRUSIVE_MAINT NICA order.'
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -974,4 +961,3 @@ ClearCursors:
|
||||
|
||||
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
|
||||
permission from Infineon.
|
||||
|
||||
Name : RDS_Actions
|
||||
Name : React_Item_Actions
|
||||
|
||||
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.
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
04/10/18 dmb Original programmer.
|
||||
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)
|
||||
05/12/25 djs Updated WRITE_PRE action to update the CURR_STATUS_STATIC field if the retire date changes.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$Insert FILE.SYSTEM.EQUATES
|
||||
$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 QA_MET_EQUATES
|
||||
$Insert PRS_STAGE_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
|
||||
|
||||
|
||||
|
||||
$Insert FILE.SYSTEM.EQUATES
|
||||
$Insert REACT_ITEM_EQUATES
|
||||
|
||||
Declare function obj_React_Item
|
||||
Declare subroutine Error_Services
|
||||
|
||||
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.
|
||||
ActionFlow = ''
|
||||
|
||||
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
||||
|
||||
READ_RECORD_PRE:
|
||||
@ -124,10 +100,9 @@ READ_RECORD_PRE:
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
// ActionFlow = ACTION_STOP$
|
||||
|
||||
|
||||
return
|
||||
|
||||
|
||||
READ_RECORD:
|
||||
|
||||
// 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
|
||||
|
||||
|
||||
READONLY_RECORD_PRE:
|
||||
// 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$
|
||||
return
|
||||
|
||||
|
||||
READONLY_RECORD:
|
||||
// In order to stop a record from being read in this action these lines of code must be used:
|
||||
//
|
||||
@ -155,6 +132,7 @@ READONLY_RECORD:
|
||||
// Record = ''
|
||||
return
|
||||
|
||||
|
||||
WRITE_RECORD_PRE:
|
||||
|
||||
ErrMsg = ''
|
||||
@ -162,9 +140,7 @@ ErrMsg = ''
|
||||
// Req'd parameter checks
|
||||
ItemType = {RI_TYPE}
|
||||
|
||||
If ItemType EQ '' then
|
||||
ErrMsg := 'Item Type was not specified. '
|
||||
end
|
||||
* If ItemType EQ '' then ErrMsg := 'Item Type was not specified. '
|
||||
|
||||
If ErrMsg NE '' then
|
||||
Error_Services('Add', 'Error Saving Reactor Item: ' : ErrMsg)
|
||||
@ -172,34 +148,40 @@ If ErrMsg NE '' then
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
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
|
||||
|
||||
WRITE_RECORD:
|
||||
|
||||
|
||||
|
||||
return
|
||||
|
||||
DELETE_RECORD_PRE:
|
||||
|
||||
|
||||
return
|
||||
|
||||
DELETE_RECORD:
|
||||
return
|
||||
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
ClearCursors:
|
||||
|
||||
For counter = 0 to 8
|
||||
ClearSelect counter
|
||||
Next counter
|
||||
|
||||
return
|
||||
|
||||
|
||||
@ -251,4 +233,3 @@ Restore_System_Variables:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
@ -20,62 +20,110 @@ Compile function React_Item_Services(@Service, @Params)
|
||||
08/02/22 djs Original programmer.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$Insert LOGICAL
|
||||
$Insert APP_INSERTS
|
||||
$Insert SERVICE_SETUP
|
||||
$Insert RLIST_EQUATES
|
||||
$Insert REACT_ITEM_EQUATES
|
||||
|
||||
Declare function Database_Services, Error_Services, SRP_JSON, NextKey
|
||||
Declare subroutine SRP_JSON, Error_Services, Btree.Extract, Database_Services
|
||||
GoToService
|
||||
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, Update_Index
|
||||
|
||||
Return Response or ""
|
||||
GoToService else
|
||||
Error_Services('Set', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
|
||||
end
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// SERVICES
|
||||
//-----------------------------------------------------------------------------
|
||||
Return Response else ''
|
||||
|
||||
Service GetAllReactItemKeys()
|
||||
AllKeys = ''
|
||||
RList('SELECT REACT_ITEM', TARGET_ACTIVELIST$, '', '', '')
|
||||
Done = False$
|
||||
Reactors = ''
|
||||
Loop
|
||||
Readnext keyId else Done = True$
|
||||
Until Done
|
||||
AllKeys<1,-1> = keyId
|
||||
Repeat
|
||||
Response = AllKeys
|
||||
end service
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Service Parameter Options
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
Options BOOLEAN = True$, False$
|
||||
|
||||
Service GetReactItems(RIType, CurrStatus)
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Services
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
|
||||
Service GetReactItems(RIType, CurrStatus, EntryDtStart, EntryDtEnd, RetireDtStart, RetireDtEnd, IncludeNullRetireDt=BOOLEAN)
|
||||
|
||||
ErrorMsg = ''
|
||||
Response = ''
|
||||
Swap ',' with @VM in RIType
|
||||
Swap ',' with @VM in CurrStatus
|
||||
|
||||
If ( (RIType NE '') or (CurrStatus NE '') or (EntryDtStart NE '') or (EntryDtEnd NE '') or (RetireDtStart NE '') or (RetireDtEnd NE '') or (IncludeNullRetireDt NE '') ) then
|
||||
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
|
||||
|
||||
SearchString = ''
|
||||
If RIType NE '' then SearchString := 'RI_TYPE':@VM:RIType:@FM
|
||||
If CurrStatus NE '' then SearchString := 'CURR_STATUS':@VM:CurrStatus:@FM
|
||||
RIKeys = ''
|
||||
Btree.Extract(SearchString, 'REACT_ITEM', DictReactItem, RIKeys, '', '')
|
||||
ErrCode = ''
|
||||
IF Get_Status(ErrCode) then
|
||||
ErrorMsg = 'Error in ':Service:' service. Error calling Btree.Extract. Error code ':ErrCode:'.'
|
||||
end else
|
||||
Response = RIKeys
|
||||
If RIType NE '' then
|
||||
Swap ',' with @VM in RIType
|
||||
SearchString := 'RI_TYPE':@VM:RIType:@FM
|
||||
end
|
||||
Begin Case
|
||||
Case ( (EntryDtStart NE '') and (EntryDtEnd NE '') )
|
||||
EntryDtStart = OConv(EntryDtStart - 1, 'D4/')
|
||||
EntryDtEnd = OConv(EntryDtEnd + 1, 'D4/')
|
||||
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 else
|
||||
ErrorMsg = 'Error in ':Service:' service. Error opening REACT_ITEM dictionary.'
|
||||
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
|
||||
Error_Services('Add', ErrorMsg)
|
||||
end
|
||||
@ -155,7 +203,6 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
|
||||
Response = jsonRecord
|
||||
|
||||
|
||||
end service
|
||||
|
||||
|
||||
@ -326,11 +373,11 @@ Service GetReactItemTemplateJSON()
|
||||
|
||||
Response = jsonRecord
|
||||
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service CreateReactItem(Record)
|
||||
|
||||
ErrMsg = ''
|
||||
KeyID = ''
|
||||
If Record NE '' then
|
||||
@ -355,6 +402,7 @@ Service CreateReactItem(Record)
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service ConvertRecordToJSONQuick(KeyID, Record, ItemURL)
|
||||
|
||||
jsonRecord = ''
|
||||
@ -407,6 +455,32 @@ Service ConvertRecordToJSONQuick(KeyID, Record, ItemURL)
|
||||
Response = jsonRecord
|
||||
|
||||
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
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
@ -419,6 +493,3 @@ ClearCursors:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -28,3 +28,5 @@ Equ REACT_ITEM_TUBE_GRADE$ To 18
|
||||
Equ REACT_ITEM_TUBE_PRESS$ To 19
|
||||
Equ REACT_ITEM_TUBE_STYLE$ To 20
|
||||
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