changing label exports

App/Controllers/Kit/KitController.asp

@@ -117,6 +117,9 @@ Class KitController
 	Public Sub DownloadTrackingkitSnailWorksPDF
 		
 		dim id : id = Request.QueryString("Id")
+		dim ExportDirectory:ExportDirectory = "\\kci-syn-cl01\PC Transfer\TrackingDataExport\"
+		dim KitInfo : Set KitInfo = KitRepository.FindByID(id)
+		dim JurisdictionInfo : Set JurisdictionInfo = JurisdictionRepository.FindByJCode(KitInfo.Jcode)
 		ReportManager.Filename =  Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\Label_Report.rep"
 			if dev = true Then
 
@@ -132,8 +135,11 @@ Class KitController
 		ReportManager.ShowPrintDialog = false
 		
 		ReportManager.SetParamValue "PBKITID", CInt(id)
-
-		ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\" & id & ".pdf",1
+		if FSO.FolderExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name) = False then
+			FSO.CreateFolder(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name)
+		end if
+		ReportManager.SaveToPdf ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf",1
+		'ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\" & id & ".pdf",1
 	
 		Dim objStream:Set objStream = Server.CreateObject("ADODB.Stream")
 		objStream.Type = 1 'adTypeBinary

MVC/activeXdepedancies.asp

@@ -15,4 +15,11 @@
         set ReportManager = m_ReportManager
     End Function 
 
+    dim m_FSO
+    Private Function FSO
+        if not isobject(m_FSO) then
+            set m_FSO = server.CreateObject(CreateObject("Scripting.FileSystemObject")
+        end if
+        set FSO = m_FSO
+    End Function
 %>