Added in missing Lot Operation Id to event records
This commit is contained in:
committed by
Ouellette Jonathan (CSC FI SPS MESLEO)
parent
667831a003
commit
14331fcf49
@ -89,6 +89,7 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
If RowExists('LOT', LotId) then
|
If RowExists('LOT', LotId) then
|
||||||
|
CurrLotOperation = Lot_Services('GetLotCurrOperationId', LotId)
|
||||||
NewEventId = RTI_CreateGUID()
|
NewEventId = RTI_CreateGUID()
|
||||||
If NewEventId NE '' then
|
If NewEventId NE '' then
|
||||||
NewEventSequence = Lot_Event_Services('GetLotEventNextSequence', LotId)
|
NewEventSequence = Lot_Event_Services('GetLotEventNextSequence', LotId)
|
||||||
@ -98,6 +99,7 @@ Service CreateLotEvent(LotId, EventDateTime, EventType=EVENT_TYPES, EventNote, E
|
|||||||
NewEventRec<LOT_EVENT_LOT_EVENT_TYPE$> = EventType
|
NewEventRec<LOT_EVENT_LOT_EVENT_TYPE$> = EventType
|
||||||
NewEventRec<LOT_EVENT_EVENT_DATETIME$> = EventDatetime
|
NewEventRec<LOT_EVENT_EVENT_DATETIME$> = EventDatetime
|
||||||
NewEventRec<LOT_EVENT_EVENT_NOTE$> = EventNote
|
NewEventRec<LOT_EVENT_EVENT_NOTE$> = EventNote
|
||||||
|
NewEventRec<LOT_EVENT_EVENT_OPERATION_ID$> = CurrLotOperation
|
||||||
NewEventRec<LOT_EVENT_EQUIPMENT_ID$> = EventEquipmentId
|
NewEventRec<LOT_EVENT_EQUIPMENT_ID$> = EventEquipmentId
|
||||||
NewEventRec<LOT_EVENT_EVENT_OPERATOR_ID$> = OperatorId
|
NewEventRec<LOT_EVENT_EVENT_OPERATOR_ID$> = OperatorId
|
||||||
NewEventRec<LOT_EVENT_SEQUENCE$> = NewEventSequence
|
NewEventRec<LOT_EVENT_SEQUENCE$> = NewEventSequence
|
||||||
@ -233,3 +235,4 @@ return
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user