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

24
LSL2/STPROC/OBJ_REACT_STATUS.txt
View File

@ -106,7 +106,7 @@ SetOutOfProdDTM:
ReactStatRec = Database_Services('ReadDataRow', 'REACT_STATUS', ReactNo)
IF Get_Status(errCode) or Error_Services('HasError') THEN
ErrorMsg = 'Unable to read REACT_STATUS record ':ReactNo:' for update (':Method:').'
ErrorMsg = 'Unable to read REACT_STATUS record ':ReactNo:' for update (':Method:').'
RETURN
END
@ -444,12 +444,14 @@ HandleLoadUnsign:
CassNo = Parms[COL2()+1,@RM]
RDSNo = Parms[COL2()+1,@RM]
OverrideUser = Parms[COL2()+1,@RM]
Extra = Parms[COL2()+1,@RM]
IF ReactNo = '' THEN ErrorMsg = 'Null parameter ReactNo passed to routine (':Method:').'
IF WONo = '' THEN ErrorMsg = 'Null parameter WONo passed to routine (':Method:').'
IF CassNo = '' THEN ErrorMsg = 'Null parameter CassNo passed to routine (':Method:').'
IF RDSNo = '' THEN ErrorMsg = 'Null parameter RDSNo passed to routine(':Method:').'
IF OverrideUser = '' THEN ErrorMsg = 'Null parameter OverrideUser passed to routine(':Method:').'
If Extra = '' then Extra = 0
CassID = WONo:'*':CassNo
@ -459,14 +461,13 @@ HandleLoadUnsign:
ErrorMsg = 'Unable to read REACT_STATUS record ':ReactNo:' for update (':Method:').'
RETURN
END
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', CassID)
LoadedRDS = ReactStatRec<REACT_STATUS_LOAD_RDS$>
Locate RDSNo in LoadedRDS using @VM setting vPos then
ReactStatRec<REACT_STATUS_LOAD_CASS_ID$> = Delete(ReactStatRec<REACT_STATUS_LOAD_CASS_ID$, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_DTM$> = Delete(ReactStatRec<REACT_STATUS_LOAD_DTM$, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_RDS$> = Delete(ReactStatRec<REACT_STATUS_LOAD_RDS$, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_RDS_DTM$> = Delete(ReactStatRec<REACT_STATUS_LOAD_RDS_DTM$, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_CASS_ID$> = Delete(ReactStatRec<REACT_STATUS_LOAD_CASS_ID$>, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_DTM$> = Delete(ReactStatRec<REACT_STATUS_LOAD_DTM$>, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_RDS$> = Delete(ReactStatRec<REACT_STATUS_LOAD_RDS$>, 0, vPos, 0)
ReactStatRec<REACT_STATUS_LOAD_RDS_DTM$> = Delete(ReactStatRec<REACT_STATUS_LOAD_RDS_DTM$>, 0, vPos, 0)
end
Database_Services('WriteDataRow', 'REACT_STATUS', ReactNo, ReactStatRec, True$, False$, True$)
@ -477,7 +478,11 @@ HandleLoadUnsign:
overrideLogTable = 'RDS':@VM:'REACTOR'
overrideLogKey = RDSNo:@VM:ReactNo
overrideLogUser = OverrideUser
overrideLogComment = 'UNSIGN-LOAD'
If Extra then
overrideLogComment = 'UNSIGN-LOAD-EXTRA'
end else
overrideLogComment = 'UNSIGN-LOAD'
end
overrideLogCategory = 'UNSIGN'
orKey = Override_Log_Services('Create', overrideLogTable, overrideLogKey, overrideLogUser, overrideLogComment, overrideLogCategory)
end
@ -488,18 +493,20 @@ Return
* * * * * * *
HandleUnloadUnsign:
* * * * * * *
ReactNo = Parms[1,@RM]
WONo = Parms[COL2()+1,@RM]
CassNo = Parms[COL2()+1,@RM]
RDSNo = Parms[COL2()+1,@RM]
OverrideUser = Parms[COL2()+1,@RM]
Extra = Parms[COL2()+1,@RM]; *This variable is used to determine whether or not this came from a regular unload signature or an unload
IF ReactNo = '' THEN ErrorMsg = 'Null parameter ReactNo passed to routine (':Method:').'
IF WONo = '' THEN ErrorMsg = 'Null parameter WONo passed to routine (':Method:').'
IF CassNo = '' THEN ErrorMsg = 'Null parameter CassNo passed to routine (':Method:').'
IF RDSNo = '' THEN ErrorMsg = 'Null parameter RDSNo passed to routine(':Method:').'
IF OverrideUser = '' THEN ErrorMsg = 'Null parameter OverrideUser passed to routine(':Method:').'
If Extra = '' then Extra = 0
CassID = WONo:'*':CassNo
@ -515,7 +522,6 @@ HandleUnloadUnsign:
// Get the original load event DTM to reload
OriginalLoadTime = Xlate('RDS', RDSNo, 'DTM_IN', 'X')
If OriginalLoadTime NE '' then
// Restore the loaded cassette information
PrevLoadedCassCnt = DCount(ReactStatRec<REACT_STATUS_LOAD_RDS$>, @VM)
ReactStatRec<REACT_STATUS_LOAD_RDS$, -1> = RDSNo