pre cutover push
This commit is contained in:
Infineon\StieberD
@ -133,55 +133,55 @@ return
|
||||
|
||||
|
||||
WFR_STATUS:
|
||||
WMOKey = @ID
|
||||
WfrStatus = ''
|
||||
WMOSlots = Xlate('WM_OUT', WMOKey, 'RDS', 'X')
|
||||
WMOZoneProfile = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')
|
||||
WMORDSTestKeys = XLATE('WM_OUT', WMOKey, 'CASS_RDS_MET_KEYS', 'X')
|
||||
for each RDSNo in WMOSlots using @VM setting sPos
|
||||
|
||||
Result = ''
|
||||
IF RDSNo NE '' then
|
||||
ReactRunRec = Database_Services('ReadDataRow', 'REACT_RUN', RDSNo)
|
||||
SlotZone = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')<1, sPos>
|
||||
//Get the RDS_Test for this slot.
|
||||
//Find the right RDS Test Key
|
||||
ThisSlotRDSTestKeys = ''
|
||||
for each RDSTestKey in WMORDSTestKeys using @VM
|
||||
RDSTestRec = Database_Services('ReadDataRow', 'RDS_TEST', RDSTestKey)
|
||||
If RDSTestRec<RDS_TEST_ZONE$> EQ SlotZone AND RDSTestRec<RDS_TEST_RDS_NO$> EQ RDSNo then
|
||||
ThisSlotRDSTestKeys<1, -1> = RDSTestKey
|
||||
end
|
||||
Next RDSTestKey
|
||||
IF ThisSlotRDSTestKeys NE '' then
|
||||
WMOKey = @ID
|
||||
WfrStatus = ''
|
||||
WMOSlots = Xlate('WM_OUT', WMOKey, 'RDS', 'X')
|
||||
WMOZoneProfile = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')
|
||||
WMORDSTestKeys = XLATE('WM_OUT', WMOKey, 'CASS_RDS_MET_KEYS', 'X')
|
||||
for each RDSNo in WMOSlots using @VM setting sPos
|
||||
|
||||
Result = ''
|
||||
IF RDSNo NE '' then
|
||||
ReactRunRec = Database_Services('ReadDataRow', 'REACT_RUN', RDSNo)
|
||||
SlotZone = Xlate('WM_OUT', WMOKey, WM_OUT_ZONE$, 'X')<1, sPos>
|
||||
//Get the RDS_Test for this slot.
|
||||
//Find the right RDS Test Key
|
||||
ThisSlotRDSTestKeys = ''
|
||||
for each RDSTestKey in WMORDSTestKeys using @VM
|
||||
RDSTestRec = Database_Services('ReadDataRow', 'RDS_TEST', RDSTestKey)
|
||||
If RDSTestRec<RDS_TEST_ZONE$> EQ SlotZone AND RDSTestRec<RDS_TEST_RDS_NO$> EQ RDSNo then
|
||||
ThisSlotRDSTestKeys<1, -1> = RDSTestKey
|
||||
end
|
||||
Next RDSTestKey
|
||||
IF ThisSlotRDSTestKeys NE '' then
|
||||
RDSTestDataEntered = XLATE('RDS_TEST', ThisSlotRDSTestKeys, 'MET_ENTERED', 'X')
|
||||
If RDSTestDataEntered NE '' then
|
||||
Locate False$ in RDSTestDataEntered using @VM setting iPos then Result = 'ULMET' else
|
||||
MetOutOfSpec = Sum(Xlate('RDS_TEST', ThisSlotRDSTestKeys, 'OUT_OF_SPEC', 'X'))
|
||||
If MetOutOfSpec then
|
||||
//Check for an NCR
|
||||
SlotNcr = Xlate('WM_OUT', WMOKey, 'WM_OUT_SLOT_NCR', 'X')<1, sPos>
|
||||
If SlotNcr NE '' then
|
||||
MetOutOfSpec = False$
|
||||
end
|
||||
end
|
||||
If MetOutOfSpec then
|
||||
Result = 'SPEC'
|
||||
end else
|
||||
Result = 'ULOAD'
|
||||
MetOutOfSpec = Sum(Xlate('RDS_TEST', ThisSlotRDSTestKeys, 'OUT_OF_SPEC', 'X'))
|
||||
If MetOutOfSpec then
|
||||
//Check for an NCR
|
||||
SlotNcr = Xlate('WM_OUT', WMOKey, 'WM_OUT_SLOT_NCR', 'X')<1, sPos>
|
||||
If SlotNcr NE '' then
|
||||
MetOutOfSpec = False$
|
||||
end
|
||||
end
|
||||
end else
|
||||
Result = 'ULMET'
|
||||
end
|
||||
end else
|
||||
Result = 'ULOAD'
|
||||
end
|
||||
end
|
||||
WfrStatus<1, sPos> = Result
|
||||
Next RDSNo
|
||||
ActionFlow = WfrStatus
|
||||
Return
|
||||
If MetOutOfSpec then
|
||||
Result = 'SPEC'
|
||||
end else
|
||||
Result = 'ULOAD'
|
||||
end
|
||||
end
|
||||
end else
|
||||
Result = 'ULMET'
|
||||
end
|
||||
end else
|
||||
Result = 'ULOAD'
|
||||
end
|
||||
end
|
||||
WfrStatus<1, sPos> = Result
|
||||
Next RDSNo
|
||||
ActionFlow = WfrStatus
|
||||
Return
|
||||
|
||||
// ----- MFS calls -----------------------------------------------------------------------------------------------------
|
||||
|
||||
@ -245,7 +245,7 @@ WRITE_RECORD_PRE:
|
||||
Database_Services('WriteDataRow', 'WO_MAT', {WO_MAT_KEY}, WOMatRec)
|
||||
end
|
||||
|
||||
WMOSlotNCRs = {SLOT_NCR}
|
||||
WMOSlotNCRs = {SLOT_NCR}
|
||||
// WO_MAT column pads @VMs while WM_OUT column does not, so trim trailing @VMs from WO_MAT column.
|
||||
WOMatSlotNCRs = Xlate('WO_MAT', {WO_MAT_KEY}, 'EPOS_NCR', 'X')
|
||||
Done = False$
|
||||
@ -271,18 +271,6 @@ WRITE_RECORD:
|
||||
WMOKey = Name
|
||||
CassNo = Field(WMOKey, '*', 3)
|
||||
|
||||
* If OrigRecord NE Record then
|
||||
* Work_Order_Services('PostWOStepUpdateRequest', WONo)
|
||||
* Material_Services('PostWMOutUpdateRequest', WMOKey)
|
||||
* Material_Services('PostWOMatUpdateRequest', {WO_MAT_KEY})
|
||||
* end
|
||||
|
||||
* If OrigRecord NE Record then
|
||||
* Work_Order_Services('UpdateWOStepStatus', WONo)
|
||||
* Material_Services('UpdateWMOutStatus', WMOKey)
|
||||
* Material_Services('UpdateWOMatStatus', {WO_MAT_KEY})
|
||||
* end
|
||||
|
||||
// Check for RDS No changes and update WO_LOG ship qty if needed.
|
||||
OrigRDSNos = OrigRecord<WM_OUT_RDS$>
|
||||
NewRDSNos = Record<WM_OUT_RDS$>
|
||||
@ -471,24 +459,23 @@ return
|
||||
DELETE_RECORD_PRE:
|
||||
|
||||
// Log which user and computer station attempted to delete the record
|
||||
* LogData = ''
|
||||
* LogData<1> = LoggingDTM
|
||||
* LogData<2> = Name
|
||||
* LogData<3> = @User4
|
||||
* LogData<4> = @Username
|
||||
* Logging_Services('AppendLog', objDeleteLog, LogData, @RM, @FM)
|
||||
*
|
||||
* // Send an LSL message to FI admins to alert them
|
||||
* Recipients = Xlate('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
|
||||
* SentFrom = 'SYSTEM'
|
||||
* Subject = 'WM_OUT Delete Attempt'
|
||||
* Message = 'An attempt to delete WM_OUT record ':Name:' was made by ':@User4:'.'
|
||||
* AttachWindow = ''
|
||||
* AttachKey = ''
|
||||
* SendToGroup = ''
|
||||
*
|
||||
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
* obj_Notes('Create',Parms)
|
||||
* LogData = ''
|
||||
* LogData<1> = LoggingDTM
|
||||
* LogData<2> = Name
|
||||
* LogData<3> = @User4
|
||||
* Logging_Services('AppendLog', objDeleteLog, LogData, @RM, @FM)
|
||||
*
|
||||
* // Send an LSL message to FI admins to alert them
|
||||
* Recipients = Xlate('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X')
|
||||
* SentFrom = 'SYSTEM'
|
||||
* Subject = 'WM_OUT Delete Attempt'
|
||||
* Message = 'An attempt to delete WM_OUT record ':Name:' was made by ':@User4:'.'
|
||||
* AttachWindow = ''
|
||||
* AttachKey = ''
|
||||
* SendToGroup = ''
|
||||
*
|
||||
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
* obj_Notes('Create',Parms)
|
||||
|
||||
// Stop the system from deleting the record
|
||||
* ActionFlow = ACTION_STOP$
|
||||
|
||||
Reference in New Issue
Block a user