/beta/shopfloor/manageOrder.asp

http://github.com/khaneh/Orders · ASP · 617 lines · 539 code · 46 blank · 32 comment · 66 complexity · 262bbe8fd67cf4208df6a663613c0b1e MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. 'shopfloor (3)
  3. PageTitle=" "
  4. SubmenuItem=2
  5. if not Auth(3 , 2) then NotAllowdToViewThisPage()
  6. 'OutService Page Request
  7. 'By Alix - Last changed: 81/01/13
  8. %>
  9. <!--#include file="top.asp" -->
  10. <!--#include File="../include_farsiDateHandling.asp"-->
  11. <%
  12. catItem1 = request("catItem")
  13. if catItem1="" then catItem1="-1"
  14. '-----------------------------------------------------------------------------------------------------
  15. '------------------------------------------------------------------------ Submit an OutService request
  16. '-----------------------------------------------------------------------------------------------------
  17. if request.form("Submit")=" " then
  18. order_ID = request.form("radif")
  19. otypeID = request.form("type")
  20. comment = request.form("comment")
  21. Price = request.form("Price")
  22. qtty = request.form("qtty")
  23. priceComment = request.form("priceComment")
  24. if Price = "" then price = "0"
  25. if comment = "" then comment = "-"
  26. if qtty = "" then qtty = "0"
  27. CreatedBy = session("id")
  28. dueDate = request.form("date1")
  29. if order_ID="" or otypeID="-1" or comment="" or Price="" then
  30. response.write "error"
  31. response.end
  32. end if
  33. set RS4 = conn.Execute ("SELECT * FROM OutServices where ID=" & otypeID)
  34. if (RS4.eof) then
  35. otype="-unknown-"
  36. else
  37. otype=RS4("Name")
  38. end if
  39. RS4.close
  40. mySql="INSERT INTO purchaseRequests (qtty, order_ID, typeName, typeID, comment, ReqDate, price,priceComment, CreatedBy, DueDate, IsService) VALUES ("& qtty & ","& order_ID & ", N'"& otype & "', "& otypeID & ", N'"& comment & "',N'"& shamsiToday() & "', "& price & ",N'"& priceComment & "', "& CreatedBy & ", N'"& DueDate & "' ,1 )"
  41. 'response.write "<div align=left dir=ltr>"
  42. 'response.write mySql
  43. 'response.end
  44. conn.Execute mySql
  45. 'RS2.close
  46. if not request("relatedApprovedInvoiceID")="0" then
  47. call UnApproveInvoice(request("relatedApprovedInvoiceID"),request("relatedApprovedInvoiceBy"))
  48. end if
  49. response.redirect "manageOrder.asp?radif=" & order_ID
  50. end if
  51. '-----------------------------------------------------------------------------------------------------
  52. '-------------------------------------------------------------------- Submit an Inventory Item request
  53. '-----------------------------------------------------------------------------------------------------
  54. if request.form("Submit")=" " then
  55. order_ID = request.form("radif")
  56. item = request.form("item")
  57. comment = request.form("comment")
  58. qtty = request.form("qtty")
  59. CreatedBy = session("id")
  60. if request.form("CustomerHaveInvItem") ="on" then
  61. CustomerHaveInvItem = 1
  62. else
  63. CustomerHaveInvItem = 0
  64. end if
  65. if qtty = "" then qtty = "0"
  66. if comment = "" then comment = "-"
  67. if not (item = "" or item="-1") then
  68. if order_ID="" or otypeID="-1" or comment="" or qtty="" then
  69. response.write "error"
  70. response.end
  71. end if
  72. set RS4 = conn.Execute ("SELECT * FROM InventoryItems where ID=" & item)
  73. if (RS4.eof) then
  74. otype="-unknown-"
  75. unit=RS4("unit")
  76. else
  77. otype=RS4("Name")
  78. unit=RS4("unit")
  79. end if
  80. RS4.close
  81. mySql="INSERT INTO InventoryItemRequests (order_ID, ItemName, ItemID, comment, ReqDate, Qtty, unit, CreatedBy, CustomerHaveInvItem) VALUES ("& order_ID & ", N'"& otype & "', "& item & ", N'"& comment & "',N'"& shamsiToday() & "', "& Qtty & ", N'"& unit & "' , "& CreatedBy & " , " & CustomerHaveInvItem & ")"
  82. conn.Execute mySql
  83. 'RS2.close
  84. if not request("relatedApprovedInvoiceID")="0" then
  85. call UnApproveInvoice(request("relatedApprovedInvoiceID"), request("relatedApprovedInvoiceBy"))
  86. end if
  87. response.redirect "manageOrder.asp?radif=" & order_ID
  88. end if
  89. end if
  90. '-----------------------------------------------------------------------------------------------------
  91. '---------------------------------------------------------------------- Delete an OutReq from an order
  92. '-----------------------------------------------------------------------------------------------------
  93. if request("d")="y" then
  94. myRequestID=request("i")
  95. set RSX=Conn.Execute ("SELECT * FROM purchaseRequests WHERE id = "& myRequestID )
  96. if RSX("status")="new" then
  97. Conn.Execute ("update purchaseRequests SET status = 'del' where id = "& myRequestID )
  98. end if
  99. if not request("relatedApprovedInvoiceID")="0" then
  100. call UnApproveInvoice(request("relatedApprovedInvoiceID") , request("relatedApprovedInvoiceBy"))
  101. end if
  102. response.redirect "manageOrder.asp?radif=" & request("r")
  103. end if
  104. '-----------------------------------------------------------------------------------------------------
  105. '----------------------------------------------------------- Delete an Inventory Request from an order
  106. '-----------------------------------------------------------------------------------------------------
  107. if request("di")="y" then
  108. myRequestID=request("i")
  109. set RSX=Conn.Execute ("SELECT * FROM InventoryItemRequests WHERE id = "& myRequestID )
  110. if RSX("status")="new" then
  111. Conn.Execute ("update InventoryItemRequests SET status = 'del' where id = "& myRequestID )
  112. end if
  113. if not request("relatedApprovedInvoiceID")="0" then
  114. call UnApproveInvoice(request("relatedApprovedInvoiceID"), request("relatedApprovedInvoiceBy"))
  115. end if
  116. response.redirect "manageOrder.asp?radif=" & request("r")
  117. end if
  118. '-----------------------------------------------------------------------------------------------------
  119. '------------------------------------------------------------------------------------------------ Main
  120. '-----------------------------------------------------------------------------------------------------
  121. if request("radif")="" then
  122. %><br><br><br>
  123. <FORM METHOD=POST ACTION="manageOrder.asp?e=y">
  124. <TABLE border="0" cellspacing="0" cellpadding="2" dir="RTL" align="center" style="font-family:Tahoma,arial; font-size: 8pt;">
  125. <TR>
  126. <TD> :</TD>
  127. <TD><INPUT Name="Radif" TYPE="text" maxlength="6" size="6" tabIndex="1" dir="LTR"></TD>
  128. <TD><INPUT TYPE="submit" Name="Submit" Value="" style="width:100px;" class="inputBut"></TD>
  129. </TR>
  130. </TABLE>
  131. </FORM>
  132. <script language="JavaScript">
  133. <!--
  134. document.all.Radif.focus();
  135. //-->
  136. </script>
  137. <%
  138. response.end
  139. elseif NOT isNumeric(request("radif")) then
  140. response.write "<BR>"
  141. call showAlert(" <B>[ " & request("radif")& " ]</B> .", CONST_MSG_ERROR )
  142. response.end
  143. else
  144. OrderID=clng(request("radif"))
  145. end if
  146. '-----------------------------------------------------------------------------------------------------
  147. '------------------------------------------------------------ Details of an Job (Add Request to a JOB)
  148. '------------------------------------------------------------------------- if request("radif") <> "" :
  149. '-----------------------------------------------------------------------------------------------------
  150. set RS1=Conn.Execute ("SELECT orders_trace.*, Invoices.id FROM orders_trace RIGHT OUTER JOIN Orders ON orders_trace.radif_sefareshat = Orders.ID LEFT OUTER JOIN Invoices INNER JOIN InvoiceOrderRelations ON Invoices.ID = InvoiceOrderRelations.Invoice ON Orders.ID = InvoiceOrderRelations.[Order] WHERE (ISNULL(Invoices.issued, 0) = 1) AND (Orders.ID ='"& request("radif") & "') AND (Invoices.Voided = 0)")
  151. set RS2=Conn.Execute ("SELECT * FROM orders_trace WHERE (radif_sefareshat='"& request("radif") & "')")
  152. set RS3=Conn.Execute ("SELECT Invoices.id, Invoices.ApprovedBy FROM Orders LEFT OUTER JOIN Invoices INNER JOIN InvoiceOrderRelations ON Invoices.ID = InvoiceOrderRelations.Invoice ON Orders.ID = InvoiceOrderRelations.[Order] WHERE (ISNULL(Invoices.approved, 0) = 1) AND (Orders.ID ='"& request("radif") & "')")
  153. if RS2.eof then %>
  154. <FORM METHOD=POST ACTION="manageOrder.asp"><BR><BR>
  155. <TABLE border="0" cellspacing="0" cellpadding="2" dir="RTL" align="center" style="font-family:Tahoma,arial; font-size: 8pt;">
  156. <TR>
  157. <TD> :</TD>
  158. <TD><INPUT Name="Radif" TYPE="text" maxlength="6" size="6" tabIndex="1" dir="LTR"></TD>
  159. <TD><INPUT TYPE="submit" Name="Submit" Value="" style="width:100px;font-family:Tahoma,arial; font-size: 8pt;"></TD>
  160. </TR>
  161. </TABLE>
  162. </FORM>
  163. <br>
  164. <%
  165. call showAlert(" .", CONST_MSG_ERROR )
  166. response.end
  167. end if
  168. if not RS1.eof then
  169. EDITABLE="NO"
  170. response.write "<BR><BR>"
  171. call showAlert( " .( : <A HREF='../AR/AccountReport.asp?act=showInvoice&invoice="& RS1("id") & "' target='_blank'>" & RS1("id") & "</a>)<BR> .", CONST_MSG_ALERT )
  172. if Auth(3 , 5) then
  173. response.write "<br>"
  174. call showAlert(" "& session("CSRName") & " ." , CONST_MSG_INFORM)
  175. EDITABLE="YES"
  176. end if
  177. end if
  178. %>
  179. <!--#include File="../include_JS_InputMasks.asp"-->
  180. <font face="tahoma">
  181. <font face="tahoma">
  182. <% if (not RS3.EOF) and RS1.eof then
  183. response.write "<BR><BR>"
  184. call showAlert(" <A HREF='../AR/AccountReport.asp?act=showInvoice&invoice="& RS3("id") &"' target='_blank'>" & RS3("id") & "</A> <BR> ." , CONST_MSG_ALERT )
  185. relatedApprovedInvoiceID = RS3("id")
  186. relatedApprovedInvoiceBy = RS3("ApprovedBy")
  187. else
  188. relatedApprovedInvoiceID = 0
  189. end if %>
  190. <font face="tahoma">
  191. <br>
  192. <FORM METHOD=POST disabled>
  193. <TABLE border="0" cellspacing="0" cellpadding="2" dir="RTL" width="700" align="center">
  194. <TR bgcolor="black">
  195. <TD align="left"><FONT COLOR="YELLOW"> :</FONT></TD>
  196. <TD align="right">
  197. <!-- Radif -->
  198. <INPUT TYPE="text" disabled maxlength="5" size="5" tabIndex="1" dir="LTR" value="<%=RS2("radif_sefareshat")%>">
  199. <INPUT TYPE="hidden" NAME="Radif" value="<%=RS2("radif_sefareshat")%>">
  200. </TD>
  201. <TD align="left"><FONT COLOR="YELLOW">:</FONT></TD>
  202. <TD><TABLE border="0">
  203. <TR>
  204. <TD dir="LTR">
  205. <INPUT disabled TYPE="text" maxlength="10" size="8" value="<%=RS2("order_date")%>">
  206. <INPUT TYPE="hidden" NAME="OrderDate" value="<%=RS2("order_date")%>">
  207. </TD>
  208. <TD dir="RTL"><FONT COLOR="YELLOW"><%=weekdayname(weekday(date))%></FONT></TD>
  209. </TR>
  210. </TABLE></TD>
  211. <TD align="left"><FONT COLOR="YELLOW">:</FONT></TD>
  212. <TD align="right">
  213. <INPUT disabled TYPE="text" maxlength="5" size="3" dir="LTR" value="<%=RS2("order_time")%>">
  214. <INPUT TYPE="hidden" NAME="OrderTime" value="<%=RS2("order_time")%>"></TD>
  215. </TR>
  216. <TR bgcolor="#CCCCCC">
  217. <TD align="left"> :</TD>
  218. <TD align="right">
  219. <!-- CompanyName -->
  220. <INPUT TYPE="text" NAME="CompanyName" maxlength="50" size="25" tabIndex="2" value="<%=RS2("company_name")%>"></TD>
  221. <TD align="left"> :</TD>
  222. <TD><TABLE border="0">
  223. <TR>
  224. <TD dir="LTR"><INPUT TYPE="text" NAME="ReturnDate" maxlength="10" size="8" tabIndex="5" onKeyPress="return maskDate(this);" onblur="acceptDate(this)" value="<%=RS2("return_date")%>"></TD>
  225. <TD dir="RTL">(?)</TD>
  226. </TR>
  227. </TABLE></TD>
  228. <TD align="left"> :</TD>
  229. <TD align="right"><INPUT TYPE="text" NAME="ReturnTime" maxlength="6" size="3" tabIndex="6" value="<%=tmpTime%>" dir="LTR" onKeyPress="return maskTime(this);" value="<%=RS2("return_time")%>"></TD>
  230. </TR>
  231. <TR bgcolor="#CCCCCC">
  232. <TD align="left"> :</TD>
  233. <TD align="right">
  234. <!-- CustomerName -->
  235. <INPUT TYPE="text" NAME="CustomerName" maxlength="50" size="25" tabIndex="3" value="<%=RS2("customer_name")%>"></TD>
  236. <TD align="left"> :</TD>
  237. <TD> <INPUT TYPE="text" NAME="OrderKind" maxlength="10" size="8" tabIndex="5" value="<%=RS2("order_kind")%>">
  238. </TD>
  239. <TD align="left"> :</TD>
  240. <TD>
  241. <INPUT TYPE="text" NAME="SalesPerson" maxlength="10" size="10" tabIndex="5" value="<%=RS2("salesperson")%>">
  242. </TD>
  243. </TR>
  244. <TR bgcolor="#CCCCCC">
  245. <TD align="left">:</TD>
  246. <TD align="right">
  247. <!-- Telephone -->
  248. <INPUT TYPE="text" NAME="Telephone" maxlength="50" size="25" tabIndex="4" value="<%=RS2("telephone")%>"></TD>
  249. <TD align="left"> :</TD>
  250. <TD align="right" colspan="4"><INPUT TYPE="text" NAME="OrderTitle" maxlength="255" size="50" tabIndex="9" value="<%=RS2("order_title")%>"></TD>
  251. </TR>
  252. <TR bgcolor="#CCCCCC">
  253. <TD align="left">:</TD>
  254. <TD align="right"><INPUT TYPE="text" NAME="Qtty" maxlength="50" size="5" tabIndex="10" dir="LTR" value="<%=RS2("qtty")%>"></TD>
  255. <TD align="left">:</TD>
  256. <TD align="right"><INPUT TYPE="text" NAME="Size" maxlength="50" size="8" dir="LTR" tabIndex="11" value="<%=RS2("PaperSize")%>"></TD>
  257. <TD align="left">/:</TD>
  258. <TD><INPUT TYPE="text" NAME="SimplexDuplex" maxlength="10" size="10" tabIndex="5" value="<%=RS2("SimplexDuplex")%>">
  259. </TD>
  260. </TR>
  261. <TR bgcolor="#CCCCCC">
  262. <TD align="left">:</TD>
  263. <TD colspan="2"><INPUT TYPE="text" NAME="Marhale" maxlength="10" size="16" tabIndex="5" value="<%=RS2("marhale")%>">
  264. </TD>
  265. <TD align="left">:</TD>
  266. <TD colspan="2">
  267. <INPUT TYPE="text" NAME="Vazyat" maxlength="10" size="16" tabIndex="5" value="<%=RS2("vazyat")%>">
  268. </TD>
  269. </TR>
  270. <TR bgcolor="#CCCCCC">
  271. <TD colspan="6" height="30px">&nbsp;</TD>
  272. </TR>
  273. </TABLE><br>
  274. </FORM>
  275. <TABLE cellspacing=0 width=80% align=center>
  276. <TR bgcolor=white>
  277. <TD></TD>
  278. <TD></TD>
  279. <TD></TD>
  280. <TD></TD>
  281. <TD> </TD>
  282. </TR>
  283. <%
  284. set RS_STEP=Conn.Execute ("SELECT InsertedDate, InsertedTime, StepText, StatusText, Users.RealName FROM OrderTraceLog INNER JOIN Users ON OrderTraceLog.InsertedBy = Users.ID WHERE (OrderTraceLog.[Order] = "& request("radif") & ") order by OrderTraceLog.ID")
  285. Do while not RS_STEP.eof
  286. %>
  287. <TR>
  288. <TD style="border-bottom: solid 1pt black" dir=ltr align=right><%=RS_STEP("InsertedDate")%> </TD>
  289. <TD style="border-bottom: solid 1pt black" dir=ltr align=right>(<%=RS_STEP("InsertedTime")%>)</TD>
  290. <TD style="border-bottom: solid 1pt black"><%=RS_STEP("StepText")%></TD>
  291. <TD style="border-bottom: solid 1pt black"><%=RS_STEP("StatusText")%></TD>
  292. <TD style="border-bottom: solid 1pt black"><%=RS_STEP("RealName")%></TD>
  293. </TR>
  294. <%
  295. RS_STEP.moveNext
  296. loop
  297. RS_STEP.close
  298. Set RS_STEP = nothing
  299. if NOT EDITABLE="NO" then
  300. %>
  301. <TR bgcolor=white>
  302. <TD><A HREF="default.asp?orderNum=<%=request("radif")%>&marhale_box=<%=RS2("step")%>"> </A></TD>
  303. <td colspan="2" title=" ">
  304. <%
  305. set rsEmail=Conn.Execute("select accounts.AccountTitle, accounts.Dear1, accounts.FirstName1, accounts.LastName1, orders.ID, orders.Customer,accounts.Email1, orders_trace.order_title from Orders inner join Accounts on orders.Customer=accounts.ID inner join orders_trace on orders_trace.radif_sefareshat=orders.ID where orders.ID=" & request("radif") & " and accounts.EMail1 <> ''")
  306. if not rsEmail.eof then
  307. %>
  308. <span>
  309. <form method="post" action="http://my.pdhco.com/sendMail.php">
  310. <input type="hidden" name="order_id" value="<%=rsEmail("ID")%>">
  311. <input type="hidden" name="customer_id" value="<%=rsEmail("customer")%>">
  312. <input type="hidden" name="order_title" value="<%=rsEmail("order_title")%>">
  313. <input type="hidden" name="Email" value="<%=rsEmail("Email1")%>">
  314. <input type="hidden" name="AccountTitle" value="<%=rsEmail("AccountTitle")%>">
  315. <input type="hidden" name="Dear" value="<%=rsEmail("Dear1")%>">
  316. <input type="hidden" name="FirstName" value="<%=rsEmail("FirstName1")%>">
  317. <input type="hidden" name="LastName" value="<%=rsEmail("LastName1")%>">
  318. <input type="submit" name="orderSend" title='<%=rsEmail("email1")%>' value=" <%=rsEmail("Dear1") & " " & rsEmail("firstName1") & " " & rsEmail("LastName1")%> ">
  319. </form>
  320. </span>
  321. <%end if%>
  322. </td>
  323. <td colspan="2" title=" ">
  324. <%
  325. set rsEmail=Conn.Execute("select accounts.AccountTitle, accounts.Dear2, accounts.FirstName2, accounts.LastName2, orders.ID, orders.Customer,accounts.Email2, orders_trace.order_title from Orders inner join Accounts on orders.Customer=accounts.ID inner join orders_trace on orders_trace.radif_sefareshat=orders.ID where orders.ID=" & request("radif") & " and accounts.EMail2 <> ''")
  326. if not rsEmail.eof then
  327. %>
  328. <span>
  329. <form method="post" action="http://my.pdhco.com/sendMail.php">
  330. <input type="hidden" name="order_id" value="<%=rsEmail("ID")%>">
  331. <input type="hidden" name="customer_id" value="<%=rsEmail("customer")%>">
  332. <input type="hidden" name="order_title" value="<%=rsEmail("order_title")%>">
  333. <input type="hidden" name="Email" value="<%=rsEmail("Email2")%>">
  334. <input type="hidden" name="AccountTitle" value="<%=rsEmail("AccountTitle")%>">
  335. <input type="hidden" name="Dear" value="<%=rsEmail("Dear2")%>">
  336. <input type="hidden" name="FirstName" value="<%=rsEmail("FirstName2")%>">
  337. <input type="hidden" name="LastName" value="<%=rsEmail("LastName2")%>">
  338. <input type="submit" name="orderSend" title='<%=rsEmail("email2")%>' value=" <%=rsEmail("Dear2") & " " & rsEmail("firstName2") & " " & rsEmail("LastName2")%> ">
  339. </form>
  340. </span>
  341. <%end if%>
  342. </td>
  343. </TR>
  344. <% end if %>
  345. </TABLE>
  346. <br>
  347. <table width="700" align="center">
  348. <tr>
  349. <td valign=top>
  350. <TABLE border="0" cellspacing="0" cellpadding="2" dir="RTL" align="center" width="350" >
  351. <TR bgcolor="black" >
  352. <TD align="right" colspan=2><FONT COLOR="YELLOW"> :</FONT></TD>
  353. </TR>
  354. <TR bgcolor="#CCCCCC" ><td colspan=2>
  355. <FORM METHOD=POST ACTION="manageOrder.asp" name='findInv'>
  356. <INPUT TYPE="hidden" name="relatedApprovedInvoiceBy" value="<%=relatedApprovedInvoiceBy%>">
  357. <INPUT TYPE="hidden" name="relatedApprovedInvoiceID" value="<%=relatedApprovedInvoiceID%>">
  358. <INPUT TYPE="hidden" name="radif" value="<%=request("radif")%>">
  359. <SELECT NAME="catItem" style='font-family: tahoma,arial ; font-size: 9pt; font-weight: bold' size="1" onchange="document.forms['findInv'].submit()" style="width:300">
  360. <option value="-1"> : </option>
  361. <option value="-1">----------------------------------------------</option>
  362. <%
  363. set RS4 = conn.Execute ("SELECT InventoryItemCategories.Name, InventoryItemCategories.ID FROM InventoryItemCategories INNER JOIN InventoryItemCategoryRelations ON InventoryItemCategories.ID = InventoryItemCategoryRelations.Cat_ID INNER JOIN InventoryItems ON InventoryItemCategoryRelations.Item_ID = InventoryItems.ID WHERE (InventoryItems.outByOrder = 1) GROUP BY InventoryItemCategories.ID, InventoryItemCategories.Name")
  364. while not (RS4.eof) %>
  365. <OPTION value="<%=RS4("ID")%>"<%
  366. if trim(catItem1) = trim(RS4("ID")) then
  367. response.write " selected "
  368. end if
  369. %>>* <%=RS4("Name")%> </option>
  370. <% RS4.MoveNext
  371. wend
  372. RS4.close
  373. %>
  374. </SELECT><br><br>
  375. <SELECT NAME="item" style='font-family: tahoma,arial ; font-size: 9pt; font-weight: bold' size="1" style="width:300">
  376. <option value="-1"> : </option>
  377. <option value="-1">----------------------------------------------</option>
  378. <%
  379. if catItem1<>"-1" then
  380. set RS5 = conn.Execute ("SELECT InventoryItems.* FROM InventoryItemCategoryRelations INNER JOIN InventoryItems ON InventoryItemCategoryRelations.Item_ID = InventoryItems.ID WHERE (InventoryItemCategoryRelations.Cat_ID = "& catItem1& ") AND (InventoryItems.outByOrder = 1) ORDER BY Replace([Name],' ','') " )
  381. while not (RS5.eof)
  382. %>
  383. <OPTION value="<%=RS5("ID")%>">* <%=RS5("Name")%> (<%=RS5("Unit")%>)</option>
  384. <% RS5.MoveNext
  385. wend
  386. RS5.close
  387. %>
  388. <% end if %>
  389. </SELECT><br><br>
  390. <INPUT TYPE="checkbox" NAME="CustomerHaveInvItem" > <br><br>
  391. : &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE="text" NAME="qtty" size=40 onKeyPress="return maskNumber(this);"><br><br>
  392. : <TEXTAREA NAME="comment" ROWS="7" COLS="32"></TEXTAREA>
  393. <br><center><br>
  394. <INPUT class="inputBut" TYPE="submit" Name="Submit" Value=" " style="width:120px;" tabIndex="14" <%
  395. if catItem1="-1" or EDITABLE="NO" then
  396. response.write " disabled "
  397. end if
  398. %>>
  399. </center>
  400. </FORM>
  401. <hr>
  402. </FONT></TD>
  403. </TR>
  404. <%
  405. 'Gets Request for services list from DB
  406. 'set RS3=Conn.Execute ("SELECT dbo.InventoryItemRequests.Comment, dbo.InventoryItemRequests.ID, dbo.InventoryItemRequests.Status, dbo.InventoryItemRequests.ItemName, dbo.InventoryItemRequests.CustomerHaveInvItem, dbo.InventoryItemRequests.Qtty, dbo.InventoryItemRequests.unit, dbo.InventoryItemRequests.ReqDate FROM dbo.InventoryPickuplists FULL OUTER JOIN dbo.InventoryPickuplistItems ON dbo.InventoryPickuplists.id = dbo.InventoryPickuplistItems.pickupListID FULL OUTER JOIN dbo.InventoryItemRequests ON dbo.InventoryPickuplistItems.RequestID = dbo.InventoryItemRequests.ID WHERE (dbo.InventoryItemRequests.Order_ID = "& request("radif") & ") AND (NOT (dbo.InventoryItemRequests.Status = 'del')) GROUP BY dbo.InventoryItemRequests.Comment, dbo.InventoryItemRequests.ID, dbo.InventoryItemRequests.Status, dbo.InventoryItemRequests.ItemName, dbo.InventoryItemRequests.CustomerHaveInvItem, dbo.InventoryItemRequests.Qtty, dbo.InventoryItemRequests.unit, dbo.InventoryItemRequests.ReqDate")
  407. set RS3=Conn.Execute ("SELECT InventoryItemRequests.*,InventoryPickuplistItems.pickupListID FROM InventoryItemRequests left outer join InventoryPickuplistItems on InventoryItemRequests.ID=InventoryPickuplistItems.RequestID WHERE InventoryItemRequests.order_ID="& request("radif") )
  408. 'set RS3=Conn.Execute ("SELECT * FROM InventoryItemRequests WHERE (order_ID="& request("radif") & " ) and not status = 'del'")
  409. %>
  410. <%
  411. Do while not RS3.eof
  412. %>
  413. <TR bgcolor="#CCCCCC" title="<%
  414. Comment = RS3("Comment")
  415. if Comment<>"-" then
  416. response.write ": " & Comment
  417. else
  418. response.write " "
  419. end if
  420. %>">
  421. <TD align="right" valign=top><FONT COLOR="black">
  422. <INPUT TYPE="checkbox" NAME="outReq" VALUE="<%=RS3("id")%>" <%
  423. if RS3("status") = "new" then
  424. response.write " checked disabled "
  425. else
  426. response.write " disabled "
  427. end if
  428. %>><%=RS3("ItemName")%>
  429. <%
  430. if (not isNull(RS3("pickupListID"))) then
  431. response.write "<a href='../inventory/default.asp?ed="&RS3("pickupListID")&"'>"
  432. end if
  433. %>
  434. <%
  435. if RS3("CustomerHaveInvItem") then
  436. response.write "<b style='color:red'> </b>"
  437. end if
  438. %>
  439. <small dir=ltr>(: <%=RS3("qtty")%> <%=RS3("unit")%> - : <span dir=ltr><%=RS3("ReqDate")%></span>)</small>
  440. <%
  441. if (not isNull(RS3("pickupListID"))) then
  442. response.write "</a>"
  443. end if
  444. if RS3("status") = "del" then response.write ("<font color=red> </font>")
  445. %>
  446. </td>
  447. <td align=left width=5%>
  448. <%
  449. if RS3("status") = "new" then
  450. %><a href="manageOrder.asp?di=y&i=<%=RS3("id")%>&r=<%=request("radif")%>&relatedApprovedInvoiceID=<%=relatedApprovedInvoiceID%>&relatedApprovedInvoiceBy=<%=relatedApprovedInvoiceBy%>"><b></b></a><%
  451. end if %></td>
  452. </tr>
  453. <%
  454. RS3.moveNext
  455. Loop
  456. %>
  457. </TABLE>
  458. </td>
  459. <td valign=top>
  460. <FORM METHOD=POST ACTION="manageOrder.asp">
  461. <TABLE border="0" cellspacing="0" cellpadding="2" dir="RTL" align="center" width="350" >
  462. <TR bgcolor="black" >
  463. <TD align="right" colspan=2><FONT COLOR="YELLOW"> :</FONT></TD>
  464. </TR>
  465. <TR bgcolor="#CCCCCC" ><td colspan=2>
  466. <center><!INPUT TYPE="submit" Name="Submit" Value=" " style="width:150px;" tabIndex="14"> </center></form>
  467. <FORM METHOD=POST ACTION="manageOrder.asp">
  468. <INPUT TYPE="hidden" name="relatedApprovedInvoiceBy" value="<%=relatedApprovedInvoiceBy%>">
  469. <INPUT TYPE="hidden" name="relatedApprovedInvoiceID" value="<%=relatedApprovedInvoiceID%>">
  470. <INPUT TYPE="hidden" name="radif" value="<%=request("radif")%>">
  471. <SELECT NAME="type" style='font-family: tahoma,arial ; font-size: 9pt; font-weight: bold' size="1" style="width:300">
  472. <option value="-1"> : </option>
  473. <option value="-1">----------------------------------------------</option>
  474. <%
  475. set RS4 = conn.Execute ("SELECT * FROM OutServices")
  476. while not (RS4.eof) %>
  477. <OPTION value="<%=RS4("ID")%>">* <%=RS4("Name")%></option>
  478. <% RS4.MoveNext
  479. wend
  480. RS4.close
  481. %>
  482. </SELECT><br>
  483. <SCRIPT LANGUAGE="JavaScript">
  484. <!--
  485. function hideIT()
  486. {
  487. if(document.all.tavafogh.checked)
  488. {
  489. document.all.priceTavafoghi.style.visibility= 'visible'
  490. }
  491. else
  492. {
  493. document.all.price.value= ''
  494. document.all.priceComment.value= ''
  495. document.all.priceTavafoghi.style.visibility= 'hidden'
  496. }
  497. }
  498. //-->
  499. </SCRIPT><br>
  500. <INPUT TYPE="checkbox" onclick="hideIT()" name="tavafogh"> <BR>
  501. <div name="priceTavafoghi" id="priceTavafoghi" style="visibility:'hidden'">: &nbsp;<INPUT TYPE="text" NAME="price" ID="price" size=5 onKeyPress="return maskNumber(this);"> : <INPUT TYPE="text" NAME="priceComment" id="priceComment" size=26 ></div>
  502. : <INPUT dir=ltr TYPE="text" NAME="date1" size=12 value="<%=shamsiToday()%>" onKeyPress="return maskDate(this);" onblur="acceptDate(this)" > &nbsp; : <INPUT dir=ltr TYPE="text" NAME="qtty" size=7 onKeyPress="return maskNumber(this);"><br><br>
  503. : <TEXTAREA NAME="comment" ROWS="7" COLS="32"></TEXTAREA>
  504. <br><br><center>
  505. <INPUT TYPE="submit" Name="Submit" Value=" " style="width:120px;" tabIndex="14" class="inputBut" <%
  506. if EDITABLE="NO" then
  507. response.write " disabled "
  508. end if
  509. %>>
  510. </center>
  511. </FORM>
  512. <hr>
  513. </FONT></TD>
  514. </TR>
  515. <%
  516. 'Gets Request for services list from DB
  517. 'set RS3=Conn.Execute ("SELECT * FROM purchaseRequests WHERE (order_ID="& request("radif") & " ) and not status = 'del'")
  518. set RS3=Conn.Execute ("SELECT PurchaseRequestOrderRelations.*,purchaseRequests.*,case when isnull(PurchaseOrders.price,-1)=-1 then purchaseRequests.price else purchaseOrders.price end as thisPrice FROM purchaseRequests LEFT OUTER JOIN PurchaseRequestOrderRelations ON PurchaseRequests.id = PurchaseRequestOrderRelations.Req_ID left outer join PurchaseOrders on PurchaseOrders.ID=PurchaseRequestOrderRelations.ord_id WHERE (order_ID="& request("radif") & " )")
  519. %>
  520. <%
  521. Do while not RS3.eof
  522. %>
  523. <TR bgcolor="#CCCCCC" title="<%
  524. Comment = RS3("Comment")
  525. if Comment<>"-" then
  526. response.write ": " & Comment
  527. else
  528. response.write " "
  529. end if
  530. %>">
  531. <TD align="right" valign=top><FONT COLOR="black">
  532. <INPUT TYPE="checkbox" NAME="outReq" VALUE="<%=RS3("id")%>" <%
  533. if RS3("status") = "new" then
  534. response.write " checked disabled "
  535. else
  536. response.write " disabled "
  537. end if
  538. %>>
  539. <%
  540. if (not isNull(RS3("Ord_ID"))) then
  541. response.write "<a href='../purchase/outServiceTrace.asp?od="&RS3("Ord_ID")&"'>"
  542. end if
  543. %>
  544. <%=RS3("typeName")%> <small >(: <%=RS3("qtty")%> : <%=RS3("thisPrice")%> - : <span dir=ltr><%=RS3("ReqDate")%></span>)</small>
  545. <%
  546. if (not isNull(RS3("Ord_ID"))) then
  547. response.write "</a>"
  548. end if
  549. %>
  550. </td>
  551. <td align=left width=5%><%
  552. if RS3("status") = "new" then
  553. %><a href="manageOrder.asp?d=y&i=<%=RS3("id")%>&r=<%=request("radif")%>&relatedApprovedInvoiceID=<%=relatedApprovedInvoiceID%>&relatedApprovedInvoiceBy=<%=relatedApprovedInvoiceBy%>"><b></b></a><%
  554. end if
  555. if RS3("status") = "del" then response.write ("<font color=red> </font>")
  556. %>
  557. </td>
  558. </tr>
  559. <%
  560. RS3.moveNext
  561. Loop
  562. %>
  563. </TABLE>
  564. </td>
  565. </tr>
  566. </table>
  567. <%
  568. Conn.Close
  569. %>
  570. </font>
  571. <!--#include file="tah.asp" -->