|
|
@@ -229,11 +229,12 @@ Class KitController |
|
|
Exit Sub |
|
|
Exit Sub |
|
|
End If |
|
|
End If |
|
|
|
|
|
|
|
|
dim labelsFilename : labelsFilename = jCode & "-" & jurisdiction & "_delivery_labels.pdf" |
|
|
|
|
|
|
|
|
dim labelsBaseName : labelsBaseName = jobNumber & " - " & jurisdiction |
|
|
|
|
|
dim labelsFilename : labelsFilename = labelsBaseName & "_delivery_labels.pdf" |
|
|
dim packingSlipFilename : packingSlipFilename = jCode & "-" & jurisdiction & "_delivery_packing_slip.pdf" |
|
|
dim packingSlipFilename : packingSlipFilename = jCode & "-" & jurisdiction & "_delivery_packing_slip.pdf" |
|
|
dim labelsFinalPath : labelsFinalPath = exportFolder & "\" & labelsFilename |
|
|
dim labelsFinalPath : labelsFinalPath = exportFolder & "\" & labelsFilename |
|
|
dim packingSlipFinalPath : packingSlipFinalPath = exportFolder & "\" & packingSlipFilename |
|
|
dim packingSlipFinalPath : packingSlipFinalPath = exportFolder & "\" & packingSlipFilename |
|
|
dim labelsTempPath : labelsTempPath = appPath & "Data\" & jCode & "-" & jurisdiction & "_delivery_labels.tmp.pdf" |
|
|
|
|
|
|
|
|
dim labelsTempPath : labelsTempPath = appPath & "Data\" & labelsBaseName & "_delivery_labels.tmp.pdf" |
|
|
dim packingSlipTempPath : packingSlipTempPath = appPath & "Data\" & jCode & "-" & jurisdiction & "_delivery_packing_slip.tmp.pdf" |
|
|
dim packingSlipTempPath : packingSlipTempPath = appPath & "Data\" & jCode & "-" & jurisdiction & "_delivery_packing_slip.tmp.pdf" |
|
|
|
|
|
|
|
|
If FSO.FileExists(labelsTempPath) Then FSO.DeleteFile labelsTempPath |
|
|
If FSO.FileExists(labelsTempPath) Then FSO.DeleteFile labelsTempPath |
|
|
@@ -402,11 +403,14 @@ Class KitController |
|
|
end if |
|
|
end if |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if FSO.FileExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf") then |
|
|
|
|
|
FSO.DeleteFile(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf") |
|
|
|
|
|
|
|
|
dim labelsJobFileName : labelsJobFileName = KitInfo.JobNumber & " - " & JurisdictionInfo.Name & "_labels.pdf" |
|
|
|
|
|
dim labelsJobTempFileName : labelsJobTempFileName = KitInfo.JobNumber & " - " & JurisdictionInfo.Name & " Labels.pdf" |
|
|
|
|
|
|
|
|
|
|
|
if FSO.FileExists(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & labelsJobFileName) then |
|
|
|
|
|
FSO.DeleteFile(ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & labelsJobFileName) |
|
|
end if |
|
|
end if |
|
|
ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & " Labels.pdf",1 |
|
|
|
|
|
FSO.MoveFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & " Labels.pdf" , ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "_labels.pdf" |
|
|
|
|
|
|
|
|
ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & labelsJobTempFileName,1 |
|
|
|
|
|
FSO.MoveFile Request.ServerVariables("APPL_PHYSICAL_PATH") & "\Data\" & labelsJobTempFileName , ExportDirectory & JurisdictionInfo.JCode & "-" & JurisdictionInfo.Name & "\" & labelsJobFileName |
|
|
|
|
|
|
|
|
End Sub |
|
|
End Sub |
|
|
|
|
|
|
|
|
|