updated roundtrip Mailier id import

ImportService/TrackingDataImport.vbs

@@ -385,7 +385,7 @@ While Not InkjetRs.EOF
 		oRsKitLabels("OutboundSerial") = serialStart
 		oRsKitLabels("InBoundSerial") = serialStart + 1
 		oRsKitLabels("OutboundIMBDigits") = KitRs("OutBoundSTID").Value & Mid & serialStart
-		oRsKitLabels("InBoundIMBDigits") = KitRs("InboundSTID").Value & serialStart + 1 & Jcode
+		oRsKitLabels("InBoundIMBDigits") = KitRs("InboundSTID").Value & Mid & serialStart + 1 & Jcode
 	End If 
 	oRsKitLabels.Update
 	oConn.Execute("UPDATE InkjetRecords Set [KitLabelID]=" & KitLabelID & " WHERE ID=" & InkjetRs("ID") & ";")