/beta/inventory/NewItem.asp

http://github.com/khaneh/Orders · ASP · 222 lines · 186 code · 18 blank · 18 comment · 13 complexity · 2a729103aea1685a9436fd1a2f128ad2 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. 'Inventory (5)
  3. PageTitle= " "
  4. SubmenuItem=4
  5. if not Auth(5 , 4) then NotAllowdToViewThisPage()
  6. %>
  7. <!--#include file="top.asp" -->
  8. <!--#include File="../include_farsiDateHandling.asp"-->
  9. <!--#include File="../include_JS_InputMasks.asp"-->
  10. <%
  11. '-----------------------------------------------------------------------------------------------------
  12. '------------------------------------------------------------------------- Submit a new Inventory Item
  13. '-----------------------------------------------------------------------------------------------------
  14. if request.form("Submit")=" " then
  15. catItem = request.form("catItem")
  16. ItemName = request.form("ItemName")
  17. OldItemID = request.form("OldItemID")
  18. ownerAcc = request.form("ownerAcc")
  19. costingMethod = request.form("cost")
  20. Minim = request.form("Minim")
  21. qtty = request.form("qtty")
  22. Unit = request.form("Unit")
  23. outByOrder = request.form("outByOrder")
  24. if outByOrder="on" then
  25. outByOrder = 1
  26. else
  27. outByOrder =0
  28. end if
  29. response.write "<BR><BR><TABLE align=center style='border: solid 2pt black'><TR><TD>"
  30. response.write "<li> = " & catItem& "<br>"
  31. response.write "<li> = " & ItemName& "<br>"
  32. 'response.write "<li> = "
  33. 'if ownerAcc=-1 then
  34. 'response.write " ǁ <br>"
  35. 'else
  36. 'response.write " "& ownerAcc & "<br>"
  37. 'end if
  38. response.write "<li> = " & OldItemID& "<br>"
  39. response.write "<li> = " & costingMethod& "<br>"
  40. response.write "<li> = " & Minim& "<br>"
  41. response.write "<li> = " & qtty& "<br>"
  42. if outByOrder=1 then
  43. response.write "<li> "
  44. end if
  45. response.write "<li> = " & Unit& "<br>"
  46. response.write "</TD></TR></TABLE>"
  47. mySql="INSERT INTO InventoryItems (OldItemID, owner, Name, Minim, Qtty, Unit, costingMethod,outByOrder) VALUES ("& OldItemID & ", "& ownerAcc & ",N'"& ItemName & "', "& Minim & ", 0, N'"& Unit & "','"& costingMethod & "', "& outByOrder & " )"
  48. conn.Execute mySql
  49. set RS4 = conn.Execute ("SELECT * FROM InventoryItems where OldItemID=" & OldItemID & " and Name=N'" & ItemName & "'")
  50. if RS4.EOF then
  51. response.write "<br><br>! . Ȑ."
  52. response.end
  53. end if
  54. ItemID = RS4("id")
  55. RS4.close
  56. mySql="INSERT INTO InventoryItemCategoryRelations (Item_ID, Cat_ID) VALUES ("& ItemID & ", "& catItem & ")"
  57. conn.Execute mySql
  58. 'if Qtty <> 0 then
  59. mySql="INSERT INTO InventoryLog (ItemID, RelatedID, logDate, Qtty, owner, CreatedBy, IsInput, type) VALUES ("& ItemID & ", -4 ,N'"& shamsiToday() & "', "& Qtty & ", -1 , "& session("id") & ", 1 , 4)"
  60. conn.Execute mySql
  61. 'end if
  62. response.write "<center><br> .</center>"
  63. response.end
  64. end if
  65. %>
  66. <%
  67. '-----------------------------------------------------------------------------------------------------
  68. '--------------------------------------------------------------------------------------- New Item Form
  69. '-----------------------------------------------------------------------------------------------------
  70. %>
  71. <SCRIPT LANGUAGE="JavaScript">
  72. <!--
  73. function hideIT()
  74. {
  75. //alert(document.all.aaa2.value)
  76. if(document.all.aaa2.value==2)
  77. {
  78. document.all.aaa1.style.visibility= 'visible'
  79. document.all.ownerAcc.value = ""
  80. document.all.ownerAcc.focus()
  81. }
  82. else
  83. {
  84. document.all.aaa1.style.visibility= 'hidden'
  85. document.all.ownerAcc.value = "-1"
  86. }
  87. }
  88. //-->
  89. </SCRIPT>
  90. <BR>
  91. <FORM METHOD=POST ACTION="NewItem.asp">
  92. <TABLE border=0 align=center>
  93. <TR>
  94. <TD colspan=2 align=center><H3> </H3></TD>
  95. </TR>
  96. <TR>
  97. <TD align=left> </TD>
  98. <TD align=right>
  99. <SELECT NAME="catItem" style='font-family: tahoma,arial ; font-size: 9pt; font-weight: bold' size="1" onchange='check(this);'>
  100. <option value="-1"> </option>
  101. <option value="-1">------------------</option>
  102. <%
  103. set RS4 = conn.Execute ("SELECT * FROM InventoryItemCategories")
  104. while not (RS4.eof) %>
  105. <OPTION value="<%=RS4("ID")%>"<%
  106. 'if trim(catItem1) = trim(RS4("ID")) then
  107. 'response.write " selected "
  108. 'end if
  109. %>>* <%=RS4("Name")%> </option>
  110. <%
  111. RS4.MoveNext
  112. wend
  113. RS4.close
  114. %>
  115. </SELECT>
  116. </TD>
  117. </TR>
  118. <tr>
  119. <td align="left"></td>
  120. <td align="right"></td>
  121. </tr>
  122. <TR>
  123. <TD align=left> </TD>
  124. <TD align=right><INPUT TYPE="text" NAME="ItemName" size=64></TD>
  125. </TR>
  126. <TR>
  127. <TD align=left> </TD>
  128. <TD align=right><INPUT TYPE="text" NAME="OldItemID"></TD>
  129. </TR>
  130. <!--TR>
  131. <TD align=left></TD>
  132. <TD align=right>
  133. <SELECT NAME="aaa2" onchange="hideIT()" >
  134. <option value=1> ǁ </option>
  135. <option value=2> ( )</option>
  136. </SELECT></TD>
  137. </TR>
  138. <TR>
  139. <TD align=left></TD>
  140. <TD align=right><span name="aaa1" id="aaa1" style="visibility:'hidden'">
  141. <INPUT TYPE="text" NAME="ownerAcc" value="-1"></span></TD>
  142. </TR>
  143. <TR>
  144. <TD align=left></TD>
  145. <TD align=right height=20></TD>
  146. </TR>
  147. <TR>
  148. <TD align=left> </TD>
  149. <TD align=right><INPUT TYPE="radio" NAME="cost" checked value="AVRG"> <BR>
  150. <INPUT TYPE="radio" NAME="cost" value="LIFO">LIFO <BR>
  151. <INPUT TYPE="radio" NAME="cost" value="FIFO">FIFO</TD>
  152. </TR>
  153. <TR>
  154. <TD align=left></TD>
  155. <TD align=right height=20></TD>
  156. </TR-->
  157. <TR>
  158. <TD align=left> </TD>
  159. <TD align=right><INPUT TYPE="hidden" NAME="ownerAcc" value="-1"><INPUT TYPE="hidden" NAME="cost" value="FIFO"><INPUT TYPE="text" NAME="Minim" value=0></TD>
  160. </TR>
  161. <TR>
  162. <TD align=left> </TD>
  163. <TD align=right><INPUT TYPE="text" NAME="qtty" value=0></TD>
  164. </TR>
  165. <TR>
  166. <TD align=left> </TD>
  167. <TD align=right><INPUT TYPE="text" NAME="Unit" value=""</TD>
  168. </TR>
  169. <TR>
  170. <TD align=left><INPUT TYPE="checkbox" NAME="outByOrder"></TD>
  171. <TD align=right> </TD>
  172. </TR>
  173. <TR>
  174. <TD align=left></TD>
  175. <TD align=right height=20>
  176. <BR><INPUT TYPE="submit" NamE="submit" value=" "onclick="return validateForm()">
  177. </TD>
  178. </TR>
  179. </TABLE>
  180. </FORM>
  181. <SCRIPT LANGUAGE="JavaScript">
  182. <!--
  183. function validateForm(){
  184. if (document.all.ItemName.value=="" || document.all.catItem.value=="" || document.all.OldItemID.value=="")
  185. {
  186. alert("! ")
  187. return false
  188. }
  189. }
  190. function check(src){
  191. badCode = false;
  192. if (window.XMLHttpRequest) {
  193. var objHTTP=new XMLHttpRequest();
  194. } else if (window.ActiveXObject) {
  195. var objHTTP = new ActiveXObject("Microsoft.XMLHTTP");
  196. }
  197. objHTTP.open('GET','xml_MaxID4newItems.asp?id='+src.value,false)
  198. objHTTP.send()
  199. tmpStr = unescape(objHTTP.responseText)
  200. document.all.OldItemID.value=tmpStr;
  201. }
  202. //-->
  203. </SCRIPT>
  204. <!--#include file="tah.asp" -->