added datetime to HgCV SPC file as well as logging

This commit is contained in:
Infineon\StieberD 2024-10-23 14:54:12 -07:00
parent 534f2d5e9f
commit f7ca1f765b

View File

@ -1406,7 +1406,15 @@ Service ImportHgCVData(RunData, FileName)
// Send data to SPC -------------------------------------------------------------------------------------------
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<1> = Oconv(Timestamp, 'DT/^HS') ; // Metrology date/time stamp
LogData<2> = ReactorID ; // Reactor
@ -1428,6 +1436,11 @@ Service ImportHgCVData(RunData, FileName)
LogData<14> = HgCVEdgeMean ; // HgCV Edge Mean Delta %
LogData := @RM : ' '
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> = ''
@ -2858,3 +2871,4 @@ LoadRunDataToDatabase:
return