/beta/inventory/ItemOut.asp

http://github.com/khaneh/Orders · ASP · 327 lines · 260 code · 40 blank · 27 comment · 33 complexity · 227d5b5712c57385770cd836847472b4 MD5 · raw file 

    

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

    2. 

  2. 'Inventory (5)

    3. 

  3. PageTitle= "  "

    4. 

  4. SubmenuItem=2

    5. 

  5. if not Auth(5 , 2) 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. 

    13. 

  13. 

    14. 

  14. <%

    15. 

  15. '-----------------------------------------------------------------------------------------------------

    16. 

  16. '-------------------------------------------------------------------------------------------- Item Out

    17. 

  17. '-----------------------------------------------------------------------------------------------------

    18. 

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

    19. 

  19. 	PickID		=	request.form("PickID")

    20. 

  20. 	comments	=	request.form("comments")

    21. 

  21. 	exitDate	=	request.form("exitDate")

    22. 

  22. 

    23. 

  23. 	if Auth(5 , "C") AND "" & exitDate <> "" then '  /   

    24. 

  24. 		logDate=exitDate

    25. 

  25. 	else

    26. 

  26. 		logDate=shamsiToday()

    27. 

  27. 	end if

    28. 

  28. 	

    29. 

  29. 	'===================================================

    30. 

  30. 	' check status of pick list to be 'New' 

    31. 

  31. 	' and change it to 'done'

    32. 

  32. 	'===================================================

    33. 

  33. 	set RSS=Conn.Execute ("SELECT * FROM InventoryPickuplists WHERE (id = "& PickID & " and status='new') " )

    34. 

  34. 	if RSS.eof then 

    35. 

  35. 		response.write "<BR><BR><BR><BR><center>! <BR><BR>       . </center>"

    36. 

  36. 		'response.write pickID

    37. 

  37. 		response.end

    38. 

  38. 	end if

    39. 

  39. 	mySQL = "update InventoryPickuplists set status='done' where (id = "& PickID & ")"

    40. 

  40. '	response.write mySQL

    41. 

  41. 	Conn.Execute (mySQL)

    42. 

  42. 

    43. 

  43. 

    44. 

  44. 	'===================================================

    45. 

  45. 	' insert items in InventoryLogOut table and

    46. 

  46. 	' change the Qtty of item in InventoryItems table

    47. 

  47. 	'===================================================

    48. 

  48. 

    49. 

  49. 

    50. 

  50. 	set RSI=Conn.Execute ("SELECT dbo.InventoryPickuplistItems.*, ISNULL(dbo.Orders.Customer, - 1) AS owner, dbo.InventoryItemRequests.RelatedInvoiceID FROM dbo.InventoryPickuplistItems INNER JOIN dbo.InventoryItemRequests ON dbo.InventoryPickuplistItems.RequestID = dbo.InventoryItemRequests.ID LEFT OUTER JOIN dbo.Orders ON dbo.InventoryPickuplistItems.Order_ID = dbo.Orders.ID WHERE (dbo.InventoryPickuplistItems.pickupListID = "& PickID & ")")

    51. 

  51. 	if RSI.eof then 

    52. 

  52. 		response.write "<BR><BR><BR><BR><center>! <BR><BR>  </center>"

    53. 

  53. 		response.end

    54. 

  54. 	end if

    55. 

  55. 

    56. 

  56. 	response.write "<BR><BR><BR><BR><center>     :"

    57. 

  57. 	Do while not RSI.eof

    58. 

  58. 		ItemID		=	RSI("ItemID")

    59. 

  59. 		ItemName	=	RSI("ItemName")

    60. 

  60. 		unit		=	RSI("unit")

    61. 

  61. 		qtty		=	RSI("qtty")

    62. 

  62. 		order_ID	=	RSI("order_ID")

    63. 

  63. 		RequestID	=	RSI("RequestID")

    64. 

  64. 		RelatedInvoiceID	=	RSI("RelatedInvoiceID")

    65. 

  65. 		if trim(RelatedInvoiceID) = "" or isnull(RelatedInvoiceID) then

    66. 

  66. 			RelatedInvoiceID = 0

    67. 

  67. 		end if

    68. 

  68. 

    69. 

  69. 		if RSI("CustomerHaveInvItem") then

    70. 

  70. 			owner	=	RSI("owner")

    71. 

  71. 		else

    72. 

  72. 			owner	= "-1"

    73. 

  73. 		end if

    74. 

  74. 		mySQL = "SET NOCOUNT ON;INSERT INTO InventoryLog (ItemID, RelatedID, Qtty, logDate, CreatedBy, owner, IsInput, comments, type, RelatedInvoiceID,price,gl_update) VALUES ("& ItemID & ","& PickID& ","& Qtty& ",N'"& logDate& "', "& session("ID") & ", " & owner & " , 0, N'" & comments & "', 1, "& RelatedInvoiceID & ", null,0);select @@identity as newID;SET NOCOUNT OFF;"

    75. 

  75. 		'response.write mySQL 

    76. 

  76. 		'response.end

    77. 

  77. 		set rs = Conn.Execute(mySQL)

    78. 

  78. 		newOut = rs.Fields("newID").value

    79. 

  79. 		rs.close

    80. 

  80. 		set rs= nothing

    81. 

  81. 		if RSI("CustomerHaveInvItem") then

    82. 

  82. 			set RSW=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 = " & ItemID & " and dbo.InventoryLog.voided=0) GROUP BY dbo.Orders.ID, dbo.Accounts.AccountTitle HAVING (dbo.Orders.ID = " & order_ID  & ")")

    83. 

  83. 			newItemQtty = RSW("sumQtty")

    84. 

  84. 			RSW.close

    85. 

  85. 			set RSW = nothing

    86. 

  86. 		else

    87. 

  87. 			set RSW=Conn.Execute ("SELECT * FROM InventoryItems WHERE (id = "& ItemID & ")" )

    88. 

  88. 			newItemQtty = RSW("qtty")

    89. 

  89. 			RSW.close

    90. 

  90. 			set RSW = nothing

    91. 

  91. 		end if

    92. 

  92. 		response.write "<li> " & ItemName & " " & qtty & " " & unit & " (: " & newItemQtty & " " & unit & ")"

    93. 

  93. 		if clng(newItemQtty)<0 then 

    94. 

  94. 			response.write "error!"

    95. 

  95. 			response.end

    96. 

  96. 		end if

    97. 

  97. '		Conn.Execute ("update InventoryItems set qtty="& newItemQtty & " where (id = "& ItemID & ")")

    98. 

  98. ' --------------- TEmPORARY DISABLE

    99. 

  99. '		Conn.Execute("execute dbo.outFIFO")

    100. 

  100. 		set rs=conn.Execute("select * from InventoryFIFORelations where outID=" & newOut)

    101. 

  101. 		while not rs.eof

    102. 

  102. 			response.write("<li>    <a href='invReport.asp?oldItemID=-1&itemID=" & itemID & "'>" & rs("inID") & "</a>   " & rs("qtty") & "  .<br>")

    103. 

  103. 			rs.moveNext

    104. 

  104. 		wend

    105. 

  105. 		RSI.moveNext

    106. 

  106. 	loop 

    107. 

  107. 	RSI.close

    108. 

  108. 	response.write "</center>"

    109. 

  109. 	

    110. 

  110. %>

    111. 

  111. 	<BR>	

    112. 

  112. 	<CENTER>

    113. 

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

    114. 

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

    115. 

  115. 	</CENTER>

    116. 

  116. 

    117. 

  117. 	<BR>

    118. 

  118. 	<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>

    119. 

  119. <%

    120. 

  120. response.end

    121. 

  121. end if

    122. 

  122. 

    123. 

  123. '-----------------------------------------------------------------------------------------------------

    124. 

  124. '------------------------------------------------------------------- Inventory Item Pickup list Submit

    125. 

  125. '-----------------------------------------------------------------------------------------------------

    126. 

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

    127. 

  127. 	

    128. 

  128. 

    129. 

  129. 	PickID =  request.form("PickID")

    130. 

  130. 	if PickID = "" then%>

    131. 

  131. 		<br><br>

    132. 

  132. 		<%

    133. 

  133. 		call showAlert("       ", CONST_MSG_ERROR)

    134. 

  134. 	else

    135. 

  135. 			set RSX=Conn.Execute ("update InventoryPickuplists set status='del', LastEditedBy=" & session("id") & ", LastEditDate=N'" & shamsiToday() & "', LastEditTime=N'" & currentTime10() & "' where id=" & PickID)

    136. 

  136. 			response.write "<br><br>"

    137. 

  137. 			call showAlert("   " & PickID & "  . ", CONST_MSG_INFORM)

    138. 

  138. 				

    139. 

  139. 			set RSX=Conn.Execute ("SELECT dbo.InventoryPickuplistItems.RequestID FROM         dbo.InventoryPickuplists INNER JOIN dbo.InventoryPickuplistItems ON dbo.InventoryPickuplists.id = dbo.InventoryPickuplistItems.pickupListID where InventoryPickuplists.id=" & PickID)

    140. 

  140. 

    141. 

  141. 

    142. 

  142. 			Do while not RSX.eof

    143. 

  143. 				Conn.Execute ("UPDATE dbo.InventoryItemRequests SET status='new' WHERE (ID = "& RSX("RequestID") & ")")

    144. 

  144. 				RSX.moveNext

    145. 

  145. 			loop

    146. 

  146. 			RSX.close

    147. 

  147. 

    148. 

  148. 			response.write "<br><br>"

    149. 

  149. 			call showAlert("        ѐ. ", CONST_MSG_INFORM)

    150. 

  150. 			

    151. 

  151. 	end if

    152. 

  152. 

    153. 

  153. end if

    154. 

  154. '-----------------------------------------------------------------------------------------------------

    155. 

  155. '------------------------------------------------------------------- Inventory Item Pickup list Submit

    156. 

  156. '-----------------------------------------------------------------------------------------------------

    157. 

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

    158. 

  158. 	 PickID =  request.form("PickID")

    159. 

  159. 	 if PickID ="" then

    160. 

  160. 		response.redirect "ItemOut.asp"

    161. 

  161. 	end if

    162. 

  162. 

    163. 

  163. 	set RSS=Conn.Execute ("SELECT * FROM InventoryPickuplists WHERE (id = "& PickID & ") " )

    164. 

  164. 	if RSS.eof then 

    165. 

  165. 		response.redirect "ItemOut.asp"

    166. 

  166. 	end if

    167. 

  167. 

    168. 

  168. 	set RSI=Conn.Execute ("SELECT dbo.InventoryPickuplistItems.*, ISNULL(dbo.Orders.Customer, - 1) AS owner FROM dbo.InventoryPickuplistItems LEFT OUTER JOIN dbo.Orders ON dbo.InventoryPickuplistItems.Order_ID = dbo.Orders.ID WHERE (dbo.InventoryPickuplistItems.pickupListID = "& PickID & ") " )

    169. 

  169. 	if RSI.eof then 

    170. 

  170. 		response.redirect "ItemOut.asp"

    171. 

  171. 	end if

    172. 

  172. 

    173. 

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

    174. 

  174. 	GiveToRealName = RST("RealName")

    175. 

  175. 

    176. 

  176. 	response.write "<center><br><br><br><BR><BR><BR>            : "

    177. 

  177. 	response.write "<BR><br><br><BR><TABLE align=center style='border: solid 2pt black; '><TR><TD style='font-size:12pt'>"

    178. 

  178. 	response.write "<li> : " & PickID

    179. 

  179. 	response.write "<li>  : " &  RSS("CreationDate") & "  (" & RSS("CreationTime") & ")"

    180. 

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

    181. 

  181. 	response.write "<hr>"

    182. 

  182. 	Do while not RSI.eof

    183. 

  183. 		ItemID		=	RSI("ItemID")

    184. 

  184. 		ItemName	=	RSI("ItemName")

    185. 

  185. 		unit		=	RSI("unit")

    186. 

  186. 		qtty		=	RSI("qtty")

    187. 

  187. 		order_ID	=	RSI("order_ID")

    188. 

  188. 		RequestID	=	RSI("RequestID")

    189. 

  189. 		if RSI("CustomerHaveInvItem") then

    190. 

  190. 			owner	=	RSI("owner")

    191. 

  191. 		else

    192. 

  192. 			owner	= "-1"

    193. 

  193. 		end if

    194. 

  194. 

    195. 

  195. 		set RSW=Conn.Execute ("SELECT * FROM InventoryItems WHERE (id = "& ItemID & ")" )

    196. 

  196. 		OldItemID = RSW("OldItemID")

    197. 

  197. 		if owner = "-1" then

    198. 

  198. 			itemQtty = RSW("qtty")

    199. 

  199. 		else

    200. 

  200. 			itemQtty = RSW("cusQtty")

    201. 

  201. 		end if

    202. 

  202. 

    203. 

  203. 		if itemQtty < Qtty then 

    204. 

  204. 			response.write "<span><li  style='background-color: #FF9933'> "& OldItemID & " - " & ItemName & " (: " & Qtty & " " &  unit & " - : "& itemQtty & " "& unit & ")</span>"

    205. 

  205. 			notAvailable = "yes"

    206. 

  206. 		else

    207. 

  207. 			response.write "<li> "& OldItemID & " - " & ItemName & " (" & Qtty & " " &  unit & ")"

    208. 

  208. 			if not owner = "-1" then

    209. 

  209. 				response.write "<b>  " & owner & " </b>" 

    210. 

  210. 			end if

    211. 

  211. 		end if

    212. 

  212. 		RSI.moveNext

    213. 

  213. 	loop

    214. 

  214. 	RSI.close

    215. 

  215. 	 

    216. 

  216. response.write "</TD></TR></TABLE><br><br><FORM METHOD=POST ACTION='ItemOut.asp'><INPUT TYPE='hidden' name='PickID' value='"& PickID & "'>"

    217. 

  217. if notAvailable <> "yes" then

    218. 

  218. 	

    219. 

  219. 	if Auth(5 , "C") then '  /   

    220. 

  220. %>

    221. 

  221. 	 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT dir=ltr TYPE="text" NAME="exitDate" style="width:200px;" value="<%=shamsiToday()%>" onblur="acceptDate(this)"><br><br>

    222. 

  222. <%

    223. 

  223. 	End if

    224. 

  224. %>

    225. 

  225. 	 <TEXTAREA NAME='comments' style="width:200px;" ></TEXTAREA><br><br>

    226. 

  226. 	<INPUT TYPE='submit' name='submit' class=inputBut value=''> &nbsp;&nbsp;

    227. 

  227. 	<INPUT TYPE='submit' name='submit' class=inputBut value=''>

    228. 

  228. <%

    229. 

  229. else

    230. 

  230. 	response.write "           . "

    231. 

  231. 	response.write "<A HREF='default.asp?ed=" & RSS("id") & "'>( )</A>"

    232. 

  232. end if

    233. 

  233. 	response.write "<BR><BR></center></FORM>"

    234. 

  234. response.end

    235. 

  235. 

    236. 

  236. end if

    237. 

  237. if Request("act")="" then 

    238. 

  238. set RSS=Conn.Execute ("SELECT InventoryPickuplists.*, Users.RealName AS RealName FROM InventoryPickuplists INNER JOIN Users ON InventoryPickuplists.GiveTo = Users.ID WHERE (InventoryPickuplists.Status = 'new') ORDER BY InventoryPickuplists.ID" )

    239. 

  239.  %>

    240. 

  240. <BR>

    241. 

  241. <FORM METHOD=POST ACTION="">

    242. 

  242. <TABLE dir=rtl align=center width=600 cellspacing=0>

    243. 

  243. <TR bgcolor="eeeeee" >

    244. 

  244. 	<TD align=center colspan=6><B>   </B></TD>

    245. 

  245. </TR>

    246. 

  246. <TR bgcolor="eeeeee" >

    247. 

  247. 	<TD style="border-bottom: solid 1pt black" ><INPUT TYPE="radio" NAME="" disabled></TD>

    248. 

  248. 	<TD style="border-bottom: solid 1pt black" ><!A HREF="default.asp?s=1"><SMALL> </SMALL></A></TD>

    249. 

  249. 	<TD style="border-bottom: solid 1pt black" ><!A HREF="default.asp?s=2"><SMALL>  </SMALL></A></TD>

    250. 

  250. 	<TD style="border-bottom: solid 1pt black" ><!A HREF="default.asp?s=3"><SMALL> </SMALL></A></TD>

    251. 

  251. 	<TD style="border-bottom: solid 1pt black" ><!A HREF="default.asp?s=4"><SMALL></SMALL></A></TD>

    252. 

  252. </TR>

    253. 

  253. <%

    254. 

  254. tmpCounter=0

    255. 

  255. Do while not RSS.eof

    256. 

  256. 	tmpCounter = tmpCounter + 1

    257. 

  257. 	if tmpCounter mod 2 = 1 then

    258. 

  258. 		tmpColor="#FFFFFF"

    259. 

  259. 		tmpColor2="#FFFFBB"

    260. 

  260. 	Else

    261. 

  261. 		tmpColor="#FFFFFF"

    262. 

  262. 		tmpColor2="#FFFFBB"

    263. 

  263. 		'tmpColor="#DDDDDD"

    264. 

  264. 		'tmpColor2="#EEEEBB"

    265. 

  265. 	End if 

    266. 

  266. 

    267. 

  267. set RSF=Conn.Execute ("SELECT * FROM InventoryPickuplistItems WHERE (pickupListID = "& RSS("ID") & ")" )

    268. 

  268. %>

    269. 

  269. <TR style="cursor:hand" onclick="this.getElementsByTagName('input')[0].click();this.getElementsByTagName('input')[0].focus();">

    270. 

  270. 	<TD  style="border-bottom: solid 1pt black; border-left: solid 1pt black; border-right: solid 1pt black" ><INPUT TYPE="radio" NAME="PickID" onclick="setColor(this)" VALUE="<%=RSS("id")%>"></TD>

    271. 

  271. 	<TD style="border-bottom: solid 1pt black; border-left: solid 1pt black" ><A HREF="default.asp?show=<%=RSS("id")%>"><%=RSS("id")%></A></TD>

    272. 

  272. 	<TD style="border-bottom: solid 1pt black; border-left: solid 1pt black" dir=l><span dir=ltr><%=RSS("CreationDate")%></span><!-- ( <%=RSS("CreationTime")%>)--></small></TD>

    273. 

  273. 	<TD style="border-bottom: solid 1pt black; border-left: solid 1pt black" ><%=RSS("RealName")%></TD>

    274. 

  274. 	<TD style="border-bottom: solid 1pt black; border-left: solid 1pt black" >

    275. 

  275. 	<%

    276. 

  276. 	

    277. 

  277. 	

    278. 

  278. 	response.write "<TABLE width=100% >"

    279. 

  279. 

    280. 

  280. 	Do while not RSF.eof

    281. 

  281. 		response.write "<TR><TD>" & RSF("ItemName") & " (" & RSF("qtty") & " " & RSF("unit") & ") "

    282. 

  282. 		if RSF("CustomerHaveInvItem") then

    283. 

  283. 			response.write "<b style='color:red;background-color:white'>  </b>" 

    284. 

  284. 		end if

    285. 

  285. 		response.write "</TD><TD align=left dir=ltr>" 

    286. 

  286. 		if RSF("Order_ID")<>-1 then

    287. 

  287. 			response.write RSF("Order_ID") & "</TD></TR>"

    288. 

  288. 		end if

    289. 

  289. 	RSF.moveNext

    290. 

  290. 	Loop

    291. 

  291. 	response.write "</TABLE>"

    292. 

  292. 	%>

    293. 

  293. 

    294. 

  294. 	</TD>

    295. 

  295. </TR>

    296. 

  296. <% 

    297. 

  297. RSS.moveNext

    298. 

  298. Loop

    299. 

  299. %>

    300. 

  300. </TABLE><br>

    301. 

  301. <center>

    302. 

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

    303. 

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

    304. 

  304. </center>

    305. 

  305. </form>

    306. 

  306. <%

    307. 

  307. 		

    308. 

  308. 	end if

    309. 

  309. 	

    310. 

  310. %>

    311. 

  311. <SCRIPT LANGUAGE="JavaScript">

    312. 

  312. <!--

    313. 

  313. 

    314. 

  314. function setColor(obj)

    315. 

  315. {

    316. 

  316. 	for(i=0; i<document.all.PickID.length; i++)

    317. 

  317. 		{

    318. 

  318. 		theTR = document.all.PickID[i].parentNode.parentNode

    319. 

  319. 		theTR.setAttribute("bgColor","<%=AppFgColor%>")

    320. 

  320. 		}

    321. 

  321. 	theTR = obj.parentNode.parentNode

    322. 

  322. 	theTR.setAttribute("bgColor","#FFFFFF")

    323. 

  323. }

    324. 

  324. //-->

    325. 

  325. </SCRIPT>

    326. 

  326. 

    327. 

  327. <!--#include file="tah.asp" -->
    328.