dcovington
/
tracking_kits
1
0
Forkuj 0
Kod Zgłoszenia 0 Oczekujące zmiany 0 Wydania 0 Wiki Aktywność
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
63 Commity
1 Gałąź
287MB
Drzewo: 18417119ed
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '18417119ed'
${ noResults }
tracking_kits/ImportService/TrackingDataImport.vbs

632 wiersze
30KB
Czysty Wina Historia 

  1. Option Explicit

  2. Dim dev:dev = True

  3. Dim outFile

  4. Dim WaitTime:WaitTime = 15000 

  5. Dim DataDirectory

  6. Dim ExportDirectory

  7. Dim PurpleEnvelopeProofReport

  8. Dim WshShell:Set WshShell = WScript.CreateObject("Wscript.Shell")

  9. Dim oConn:Set oConn = WScript.CreateObject("ADODB.Connection")

  10. Dim ConnectionString

  11. Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject")

  12. Dim glob:set glob = CreateObject("Chilkat_9_5_0.Global")

  13. Dim success:success = glob.UnlockBundle("KENTCM.CB1022025_RGzBPM5J655e")

  14. 

  15. 	If (success <> 1) Then

  16.     	WriteLine(glob.LastErrorText)

  17.     	WScript.Quit

  18. 	End If

  19. 	

  20. Dim objCSV:Set objCsv = CreateObject("Chilkat_9_5_0.Csv")

  21. Dim WorkingDirectory:WorkingDirectory = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

  22. 	If dev Then 

  23. 		DataDirectory = WorkingDirectory & "test"

  24. 		ExportDirectory = "\\kci-syn-cl01\PC Transfer\TrackingDataExport\"

  25. 		ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=F:\Development\Tracking_Kits\Data\webdata - Copy.mdb;"

  26. 		PurpleEnvelopeProofReport = "F:\Development\Tracking_Kits\Data\Proofs.rep"

  27. 		set outFile = objFSO.CreateTextFile("\\kci-syn-cl01\PC Transfer\TrackingDataExport\temp.csv",True)

  28. 	Else

  29. 		DataDirectory = "\\kci-syn-cl01\PC Transfer\TrackingDataImport"

  30. 		ExportDirectory = "\\kci-syn-cl01\PC Transfer\TrackingDataExport\"

  31. 		ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=C:\inetpub\Data\webdata - Copy.mdb;"

  32. 		PurpleEnvelopeProofReport ="C:\inetpub\tracking\Data\Proofs.rep"

  33. 		set outFile = objFSO.CreateTextFile("\\kci-syn-cl01\PC Transfer\TrackingDataExport\temp.csv",True)

  34. 	End If

  35. 	

  36. 'ToDo create a checkstatus function so I dont need four functions of create a case switch that responds to the status of jobs

  37. 	

  38. 	Dim KitID:CheckForFiles:KitID = CheckForJobsToCass()

  39. 		If KitID > 0 Then

  40. 	    ExportMMCsv(KitID)

  41. 	    RunMailManager

  42. 	    ImportCass

  43. 	End If

  44. 	KitID = CheckStatusFor("Ready to Assign Labels"):If KitID > 0 Then:createTrackingInfoForKit(KitID):End If

  45. 	KitID = CheckStatusFor("Ready For Export"):If KitID > 0 Then:CreateExportForSnailWorks(KitID):End If 

  46. 	KitID = CheckStatusFor("Ready to Proof"):If KitID > 0 Then:CreateProofForJurisdiction(KitID):End If

  47. 	KitID = CheckStatusFor("Ready For Inkjet Export"):If KitID > 0 Then:ExportInkjetFile(KitID):End If 

  48. 	WScript.Quit

  49. 	

  50. Function ExportInkjetFile(KitID)

  51. 	If oConn.State = 0 Then:oConn.Open(ConnectionString):End If 

  52. 		Dim KitRs:set KitRs = oConn.Execute("Select * From [Kit] Where [ID] =" &  KitID & ";")

  53. 	Dim KitLabelsRs: Set KitLabelsRs = oConn.Execute("SELECT InkjetRecords.ID, InkjetRecords.KitID, InkjetRecords.VOTERID, InkjetRecords.LASTNAME," &_

  54. 			" InkjetRecords.FIRSTNAME, InkjetRecords.MIDDLENAME, InkjetRecords.SUFFIX, InkjetRecords.PRECINCT," &_

  55. 			" InkjetRecords.ADDRESS1, InkjetRecords.ADDRESS2, InkjetRecords.ADDRESS3, InkjetRecords.ADDRESS4," &_

  56. 			" InkjetRecords.ADDRESS5, InkjetRecords.APPSENT, InkjetRecords.APPRETURNED, InkjetRecords.BALSENT," &_

  57. 			" InkjetRecords.BALRETURNED, InkjetRecords.CountingBoard, InkjetRecords.UOCAVASTATUS, InkjetRecords.EMAILADDRESS," &_

  58. 			" InkjetRecords.PHONENUMBER, InkjetRecords.BALLOT_NUMBER, InkjetRecords.CassADDRESS1, InkjetRecords.CassADDRESS2," &_

  59. 			" InkjetRecords.CassADDRESS3, InkjetRecords.CassADDRESS4, InkjetRecords.CassADDRESS5, InkjetRecords.KitLabelID," &_

  60. 			" KitLabels.ID, KitLabels.KitID, KitLabels.OutboundSerial, KitLabels.InBoundSerial, KitLabels.OutboundIMB," &_

  61. 			" KitLabels.InBoundIMB, KitLabels.OutboundIMBDigits, KitLabels.InBoundIMBDigits, KitLabels.OutboundIMBPNG," &_

  62. 			" KitLabels.INBOUNDIMBPNG, KitLabels.SetNumber" &_

  63. 			" FROM InkjetRecords" &_

  64. 			" LEFT JOIN [KitLabels] ON InkjetRecords.KitLabelID = KitLabels.ID" & _

  65. 			" WHERE InkjetRecords.KitID =" & KitID & " Order by PRECINCT & Clng(BALLOT_NUMBER) Desc;")

  66. 	Dim JurisdictionRs:Set JurisdictionRs = oConn.Execute("SELECT * FROM Jurisdiction WHERE JCode ='" & KitRs("Jcode").Value & "';")

  67. 	Dim ContactRs:Set ContactRs = oConn.Execute("SELECT * FROM Contacts WHERE [JURISCODE] ='" & KitRs("Jcode").Value & "';")

  68. 	Dim ExportFileName:ExportFileName = objFSO.GetBaseName(KitRs("Filename")) & ".csv"

  69. 	If Not objFSO.FolderExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value) Then:objFSO.CreateFolder(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value):End If 

  70. 	If objFSO.FileExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName) Then:objFSO.DeleteFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName):End If 

  71. 	Dim ElectionDate:ElectionDate=GetSetting("ElectionDate")

  72. 	

  73. 	Dim objInkjetCSV:Set objInkJetCSV = CreateObject("Chilkat_9_5_0.Csv")

  74. 	objInkjetCSV.HasColumnNames = 1

  75. 	objInkjetCSV.EnableQuotes = 1

  76. 	

  77. 	objInkjetCSV.SetColumnName 0,"Full Name"

  78. 	objInkjetCSV.SetColumnName 1,"Address 1"

  79. 	objInkjetCSV.SetColumnName 2,"Address 2"

  80. 	objInkjetCSV.SetColumnName 3,"Address 3"

  81. 	objInkjetCSV.SetColumnName 4,"Address 4"

  82. 	objInkjetCSV.SetColumnName 5,"IM barcode Characters"

  83. 	objInkjetCSV.SetColumnName 6,"Precinct"

  84. 	objInkjetCSV.SetColumnName 7,"Ballot ID"

  85. 	objInkjetCSV.SetColumnName 8,"Ballot Number"

  86. 	objInkjetCSV.SetColumnName 9,"Jurisdiction code"

  87. 	objInkjetCSV.SetColumnName 10,"Election Date"

  88. 	objInkJetCSV.SetColumnName 11,"Combined  Pct_Ballot Num"

  89. 	objInkJetCSV.SetColumnName 12,"Title"

  90. 	objInkJetCSV.SetColumnName 13,"G2 Full Name"

  91. 	objInkJetCSV.SetColumnName 14,"G2 Company"

  92. 	objInkJetCSV.SetColumnName 15,"G2 Alternate 1 Address"

  93. 	objInkJetCSV.SetColumnName 16,"G2 Delivery Address"

  94. 	objInkJetCSV.SetColumnName 17,"G2 City St ZIP+4"

  95. 	objInkJetCSV.SetColumnName 18,"G2 IM barcode Characters"

  96. 	objInkJetCSV.SetColumnName 19,"Matching Code"

  97. 

  98. Dim AddressArray 

  99. Dim row:row = 0	

  100. 		While Not KitLabelsRs.EOF

  101. 			AddressArray = CompressArray(Array(KitLabelsRs("CassADDRESS1").Value,KitLabelsRs("CassADDRESS2").Value,KitLabelsRs("CassADDRESS3").Value,KitLabelsRs("CassADDRESS4").Value,KitLabelsRs("CassADDRESS5").Value))

  102. 			objInkjetCSV.SetCellByName row,"Full Name",AddressArray(0)

  103. 			objInkjetCSV.SetCellByName row,"Address 1",AddressArray(1)

  104. 			objInkjetCSV.SetCellByName row,"Address 2",AddressArray(2)

  105. 			objInkjetCSV.SetCellByName row,"Address 3",AddressArray(3)

  106. 			objInkjetCSV.SetCellByName row,"Address 4",AddressArray(4)

  107. 			objInkJetCSV.SetCellByName row,"IM barcode Characters","*" & KitLabelsRs("OutboundIMBDigits").Value & "*"

  108. 			objInkJetCSV.SetCellByName row,"Precinct",KitLabelsRs("PRECINCT").Value

  109. 			objInkJetCSV.SetCellByName row,"Ballot ID",KitLabelsRs("VOTERID").Value 

  110. 			objInkJetCSV.SetCellByName row,"Ballot Number",TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value)

  111. 			objInkJetCSV.SetCellByName row,"Jurisdiction code",KitRs("Jcode").Value

  112. 			objInkJetCSV.SetCellByName row,"Election Date",ElectionDate

  113. 			objInkJetCSV.SetCellByName row,"Combined  Pct_Ballot Num",KitLabelsRs("PRECINCT").Value & TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value)

  114. 			objInkjetCSV.SetCellByName row,"Title",ContactRs("Title").Value

  115. 			objInkJetCSV.SetCellByName row,"G2 Full Name",JurisdictionRs("Name").Value

  116. 			objInkJetCSV.SetCellByName row,"G2 Company",JurisdictionRs("Mailing_Address").Value

  117. 			objInkJetCSV.SetCellByName row,"G2 Alternate 1 Address",JurisdictionRs("CSZ").Value

  118. 			objInkJetCSV.SetCellByName row,"G2 Delivery Address",""

  119. 			objInkJetCSV.SetCellByName row,"G2 City St ZIP+4",""

  120. 			objInkJetCSV.SetCellByName row,"G2 IM barcode Characters",JurisdictionRs("IMB_Digits").Value

  121. 			objInkJetCSV.SetCellByName row,"Matching Code",KitRs("Jcode").Value & TrimLeadingZeros(KitLabelsRs("PRECINCT").Value) & TrimLeadingZeros(KitLabelsRs("BALLOT_NUMBER").Value)

  122. 			'Where do we put the roundtrip IMB

  123. 			row = row + 1

  124. 			KitLabelsRs.MoveNext

  125. 		Wend

  126. 	objInkjetCSV.SaveFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName)

  127. 	

  128. 	

  129. 	

  130. 	

  131. 	oConn.Execute("UPDATE KIT SET [Status] ='Done',[InkJetJob]=1  WHERE [ID] =" & KitID & ";")

  132. 	If KitRs.State = 1 Then:KitRs.Close:End If

  133. 	If ContactRs.State =1 Then:ContactRs.Close:End If 

  134. 	If KitLabelsRs.State = 1 Then:KitLabelsRs.Close: End If

  135. 	If JurisdictionRs.State = 1 Then:JurisdictionRs.Close:End If

  136. 	If oConn.State = 1 Then:oConn.Close:End If

  137. End Function 

  138. 

  139. Function CheckStatusFor(StatusString)

  140. 	If oConn.State = 0 Then:oConn.Open(ConnectionString):End If

  141. 	Dim rs:Set rs = oConn.Execute("Select TOP 1 [ID] FROM [Kit] Where Status ='" & StatusString & "' and JobType='Purple Envelopes';")

  142. 		If Not rs.EOF Then

  143. 		CheckStatusFor = rs("ID").value

  144. 	Else

  145. 		CheckStatusFor = 0

  146. 	End If

  147. 		If rs.State = 1 Then:rs.Close:End If

  148. 		If oConn.State = 1 Then:oConn.Close:End If

  149. End Function

  150. 	

  151. Function CreateProofForJurisdiction(KitID)

  152. 	Dim Qpdf:Set Qpdf = WScript.CreateObject("DebenuPDFLibraryAX1013.PDFLibrary")

  153. 	Dim Result:Result = Qpdf.UnlockKey("j564z3wi9i66k93cp3r798b3y")

  154. 	If oConn.State = 0 Then:oConn.Open(ConnectionString):End If

  155. 	Dim Rs:set Rs = oConn.Execute("SELECT MIN(ID) as [MIN],MAX(ID) as [MAX] FROM InkjetRecords WHERE KitID = " & KitID &";")

  156. 	Dim MIN:MIN = Rs("MIN").Value

  157. 	Dim MAX:MAX = Rs("MAX").Value

  158. 	Dim RecordCount:RecordCount = (MAX - MIN) + 1

  159. 	Rs.Close

  160. 	Dim KitRs:set KitRs = oConn.Execute("Select * From [Kit] Where [ID] =" &  KitID & ";")

  161. 	Dim JurisdictionRs:set JurisdictionRs = oConn.Execute("SELECt * FROM [Jurisdiction] WHERE JCode='" & KitRs("Jcode").Value & "';")

  162. 	Dim ProofFileName:ProofFileName = objFSO.GetBaseName(KitRs("Filename")) & "-PROOF.PDF"

  163. 	If Not objFSO.FolderExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value) Then:objFSO.CreateFolder(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value):End If 

  164. 	Dim reportManager:set reportManager = CreateObject("ReportMan.ReportManX")

  165. 		With reportManager

  166. 			.Preview = False

  167. 			.ShowProgress = False

  168. 			.ShowPrintDialog = False

  169. 			.filename = PurpleEnvelopeProofReport

  170. 			.SetDatabaseConnectionString "WEBDATA",ConnectionString

  171. 			.SetParamValue "PBKITID",KitID

  172. 			.SetParamValue "PBJCODE",KitRs("Jcode").Value

  173. 			Dim MAXRECORDS:MAXRECORDS = 3750

  174. 			If RecordCount > MAXRECORDS Then

  175. 			Dim i

  176. 			For i = 0 To RecordCount / MAXRECORDS

  177. 

  178. 				

  179. 				Dim newMin:If MIN + (i * MAXRECORDS) > MIN Then:newMin = MIN + (i * MAXRECORDS) + 1:Else newMin = MIN:End If 

  180. 				Dim newMax:If MIN + (i * MAXRECORDS) + MAXRECORDS > MAX Then:newMax = MAX:Else newMax = MIN + (i * MAXRECORDS) + MAXRECORDS:End If

  181. 				.SetParamValue "PBMIN",newMin

  182. 				.SetParamValue "PBMAX",newMax

  183. 				.SaveToPDF ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "\Part_" & i & "_" & ProofFileName,1

  184. 				Result = Qpdf.AddToFileList("Proofs",ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "\Part_" & i & "_" & ProofFileName)

  185. 			Next

  186. 				Result = Qpdf.MergeFileListFast("Proofs",ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ProofFileName)

  187. 			Dim test

  188. 			For test = 1 To Qpdf.FileListCount("Proofs")

  189. 		

  190. 			WshShell.Run "cmd.exe /c DEL /F /Q """ & Qpdf.FileListItem("Proofs",test) & """" ,0,True

  191. 

  192. 			Next

  193. 			Else

  194. 				.SetParamValue "PBMIN",MIN

  195. 				.SetParamValue "PBMAX",MAX

  196. 				.SaveToPDF ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ProofFileName,1

  197. 			End If

  198. 		End With

  199. 	oConn.Execute("UPDATE KIT SET [Status] ='Ready For Inkjet Export' WHERE [ID] =" & KitID & ";")

  200. 	If KitRs.State = 1 Then:KitRs.Close:End If

  201. 	If JurisdictionRs.State = 1 Then:JurisdictionRs.Close:End If

  202. 	If oConn.State = 1 Then:oConn.Close:End If

  203. 	

  204. End Function

  205. 

  206. Function CreateExportForSnailWorks(KitID)

  207. 	If oConn.State = 0 Then:oConn.Open(ConnectionString):End If  

  208. 	Dim KitRs:set KitRs = oConn.Execute("Select * From [Kit] Where [ID] =" &  KitID & ";")

  209. 	Dim KitLabelsRs: Set KitLabelsRs = oConn.Execute("SELECT InkjetRecords.ID, InkjetRecords.KitID, InkjetRecords.VOTERID, InkjetRecords.LASTNAME," &_

  210. 			" InkjetRecords.FIRSTNAME, InkjetRecords.MIDDLENAME, InkjetRecords.SUFFIX, InkjetRecords.PRECINCT," &_

  211. 			" InkjetRecords.ADDRESS1, InkjetRecords.ADDRESS2, InkjetRecords.ADDRESS3, InkjetRecords.ADDRESS4," &_

  212. 			" InkjetRecords.ADDRESS5, InkjetRecords.APPSENT, InkjetRecords.APPRETURNED, InkjetRecords.BALSENT," &_

  213. 			" InkjetRecords.BALRETURNED, InkjetRecords.CountingBoard, InkjetRecords.UOCAVASTATUS, InkjetRecords.EMAILADDRESS," &_

  214. 			" InkjetRecords.PHONENUMBER, InkjetRecords.BALLOT_NUMBER, InkjetRecords.CassADDRESS1, InkjetRecords.CassADDRESS2," &_

  215. 			" InkjetRecords.CassADDRESS3, InkjetRecords.CassADDRESS4, InkjetRecords.CassADDRESS5, InkjetRecords.KitLabelID," &_

  216. 			" KitLabels.ID, KitLabels.KitID, KitLabels.OutboundSerial, KitLabels.InBoundSerial, KitLabels.OutboundIMB," &_

  217. 			" KitLabels.InBoundIMB, KitLabels.OutboundIMBDigits, KitLabels.InBoundIMBDigits, KitLabels.OutboundIMBPNG," &_

  218. 			" KitLabels.INBOUNDIMBPNG, KitLabels.SetNumber" &_

  219. 			" FROM InkjetRecords" &_

  220. 			" LEFT JOIN [KitLabels] ON InkjetRecords.KitLabelID = KitLabels.ID" & _

  221. 			" WHERE InkjetRecords.KitID =" & KitID & " ;")

  222. 	Dim JurisdictionRs:Set JurisdictionRs = oConn.Execute("SELECT * FROM Jurisdiction WHERE JCode ='" & KitRs("Jcode").Value & "';")

  223. 	Dim ExportFileName:ExportFileName = objFSO.GetBaseName(KitRs("Filename")) & "_SW_EXPORT.csv"

  224. 	

  225. 	If Not objFSO.FolderExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value) Then:objFSO.CreateFolder(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value):End If 

  226. 	

  227. 	If objFSO.FileExists(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName) Then:objFSO.DeleteFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName):End If 

  228. 	Dim objExportFile:set objExportFile = objFSO.CreateTextFile(ExportDirectory & KitRs("JobNumber").Value & "-" & JurisdictionRs("Name").value & "/" & ExportFileName,2)

  229. 	With objExportFile

  230. 		.Write("""H"",") 																'Record Type Required value must be = "H" (Header)

  231. 		.Write(Truncate("5.1",5))														'Version Required value must be ="5.1" for current release

  232. 		.Write(Truncate("KCI",50))														'UserId Required 													

  233. 		.Write(Truncate(KitRs("Jcode").Value,50))										'Client Name Required (will create new subaccount if not already defined) - We decideded to make this the juriscode 

  234. 		.Write(Truncate("",50))															'Parent Client Name Optional (use if 3-tier account structure)

  235. 		.Write(Truncate("Purple envelope - " & KitRs("JobNumber").Value,50))			'Job Name Required

  236. 		.Write(Truncate("",50))															'Job Description Optional

  237. 		.Write(Truncate("",50))															'Split Name Optional – will default to ‘Default’

  238. 		.Write(Truncate("",80))															'Split Description Optional

  239. 		.Write(Truncate("L",1))															'Piece Type Required  L-Letters, C-Cards, F-Flats

  240. 		.Write(Truncate(Year(Now()) & "/" &_

  241. 			Right("0" & Month(Now()), 2) & "/" & Right("0" & Day(Now()), 2),10))		'MailDate Required (YYYY/MM/DD)

  242. 		.Write(Truncate("N",1))															'UploadType Required N = New job, new split A = Append new split to existing job R = Replace existing split

  243. 		.Write(Truncate("",8))															'TrackedQuantity Optional

  244. 		.Write(Truncate("",8))															'PiecesMailed Optional – shown as Estimated Quantity

  245. 		.Write(Truncate("",10))															'Target InHomeDateStart Optional (YYYY/MM/DD)

  246. 		.Write(Truncate("",10))															'Target InHomeDateEnd Optional (YYYY/MM/DD)

  247. 		.Write(Truncate("",100))														'ConfirmationEmail Optional

  248. 		.Write(Truncate("",9))															'JobId (SW) Optional for previously created jobs  SWJobId

  249. 		.Write(Truncate("",4))															'SplitId (SW) Optional for previously created jobs  SWJobId

  250. 		.Write(Truncate(Choice(IsNull(KitRs("InboundSTID")),"O","R"),1))				'TypeofTracking Required Values: O- Outbound Only I-Inbound Only R-Round Trip

  251. 		.Write(Truncate("",11))															'ReturnedPostalRoutingCode

  252. 		.Write(Truncate("",2))															'ReportId1

  253. 		.Write(Truncate("",255))														'Report1Email

  254. 		.Write(Truncate("",2))															'ReportId2

  255. 		.Write(Truncate("",255))														'Report2Email

  256. 		.Write("""N""")																	'INFOONLY

  257. 		.Write(vbCrLf)

  258. 	While Not KitLabelsRs.EOF

  259. 		.Write("""D"",")																'RecordType Required value must be = “D” (Detail)

  260. 		.Write(Truncate("",20))															'CustomerUniqueIdentifier Optional- any identifier you designate

  261. 		.Write(Truncate(KitLabelsRs("OutboundIMBDigits"),31))							'IMB Required – Unencoded, numeric IMB

  262. 		.Write(Truncate("",10))															'Greeting Optional

  263. 		.Write(Truncate("",50))															'First Name Optional

  264. 		.Write(Truncate("",2))															'MI  Optional

  265. 		.Write(Truncate("",50))															'Last Name Optional

  266. 		.Write(Truncate("",10))															'Suffix Optional

  267. 		.Write(Truncate((KitLabelsRs("CassADDRESS1").Value),100))						'Full Name Optional

  268. 		.Write(Truncate("",50))															'Company Optional

  269. 		.Write(Truncate("",50))															'Title  Optional

  270. 		.Write(Truncate(KitLabelsRs("CassADDRESS3").Value,128))							'Address1   Optional

  271. 		.Write(Truncate(KitLabelsRs("CassADDRESS4").Value,128))							'Address2   Optional

  272. 		.Write(Truncate(Left(KitLabelsRs("CassADDRESS5").Value, _

  273. 			InStr(KitLabelsRs("CassADDRESS5").Value, ",") - 1),50))						'City     Optional

  274. 		.Write(Truncate(Mid(KitLabelsRs("CassADDRESS5").Value, _

  275. 			InStr(KitLabelsRs("CassADDRESS5").Value, ",") + 2, 2),2))					'State Optional

  276.     	.Write Truncate(Right(KitLabelsRs("CassADDRESS5").Value,11),11)					'Zip   Optional

  277. 		.Write(Truncate(KitRs("Jcode"),100))											'UserDefined1 Optional - Summary fields only

  278. 		.Write(Truncate("",100))														'UserDefined2 Optional - Summary fields only

  279. 		.Write(Truncate("",100))														'UserDefined3 Optional - Summary fields only

  280. 		.Write(Truncate(KitLabelsRs("PRECINCT").Value &_

  281. 	 		KitLabelsRs("BALLOT_NUMBER"),80))											'UserDefinedIdentifier4 Optional – Allows for unique identifiers

  282. 		.Write(Truncate(KitLabelsRs("VOTERID").Value,80))								'UserDefinedIdentifier5 Optional – Allows for unique identifiers

  283. 		.Write(Truncate("",1))															'SeedIndicator  Optional - if true provide ‘Y’

  284. 		.Write(Truncate("",80))															'InductionPoint  Optional

  285. 		.Write(Truncate("",10))															'InductionDate	Optional – Valid date format, ex. MM/DD/YYYY

  286. 		.Write(Truncate(Choice(IsNull(KitRs("InboundSTID")),"",  _

  287. 			KitLabelsRs("InBoundIMBDigits").Value),31))									'InboundIMB Optional – numeric IMB for Round trip jobs only

  288. 		.Write(Truncate("",24))															'IMCB Optional – Container Barcode

  289. 		.Write("""""")																	'IMTB Optional – Tray Barcode

  290.  		.Write(vbCrLf)

  291. 	KitLabelsRs.MoveNext

  292. 	Wend

  293. 

  294. 		.Close

  295. 		End With

  296. 	oConn.Execute("UPDATE KIT SET [Status] ='Ready to Proof',[ExportedToSnailWorks] =#" & Now() & "#  WHERE [ID] =" & KitID & ";")

  297. 	If KitRs.State = 1 Then:KitRs.Close:End If

  298. 	If KitLabelsRs.State = 1 Then:KitLabelsRs.Close: End If

  299. 	If JurisdictionRs.State = 1 Then:JurisdictionRs.Close:End If

  300. 	If oConn.State = 1 Then:oConn.Close:End If

  301. End Function 

  302. 

  303. Function createTrackingInfoForKit(KitID)

  304. If oConn.State = 0 Then:oConn.Open(ConnectionString):End If  

  305. oConn.Execute("UPDATE Kit SET Status ='Applying Serial Numbers' WHERE ID =" & KitID & ";")

  306. Dim KitRs:set KitRs = oConn.Execute("Select * from Kit Where ID =" & KitID & ";")

  307. Dim InkjetRs:Set InkjetRs = oConn.Execute("Select * from InkjetRecords Where KitID =" & KitID & ";")

  308. Dim JurisRs:set JurisRs = oConn.Execute("Select Right(IMB_Digits,9) as IMBZip FROM Jurisdiction Where JCode ='" & KitRs("Jcode") & "';"):Dim Jcode:Jcode = JurisRs("IMBZip"):JurisRs.Close

  309. Dim SerialNumberStart:SerialNumberStart = GetSetting("SerialNumberStart")

  310. Dim serialOffset:serialOffset = GetSetting("SerialOffset")

  311. Dim serialStart:serialStart = CLng(GetSetting("SerialNumberStart")) + CLng(GetSetting("SerialOffset"))

  312. Dim Counter:Counter=0

  313. Dim KitLabelID

  314. Dim KitLabelRs

  315. Dim Mid:Mid = GetSetting("MailingID")

  316. Dim Step : If KitRs("InboundSTID") <> "" Then : Step = 2  : Else Step = 1

  317. serialStart = PadLeft(serialStart + CLng(Counter),9,"0")

  318. While Not InkjetRs.EOF

  319. 

  320. 	If Step = 1 Then

  321. 		oConn.Execute("INSERT INTO KitLabels (KitID,OutboundSerial,OutboundIMBDigits) " &_

  322. 			  			"VALUES(" & KitID & ",'" & serialStart & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "000000000" & "');")

  323. 

  324. 	Else 

  325. 		oConn.Execute "INSERT INTO KitLabels (KitID,OutboundSerial,InBoundSerial,OutboundIMBDigits,InBoundIMBDigits) " &_

  326. 		  			"VALUES(" & KitID & ",'" & serialStart & "','" & serialStart + 1 & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart &  "000000000" & "','" & KitRs("InboundSTID").Value & serialStart + 1 & Jcode & "');"

  327. 	End If 

  328. 	Set KitLabelRs = oConn.Execute("SELECT TOP 1 [ID] FROM KitLabels ORDER BY ID DESC"):KitLabelID = KitLabelRs("ID").Value

  329. 	

  330. 	oConn.Execute("UPDATE InkjetRecords Set [KitLabelID]=" & KitLabelID & " WHERE ID=" & InkjetRs("ID") & ";")

  331. 	Counter = Counter + Step

  332. 	serialStart = serialStart + Step

  333. 

  334. InkjetRs.MoveNext

  335. Wend

  336. 	oConn.Execute("UPDATE Settings Set [Value]='" & serialOffset + Counter & "' WHERE [Name] = 'SerialOffset';")

  337. 	oConn.Execute("UPDATE Kit Set [Status]='Ready For Export', LabelsPrinted=#" & Now() & "# WHERE [ID] =" & KitID &";")

  338. 	oConn.Close

  339. End Function

  340. 

  341. Function GetSetting(settingName)

  342. 

  343. Dim rs:Set rs = oConn.Execute("Select Value From [Settings] Where [Name] = '" & settingName & "';")

  344. 

  345. 	If Not rs.EOF Then

  346. 		GetSetting = rs(0).value

  347. 		rs.Close

  348. 	Else

  349. 		SetSetting = 0

  350. 		rs.Close

  351. 	End If

  352. 	

  353. 

  354. End Function 

  355. 

  356. Function CheckForFiles()

  357. 

  358. 	

  359. 	If objFSO.FolderExists(DataDirectory) Then

  360. 		Dim objFolder:Set objFolder = objFSO.GetFolder(DataDirectory)

  361. 	    

  362. 	    	If objFolder.Files.Count > 0 Then

  363.         		'WScript.Echo "Files found in directory: " & DataDirectory

  364.         		Dim objFile

  365.         		For Each objFile In objFolder.Files

  366.         			Dim CsvString:CsvString = ConvertCsvToString(objFile.Path)

  367.             		If ValidImportCSV(CsvString) Then

  368.             			SetupKit CsvString,objFile.Name

  369.             			objFSO.MoveFile objFile.Path, DataDirectory & "\import\" & objFile.Name

  370.             		End If 

  371.         		Next

  372.     		Else

  373.         		'WScript.Echo "No files found in directory: " & DataDirectory

  374.     		End If

  375. 	

  376. 	End If 

  377. End Function 

  378. 

  379. Function ValidJcode(jcode)

  380. Dim oConn

  381. Set oConn = WScript.CreateObject("ADODB.Connection")

  382. oConn.ConnectionString = ConnectionString

  383. oConn.Open

  384. Dim oRs

  385. set oRs = oConn.Execute("Select * from Jurisdiction Where [JCode] = '" & jcode & "';")

  386. If oRs.EOF Then 

  387. 	ValidJcode = 0

  388. Else

  389. 	ValidJcode = 1

  390. End If  

  391. oRs.Close

  392. oConn.Close

  393. End Function

  394. 

  395. 

  396. Function SetupKit(CsvString,FileName)

  397. Dim JobNumber:JobNumber = Mid(FileName,9,6)

  398. Dim JCode:JCode = Left(Filename,5)

  399. 	If IsNumeric(JobNumber) Then

  400. 		If ValidJcode(JCode) Then

  401. 			WScript.Echo FileName & " Is a Valid CSV for Importing"

  402. 			Dim oConn:Set oConn = WScript.CreateObject("ADODB.Connection")

  403. 			oConn.ConnectionString = ConnectionString

  404. 			oConn.Open

  405. 			oConn.Execute("Insert Into Kit ([JobNumber], [Jcode], [CreatedOn], [JobType],[Filename],[Status]) VALUES ('" & JobNumber & "','" & JCode & "',#" & Now() & "#,'Purple Envelopes','" & FileName & "','Importing');") 

  406. 			Dim rs : set rs = oConn.Execute("Select TOP 1 ID from Kit ORDER BY ID DESC")

  407. 			Dim kitId : kitId = rs("ID").value

  408. 			rs.close

  409. 			Dim i

  410. 			For i = 1 To objCSV.NumRows -1

  411. 			oConn.Execute("Insert Into [InkjetRecords] (KitID,VOTERID,LASTNAME,FIRSTNAME,MIDDLENAME" & _

  412. 			",SUFFIX,PRECINCT,ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,ADDRESS5,APPSENT,APPRETURNED,BALSENT,BALRETURNED" & _

  413. 			",CountingBoard,UOCAVASTATUS,EMAILADDRESS,PHONENUMBER,BALLOT_NUMBER) VALUES (" & kitId & _

  414. 			",'" & Replace(objCSV.GetCell(i,0),"'","''") & _

  415. 			"','" & objCsv.GetCell(i,1) & _

  416. 			"','" & Replace(objCSV.GetCell(i,2),"'","''") & _

  417. 			"','" & Replace(objCSV.GetCell(i,3),"'","''") & _

  418. 			"','" & Replace(objCSV.GetCell(i,4),"'","''") & _

  419. 			"','" & Replace(objCSV.GetCell(i,5),"'","''") & _

  420. 			"','" & Replace(objCSV.GetCell(i,6),"'","''") & _

  421. 			"','" & Replace(objCSV.GetCell(i,7),"'","''") & _

  422. 			"','" & Replace(objCSV.GetCell(i,8),"'","''") & _

  423. 			"','" & Replace(objCSV.GetCell(i,9),"'","''") & _

  424. 			"','" & Replace(objCSV.GetCell(i,10),"'","''") & _

  425. 			"','" & Replace(objCSV.GetCell(i,11),"'","''") & _

  426. 			"','" & Replace(objCSV.GetCell(i,12),"'","''") & _

  427. 			"','" & Replace(objCsv.GetCell(i,13),"'","''") & _

  428. 			"','" & objCsv.GetCell(i,14) & _

  429. 			"','" & objCsv.GetCell(i,15) & _

  430. 			"','" & objCsv.GetCell(i,16) & _

  431. 			"','" & objCsv.GetCell(i,17) & _

  432. 			"','" & objCsv.GetCell(i,18) & _

  433. 			"','" & objCsv.GetCell(i,19) & _

  434. 			"')")

  435. 			Next

  436. 			oConn.Execute("Update Kit SET [Status] = 'Ready to Cass' Where ID = " & kitId &";")

  437. 			'oConn.Close

  438. 		End If

  439. 	End If

  440. 	

  441. 	

  442. 

  443. End Function 

  444. Function ConvertCsvToString(FilePath)

  445. 	Dim objFSO:Set objFSO = CreateObject("Scripting.FileSystemObject")

  446. 	Dim objCsvFile:set objCsvFile = objFSO.OpenTextFile(FilePath)

  447. 	Dim strContent:strContent = ""

  448. 	Dim intLineCount:intLineCount = 0

  449. 	    Do Until objCsvFile.AtEndOfStream Or intLineCount >= 3

  450. 			objCsvFile.SkipLine

  451. 			intLineCount = intLineCount + 1

  452. 		Loop

  453. 	    ' Read the remaining content into a string

  454. 

  455. 			Do Until objCsvFile.AtEndOfStream

  456. 			Dim strLine:strLine = objCsvFile.ReadLine

  457. 			strContent = strContent & strLine & vbCrLf

  458. 		Loop

  459. 

  460. ConvertCsvToString = strContent

  461. End Function 

  462. 

  463. Function ValidImportCSV(CsvFileAsString)

  464. 	objCSV.LoadFromString(CsvFileAsString)

  465. 	If objCSV.NumColumns = 20 Then

  466. 		ValidImportCSV = True

  467. 	Else

  468. 		ValidImportCSV = False

  469. 	End If

  470. End Function

  471. 

  472. Sub ImportCass

  473. 	Dim currentRow

  474. 	objCsv.LoadFile("\\kci-syn-cl01\PC Transfer\TrackingDataExport\FROM_MM.CSV")

  475. 

  476. 	For currentRow = 0 To objCsv.NumRows -1

  477. 	oConn.Execute("UPDATE InkJetRecords SET CassADDRESS1 = '" & Replace(objCsv.GetCell(currentRow,1),"'","''") & "', " &_ 

  478. 	              "CassADDRESS2 = '" & Replace(objCSV.GetCell(currentRow,3),"'","''") & "', " &_

  479. 	              "CassADDRESS3 = '" & Replace(objCSV.GetCell(currentRow,4),"'","''") & "', " &_

  480. 	              "CassADDRESS4 = '" & Replace(objCSV.GetCell(currentRow,5),"'","''") & "', " &_

  481. 	              "CassADDRESS5 = '" & Replace(objCsv.GetCell(currentRow,6) & ", " & objCsv.GetCell(currentRow,7) & " " & objCsv.GetCell(currentRow,8),"'","''") & "'" &_

  482. 	              " WHERE ID = " & objCSV.GetCell(currentRow,0) & ";")

  483. 		

  484. 	Next

  485. 

  486. 			 oConn.Execute("UPDATE Kit SET Status ='Ready To Assign STIDS' WHERE ID =" & KitID & ";")

  487. 			 oConn.Execute("UPDATE Kit SET [Cass] = 1 WHERE ID =" & KitID & ";")

  488. End Sub

  489. 

  490. Sub RunMailManager

  491. 	WshShell.Run "PsExec64.exe -i -e -u ntp\danielc -p SunBrightShine! \\MarkH2 ""\\MM2012\APPS\BCC\MM2010\mailman.exe"" -p -j MMJOB.mjb -u DAN",1,True

  492. End Sub

  493. Sub ExportMMCsv(KitId)

  494. 	

  495. 	Dim success

  496. 	objCsv.HasColumnNames = 1

  497. 	objCSV.EnableQuotes = 1

  498. 	success = objCsv.SetColumnName(0,"ID")

  499. 	success = objCsv.SetColumnName(1,"NAME")

  500. 	success = objCsv.SetColumnName(2,"ADDRESS1")

  501. 	success = objCsv.SetColumnName(3,"ADDRESS2")

  502. 	success = objCsv.SetColumnName(4,"ADDRESS3")

  503. 	success = objCsv.SetColumnName(5,"ADDRESS4")

  504. 	success = objCsv.SetColumnName(6,"ADDRESS5")

  505.  	Dim rs : Set rs = oConn.Execute("Select ID," & _ 

  506.  								 "IIF(FIRSTNAME IS NULL,'',FIRSTNAME & ' ') & " & _

  507.  								 "IIF(MIDDLENAME IS NULL,'',MIDDLENAME & ' ') & " & _

  508.  								 "IIF(LASTNAME IS NULL,'',LASTNAME & ' ') & " & _

  509.  								 "IIF(SUFFIX IS NULL,'',SUFFIX & ' ') " & _

  510.  								 "AS NAME, ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4,ADDRESS5 FROM InkjetRecords WHERE KitID =" & KitID & " ORDER By ID;")

  511. 		Dim CurrentRow:CurrentRow = 0 

  512. 		While Not rs.EOF

  513. 			objCSV.SetCell CurrentRow,0,rs("ID").value

  514. 			objCSV.SetCell CurrentRow,1,rs("NAME").value 

  515. 			objCSV.SetCell CurrentRow,2,rs("ADDRESS1").value 

  516. 			objCSV.SetCell CurrentRow,3,rs("ADDRESS2").value 

  517. 			objCSV.SetCell CurrentRow,4,rs("ADDRESS3").value 

  518. 			objCSV.SetCell CurrentRow,5,rs("ADDRESS4").value 

  519. 			objCSV.SetCell CurrentRow,6,rs("ADDRESS5").value  

  520. 			rs.MoveNext

  521. 			CurrentRow = CurrentRow +1

  522. 		Wend

  523. 		Dim CsvString:CsvString = objCSV.SaveToString()

  524. 		outFile.WriteLine CsvString

  525. 		outFile.Close

  526. 

  527. End Sub

  528. Function CheckForJobsToCass()

  529. oConn.ConnectionString = ConnectionString

  530. oConn.Open

  531. 

  532. 	'oConn.Open

  533. 	Dim rs : set rs = oConn.Execute("Select TOP 1 ID from Kit Where Status ='Ready to Cass' ORDER BY ID DESC;")

  534. 		If Not rs.EOF Then

  535. 			Dim kitId : kitId = rs("ID").value

  536. 			rs.Close

  537. 			CheckForJobsToCass = KitID

  538. 			 oConn.Execute("UPDATE Kit SET Status ='Cassing' WHERE ID =" & KitID & ";")

  539. 		Else 

  540. 			CheckForJobsToCass = 0

  541. 		End If 

  542. 	'oConn.Close

  543. End Function

  544. 

  545. Public Function PadLeft(originalString,desiredLength,Char)

  546. Dim padLength

  547.     padLength = desiredLength - Len(originalString)

  548.     If padLength > 0 Then

  549.     ' Left pad the string with zeros

  550.     PadLeft = String(padLength, Char) & originalString

  551. Else

  552.     ' If the original string is already longer or equal to the desired length, no padding is needed

  553.     PadLeft = originalString

  554. End If

  555. 

  556. End Function

  557. Function Truncate(inputString, size)

  558. 

  559. 	If Len(inputString) > size Then:Truncate = """" & Left(inputString,size) & """,":Else Truncate = """" & inputString  & """,":End If

  560. 

  561. End Function

  562. Function PadString(inputString, size)

  563.     Dim paddedString

  564.     Dim inputLength

  565.     Dim i

  566. 	If IsNull(inputString) Then:inputString = ""

  567.     ' Get the length of the input string

  568.     inputLength = Len(inputString)

  569. 

  570.     ' If the input string is already equal to or longer than the specified size, return it as is

  571.     If inputLength >= size Then

  572.         PadString = inputString

  573.         Exit Function

  574.     End If

  575. 

  576.     ' Initialize the padded string with the input string

  577.     paddedString = inputString

  578. 

  579.     ' Pad spaces to the right of the input string until it reaches the specified size

  580.     For i = 1 To (size - inputLength)

  581.         paddedString = paddedString & " "

  582.     Next

  583. 

  584.     ' Return the padded string

  585.     PadString = paddedString

  586. End Function

  587. 

  588. Function CleanNull(StringToClean)

  589. 	If IsNull(StringToClean) Then:CleanNull = "":End If

  590. End Function 

  591. 

  592. Public Sub Assign(ByRef var, ByVal val)

  593.     If IsObject(val) Then

  594.         Set var = val

  595.     Else

  596.         var = val

  597.     End If

  598. End Sub

  599. 

  600. Public Function Choice(ByVal cond, ByVal if_true, ByVal if_false)

  601.     If cond Then

  602.         Assign Choice, if_true

  603.     Else

  604.         Assign Choice, if_false

  605.     End If

  606. End Function

  607. 

  608. Function CompressArray(arr)

  609.     Dim temp,i,j

  610.     For i = LBound(arr) To UBound(arr) - 1

  611.         For j = i + 1 To UBound(arr)

  612.             If arr(i) = "" Then

  613.                 temp = arr(i)

  614.                 arr(i) = arr(j)

  615.                 arr(j) = temp

  616.             End If

  617.         Next

  618.     Next

  619.     CompressArray = arr

  620. End Function

  621. 

  622. Function TrimLeadingZeros(inputStr)

  623.     Dim i

  624.     For i = 1 To Len(inputStr)

  625.         If Mid(inputStr, i, 1) <> "0" Then

  626.             TrimLeadingZeros = Mid(inputStr, i)

  627.             Exit Function

  628.         End If

  629.     Next

  630.     ' If the input string is all zeros, return "0"

  631.     TrimLeadingZeros = "0"

  632. End Function

Powered by TurnKey Linux.