removed dead code
This commit is contained in:
@ -388,6 +388,7 @@ end service
|
||||
// Looks for available Metrology files that are ready to be imported into the MES system.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service ImportMetrologyFiles(Machine)
|
||||
|
||||
If Machine NE '' then
|
||||
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
|
||||
Lock hSysLists, ServiceKeyID:'*':Machine then
|
||||
@ -935,14 +936,8 @@ Service ImportBioRadData(RunData, FileName)
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSKeyID)
|
||||
If Error_Services('NoError') then
|
||||
WorkOrderNo = RDSRec<RDS_WO$>
|
||||
|
||||
// HgCV Project Development Code -------------------------------------------------------------------------------
|
||||
DevelopmentFlag = Xlate('DEVELOPMENT', 'HGCV', 'STATUS', 'X')
|
||||
If (DevelopmentFlag EQ True$) then
|
||||
IsProdTest = ( Indexc(ScanRecipe, 'PROD', 1) GT 0 )
|
||||
If IsProdTest EQ True$ then Metrology_Services('LogResults',RDSKeyID,Machine,'HgCV','Product test recognized. Recipe name: ':ScanRecipe)
|
||||
end
|
||||
// -------------------------------------------------------------------------------------------------------------
|
||||
IsProdTest = ( Indexc(ScanRecipe, 'PROD', 1) GT 0 )
|
||||
If IsProdTest EQ True$ then Metrology_Services('LogResults',RDSKeyID,Machine,'HgCV','Product test recognized. Recipe name: ':ScanRecipe)
|
||||
CassNo = RDSRec<RDS_CASS_NO$>
|
||||
WorkOrder = Work_Order_Services('GetWorkOrder', WorkOrderNo, False$)
|
||||
GoSub ParseWorkOrder
|
||||
@ -1288,14 +1283,9 @@ Service ImportCDEData(RunData, FileName)
|
||||
RDSNo@ = RDSKeyID
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSKeyID)
|
||||
If Error_Services('NoError') then
|
||||
|
||||
// HgCV Project Development Code -------------------------------------------------------------------------------
|
||||
DevelopmentFlag = Xlate('DEVELOPMENT', 'HGCV', 'STATUS', 'X')
|
||||
If (DevelopmentFlag EQ True$) then
|
||||
IsProdTest = ( Indexc(ScanRecipe, 'PROD', 1) GT 0 )
|
||||
If IsProdTest EQ True$ then Metrology_Services('LogResults',RDSKeyID,Machine,'HgCV','Product test recognized. Recipe name: ':ScanRecipe)
|
||||
end
|
||||
// -------------------------------------------------------------------------------------------------------------
|
||||
|
||||
IsProdTest = ( Indexc(ScanRecipe, 'PROD', 1) GT 0 )
|
||||
If IsProdTest EQ True$ then Metrology_Services('LogResults',RDSKeyID,Machine,'HgCV','Product test recognized. Recipe name: ':ScanRecipe)
|
||||
|
||||
WorkOrderNo = RDSRec<RDS_WO$>
|
||||
CassNo = RDSRec<RDS_CASS_NO$>
|
||||
@ -3253,5 +3243,3 @@ LoadRunDataToDatabase:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user