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

Added customer and SAP Batch No. fields to JSON objects for WM_OUT and RDS

Browse Source
This commit is contained in:
Infineon\Ouellette
2025-01-14 12:02:00 -07:00
parent 84ab215aee
commit 3cd56295dc
2 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LSL2/STPROC/WM_OUT_SERVICES.txt
View File

@ -53,6 +53,9 @@ $Insert LOGICAL
$Insert MSG_EQUATES
$Insert DICT_EQUATES
$Insert WM_OUT_EQUATES
$Insert WO_MAT_EQUATES
$Insert WO_LOG_EQUATES
$Insert COMPANY_EQUATES
Declare function Database_Services, SRP_JSON, Error_Services, Clean_Insp_Services, WO_Mat_QA_Services
Declare function PSN_Services, SRP_Rotate_Array, Datetime
@ -147,8 +150,20 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
SRP_JSON(objWMOut, 'SetValue', 'workOrder', {WO_NO})
SRP_JSON(objWMOut, 'SetValue', 'outCassNo', {OUT_CASS_NO})
WoMatKey = {WO_NO} : '*' : {OUT_CASS_NO}
SAPBatchNo = Database_Services('ReadDataColumn', 'WO_MAT', WoMatKey, WO_MAT_SAP_BATCH_NO$, True$, 0, False$)
SRP_JSON(objWMOut, 'SetValue', 'SapBatchNo', SAPBatchNo, 'String')
CurrWfrQty = XLATE('WO_MAT', WoMatKey, 'CURR_WFR_CNT', 'X')
SRP_JSON(objWMOut, 'SetValue', 'CURR_WFR_CNT', CurrWfrQty)
CustNo = Database_Services('ReadDataColumn', 'WO_LOG', {WO_NO}, WO_LOG_CUST_NO$, True$, 0, False$)
CustReshipNo = Database_Services('ReadDataColumn', 'WO_MAT', WoMatKey, WO_MAT_RESHIP_CUST_NO$, True$, 0, False$)
If CustReshipNo NE '' then
CustNo = CustReshipNo
end
CustName = Database_Services('ReadDataColumn', 'COMPANY', CustNo, COMPANY_CO_NAME$, True$, 0, False$)
CustAbbrev = Database_Services('ReadDataColumn', 'COMPANY', CustNo, COMPANY_ABBREV$, True$, 0, False$)
SRP_JSON(objWMOut, 'SetValue', 'CustNo', CustNo)
SRP_JSON(objWMOut, 'SetValue', 'CustName', CustName)
SRP_JSON(objWMOut, 'SetValue', 'CustAbbrev', CustAbbrev)
SRP_JSON(objWMOut, 'SetValue', 'PSN', {PS_NO})
SRP_JSON(objWMOut, 'SetValue', 'partNo', {PART_NO})
SRP_JSON(objWMOut, 'SetValue', 'postEpiSig', {POST_EPI_SIG})
@ -358,3 +373,4 @@ Service GetWaferMap(WMOKey)
end
end service