|
@@ -85,15 +85,14 @@ Function ExportInkjetFile(KitID) |
|
|
objInkjetCSV.SetColumnName 9,"Jurisdiction code" |
|
|
objInkjetCSV.SetColumnName 9,"Jurisdiction code" |
|
|
objInkjetCSV.SetColumnName 10,"Election Date" |
|
|
objInkjetCSV.SetColumnName 10,"Election Date" |
|
|
objInkJetCSV.SetColumnName 11,"Combined Pct_Ballot Num" |
|
|
objInkJetCSV.SetColumnName 11,"Combined Pct_Ballot Num" |
|
|
objInkJetCSV.SetColumnName 12,"Voter ID" |
|
|
|
|
|
objInkJetCSV.SetColumnName 13,"2D Matrix Barcode" |
|
|
|
|
|
objInkJetCSV.SetColumnName 14,"G2 Full Name" |
|
|
|
|
|
objInkJetCSV.SetColumnName 15,"G2 Company" |
|
|
|
|
|
objInkJetCSV.SetColumnName 16,"G2 Alternate 1 Address" |
|
|
|
|
|
objInkJetCSV.SetColumnName 17,"G2 Delivery Address" |
|
|
|
|
|
objInkJetCSV.SetColumnName 18,"G2 City St ZIP+4" |
|
|
|
|
|
objInkJetCSV.SetColumnName 19,"G2 IM barcode Characters" |
|
|
|
|
|
objInkJetCSV.SetColumnName 20,"NEW Ballot No f" |
|
|
|
|
|
|
|
|
objInkJetCSV.SetColumnName 12,"2D Matrix Barcode" |
|
|
|
|
|
objInkJetCSV.SetColumnName 13,"G2 Full Name" |
|
|
|
|
|
objInkJetCSV.SetColumnName 14,"G2 Company" |
|
|
|
|
|
objInkJetCSV.SetColumnName 15,"G2 Alternate 1 Address" |
|
|
|
|
|
objInkJetCSV.SetColumnName 16,"G2 Delivery Address" |
|
|
|
|
|
objInkJetCSV.SetColumnName 17,"G2 City St ZIP+4" |
|
|
|
|
|
objInkJetCSV.SetColumnName 18,"G2 IM barcode Characters" |
|
|
|
|
|
objInkJetCSV.SetColumnName 19,"Matching Code" |
|
|
|
|
|
|
|
|
Dim AddressArray |
|
|
Dim AddressArray |
|
|
Dim row:row = 0 |
|
|
Dim row:row = 0 |
|
@@ -106,11 +105,11 @@ Dim row:row = 0 |
|
|
objInkjetCSV.SetCellByName row,"City St ZIP+4",AddressArray(4) |
|
|
objInkjetCSV.SetCellByName row,"City St ZIP+4",AddressArray(4) |
|
|
objInkJetCSV.SetCellByName row,"IM barcode Characters",KitLabelsRs("OutboundIMBDigits").Value |
|
|
objInkJetCSV.SetCellByName row,"IM barcode Characters",KitLabelsRs("OutboundIMBDigits").Value |
|
|
objInkJetCSV.SetCellByName row,"Precinct",KitLabelsRs("PRECINCT").Value |
|
|
objInkJetCSV.SetCellByName row,"Precinct",KitLabelsRs("PRECINCT").Value |
|
|
objInkJetCSV.SetCellByName row,"Ballot ID",KitLabelsRs("VOTERID").Value |
|
|
|
|
|
|
|
|
objInkJetCSV.SetCellByName row,"Ballot ID",KitLabelsRs("VOTERID").Value |
|
|
|
|
|
objInkJetCSV.SetCellByName row,"Ballot Number",TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value) |
|
|
objInkJetCSV.SetCellByName row,"Jurisdiction code",KitRs("Jcode").Value |
|
|
objInkJetCSV.SetCellByName row,"Jurisdiction code",KitRs("Jcode").Value |
|
|
objInkJetCSV.SetCellByName row,"Election Date",ElectionDate |
|
|
objInkJetCSV.SetCellByName row,"Election Date",ElectionDate |
|
|
objInkJetCSV.SetCellByName row,"Combined Pct_Ballot Num",KitLabelsRs("PRECINCT").Value & KitLabelsRs("BALLOT_NUMBER").Value |
|
|
objInkJetCSV.SetCellByName row,"Combined Pct_Ballot Num",KitLabelsRs("PRECINCT").Value & KitLabelsRs("BALLOT_NUMBER").Value |
|
|
objInkJetCSV.SetCellByName row,"Voter ID",KitLabelsRs("VOTERID").Value |
|
|
|
|
|
objInkJetCSV.SetCellByName row,"2D Matrix Barcode",KitRs("Jcode").Value & KitLabelsRs("BALLOT_NUMBER").Value |
|
|
objInkJetCSV.SetCellByName row,"2D Matrix Barcode",KitRs("Jcode").Value & KitLabelsRs("BALLOT_NUMBER").Value |
|
|
objInkJetCSV.SetCellByName row,"G2 Full Name",JurisdictionRs("Name").Value |
|
|
objInkJetCSV.SetCellByName row,"G2 Full Name",JurisdictionRs("Name").Value |
|
|
objInkJetCSV.SetCellByName row,"G2 Company",JurisdictionRs("Mailing_Address").Value |
|
|
objInkJetCSV.SetCellByName row,"G2 Company",JurisdictionRs("Mailing_Address").Value |
|
@@ -118,7 +117,7 @@ Dim row:row = 0 |
|
|
objInkJetCSV.SetCellByName row,"G2 Delivery Address","" |
|
|
objInkJetCSV.SetCellByName row,"G2 Delivery Address","" |
|
|
objInkJetCSV.SetCellByName row,"G2 City St ZIP+4","" |
|
|
objInkJetCSV.SetCellByName row,"G2 City St ZIP+4","" |
|
|
objInkJetCSV.SetCellByName row,"G2 IM barcode Characters",JurisdictionRs("IMB_Digits").Value |
|
|
objInkJetCSV.SetCellByName row,"G2 IM barcode Characters",JurisdictionRs("IMB_Digits").Value |
|
|
objInkJetCSV.SetCellByName row,"NEW Ballot No f",TrimLeadingZeros(KitLabelsRs("PRECINCT").Value) & TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value) |
|
|
|
|
|
|
|
|
objInkJetCSV.SetCellByName row,"Matching Code",KitRs("Jcode").Value & TrimLeadingZeros(KitLabelsRs("PRECINCT").Value) & TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value) |
|
|
'Where do we put the roundtrip IMB |
|
|
'Where do we put the roundtrip IMB |
|
|
row = row + 1 |
|
|
row = row + 1 |
|
|
KitLabelsRs.MoveNext |
|
|
KitLabelsRs.MoveNext |
|
|