diff --git a/Data/Proofs.rep b/Data/Proofs.rep index 87b8b3b..0f4d37c 100644 --- a/Data/Proofs.rep +++ b/Data/Proofs.rep @@ -127,6 +127,12 @@ object TRpReport end item Component = TRpExpression3 + end + item + Component = TRpExpression7 + end + item + Component = TRpExpression8 end> ExternalTable = 'REPMAN_REPORTS' ExternalField = 'REPORT' @@ -1805,6 +1811,33 @@ object TRpReport item Component = TRpExpression0 end + item + Component = TRpExpression9 + end + item + Component = TRpExpression11 + end + item + Component = TRpExpression12 + end + item + Component = TRpExpression13 + end + item + Component = TRpExpression14 + end + item + Component = TRpBarcode0 + end + item + Component = TRpExpression15 + end + item + Component = TRpExpression16 + end + item + Component = TRpExpression17 + end item Component = TRpExpression4 end @@ -1813,6 +1846,9 @@ object TRpReport end item Component = TRpExpression6 + end + item + Component = TRpExpression10 end> ExternalTable = 'REPMAN_REPORTS' ExternalField = 'REPORT' @@ -4021,8 +4057,8 @@ object TRpReport object TRpExpression0: TRpExpression Width = 4200 Height = 264 - PosX = 8400 - PosY = 7125 + PosX = 8055 + PosY = 6775 Type1Font = poHelvetica AutoExpand = False AutoContract = False @@ -4043,7 +4079,7 @@ object TRpReport object TRpExpression2: TRpExpression Width = 4200 Height = 264 - PosX = 6555 + PosX = 7590 PosY = 6090 Type1Font = poHelvetica AutoExpand = False @@ -4065,7 +4101,7 @@ object TRpReport object TRpExpression3: TRpExpression Width = 4200 Height = 264 - PosX = 6555 + PosX = 7590 PosY = 6555 Type1Font = poHelvetica AutoExpand = False @@ -4087,7 +4123,7 @@ object TRpReport object TRpExpression1: TRpExpression Width = 4200 Height = 264 - PosX = 6555 + PosX = 7590 PosY = 6330 Type1Font = poHelvetica AutoExpand = False @@ -4106,12 +4142,61 @@ object TRpReport AgIniValue = '0' ExportExpression = '' end - object TRpExpression4: TRpExpression - Width = 4200 - Height = 264 + object TRpExpression8: TRpExpression + Width = 5745 + Height = 345 + PosX = 6670 + PosY = 6905 + Type1Font = poEmbedded + FontSize = 16 + FontStyle = 1 + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'USPSIMBStandard' + LFontName = 'Helvetica' + Expression = 'JURISDICTION.IMB' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression9: TRpExpression + Width = 5745 + Height = 345 PosX = 8160 - PosY = 5295 + PosY = 8505 + Type1Font = poEmbedded + FontSize = 16 + FontStyle = 1 + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'USPSIMBStandard' + LFontName = 'Helvetica' + Expression = 'JURISDICTION.IMB' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression7: TRpExpression + Width = 3600 + Height = 315 + PosX = 7590 + PosY = 5865 Type1Font = poHelvetica + DataType = rpParamString AutoExpand = False AutoContract = False ExportPosition = 0 @@ -4122,17 +4207,222 @@ object TRpReport DoAfterPrint = '' WFontName = 'Arial' LFontName = 'Helvetica' - Expression = 'JURISDICTION.Name' + Expression = #39'CLERK'#39 + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression12: TRpExpression + Width = 1661 + Height = 264 + PosX = 12049 + PosY = 1361 + Type1Font = poHelvetica + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.BALLOT_NUMBER' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression13: TRpExpression + Width = 348 + Height = 1152 + PosX = 13224 + PosY = 3334 + Type1Font = poHelvetica + FontRotation = -900 + SingleLine = True + DataType = rpParamString + AutoExpand = False + AutoContract = False + PrintOnlyOne = True + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.BALLOT_NUMBER' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression11: TRpExpression + Width = 2033 + Height = 264 + PosX = 12072 + PosY = 1032 + Type1Font = poHelvetica + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.PRECINCT' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression14: TRpExpression + Width = 348 + Height = 1728 + PosX = 13224 + PosY = 4368 + Type1Font = poHelvetica + FontRotation = -900 + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.PRECINCT' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpBarcode0: TRpBarcode + Width = 4830 + Height = 465 + PosX = 8390 + PosY = 5745 + Modul = 17 + Ratio = 3.000000000000000000 + Typ = bcCode39 + NumColumns = 1 + NumRows = 1 + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + DisplayFormat = '' + Expression = 'KITLABELS.VOTERID' + end + object TRpExpression15: TRpExpression + Width = 1035 + Height = 240 + PosX = 8400 + PosY = 6315 + Type1Font = poHelvetica + FontSize = 8 + DataType = rpParamDate + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = #39'8/5/2024'#39 + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression16: TRpExpression + Width = 1035 + Height = 240 + PosX = 9550 + PosY = 6315 + Type1Font = poHelvetica + FontSize = 8 + DataType = rpParamDate + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.PRECINCT' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression17: TRpExpression + Width = 1035 + Height = 240 + PosX = 11850 + PosY = 6315 + Type1Font = poHelvetica + FontSize = 8 + DataType = rpParamDate + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.PRECINCT + '#13#10'KITLABELS.BALLOT_NUMBER' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression4: TRpExpression + Width = 1035 + Height = 240 + PosX = 10700 + PosY = 6315 + Type1Font = poHelvetica + FontSize = 8 + DataType = rpParamString + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.BALLOT_NUMBER' DisplayFormat = '' ExportDisplayFormat = '' AgIniValue = '0' ExportExpression = '' end object TRpExpression5: TRpExpression - Width = 4200 + Width = 4800 Height = 264 - PosX = 8160 - PosY = 5760 + PosX = 8050 + PosY = 7015 Type1Font = poHelvetica AutoExpand = False AutoContract = False @@ -4144,17 +4434,17 @@ object TRpReport DoAfterPrint = '' WFontName = 'Arial' LFontName = 'Helvetica' - Expression = 'JURISDICTION.CSZ' + Expression = 'KITLABELS.CassADDRESS3' DisplayFormat = '' ExportDisplayFormat = '' AgIniValue = '0' ExportExpression = '' end object TRpExpression6: TRpExpression - Width = 4200 + Width = 4800 Height = 264 - PosX = 8160 - PosY = 5535 + PosX = 8050 + PosY = 7265 Type1Font = poHelvetica AutoExpand = False AutoContract = False @@ -4166,7 +4456,29 @@ object TRpReport DoAfterPrint = '' WFontName = 'Arial' LFontName = 'Helvetica' - Expression = 'JURISDICTION.Mailing_Address' + Expression = 'KITLABELS.CassADDRESS4' + DisplayFormat = '' + ExportDisplayFormat = '' + AgIniValue = '0' + ExportExpression = '' + end + object TRpExpression10: TRpExpression + Width = 4800 + Height = 264 + PosX = 8055 + PosY = 7465 + Type1Font = poHelvetica + AutoExpand = False + AutoContract = False + ExportPosition = 0 + ExportSize = 1 + ExportDoNewLine = False + PrintCondition = '' + DoBeforePrint = '' + DoAfterPrint = '' + WFontName = 'Arial' + LFontName = 'Helvetica' + Expression = 'KITLABELS.CassADDRESS5' DisplayFormat = '' ExportDisplayFormat = '' AgIniValue = '0' diff --git a/Data/purple_envelope_sample_Page_1.jpg b/Data/purple_envelope_sample_Page_1.jpg new file mode 100644 index 0000000..0eed26c Binary files /dev/null and b/Data/purple_envelope_sample_Page_1.jpg differ diff --git a/Data/purple_envelope_sample_Page_2.jpg b/Data/purple_envelope_sample_Page_2.jpg new file mode 100644 index 0000000..f11c252 Binary files /dev/null and b/Data/purple_envelope_sample_Page_2.jpg differ diff --git a/ImportService/TrackingDataImport.vbs b/ImportService/TrackingDataImport.vbs index 6d662ab..00a8fbf 100644 --- a/ImportService/TrackingDataImport.vbs +++ b/ImportService/TrackingDataImport.vbs @@ -115,69 +115,72 @@ Function CreateExportForSnailWorks(KitID) If objFSO.FileExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName) Then:objFSO.DeleteFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName):End If Dim objExportFile:set objExportFile = objFSO.CreateTextFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName,2) - objExportFile.Write("H") 'Record Type Required value must be = "H" (Header) - objExportFile.Write(PadString("5.1",5)) 'Version Required value must be ="5.1" for current release - objExportFile.Write(PadString("?",50)) 'UserId Required - objExportFile.Write(PadString(JurisdictionRs("Name").Value,50)) 'Client Name Required (will create new subaccount if not already defined) - objExportFile.Write(PadString("",50)) 'Parent Client Name Optional (use if 3-tier account structure) - objExportFile.Write(PadString("Purple envelope - " &_ - KitRs("JobNumber").Value,50)) 'Job Name Required - objExportFile.Write(PadString("",50)) 'Job Description Optional - objExportFile.Write(PadString("",50)) 'Split Name Optional – will default to ‘Default’ - objExportFile.Write(PadString("",80)) 'Split Description Optional - objExportFile.Write(PadString("L",1)) 'Piece Type Required L-Letters, C-Cards, F-Flats - objExportFile.Write(PadString(Year(Now()) & "/" &_ - Right("0" & Month(Now()), 2) & "/" & Right("0" & Day(Now()), 2),10)) 'MailDate Required (YYYY/MM/DD) - objExportFile.Write(PadString("N",1)) 'UploadType Required N = New job, new split A = Append new split to existing job R = Replace existing split - objExportFile.Write(PadString("",8)) 'TrackedQuantity Optional - objExportFile.Write(PadString("",8)) 'PiecesMailed Optional – shown as Estimated Quantity - objExportFile.Write(PadString("",10)) 'Target InHomeDateStart Optional (YYYY/MM/DD) - objExportFile.Write(PadString("",10)) 'Target InHomeDateEnd Optional (YYYY/MM/DD) - objExportFile.Write(PadString("",100)) 'ConfirmationEmail Optional - objExportFile.Write(PadString("",9)) 'JobId (SW) Optional for previously created jobs SWJobId - objExportFile.Write(PadString("",4)) 'SplitId (SW) Optional for previously created jobs SWJobId - objExportFile.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"O","R"),1))'TypeofTracking Required Values: O- Outbound Only I-Inbound Only R-Round Trip - objExportFile.Write(PadString("",11)) 'ReturnedPostalRoutingCode - objExportFile.Write(PadString("",2)) 'ReportId1 - objExportFile.Write(PadString("",255)) 'Report1Email - objExportFile.Write(PadString("",2)) 'ReportId2 - objExportFile.Write(PadString("",255)) 'Report2Email - objExportFile.Write(vbCrLf) + With objExportFile + .Write("H") 'Record Type Required value must be = "H" (Header) + .Write(PadString("5.1",5)) 'Version Required value must be ="5.1" for current release + .Write(PadString("KCI",50)) 'UserId Required + .Write(PadString(JurisdictionRs("Name").Value,50)) 'Client Name Required (will create new subaccount if not already defined) + .Write(PadString("",50)) 'Parent Client Name Optional (use if 3-tier account structure) + .Write(PadString("Purple envelope - " & KitRs("JobNumber").Value,50)) 'Job Name Required + .Write(PadString("",50)) 'Job Description Optional + .Write(PadString("",50)) 'Split Name Optional – will default to ‘Default’ + .Write(PadString("",80)) 'Split Description Optional + .Write(PadString("L",1)) 'Piece Type Required L-Letters, C-Cards, F-Flats + .Write(PadString(Year(Now()) & "/" &_ + Right("0" & Month(Now()), 2) & "/" & Right("0" & Day(Now()), 2),10)) 'MailDate Required (YYYY/MM/DD) + .Write(PadString("N",1)) 'UploadType Required N = New job, new split A = Append new split to existing job R = Replace existing split + .Write(PadString("",8)) 'TrackedQuantity Optional + .Write(PadString("",8)) 'PiecesMailed Optional – shown as Estimated Quantity + .Write(PadString("",10)) 'Target InHomeDateStart Optional (YYYY/MM/DD) + .Write(PadString("",10)) 'Target InHomeDateEnd Optional (YYYY/MM/DD) + .Write(PadString("",100)) 'ConfirmationEmail Optional + .Write(PadString("",9)) 'JobId (SW) Optional for previously created jobs SWJobId + .Write(PadString("",4)) 'SplitId (SW) Optional for previously created jobs SWJobId + .Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"O","R"),1)) 'TypeofTracking Required Values: O- Outbound Only I-Inbound Only R-Round Trip + .Write(PadString("",11)) 'ReturnedPostalRoutingCode + .Write(PadString("",2)) 'ReportId1 + .Write(PadString("",255)) 'Report1Email + .Write(PadString("",2)) 'ReportId2 + .Write(PadString("",255)) 'Report2Email + .Write(vbCrLf) While Not KitLabelsRs.EOF - objExportFile.Write("D") 'RecordType Required value must be = “D” (Detail) - objExportFile.Write(PadString("",20)) 'CustomerUniqueIdentifier Optional- any identifier you designate - objExportFile.Write(PadString(KitLabelsRs("OutboundIMBDigits"),31)) 'IMB Required – Unencoded, numeric IMB - objExportFile.Write(PadString((""),10)) 'Greeting Optional - objExportFile.Write(PadString((""),50)) 'First Name Optional - objExportFile.Write(PadString((""),2)) 'MI Optional - objExportFile.Write(PadString((""),50)) 'Last Name Optional - objExportFile.Write(PadString((""),10)) 'Suffix Optional - objExportFile.Write(PadString((KitLabelsRs("CassADDRESS1").Value),100)) 'Full Name Optional - objExportFile.Write(PadString((""),50)) 'Company Optional - objExportFile.Write(PadString((""),50)) 'Title Optional - objExportFile.Write(PadString(KitLabelsRs("CassADDRESS3").Value,128)) 'Address1 Optional - objExportFile.Write(PadString(KitLabelsRs("CassADDRESS4").Value,128)) 'Address2 Optional - objExportFile.Write(PadString(Left(KitLabelsRs("CassADDRESS5").Value, InStr(KitLabelsRs("CassADDRESS5").Value, ",") - 1),50)) 'City Optional - objExportFile.Write(PadString(Mid(KitLabelsRs("CassADDRESS5").Value, InStr(KitLabelsRs("CassADDRESS5").Value, ",") + 2, 2),2)) 'State Optional - objExportFile.Write PadString(Right(KitLabelsRs("CassADDRESS5").Value,11),11)'Zip Optional - objExportFile.Write(PadString(KitRs("Jcode"),100)) 'UserDefined1 Optional - Summary fields only - objExportFile.Write(PadString((""),100)) 'UserDefined2 Optional - Summary fields only - objExportFile.Write(PadString((""),100)) 'UserDefined3 Optional - Summary fields only - objExportFile.Write(PadString(KitLabelsRs("PRECINCT").Value & KitLabelsRs("BALLOT_NUMBER"),80)) 'UserDefinedIdentifier4 Optional – Allows for unique identifiers - objExportFile.Write(PadString(KitLabelsRs("VOTERID").Value,80)) 'UserDefinedIdentifier5 Optional – Allows for unique identifiers - objExportFile.Write(PadString((""),1)) 'SeedIndicator Optional - if true provide ‘Y’ - objExportFile.Write(PadString((""),80)) 'InductionPoint Optional - objExportFile.Write(PadString((""),10)) 'InductionDate Optional – Valid date format, ex. MM/DD/YYYY - objExportFile.Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"", _ - KitLabelsRs("InBoundIMBDigits").Value),31)) 'InboundIMB Optional – numeric IMB for Round trip jobs only - objExportFile.Write(PadString((""),24)) 'IMCB Optional – Container Barcode - objExportFile.Write(PadString((""),24)) 'IMTB Optional – Tray Barcode - objExportFile.Write(vbCrLf) + .Write("D") 'RecordType Required value must be = “D” (Detail) + .Write(PadString("",20)) 'CustomerUniqueIdentifier Optional- any identifier you designate + .Write(PadString(KitLabelsRs("OutboundIMBDigits"),31)) 'IMB Required – Unencoded, numeric IMB + .Write(PadString("",10)) 'Greeting Optional + .Write(PadString("",50)) 'First Name Optional + .Write(PadString("",2)) 'MI Optional + .Write(PadString("",50)) 'Last Name Optional + .Write(PadString("",10)) 'Suffix Optional + .Write(PadString((KitLabelsRs("CassADDRESS1").Value),100)) 'Full Name Optional + .Write(PadString("",50)) 'Company Optional + .Write(PadString("",50)) 'Title Optional + .Write(PadString(KitLabelsRs("CassADDRESS3").Value,128)) 'Address1 Optional + .Write(PadString(KitLabelsRs("CassADDRESS4").Value,128)) 'Address2 Optional + .Write(PadString(Left(KitLabelsRs("CassADDRESS5").Value, _ + InStr(KitLabelsRs("CassADDRESS5").Value, ",") - 1),50)) 'City Optional + .Write(PadString(Mid(KitLabelsRs("CassADDRESS5").Value, _ + InStr(KitLabelsRs("CassADDRESS5").Value, ",") + 2, 2),2)) 'State Optional + .Write PadString(Right(KitLabelsRs("CassADDRESS5").Value,11),11) 'Zip Optional + .Write(PadString(KitRs("Jcode"),100)) 'UserDefined1 Optional - Summary fields only + .Write(PadString("",100)) 'UserDefined2 Optional - Summary fields only + .Write(PadString("",100)) 'UserDefined3 Optional - Summary fields only + .Write(PadString(KitLabelsRs("PRECINCT").Value &_ + KitLabelsRs("BALLOT_NUMBER"),80)) 'UserDefinedIdentifier4 Optional – Allows for unique identifiers + .Write(PadString(KitLabelsRs("VOTERID").Value,80)) 'UserDefinedIdentifier5 Optional – Allows for unique identifiers + .Write(PadString("",1)) 'SeedIndicator Optional - if true provide ‘Y’ + .Write(PadString("",80)) 'InductionPoint Optional + .Write(PadString("",10)) 'InductionDate Optional – Valid date format, ex. MM/DD/YYYY + .Write(PadString(Choice(IsNull(KitRs("InboundSTID")),"", _ + KitLabelsRs("InBoundIMBDigits").Value),31)) 'InboundIMB Optional – numeric IMB for Round trip jobs only + .Write(PadString("",24)) 'IMCB Optional – Container Barcode + .Write(PadString("",24)) 'IMTB Optional – Tray Barcode + .Write(vbCrLf) KitLabelsRs.MoveNext Wend - - objExportFile.Close + .Close + End With oConn.Execute("UPDATE KIT SET [Status] ='Ready to Proof',[ExportedToSnailWorks] =#" & Now() & "# WHERE [ID] =" & KitID & ";") If KitRs.State = 1 Then:KitRs.Close:End If If KitLabelsRs.State = 1 Then:KitLabelsRs.Close: End If