dcovington
/
tracking_kits
1
0
Fork 0
Código Issues 0 Pull requests 0 Versões 0 Wiki Atividade
Etiquetas Marcos
Novo pull request

#10 color_picker

Merge aplicado
dcovington aplicou merge dos 2 commits de color_picker em master 3 dias atrás
Conversação 0 Commits 2 Arquivos alterados 12
12 arquivos alterados com 8346 adições e 93 exclusões
Espaço em branco
Mostrar todas as alterações Ignorar todas as alterações de espaço em branco Ignorar alterações na quantidade de espaço em branco Ignorar alterações com espaço em branco no final da linha
Visão dividida
Opções de diferenças
Mostrar estatísticas Baixar arquivo de patch Baixar arquivo de diferenças
  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
  12. BIN
      ImportService/TrackingDataImport.vbs

+ 38
- 2
App/Controllers/Kit/KitController.asp Ver arquivo

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

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

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

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

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

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

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

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

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

@@ -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
Diferenças do arquivo suprimidas por serem muito extensas
Ver arquivo


BIN
ImportService/TrackingDataImport.vbs Ver arquivo


Escrever Pré-visualização
Carregando…
Cancelar
Salvar

Powered by TurnKey Linux.