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

added datetime to HgCV SPC file as well as logging

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-23 14:54:12 -07:00
parent 534f2d5e9f
commit f7ca1f765b
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
LSL2/STPROC/METROLOGY_SERVICES.txt
View File

@ -1406,7 +1406,15 @@ Service ImportHgCVData(RunData, FileName)
// Send data to SPC ------------------------------------------------------------------------------------------- // Send data to SPC -------------------------------------------------------------------------------------------
LogPath = Environment_Services('GetSpcFilesharePath') LogPath = Environment_Services('GetSpcFilesharePath')
objSPC = Logging_Services('NewLog', LogPath, 'HgCV_Unload_Res_9Points.txt', CRLF$, Comma$, '', '', False$, True$) SpcFileDtm = OConv(Datetime(), 'DT2^HS ')
Convert ' ' to '_' in SpcFileDtm
SpcLogFilename = 'HgCV_Unload_Res_9Points_':SpcFileDtm:'.txt'
objSPC = Logging_Services('NewLog', LogPath, SpcLogFilename, CRLF$, Comma$, '', '', False$, True$)
If Error_Services('NoError') then
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Successfully created blank SPC file.')
end else
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Failed to create blank SPC file. Error message: ':Error_Services('GetMessage'))
end
LogData = '' LogData = ''
LogData<1> = Oconv(Timestamp, 'DT/^HS') ; // Metrology date/time stamp LogData<1> = Oconv(Timestamp, 'DT/^HS') ; // Metrology date/time stamp
LogData<2> = ReactorID ; // Reactor LogData<2> = ReactorID ; // Reactor
@ -1428,6 +1436,11 @@ Service ImportHgCVData(RunData, FileName)
LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta % LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta %
LogData := @RM : ' ' LogData := @RM : ' '
Logging_Services('AppendLog', objSPC, LogData, @RM, @FM, True$) Logging_Services('AppendLog', objSPC, LogData, @RM, @FM, True$)
If Error_Services('NoError') then
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Successfully updated SPC file with metrology data.')
end else
Metrology_Services('LogResults', RDSKeyID, Machine, 'UID000', Service : ' : Failed to update SPC file with metrology data. Error message: ':Error_Services('GetMessage'))
end
// ------------------------------------------------------------------------------------------------------------ // ------------------------------------------------------------------------------------------------------------
WOMatQARec<WO_MAT_QA_SIG$, vPos> = '' WOMatQARec<WO_MAT_QA_SIG$, vPos> = ''
@ -2858,3 +2871,4 @@ LoadRunDataToDatabase:
return return