dcovington
/
tracking_kits
1
0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
51 Incheckningar
1 Gren
287MB
Träd: d50683f387
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från 'd50683f387'
${ noResults }
tracking_kits/ImportService/TrackingDataImport.vbs

630 lines
30KB
Rå Blame Historik 

  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 & " ;")

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

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

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

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

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

  71. 	

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

  73. 	objInkjetCSV.HasColumnNames = 1

  74. 	objInkjetCSV.EnableQuotes = 1

  75. 	

  76. 	objInkjetCSV.SetColumnName 0,"Full Name"

  77. 	objInkjetCSV.SetColumnName 1,"Company"

  78. 	objInkjetCSV.SetColumnName 2,"Alternate 1 Address"

  79. 	objInkjetCSV.SetColumnName 3,"Delivery Address"

  80. 	objInkjetCSV.SetColumnName 4,"City St ZIP+4"

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

  82. 	objInkjetCSV.SetColumnName 6,"Precinct"

  83. 	objInkjetCSV.SetColumnName 7,"Ballot ID"

  84. 	objInkjetCSV.SetColumnName 8,"Ballot Number"

  85. 	objInkjetCSV.SetColumnName 9,"Jurisdiction code"

  86. 	objInkjetCSV.SetColumnName 10,"Election Date"

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

  88. 	objInkJetCSV.SetColumnName 12,"Voter ID"

  89. 	objInkJetCSV.SetColumnName 13,"2D Matrix Barcode"

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

  91. 	objInkJetCSV.SetColumnName 15,"G2 Company"

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

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

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

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

  96. 	objInkJetCSV.SetColumnName 20,"NEW Ballot No f"

  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,"Company",AddressArray(1)

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

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

  106. 			objInkjetCSV.SetCellByName row,"City St ZIP+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,"Jurisdiction code",KitRs("Jcode").Value

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

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

  113. 			objInkJetCSV.SetCellByName row,"Voter ID",KitLabelsRs("VOTERID").Value

  114. 			objInkJetCSV.SetCellByName row,"2D Matrix Barcode",KitRs("Jcode").Value & KitLabelsRs("BALLOT_NUMBER").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,"NEW Ballot No f",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 KitLabelsRs.State = 1 Then:KitLabelsRs.Close: End If

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

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

  136. End Function 

  137. 

  138. Function CheckStatusFor(StatusString)

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

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

  141. 		If Not rs.EOF Then

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

  143. 	Else

  144. 		CheckStatusFor = 0

  145. 	End If

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

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

  148. End Function

  149. 	

  150. Function CreateProofForJurisdiction(KitID)

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

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

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

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

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

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

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

  158. 	Rs.Close

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

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

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

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

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

  164. 		With reportManager

  165. 			.Preview = False

  166. 			.ShowProgress = False

  167. 			.ShowPrintDialog = False

  168. 			.filename = PurpleEnvelopeProofReport

  169. 			.SetDatabaseConnectionString "WEBDATA",ConnectionString

  170. 			.SetParamValue "PBKITID",KitID

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

  172. 			Dim MAXRECORDS:MAXRECORDS = 3750

  173. 			If RecordCount > MAXRECORDS Then

  174. 			Dim i

  175. 			For i = 0 To RecordCount / MAXRECORDS

  176. 

  177. 				

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

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

  180. 				.SetParamValue "PBMIN",newMin

  181. 				.SetParamValue "PBMAX",newMax

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

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

  184. 			Next

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

  186. 			Dim test

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

  188. 		

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

  190. 

  191. 			Next

  192. 			Else

  193. 				.SetParamValue "PBMIN",MIN

  194. 				.SetParamValue "PBMAX",MAX

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

  196. 			End If

  197. 		End With

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

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

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

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

  202. 	

  203. End Function

  204. 

  205. Function CreateExportForSnailWorks(KitID)

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

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

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

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

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

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

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

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

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

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

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

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

  218. 			" FROM InkjetRecords" &_

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

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

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

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

  223. 	

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

  225. 	

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

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

  228. 	With objExportFile

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  256. 		.Write(vbCrLf)

  257. 	While Not KitLabelsRs.EOF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  289.  		.Write(vbCrLf)

  290. 	KitLabelsRs.MoveNext

  291. 	Wend

  292. 

  293. 		.Close

  294. 		End With

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

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

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

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

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

  300. End Function 

  301. 

  302. Function createTrackingInfoForKit(KitID)

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

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

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

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

  307. 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

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

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

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

  311. Dim Counter:Counter=0

  312. Dim KitLabelID

  313. Dim KitLabelRs

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

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

  316. While Not InkjetRs.EOF

  317. 

  318. 	If Step = 1 Then

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

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

  321. 

  322. 	Else 

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

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

  325. 	End If 

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

  327. 	

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

  329. 	Counter = Counter + Step

  330. 	serialStart = serialStart + Step

  331. 

  332. InkjetRs.MoveNext

  333. Wend

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

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

  336. 	oConn.Close

  337. End Function

  338. 

  339. Function GetSetting(settingName)

  340. 

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

  342. 

  343. 	If Not rs.EOF Then

  344. 		GetSetting = rs(0).value

  345. 		rs.Close

  346. 	Else

  347. 		SetSetting = 0

  348. 		rs.Close

  349. 	End If

  350. 	

  351. 

  352. End Function 

  353. 

  354. Function CheckForFiles()

  355. 

  356. 	

  357. 	If objFSO.FolderExists(DataDirectory) Then

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

  359. 	    

  360. 	    	If objFolder.Files.Count > 0 Then

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

  362.         		Dim objFile

  363.         		For Each objFile In objFolder.Files

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

  365.             		If ValidImportCSV(CsvString) Then

  366.             			SetupKit CsvString,objFile.Name

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

  368.             		End If 

  369.         		Next

  370.     		Else

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

  372.     		End If

  373. 	

  374. 	End If 

  375. End Function 

  376. 

  377. Function ValidJcode(jcode)

  378. Dim oConn

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

  380. oConn.ConnectionString = ConnectionString

  381. oConn.Open

  382. Dim oRs

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

  384. If oRs.EOF Then 

  385. 	ValidJcode = 0

  386. Else

  387. 	ValidJcode = 1

  388. End If  

  389. oRs.Close

  390. oConn.Close

  391. End Function

  392. 

  393. 

  394. Function SetupKit(CsvString,FileName)

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

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

  397. 	If IsNumeric(JobNumber) Then

  398. 		If ValidJcode(JCode) Then

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

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

  401. 			oConn.ConnectionString = ConnectionString

  402. 			oConn.Open

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

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

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

  406. 			rs.close

  407. 			Dim i

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  432. 			"')")

  433. 			Next

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

  435. 			'oConn.Close

  436. 		End If

  437. 	End If

  438. 	

  439. 	

  440. 

  441. End Function 

  442. Function ConvertCsvToString(FilePath)

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

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

  445. 	Dim strContent:strContent = ""

  446. 	Dim intLineCount:intLineCount = 0

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

  448. 			objCsvFile.SkipLine

  449. 			intLineCount = intLineCount + 1

  450. 		Loop

  451. 	    ' Read the remaining content into a string

  452. 

  453. 			Do Until objCsvFile.AtEndOfStream

  454. 			Dim strLine:strLine = objCsvFile.ReadLine

  455. 			strContent = strContent & strLine & vbCrLf

  456. 		Loop

  457. 

  458. ConvertCsvToString = strContent

  459. End Function 

  460. 

  461. Function ValidImportCSV(CsvFileAsString)

  462. 	objCSV.LoadFromString(CsvFileAsString)

  463. 	If objCSV.NumColumns = 20 Then

  464. 		ValidImportCSV = True

  465. 	Else

  466. 		ValidImportCSV = False

  467. 	End If

  468. End Function

  469. 

  470. Sub ImportCass

  471. 	Dim currentRow

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

  473. 

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

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

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

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

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

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

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

  481. 		

  482. 	Next

  483. 

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

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

  486. End Sub

  487. 

  488. Sub RunMailManager

  489. 	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

  490. End Sub

  491. Sub ExportMMCsv(KitId)

  492. 	

  493. 	Dim success

  494. 	objCsv.HasColumnNames = 1

  495. 	objCSV.EnableQuotes = 1

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

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

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

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

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

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

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

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

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

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

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

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

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

  509. 		Dim CurrentRow:CurrentRow = 0 

  510. 		While Not rs.EOF

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

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

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

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

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

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

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

  518. 			rs.MoveNext

  519. 			CurrentRow = CurrentRow +1

  520. 		Wend

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

  522. 		outFile.WriteLine CsvString

  523. 		outFile.Close

  524. 

  525. End Sub

  526. Function CheckForJobsToCass()

  527. oConn.ConnectionString = ConnectionString

  528. oConn.Open

  529. 

  530. 	'oConn.Open

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

  532. 		If Not rs.EOF Then

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

  534. 			rs.Close

  535. 			CheckForJobsToCass = KitID

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

  537. 		Else 

  538. 			CheckForJobsToCass = 0

  539. 		End If 

  540. 	'oConn.Close

  541. End Function

  542. 

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

  544. Dim padLength

  545.     padLength = desiredLength - Len(originalString)

  546.     If padLength > 0 Then

  547.     ' Left pad the string with zeros

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

  549. Else

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

  551.     PadLeft = originalString

  552. End If

  553. 

  554. End Function

  555. Function Truncate(inputString, size)

  556. 

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

  558. 

  559. End Function

  560. Function PadString(inputString, size)

  561.     Dim paddedString

  562.     Dim inputLength

  563.     Dim i

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

  565.     ' Get the length of the input string

  566.     inputLength = Len(inputString)

  567. 

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

  569.     If inputLength >= size Then

  570.         PadString = inputString

  571.         Exit Function

  572.     End If

  573. 

  574.     ' Initialize the padded string with the input string

  575.     paddedString = inputString

  576. 

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

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

  579.         paddedString = paddedString & " "

  580.     Next

  581. 

  582.     ' Return the padded string

  583.     PadString = paddedString

  584. End Function

  585. 

  586. Function CleanNull(StringToClean)

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

  588. End Function 

  589. 

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

  591.     If IsObject(val) Then

  592.         Set var = val

  593.     Else

  594.         var = val

  595.     End If

  596. End Sub

  597. 

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

  599.     If cond Then

  600.         Assign Choice, if_true

  601.     Else

  602.         Assign Choice, if_false

  603.     End If

  604. End Function

  605. 

  606. Function CompressArray(arr)

  607.     Dim temp,i,j

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

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

  610.             If arr(i) = "" Then

  611.                 temp = arr(i)

  612.                 arr(i) = arr(j)

  613.                 arr(j) = temp

  614.             End If

  615.         Next

  616.     Next

  617.     CompressArray = arr

  618. End Function

  619. 

  620. Function TrimLeadingZeros(inputStr)

  621.     Dim i

  622.     For i = 1 To Len(inputStr)

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

  624.             TrimLeadingZeros = Mid(inputStr, i)

  625.             Exit Function

  626.         End If

  627.     Next

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

  629.     TrimLeadingZeros = "0"

  630. End Function

Powered by TurnKey Linux.