dcovington
/
tracking_kits
1
0
Fork 0
Code Issues 0 Pull-Requests 0 Releases 0 Wiki Aktivität
Quellcode durchsuchen

Add color assignment to purple envelope kits by kit or precinct

pull/10/head
Daniel Covington vor 2 Tagen
Ursprung
b90f673342
Commit
134b180878
11 geänderte Dateien mit 8346 neuen und 93 gelöschten Zeilen
Geteilte Ansicht
Diff-Optionen
Statistiken anzeigen Patch-Datei herunterladen Vergleichs-Datei herunterladen
  1. +38
    -2
      App/Controllers/Kit/KitController.asp
  2. +91
    -0
      App/DomainModels/ColorsRepository.asp
  3. +25
    -6
      App/DomainModels/InkjetRecordsRepository.asp
  4. +2
    -0
      App/ViewModels/KitViewModels.asp
  5. +72
    -0
      App/Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp
  6. +1
    -0
      App/include_all.asp
  7. +51
    -51
      Data/Migrations/Migration_19_Create_Colors_Table.asp
  8. +15
    -0
      Data/Migrations/Migration_20_Add_ColorId_To_InkjetRecords.asp
  9. +1
    -0
      Data/Migrations/migrate.asp
  10. +121
    -34
      Data/Proofs.rep
  11. +7929
    -0
      Data/Proofs_old.rep

+ 38
- 2
App/Controllers/Kit/KitController.asp Datei anzeigen

@@ -58,16 +58,52 @@ Class KitController
MVC.RedirectToAction "Index"
'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")
set Model = new SwitchBoard_ViewModel_Class
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



+ 91
- 0
App/DomainModels/ColorsRepository.asp Datei anzeigen

@@ -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
%>

+ 25
- 6
App/DomainModels/InkjetRecordsRepository.asp Datei anzeigen

@@ -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


+ 2
- 0
App/ViewModels/KitViewModels.asp Datei anzeigen

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

Class SwitchBoard_PurpleEnvelopesViewModel_Class


+ 72
- 0
App/Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp Datei anzeigen

@@ -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 %>


+ 1
- 0
App/include_all.asp Datei anzeigen

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

+ 51
- 51
Data/Migrations/Migration_19_Create_Colors_Table.asp Datei anzeigen

@@ -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


+ 15
- 0
Data/Migrations/Migration_20_Add_ColorId_To_InkjetRecords.asp Datei anzeigen

@@ -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"
%>

+ 1
- 0
Data/Migrations/migrate.asp Datei anzeigen

@@ -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>"


+ 121
- 34
Data/Proofs.rep Datei anzeigen

@@ -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

+ 7929
- 0
Data/Proofs_old.rep
Datei-Diff unterdrückt, da er zu groß ist
Datei anzeigen


Verfassen Vorschau
Laden…
Abbrechen
Speichern

Powered by TurnKey Linux.