fixed purple envelope display

App/DomainModels/KitRepository.asp

@@ -51,7 +51,7 @@ Class KitRepository_Class
 	Public Function PagedPurpleEnvelopsIndexView(per_page, page_num, ByRef page_count, ByRef record_count)
 			dim sql : sql = "SELECT Kit.ID,Kit.JobNumber as [JobNumber], " &_
 		"Jurisdiction.Name As Jurisdiction," &_
-		"(SELECT COUNT(*) From KitLabels Where KitId = Kit.ID)" &_
+		"(SELECT COUNT(*) From InkjetRecords Where KitId = Kit.ID)" &_
 		" As [LabelCount],[CreatedOn],[LabelsPrinted],[ExportedToSnailWorks],[InkJetJob],[JobType],[Filename],[Cass],[Status] FROM Kit INNER JOIN Jurisdiction ON Kit.Jcode = Jurisdiction.JCode Where Kit.JobType = 'Purple Envelopes';"
 
 		dim list : set list = new LinkedList_Class
@@ -121,7 +121,7 @@ Class KitRepository_Class
 		"Jurisdiction.Name As Jurisdiction," &_
 		"(SELECT COUNT(*) From InkjetRecords Where KitID = Kit.ID)" &_
 		" As [LabelCount],[CreatedOn],[LabelsPrinted],[ExportedToSnailWorks],[JobType] FROM Kit INNER JOIN Jurisdiction ON Kit.Jcode = Jurisdiction.JCode " &_
-		"WHERE ID = ?   AND Kit.JobType Is Null or Kit.JobType = 'Purple Envelopes'"
+		"WHERE ID = ? "
 
 		dim rs : set rs = DAL.Query(sql,ID)
 		If rs.EOF then

ImportService/TrackingDataImport.vbs

@@ -37,7 +37,7 @@ Dim WorkingDirectory:WorkingDirectory = Replace(WScript.ScriptFullName,WScript.S
 	    RunMailManager
 	    ImportCass
 	End If 
-
+	WScript.Quit