Proof working now

Data/Proofs.rep

@@ -127,6 +127,12 @@ object TRpReport
       end
       item
         Component = TRpExpression3
+      end
+      item
+        Component = TRpExpression7
+      end
+      item
+        Component = TRpExpression8
       end>
     ExternalTable = 'REPMAN_REPORTS'
     ExternalField = 'REPORT'
@@ -1805,6 +1811,33 @@ object TRpReport
       item
         Component = TRpExpression0
       end
+      item
+        Component = TRpExpression9
+      end
+      item
+        Component = TRpExpression11
+      end
+      item
+        Component = TRpExpression12
+      end
+      item
+        Component = TRpExpression13
+      end
+      item
+        Component = TRpExpression14
+      end
+      item
+        Component = TRpBarcode0
+      end
+      item
+        Component = TRpExpression15
+      end
+      item
+        Component = TRpExpression16
+      end
+      item
+        Component = TRpExpression17
+      end
       item
         Component = TRpExpression4
       end
@@ -1813,6 +1846,9 @@ object TRpReport
       end
       item
         Component = TRpExpression6
+      end
+      item
+        Component = TRpExpression10
       end>
     ExternalTable = 'REPMAN_REPORTS'
     ExternalField = 'REPORT'
@@ -4021,8 +4057,8 @@ object TRpReport
   object TRpExpression0: TRpExpression
     Width = 4200
     Height = 264
-    PosX = 8400
-    PosY = 7125
+    PosX = 8055
+    PosY = 6775
     Type1Font = poHelvetica
     AutoExpand = False
     AutoContract = False
@@ -4043,7 +4079,7 @@ object TRpReport
   object TRpExpression2: TRpExpression
     Width = 4200
     Height = 264
-    PosX = 6555
+    PosX = 7590
     PosY = 6090
     Type1Font = poHelvetica
     AutoExpand = False
@@ -4065,7 +4101,7 @@ object TRpReport
   object TRpExpression3: TRpExpression
     Width = 4200
     Height = 264
-    PosX = 6555
+    PosX = 7590
     PosY = 6555
     Type1Font = poHelvetica
     AutoExpand = False
@@ -4087,7 +4123,7 @@ object TRpReport
   object TRpExpression1: TRpExpression
     Width = 4200
     Height = 264
-    PosX = 6555
+    PosX = 7590
     PosY = 6330
     Type1Font = poHelvetica
     AutoExpand = False
@@ -4106,12 +4142,61 @@ object TRpReport
     AgIniValue = '0'
     ExportExpression = ''
   end
-  object TRpExpression4: TRpExpression
-    Width = 4200
-    Height = 264
+  object TRpExpression8: TRpExpression
+    Width = 5745
+    Height = 345
+    PosX = 6670
+    PosY = 6905
+    Type1Font = poEmbedded
+    FontSize = 16
+    FontStyle = 1
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'USPSIMBStandard'
+    LFontName = 'Helvetica'
+    Expression = 'JURISDICTION.IMB'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression9: TRpExpression
+    Width = 5745
+    Height = 345
     PosX = 8160
-    PosY = 5295
+    PosY = 8505
+    Type1Font = poEmbedded
+    FontSize = 16
+    FontStyle = 1
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'USPSIMBStandard'
+    LFontName = 'Helvetica'
+    Expression = 'JURISDICTION.IMB'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression7: TRpExpression
+    Width = 3600
+    Height = 315
+    PosX = 7590
+    PosY = 5865
     Type1Font = poHelvetica
+    DataType = rpParamString
     AutoExpand = False
     AutoContract = False
     ExportPosition = 0
@@ -4122,17 +4207,222 @@ object TRpReport
     DoAfterPrint = ''
     WFontName = 'Arial'
     LFontName = 'Helvetica'
-    Expression = 'JURISDICTION.Name'
+    Expression = #39'CLERK'#39
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression12: TRpExpression
+    Width = 1661
+    Height = 264
+    PosX = 12049
+    PosY = 1361
+    Type1Font = poHelvetica
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.BALLOT_NUMBER'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression13: TRpExpression
+    Width = 348
+    Height = 1152
+    PosX = 13224
+    PosY = 3334
+    Type1Font = poHelvetica
+    FontRotation = -900
+    SingleLine = True
+    DataType = rpParamString
+    AutoExpand = False
+    AutoContract = False
+    PrintOnlyOne = True
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.BALLOT_NUMBER'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression11: TRpExpression
+    Width = 2033
+    Height = 264
+    PosX = 12072
+    PosY = 1032
+    Type1Font = poHelvetica
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.PRECINCT'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression14: TRpExpression
+    Width = 348
+    Height = 1728
+    PosX = 13224
+    PosY = 4368
+    Type1Font = poHelvetica
+    FontRotation = -900
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.PRECINCT'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpBarcode0: TRpBarcode
+    Width = 4830
+    Height = 465
+    PosX = 8390
+    PosY = 5745
+    Modul = 17
+    Ratio = 3.000000000000000000
+    Typ = bcCode39
+    NumColumns = 1
+    NumRows = 1
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    DisplayFormat = ''
+    Expression = 'KITLABELS.VOTERID'
+  end
+  object TRpExpression15: TRpExpression
+    Width = 1035
+    Height = 240
+    PosX = 8400
+    PosY = 6315
+    Type1Font = poHelvetica
+    FontSize = 8
+    DataType = rpParamDate
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = #39'8/5/2024'#39
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression16: TRpExpression
+    Width = 1035
+    Height = 240
+    PosX = 9550
+    PosY = 6315
+    Type1Font = poHelvetica
+    FontSize = 8
+    DataType = rpParamDate
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.PRECINCT'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression17: TRpExpression
+    Width = 1035
+    Height = 240
+    PosX = 11850
+    PosY = 6315
+    Type1Font = poHelvetica
+    FontSize = 8
+    DataType = rpParamDate
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.PRECINCT + '#13#10'KITLABELS.BALLOT_NUMBER'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression4: TRpExpression
+    Width = 1035
+    Height = 240
+    PosX = 10700
+    PosY = 6315
+    Type1Font = poHelvetica
+    FontSize = 8
+    DataType = rpParamString
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.BALLOT_NUMBER'
     DisplayFormat = ''
     ExportDisplayFormat = ''
     AgIniValue = '0'
     ExportExpression = ''
   end
   object TRpExpression5: TRpExpression
-    Width = 4200
+    Width = 4800
     Height = 264
-    PosX = 8160
-    PosY = 5760
+    PosX = 8050
+    PosY = 7015
     Type1Font = poHelvetica
     AutoExpand = False
     AutoContract = False
@@ -4144,17 +4434,17 @@ object TRpReport
     DoAfterPrint = ''
     WFontName = 'Arial'
     LFontName = 'Helvetica'
-    Expression = 'JURISDICTION.CSZ'
+    Expression = 'KITLABELS.CassADDRESS3'
     DisplayFormat = ''
     ExportDisplayFormat = ''
     AgIniValue = '0'
     ExportExpression = ''
   end
   object TRpExpression6: TRpExpression
-    Width = 4200
+    Width = 4800
     Height = 264
-    PosX = 8160
-    PosY = 5535
+    PosX = 8050
+    PosY = 7265
     Type1Font = poHelvetica
     AutoExpand = False
     AutoContract = False
@@ -4166,7 +4456,29 @@ object TRpReport
     DoAfterPrint = ''
     WFontName = 'Arial'
     LFontName = 'Helvetica'
-    Expression = 'JURISDICTION.Mailing_Address'
+    Expression = 'KITLABELS.CassADDRESS4'
+    DisplayFormat = ''
+    ExportDisplayFormat = ''
+    AgIniValue = '0'
+    ExportExpression = ''
+  end
+  object TRpExpression10: TRpExpression
+    Width = 4800
+    Height = 264
+    PosX = 8055
+    PosY = 7465
+    Type1Font = poHelvetica
+    AutoExpand = False
+    AutoContract = False
+    ExportPosition = 0
+    ExportSize = 1
+    ExportDoNewLine = False
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    WFontName = 'Arial'
+    LFontName = 'Helvetica'
+    Expression = 'KITLABELS.CassADDRESS5'
     DisplayFormat = ''
     ExportDisplayFormat = ''
     AgIniValue = '0'

ImportService/TrackingDataImport.vbs

@@ -115,69 +115,72 @@ Function CreateExportForSnailWorks(KitID)
 	
 	If objFSO.FileExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName) Then:objFSO.DeleteFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName):End If 
 	Dim objExportFile:set objExportFile = objFSO.CreateTextFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName,2)
-	objExportFile.Write("H") 													'Record Type Required value must be = "H" (Header)
-	objExportFile.Write(PadString("5.1",5))										'Version Required value must be ="5.1" for current release
-	objExportFile.Write(PadString("?",50))										'UserId Required 
-	objExportFile.Write(PadString(JurisdictionRs("Name").Value,50))				'Client Name Required (will create new subaccount if not already defined)
-	objExportFile.Write(PadString("",50))										'Parent Client Name Optional (use if 3-tier account structure)
-	objExportFile.Write(PadString("Purple envelope - " &_
-	KitRs("JobNumber").Value,50))												'Job Name Required
-	objExportFile.Write(PadString("",50))										'Job Description Optional
-	objExportFile.Write(PadString("",50))										'Split Name Optional – will default to ‘Default’
-	objExportFile.Write(PadString("",80))										'Split Description Optional
-	objExportFile.Write(PadString("L",1))										'Piece Type Required  L-Letters, C-Cards, F-Flats
-	objExportFile.Write(PadString(Year(Now()) & "/" &_
-	Right("0" & Month(Now()), 2) & "/" & Right("0" & Day(Now()), 2),10))		'MailDate Required (YYYY/MM/DD)
-	objExportFile.Write(PadString("N",1))										'UploadType Required N = New job, new split A = Append new split to existing job R = Replace existing split
-	objExportFile.Write(PadString("",8))										'TrackedQuantity Optional
-	objExportFile.Write(PadString("",8))										'PiecesMailed Optional – shown as Estimated Quantity
-	objExportFile.Write(PadString("",10))										'Target InHomeDateStart Optional (YYYY/MM/DD)
-	objExportFile.Write(PadString("",10))										'Target InHomeDateEnd Optional (YYYY/MM/DD)
-	objExportFile.Write(PadString("",100))										'ConfirmationEmail Optional
-	objExportFile.Write(PadString("",9))										'JobId (SW) Optional for previously created jobs  SWJobId
-	objExportFile.Write(PadString("",4))										'SplitId (SW) Optional for previously created jobs  SWJobId
-	objExportFile.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"O","R"),1))'TypeofTracking Required Values: O- Outbound Only I-Inbound Only R-Round Trip
-	objExportFile.Write(PadString("",11))										'ReturnedPostalRoutingCode
-	objExportFile.Write(PadString("",2))										'ReportId1
-	objExportFile.Write(PadString("",255))										'Report1Email
-	objExportFile.Write(PadString("",2))										'ReportId2
-	objExportFile.Write(PadString("",255))										'Report2Email
-	objExportFile.Write(vbCrLf)
+	With objExportFile
+		.Write("H") 																'Record Type Required value must be = "H" (Header)
+		.Write(PadString("5.1",5))													'Version Required value must be ="5.1" for current release
+		.Write(PadString("KCI",50))													'UserId Required 
+		.Write(PadString(JurisdictionRs("Name").Value,50))							'Client Name Required (will create new subaccount if not already defined)
+		.Write(PadString("",50))													'Parent Client Name Optional (use if 3-tier account structure)
+		.Write(PadString("Purple envelope - " & KitRs("JobNumber").Value,50))		'Job Name Required
+		.Write(PadString("",50))													'Job Description Optional
+		.Write(PadString("",50))													'Split Name Optional – will default to ‘Default’
+		.Write(PadString("",80))													'Split Description Optional
+		.Write(PadString("L",1))													'Piece Type Required  L-Letters, C-Cards, F-Flats
+		.Write(PadString(Year(Now()) & "/" &_
+			Right("0" & Month(Now()), 2) & "/" & Right("0" & Day(Now()), 2),10))	'MailDate Required (YYYY/MM/DD)
+		.Write(PadString("N",1))													'UploadType Required N = New job, new split A = Append new split to existing job R = Replace existing split
+		.Write(PadString("",8))														'TrackedQuantity Optional
+		.Write(PadString("",8))														'PiecesMailed Optional – shown as Estimated Quantity
+		.Write(PadString("",10))													'Target InHomeDateStart Optional (YYYY/MM/DD)
+		.Write(PadString("",10))													'Target InHomeDateEnd Optional (YYYY/MM/DD)
+		.Write(PadString("",100))													'ConfirmationEmail Optional
+		.Write(PadString("",9))														'JobId (SW) Optional for previously created jobs  SWJobId
+		.Write(PadString("",4))														'SplitId (SW) Optional for previously created jobs  SWJobId
+		.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"O","R"),1))			'TypeofTracking Required Values: O- Outbound Only I-Inbound Only R-Round Trip
+		.Write(PadString("",11))													'ReturnedPostalRoutingCode
+		.Write(PadString("",2))														'ReportId1
+		.Write(PadString("",255))													'Report1Email
+		.Write(PadString("",2))														'ReportId2
+		.Write(PadString("",255))													'Report2Email
+		.Write(vbCrLf)
 	While Not KitLabelsRs.EOF
-	objExportFile.Write("D")													'RecordType Required value must be = “D” (Detail)
-	objExportFile.Write(PadString("",20))										'CustomerUniqueIdentifier Optional- any identifier you designate
-	objExportFile.Write(PadString(KitLabelsRs("OutboundIMBDigits"),31))			'IMB Required – Unencoded, numeric IMB
-	objExportFile.Write(PadString((""),10))										'Greeting Optional
-	objExportFile.Write(PadString((""),50))										'First Name Optional
-	objExportFile.Write(PadString((""),2))										'MI  Optional
-	objExportFile.Write(PadString((""),50))										'Last Name Optional
-	objExportFile.Write(PadString((""),10))										'Suffix Optional
-	objExportFile.Write(PadString((KitLabelsRs("CassADDRESS1").Value),100))		'Full Name Optional
-	objExportFile.Write(PadString((""),50))										'Company Optional
-	objExportFile.Write(PadString((""),50))										'Title  Optional
-	objExportFile.Write(PadString(KitLabelsRs("CassADDRESS3").Value,128))		'Address1   Optional
-	objExportFile.Write(PadString(KitLabelsRs("CassADDRESS4").Value,128))		'Address2   Optional
-	objExportFile.Write(PadString(Left(KitLabelsRs("CassADDRESS5").Value, InStr(KitLabelsRs("CassADDRESS5").Value, ",") - 1),50))	'City     Optional
-	objExportFile.Write(PadString(Mid(KitLabelsRs("CassADDRESS5").Value, InStr(KitLabelsRs("CassADDRESS5").Value, ",") + 2, 2),2))	'State Optional
-    objExportFile.Write PadString(Right(KitLabelsRs("CassADDRESS5").Value,11),11)'Zip   Optional
-	objExportFile.Write(PadString(KitRs("Jcode"),100))							'UserDefined1 Optional - Summary fields only
-	objExportFile.Write(PadString((""),100))									'UserDefined2 Optional - Summary fields only
-	objExportFile.Write(PadString((""),100))									'UserDefined3 Optional - Summary fields only
-	objExportFile.Write(PadString(KitLabelsRs("PRECINCT").Value & KitLabelsRs("BALLOT_NUMBER"),80))	'UserDefinedIdentifier4 Optional – Allows for unique identifiers
-	objExportFile.Write(PadString(KitLabelsRs("VOTERID").Value,80))				'UserDefinedIdentifier5 Optional – Allows for unique identifiers
-	objExportFile.Write(PadString((""),1))										'SeedIndicator  Optional - if true provide ‘Y’
-	objExportFile.Write(PadString((""),80))										'InductionPoint  Optional
-	objExportFile.Write(PadString((""),10))										'InductionDate	Optional – Valid date format, ex. MM/DD/YYYY
-	objExportFile.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"",  _
-	KitLabelsRs("InBoundIMBDigits").Value),31))									'InboundIMB Optional – numeric IMB for Round trip jobs only
-	objExportFile.Write(PadString((""),24))										'IMCB Optional – Container Barcode
-	objExportFile.Write(PadString((""),24))										'IMTB Optional – Tray Barcode
- 	objExportFile.Write(vbCrLf)
+		.Write("D")																	'RecordType Required value must be = “D” (Detail)
+		.Write(PadString("",20))													'CustomerUniqueIdentifier Optional- any identifier you designate
+		.Write(PadString(KitLabelsRs("OutboundIMBDigits"),31))						'IMB Required – Unencoded, numeric IMB
+		.Write(PadString("",10))													'Greeting Optional
+		.Write(PadString("",50))													'First Name Optional
+		.Write(PadString("",2))														'MI  Optional
+		.Write(PadString("",50))													'Last Name Optional
+		.Write(PadString("",10))													'Suffix Optional
+		.Write(PadString((KitLabelsRs("CassADDRESS1").Value),100))					'Full Name Optional
+		.Write(PadString("",50))													'Company Optional
+		.Write(PadString("",50))													'Title  Optional
+		.Write(PadString(KitLabelsRs("CassADDRESS3").Value,128))					'Address1   Optional
+		.Write(PadString(KitLabelsRs("CassADDRESS4").Value,128))					'Address2   Optional
+		.Write(PadString(Left(KitLabelsRs("CassADDRESS5").Value, _
+			InStr(KitLabelsRs("CassADDRESS5").Value, ",") - 1),50))					'City     Optional
+		.Write(PadString(Mid(KitLabelsRs("CassADDRESS5").Value, _
+			InStr(KitLabelsRs("CassADDRESS5").Value, ",") + 2, 2),2))				'State Optional
+    	.Write PadString(Right(KitLabelsRs("CassADDRESS5").Value,11),11)			'Zip   Optional
+		.Write(PadString(KitRs("Jcode"),100))										'UserDefined1 Optional - Summary fields only
+		.Write(PadString("",100))													'UserDefined2 Optional - Summary fields only
+		.Write(PadString("",100))													'UserDefined3 Optional - Summary fields only
+		.Write(PadString(KitLabelsRs("PRECINCT").Value &_
+	 		KitLabelsRs("BALLOT_NUMBER"),80))										'UserDefinedIdentifier4 Optional – Allows for unique identifiers
+		.Write(PadString(KitLabelsRs("VOTERID").Value,80))							'UserDefinedIdentifier5 Optional – Allows for unique identifiers
+		.Write(PadString("",1))														'SeedIndicator  Optional - if true provide ‘Y’
+		.Write(PadString("",80))													'InductionPoint  Optional
+		.Write(PadString("",10))													'InductionDate	Optional – Valid date format, ex. MM/DD/YYYY
+		.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"",  _
+			KitLabelsRs("InBoundIMBDigits").Value),31))								'InboundIMB Optional – numeric IMB for Round trip jobs only
+		.Write(PadString("",24))													'IMCB Optional – Container Barcode
+		.Write(PadString("",24))													'IMTB Optional – Tray Barcode
+ 		.Write(vbCrLf)
 	KitLabelsRs.MoveNext
 	Wend
-	
 
-	objExportFile.Close
+		.Close
+		End With
 	oConn.Execute("UPDATE KIT SET [Status] ='Ready to Proof',[ExportedToSnailWorks] =#" & Now() & "#  WHERE [ID] =" & KitID & ";")
 	If KitRs.State = 1 Then:KitRs.Close:End If
 	If KitLabelsRs.State = 1 Then:KitLabelsRs.Close: End If