updated WRITE_PRE action to not use GetStackTrace and to notify FI of field name being cleared
This commit is contained in:
Infineon\StieberD
@ -46,6 +46,7 @@ Function WO_MAT_Actions(Action, CalcColName, FSList, Handle, Name, FMC, Record,
|
||||
|
||||
$insert APP_INSERTS
|
||||
$insert FILE.SYSTEM.EQUATES
|
||||
$insert DICT_EQUATES
|
||||
$insert ACTION_SETUP
|
||||
$insert WO_MAT_EQUATES
|
||||
$insert WO_LOG_EQUATES
|
||||
@ -267,51 +268,23 @@ return
|
||||
WRITE_RECORD_PRE:
|
||||
|
||||
WOMatKeyID = Name
|
||||
OrigRDSNo = OrigRecord<WO_MAT_RDS_NO$>
|
||||
NewRDSNo = Record<WO_MAT_RDS_NO$>
|
||||
OrigLotNo = OrigRecord<WO_MAT_LOT_NO$>
|
||||
NewLotNo = Record<WO_MAT_LOT_NO$>
|
||||
OrigWfrQty = OrigRecord<WO_MAT_WAFER_QTY$>
|
||||
NewWfrQty = Record<WO_MAT_WAFER_QTY$>
|
||||
OrigCustPartNo = OrigRecord<WO_MAT_CUST_PART_NO$>
|
||||
NewCustPartNo = Record<WO_MAT_CUST_PART_NO$>
|
||||
OrigSubPartNo = OrigRecord<WO_MAT_SUB_PART_NO$>
|
||||
NewSubPartNo = Record<WO_MAT_SUB_PART_NO$>
|
||||
OrigInvActions = OrigRecord<WO_MAT_INV_ACTION$>
|
||||
OrigNumActions = DCount(OrigInvActions, @VM)
|
||||
NewInvActions = Record<WO_MAT_INV_ACTION$>
|
||||
NewNumActions = DCount(NewInvActions, @VM)
|
||||
OrigSlotNos = OrigRecord<WO_MAT_SLOT_NO$>
|
||||
OrigNumSlotNos = DCount(OrigSlotNos, @VM)
|
||||
NewSlotNos = Record<WO_MAT_SLOT_NO$>
|
||||
NewNumSlotNos = DCount(NewSlotNos, @VM)
|
||||
OrigRxDtm = OrigRecord<WO_MAT_RX_DTM$>
|
||||
NewRxDtm = Record<WO_MAT_RX_DTM$>
|
||||
OrigRxBy = OrigRecord<WO_MAT_RX_BY$>
|
||||
NewRxBy = Record<WO_MAT_RX_BY$>
|
||||
OrigRelDtm = OrigRecord<WO_MAT_REL_DTM$>
|
||||
NewRelDtm = Record<WO_MAT_REL_DTM$>
|
||||
OrigRelBy = OrigRecord<WO_MAT_REL_BY$>
|
||||
NewRelBy = Record<WO_MAT_REL_BY$>
|
||||
OrigSubVendCd = OrigRecord<WO_MAT_SUB_VEND_CD$>
|
||||
NewSubVendCd = Record<WO_MAT_SUB_VEND_CD$>
|
||||
OrigCassShipQty = OrigRecord<WO_MAT_CASS_SHIP_QTY$>
|
||||
NewCassShipQty = Record<WO_MAT_CASS_SHIP_QTY$>
|
||||
OrigShipShort = OrigRecord<WO_MAT_SHIP_SHORT$>
|
||||
NewShipShort = Record<WO_MAT_SHIP_SHORT$>
|
||||
OrigMuWaferFlag = OrigRecord<WO_MAT_MU_WAFER_FLAG$>
|
||||
NewMuWaferFlag = Record<WO_MAT_MU_WAFER_FLAG$>
|
||||
|
||||
If ( ( (OrigRDSNo NE '') and (NewRDSNo EQ '') ) or ( (OrigLotNo NE '') and (NewLotNo EQ '') ) |
|
||||
or ( (OrigWfrQty NE '') and (NewWfrQty EQ '') ) or ( (OrigCustPartNo NE '') and (NewCustPartNo EQ '') ) |
|
||||
or ( (OrigSubPartNo NE '') and (NewSubPartNo EQ '') ) or (OrigNumActions GT NewNumActions) |
|
||||
or (OrigNumSlotNos GT NewNumSlotNos) or ( (OrigRxDtm NE '') and (NewRxDtm EQ '') ) |
|
||||
or ( (OrigRxBy NE '') and (NewRxBy EQ '') ) or ( (OrigRelDtm NE '') and (NewRelDtm EQ '') ) |
|
||||
or ( (OrigRelBy NE '') and (NewRelBy EQ '') ) or ( (OrigSubVendCd NE '') and (NewSubVendCd EQ '') ) |
|
||||
or ( (OrigCassShipQty NE '') and (NewCassShipQty EQ '') ) or ( (OrigShipShort NE '') and (NewShipShort EQ '') ) |
|
||||
or ( (OrigMuWaferFlag NE '') and (NewMuWaferFlag EQ '') ) ) then
|
||||
CriticalFields = WO_MAT_RDS_NO$:@VM:WO_MAT_LOT_NO$:@VM:WO_MAT_WAFER_QTY$:@VM:WO_MAT_CUST_PART_NO$:@VM
|
||||
CriticalFields := WO_MAT_SUB_PART_NO$:@VM:WO_MAT_INV_ACTION$:@VM:WO_MAT_SLOT_NO$:@VM:WO_MAT_RX_DTM$:@VM
|
||||
CriticalFields := WO_MAT_RX_BY$:@VM:WO_MAT_REL_DTM$:@VM:WO_MAT_REL_BY$:@VM:WO_MAT_SUB_VEND_CD$:@VM
|
||||
CriticalFields := WO_MAT_CASS_SHIP_QTY$:@VM:WO_MAT_SHIP_SHORT$:@VM:WO_MAT_MU_WAFER_FLAG$
|
||||
|
||||
Stack = Error_Services('GetStackTrace')
|
||||
Continue = True$
|
||||
For each CriticalField in CriticalFields using @VM setting vPos
|
||||
|
||||
If ( ( (OrigRecord<CriticalField> NE '') and (Record<CriticalField> EQ '') ) or ( DCount(OrigRecord<CriticalField, @VM) GT DCount(Record<CriticalField>, @VM) ) ) then
|
||||
WOMatFieldNos = Xlate('DICT.WO_MAT', '%FIELDS%', DICT_PART$, 'X')
|
||||
WOMatFieldNames = Xlate('DICT.WO_MAT', '%FIELDS%', DICT_DISPLAY$, 'X')
|
||||
Locate CriticalField in WOMatFieldNos using @VM setting FieldNo then
|
||||
CriticalFieldName = WOMatFieldNames<0, FieldNo>
|
||||
end else
|
||||
CriticalFieldName = 'Error determining field name'
|
||||
end
|
||||
Recipients = ''
|
||||
SentFrom = 'SYSTEM'
|
||||
Subject = 'WO_MAT_ACTIONS WRITE_PRE Blocked'
|
||||
@ -319,8 +292,10 @@ WRITE_RECORD_PRE:
|
||||
Message<2> = 'Computer: ':@Station
|
||||
Message<3> = 'User: ':@User4
|
||||
Message<4> = 'WO_MAT key: ':Name
|
||||
Message<5> = 'Message: Write operation failed due to readonly field being cleared.'
|
||||
Message<6> = Stack
|
||||
NoteMessage = 'Message: Write operation failed due to readonly field ':CriticalField
|
||||
NoteMessage := ' (':CriticalFieldName:') being cleared.'
|
||||
Message<5> = NoteMessage
|
||||
Message<6> = 'Call Stack:':CRLF$:RetStack()
|
||||
Swap @FM with \0D0A\ in Message
|
||||
Swap @VM with ',' in Message
|
||||
AttachWindow = 'WO_MAT'
|
||||
@ -334,8 +309,12 @@ WRITE_RECORD_PRE:
|
||||
Status = 0
|
||||
Record = ''
|
||||
ActionFlow = ACTION_STOP$
|
||||
Continue = False$
|
||||
end
|
||||
Until (Continue EQ False$)
|
||||
Next CriticalField
|
||||
|
||||
end else
|
||||
If Continue then
|
||||
|
||||
WaferQty = Record<WO_MAT_WAFER_QTY$>
|
||||
If ( (WaferQty LT 0) or (WaferQty GT 25) ) then
|
||||
@ -628,10 +607,8 @@ WRITE_RECORD_PRE:
|
||||
Null
|
||||
End Case
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
|
||||
return
|
||||
|
||||
|
||||
@ -952,4 +929,3 @@ Restore_System_Variables:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user