App/Controllers/Kit/KitController.asp

@@ -59,6 +59,39 @@ Class KitController
 		'End If
 	End Sub
 
+	Public Sub AssignKitColorPost
+		MVC.RequirePost
+		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "ColorAssignForm", Request.Form("nonce"), "SwitchBoardPurpleEnvelopeEdit", Array("Id", Request.Form("Id"))
+		dim ID : ID = Request.Form("Id")
+
+		If Len(Request.Form("KitColorId")) > 0 AND Request.Form("KitColorId") <> "" Then
+			InkjetRecordsRepository.UpdateColorForKit CLng(ID), CLng(Request.Form("KitColorId"))
+		End If
+
+		Flash.Success = "Color applied to all labels in kit."
+		MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", ID)
+	End Sub
+
+	Public Sub AssignPrecinctColorsPost
+		MVC.RequirePost
+		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "ColorAssignForm", Request.Form("nonce"), "SwitchBoardPurpleEnvelopeEdit", Array("Id", Request.Form("Id"))
+		dim ID : ID = Request.Form("Id")
+
+		dim key
+		For Each key In Request.Form
+			If Left(key, 14) = "PrecinctColor_" Then
+				dim precinct : precinct = Mid(key, 15)
+				dim colorId : colorId = Request.Form(key)
+				If Len(colorId) > 0 AND colorId <> "" Then
+					InkjetRecordsRepository.UpdateColorForPrecinct CLng(ID), precinct, CLng(colorId)
+				End If
+			End If
+		Next
+
+		Flash.Success = "Precinct colors saved."
+		MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", ID)
+	End Sub
+
 	Public Sub SwitchBoardPurpleEnvelopeEdit
 
 		dim id : id = Request.QueryString("Id")
@@ -66,8 +99,11 @@ Class KitController
 		set Model.Kit = KitRepository.SwitchBoardPurpleEnvelopeEditFindById(id)
 		set Model.Labels = InkjetRecordsRepository.Find(Array("KitId =?",id),empty)
 		set Model.StidDropDown = SettingsRepository.GetStidDropDownRS()
+		set Model.ColorsDropDown = ColorsRepository.GetColorsDropDownRS()
+		set Model.Precincts = InkjetRecordsRepository.GetDistinctPrecinctsByKitId(id)
 		Model.Title = "Purple Envelopes for "
 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"
+		HTMLSecurity.SetAntiCSRFToken "ColorAssignForm"
 		%> <!--#include file="../../Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp"--> <%
 	End Sub
 

App/DomainModels/ColorsRepository.asp

@@ -0,0 +1,91 @@
+<%
+'=======================================================================================================================
+' Colors Model
+'=======================================================================================================================
+
+Class ColorsModel_Class
+	Public Validator
+	Public Class_Get_Properties
+
+	Public ID
+	Public Name
+	Public Filepath
+
+	Private Sub Class_Initialize
+		Class_Get_Properties = Array("ID, Name, Filepath")
+	End Sub
+End Class
+
+'=======================================================================================================================
+' Colors Repository
+'=======================================================================================================================
+
+Class ColorsRepository_Class
+
+	Public Function GetColorsDropDownRS()
+		dim sql : sql = "SELECT [ID], [Name] FROM [Colors] ORDER BY [Name]"
+		dim rs : set rs = DAL.Query(sql, empty)
+		set GetColorsDropDownRS = rs
+	End Function
+
+	Public Function FindByID(ID)
+		dim sql : sql = "SELECT [ID], [Name], [Filepath] FROM [Colors] WHERE ID = ?"
+		dim rs : set rs = DAL.Query(sql, ID)
+		If rs.EOF then
+			Err.Raise 1, "ColorsRepository_Class", ColorsNotFoundException("ID", ID)
+		Else
+			set FindByID = Automapper.AutoMap(rs, "ColorsModel_Class")
+		End If
+	End Function
+
+	Public Function GetAll(orderBy)
+		set GetAll = Find(empty, orderBy)
+	End Function
+
+	Public Function Find(where_kvarray, order_string_or_array)
+		dim sql : sql = "SELECT [ID], [Name], [Filepath] FROM [Colors]"
+
+		If Not IsEmpty(where_kvarray) then
+			sql = sql & " WHERE "
+			dim where_keys, where_values
+			KVUnzip where_kvarray, where_keys, where_values
+			dim i
+			For i = 0 to UBound(where_keys)
+				If i > 0 then sql = sql & " AND "
+				sql = sql & " " & where_keys(i) & " "
+			Next
+		End If
+
+		If Not IsEmpty(order_string_or_array) then
+			sql = sql & " ORDER BY " & order_string_or_array
+		End If
+
+		dim rs : set rs = DAL.Query(sql, where_values)
+		set Find = ColorsList(rs)
+		Destroy rs
+	End Function
+
+	Private Function ColorsList(rs)
+		dim list : set list = new LinkedList_Class
+		dim model
+		Do until rs.EOF
+			set model = new ColorsModel_Class
+			list.Push Automapper.AutoMap(rs, model)
+			rs.MoveNext
+		Loop
+		set ColorsList = list
+	End Function
+
+	Private Function ColorsNotFoundException(ByVal field_name, ByVal field_val)
+		ColorsNotFoundException = "Colors was not found with " & field_name & " of '" & field_val & "'."
+	End Function
+End Class
+
+dim ColorsRepository__Singleton
+Function ColorsRepository()
+	If IsEmpty(ColorsRepository__Singleton) then
+		set ColorsRepository__Singleton = new ColorsRepository_Class
+	End If
+	set ColorsRepository = ColorsRepository__Singleton
+End Function
+%>

App/DomainModels/InkjetRecordsRepository.asp

@@ -35,9 +35,10 @@ Class InkjetRecordsModel_Class
 	Public CassADDRESS4 '106
 	Public CassADDRESS5 '106
 	Public KitLabelID
+	Public ColorId
 	Private Sub Class_Initialize
 		'ValidateExitsts Me, "",""
-		Class_Get_Properties = Array("ID, KitID, VOTERID, LASTNAME, FIRSTNAME, MIDDLENAME, SUFFIX, PRECINCT, ADDRESS1, ADDRESS2, ADDRESS3, ADDRESS4, ADDRESS5, APPSENT, APPRETURNED, BALSENT, BALRETURNED, CountingBoard, UOCAVASTATUS, EMAILADDRESS, PHONENUMBER, BALLOT_NUMBER, CassADDRESS1, CassADDRESS2, CassADDRESS3, CassADDRESS4, CassADDRESS5,KitLabelID")
+		Class_Get_Properties = Array("ID, KitID, VOTERID, LASTNAME, FIRSTNAME, MIDDLENAME, SUFFIX, PRECINCT, ADDRESS1, ADDRESS2, ADDRESS3, ADDRESS4, ADDRESS5, APPSENT, APPRETURNED, BALSENT, BALRETURNED, CountingBoard, UOCAVASTATUS, EMAILADDRESS, PHONENUMBER, BALLOT_NUMBER, CassADDRESS1, CassADDRESS2, CassADDRESS3, CassADDRESS4, CassADDRESS5, KitLabelID, ColorId")
 	End Sub
 
 End CLass
@@ -49,7 +50,7 @@ End CLass
 Class InkjetRecordsRepository_Class
 
 	Public Function FindByID(ID)
-		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID] FROM [InkjetRecords] WHERE ID = ?"
+		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID], [ColorId] FROM [InkjetRecords] WHERE ID = ?"
 		dim rs : set rs = DAL.Query(sql,ID)
     	If rs.EOF then
     		Err.Raise 1, "InkjetRecordsRepository_Class", InkjetRecordsNotFoundException("ID", ID)
@@ -63,7 +64,7 @@ Class InkjetRecordsRepository_Class
    	End Function
 
     Public Function Find(where_kvarray, order_string_or_array)
-		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID] FROM [InkjetRecords]"
+		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID], [ColorId] FROM [InkjetRecords]"
 
  		If Not IsEmpty(where_kvarray) then
 			sql = sql & " WHERE "
@@ -96,7 +97,7 @@ Class InkjetRecordsRepository_Class
 	End Function
 
 	Public Function FindPaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
-		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5],[KitLabelID] FROM [InkjetRecords]"
+		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID], [ColorId] FROM [InkjetRecords]"
 
  		If Not IsEmpty(where_kvarray) then
 			sql = sql & " WHERE "
@@ -138,7 +139,7 @@ Class InkjetRecordsRepository_Class
 	End Function
 
 	Public Function SearchTablePaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)
-		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID] FROM [InkjetRecords]"
+		dim sql : sql = "Select [ID], [KitID], [VOTERID], [LASTNAME], [FIRSTNAME], [MIDDLENAME], [SUFFIX], [PRECINCT], [ADDRESS1], [ADDRESS2], [ADDRESS3], [ADDRESS4], [ADDRESS5], [APPSENT], [APPRETURNED], [BALSENT], [BALRETURNED], [CountingBoard], [UOCAVASTATUS], [EMAILADDRESS], [PHONENUMBER], [BALLOT_NUMBER], [CassADDRESS1], [CassADDRESS2], [CassADDRESS3], [CassADDRESS4], [CassADDRESS5], [KitLabelID], [ColorId] FROM [InkjetRecords]"
 
  		If Not IsEmpty(where_kvarray) then
 			sql = sql & " WHERE "
@@ -294,7 +295,8 @@ Class InkjetRecordsRepository_Class
 						"[CassADDRESS2] = ?," &_
 						"[CassADDRESS3] = ?," &_
 						"[CassADDRESS4] = ?," &_
-						"[CassADDRESS5] = ?" &_
+						"[CassADDRESS5] = ?," &_
+						"[ColorId] = ?" &_
 						" WHERE [ID] = ?"
 
 		DAL.Execute sql, Array(model.KitID, _
@@ -323,6 +325,7 @@ Class InkjetRecordsRepository_Class
 							  model.CassADDRESS3, _
 							  model.CassADDRESS4, _
 							  model.CassADDRESS5, _
+							  model.ColorId, _
 							  model.ID)
 	End Sub
 
@@ -330,6 +333,22 @@ Class InkjetRecordsRepository_Class
 		dim sql : sql = "DELETE FROM [InkjetRecords] WHERE [ID] = ?"
 		DAL.Execute sql, id
 	End Sub
+
+	Public Function GetDistinctPrecinctsByKitId(KitID)
+		dim sql : sql = "SELECT DISTINCT [PRECINCT], [ColorId] FROM [InkjetRecords] WHERE [KitID] = ? ORDER BY [PRECINCT]"
+		dim rs : set rs = DAL.Query(sql, KitID)
+		set GetDistinctPrecinctsByKitId = rs
+	End Function
+
+	Public Sub UpdateColorForKit(KitID, ColorId)
+		dim sql : sql = "UPDATE [InkjetRecords] SET [ColorId] = ? WHERE [KitID] = ?"
+		DAL.Execute sql, Array(ColorId, KitID)
+	End Sub
+
+	Public Sub UpdateColorForPrecinct(KitID, Precinct, ColorId)
+		dim sql : sql = "UPDATE [InkjetRecords] SET [ColorId] = ? WHERE [KitID] = ? AND [PRECINCT] = ?"
+		DAL.Execute sql, Array(ColorId, KitID, Precinct)
+	End Sub
 End Class
 
 dim InkjetRecordsRepository__Singleton

App/ViewModels/KitViewModels.asp

@@ -20,6 +20,8 @@ Class SwitchBoard_ViewModel_Class
 		Public Kit
 		Public Labels
 		Public StidDropDown
+		Public ColorsDropDown
+		Public Precincts
 End Class
 
 Class SwitchBoard_PurpleEnvelopesViewModel_Class

App/Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp

@@ -24,6 +24,78 @@
 		<p><%= HTML.Button("submit", "<i class='glyphicon glyphicon-ok'></i> Save", "btn-primary") %></p>
 		</form>
 		<p></p>
+		<hr>
+		<h4>Color Assignment</h4>
+		<div class="card mb-3">
+			<div class="card-header">
+				<strong>Assign Color to ALL Labels in Kit</strong>
+			</div>
+			<div class="card-body">
+				<%= HTML.FormTag("Kit","AssignKitColorPost",empty,empty) %>
+				<%= HTML.Hidden("nonce", HTMLSecurity.GetAntiCSRFToken("ColorAssignForm")) %>
+				<%= HTML.Hidden("Id", Model.Kit.ID) %>
+				<div class="row">
+					<div class="col-md-6">
+						<label>Select Color for All Labels:</label>
+						<%= HTML.DropDownListExt("KitColorId","",Model.ColorsDropDown,"ID","Name",Array("Class","form-select")) %>
+					</div>
+					<div class="col-md-6">
+						<p></p>
+						<%= HTML.Button("submit", "<i class='glyphicon glyphicon-ok'></i> Apply to All", "btn-success") %>
+					</div>
+				</div>
+				</form>
+			</div>
+		</div>
+		<div class="card mb-3">
+			<div class="card-header">
+				<strong>Assign Colors by Precinct</strong>
+			</div>
+			<div class="card-body">
+				<%= HTML.FormTag("Kit","AssignPrecinctColorsPost",empty,empty) %>
+				<%= HTML.Hidden("nonce", HTMLSecurity.GetAntiCSRFToken("ColorAssignForm")) %>
+				<%= HTML.Hidden("Id", Model.Kit.ID) %>
+				<table class="table table-striped">
+					<thead>
+						<tr>
+							<th>Precinct</th>
+							<th>Current Color</th>
+							<th>Assign New Color</th>
+						</tr>
+					</thead>
+					<tbody>
+					<%
+					dim precinctRS : set precinctRS = Model.Precincts
+					dim colorsRS
+					Do Until precinctRS.EOF
+					%>
+						<tr>
+							<td><%= H(precinctRS("PRECINCT")) %></td>
+							<td>
+								<% If Not IsNull(precinctRS("ColorId")) AND Len(precinctRS("ColorId")) > 0 Then %>
+									<% dim currentColor : set currentColor = ColorsRepository.FindByID(precinctRS("ColorId")) %>
+									<%= H(currentColor.Name) %>
+								<% Else %>
+									<em>Not assigned</em>
+								<% End If %>
+							</td>
+							<td>
+								<%
+								set colorsRS = ColorsRepository.GetColorsDropDownRS()
+								%>
+								<%= HTML.DropDownListExt("PrecinctColor_" & precinctRS("PRECINCT"), precinctRS("ColorId"), colorsRS, "ID", "Name", Array("Class","form-select form-select-sm")) %>
+							</td>
+						</tr>
+					<%
+						precinctRS.MoveNext
+					Loop
+					%>
+					</tbody>
+				</table>
+				<p><%= HTML.Button("submit", "<i class='glyphicon glyphicon-ok'></i> Save Precinct Colors", "btn-primary") %></p>
+				</form>
+			</div>
+		</div>
 		<% ELSE %>
 			<p><strong>Office Copies Amount :</strong> <%= Model.Kit.OfficeCopiesAmount %></p>
 		<%	END IF %>

App/include_all.asp

@@ -9,3 +9,4 @@
 <!--#include file="DomainModels/ContactsRepository.asp"-->
 <!--#include file="DomainModels/SnailWorksRepository.asp"-->
 <!--#include file="DomainModels/CustomOfficeCopyJobRepository.asp"-->
+<!--#include file="DomainModels/ColorsRepository.asp"-->

Data/Migrations/Migration_19_Create_Colors_Table.asp

@@ -9,57 +9,57 @@ Class Migration_19_Create_Colors_Table
                     "[Filepath] VARCHAR(255)" &_
                     ");"
         Migration.Do "CREATE UNIQUE INDEX [ID] ON [Colors]( [ID] ) WITH PRIMARY;"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Aqua', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Aqua.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Black', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Black.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Blue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Blue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Brown', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Brown.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('BurlyWood', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\BurlyWood.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Chocolate', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Chocolate.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Coral', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Coral.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('CornflowerBlue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\CornflowerBlue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Crimson', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Crimson.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DarkOrange', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\DarkOrange.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DeepPink', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\DeepPink.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DeepSkyBlue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\DeepSkyBlue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DimGray', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\DimGray.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DodgerBlue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\DodgerBlue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('FireBrick', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\FireBrick.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('ForestGreen', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\ForestGreen.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Fuchsia', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Fuchsia.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Gold', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Gold.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Goldenrod', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Goldenrod.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Green', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Green.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('HotPink', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\HotPink.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Indigo', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Indigo.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('LightSeaGreen', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\LightSeaGreen.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Lime', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Lime.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('LimeGreen', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\LimeGreen.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumOrchid', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\MediumOrchid.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumPurple', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\MediumPurple.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumTurquoise', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\MediumTurquoise.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Navy', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Navy.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Olive', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Olive.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('OliveDrab', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\OliveDrab.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Orange', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Orange.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('OrangeRed', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\OrangeRed.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Orchid', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Orchid.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Peru', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Peru.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Pink', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Pink.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Purple', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Purple.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Red', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Red.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('RoyalBlue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\RoyalBlue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SaddleBrown', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\SaddleBrown.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SeaGreen', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\SeaGreen.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Sienna', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Sienna.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Silver', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Silver.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SteelBlue', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\SteelBlue.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Tan', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Tan.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Teal', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Teal.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Tomato', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Tomato.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Turquoise', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Turquoise.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Violet', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Violet.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('White', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\White.bmp');"
-        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Yellow', '\\\\kci1\\inkjet\\BMP\\Purple_ballot_envelopes\\Yellow.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Aqua', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Aqua.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Black', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Black.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Blue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Blue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Brown', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Brown.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('BurlyWood', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\BurlyWood.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Chocolate', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Chocolate.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Coral', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Coral.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('CornflowerBlue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\CornflowerBlue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Crimson', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Crimson.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DarkOrange', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\DarkOrange.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DeepPink', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\DeepPink.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DeepSkyBlue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\DeepSkyBlue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DimGray', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\DimGray.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('DodgerBlue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\DodgerBlue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('FireBrick', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\FireBrick.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('ForestGreen', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\ForestGreen.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Fuchsia', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Fuchsia.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Gold', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Gold.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Goldenrod', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Goldenrod.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Green', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Green.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('HotPink', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\HotPink.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Indigo', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Indigo.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('LightSeaGreen', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\LightSeaGreen.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Lime', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Lime.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('LimeGreen', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\LimeGreen.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumOrchid', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\MediumOrchid.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumPurple', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\MediumPurple.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('MediumTurquoise', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\MediumTurquoise.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Navy', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Navy.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Olive', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Olive.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('OliveDrab', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\OliveDrab.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Orange', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Orange.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('OrangeRed', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\OrangeRed.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Orchid', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Orchid.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Peru', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Peru.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Pink', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Pink.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Purple', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Purple.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Red', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Red.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('RoyalBlue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\RoyalBlue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SaddleBrown', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\SaddleBrown.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SeaGreen', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\SeaGreen.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Sienna', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Sienna.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Silver', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Silver.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('SteelBlue', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\SteelBlue.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Tan', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Tan.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Teal', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Teal.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Tomato', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Tomato.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Turquoise', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Turquoise.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Violet', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Violet.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('White', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\White.bmp');"
+        Migration.Do "INSERT INTO [Colors] ([Name], [Filepath]) VALUES ('Yellow', '\\kci1\inkjet\BMP\Purple_ballot_envelopes\Yellow.bmp');"
     End Sub
     
     Public Sub Down

Data/Migrations/Migration_20_Add_ColorId_To_InkjetRecords.asp

@@ -0,0 +1,15 @@
+<%
+Class Migration_20_Add_ColorId_To_InkjetRecords
+    Public Migration
+
+    Public Sub Up
+        Migration.Do "ALTER TABLE [InkjetRecords] ADD [ColorId] Long;"
+    End Sub
+
+    Public Sub Down
+        Migration.Do "ALTER TABLE [InkjetRecords] DROP COLUMN [ColorId];"
+    End Sub
+End Class
+
+Migrations.Add "Migration_20_Add_ColorId_To_InkjetRecords"
+%>

Data/Migrations/migrate.asp

@@ -47,6 +47,7 @@ Migrations.Tracing = false
 <!--#include file="Migration_17_Alter_Kit_Table_With_OfficeCopiesAmount.asp"-->
 <!--#include file="Migration_18_Create_CustomOfficeCopyJob_Table.asp"-->
 <!--#include file="Migration_19_Create_Colors_Table.asp"-->
+<!--#include file="Migration_20_Add_ColorId_To_InkjetRecords.asp"-->
 <%
 Sub HandleMigration
     putl "<b>Starting Version: " & Migrations.Version & "</b>"

Data/Proofs.rep

@@ -23,31 +23,101 @@ object TRpReport
       Alias = 'KITLABELS'
       DatabaseAlias = 'WEBDATA'
       SQL = 
-        'SELECT * FROM ('#13#10'    SELECT '#13#10'        IIf(Len([PRECINCT]) = 1, '#39 +
-        '0'#39' & [PRECINCT] & Right([BALLOT_NUMBER],4), [PRECINCT] & Right([' +
-        'BALLOT_NUMBER],4)) AS SORT_ORDER,'#13#10'        InkjetRecords.ID, Ink' +
-        'jetRecords.KitID, InkjetRecords.VOTERID, InkjetRecords.LASTNAME,' +
-        #13#10'        InkjetRecords.FIRSTNAME, InkjetRecords.MIDDLENAME, Ink' +
-        'jetRecords.SUFFIX, InkjetRecords.PRECINCT,'#13#10'        InkjetRecord' +
-        's.ADDRESS1, InkjetRecords.ADDRESS2, InkjetRecords.ADDRESS3, Inkj' +
-        'etRecords.ADDRESS4,'#13#10'        InkjetRecords.ADDRESS5, InkjetRecor' +
-        'ds.APPSENT, InkjetRecords.APPRETURNED, InkjetRecords.BALSENT,'#13#10' ' +
-        '       InkjetRecords.BALRETURNED, InkjetRecords.CountingBoard, I' +
-        'nkjetRecords.UOCAVASTATUS, InkjetRecords.EMAILADDRESS,'#13#10'        ' +
-        'InkjetRecords.PHONENUMBER, BALLOT_NUMBER, InkjetRecords.CassADDR' +
-        'ESS1, InkjetRecords.CassADDRESS2,'#13#10'        InkjetRecords.CassADD' +
-        'RESS3, InkjetRecords.CassADDRESS4, InkjetRecords.CassADDRESS5, I' +
-        'nkjetRecords.KitLabelID,'#13#10'        KitLabels.ID AS KitLabelID, Ki' +
-        'tLabels.KitID, KitLabels.OutboundSerial, KitLabels.InBoundSerial' +
-        ','#13#10'        KitLabels.OutboundIMB, KitLabels.InBoundIMB, KitLabel' +
-        's.OutboundIMBDigits, KitLabels.InBoundIMBDigits,'#13#10'        KitLab' +
-        'els.OutboundIMBPNG, KitLabels.INBOUNDIMBPNG, KitLabels.SetNumber' +
-        #13#10'    FROM InkjetRecords'#13#10'    LEFT JOIN KitLabels ON InkjetRecor' +
-        'ds.KitLabelID = KitLabels.ID'#13#10'    WHERE InkjetRecords.KitID = PB' +
-        'KITID '#13#10'      AND InkjetRecords.ID >= PBMIN '#13#10'      AND InkjetRe' +
-        'cords.ID <= PBMAX'#13#10') AS data '#13#10'ORDER BY '#13#10'    Val(PRECINCT), PRE' +
-        'CINCT, '#13#10'    Val(Right(BALLOT_NUMBER, 4)), Right(BALLOT_NUMBER, ' +
-        '4);'
+        'SELECT *                                                        ' +
+        '                                                                ' +
+        '                                               '#13#10'  FROM (       ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                                  '#13#10'      SELECT                ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                     '#13#10'          IIf(Len([PRECINCT]) = 1,       ' +
+        '                                                                ' +
+        '                                                                ' +
+        '        '#13#10'              '#39'0'#39' & [PRECINCT] & Right([BALLOT_NUMBER]' +
+        ',4),                                                            ' +
+        '                                                           '#13#10'   ' +
+        '           [PRECINCT] & Right([BALLOT_NUMBER],4)                ' +
+        '                                                                ' +
+        '                                              '#13#10'          ) AS S' +
+        'ORT_ORDER,                                                      ' +
+        '                                                                ' +
+        '                                 '#13#10'          InkjetRecords.ID, I' +
+        'nkjetRecords.KitID, InkjetRecords.VOTERID, InkjetRecords.LASTNAM' +
+        'E,                                                              ' +
+        '                    '#13#10'          InkjetRecords.FIRSTNAME, InkjetR' +
+        'ecords.MIDDLENAME, InkjetRecords.SUFFIX, InkjetRecords.PRECINCT,' +
+        '                                                                ' +
+        '       '#13#10'          InkjetRecords.ADDRESS1, InkjetRecords.ADDRESS' +
+        '2, InkjetRecords.ADDRESS3, InkjetRecords.ADDRESS4,              ' +
+        '                                                          '#13#10'    ' +
+        '      InkjetRecords.ADDRESS5, InkjetRecords.APPSENT, InkjetRecor' +
+        'ds.APPRETURNED, InkjetRecords.BALSENT,                          ' +
+        '                                             '#13#10'          InkjetR' +
+        'ecords.BALRETURNED, InkjetRecords.CountingBoard, InkjetRecords.U' +
+        'OCAVASTATUS, InkjetRecords.EMAILADDRESS,                        ' +
+        '                                '#13#10'          InkjetRecords.PHONEN' +
+        'UMBER, InkjetRecords.BALLOT_NUMBER,                             ' +
+        '                                                                ' +
+        '                   '#13#10'          InkjetRecords.CassADDRESS1, Inkje' +
+        'tRecords.CassADDRESS2,                                          ' +
+        '                                                                ' +
+        '      '#13#10'          InkjetRecords.CassADDRESS3, InkjetRecords.Cass' +
+        'ADDRESS4, InkjetRecords.CassADDRESS5,                           ' +
+        '                                                         '#13#10'     ' +
+        '     InkjetRecords.KitLabelID AS InkjetKitLabelID,              ' +
+        '                                                                ' +
+        '                                            '#13#10'          InkjetRe' +
+        'cords.ColorId, Colors.Filepath AS ColorFilepath,IIf(IsNull(Color' +
+        's.Name) OR Colors.Name = "", "White", Colors.Name) AS ColorName ' +
+        ' ,                                                              ' +
+        '                                        '#13#10'          KitLabels.ID' +
+        ' AS KitLabelID, KitLabels.KitID, KitLabels.OutboundSerial, KitLa' +
+        'bels.InBoundSerial,                                             ' +
+        '                           '#13#10'          KitLabels.OutboundIMB, Ki' +
+        'tLabels.InBoundIMB, KitLabels.OutboundIMBDigits, KitLabels.InBou' +
+        'ndIMBDigits,                                                    ' +
+        '              '#13#10'          KitLabels.OutboundIMBPNG, KitLabels.IN' +
+        'BOUNDIMBPNG, KitLabels.SetNumber                                ' +
+        '                                                                ' +
+        ' '#13#10'      FROM                                                   ' +
+        '                                                                ' +
+        '                                                    '#13#10'          ' +
+        '((InkjetRecords                                                 ' +
+        '                                                                ' +
+        '                                        '#13#10'              LEFT JOI' +
+        'N KitLabels                                                     ' +
+        '                                                                ' +
+        '                           '#13#10'                  ON InkjetRecords.' +
+        'KitLabelID = KitLabels.ID                                       ' +
+        '                                                                ' +
+        '              '#13#10'          )                                     ' +
+        '                                                                ' +
+        '                                                                ' +
+        ' '#13#10'          LEFT JOIN Colors                                   ' +
+        '                                                                ' +
+        '                                                    '#13#10'          ' +
+        '    ON InkjetRecords.ColorId = Colors.ID)                       ' +
+        '                                                                ' +
+        '                                        '#13#10'      WHERE InkjetReco' +
+        'rds.KitID =  PBKITID                                            ' +
+        '                                                                ' +
+        '                   '#13#10'        AND InkjetRecords.ID >= PBMIN      ' +
+        '                                                                ' +
+        '                                                           '#13#10'   ' +
+        '     AND InkjetRecords.ID <= PBMAX                              ' +
+        '                                                                ' +
+        '                                       '#13#10'  ) AS data            ' +
+        '                                                                ' +
+        '                                                                ' +
+        '                          '#13#10'  ORDER BY                          ' +
+        '                                                                ' +
+        '                                                                ' +
+        '             '#13#10'      Val(data.PRECINCT), data.PRECINCT,         ' +
+        '                                                                ' +
+        '                                                                ' +
+        #13#10'      Val(Right(data.BALLOT_NUMBER, 4)), Right(data.BALLOT_NUM' +
+        'BER, 4);'
     end
     item
       Alias = 'JURISDICTION'
@@ -76,15 +146,14 @@ object TRpReport
       ReportField = 'REPORT'
       ReportGroupsTable = 'REPMAN_GROUPS'
       ADOConnectionString = 
-        'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data So' +
-        'urce=C:\inetpub\Data\webdata - Copy.mdb;Persist Security Info=Fa' +
-        'lse;'
+        'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Development\Tra' +
+        'cking_Kits\Data\webdata - Copy.mdb;'
     end>
   Params = <
     item
       Name = 'PBKITID'
       AllowNulls = False
-      Value = 610
+      Value = 208
       ParamType = rpParamInteger
       Datasets.Strings = (
         'KIT'
@@ -101,7 +170,7 @@ object TRpReport
     item
       Name = 'PBJCODE'
       AllowNulls = False
-      Value = '01840'
+      Value = '34000'
       Datasets.Strings = (
         'JURISDICTION'
         'CONTACTS')
@@ -114,7 +183,7 @@ object TRpReport
     item
       Name = 'PBMIN'
       AllowNulls = False
-      Value = 1865338
+      Value = 346103
       ParamType = rpParamInteger
       Datasets.Strings = (
         'KITLABELS')
@@ -127,7 +196,7 @@ object TRpReport
     item
       Name = 'PBMAX'
       AllowNulls = False
-      Value = 1875828
+      Value = 347342
       ParamType = rpParamInteger
       Datasets.Strings = (
         'KITLABELS')
@@ -1909,6 +1978,9 @@ object TRpReport
       end
       item
         Component = TRpExpression22
+      end
+      item
+        Component = TRpImage0
       end>
     ExternalTable = 'REPMAN_REPORTS'
     ExternalField = 'REPORT'
@@ -1916,7 +1988,7 @@ object TRpReport
     StreamFormat = rpStreamText
     BackStyle = baPrint
     DrawStyle = rpDrawStretch
-    CachedImage = rpCachedFixed
+    CachedImage = rpCachedVariable
     PrintCondition = ''
     DoBeforePrint = ''
     DoAfterPrint = ''
@@ -7554,7 +7626,7 @@ object TRpReport
     PosX = 8055
     PosY = 5865
     Modul = 17
-    Ratio = 3.000000000000000000
+    Ratio = 3.00000000000000000
     Typ = bcCode39
     NumColumns = 1
     NumRows = 1
@@ -7926,4 +7998,19 @@ object TRpReport
     AgIniValue = '0'
     ExportExpression = ''
   end
+  object TRpImage0: TRpImage
+    Width = 4245
+    Height = 240
+    PosX = 8055
+    PosY = 5400
+    DrawStyle = rpDrawTiledpi
+    CachedImage = rpCachedVariable
+    PrintCondition = ''
+    DoBeforePrint = ''
+    DoAfterPrint = ''
+    Expression = 
+      #39'\\kci1\inkjet\BMP\Purple_ballot_envelopes\'#39' +  KITLABELS.ColorN' +
+      'ame + '#39'.bmp'#39
+    Stream = {0000000000000000}
+  end
 end