/beta/inventory/default.asp

http://github.com/khaneh/Orders · ASP · 1041 lines · 908 code · 84 blank · 49 comment · 127 complexity · 60c7015833632af9d217a657780ea504 MD5 · raw file 

    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%

    2. 

  2. 'Inventory (5)

    3. 

  3. PageTitle= "   "

    4. 

  4. SubmenuItem=1

    5. 

  5. if not (Auth(5 , 1) or Auth(5 , 9)) then NotAllowdToViewThisPage()

    6. 

  6. 

    7. 

  7. %>

    8. 

  8. <!--#include file="top.asp" -->

    9. 

  9. <!--#include File="../include_farsiDateHandling.asp"-->

    10. 

  10. <!--#include File="../include_JS_InputMasks.asp"-->

    11. 

  11. <!--#include File="../include_UtilFunctions.asp"-->

    12. 

  12. 		<SCRIPT LANGUAGE="JavaScript">

    13. 

  13. 		<!--

    14. 

  14. 		function boxChecked(obj)

    15. 

  15. 		{

    16. 

  16. 		theTR = obj.parentNode.parentNode

    17. 

  17. 		rowNo = theTR.rowIndex - 2

    18. 

  18. 

    19. 

  19. 		if(obj.checked)

    20. 

  20. 			{

    21. 

  21. 			document.getElementsByName("box")[rowNo].value = 1;

    22. 

  22. 			}

    23. 

  23. 		else

    24. 

  24. 			{

    25. 

  25. 			document.getElementsByName("box")[rowNo].value = 0;

    26. 

  26. 			}

    27. 

  27. 		}

    28. 

  28. 

    29. 

  29. 

    30. 

  30. 		function conf()

    31. 

  31. 		{

    32. 

  32. 			var CusHavItemIDs=new Array(100);

    33. 

  33. 			var CusHavItemNames=new Array(100);

    34. 

  34. 			var CusHavQttys=new Array(100);

    35. 

  35. 			var CusHavMax=new Array(100);

    36. 

  36. 			var CusHavCount = 0;

    37. 

  37. 			var CusHavFlag = true;

    38. 

  38. 			var retValue = true;

    39. 

  39. 

    40. 

  40. 			if (document.all.CustomerHaveInvItem[0]) {

    41. 

  41. 				for(n=0;n<document.all.CustomerHaveInvItem.length;n++) {

    42. 

  42. 					if(document.all.CustomerHaveInvItem[n].checked)

    43. 

  43. 					{

    44. 

  44. 						CusHavFlag = true;

    45. 

  45. 						for(m=0; m<CusHavCount; m++) {

    46. 

  46. 							if (CusHavItemIDs[m] == document.all.itemID[n].value) {

    47. 

  47. 								CusHavQttys[m] += parseInt(document.all.qtty[n].value);

    48. 

  48. 								CusHavFlag = false;

    49. 

  49. 							}

    50. 

  50. 						}

    51. 

  51. 						if (CusHavFlag) {

    52. 

  52. 								CusHavItemIDs[CusHavCount]=document.all.itemID[n].value;

    53. 

  53. 								CusHavItemNames[CusHavCount]=document.all.itemName[n].value;

    54. 

  54. 								CusHavQttys[CusHavCount] = parseInt(document.all.qtty[n].value);

    55. 

  55. 								CusHavMax[CusHavCount] = parseInt(document.all.maxQtty[n].value);

    56. 

  56. 								CusHavCount++;

    57. 

  57. 							}

    58. 

  58. 					}

    59. 

  59. 				}

    60. 

  60. 				for(m=0;m<CusHavCount;m++) 

    61. 

  61. 					if (CusHavQttys[m]>CusHavMax[m]) {

    62. 

  62. 					alert("!  " + CusHavItemNames[m]+"   ")

    63. 

  63. 					retValue = false

    64. 

  64. 					}

    65. 

  65. 			}

    66. 

  66. 			else if (document.all.CustomerHaveInvItem) {

    67. 

  67. 					if(document.all.CustomerHaveInvItem.checked)

    68. 

  68. 					if (parseInt(document.all.qtty.value) > parseInt(document.all.maxQtty.value)) {

    69. 

  69. 					alert("!  " + document.all.itemName.value+"   ")

    70. 

  70. 					retValue = false

    71. 

  71. 					}

    72. 

  72. 			}

    73. 

  73. 		return retValue;

    74. 

  74. 		}

    75. 

  75. 		//-->

    76. 

  76. 		</SCRIPT>

    77. 

  77. 

    78. 

  78. <%

    79. 

  79. '-----------------------------------------------------------------------------------------------------

    80. 

  80. '-------------------------------------------------------------------------- PIRAMOON Pickuplist Submit

    81. 

  81. '-----------------------------------------------------------------------------------------------------

    82. 

  82. if request.form("Submit")="  " then

    83. 

  83. 	invoice_id = trim(request.form("invoice_id"))

    84. 

  84. 	if not isnumeric(invoice_id) then 

    85. 

  85. 		response.write "<br><br>"

    86. 

  86. 		call showAlert( "     ." , CONST_MSG_ERROR)

    87. 

  87. 		response.end

    88. 

  88. 	end if 

    89. 

  89. 

    90. 

  90. 

    91. 

  91. 	'vvvvvvv ------------------------------------------ start of check for current ItemOUT

    92. 

  92. 	set RSS=Conn.Execute ("SELECT InventoryLog.ID, InventoryLog.comments, InventoryLog.Voided, InventoryLog.VoidedBy, InventoryLog.VoidedDate, InventoryItems.Unit, InventoryItems.Name, InventoryItems.OldItemID, InventoryLog.logDate, InventoryLog.Qtty, InventoryLog.RelatedID, InventoryLog.ItemID, InventoryLog.type, InventoryLog.ID AS Expr1, InventoryLog.CreatedBy, InventoryLog.owner, Users.RealName FROM InventoryLog INNER JOIN InventoryItems ON InventoryLog.ItemID = InventoryItems.ID INNER JOIN Users ON InventoryLog.CreatedBy = Users.ID WHERE (InventoryLog.RelatedInvoiceID = "& invoice_id & ") AND (InventoryLog.IsInput = 0) AND (InventoryLog.Voided = 0)")

    93. 

  93. 

    94. 

  94. 	if not RSS.EOF then

    95. 

  95. 		%>

    96. 

  96. 		<br><br>

    97. 

  97. 		<%

    98. 

  98. 		call showAlert("         ", CONST_MSG_ALERT)

    99. 

  99. 		response.write "<br><br>" 

    100. 

  100. 		%>

    101. 

  101. 		<TABLE dir=rtl align=center width=600>

    102. 

  102. 			<TR bgcolor="eeeeee" >

    103. 

  103. 				<TD><SMALL> </SMALL></TD>

    104. 

  104. 				<TD width=200><SMALL> </SMALL></TD>

    105. 

  105. 				<TD><SMALL> </SMALL></TD>

    106. 

  106. 				<TD><SMALL></SMALL></TD>

    107. 

  107. 				<TD><SMALL> </SMALL></TD>

    108. 

  108. 				<TD align=center><SMALL> </SMALL></TD>

    109. 

  109. 				<TD><SMALL></SMALL></TD>

    110. 

  110. 			</TR>

    111. 

  111. 		<%

    112. 

  112. 		tmpCounter=0

    113. 

  113. 		do while not RSS.EOF

    114. 

  114. 			tmpCounter = tmpCounter + 1

    115. 

  115. 			if tmpCounter mod 2 = 1 then

    116. 

  116. 				tmpColor="#FFFFFF"

    117. 

  117. 				tmpColor2="#FFFFBB"

    118. 

  118. 			Else

    119. 

  119. 				tmpColor="#DDDDDD"

    120. 

  120. 				tmpColor2="#EEEEBB"

    121. 

  121. 			End if 

    122. 

  122. 

    123. 

  123. 			%>

    124. 

  124. 			<TR bgcolor="<%=tmpColor%>"  style="height:25pt" <% if RSS("voided") then%> disabled title="    <%=RSS("VoidedDate")%>"<% end if %>>

    125. 

  125. 				<TD  align=right dir=ltr><INPUT TYPE="hidden" name="id" value="<%=RSS("ID")%>"><A HREF="invReport.asp?oldItemID=<%=RSS("oldItemID")%>&logRowID=<%=RSS("ID")%>" target="_blank"><%=RSS("OldItemID")%></A></TD>

    126. 

  126. 				<TD><% if RSS("voided") then%><div style="position:absolute;width:520;"><hr style="color:red;"></div><% end if %><!A HREF="default.asp?itemDetail=<%=RSS("ID")%>"><span style="font-size:10pt"><%=RSS("Name")%></A></TD>

    127. 

  127. 				<TD align=right dir=ltr><span style="font-size:10pt"><%=RSS("Qtty")%></span></TD>

    128. 

  128. 				<TD align=right dir=ltr><%=RSS("Unit")%></TD>

    129. 

  129. 				<TD dir=ltr><%=RSS("logDate")%></span></TD>

    130. 

  130. 				<TD  align=center><% 

    131. 

  131. 						if RSS("type")= "2" then

    132. 

  132. 						response.write "<font color=red><b> </b></font>"

    133. 

  133. 						elseif RSS("type")= "5" then

    134. 

  134. 						response.write "<font color=orang><b></b></font>"

    135. 

  135. 					   else %>

    136. 

  136. 				<A HREF="default.asp?ed=<%=RSS("RelatedID")%>"><%=RSS("RelatedID")%></A>

    137. 

  137. 					<% end if %>

    138. 

  138. 					<% if RSS("owner")<> "-1" and RSS("owner")<> "-2" then

    139. 

  139. 						response.write " ( <a href='../CRM/AccountInfo.asp?act=show&selectedCustomer="& RSS("owner") &"' target='_blank'> " & RSS("owner") & "</a>)"

    140. 

  140. 					   end if %>

    141. 

  141. 					<% if RSS("comments")<> "-" and RSS("comments")<> "" then

    142. 

  142. 						response.write " <br><br><B>:</B>  " & RSS("comments") 

    143. 

  143. 					   end if %>

    144. 

  144. 

    145. 

  145. 				</TD>

    146. 

  146. 				<TD><%=RSS("RealName")%></TD>

    147. 

  147. 			</TR>

    148. 

  148. 				  

    149. 

  149. 			<% 

    150. 

  150. 			RSS.movenext

    151. 

  151. 		loop

    152. 

  152. 		response.write "</table><br><br>" 

    153. 

  153. 		response.end

    154. 

  154. 

    155. 

  155. 	end if

    156. 

  156. 	RSS.close

    157. 

  157. 	set RSS = nothing

    158. 

  158. 	'^^^^^^^ ------------------------------------------ end of check for current ItemOUT

    159. 

  159. 

    160. 

  160. 	'vvvvvvv ------------------------------------------ start of check for current Inv PickupList

    161. 

  161. 	set RSS=Conn.Execute ("SELECT InventoryPickuplistItems.pickupListID FROM InventoryPickuplistItems INNER JOIN InventoryItemRequests ON InventoryPickuplistItems.RequestID = InventoryItemRequests.ID INNER JOIN InventoryPickuplists ON InventoryPickuplistItems.pickupListID = InventoryPickuplists.id LEFT OUTER JOIN Orders ON InventoryPickuplistItems.Order_ID = Orders.ID WHERE (InventoryItemRequests.RelatedInvoiceID = "& invoice_id & ") GROUP BY InventoryPickuplistItems.pickupListID, InventoryPickuplists.Status HAVING (InventoryPickuplists.Status <> N'del')"	)

    162. 

  162. 	if not RSS.EOF then

    163. 

  163. 		str = "         . <BR>  <B></B>  <BR><BR>"

    164. 

  164. 		do while not RSS.EOF

    165. 

  165. 			str = str & "&nbsp; <A target=_blank HREF='?show="& RSS("pickupListID") & "'>"& RSS("pickupListID") & "</A>"

    166. 

  166. 			RSS.movenext

    167. 

  167. 		loop

    168. 

  168. 		%>

    169. 

  169. 		<br><br>

    170. 

  170. 		<%

    171. 

  171. 		call showAlert(str, CONST_MSG_ALERT)

    172. 

  172. 		response.write "<br><br>" 

    173. 

  173. 		response.end

    174. 

  174. 	end if

    175. 

  175. 	'^^^^^^^ ------------------------------------------ end of check for current Inv PickupList

    176. 

  176. 

    177. 

  177. 	

    178. 

  178. 	set RSS=Conn.Execute ("SELECT dbo.InventoryItems.Name, dbo.InvoiceLines.AppQtty, dbo.InventoryItems.ID as itemID, dbo.InvoiceItems.RelatedInventoryItemID, dbo.InventoryItems.Unit FROM dbo.InvoiceLines INNER JOIN dbo.InvoiceItems ON dbo.InvoiceLines.Item = dbo.InvoiceItems.ID INNER JOIN dbo.InventoryItems ON dbo.InvoiceItems.RelatedInventoryItemID = dbo.InventoryItems.OldItemID WHERE (dbo.InvoiceLines.Invoice = " & invoice_id & ")")

    179. 

  179. 	st = ""

    180. 

  180. 	do while not RSS.EOF

    181. 

  181. 		mysql = "INSERT INTO dbo.InventoryItemRequests (Order_ID, ItemName, Comment, ReqDate, Status, ItemID, unit, CreatedBy, CustomerHaveInvItem, Qtty, RelatedInvoiceID) VALUES (-1,N'" & RSS("name") & "', N'    "& invoice_id & "', N'" & shamsiToday() & "', 'new', " & RSS("itemID") & ", N'" & RSS("unit") & "', " & session("id") & ", 0 , " & RSS("AppQtty") & ", "& invoice_id & ")"

    182. 

  182. 		Conn.Execute (mysql)

    183. 

  183. 		'response.write "<br>" & mysql 

    184. 

  184. 		set RSS2=Conn.Execute ("SELECT max(id) as itemReq from InventoryItemRequests")

    185. 

  185. 		st = st & "&itemReq=" & RSS2("itemReq")

    186. 

  186. 		RSS.movenext

    187. 

  187. 	loop

    188. 

  188. 

    189. 

  189. 	RSS.close

    190. 

  190. 	set RSS = nothing

    191. 

  191. 	response.redirect "?Submit=sodoor" & st

    192. 

  192. 	response.end

    193. 

  193. 

    194. 

  194. 

    195. 

  195. '-----------------------------------------------------------------------------------------------------

    196. 

  196. '--------------------------------------------------------------- EDIT Inventory Item Pickuplist Submit

    197. 

  197. '-----------------------------------------------------------------------------------------------------

    198. 

  198. elseif request.form("Submit")=" " then

    199. 

  199. 	GiveTo = request.form("GiveTo") 

    200. 

  200. 	PickupListID = request.form("PickupListID") 

    201. 

  201. 

    202. 

  202. 	set RST=Conn.Execute ("SELECT RealName FROM Users WHERE (ID = "& GiveTo & ")" )

    203. 

  203. 	GiveToRealName = RST("RealName")

    204. 

  204. 

    205. 

  205. 	set RSY=Conn.Execute ("UPDATE InventoryPickuplists SET  GiveTo ="& GiveTo & ", LastEditTime =N'"& currentTime10() & "', LastEditDate =N'"& shamsitoday() & "', LastEditedBy ="& session("id") & "  where id= "& PickupListID )

    206. 

  206. 

    207. 

  207. 	response.write "<BR><BR><TABLE align=center style='border: solid 2pt black'><TR><TD>"

    208. 

  208. 	response.write "<li>   : " &  CreationDate & "  " & CreationTime

    209. 

  209. 	response.write "<li>  : " & GiveToRealName

    210. 

  210. 	response.write "<hr>"

    211. 

  211. 

    212. 

  212. 	for i=1 to request.form("ItemID").count

    213. 

  213. 		ItemID		=	Clng(request.form("ItemID")(i))

    214. 

  214. 		ID			=	Clng(request.form("ID")(i))

    215. 

  215. 		ItemName	=	sqlSafe(request.form("ItemName")(i))

    216. 

  216. 		unit		=	sqlSafe(request.form("unit")(i))

    217. 

  217. 		qtty		=	cdbl(request.form("qtty")(i))

    218. 

  218. 		box			=	sqlSafe(request.form("box")(i))

    219. 

  219. 

    220. 

  220. 		mysql = "UPDATE InventoryPickuplistItems SET ItemName = N'"& ItemName & "', Qtty = '"& Qtty & "', CustomerHaveInvItem='" & box & "' WHERE (id = "& ID & ")"

    221. 

  221. 		Conn.Execute (mysql)

    222. 

  222. 		response.write "<li> " & ItemName & " (" & Qtty & " " &  unit & ")"

    223. 

  223. 		if box="1" then

    224. 

  224. 			response.write "<b>  </b>" 

    225. 

  225. 		end if

    226. 

  226. 	next

    227. 

  227. 

    228. 

  228. 

    229. 

  229. 	response.write "</TD></TR></TABLE><center>"

    230. 

  230. 

    231. 

  231. 	response.write "<BR><BR>  .</center>"

    232. 

  232. 	response.redirect "default.asp?show=" & PickupListID

    233. 

  233. 	response.end

    234. 

  234. 

    235. 

  235. end if

    236. 

  236. 

    237. 

  237. '-----------------------------------------------------------------------------------------------------

    238. 

  238. '------------------------------------------------------------- Print or Show Inventory Item Pickuplist 

    239. 

  239. '-----------------------------------------------------------------------------------------------------

    240. 

  240. if request("show")<>"" then

    241. 

  241. 	PickupListID = request("show")

    242. 

  242. 

    243. 

  243. 	%>

    244. 

  244. 	<BR><BR><BR>	

    245. 

  245. 	<CENTER>

    246. 

  246. 	<% 	ReportLogRow = PrepareReport ("InvPickupList.rpt", "InvItem_ID", PickupListID, "/beta/dialog_printManager.asp?act=Fin") %>

    247. 

  247. 	<INPUT TYPE="button" value=" ǁ " Class="GenButton" style="border:1 solid blue;" onclick="printThisReport(this,<%=ReportLogRow%>);">

    248. 

  248. 

    249. 

  249. 	<input type="button" value="" Class="GenButton" onclick="window.location='default.asp?ed=<%=PickupListID%>'">

    250. 

  250. 

    251. 

  251. 	</CENTER>

    252. 

  252. 

    253. 

  253. 	<BR>

    254. 

  254. 	<iframe name=f1 id=f1 src="/CRReports/?Id=<%=ReportLogRow%>" align=center style="width:700; height:410; border-style: none" border=0 FRAMEBORDER=0 scrollbars=no></iframe>

    255. 

  255. 	<%

    256. 

  256. 

    257. 

  257. 	response.end

    258. 

  258. end if

    259. 

  259. 

    260. 

  260. 

    261. 

  261. 

    262. 

  262. 

    263. 

  263. '-----------------------------------------------------------------------------------------------------

    264. 

  264. '---------------------------------------------------------------------- EDIT Inventory Item Pickuplist

    265. 

  265. '-----------------------------------------------------------------------------------------------------

    266. 

  266. if request("ed")<>"" then

    267. 

  267. 	PickupListID = request("ed")

    268. 

  268. 	set RSY=Conn.Execute ("SELECT * FROM InventoryPickuplists WHERE id = "& PickupListID )

    269. 

  269. 	set RSW=Conn.Execute ("SELECT InventoryItemRequests.comment,InventoryItemRequests.ReqDate, dbo.InventoryItems.OldItemID AS OldItemID, dbo.InventoryPickuplistItems.*, dbo.Users.RealName AS RealName FROM dbo.InventoryItems INNER JOIN dbo.InventoryItemRequests INNER JOIN dbo.InventoryPickuplistItems ON dbo.InventoryItemRequests.ID = dbo.InventoryPickuplistItems.RequestID ON dbo.InventoryItems.ID = dbo.InventoryPickuplistItems.ItemID INNER JOIN dbo.Users ON dbo.InventoryItemRequests.CreatedBy = dbo.Users.ID WHERE (dbo.InventoryPickuplistItems.pickupListID = " & PickupListID & ")")

    270. 

  270. 

    271. 

  271. 	if RSY.EOF or RSW.EOF then%>

    272. 

  272. 		<div align=center dir=rtl><br><br><br><br><br><br><b>!!<br><h3>   </h3></b><br></div>

    273. 

  273. 		</body>

    274. 

  274. 		</html>

    275. 

  275. 	<%	

    276. 

  276. 	else

    277. 

  277. 		%><br>

    278. 

  278. 		<form method=post action="default.asp" <% if RSY("Status")="done" then %> disabled <% end if %>  onsubmit="return confirm('   Ͽ')"><br>

    279. 

  279. 		<INPUT TYPE="hidden" name=PickupListID value="<%=PickupListID%>">

    280. 

  280. 		<TABLE dir=rtl align=center width=600>

    281. 

  281. 		<TR bgcolor="eeeeee" >

    282. 

  282. 			<TD align=center colspan=7><B>   </B></TD>

    283. 

  283. 		</TR>

    284. 

  284. 		<TR bgcolor="eeeeee" >

    285. 

  285. 				<TD style="width:160;"> </TD>

    286. 

  286. 				<TD style="width:70;"> </TD>

    287. 

  287. 				<TD style="width:70;"></TD>

    288. 

  288. 				<TD style="width:60;"></TD>

    289. 

  289. 				<TD> </TD>

    290. 

  290. 				<TD  style="width:160;">  </TD>

    291. 

  291. 		</TR>

    292. 

  292. 		<%

    293. 

  293. 		tmpCounter=0

    294. 

  294. 		totalQtty=0

    295. 

  295. 		Do while not RSW.eof

    296. 

  296. 			tmpCounter = tmpCounter + 1

    297. 

  297. 			if tmpCounter mod 2 = 1 then

    298. 

  298. 				tmpColor="#FFFFFF"

    299. 

  299. 				tmpColor2="#FFFFBB"

    300. 

  300. 			Else

    301. 

  301. 				tmpColor="#FFFFFF"

    302. 

  302. 				tmpColor2="#FFFFBB"

    303. 

  303. 			End if 

    304. 

  304. 			%>

    305. 

  305. 			<TR bgcolor="<%=tmpColor%>"  title="<% 

    306. 

  306. 				response.write "   : " & RSW("OldItemID") & " - "

    307. 

  307. 				Comment = RSW("Comment")

    308. 

  308. 				if Comment<>"-" then

    309. 

  309. 					response.write ": " & Comment

    310. 

  310. 				else

    311. 

  311. 					response.write " "

    312. 

  312. 				end if

    313. 

  313. 			%>">

    314. 

  314. 				<%

    315. 

  315. 				myRequestID=RSW("RequestID")

    316. 

  316. 				totalQtty = totalQtty + RSW("qtty")

    317. 

  317. 				%>

    318. 

  318. 				<TD><INPUT TYPE="hidden" name=ID  value="<%=RSW("id")%>"><INPUT TYPE="hidden" name=itemID  value="<%=RSW("itemid")%>"><INPUT TYPE="hidden" name=unit  value="<%=RSW("unit")%>"><INPUT TYPE="text" NAME="itemName" readonly value="<%=RSW("ItemName")%>"  style="width:160; border:0"></TD>

    319. 

  319. 				<TD><%=RSW("ReqDate")%></TD>

    320. 

  320. 				<TD><INPUT TYPE="text" NAME="qtty" value="<%=RSW("qtty")%>"  size=7 style="width:45; border:0">  <%=RSW("unit")%></TD>

    321. 

  321. 				<TD><%=RSW("RealName")%></TD>

    322. 

  322. 				<TD>

    323. 

  323. 				<% if RSW("order_ID")<>-1 then %>

    324. 

  324. 				<a href="../order/order.asp?act=show&id=<%=RSW("order_ID")%>">

    325. 

  325. 				<%=RSW("order_ID")%></a>

    326. 

  326. 				<% end if %>

    327. 

  327. 				</TD>

    328. 

  328. 				<TD>

    329. 

  329. 					<% 

    330. 

  330. 

    331. 

  331. 					set RST=Conn.Execute ("SELECT SUM((CONVERT(tinyint, dbo.InventoryLog.IsInput) - .5) * 2 * dbo.InventoryLog.Qtty) AS sumQtty, dbo.Accounts.AccountTitle FROM dbo.Orders INNER JOIN dbo.InventoryLog ON dbo.Orders.Customer = dbo.InventoryLog.owner INNER JOIN dbo.Accounts ON dbo.Orders.Customer = dbo.Accounts.ID WHERE (dbo.InventoryLog.ItemID = " & RSW("ItemID")  & " and dbo.InventoryLog.voided=0) GROUP BY dbo.Orders.ID, dbo.Accounts.AccountTitle HAVING (dbo.Orders.ID = " & RSW("order_ID")  & ")" )

    332. 

  332. 					if not RST.EOF then

    333. 

  333. 						

    334. 

  334. 						if clng(RST("sumQtty")) < 0 then 

    335. 

  335. 							response.write "<b>!</b>      .       ʿ!" 

    336. 

  336. 							response.write "<INPUT TYPE='hidden' NAME='maxQtty'> <INPUT TYPE='hidden' NAME='CustomerHaveInvItem' value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    337. 

  337. 						elseif clng(RST("sumQtty")) > 0 then  

    338. 

  338. 							if RSW("CustomerHaveInvItem") then

    339. 

  339. 								response.write "<INPUT TYPE='hidden' NAME='maxQtty' value='" & RST("sumQtty") & "'> <INPUT TYPE='checkbox' NAME='CustomerHaveInvItem' checked  value='" & RST("sumQtty") & "' onclick='boxChecked(this)'><INPUT TYPE='hidden' NAME='box'  value='1'>  " & RST("sumQtty") & " " & RSW("unit") & " " &  RSW("ItemName") &  "   " & RST("AccountTitle") & "  Ͽ"

    340. 

  340. 							else 

    341. 

  341. 								response.write "<INPUT TYPE='hidden' NAME='maxQtty'  value='" & RST("sumQtty") & "'> <INPUT TYPE='checkbox' NAME='CustomerHaveInvItem'  value='" & RST("sumQtty") & "'  onclick='boxChecked(this)'><INPUT TYPE='hidden' NAME='box'  value='0'>  " & RST("sumQtty") & " " & RSW("unit") & " " & RSW("ItemName") & "  " & RST("AccountTitle") & "  Ͽ"

    342. 

  342. 							end if 

    343. 

  343. 						else

    344. 

  344. 							response.write "<INPUT TYPE='hidden' NAME='maxQtty' > <INPUT TYPE='hidden' NAME='CustomerHaveInvItem'  value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    345. 

  345. 						end if 

    346. 

  346. 					else

    347. 

  347. 						response.write "<INPUT TYPE='hidden' NAME='maxQtty' > <INPUT TYPE='hidden' NAME='CustomerHaveInvItem'  value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    348. 

  348. 					end if

    349. 

  349. 

    350. 

  350. 					%>

    351. 

  351. 				</TD>

    352. 

  352. 			</TR>

    353. 

  353. 			<% 

    354. 

  354. 			RSW.moveNext

    355. 

  355. 		Loop

    356. 

  356. 		CreatedBy = RSY("CreatedBy")

    357. 

  357. 		%>

    358. 

  358. 		<TR bgcolor="eeeeee" >

    359. 

  359. 			<TD align=center colspan=7 height=10></TD>

    360. 

  360. 		</TR>

    361. 

  361. 		<TR >

    362. 

  362. 			<TD colspan=7 align=center><BR> : 

    363. 

  363. 				<select name="GiveTo" class=inputBut  <% if RSY("Status")="done" then %> disabled <% end if %>>

    364. 

  364. 				<% set RSV=Conn.Execute ("SELECT * FROM Users WHERE Display=1 ORDER BY RealName") 

    365. 

  365. 				Do while not RSV.eof

    366. 

  366. 				%>

    367. 

  367. 					<option value="<%=RSV("ID")%>" <%

    368. 

  368. 						if RSV("ID")=RSY("GiveTo") then

    369. 

  369. 							response.write " selected "

    370. 

  370. 						end if

    371. 

  371. 						%>><%=RSV("RealName")%></option>

    372. 

  372. 				<%

    373. 

  373. 				RSV.moveNext

    374. 

  374. 				Loop

    375. 

  375. 				RSV.close

    376. 

  376. 				%>

    377. 

  377. 				</select><BR><BR>

    378. 

  378. 				 : <span dir=ltr bgcolor=red><%=RSY("CreationDate")%></span> -  <%=RSY("CreationTime")%>

    379. 

  379. 				<BR><BR>

    380. 

  380. 				: <%=RSY("Status")%>

    381. 

  381. 				<BR><BR>

    382. 

  382. 				<% if RSY("Printed")<>"0" then%>

    383. 

  383. 				  ǁ: <%=RSY("Printed")%>

    384. 

  384. 				<% end if %>

    385. 

  385. 				<BR><BR>

    386. 

  386. 				<INPUT TYPE="submit"  class=inputBut Name="Submit" Value=" "  style="width:100px;" tabIndex="14"  <% if RSY("Status")="done" then %> disabled <% end if %>  onclick="return conf()">

    387. 

  387. 				<!INPUT TYPE="submit"  class=inputBut Name="Submit" Value="ǁ "  style="width:100px;" tabIndex="14"  <% if RSY("Status")="done" then %> disabled <% end if %>>

    388. 

  388. 			</TD>

    389. 

  389. 		</TR>

    390. 

  390. 		</FORM>

    391. 

  391. 		</body>

    392. 

  392. 		</html>

    393. 

  393. 		<%

    394. 

  394. 	end if 

    395. 

  395. 	response.end

    396. 

  396. end if

    397. 

  397. 

    398. 

  398. '-----------------------------------------------------------------------------------------------------

    399. 

  399. '-------------------------------------------------------------------- Inventory Item Pickuplist Submit

    400. 

  400. '-----------------------------------------------------------------------------------------------------

    401. 

  401. if request.form("Submit")=" " then

    402. 

  402. 'response.write "<br>" & replace(request.form,"&","<br>")

    403. 

  403. 'esponse.end

    404. 

  404. 

    405. 

  405. 	response.write "<BR><BR><TABLE align=center style='border: solid 2pt black'><TR><TD>"

    406. 

  406. 

    407. 

  407. 	'===================================================

    408. 

  408. 	'create an pickuplist item

    409. 

  409. 	'===================================================

    410. 

  410. 	GiveTo			=	request.form("GiveTo") 

    411. 

  411. 	CreationDate	=	shamsiToday()

    412. 

  412. 	CreationTime	=	currentTime10()

    413. 

  413. 	CreatedBy		=	session("id")

    414. 

  414. 	Status			=	"new"

    415. 

  415. 

    416. 

  416. 	set RST=Conn.Execute ("SELECT RealName FROM Users WHERE (ID = "& GiveTo & ")" )

    417. 

  417. 	GiveToRealName = RST("RealName")

    418. 

  418. 

    419. 

  419. 	mysql = "INSERT INTO InventoryPickuplists (CreationTime, CreationDate, Status, CreatedBy, GiveTo) VALUES (N'"& CreationTime & "', N'"& CreationDate & "', N'new', "& CreatedBy & ", "& GiveTo & ")"

    420. 

  420. 	Conn.Execute (mysql)

    421. 

  421. 	'response.write mysql

    422. 

  422. 	response.write "<li>  : " &  CreationDate & "  " & CreationTime

    423. 

  423. 	response.write "<li>  : " & GiveToRealName

    424. 

  424. 	response.write "<hr>"

    425. 

  425. 	

    426. 

  426. 

    427. 

  427. 	'===================================================

    428. 

  428. 	'create many pickuplist lines for an pickuplist item

    429. 

  429. 	'===================================================

    430. 

  430. 	set RSX=Conn.Execute ("SELECT * FROM InventoryPickuplists WHERE CreationTime = N'"& CreationTime & "' and CreationDate=N'" & CreationDate & "' and GiveTo=" & GiveTo )	

    431. 

  431. 	pickupListID = RSX("id")

    432. 

  432. 	RSX.close

    433. 

  433. 

    434. 

  434. 	for i=1 to request.form("ItemID").count

    435. 

  435. 		ItemID		=	request.form("ItemID")(i)

    436. 

  436. 		ItemName	=	request.form("ItemName")(i)

    437. 

  437. 		unit		=	request.form("unit")(i)

    438. 

  438. 		qtty		=	request.form("qtty")(i)

    439. 

  439. 		order_ID	=	request.form("Related_order_ID")(i)

    440. 

  440. 		RequestID	=	request.form("RequestID")(i)

    441. 

  441. 		box			=	request.form("box")(i)

    442. 

  442. 

    443. 

  443. 		mysql = "INSERT INTO InventoryPickuplistItems (pickupListID, Order_ID, ItemName, ItemID, Qtty, unit, RequestID, CustomerHaveInvItem) VALUES ( "& pickupListID & ", "& order_ID & ", N'"& ItemName & "', "& ItemID & ", "& qtty & ", N'"& unit & "', "& RequestID & ", " &  box & ")"

    444. 

  444. 		Conn.Execute (mysql)

    445. 

  445. 		'response.write mysql

    446. 

  446. 		response.write "<li> " & ItemName & " (" & Qtty & " " &  unit & ")"

    447. 

  447. 		if box="1" then

    448. 

  448. 			response.write "<b>  </b>" 

    449. 

  449. 		end if

    450. 

  450. 	next

    451. 

  451. 

    452. 

  452. 

    453. 

  453. 	'===================================================

    454. 

  454. 	'change status of related requests

    455. 

  455. 	'===================================================

    456. 

  456. 	for i=1 to request.form("RequestID").count

    457. 

  457. 		RequestID	=	request.form("RequestID")(i)

    458. 

  458. 

    459. 

  459. 		mysql = "UPDATE InventoryItemRequests SET Status = N'pick' WHERE (ID = "& RequestID & ")"

    460. 

  460. 		Conn.Execute (mysql)

    461. 

  461. 		'response.write mysql

    462. 

  462. 	next

    463. 

  463. 

    464. 

  464. 	response.write "</TD></TR></TABLE><center>"

    465. 

  465. 	%>

    466. 

  466. 	<form method=post action="default.asp?PickupListID=<%=pickupListID%>" ><br>

    467. 

  467. 	<INPUT TYPE="submit"  class=inputBut Name="Submit" Value="ǁ "  style="width:100px;" tabIndex="14">

    468. 

  468. 	</form>

    469. 

  469. 	<%

    470. 

  470. 	response.write "<BR><BR>  .</center>"

    471. 

  471. 	response.redirect "default.asp?show=" & PickupListID

    472. 

  472. 	response.end

    473. 

  473. 

    474. 

  474. end if

    475. 

  475. 

    476. 

  476. '-----------------------------------------------------------------------------------------------------

    477. 

  477. '------------------------------------------------------------- Inventory Item Pickuplist Creation Form

    478. 

  478. '-----------------------------------------------------------------------------------------------------

    479. 

  479. if request("Submit")=" " then

    480. 

  480. 	if request("itemReq").count < 1 then%>

    481. 

  481. 		<br><br>

    482. 

  482. 		<%

    483. 

  483. 		call showAlert("       ", CONST_MSG_ERROR)

    484. 

  484. 	else

    485. 

  485. 		for i=1 to request("itemReq").count

    486. 

  486. 			myRequestID=request("itemReq")(i)

    487. 

  487. 			set RSX=Conn.Execute ("SELECT * from [dbo].[InventoryItemRequests] where id=" & myRequestID)

    488. 

  488. 			itemName = RSX("Qtty") & " " & RSX("unit") & " " & RSX("ItemName")

    489. 

  489. 			CSR = RSX("CreatedBy")

    490. 

  490. 			set RSX=Conn.Execute ("update [dbo].[InventoryItemRequests] set status='del' where id=" & myRequestID)

    491. 

  491. 			call InformRequestDenied(itemName, CSR)

    492. 

  492. 			response.write "<br><br><center><li>  " & itemName & "  . </center>"

    493. 

  493. 		next

    494. 

  494. 	end if

    495. 

  495. 	'response.end

    496. 

  496. end if

    497. 

  497. '-----------------------------------------------------------------------------------------------------

    498. 

  498. '------------------------------------------------------------- Inventory Item Pickuplist Creation Form

    499. 

  499. '-----------------------------------------------------------------------------------------------------

    500. 

  500. if request("Submit")="  " or request("Submit")="sodoor" then

    501. 

  501. 	if request("itemReq").count < 1 then%>

    502. 

  502. 		<div align=center dir=rtl><br><br><br><br><br><br><b>!!<br><h3>    </h3></b><br></div>

    503. 

  503. 		</body>

    504. 

  504. 		</html>

    505. 

  505. 	<%	

    506. 

  506. 	else

    507. 

  507. 		%><br>

    508. 

  508. 		<form method=post action="default.asp" onsubmit="return confirm('   Ͽ')">

    509. 

  509. 		<TABLE dir=rtl align=center width=600>

    510. 

  510. 		<TR bgcolor="eeeeee" >

    511. 

  511. 			<TD align=center colspan=7><B>  </B></TD>

    512. 

  512. 		</TR>

    513. 

  513. 		<TR bgcolor="eeeeee" >

    514. 

  514. 				<TD style="width:160;"> </TD>

    515. 

  515. 				<TD style="width:70;"> </TD>

    516. 

  516. 				<TD style="width:70;"></TD>

    517. 

  517. 				<TD style="width:60;"></TD>

    518. 

  518. 				<TD> </TD>

    519. 

  519. 				<TD  style="width:160;">  </TD>

    520. 

  520. 		</TR>

    521. 

  521. 		<%

    522. 

  522. 		tmpCounter=0

    523. 

  523. 		totalQtty=0

    524. 

  524. 		for i=1 to request("itemReq").count

    525. 

  525. 			myRequestID=request("itemReq")(i)

    526. 

  526. 			set RSX=Conn.Execute ("SELECT dbo.InventoryItems.OldItemID AS OldItemID, InventoryItems.name, dbo.InventoryItemRequests.*, dbo.Users.RealName AS RealName FROM dbo.InventoryItems INNER JOIN dbo.InventoryItemRequests ON dbo.InventoryItems.ID = dbo.InventoryItemRequests.ItemID INNER JOIN dbo.Users ON dbo.InventoryItemRequests.CreatedBy = dbo.Users.ID WHERE InventoryItemRequests.ID = "& myRequestID )	

    527. 

  527. 			totalQtty = totalQtty + RSX("qtty")

    528. 

  528. 			tmpCounter = tmpCounter + 1

    529. 

  529. 			if tmpCounter mod 2 = 1 then

    530. 

  530. 				tmpColor="#FFFFFF"

    531. 

  531. 				tmpColor2="#FFFFBB"

    532. 

  532. 			Else

    533. 

  533. 				tmpColor="#FFFFFF"

    534. 

  534. 				tmpColor2="#FFFFBB"

    535. 

  535. 			End if 

    536. 

  536. 			%>

    537. 

  537. 			<TR bgcolor="<%=tmpColor%>" title="<% 

    538. 

  538. 				response.write "   : " & RSX("OldItemID") & " - "

    539. 

  539. 				Comment = RSX("Comment")

    540. 

  540. 				if Comment<>"-" then

    541. 

  541. 					response.write ": " & Comment

    542. 

  542. 				else

    543. 

  543. 					response.write " "

    544. 

  544. 				end if

    545. 

  545. 			%>">

    546. 

  546. 				<TD >

    547. 

  547. 					<INPUT TYPE="hidden" name=RequestID  value="<%=RSX("id")%>">

    548. 

  548. 					<INPUT TYPE="hidden" name=itemID  value="<%=RSX("ItemID")%>">

    549. 

  549. 					<INPUT TYPE="text" readonly NAME="itemName" value="<%=RSX("Name")%>" style="width:160; border:0">

    550. 

  550. 					<br>

    551. 

  551. 					<small>  : <%=RSX("ItemName")%></small>

    552. 

  552. 				</TD>

    553. 

  553. 				<TD align=center>

    554. 

  554. 					<span dir=ltr><%=shamsidate(RSX("ReqDate"))%></span>

    555. 

  555. 					<span dir=ltr><%=DatePart("h",RSX("ReqDate")) &":"& DatePart("n",RSX("ReqDate"))%></span>

    556. 

  556. 				</TD>

    557. 

  557. 				<TD>

    558. 

  558. 					<INPUT TYPE="text" NAME="qtty" value="<%=RSX("qtty")%>"  size=7 style="width:45; border:0">  <%=RSX("unit")%>

    559. 

  559. 					<INPUT TYPE="hidden" name=unit  value="<%=RSX("unit")%>">

    560. 

  560. 				</TD>

    561. 

  561. 				<TD><%=RSX("RealName")%></TD>

    562. 

  562. 				<TD><INPUT TYPE="hidden" name="Related_order_ID"  value="<%=RSX("orderID")%>">

    563. 

  563. 				<% if RSX("orderID")<>-1 then %>

    564. 

  564. 				<a href="../order/order.asp?act=show&id=<%=RSX("orderID")%>">

    565. 

  565. 				<%=RSX("orderID")%></a>

    566. 

  566. 				<% end if %>

    567. 

  567. 				</TD>

    568. 

  568. 				<TD>

    569. 

  569. 					<% 

    570. 

  570. 

    571. 

  571. 					set RST=Conn.Execute ("SELECT SUM((CONVERT(tinyint, dbo.InventoryLog.IsInput) - .5) * 2 * dbo.InventoryLog.Qtty) AS sumQtty, dbo.Accounts.AccountTitle FROM dbo.Orders INNER JOIN dbo.InventoryLog ON dbo.Orders.Customer = dbo.InventoryLog.owner INNER JOIN dbo.Accounts ON dbo.Orders.Customer = dbo.Accounts.ID WHERE (dbo.InventoryLog.ItemID = " & RSX("ItemID")  & " and dbo.InventoryLog.voided=0) GROUP BY dbo.Orders.ID, dbo.Accounts.AccountTitle HAVING (dbo.Orders.ID = " & RSX("orderID")  & ")" )

    572. 

  572. 					if not RST.EOF then

    573. 

  573. 						

    574. 

  574. 						if clng(RST("sumQtty")) < 0 then 

    575. 

  575. 							response.write "<b>!</b>      .       ʿ!" 

    576. 

  576. 							response.write "<INPUT TYPE='hidden' NAME='maxQtty'> <INPUT TYPE='hidden' NAME='CustomerHaveInvItem' value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    577. 

  577. 						elseif clng(RST("sumQtty")) > 0 then  

    578. 

  578. 							if RSX("CustomerHaveInvItem") then

    579. 

  579. 								response.write "<INPUT TYPE='hidden' NAME='maxQtty' value='" & RST("sumQtty") & "'> <INPUT TYPE='checkbox' NAME='CustomerHaveInvItem' checked  value='" & RST("sumQtty") & "' onclick='boxChecked(this)'><INPUT TYPE='hidden' NAME='box'  value='1'>  " & RST("sumQtty") & " " & RSX("unit") & " " &  RSX("ItemName") &  "   " & RST("AccountTitle") & "  Ͽ"

    580. 

  580. 							else 

    581. 

  581. 								response.write "<INPUT TYPE='hidden' NAME='maxQtty'  value='" & RST("sumQtty") & "'> <INPUT TYPE='checkbox' NAME='CustomerHaveInvItem'  value='" & RST("sumQtty") & "'  onclick='boxChecked(this)'><INPUT TYPE='hidden' NAME='box'  value='0'>  " & RST("sumQtty") & " " & RSX("unit") & " " & RSX("ItemName") & "  " & RST("AccountTitle") & "  Ͽ"

    582. 

  582. 							end if 

    583. 

  583. 						else

    584. 

  584. 							response.write "<INPUT TYPE='hidden' NAME='maxQtty' > <INPUT TYPE='hidden' NAME='CustomerHaveInvItem'  value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    585. 

  585. 						end if 

    586. 

  586. 					else

    587. 

  587. 						response.write "<INPUT TYPE='hidden' NAME='maxQtty' > <INPUT TYPE='hidden' NAME='CustomerHaveInvItem'  value='-1'><INPUT TYPE='hidden' NAME='box'  value='0'>" 

    588. 

  588. 					end if

    589. 

  589. 

    590. 

  590. 					%>

    591. 

  591. 				</TD>

    592. 

  592. 			</TR>

    593. 

  593. 			<% 

    594. 

  594. 			CreatedBy = RSX("CreatedBy")

    595. 

  595. 			LastRSX_typeID = RSX("ItemID")

    596. 

  596. 			RSX.moveNext

    597. 

  597. 		next

    598. 

  598. 		%>

    599. 

  599. 		<TR bgcolor="eeeeee" >

    600. 

  600. 			<TD align=center colspan=7 height=10></TD>

    601. 

  601. 		</TR>

    602. 

  602. 		<TR >

    603. 

  603. 			<TD colspan=7 align=center><BR> : 

    604. 

  604. 				<select name="GiveTo" class=inputBut>

    605. 

  605. 				<% set RSV=Conn.Execute ("SELECT * FROM Users WHERE Display=1 ORDER BY RealName") 

    606. 

  606. 				Do while not RSV.eof

    607. 

  607. 				%>

    608. 

  608. 					<option value="<%=RSV("ID")%>" <%

    609. 

  609. 						if RSV("ID")=CreatedBy then

    610. 

  610. 							response.write " selected "

    611. 

  611. 						end if

    612. 

  612. 						%>><%=RSV("RealName")%></option>

    613. 

  613. 				<%

    614. 

  614. 				RSV.moveNext

    615. 

  615. 				Loop

    616. 

  616. 				RSV.close

    617. 

  617. 				%>

    618. 

  618. 				</select><BR><BR>

    619. 

  619. 				 : <span dir=ltr bgcolor=red><%=shamsitoday()%></span> 

    620. 

  620. 				<BR><BR>

    621. 

  621. 				<INPUT TYPE="submit"  class=inputBut Name="Submit" Value=" "  style="width:100px;" tabIndex="14" onclick="return conf()">

    622. 

  622. 			</TD>

    623. 

  623. 		</TR>

    624. 

  624. 		</FORM>

    625. 

  625. 		</body>

    626. 

  626. 		</html>

    627. 

  627. 		<%

    628. 

  628. 	end if 

    629. 

  629. 	response.end

    630. 

  630. end if

    631. 

  631. 

    632. 

  632. if Request("act")="waste" then 

    633. 

  633. 	if not Auth(5 , "K") then NotAllowdToViewThisPage()

    634. 

  634.  %>

    635. 

  635. <div class="inPage">

    636. 

  636. 	<span> : </span>

    637. 

  637. 	<input id="orderID" size="6" class="boot"/>

    638. 

  638. 	<div id="message" class="well well-small"><ul></ul></div>

    639. 

  639. </div>

    640. 

  640. <div id="orderHeader" class="well"></div>

    641. 

  641. <div id="confirm">

    642. 

  642. 	<h4></h4>

    643. 

  643. 	<h5>       </h5>

    644. 

  644. 	<input name="comment" type="text" size="20"/>

    645. 

  645. </div>

    646. 

  646. <script type="text/javascript">

    647. 

  647. $(document).ready(function(){

    648. 

  648. 	$("#confirm").dialog({

    649. 

  649. 		autoOpen: false,

    650. 

  650. 		buttons: {"":function(){

    651. 

  651. 			var thisLI = $("#message ul li input[name=add].btn-danger").closest("li");

    652. 

  652. 			$.ajax({

    653. 

  653. 				type:"POST",

    654. 

  654. 				url:"/service/json_getInventory.asp",

    655. 

  655. 				data:{

    656. 

  656. 					act:"addWasteRequest",

    657. 

  657. 					orderID:$("#orderID").val(),

    658. 

  658. 					rowName: thisLI.find("input[name=rowName]").val(),

    659. 

  659. 					rowID: thisLI.find("input[name=rowID]").val(),

    660. 

  660. 					maxRowID: thisLI.find("input[name=maxRowID]").val(),

    661. 

  661. 					groupName: thisLI.find("input[name=groupName]").val(),

    662. 

  662. 					qtty: thisLI.find("input[name=qtty]").val(),

    663. 

  663. 					reqID: thisLI.find("input[name=reqID]").val(),

    664. 

  664. 					comment: $("#confirm input[name=comment]").val()

    665. 

  665. 				},

    666. 

  666. 				dataType:"json"

    667. 

  667. 			}).done(function (data){

    668. 

  668. 				$("#message").append(data.status);

    669. 

  669. 				$(this).dialog("close");

    670. 

  670. 			});

    671. 

  671. 			//thisLI.find("input[name=add]").removeClass("btn-danger");

    672. 

  672. 			//$("#message ul li input[name=add]").prop("disabled",false);

    673. 

  673. 			

    674. 

  674. 		}},

    675. 

  675. 		title: ""

    676. 

  676. 	});

    677. 

  677. 	

    678. 

  678. 	$("#orderID").blur(function(){

    679. 

  679. 		var orderID = Number($("#orderID").val());

    680. 

  680. 		$("#message ul").html("");

    681. 

  681. 		if (!isNaN(orderID) && orderID!='') {

    682. 

  682. 			loadXMLDoc("/service/xml_getOrderProperty.asp?act=showHead&id=" + orderID, function(orderXML){

    683. 

  683. 				

    684. 

  684. 				var isOrder = $(orderXML).find("status isOrder").text();

    685. 

  685. 				var isClosed = $(orderXML).find("status isClosed").text();

    686. 

  686. 				var isApproved = $(orderXML).find("status isApproved").text();

    687. 

  687. 				var invoiceIssued = $(orderXML).find("status invoiceIssued").text();

    688. 

  688. 				var invoiceApproved = $(orderXML).find("status invoiceApproved").text();

    689. 

  689. 				var step = $(orderXML).find("status step").text();

    690. 

  690. 				var dis="";

    691. 

  691. 				if (isOrder=='0'){

    692. 

  692. 					$("#message").html("   !!!!!");

    693. 

  693. 					dis = "disabled='disabled'";

    694. 

  694. 				} else

    695. 

  695. 				if (isClosed!='0'){

    696. 

  696. 					$("#message").html("  !");

    697. 

  697. 					dis = "disabled='disabled'";

    698. 

  698. 				} else if (isApproved=='0'){

    699. 

  699. 					$("#message").html("  ");

    700. 

  700. 					dis = "";

    701. 

  701. 				} else if (invoiceIssued!='0') {

    702. 

  702. 					$("#message").html("!   !");

    703. 

  703. 					dis = "disabled='disabled'";

    704. 

  704. 				} else if (invoiceApproved!='0'){

    705. 

  705. 					$("#message").html("            ");

    706. 

  706. 					dis = "disabled='disabled'";

    707. 

  707. 				} else {

    708. 

  708. 					dis = "";

    709. 

  709. 				}	

    710. 

  710. 				

    711. 

  711. 				TransformXml(orderXML, "/xsl.<%=version%>/orderShowHeader.xsl", function(result){

    712. 

  712. 					$("#orderHeader").html(result);	

    713. 

  713. 					$('a#customerID').click(function(e){

    714. 

  714. 						window.open('../CRM/AccountInfo.asp?act=show&selectedCustomer='+$('a#customerID').attr("myID"), 'showCustomer');

    715. 

  715. 						e.preventDefault();

    716. 

  716. 					});

    717. 

  717. 				});

    718. 

  718. 				loadXMLDoc("/service/xml_getOrderProperty.asp?act=editOrder&id=" + orderID, function(propXML){

    719. 

  719. 					loadXMLDoc("/service/xml_getOrderProperty.asp?act=stock&id=" + orderID, function(stockXML){

    720. 

  720. 						$(propXML).find("group[hasStock=yes]").each(function(i){

    721. 

  721. 							var rowName = $(this).closest("rows").attr("name");

    722. 

  722. 							var groupName = $(this).attr("name");

    723. 

  723. 							var invoiceItem = $(this).attr("item");

    724. 

  724. 							var rowID = $(this).closest("row").attr("id");

    725. 

  725. 							var req = $(stockXML).find("req/invoiceItem:contains(" + invoiceItem + ")").find("rowID:contains(" + rowID + ")").parent().find("reqStatus:not(:contains('del'))").parent();

    726. 

  726. 							if (req.size()!=0){

    727. 

  727. 								$("#message ul").append("<li><span name='itemName'>" + $(req).find("ItemName").text() + 

    728. 

  728. 									"</span><input name='qtty' value='" + $(req).find("Qtty").text() + 

    729. 

  729. 									"' size='4'/><input name='add' " + dis + 

    730. 

  730. 									" type='button' class='btn' value=' ' onclick='addRequest(this)'/><span name='unit'>" + 

    731. 

  731. 									$(req).find("unit").text() + "</span><input type='hidden' name='rowName' value='" + 

    732. 

  732. 									rowName + "'/><input type='hidden' name='reqID' value='" + $(req).find("ID").text() + 

    733. 

  733. 									"'/><input type='hidden' name='groupName' value='" + groupName + 

    734. 

  734. 									"'/><input type='hidden' name='rowID' value='" + rowID + 

    735. 

  735. 									"'/><input type='hidden' name='maxRowID' value='0'/></li>");

    736. 

  736. 							}

    737. 

  737. 							

    738. 

  738. 						});

    739. 

  739. 						$("#message ul li").each(function(i){

    740. 

  740. 							var rowName = $(this).find("input[name=rowName]").val();

    741. 

  741. 							var rowID = parseInt($(this).find("input[name=rowID]").val());

    742. 

  742. 							var maxRowID = parseInt($(this).find("input[name=maxRowID]").val());

    743. 

  743. 							if (rowID > maxRowID)

    744. 

  744. 								$("#message ul li input[name=rowName]").parent().find("input[name=maxRowID]").val(rowID);

    745. 

  745. 						});

    746. 

  746. 					});

    747. 

  747. 				});

    748. 

  748. 			});

    749. 

  749. 		} 

    750. 

  750. 	});

    751. 

  751. });

    752. 

  752. function addRequest(e){

    753. 

  753. 	var thisLI = $(e).closest("li");

    754. 

  754. 	$("#confirm h4").html("     " + thisLI.find("span[name=itemName]").text() + " " + thisLI.find("input[name=qtty]").val() + " " + thisLI.find("span[name=unit]").text() + "   /  Ͽ");

    755. 

  755. 	thisLI.find("input[name=add]").addClass("btn-danger");

    756. 

  756. 	$("#message ul li input[name=add]").prop("disabled",true);

    757. 

  757. 	$("#confirm").dialog("open");

    758. 

  758. }

    759. 

  759. </script>

    760. 

  760. <%	

    761. 

  761. 	Response.end

    762. 

  762. end if

    763. 

  763. 

    764. 

  764. '-----------------------------------------------------------------------------------------------------

    765. 

  765. '--------------------------------------------------------------------- LIST Inventory Item Pickuplists

    766. 

  766. '-----------------------------------------------------------------------------------------------------

    767. 

  767. %>

    768. 

  768. <style>

    769. 

  769. 	.changeItem{cursor: pointer;}

    770. 

  770. 	td.delBtn {position: relative;}

    771. 

  771. 	td.delBtn span {position: absolute;opacity: .6;cursor: pointer;top:2px;left: 20px;font-size: 8px;font-family: tahoma;}

    772. 

  772. </style>

    773. 

  773. <script type="text/javascript">

    774. 

  774. 	$(document).ready(function(){

    775. 

  775. 		$.ajaxSetup({

    776. 

  776. 			cache: false

    777. 

  777. 		});

    778. 

  778. 		$("td.delBtn span").css('display','none');

    779. 

  779. 		$("td.delBtn").mouseover(function(event){

    780. 

  780. 			$(this).find("span").css("display","block");

    781. 

  781. 		});

    782. 

  782. 		$("td.delBtn").mouseout(function(event){

    783. 

  783. 			$(this).find("span").css("display","none");

    784. 

  784. 		});	

    785. 

  785. 		$("td.delBtn span").click(function(){

    786. 

  786. 			var requestID = $(this).closest("td").find("input[name=itemReq]").val();

    787. 

  787. 			$("#comfirmDel input").val(requestID);

    788. 

  788. 			if (parseInt($(this).closest("td").find("input[name=itemReq]").attr("invoiceitem")) > 0){

    789. 

  789. 				$("#comfirmDel h3").html("              ");

    790. 

  790. 			} else {

    791. 

  791. 				$("#comfirmDel h3").html("     Ͽ");

    792. 

  792. 			}

    793. 

  793. 			$("#comfirmDel").dialog("open");

    794. 

  794. 			

    795. 

  795. 		});

    796. 

  796. 		$('.changeItem').prop('title',' /   ');

    797. 

  797. 		$('.changeItem').click(function(){

    798. 

  798. 			var myRow = $(this).closest("tr");

    799. 

  799. 			var itemReq = myRow.find('input[name=itemReq]').val();

    800. 

  800. 			var theInvoiceitem = myRow.find('input[name=itemReq]').attr('invoiceitem');

    801. 

  801. 			$("#itemReq").val(itemReq);

    802. 

  802. 			

    803. 

  803. 			$.ajax({

    804. 

  804. 				type:"POST",

    805. 

  805. 				url:"/service/json_getInventory.asp",

    806. 

  806. 				data:{act:"itemListFromInvoiceItem",invoiceItem:theInvoiceitem},

    807. 

  807. 				dataType:"json"

    808. 

  808. 			}).done(function (data){

    809. 

  809. 				$("#itemID").children("option").remove();

    810. 

  810. 				$.each(data,function(i,e){

    811. 

  811. 					$("#itemID").append("<option value='" + e.inventoryItem + "' unit='" + e.unit + "'>" + e.name + "(" + e.unit + ")" + "</option>")

    812. 

  812. 				});

    813. 

  813. 			});

    814. 

  814. 			$('#changeItemDlg').dialog("open");

    815. 

  815. 		});

    816. 

  816. 		$("#changeItemDlg").dialog({ 

    817. 

  817. 			autoOpen: false,

    818. 

  818. 			buttons: {"":function(){

    819. 

  819. 				var invID=$("input[name=InvoiceID]").val();

    820. 

  820. 				$.ajax({

    821. 

  821. 					type:"POST",

    822. 

  822. 					url:"/service/json_getInventory.asp",

    823. 

  823. 					data:{act: "updateItemRequest" ,id: $("#itemReq").val(), unit: $("#itemID option:selected").attr("unit"), itemID:$("#itemID option:selected").val()},

    824. 

  824. 					dataType:"json"

    825. 

  825. 				}).done(function (data){

    826. 

  826. 					if (data.status=="ok")

    827. 

  827. 						$("[name=itemReq][value=" + $("#itemReq").val() + "]").prop("disabled",false);

    828. 

  828. 					//location.reload();

    829. 

  829. 				});

    830. 

  830. 				$(this).dialog("close");

    831. 

  831. 			}},

    832. 

  832. 			title: " "

    833. 

  833. 		});

    834. 

  834. 		$("#comfirmDel").dialog({

    835. 

  835. 			autoOpen: false,

    836. 

  836. 			buttons: {"":function(){

    837. 

  837. 				$.ajax({

    838. 

  838. 					type:"POST",

    839. 

  839. 					url:"/service/json_getInventory.asp",

    840. 

  840. 					data:{act:"delInvRequest",id:$("#comfirmDel input").val()},

    841. 

  841. 					dataType:"json"

    842. 

  842. 				}).done(function(data){

    843. 

  843. 					if (data.status=="ok")

    844. 

  844. 						$("[name=itemReq][value=" + $("#comfirmDel input").val() + "]").closest("tr").remove();

    845. 

  845. 				});

    846. 

  846. 				$(this).dialog("close");

    847. 

  847. 			}},

    848. 

  848. 			title: " "

    849. 

  849. 		});

    850. 

  850. 	});

    851. 

  851. </script>

    852. 

  852. <div id='changeItemDlg'>

    853. 

  853. 	<input type="hidden" id="itemReq"/>

    854. 

  854. 	<select id='itemID'></select>

    855. 

  855. </div>

    856. 

  856. <div id='comfirmDel'>

    857. 

  857. 	<h3></h3>

    858. 

  858. 	<input type="hidden" name="reqID"/>

    859. 

  859. </div>

    860. 

  860. <BR><BR>

    861. 

  861. <br>

    862. 

  862. <FORM METHOD=POST ACTION="default.asp">

    863. 

  863. <%

    864. 

  864. 

    865. 

  865. sortBy=request("s")

    866. 

  866. if sortBy="5" then 

    867. 

  867. 	sB="orderID"

    868. 

  868. elseif sortBy="2" then 

    869. 

  869. 	sB="ReqDate"

    870. 

  870. elseif sortBy="3" then 

    871. 

  871. 	sB="Qtty"

    872. 

  872. elseif sortBy="4" then 

    873. 

  873. 	sB="CreatedBy"

    874. 

  874. else 

    875. 

  875. 	sB="ItemName"

    876. 

  876. end if

    877. 

  877. 

    878. 

  878. if Auth(5 , 9) then

    879. 

  879. 	set RSS=Conn.Execute ("SELECT dbo.InventoryItemRequests.*, dbo.Users.RealName AS RealName FROM dbo.InventoryItemRequests INNER JOIN dbo.Users ON dbo.InventoryItemRequests.CreatedBy = dbo.Users.ID WHERE (dbo.InventoryItemRequests.Status = 'new') AND (dbo.InventoryItemRequests.OrderID <> - 1) order by " & sB)

    880. 

  880. 

    881. 

  881. 	if not RSS.eof then

    882. 

  882. 		%>

    883. 

  883. 		<TABLE dir=rtl align=center width=600>

    884. 

  884. 		<TR bgcolor="eeeeee" height=20>

    885. 

  885. 			<TD align=center colspan=6><INPUT TYPE="hidden" name=color1 value="#FFFFFF"><INPUT TYPE="hidden" name=color2 value="#FFFFBB"><B>       </B></TD>

    886. 

  886. 		</TR>

    887. 

  887. 		<TR bgcolor="eeeeee" >

    888. 

  888. 			<TD><INPUT TYPE="checkbox" NAME="" disabled><INPUT TYPE="hidden" name=color1 value="#FFFFFF"><INPUT TYPE="hidden" name=color2 value="#FFFFBB"</TD>

    889. 

  889. 			<TD><A HREF="default.asp?s=1"><SMALL>  </SMALL></A></TD>

    890. 

  890. 			<TD><A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    891. 

  891. 			<TD><A HREF="default.asp?s=3"><SMALL></SMALL></A></TD>

    892. 

  892. 			<TD><A HREF="default.asp?s=4"><SMALL> </SMALL></A></TD>

    893. 

  893. 			<TD><A HREF="default.asp?s=5"><SMALL> </SMALL></A></TD>

    894. 

  894. 		</TR>

    895. 

  895. 		<%

    896. 

  896. 		tmpCounter=0

    897. 

  897. 		Do while not RSS.eof

    898. 

  898. 			tmpCounter = tmpCounter + 1

    899. 

  899. 			if tmpCounter mod 2 = 1 then

    900. 

  900. 				tmpColor="#FFFFFF"

    901. 

  901. 				tmpColor2="#FFFFBB"

    902. 

  902. 			Else

    903. 

  903. 				tmpColor="#FFFFFF"

    904. 

  904. 				tmpColor2="#FFFFBB"

    905. 

  905. 				'tmpColor="#DDDDDD"

    906. 

  906. 				'tmpColor2="#EEEEBB"

    907. 

  907. 			End if 

    908. 

  908. 

    909. 

  909. 		%>

    910. 

  910. 		<TR bgcolor="<%=tmpColor%>" >

    911. 

  911. 			<TD class="delBtn">

    912. 

  912. 				<INPUT TYPE="hidden" name=color1 value="<%=tmpColor%>"/>

    913. 

  913. 				<INPUT TYPE="hidden" name=color2 value="<%=tmpColor2%>"/>

    914. 

  914. 				<INPUT TYPE="checkbox"  onclick="setPrice(this)" <%if IsNull(rss("itemID")) then response.write "disabled='disabled'"%> invoiceItem="<%=rss("invoiceItem")%>" NAME="itemReq" VALUE="<%=RSS("id")%>"/>

    915. 

  915. 				<span class="label label-important">X</span>

    916. 

  916. 			</TD>

    917. 

  917. 			<TD <%if not IsNull(rss("invoiceItem")) then Response.write " class='changeItem'"%>><%=RSS("ItemName")%></TD>

    918. 

  918. 			<TD><%=shamsidate(RSS("ReqDate"))%></small></TD>

    919. 

  919. 			<TD><%=RSS("Qtty")%> <%=rss("unit")%></TD>

    920. 

  920. 			<TD><%=RSS("RealName")%></TD>

    921. 

  921. 			<TD><a href="../order/order.asp?act=show&id=<%=RSS("orderID")%>"><%=RSS("orderID")%></a>

    922. 

  922. 			<% if RSS("CustomerHaveInvItem") then	

    923. 

  923. 				response.write " <b>  () </b>" 

    924. 

  924. 			end if

    925. 

  925. 			%>

    926. 

  926. 			</small></TD>

    927. 

  927. 		</TR>

    928. 

  928. 		<!--TR bgcolor="<%=tmpColor%>" >

    929. 

  929. 			<TD></TD>

    930. 

  930. 			<TD colspan=5>: <%=RSS("comment")%></small></TD>

    931. 

  931. 		</TR-->

    932. 

  932. 			  

    933. 

  933. 		<% 

    934. 

  934. 		RSS.moveNext

    935. 

  935. 		Loop

    936. 

  936. 		%>

    937. 

  937. 		<TR >

    938. 

  938. 			<TD align=center colspan=6 height=50><INPUT TYPE="hidden" name=color1 value=""><INPUT TYPE="hidden" name=color2 value="">

    939. 

  939. 				<center><INPUT TYPE="submit" Name="Submit" Value=" "  style="width:150px;" tabIndex="14" class="btn" onclick="return confirm('        Ͽ')"> <INPUT TYPE="submit" Name="Submit" Value="  "  style="width:150px;" class="btn" tabIndex="14"> 

    940. 

  940. 				</center>	<BR>

    941. 

  941. 			</TD>

    942. 

  942. 		</TR>

    943. 

  943. 		</TABLE>

    944. 

  944. 		<%

    945. 

  945. 	end if 

    946. 

  946. end if 

    947. 

  947. 

    948. 

  948. if Auth(5 , 1) then

    949. 

  949. 	set RSS=Conn.Execute ("SELECT dbo.InventoryItemRequests.*, dbo.Users.RealName AS RealName FROM dbo.InventoryItemRequests INNER JOIN dbo.Users ON dbo.InventoryItemRequests.CreatedBy = dbo.Users.ID WHERE (dbo.InventoryItemRequests.Status = 'new') AND (dbo.InventoryItemRequests.OrderID = - 1) order by " & sB)

    950. 

  950. 

    951. 

  951. 	if not RSS.eof then

    952. 

  952. 		%>

    953. 

  953. 		<TABLE dir=rtl align=center width=600>

    954. 

  954. 		<TR bgcolor="eeeeee" >

    955. 

  955. 			<TD align=center colspan=6 height=20><INPUT TYPE="hidden" name=color1 value="#FFFFFF"><INPUT TYPE="hidden" name=color2 value="#FFFFBB"><B>    </B></TD>

    956. 

  956. 		</TR>

    957. 

  957. 		<TR bgcolor="eeeeee" >

    958. 

  958. 			<TD><INPUT TYPE="hidden" name=color1 value="#FFFFFF"><INPUT TYPE="hidden" name=color2 value="#FFFFBB"><INPUT TYPE="checkbox" NAME="" disabled></TD>

    959. 

  959. 			<TD><A HREF="default.asp?s=1"><SMALL>  </SMALL></A></TD>

    960. 

  960. 			<TD><A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    961. 

  961. 			<TD><A HREF="default.asp?s=3"><SMALL></SMALL></A></TD>

    962. 

  962. 			<TD><A HREF="default.asp?s=4"><SMALL> </SMALL></A></TD>

    963. 

  963. 		</TR>

    964. 

  964. 		<%

    965. 

  965. 		tmpCounter = tmpCounter + 1

    966. 

  966. 		Do while not RSS.eof

    967. 

  967. 			tmpCounter = tmpCounter + 1

    968. 

  968. 			if tmpCounter mod 2 = 1 then

    969. 

  969. 				tmpColor="#FFFFFF"

    970. 

  970. 				tmpColor2="#FFFFBB"

    971. 

  971. 			Else

    972. 

  972. 				tmpColor="#FFFFFF"

    973. 

  973. 				tmpColor2="#FFFFBB"

    974. 

  974. 				'tmpColor="#DDDDDD"

    975. 

  975. 				'tmpColor2="#EEEEBB"

    976. 

  976. 			End if 

    977. 

  977. 

    978. 

  978. 		%>

    979. 

  979. 		<TR bgcolor="<%=tmpColor%>" >

    980. 

  980. 			<TD><INPUT TYPE="hidden" name=color1 value="<%=tmpColor%>"><INPUT TYPE="hidden" name=color2 value="<%=tmpColor2%>"><INPUT TYPE="checkbox"  onclick="setPrice(this)"  NAME="itemReq" VALUE="<%=RSS("id")%>"></TD>

    981. 

  981. 			<TD><%=RSS("ItemName")%></TD>

    982. 

  982. 			<TD><%=shamsidate(RSS("ReqDate"))%></small></TD>

    983. 

  983. 			<TD><%=RSS("Qtty")%> <%=rss("unit")%></TD>

    984. 

  984. 			<TD><%=RSS("RealName")%></TD>

    985. 

  985. 		</TR>

    986. 

  986. 		<!--TR bgcolor="<%=tmpColor%>" >

    987. 

  987. 			<TD></TD>

    988. 

  988. 			<TD colspan=5>: <%=RSS("comment")%></small></TD>

    989. 

  989. 		</TR-->

    990. 

  990. 			  

    991. 

  991. 		<% 

    992. 

  992. 		RSS.moveNext

    993. 

  993. 		Loop

    994. 

  994. 		%>

    995. 

  995. 		</TABLE><br>

    996. 

  996. 		<center>

    997. 

  997. 			<INPUT TYPE="submit" Name="Submit" Value=" "  style="width:150px;" tabIndex="14" class="btn" onclick="return confirm('        Ͽ')"/> 

    998. 

  998. 			<INPUT TYPE="submit" Name="Submit" Value="  "  style="width:150px;" tabIndex="14" class="btn"/>

    999. 

  999. 			<a href="?act=waste" class="btn" style="width:150px;">  ѐ</a>

    1000. 

  1000. 		</center>

    1001. 

  1001. 		</form>

    1002. 

  1002. 	<% end if %>

    1003. 

  1003. 	<BR><BR>

    1004. 

  1004. 	<TABLE align=center width=50%>

    1005. 

  1005. 	<TR>

    1006. 

  1006. 		<TD align=center style="border:solid 1pt black">

    1007. 

  1007. 			<BR>

    1008. 

  1008. 			<FORM METHOD=POST ACTION="default.asp">

    1009. 

  1009. 			<B>    <BR></B><BR>

    1010. 

  1010. 			   : <INPUT TYPE="text" NAME="invoice_id" dir=ltr ><BR><BR> <INPUT TYPE="submit"  name="submit"  value="  ">

    1011. 

  1011. 			<BR>

    1012. 

  1012. 			</FORM>

    1013. 

  1013. 		</TD>

    1014. 

  1014. 	</TR>

    1015. 

  1015. 	</TABLE><BR>

    1016. 

  1016. 	<%

    1017. 

  1017. end if 

    1018. 

  1018. %>

    1019. 

  1019. 

    1020. 

  1020. <SCRIPT LANGUAGE="JavaScript">

    1021. 

  1021. 

    1022. 

  1022. function setPrice(obj)

    1023. 

  1023. {

    1024. 

  1024. theTR = obj.parentNode.parentNode

    1025. 

  1025. ii = theTR.rowIndex -1

    1026. 

  1026. 

    1027. 

  1027. if(obj.checked)

    1028. 

  1028. 	{

    1029. 

  1029. 	//alert(ii)

    1030. 

  1030. 	theTR.setAttribute("bgColor",document.getElementsByName('color2')[ii].value)

    1031. 

  1031. 	}

    1032. 

  1032. else

    1033. 

  1033. 	{

    1034. 

  1034. 	theTR.setAttribute("bgColor",document.getElementsByName('color1')[ii].value)

    1035. 

  1035. 	}

    1036. 

  1036. }

    1037. 

  1037. 

    1038. 

  1038. </SCRIPT>

    1039. 

  1039. 

    1040. 

  1040. 

    1041. 

  1041. <!--#include file="tah.asp" -->
    1042.