dcovington
/
tracking_kits
1
0
Bifurcation 0
Code Tickets 0 Demandes d'ajout 0 Versions 0 Wiki Activité
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
72 Révisions
1 Branche
287MB
Aborescence: 41741eecd2
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '41741eecd2'
${ noResults }
tracking_kits/App/Controllers/Kit/KitController.asp

376 lignes
14KB
Brut Annotations Historique 

  1. <% Option Explicit %>

  2. <!--#include file="../../include_all.asp"-->

  3. <!--#include file="../../ViewModels/KitViewModels.asp"-->

  4. <%

  5. Class KitController

  6. 	Public Model

  7. 	Public Sub SwitchBoardIndex

  8. 

  9. 		dim page_size : page_size = 10

  10. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  11. 		dim page_count, record_count

  12. 		set Model                   = new PagedIndex_ViewModel_Class

  13. 		Model.Title                 = "Tracking Kits"

  14. 		set Model.Kit          		= KitRepository.PagedIndexView(page_size, page_num, page_count, record_count)

  15. 		Model.CurrentPageNumber     = page_num

  16. 		Model.PageSize              = page_size

  17. 		Model.PageCount             = page_count

  18. 		Model.RecordCount           = record_count

  19. 		%> <!--#include file="../../Views/Kit/SwitchBoardIndex.asp"--> <%

  20. 	End Sub

  21. 	

  22. 	Public Sub SwitchBoardPurpleEnvelopsIndex

  23. 

  24. 		dim page_size : page_size = 10

  25. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  26. 		dim page_count, record_count

  27. 		set Model                   = new SwitchBoard_PurpleEnvelopesViewModel_Class

  28. 		Model.Title                 = "Purple Envelope Kits"

  29. 		set Model.Kit          		= KitRepository.PagedPurpleEnvelopsIndexView(page_size, page_num, page_count, record_count)

  30. 		Model.CurrentPageNumber     = page_num

  31. 		Model.PageSize              = page_size

  32. 		Model.PageCount             = page_count

  33. 		Model.RecordCount           = record_count

  34. 		%> <!--#include file="../../Views/Kit/SwitchBoardPurpleEnvelopeIndex.asp"--> <%

  35. 	End Sub

  36. 

  37. 		Public Sub SwitchBoardPurpleEnvelopeEditPost

  38. 		MVC.RequirePost

  39. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "KitEditForm", Request.Form("nonce"), "Edit", Array("Id", Request.Form("Id"))

  40. 		dim ID : ID = Request.Form("Id")

  41. 		dim model : set model = KitRepository.FindByID(ID)

  42. 		set model = Automapper.AutoMap(Request.Form, model)

  43. 		if Request.Form("InBoundTracking") = "on" Then

  44. 		model.InboundSTID = SettingsRepository.FindByName("Inbound STID") 

  45. 		end if

  46. 

  47. 

  48. 		model.Status = "Ready to Assign Labels"

  49. 		'model.Validate

  50. 		'If model.Validator.HasErrors then

  51. 			FormCache.SerializeForm "EditKit", Request.Form

  52. 		'	Flash.Errors = model.Validator.Errors

  53. 		'	MVC.RedirectToActionExt "Edit", Array("Id",ID)

  54. 		'Else

  55. 			KitRepository.Update model

  56. 			FormCache.ClearForm "EditKit"

  57. 			Flash.Success = "Kit updated."

  58. 			MVC.RedirectToAction "Index"

  59. 		'End If

  60. 	End Sub

  61. 	

  62. 	Public Sub SwitchBoardPurpleEnvelopeEdit

  63. 	

  64. 		dim id : id = Request.QueryString("Id")

  65. 		set Model = new SwitchBoard_ViewModel_Class

  66. 		set Model.Kit = KitRepository.SwitchBoardPurpleEnvelopeEditFindById(id)

  67. 		set Model.Labels = InkjetRecordsRepository.Find(Array("KitId =?",id),empty)

  68. 		set Model.StidDropDown = SettingsRepository.GetStidDropDownRS()

  69. 		Model.Title = "Purple Envelopes for "

  70. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  71. 		%> <!--#include file="../../Views/Kit/SwitchBoardPurpleEnvelopeEdit.asp"--> <%

  72. 	End Sub

  73. 

  74. 	Public Sub Index

  75. 

  76. 		dim page_size : page_size = 10

  77. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  78. 		dim page_count, record_count

  79. 		set Model                   = new PagedIndex_ViewModel_Class

  80. 		Model.Title                 = "Tracking Kits"

  81. 		set Model.Kit          		= KitRepository.FindPaged(empty, "ID", page_size, page_num, page_count, record_count)

  82. 		Model.CurrentPageNumber     = page_num

  83. 		Model.PageSize              = page_size

  84. 		Model.PageCount             = page_count

  85. 		Model.RecordCount           = record_count

  86. 		%> <!--#include file="../../Views/Kit/Index.asp"--> <%

  87. 

  88. 	End Sub

  89. 	Public Sub Search

  90. 

  91.     	dim searchValue:searchValue = Choice(Request.Form.Count = 0,Request.QueryString("q"),Request.Form("q"))

  92. 		dim page_size : page_size = 10

  93. 		dim page_num  : page_num  = Choice(Len(Request.Querystring("page_num")) > 0, Request.Querystring("page_num"), 1)

  94. 		dim page_count, record_count

  95. 		set Model                   = new PagedIndex_ViewModel_Class

  96. 		Model.Title                 = "Kit"

  97. 		set Model.Kit          = KitRepository.SearchTablePaged(Array("ID","%" & searchValue & "%","JobNumber","%" & searchValue & "%","Jcode","%" & searchValue & "%"),"ID", page_size, page_num, page_count, record_count)

  98. 		Model.CurrentPageNumber     = page_num

  99. 		Model.PageSize              = page_size

  100. 		Model.PageCount             = page_count

  101. 		Model.RecordCount           = record_count

  102. 		%> <!--#include file="../../Views/Kit/Index.asp"--> <%

  103. 

  104. 	End Sub

  105. 

  106. 	Public Sub SwitchBoardEdit

  107. 		

  108. 		dim id : id = Request.QueryString("Id")

  109. 		

  110. 		set Model = new SwitchBoard_ViewModel_Class

  111. 		set Model.Kit = KitRepository.SwitchBoardEditFindById(id)

  112. 		set Model.Labels = KitLabelsRepository.Find(Array("KitId =?",id),empty)

  113. 		Model.Title = "Kit for "

  114. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  115. 		%> <!--#include file="../../Views/Kit/SwitchBoardEdit.asp"--> <%

  116. 	End Sub

  117. 	Public Sub DownloadTrackingkitSnailWorksPDF

  118. 		

  119. 		dim id : id = Request.QueryString("Id")

  120. 		ReportManager.Filename =  Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\Label_Report.rep"

  121. 			if dev = true Then

  122. 

  123. 				ReportManager.SetDatabaseConnectionString "TRACKINGKITLABELS","Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\webdata - Copy.mdb;"

  124. 

  125. 			else

  126. 

  127. 				ReportManager.SetDatabaseConnectionString "TRACKINGKITLABELS","Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=C:\inetpub\Data\webdata - Copy.mdb;"

  128. 

  129. 			End If

  130. 		ReportManager.Preview = false

  131. 		ReportManager.ShowProgress = false

  132. 		ReportManager.ShowPrintDialog = false

  133. 		

  134. 		ReportManager.SetParamValue "PBKITID", CInt(id)

  135. 

  136. 		ReportManager.SaveToPdf Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\" & id & ".pdf",1

  137. 	

  138. 		Dim objStream:Set objStream = Server.CreateObject("ADODB.Stream")

  139. 		objStream.Type = 1 'adTypeBinary

  140. 		objStream.Open

  141. 		objStream.LoadFromFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "Data\" & id & ".pdf")

  142. 		Response.ContentType = "application/octet-stream"

  143. 		Response.Addheader "Content-Disposition", "attachment; filename=" & id & ".pdf"

  144. 		Response.BinaryWrite objStream.Read

  145. 		objStream.Close

  146. 		Set objStream = Nothing

  147. 	

  148. 	

  149. 	End Sub

  150. 

  151.     Public Sub DownloadTrackingkitSnailWorks

  152. 		dim ExportDirectory:ExportDirectory = "\\kci-syn-cl01\PC Transfer\TrackingDataExport\"

  153. 		dim id : id = Request.QueryString("Id")

  154. 		dim export: set export = SnailWorksRepository.GetSnailWorksExportById(id)

  155. 		

  156. 		if export.DetailRecords.Count > 0 Then

  157. 			If Not Server.CreateObject("Scripting.FileSystemObject").FolderExists(server.mappath("/uploads/")) Then : Server.CreateObject("Scripting.FileSystemObject").CreateFolder(server.mappath("/uploads/")):End If

  158. 			dim objExportFile: Set objExportFile = Server.CreateObject("Scripting.FileSystemObject").CreateTextFile(server.mappath("/uploads/" & id & ".csv"),2)

  159. 			With objExportFile

  160. 				.Write """" & export.Header.RecordType & ""","

  161. 				.Write """" & export.Header.Version	 & ""","									

  162. 				.Write """" & export.Header.UserId			 & ""","					

  163. 				.Write """" & export.Header.ClientName	 & ""","

  164. 				.Write """" & export.Header.ParentClientName & ""","												

  165. 				.Write """" & export.Header.JobName				 & ""","							

  166. 				.Write """" & export.Header.JobDescription				 & ""","									

  167. 				.Write """" & export.Header.SplitName						 & ""","						

  168. 				.Write """" & export.Header.SplitDescription & ""","

  169. 				.Write """" & export.Header.PieceType				 & ""","								

  170. 				.Write """" & export.Header.MailDate					 & ""","							

  171. 				.Write """" & export.Header.UploadType						 & ""","							

  172. 				.Write """" & export.Header.TrackedQuanity						 & ""","						

  173. 				.Write """" & export.Header.PiecesMailed							 & ""","				

  174. 				.Write """" & export.Header.TargetInHomeDateStart						 & ""","				

  175. 				.Write """" & export.Header.TargetInHomeDateEnd							 & ""","					

  176. 				.Write """" & export.Header.ConfirmationEmail									 & ""","				

  177. 				.Write """" & export.Header.JobId	 & ""","

  178. 				.Write """" & export.Header.SplitId	 & ""","											

  179. 				.Write """" & export.Header.TypeOfTracking	 & ""","												

  180. 				.Write """" & export.Header.ReturnedPostalRoutingCode	 & ""","											

  181. 				.Write """" & export.Header.ReportId1						 & ""","						

  182. 				.Write """" & export.Header.Report1Email						 & ""","					

  183. 				.Write """" & export.Header.ReportId2 & ""","

  184. 				.Write """" & export.Header.Report2Email  & ""","

  185. 				.Write """" & export.Header.INFOONLY & """"

  186. 				.Write  vbCrLf													

  187. 			dim it:set it = export.DetailRecords.Iterator

  188. 			dim records

  189. 				while it.HasNext

  190. 					set records = it.GetNext()

  191. 					.Write """" & records.RecordType & """," 

  192. 					.Write """" & records.CustomerUniqueIdentifier & """," 

  193. 					.Write """" & records.IMB & """," 

  194. 					.Write """" & records.Greeting & """," 

  195. 					.Write """" & records.FirstName & """," 

  196. 					.Write """" & records.MI & """," 

  197. 					.Write """" & records.LastName & """," 

  198. 					.Write """" & records.Suffix & """," 

  199. 					.Write """" & records.FullName & """," 

  200. 					.Write """" & records.Company & """," 

  201. 					.Write """" & records.Title & """," 

  202. 					.Write """" & records.Address1 & """," 

  203. 					.Write """" & records.Address2 & """," 

  204. 					.Write """" & records.City & """," 

  205. 					.Write """" & records.State & """," 

  206. 					.Write """" & records.Zip & """," 

  207. 					.Write """" & records.UserDefined1 & """," 

  208. 					.Write """" & records.UserDefined2 & """," 

  209. 					.Write """" & records.UserDefined3 & """," 

  210. 					.Write """" & records.UserDefinedIdentifier4 & """," 

  211. 					.Write """" & records.UserDefinedIdentifier5 & """," 

  212. 					.Write """" & records.SeedIndicator & """," 

  213. 					.Write """" & records.InductionPoint & """," 

  214. 					.Write """" & records.InductionDate & """," 

  215. 					.Write """" & records.InBoundIMB & """," 

  216. 					.Write """" & records.IMCB & """," 

  217. 					.Write """" & records.IMTB & """" & vbCRLF

  218. 				Wend

  219. 			End With

  220. 			objExportFile.Close

  221.     		Dim objStream:Set objStream = Server.CreateObject("ADODB.Stream")

  222.     		objStream.Type = 1 'adTypeBinary

  223.     		objStream.Open

  224.     		objStream.LoadFromFile(server.mappath("/uploads/" & id & ".csv"))

  225.     		Response.ContentType = "application/octet-stream"

  226.     		Response.Addheader "Content-Disposition", "attachment; filename=" & id & ".csv"

  227.     		Response.BinaryWrite objStream.Read

  228.     		objStream.Close

  229.     		Set objStream = Nothing

  230. 		End If

  231. 	End Sub

  232. 

  233. 	Public Sub Edit

  234. 

  235. 		dim id : id = Request.QueryString("Id")

  236. 		set Model = new Edit_ViewModel_Class

  237. 		set Model.Kit = KitRepository.FindByID(id)

  238. 		Model.Title = "Edit Kit"

  239. 		HTMLSecurity.SetAntiCSRFToken "KitEditForm"

  240. 		%> <!--#include file="../../Views/Kit/Edit.asp"--> <%

  241. 		Flash.Success = "Kit  Updated."

  242. 	End Sub

  243. 

  244. 	Public Sub EditPost

  245. 		MVC.RequirePost

  246. 		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt "KitEditForm", Request.Form("nonce"), "Edit", Array("Id", Request.Form("Id"))

  247. 		dim ID : ID = Request.Form("Id")

  248. 		dim model : set model = KitRepository.FindByID(ID)

  249. 		set model = Automapper.AutoMap(Request.Form, model)

  250. 		'model.Validate

  251. 		'If model.Validator.HasErrors then

  252. 			FormCache.SerializeForm "EditKit", Request.Form

  253. 		'	Flash.Errors = model.Validator.Errors

  254. 		'	MVC.RedirectToActionExt "Edit", Array("Id",ID)

  255. 		'Else

  256. 			KitRepository.Update model

  257. 			FormCache.ClearForm "EditKit"

  258. 			Flash.Success = "Kit updated."

  259. 			MVC.RedirectToAction "Index"

  260. 		'End If

  261. 	End Sub

  262. 	Public Sub CreateTrackingKit

  263. 

  264. 		dim form_params : set form_params = FormCache.DeserializeForm("NewKit")

  265. 

  266. 		dim ID : ID = Request.QueryString("Id")

  267. 		dim model : set model = new Create_ViewModel_Class

  268. 		model.Title = "Create Kit "

  269. 		model.JCode = ID

  270. 		dim ugh : set ugh =  JurisdictionRepository.Find(Array("[JCode] = ?",ID),empty)

  271. 		set model.Jurisdiction = ugh.pop()

  272. 

  273. 		'If Not form_params Is Nothing then

  274. 		'	set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)

  275. 		'Else

  276. 		'	set Model = new Create_ViewModel_Class

  277. 		'End If

  278. 

  279.   		HTMLSecurity.SetAntiCSRFToken "KitCreateForm"

  280. 

  281. 		%> <!--#include file="../../Views/Kit/CreateTrackingKit.asp"--> <%

  282. 	End Sub

  283. 	Public Sub Create

  284. 

  285. 		dim form_params : set form_params = FormCache.DeserializeForm("NewKit")

  286. 

  287. 		dim ID : ID = Request.QueryString("Id")

  288. 		dim model : set model = new Create_ViewModel_Class

  289. 		model.Title = "Create Kit "

  290. 		model.JCode = ID

  291. 		dim ugh : set ugh =  JurisdictionRepository.Find(Array("[JCode] = ?",ID),empty)

  292. 		set model.Jurisdiction = ugh.pop()

  293. 

  294. 		'If Not form_params Is Nothing then

  295. 		'	set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)

  296. 		'Else

  297. 		'	set Model = new Create_ViewModel_Class

  298. 		'End If

  299. 

  300.   		HTMLSecurity.SetAntiCSRFToken "KitCreateForm"

  301. 

  302. 		%> <!--#include file="../../Views/Kit/Create.asp"--> <%

  303. 	End Sub

  304. 

  305. 	Public Sub CreatePost

  306. 

  307. 		MVC.RequirePost

  308. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitCreateForm", Request.Form("nonce"), "Create"

  309. 

  310. 			dim new_Kit_model : set new_Kit_model = Automapper.AutoMap(Request.Form, new KitModel_Class)

  311. 

  312. 			'new_Kit_model.Validator.Validate

  313. 

  314. 			'If new_Kit_model.Validator.HasErrors then

  315. 			'	FormCache.SerializeForm "NewKit", Request.Form

  316. 			'	Flash.Errors = new_Kit_model.Validator.Errors

  317. 			'	MVC.RedirectToAction "Create"

  318. 			'Else

  319. 			

  320. 				KitRepository.AddNew new_Kit_model

  321. 				KitLabelsRepository.BulkAdd new_Kit_model.ID,Request.Form("Amount")

  322. 			'	FormCache.ClearForm "NewKit"

  323. 				Flash.Success = "Kit added."

  324. 				MVC.RedirectToAction "Index"

  325. 			'End If

  326. 	End Sub

  327. 

  328. 		Public Sub CreateTrackingKitPost

  329. 

  330. 		MVC.RequirePost

  331. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitCreateForm", Request.Form("nonce"), "Create"

  332. 

  333. 			dim new_Kit_model : set new_Kit_model = Automapper.AutoMap(Request.Form, new KitModel_Class)

  334. 

  335. 			'new_Kit_model.Validator.Validate

  336. 

  337. 			'If new_Kit_model.Validator.HasErrors then

  338. 			'	FormCache.SerializeForm "NewKit", Request.Form

  339. 			'	Flash.Errors = new_Kit_model.Validator.Errors

  340. 			'	MVC.RedirectToAction "Create"

  341. 			'Else

  342. 			

  343. 				KitRepository.AddNew new_Kit_model

  344. 				KitLabelsRepository.BulkAdd new_Kit_model.ID,Request.Form("Amount")

  345. 			'	FormCache.ClearForm "NewKit"

  346. 				Flash.Success = "Kit added."

  347. 				MVC.RedirectToAction "Index"

  348. 			'End If

  349. 	End Sub

  350. 

  351. 	Public Sub Delete

  352. 		dim id : id = Request.QueryString("Id")

  353. 		set Model = new Delete_ViewModel_Class

  354. 		set Model.Kit = KitRepository.FindByID(id)

  355. 			Model.Title = "Delete Kit"

  356. 

  357. 		HTMLSecurity.SetAntiCSRFToken "KitDeleteForm"

  358. 

  359. 		%> <!--#include file="../../Views/Kit/Delete.asp"--> <%

  360. 	End Sub

  361. 

  362. 	Public Sub DeletePost

  363. 			MVC.RequirePost

  364. 			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction "KitDeleteForm", Request.Form("nonce"), "Create"

  365. 

  366. 			dim id : id = Request.Form("Id")

  367. 			KitRepository.Delete id

  368. 

  369. 			Flash.Success = "Kit deleted."

  370. 			MVC.RedirectToAction "Index"

  371. 	End Sub

  372. 

  373. End Class

  374. MVC.Dispatch

  375. %>

Powered by TurnKey Linux.