phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added properties in Work_Order_Services('ConvertRecordToJSON')

Browse Source
This commit is contained in:
Infineon\StieberD
2025-08-27 15:52:09 -07:00
parent 5d1b1f254e
commit 47405863d7
2 changed files with 54 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
LSL2/STPROC/WORK_ORDER_SERVICES.txt
View File

@ -61,7 +61,7 @@ Declare subroutine obj_WO_Mat, obj_Post_Log
Declare function SRP_Array, Work_Order_Services, Memory_Services, Database_Services, SRP_Sort_Array, SRP_JSON Declare function SRP_Array, Work_Order_Services, Memory_Services, Database_Services, SRP_Sort_Array, SRP_JSON
Declare function Company_Services, obj_Prod_Spec, Schedule_Services, obj_WO_Log, obj_WO_Step, Memberof, Datetime Declare function Company_Services, obj_Prod_Spec, Schedule_Services, obj_WO_Log, obj_WO_Step, Memberof, Datetime
Declare function Environment_Services, Logging_Services, Hold_Services, Signature_Services, Lot_Services Declare function Environment_Services, Logging_Services, Hold_Services, Signature_Services, Lot_Services
Declare function SRP_Datetime, RTI_CreateGUID, RDS_Services, UCase Declare function SRP_Datetime, RTI_CreateGUID, RDS_Services, UCase, Date_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG' LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\WO_LOG'
LogDate = Oconv(Date(), 'D4/') LogDate = Oconv(Date(), 'D4/')
@ -1155,8 +1155,10 @@ Service UpdateReceivedQty(WONo)
If WONo NE '' then If WONo NE '' then
If RowExists('WO_LOG', WONo) then If RowExists('WO_LOG', WONo) then
WORec = Database_Services('ReadDataRow', 'WO_LOG', WONo) WORec = Database_Services('ReadDataRow', 'WO_LOG', WONo)
If Error_Services('NoError') then If Error_Services('NoError') then
RXQty = obj_WO_Log('RxQty', WONo:@RM:WORec) WOQty = WORec<WO_LOG_WO_QTY$>
RXQty = obj_WO_Log('RxQty', WONo:@RM:WORec)
OpenQty = WOQty - RXQty
Open 'WO_LOG' to hTable then Open 'WO_LOG' to hTable then
ReadV OrigRXQty from hTable, WONo, WO_LOG_RX_QTY_STATIC$ then ReadV OrigRXQty from hTable, WONo, WO_LOG_RX_QTY_STATIC$ then
If OrigRXQty NE RXQty then If OrigRXQty NE RXQty then
@ -1169,6 +1171,19 @@ Service UpdateReceivedQty(WONo)
end else end else
ErrorMsg = 'Error in ':Service:' service. Error reading RX_QTY_STATIC column from WO_LOG ':WONo:'.' ErrorMsg = 'Error in ':Service:' service. Error reading RX_QTY_STATIC column from WO_LOG ':WONo:'.'
end end
If ErrorMsg EQ '' then
ReadV OrigOpenQty from hTable, WONo, WO_LOG_OPEN_QTY_STATIC$ then
If OrigOpenQty NE OpenQty then
WriteV OpenQty on hTable, WONo, WO_LOG_OPEN_QTY_STATIC$ else
ErrorMsg = 'Error in ':Service:' service. Failed to write received quantity ':RXQty
ErrorMsg := ' to the OPEN_QTY_STATIC field of WO_LOG record ':WONo:'.'
ErrorMsg := '@FILE_ERROR: ':@FILE_ERROR
end
end
end else
ErrorMsg = 'Error in ':Service:' service. Error reading OPEN_QTY_STATIC column from WO_LOG ':WONo:'.'
end
end
end else end else
ErrorMsg = 'Error in ':Service:' service. Failed to open the WO_LOG table.' ErrorMsg = 'Error in ':Service:' service. Failed to open the WO_LOG table.'
end end
@ -1344,31 +1359,48 @@ Service ConvertRecordToJSON(WONo, Record, ItemURL)
If SRP_JSON(objWOLog, 'New', 'Object') then If SRP_JSON(objWOLog, 'New', 'Object') then
SRP_JSON(objWOLog, 'SetValue', 'KeyId', @ID) SRP_JSON(objWOLog, 'SetValue', 'KeyId', @ID)
SRP_JSON(objWOLog, 'SetValue', 'ProdOrdNo', {PROD_ORD_NO}) SRP_JSON(objWOLog, 'SetValue', 'ProdOrdNo', {PROD_ORD_NO})
SRP_JSON(objWOLog, 'SetValue', 'PSN', {PROD_SPEC_ID}) SRP_JSON(objWOLog, 'SetValue', 'PSN', {PS_NO})
SRP_JSON(objWOLog, 'SetValue', 'EpiPartNo', {EPI_PART_NO}) SRP_JSON(objWOLog, 'SetValue', 'EpiPartNo', {EPI_PART_NO})
SRP_JSON(objWOLog, 'SetValue', 'HOT_FLAG', {HOT_FLAG}) SRP_JSON(objWOLog, 'SetValue', 'HotFlag', {HOT_FLAG})
//Create a list of cassettes SRP_JSON(objWOLog, 'SetValue', 'WoQty', {WO_QTY})
SRP_JSON(objWOLog, 'SetValue', 'RxQty', {RX_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'RelQty', {REL_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'UnRelQty', {UNREL_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'ShipQty', {SHIP_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'ScrapQty', {SCRAP_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'OpenQty', {OPEN_QTY_STATIC})
SRP_JSON(objWOLog, 'SetValue', 'CustNo', {CUST_NO})
SRP_JSON(objWOLog, 'SetValue', 'Customer', {CUST_NAME})
// Create a list of cassettes
CassIDs = {WO_MAT_KEY} CassIDs = {WO_MAT_KEY}
objChildCassettes = '' objChildCassettes = ''
If SRP_JSON(objChildCassettes, 'New', 'Array') then If SRP_JSON(objChildCassettes, 'New', 'Array') then
If CassIDs NE '' then If CassIDs NE '' then
for each Cass in CassIDs using @VM setting vPos for each Cass in CassIDs using @VM setting vPos
SAPBatchNo = XLATE('WO_MAT', Cass, WO_MAT_SAP_BATCH_NO$, 'X') WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', Cass)
SAPTXDtm = XLATE('WO_MAT', Cass, WO_MAT_SAP_TX_DTM$, 'X') If Error_Services('NoError') then
RDSNo = XLATE('WO_MAT', Cass, WO_MAT_RDS_NO$, 'X') // Add in each indv. cassette object
ShipNo = XLATE('WO_MAT', Cass, WO_MAT_SHIP_NO$, 'X') objChildCassette = ''
//Add in each indv. cassette object If SRP_JSON(objChildCassette, 'New', 'Object') then
objChildCassette = '' SRP_JSON(objChildCassette, 'SetValue', 'KeyId', Cass)
If SRP_JSON(objChildCassette, 'New', 'Object') then SRP_JSON(objChildCassette, 'SetValue', 'CassNo', Field(Cass, '*', 2, 1))
SRP_JSON(objChildCassette, 'SetValue', 'KeyId', Cass) SRP_JSON(objChildCassette, 'SetValue', 'SAPBatchNo', WOMatRec<WO_MAT_SAP_BATCH_NO$>)
SRP_JSON(objChildCassette, 'SetValue', 'SAPBatchNo', SAPBatchNo) SRP_JSON(objChildCassette, 'SetValue', 'SAPTXDtm', Date_Services('ConvertDateTimeToISO8601', WOMatRec<WO_MAT_SAP_TX_DTM$>))
SRP_JSON(objChildCassette, 'SetValue', 'SAPTXDtm', OCONV(SAPTXDtm, 'DT')) SRP_JSON(objChildCassette, 'SetValue', 'RDSNo', WOMatRec<WO_MAT_RDS_NO$>)
SRP_JSON(objChildCassette, 'SetValue', 'RDSNo', RDSNo) SRP_JSON(objChildCassette, 'SetValue', 'ShipNo', WOMatRec<WO_MAT_SHIP_NO$>)
SRP_JSON(objChildCassette, 'SetValue', 'ShipNo', ShipNo) SRP_JSON(objChildCassette, 'SetValue', 'LotNo', WOMatRec<WO_MAT_LOT_NO$>)
SRP_JSON(objChildCassettes, 'Add', objChildCassette) SRP_JSON(objChildCassette, 'SetValue', 'Qty', WOMatRec<WO_MAT_WAFER_QTY$>)
SRP_JSON(objChildCassette, 'Release') SRP_JSON(objChildCassette, 'SetValue', 'CustPartNo', WOMatRec<WO_MAT_CUST_PART_NO$>)
SRP_JSON(objChildCassette, 'SetValue', 'SubPartNo', WOMatRec<WO_MAT_SUB_PART_NO$>)
SRP_JSON(objChildCassette, 'SetValue', 'VendorCd', WOMatRec<WO_MAT_SUB_VEND_CD$>)
SRP_JSON(objChildCassette, 'SetValue', 'RecDtm', Date_Services('ConvertDateTimeToISO8601', WOMatRec<WO_MAT_RX_DTM$>))
SRP_JSON(objChildCassette, 'SetValue', 'RelDtm', Date_Services('ConvertDateTimeToISO8601', WOMatRec<WO_MAT_REL_DTM$>))
SRP_JSON(objChildCassette, 'SetValue', 'RecUser', OConv(WOMatRec<WO_MAT_RX_BY$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]'))
SRP_JSON(objChildCassette, 'SetValue', 'RelUser', OConv(WOMatRec<WO_MAT_REL_BY$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ))
SRP_JSON(objChildCassettes, 'Add', objChildCassette)
SRP_JSON(objChildCassette, 'Release')
end
end end
Next Cass Next Cass
end else end else
SRP_JSON(objWOLog, 'SetValue', 'ChildCassettes', '') SRP_JSON(objWOLog, 'SetValue', 'ChildCassettes', '')
@ -1395,7 +1427,6 @@ Service ConvertRecordToJSON(WONo, Record, ItemURL)
SRP_JSON(objJSON, 'Set', '_links', objLinks) SRP_JSON(objJSON, 'Set', '_links', objLinks)
SRP_JSON(objLinks, 'Release') SRP_JSON(objLinks, 'Release')
end end
// Create the _class property for this resource. // Create the _class property for this resource.
SRP_JSON(objJSON, 'SetValue', '_class', 'resource') SRP_JSON(objJSON, 'SetValue', '_class', 'resource')
end end

1
LSL2/STPROCINS/WO_LOG_EQUATES.txt
View File

@ -96,4 +96,5 @@ Equ WO_LOG_RX_STAMPS$ To 83
Equ WO_LOG_REL_STAMPS$ To 84 Equ WO_LOG_REL_STAMPS$ To 84
Equ WO_LOG_CURR_STATUS_STATIC$ To 85 Equ WO_LOG_CURR_STATUS_STATIC$ To 85
Equ WO_LOG_SCRAP_QTY_STATIC$ To 86 Equ WO_LOG_SCRAP_QTY_STATIC$ To 86
Equ WO_LOG_OPEN_QTY_STATIC$ To 87