cleanuo

Data/Migrations/Migration_16_Alter_Jurisdiction_Table_With_Title.asp

@@ -0,0 +1,16 @@
+<%
+Class Migration_16_Alter_InkJetRecords_Table_With_Title
+    Public Migration
+
+    Public Sub Up
+        Migration.Do "ALTER TABLE [Jurisdiction] " &_
+                    "ADD [Title] VARCHAR(50);"
+End Sub
+    
+    Public Sub Down
+        Migration.Do "ALTER TABLE [Jurisdiction]  " &_
+                    "DROP COLUMN [Title];"
+    End Sub
+End Class
+ Migrations.Add "Migration_16_Alter_InkJetRecords_Table_With_Title"
+ %>

Data/Migrations/migrate.asp

@@ -44,6 +44,7 @@ Migrations.Tracing = false
 <!--#include file="Migration_13_Alter_Kit_Table_With_File_Cass.asp"-->
 <!--#include file="Migration_14_Alter_Kit_Table_With_STIDS.asp"-->
 <!--#include file="Migration_15_Alter_InkJetRecords_Table_With_KitLabelID.asp"-->
+<!--#include file="Migration_16_Alter_Jurisdiction_Table_With_Title.asp"-->
 <%
 Sub HandleMigration
     putl "<b>Starting Version: " & Migrations.Version & "</b>"

ImportService/TrackingDataImport.vbs

@@ -310,17 +310,18 @@ Dim serialStart:serialStart = CLng(GetSetting("SerialNumberStart")) + CLng(GetSe
 Dim Counter:Counter=0
 Dim KitLabelID
 Dim KitLabelRs
+Dim Mid:Mid = GetSetting("MailingID")
 Dim Step : If KitRs("InboundSTID") <> "" Then : Step = 2  : Else Step = 1
 serialStart = PadLeft(serialStart + CLng(Counter),9,"0")
 While Not InkjetRs.EOF
 
 	If Step = 1 Then
 		oConn.Execute("INSERT INTO KitLabels (KitID,OutboundSerial,OutboundIMBDigits) " &_
-			  			"VALUES(" & KitID & ",'" & serialStart & "','" & KitRs("OutBoundSTID").Value & serialStart & "000000000" & "');")
+			  			"VALUES(" & KitID & ",'" & serialStart & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "000000000" & "');")
 
 	Else 
 		oConn.Execute "INSERT INTO KitLabels (KitID,OutboundSerial,InBoundSerial,OutboundIMBDigits,InBoundIMBDigits) " &_
-		  			"VALUES(" & KitID & ",'" & serialStart & "','" & serialStart + 1 & "','" & KitRs("OutBoundSTID").Value & serialStart & "000000000" & "','" & KitRs("InboundSTID").Value & serialStart + 1 & Jcode & "');"
+		  			"VALUES(" & KitID & ",'" & serialStart & "','" & serialStart + 1 & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart &  "000000000" & "','" & KitRs("InboundSTID").Value & serialStart + 1 & Jcode & "');"
 	End If 
 	Set KitLabelRs = oConn.Execute("SELECT TOP 1 [ID] FROM KitLabels ORDER BY ID DESC"):KitLabelID = KitLabelRs("ID").Value