Compile function WO_MAT_Services(@Service, @Params) #pragma precomp SRP_PreCompiler Declare function Database_Services, Error_Services, SRP_Json Declare subroutine Error_Services, SRP_Json $insert LOGICAL GoToService Return Response or "" //----------------------------------------------------------------------------- // SERVICES //----------------------------------------------------------------------------- Service ConvertRecordToJSON(WOMatKey, Record, ItemURL) jsonRecord = '' IF WOMatKey NE '' then If Record EQ '' then Record = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey) If Error_Services('NoError') then @DICT = Database_Services('GetTableHandle', 'DICT.WO_MAT') @ID = WOMatKey @RECORD = Record If SRP_JSON(objJSON, 'New', 'Object') then If SRP_JSON(objWOMat, 'New', 'Object') then SRP_JSON(objWOMat, 'SetValue', 'KeyId', @ID) SRP_JSON(objWOMat, 'SetValue', 'WoNo', {WO_NO}) SRP_JSON(objWOMat, 'SetValue', 'CassNo', {CASS_NO}) SRP_JSON(objWOMat, 'SetValue', 'Ver', {REC_VER}) SRP_JSON(objWOMat, 'SetValue', 'ProdOrdNo', {PROD_ORD_NO}) SRP_JSON(objWOMat, 'SetValue', 'SapBatchNo', {SAP_BATCH_NO}) SRP_JSON(objWOMat, 'SetValue', 'SapTxDtm', OConv({SAP_TX_DTM}, 'DT')) SRP_JSON(objWOMat, 'SetValue', 'ReactorType', {REACTOR_TYPE}) SRP_JSON(objWOMat, 'SetValue', 'CustInfo', {CUST_INFO}) SRP_JSON(objWOMat, 'SetValue', 'LotNo', {LOT_NO}) SRP_JSON(objWOMat, 'SetValue', 'WaferQty', {WAFER_QTY}) SRP_JSON(objWOMat, 'SetValue', 'CustPartNo', {CUST_PART_NO}) SRP_JSON(objWOMat, 'SetValue', 'SubPartNo', {SUB_PART_NO}) SRP_JSON(objWOMat, 'SetValue', 'ProdVerNo', {PROD_VER_NO}) SRP_JSON(objWOMat, 'SetValue', 'ShipNo', {SHIP_NO}) SRP_JSON(objWOMat, 'SetValue', 'Hold', {HOLD}) SRP_JSON(objWOMat, 'SetValue', 'Makeup', {MAKEUP_BOX}) SRP_JSON(objWOMat, 'SetValue', 'HotLot', {HOT_LOT}) SRP_JSON(objWOMat, 'SetValue', 'Cancelled', {CANCELLED}) SRP_JSON(objWOMat, 'SetValue', 'Void', {VOID}) SRP_JSON(objWOMat, 'SetValue', 'RetReject', {RET_REJECTS}) SRP_JSON(objWOMat, 'SetValue', 'CassShipQty', {CASS_SHIP_QTY}) SRP_JSON(objWOMat, 'SetValue', 'GrQty', {SAP_GR_QTY}) SRP_JSON(objWOMat, 'SetValue', 'SapYield', {SAP_YIELD}) SRP_JSON(objWOMat, 'SetValue', 'SapMuQty', {SAP_MU_QTY}) SRP_JSON(objWOMat, 'SetValue', 'SapRawScrapQty', {SAP_RAW_SCRAP_QTY}) SRP_JSON(objWOMat, 'SetValue', 'SapScrapQty', {SAP_CONFIRM_SCRAP}) If SRP_JSON(objInvActions, 'New', 'Array') then InventoryActions = {INV_DTM} If InventoryActions NE '' then for each InvAction in InventoryActions using @VM setting vPos //Add in each indv. inventory action InvTimestamp = {INV_DTM}<1, vPos> InvWhCd = {INV_WH}<1, vPos> InvWarehouse = {INV_WH_DESC}<1, vPos> InvLocCd = {INV_LOCATION}<1, vPos> InvLocation = {INV_LOC_DESC}<1, vPos> InvAction = {INV_ACTION}<1, vPos> InvUserId = {INV_USER}<1, vPos> InvTag = {INV_TAG}<1, vPos> InvToolId = {INV_TOOL_ID}<1, vPos> If SRP_JSON(objInvAction, 'New', 'Object') then SRP_JSON(objInvAction, 'SetValue', 'InvTimestamp', Oconv(InvTimeStamp, 'DT')) SRP_JSON(objInvAction, 'SetValue', 'InvWhCd', InvWhCd) SRP_JSON(objInvAction, 'SetValue', 'InvWarehouse', InvWarehouse) SRP_JSON(objInvAction, 'SetValue', 'InvLocCd', InvLocCd) SRP_JSON(objInvAction, 'SetValue', 'InvLocation', InvLocation) SRP_JSON(objInvAction, 'SetValue', 'InvAction', InvAction) SRP_JSON(objInvAction, 'SetValue', 'InvUserId', InvUserId) SRP_JSON(objInvAction, 'SetValue', 'InvTag', InvTag) SRP_JSON(objInvAction, 'SetValue', 'InvToolId', InvToolId) SRP_JSON(objInvActions, 'Add', objInvAction) SRP_JSON(objInvAction, 'Release') end Next InvAction end else SRP_JSON(objWOMat, 'SetValue', 'InventoryActions', '') end SRP_JSON(objWOMat, 'Set', 'InventoryActions', objInvActions) SRP_JSON(objInvActions, 'Release') end If SRP_JSON(objSlots, 'New', 'Array') then SlotCount = 25 for Slot = 1 to SlotCount SlotNo = Slot WaferId = {SLOT_WAFER_ID}<1, Slot> NcrId = {SLOT_NCR}<1, Slot> MetNo = {SLOT_MET_NO}<1, Slot> MovedToSlot = {SLOT_MOVED_TO}<1, Slot> MuWaferId = {SLOT_REP_WAFER_ID}<1, Slot> MovedFromSlot = {SLOT_MOVED_FROM}<1, Slot> If SRP_JSON(objSlot, 'New', 'Object') then SRP_JSON(objSlot, 'SetValue', 'SlotNo', SlotNo) SRP_JSON(objSlot, 'SetValue', 'WaferId', WaferId) SRP_JSON(objSlot, 'SetValue', 'NcrId', NcrId) SRP_JSON(objSlot, 'SetValue', 'MetNo', MetNo) SRP_JSON(objSlot, 'SetValue', 'MovedToSlot', MovedToSlot) SRP_JSON(objSlot, 'SetValue', 'MuWaferId', MuWaferId) SRP_JSON(objSlot, 'SetValue', 'MovedFromSlot', MovedFromSlot) SRP_JSON(objSlots, 'Add', objSlot) SRP_JSON(objSlot, 'Release') end Next Slot SRP_JSON(objWOMat, 'Set', 'Slots', objSlots) SRP_JSON(objSlots, 'Release') end If SRP_JSON(objNCRs, 'New', 'Array') then NCRs = {NCR_KEYS} if DCount(NCRs, @VM) GT 0 then for each NCRKey in NCRs setting nPos NcrId = NCRKey NcrStatus = {NCR_STATUS}<1, nPos> NcrQty = {NCR_REJ_CNT}<1, nPos> NcrResp = {NCR_LOSS_BY}<1, nPos> NcrStage = {NCR_LOSS_STAGE}<1, nPos> NcrLossDesc = {NCR_LOSS_DESC}<1, nPos> NcrLossComment = {NCR_LOSS_COMMENT}<1, nPos> If SRP_JSON(objNCR, 'New', 'Object') then SRP_JSON(objNCR, 'SetValue', 'NcrId', NcrId) SRP_JSON(objNCR, 'SetValue', 'NcrStatus', NcrStatus) SRP_JSON(objNCR, 'SetValue', 'NcrQty', NcrQty) SRP_JSON(objNCR, 'SetValue', 'NcrResp', NcrResp) SRP_JSON(objNCR, 'SetValue', 'NcrStage', NcrStage) SRP_JSON(objNCR, 'SetValue', 'NcrLossDesc', NcrLossDesc) SRP_JSON(objNCR, 'SetValue', 'NcrLossComment', NcrLossComment) SRP_JSON(objNCRs, 'Add', objNCR) SRP_JSON(objNCR, 'Release') end Next NCRKey SRP_JSON(objWOMat, 'Set', 'NCRs', objNCRs) SRP_JSON(objNCRs, 'Release') end else SRP_JSON(objWOMat, 'SetValue', 'NCRs', '') end If SRP_JSON(objHolds, 'New', 'Array') then HoldDtms = {HOLD_START_DTM} if DCount(HoldDtms, @VM) GT 0 then for each HoldDtm in HoldDtms setting hPos OnHoldDtm = OConv(HoldDtm, 'DT') HoldUser = {HOLD_START_USER}<1, hPos> OnHoldReason = {HOLD_START_REASON}<1, hPos> OffHoldDtm = {HOLD_STOP_DTM}<1, hPos> OffHoldUser = {HOLD_STOP_USER}<1, hPos> OffHoldReason = {HOLD_STOP_REASON}<1, hPos> HoldEntity = {HOLD_ENTITY}<1, hPos> HoldEntityId = {HOLD_ENTITY_ID}<1, hPos> If SRP_JSON(objHold, 'New', 'Object') then SRP_JSON(objHold, 'SetValue', 'OnHoldDtm', OnHoldDtm) SRP_JSON(objHold, 'SetValue', 'HoldUser', HoldUser) SRP_JSON(objHold, 'SetValue', 'OnHoldReason', OnHoldReason) SRP_JSON(objHold, 'SetValue', 'OffHoldDtm', OffHoldDtm) SRP_JSON(objHold, 'SetValue', 'OffHoldUser', OffHoldUser) SRP_JSON(objHold, 'SetValue', 'OffHoldReason', OffHoldReason) SRP_JSON(objHold, 'SetValue', 'HoldEntity', HoldEntity) SRP_JSON(objHold, 'SetValue', 'HoldEntityId', HoldEntityId) SRP_JSON(objHolds, 'Add', objHold) SRP_JSON(objHold, 'Release') end Next HoldDtm SRP_JSON(objWOMat, 'Set', 'Holds', objHolds) SRP_JSON(objHolds, 'Release') end else SRP_JSON(objWOMat, 'SetValue', 'Holds', '') end end SRP_JSON(objJSON, 'Set', 'WO_Mat', objWOMat) SRP_JSON(objWOMat, 'Release') end end If itemURL NE '' then // The itemURL was passed in so add HAL+JSON properties. // Create the _links property and then all link objects needed for this resource. If SRP_JSON(objLinks, 'New', 'Object') then // Create a self link. If SRP_JSON(objLink, 'New', 'Object') then SRP_JSON(objLink, 'SetValue', 'href', ItemURL, 'String') SRP_JSON(objLink, 'SetValue', 'title', 'Self', 'String') SRP_JSON(objLinks, 'Set', 'self', objLink) SRP_JSON(objLink, 'Release') end SRP_JSON(objJSON, 'Set', '_links', objLinks) SRP_JSON(objLinks, 'Release') end // Create the _class property for this resource. SRP_JSON(objJSON, 'SetValue', '_class', 'resource') end jsonRecord = SRP_JSON(objJSON, 'Stringify', 'Styled') SRP_JSON(objJSON, 'Release') end else Error_Services('Add', 'Unable to create JSON representation in the ' : Service : ' service.') end end end else Error_Services('Add', 'KeyID argument was missing in the ' : Service : ' service.') end Response = jsonRecord End Service