Merged PR 12079: Backend functionality for retrieving Open NCR Report from OI
Backend functionality for retrieving Open NCR Report from OI Related work items: #237978
This commit is contained in:
parent
41cbdaadba
commit
36f16bf951
@ -82,7 +82,7 @@ Declare function Set_Printer, Get_Printer, Msg, Get_Status, Printer_Select, ob
|
||||
Declare function Schedule_Services, Error_Services, Location_Services, SRP_Array, Signature_Services, obj_RDS_Test
|
||||
Declare function Epi_Part_Services, SRP_Math, Database_Services, SRP_JSON, Reactor_Services, SRP_Datetime
|
||||
Declare function SRP_Array, Environment_Services, Logging_Services, Datetime, Select_Into, Wafer_Counter_Services
|
||||
Declare function Lot_Services, Test_Run_Services
|
||||
Declare function Lot_Services, Test_Run_Services, NCR_Services
|
||||
|
||||
Equ TAB TO \09\
|
||||
|
||||
@ -2330,6 +2330,40 @@ Service PrintMaterialTrackReport(RptColumns, LocationFilter, NoMatFlag, OldRepor
|
||||
|
||||
end service
|
||||
|
||||
Service GetOpenNCRReportJson()
|
||||
ErrorMessage = ''
|
||||
OpenNCRReportJson = ''
|
||||
OpenNCRKeyList = NCR_Services('GetOpenNCRKeys')
|
||||
objJson = ''
|
||||
If SRP_Json(objJson, 'New') then
|
||||
objOpenNCRJsonArray = ''
|
||||
If SRP_Json(objOpenNCRJsonArray, 'New', 'Array') then
|
||||
for each NCRKey in OpenNCRKeyList using @VM
|
||||
ThisNCRJsonString = NCR_Services('ConvertRecordToJson', NCRKey)
|
||||
ThisNCRJsonObj = ''
|
||||
ParseResult = SRP_Json(ThisNCRJsonObj, 'Parse', ThisNCRJsonString)
|
||||
If ParseResult EQ '' then
|
||||
SRP_Json(objOpenNCRJsonArray, 'Add', ThisNCRJsonObj)
|
||||
SRP_Json(ThisNCRJsonObj, 'Release')
|
||||
end else
|
||||
SRP_Json(ThisNCRJsonObj, 'Release')
|
||||
end
|
||||
Next NCRKey
|
||||
SRP_Json(objJson, 'Set', 'OpenNCRReport', objOpenNCRJsonArray)
|
||||
SRP_Json(objOpenNCRJsonArray, 'Release')
|
||||
end else
|
||||
ErrorMessage = 'Error creating Open NCR JSON Array.'
|
||||
end
|
||||
OpenNCRReportJson = SRP_JSON(objJSON, 'Stringify', 'Styled')
|
||||
SRP_JSON(objJSON, 'Release')
|
||||
end else
|
||||
ErrorMessage = 'Error creating root JSON object.'
|
||||
end
|
||||
If ErrorMessage NE '' then
|
||||
Error_Services('Add', ErrorMessage)
|
||||
end
|
||||
Response = OpenNCRReportJson
|
||||
end service
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
@ -2352,3 +2386,4 @@ OipiPrintError:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user