/ES/m009pop2.asp

http://github.com/boss2009/ASP-site · ASP · 114 lines · 109 code · 5 blank · 0 comment · 17 complexity · fdbdd88d24c135f9757c9abde4ca4c63 MD5 · raw file

  1. <%@language="JAVASCRIPT"%>
  2. <!--#include file="../inc/ASPUtility.inc" -->
  3. <!--#include file="../Connections/cnnASP02.asp" -->
  4. <!--#INCLUDE file="../inc/ASPCheckLogin.inc" -->
  5. <%
  6. var MM_editAction = Request.ServerVariables("URL");
  7. if (Request.QueryString) {
  8. MM_editAction += "?" + Request.QueryString;
  9. }
  10. if (String(Request.Form("MM_update"))=="true"){
  11. var rsUpdateBoxes = Server.CreateObject("ADODB.Recordset");
  12. rsUpdateBoxes.ActiveConnection = MM_cnnASP02_STRING;
  13. rsUpdateBoxes.CursorType = 0;
  14. rsUpdateBoxes.CursorLocation = 2;
  15. rsUpdateBoxes.LockType = 3;
  16. if (Request.Form("BoxCount") > 1) {
  17. for (i = 1; i <= Request.Form("BoxCount"); i++){
  18. if (Request.Form("BoxWeight")(i) > 0) {
  19. rsUpdateBoxes.Source = "{call dbo.cp_eqpsrv_ship_box("+Request.Form("ID")(i)+","+Request.QueryString("intSrv_dtl_id")+",0,"+Request.Form("BoxWeight")(i)+","+Request.QueryString("intEquip_Srv_id")+",0,0,'E',0)}";
  20. rsUpdateBoxes.Open();
  21. } else {
  22. rsUpdateBoxes.Source = "{call dbo.cp_eqpsrv_ship_box("+Request.Form("ID")(i)+","+Request.QueryString("intSrv_dtl_id")+",0,0,"+Request.QueryString("intEquip_Srv_id")+",0,0,'D',0)}";
  23. rsUpdateBoxes.Open();
  24. }
  25. }
  26. }
  27. if (Request.Form("BoxCount") == 1) {
  28. if (Request.Form("BoxWeight") > 0) {
  29. rsUpdateBoxes.Source = "{call dbo.cp_eqpsrv_ship_box("+Request.Form("ID")+","+Request.QueryString("intSrv_dtl_id")+",0,"+Request.Form("BoxWeight")+","+Request.QueryString("intEquip_Srv_id")+",0,0,'E',0)}";
  30. rsUpdateBoxes.Open();
  31. } else {
  32. rsUpdateBoxes.Source = "{call dbo.cp_eqpsrv_ship_box("+Request.Form("ID")+","+Request.QueryString("intSrv_dtl_id")+",0,0,"+Request.QueryString("intEquip_Srv_id")+",0,0,'D',0)}";
  33. rsUpdateBoxes.Open();
  34. }
  35. }
  36. if (Request.Form("NewBoxWeight") > 0) {
  37. rsUpdateBoxes.Source = "{call dbo.cp_eqpsrv_ship_box(0,"+Request.QueryString("intSrv_dtl_id")+",1,"+Request.Form("NewBoxWeight")+","+Request.QueryString("intEquip_Srv_id")+",0,0,'A',0)}";
  38. rsUpdateBoxes.Open();
  39. }
  40. }
  41. var rsBoxes = Server.CreateObject("ADODB.Recordset");
  42. rsBoxes.ActiveConnection = MM_cnnASP02_STRING;
  43. rsBoxes.Source = "{call dbo.cp_eqpsrv_ship_box(0,"+Request.QueryString("intSrv_dtl_id")+",0,0,"+Request.QueryString("intEquip_Srv_id")+",0,0,'Q',0)}";
  44. rsBoxes.CursorType = 0;
  45. rsBoxes.CursorLocation = 2;
  46. rsBoxes.LockType = 3;
  47. rsBoxes.Open();
  48. %>
  49. <html>
  50. <head>
  51. <title>Shipping Boxes</title>
  52. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  53. <link rel="stylesheet" href="../css/MyStyle.css" type="text/css">
  54. <script language="Javascript" src="../js/MyFunctions.js"></script>
  55. <script language="Javascript">
  56. function Save(){
  57. document.frmpop2.submit();
  58. }
  59. function Init(){
  60. document.frmpop2.NewBoxWeight.focus();
  61. }
  62. function Close(){
  63. var TotalWeight = 0;
  64. if (document.frmpop2.BoxCount.value == 1) TotalWeight = document.frmpop2.BoxWeight.value;
  65. if (document.frmpop2.BoxCount.value > 1) {
  66. for (i = 0; i < document.frmpop2.BoxCount.value; i++) {
  67. TotalWeight = TotalWeight + Number(document.frmpop2.BoxWeight[i].value);
  68. }
  69. }
  70. if (!opener.closed) {
  71. opener.frm0302.NumberOfBoxes.value=document.frmpop2.BoxCount.value;
  72. opener.frm0302.TotalWeight.value=TotalWeight;
  73. }
  74. window.close();
  75. }
  76. </script>
  77. </head>
  78. <body onLoad="Init();">
  79. <form name="frmpop2" method="POST" action="<%=MM_editAction%>">
  80. <h5>Shipping Boxes</h5>
  81. <hr>
  82. <table cellspacing="1" cellpadding="1">
  83. <%
  84. var row = 0;
  85. while (!rsBoxes.EOF) {
  86. row++;
  87. %>
  88. <tr>
  89. <td><%=row%>.</td>
  90. <td><input type="text" name="BoxWeight" value="<%=(rsBoxes.Fields.Item("insBox_Wgt").Value)%>" size="3" onKeypress="AllowNumericOnly();"> LB (<%=rsBoxes.Fields.Item("insBox_Wgt").Value*0.454%>)kg</td>
  91. </tr>
  92. <input type="hidden" name="ID" value="<%=rsBoxes.Fields.Item("insSB_id").Value%>">
  93. <%
  94. rsBoxes.MoveNext();
  95. }
  96. %>
  97. </table>
  98. <hr>
  99. Add Box Weight: <input type="text" name="NewBoxWeight" size="4" onKeypress="AllowNumericOnly();"> LB
  100. <input type="button" value="Save" onClick="Save();" class="btnstyle">&nbsp;
  101. <input type="button" value="Close" onClick="Close();" class="btnstyle">
  102. <input type="hidden" name="BoxCount" value="<%=row%>">
  103. <input type="hidden" name="MM_update" value="true">
  104. </form>
  105. </body>
  106. </html>
  107. <%
  108. rsBoxes.Close();
  109. %>