/beta/inventory/ItemIn.asp

http://github.com/khaneh/Orders · ASP · 908 lines · 794 code · 59 blank · 55 comment · 100 complexity · a081a014f0cb50f818b399cbe2bcb6ff MD5 · raw file 

    

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

    2. 

  2. 'Inventory (5)

    3. 

  3. PageTitle= "  "

    4. 

  4. SubmenuItem=3

    5. 

  5. if not Auth(5 , 3) then NotAllowdToViewThisPage()

    6. 

  6. 

    7. 

  7. %>

    8. 

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

    9. 

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

    10. 

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

    11. 

  11. <link type="text/css" href="/css/cupertino/jquery-ui-1.8.21.custom.css" rel="stylesheet" />

    12. 

  12. <script type="text/javascript" src="/js/jquery-1.7.min.js"></script>

    13. 

  13. <script type="text/javascript" src="/js/jalaliCalendar.js"></script>

    14. 

  14. <script type="text/javascript" src="/js/jquery.dateFormat-1.0.js"></script>

    15. 

  15. <script type="text/javascript" src="/js/jquery-ui-1.8.21.custom.min.js"></script>

    16. 

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

    17. 

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

    18. 

  18. 	$.ajaxSetup({

    19. 

  19. 		cache: false

    20. 

  20. 	});

    21. 

  21. 	$("div#invSelect").dialog({ 

    22. 

  22. 		autoOpen: false,

    23. 

  23. 		title: '    ' ,

    24. 

  24. 		width: 460

    25. 

  25. 	});

    26. 

  26. 	$("input#invCode").blur(function(){

    27. 

  27. 		$.getJSON("xml_InventoryItem.asp",

    28. 

  28. 			{act:'fromCode',invCode:$("input#invCode").val()},

    29. 

  29. 			function(json){

    30. 

  30. 				$("input#itemName").val(json.itemName);

    31. 

  31. 				$("input#itemID").val(json.itemID);

    32. 

  32. 				$("input#err").val(json.err);

    33. 

  33. 				if (json.err==1){

    34. 

  34. 					$("input[name=Submit]").prop("disabled", true);

    35. 

  35. 					$("div#errMsg").html(json.errMsg);

    36. 

  36. 				}

    37. 

  37. 				else {

    38. 

  38. 					$("input[name=Submit]").prop("disabled", false);

    39. 

  39. 					$("div#errMsg").html("");

    40. 

  40. 				}

    41. 

  41. 				$.each(json.store, function(i,st){

    42. 

  42. 					$("select#store").children("[value=" + st.storeID + "]").attr("unit",st.unit);

    43. 

  43. 				});

    44. 

  44. 				$("input#unit").val($("select#store").children(":selected").attr("unit"));

    45. 

  45. 			}

    46. 

  46. 		);

    47. 

  47. 	});

    48. 

  48. 	$("input#invCode").keypress(function(event){

    49. 

  49. 		if ( event.which == 13 ) {

    50. 

  50. 			event.preventDefault();

    51. 

  51. 			if ($("input#invCode").val()==''){

    52. 

  52. 				$("div#invSelect").dialog('open');

    53. 

  53. 			} else {

    54. 

  54. 				$("select#store").focus();

    55. 

  55. 			}

    56. 

  56. 		}

    57. 

  57. 	});

    58. 

  58. 	$("select#store").change(function(){

    59. 

  59. 		$("input#unit").val($(this).children(":selected").attr("unit"));

    60. 

  60. 	});

    61. 

  61. 	$("input#mySearch").change(function(){

    62. 

  62. 		if ($(this).val()=='')

    63. 

  63. 			$("div#searchResult").html('  Ȑ   !');

    64. 

  64. 		else {

    65. 

  65. 			

    66. 

  66. 			$.getJSON("xml_InventoryItem.asp",

    67. 

  67. 				{act:'search',search:$(this).val()},

    68. 

  68. 				function(json){

    69. 

  69. 					var result='';

    70. 

  70. 					$.each(json, function(i,invItem){

    71. 

  71. 						result +="<div class='invItem' invID='" + invItem.id + 

    72. 

  72. 							"' invName='" + invItem.name + "' invCode='" + invItem.invCode + 

    73. 

  73. 							"'>(<span class='red'>" +invItem.invCode +"</span>) <b>" + invItem.name+"</b></div>";

    74. 

  74. 					});

    75. 

  75. 					if (result=='')

    76. 

  76. 						result = '  !';

    77. 

  77. 					$("div#searchResult").html(result);

    78. 

  78. 					$("div.invItem").click(function(){

    79. 

  79. 						$("input#invCode").val($(this).attr("invCode"));

    80. 

  80. 						$("input#itemName").val($(this).attr("invName"));

    81. 

  81. 						$("input#itemID").val($(this).attr("invID"));

    82. 

  82. 						$.getJSON("xml_InventoryItem.asp",

    83. 

  83. 							{act:'getStore',itemID:$(this).attr("invID")},

    84. 

  84. 							function(json){

    85. 

  85. 								$.each(json, function(i,st){

    86. 

  86. 									$("select#store").children("[value=" + st.storeID + "]").attr("unit",st.unit);

    87. 

  87. 								});

    88. 

  88. 								$("input#unit").val($("select#store").children(":selected").attr("unit"));

    89. 

  89. 							}

    90. 

  90. 						);

    91. 

  91. 						$("div#invSelect").dialog('close');

    92. 

  92. 						$("select#store").focus();

    93. 

  93. 					});

    94. 

  94. 				}

    95. 

  95. 			);

    96. 

  96. 			

    97. 

  97. 		}

    98. 

  98. 	});

    99. 

  99. 	$("input#searchBut").click(function(e){

    100. 

  100. 		e.preventDefault();

    101. 

  101. 		if ($("input#itemID").val==''){

    102. 

  102. 			$("div#errMsg").html("  塝    ");

    103. 

  103. 			$("input[name=Submit]").prop("disabled", true);

    104. 

  104. 		} else if ($("select#store").children(":selected").attr("unit")==''){

    105. 

  105. 			

    106. 

  106. 		}

    107. 

  107. 	});

    108. 

  108. 	

    109. 

  109. });

    110. 

  110. 

    111. 

  111. </script>

    112. 

  112. <style>

    113. 

  113. 	span.red{color: red;}

    114. 

  114. 	div.errMsg{color: red;}

    115. 

  115. 	div.invItem{margin: 5px 0 5px 0;cursor: pointer;}

    116. 

  116. 	div.invItem:hover{margin: 5px 0 5px 0;cursor: pointer;background-color: #F90;}

    117. 

  117. </style>

    118. 

  118. <BR>

    119. 

  119. <%

    120. 

  120. catItem1 = request("catItem")

    121. 

  121. itemID = request("item")

    122. 

  122. owner = request("owner")

    123. 

  123. if not isNumeric(itemID) then

    124. 

  124. 	response.write "<br>" 

    125. 

  125. 	call showAlert ("!     ",CONST_MSG_ERROR) 

    126. 

  126. 	response.write "<br>" 

    127. 

  127. 	response.end

    128. 

  128. end if

    129. 

  129. purchaseOrderID = request("purchaseOrderID")

    130. 

  130. if catItem1="" then 

    131. 

  131. 	'catItem1="-1"

    132. 

  132. 	'itemID="-1"

    133. 

  133. 	'purchaseOrderID="-1"

    134. 

  134. elseif itemID="" then 

    135. 

  135. 	itemID="-1"

    136. 

  136. 	purchaseOrderID="-1"

    137. 

  137. 	owner = "-1"

    138. 

  138. elseif purchaseOrderID="" then 

    139. 

  139. 	purchaseOrderID="-1"

    140. 

  140. end if

    141. 

  141. 

    142. 

  142. 

    143. 

  143. '-----------------------------------------------------------------------------------------------------

    144. 

  144. '----------------------------------------------------------------------- Show Inventory Log In Reciept

    145. 

  145. '-----------------------------------------------------------------------------------------------------

    146. 

  146. if request("act")="showReceipt" then

    147. 

  147. 	response.write "<br><br><br><br><center>"

    148. 

  148. 	if request("id")<>"" then 

    149. 

  149. 		LogItem_ID=request("id")

    150. 

  150. 		set rs=Conn.Execute("select inventoryLog.*,InventoryItems.unit,InventoryItems.name from inventoryLog inner join InventoryItems on inventoryLog.itemID=InventoryItems.id where inventoryLog.id=" & LogItem_ID)

    151. 

  151. 		response.write "<li> " & rs("qtty") & " " & RS("unit") & " "  & RS("Name") & " " 

    152. 

  152. 		if cdbl(rs("owner"))>0 then 

    153. 

  153. 			response.write " " & rs("owner") & " "

    154. 

  154. 		end if

    155. 

  155. 		response.write " ( : " & rs("sumQtty") & " " & RS("unit") & "  : " & rs("sumCusQtty") & " " & rs("unit") &")"

    156. 

  156. 		rs.close

    157. 

  157. 		set rs=nothing

    158. 

  158. 	else

    159. 

  159. 		item = request("item")

    160. 

  160. 		qtty = request("qtty")

    161. 

  161. 		set RSW=Conn.Execute ("SELECT * FROM InventoryItems WHERE (OldItemID = "& item & ")" )

    162. 

  162. 		ItemID = RSW("id")

    163. 

  163. 		

    164. 

  164. 		

    165. 

  165. 		oldItemQtty = RSW("qtty")

    166. 

  166. 		newItemQtty = oldItemQtty ' + qtty

    167. 

  167. 		response.write "<li> " & RSW("Name") & " " & qtty & " " & RSW("unit") & " ( : " & newItemQtty & " " & RSW("unit") & ")"

    168. 

  168. 

    169. 

  169. 		set RSW=Conn.Execute ("SELECT * FROM InventoryLog WHERE (ItemID = "& ItemID & " and Qtty="& Qtty & ") order by id DESC" )

    170. 

  170. 		LogItem_ID = RSW("id")

    171. 

  171. 	end if

    172. 

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

    173. 

  173. 	%>

    174. 

  174. 	<BR>	<BR>

    175. 

  175. 	<CENTER>

    176. 

  176. 	<% 	ReportLogRow = PrepareReport ("InventoryLogIn.rpt", "LogItem_ID", LogItem_ID, "/beta/dialog_printManager.asp?act=Fin") %>

    177. 

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

    178. 

  178. 

    179. 

  179. 	<input type="button" value="  " Class="GenButton" onclick="window.location='itemIn.asp'">

    180. 

  180. 

    181. 

  181. 	</CENTER>

    182. 

  182. 

    183. 

  183. 	<BR>	

    184. 

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

    185. 

  185. 	<%

    186. 

  186. 

    187. 

  187. 	response.end

    188. 

  188. 

    189. 

  189. end if

    190. 

  190. '-----------------------------------------------------------------------------------------------------

    191. 

  191. '---------------------------------------------------------------------- Voroode Piramon Marjooe submit

    192. 

  192. '-----------------------------------------------------------------------------------------------------

    193. 

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

    194. 

  194. 

    195. 

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

    196. 

  196. 	if not isnumeric(invoice_id) then 

    197. 

  197. 		response.write "<br><br>"

    198. 

  198. 		call showAlert( "     ." , CONST_MSG_ERROR)

    199. 

  199. 		response.end

    200. 

  200. 	end if 

    201. 

  201. 

    202. 

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

    203. 

  203. 	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, 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 = 1)")

    204. 

  204. 	if not RSS.EOF then

    205. 

  205. 		%>

    206. 

  206. 		<br><br>

    207. 

  207. 		<%

    208. 

  208. 		call showAlert("          ", CONST_MSG_ALERT)

    209. 

  209. 		response.write "<br><br>" 

    210. 

  210. 		%>

    211. 

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

    212. 

  212. 			<TR bgcolor="eeeeee" >

    213. 

  213. 				<TD><SMALL> </SMALL></TD>

    214. 

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

    215. 

  215. 				<TD><SMALL> </SMALL></TD>

    216. 

  216. 				<TD><SMALL></SMALL></TD>

    217. 

  217. 				<TD><SMALL> </SMALL></TD>

    218. 

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

    219. 

  219. 				<TD><SMALL></SMALL></TD>

    220. 

  220. 			</TR>

    221. 

  221. 		<%

    222. 

  222. 		tmpCounter=0

    223. 

  223. 		do while not RSS.EOF

    224. 

  224. 			tmpCounter = tmpCounter + 1

    225. 

  225. 			if tmpCounter mod 2 = 1 then

    226. 

  226. 				tmpColor="#FFFFFF"

    227. 

  227. 				tmpColor2="#FFFFBB"

    228. 

  228. 			Else

    229. 

  229. 				tmpColor="#DDDDDD"

    230. 

  230. 				tmpColor2="#EEEEBB"

    231. 

  231. 			End if 

    232. 

  232. 

    233. 

  233. 			%>

    234. 

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

    235. 

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

    236. 

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

    237. 

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

    238. 

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

    239. 

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

    240. 

  240. 			<TD align=center><% if RSS("type")= "1" and RSS("RelatedID")<> "-1" then

    241. 

  241. 					%>

    242. 

  242. 						  

    243. 

  243. 				     <A HREF="../purchase/outServiceTrace.asp?od=<%=RSS("RelatedID")%>"><%=RSS("RelatedID")%></A>

    244. 

  244. 				   <%

    245. 

  245. 				   elseif RSS("type")= "2" then

    246. 

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

    247. 

  247. 				   elseif RSS("type")= "3" then

    248. 

  248. 					response.write "<font color=green><b></b></font>"

    249. 

  249. 					elseif RSS("type")= "4" then

    250. 

  250. 					response.write "<font color=blue><b>   </b></font>"

    251. 

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

    252. 

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

    253. 

  253. 					elseif RSS("type")= "6" then

    254. 

  254. 					response.write "<font color=#6699CC><b>  </b></font>"

    255. 

  255. 					elseif RSS("type")= "7" then

    256. 

  256. 					response.write "<font color=#FF9966><b>   </b></font>"

    257. 

  257. 				   else 

    258. 

  258. 					response.write " "

    259. 

  259. 				   end if	%>

    260. 

  260. 				   

    261. 

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

    262. 

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

    263. 

  263. 				   end if %>

    264. 

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

    265. 

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

    266. 

  266. 				   end if %>

    267. 

  267. 				   </TD>

    268. 

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

    269. 

  269. 			</TR>

    270. 

  270. 				  

    271. 

  271. 			<% 

    272. 

  272. 			RSS.movenext

    273. 

  273. 		loop

    274. 

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

    275. 

  275. 		response.end

    276. 

  276. 

    277. 

  277. 	end if

    278. 

  278. 	RSS.close

    279. 

  279. 	set RSS = nothing

    280. 

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

    281. 

  281. 

    282. 

  282. 

    283. 

  283. 	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 & ")")

    284. 

  284. 	st = ""

    285. 

  285. 	response.write "<BR><BR><CENTER>           Ͽ<BR><BR>"

    286. 

  286. 

    287. 

  287. 	do while not RSS.EOF

    288. 

  288. 		response.write "<li> " & RSS("AppQtty") & " " & RSS("unit") & " " & RSS("name") 

    289. 

  289. 		RSS.movenext

    290. 

  290. 	loop

    291. 

  291. 	%>

    292. 

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

    293. 

  293. 		<INPUT TYPE="hidden" name="invoice_id" value="<%=invoice_id%>">

    294. 

  294. 		<INPUT TYPE="submit" Name="Submit" Value="    " class=inputBut style="width:170px;" >

    295. 

  295. 		<INPUT TYPE="submit" Name="Submit" Value="" class=inputBut style="width:70px;" >

    296. 

  296. 	</FORM>

    297. 

  297. 	<%

    298. 

  298. 	response.end

    299. 

  299. '-----------------------------------------------------------------------------------------------------

    300. 

  300. '---------------------------------------------------------------------- Voroode Piramon Marjooe submit

    301. 

  301. '-----------------------------------------------------------------------------------------------------

    302. 

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

    303. 

  303. 	'response.write "<br><br>"

    304. 

  304. 	'call showAlert("    .",CONST_MSG_ERROR)

    305. 

  305. 	'response.end

    306. 

  306. 

    307. 

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

    308. 

  308. 	if not isnumeric(invoice_id) then 

    309. 

  309. 		response.write "<br><br>"

    310. 

  310. 		call showAlert( "     ." , CONST_MSG_ERROR)

    311. 

  311. 		response.end

    312. 

  312. 	end if 

    313. 

  313. 

    314. 

  314. 	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 & ")")

    315. 

  315. 	st = ""

    316. 

  316. 	response.write "<BR><BR><CENTER>      :<BR>"

    317. 

  317. 

    318. 

  318. 	do while not RSS.EOF

    319. 

  319. 		mysql = "INSERT INTO dbo.InventoryLog (ItemID, RelatedID, Qtty, logDate, owner, CreatedBy, IsInput, type, RelatedInvoiceID) VALUES (" & RSS("itemID") & ", -3, " & RSS("AppQtty") & ", N'" & shamsiToday() & "', -1, " & session("id") & ", 1, 3, " & invoice_id & ")"

    320. 

  320. 		response.write "<li> " & RSS("AppQtty") & " " & RSS("unit") & " " & RSS("name") 

    321. 

  321. 		Conn.Execute (mysql)

    322. 

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

    323. 

  323. 		RSS.movenext

    324. 

  324. 	loop

    325. 

  325. 	response.end

    326. 

  326. 

    327. 

  327. end if

    328. 

  328. '-----------------------------------------------------------------------------------------------------

    329. 

  329. '-------------------------------------------------------------------- Submit an Inventory Item Input 3

    330. 

  330. '-----------------------------------------------------------------------------------------------------

    331. 

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

    332. 

  332. 	item = trim(request.form("item"))

    333. 

  333. 	qtty = CDbl(request.form("qtty"))

    334. 

  334. 	purchaseOrderID = CDbl(request.form("purchaseOrderID"))

    335. 

  335. 	ownerAcc = CDbl(request.form("accountID"))

    336. 

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

    337. 

  337. 	entryDate = request.form("entryDate")

    338. 

  338. 	price= request.form("price")

    339. 

  339. 	if price<>"" then 

    340. 

  340. 		price = CDbl(price)

    341. 

  341. 	else

    342. 

  342. 		price = 0

    343. 

  343. 	end if

    344. 

  344. 	gl_update = request.form("gl_update")

    345. 

  345. 

    346. 

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

    347. 

  347. 		logDate=entryDate

    348. 

  348. 	else

    349. 

  349. 		logDate=shamsiToday()

    350. 

  350. 	end if

    351. 

  351. 	

    352. 

  352. 	if 	not item = "" then

    353. 

  353. 

    354. 

  354. 		if purchaseOrderID="" then

    355. 

  355. 			purchaseOrderID = "-1"

    356. 

  356. 		end if

    357. 

  357. 

    358. 

  358. 		if item="-1" or qtty=0 then

    359. 

  359. 			response.write "<br><br><br>"

    360. 

  360. 			CALL showAlert ("<B>! </B><BR>    <br><br><A HREF='itemIn.asp'>ѐ</A>",CONST_MSG_ALERT) 

    361. 

  361. 			response.end

    362. 

  362. 		end if

    363. 

  363. 

    364. 

  364. 		if qtty<0 then

    365. 

  365. 			response.write "<br><br><br>"

    366. 

  366. 			CALL showAlert ("<B>! </B><BR>     <br><br><A HREF='itemIn.asp'>ѐ</A>",CONST_MSG_ALERT) 

    367. 

  367. 			response.end

    368. 

  368. 		end if

    369. 

  369. 		

    370. 

  370. 		if price<=0 and ownerAcc=-1 and purchaseOrderID<>-9 then

    371. 

  371. 			response.write "<br><br><br>"

    372. 

  372. 			CALL showAlert ("<B>! </B><BR>      <br><br><A HREF='itemIn.asp'>ѐ</A>",CONST_MSG_ALERT) 

    373. 

  373. 			response.end

    374. 

  374. 		end if

    375. 

  375. 		

    376. 

  376. 		set RSW=Conn.Execute ("SELECT * FROM InventoryItems WHERE (OldItemID = "& item & ")" )

    377. 

  377. 		ItemID = RSW("id")

    378. 

  378. 		if ownerAcc=-1 then 

    379. 

  379. 			mySQL = "select * from inventoryLog where owner=-1 and itemID=" & itemID & " and isInput=0 and logDate>='" & logDate & "' and pricedQtty is not null order by logDate desc"

    380. 

  380. 	'		response.write mySQL

    381. 

  381. 			set rs=conn.Execute(mySQL)

    382. 

  382. 			if not rs.eof then 

    383. 

  383. 				response.write "<br><br><br>"

    384. 

  384. 				CALL showAlert ("<B>! </B><BR>       ʡ     " & rs("logDate") & "   <br><br><A HREF='itemIn.asp'>ѐ</A>",CONST_MSG_ALERT) 

    385. 

  385. 				response.end

    386. 

  386. 			end if

    387. 

  387. 		end if

    388. 

  388. 		response.write "<br><br><br><br><center>"

    389. 

  389. 

    390. 

  390. 		

    391. 

  391. 		type1 = 1 

    392. 

  392. 		if purchaseOrderID < 0 then type1 = -1 * purchaseOrderID

    393. 

  393. 		if purchaseOrderID = -8 then 

    394. 

  394. 			type1 = 1

    395. 

  395. 			purchaseOrderID = request.form("customerItemRequest")

    396. 

  396. 		end if

    397. 

  397. 		if CDbl(price)>0 then 

    398. 

  398. 			pricedQtty = qtty

    399. 

  399. 		else

    400. 

  400. 			pricedQtty = "null"

    401. 

  401. 		end if

    402. 

  402. 		mySql="SET NOCOUNT ON;INSERT INTO InventoryLog (ItemID, RelatedID, logDate, Qtty, owner, CreatedBy, IsInput, comments, type, price, gl_update, pricedQtty) VALUES ("& ItemID & ", "& purchaseOrderID & ",N'"& logDate & "', "& Qtty & ", "& ownerAcc & ", "& session("id") & ", 1, N'" & comments & "', " & type1 & "," & price & " ,0," & pricedQtty & " );select @@identity as newID;"

    403. 

  403. 		'response.write mySQL

    404. 

  404. 		set rs = conn.Execute(mySql)

    405. 

  405. 		newID = rs.Fields("newID").value

    406. 

  406. 		RS.close

    407. 

  407. 		set rs = nothing

    408. 

  408. 		if ownerAcc = -1 then 

    409. 

  409. 			Conn.Execute("insert into InventoryPriceLog (logID,logDate,userID,price) values(" & newID & ",'" & logDate & "'," & session("id") &"," & price & ")")

    410. 

  410. 		end if

    411. 

  411. 		'response.redirect "ItemIn.asp?act=showReceipt&item=" & item & "&qtty=" & qtty

    412. 

  412. 		response.redirect "ItemIn.asp?act=showReceipt&id=" & newID

    413. 

  413. 	end if

    414. 

  414. 

    415. 

  415. '-----------------------------------------------------------------------------------------------------

    416. 

  416. '-------------------------------------------------------------------- Submit an Inventory Item Input 2

    417. 

  417. '-----------------------------------------------------------------------------------------------------

    418. 

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

    419. 

  419. %>

    420. 

  420. <SCRIPT LANGUAGE="JavaScript">

    421. 

  421. <!--

    422. 

  422. function hideIT()

    423. 

  423. {

    424. 

  424. //alert(document.all.aaa2.value)

    425. 

  425. if(document.all.aaa2.value==2) 

    426. 

  426. 	{

    427. 

  427. 		document.all.aaa1.style.visibility= 'visible'

    428. 

  428. 		document.all.accountID.value = ""

    429. 

  429. 		document.all.accountID.focus()

    430. 

  430. 	}

    431. 

  431. 	else

    432. 

  432. 	{

    433. 

  433. 		document.all.aaa1.style.visibility= 'hidden'

    434. 

  434. 		document.all.accountID.value = "-1"

    435. 

  435. 	}

    436. 

  436. }

    437. 

  437. //-->

    438. 

  438. </SCRIPT>

    439. 

  439. <%

    440. 

  440. customerItemRequest = -1

    441. 

  441. comment=""

    442. 

  442. purchaseOrderID = request.form("purchaseOrderID")

    443. 

  443. if purchaseOrderID = "" then purchaseOrderID = -1

    444. 

  444. purchaseOrderID = CInt(purchaseOrderID)

    445. 

  445. 'set RSA=Conn.Execute ("SELECT * FROM purchaseOrders WHERE (Status = 'OUT' and ID="& purchaseOrderID & ")" )

    446. 

  446. if purchaseOrderID > 0 then 

    447. 

  447. 	set RSA=Conn.Execute ("SELECT * FROM purchaseOrders WHERE (ID="& purchaseOrderID & ")" )

    448. 

  448. 	if not (RSA.eof) then

    449. 

  449. 		set rs = Conn.Execute("select * from VoucherLines where RelatedPurchaseOrderID = " & purchaseOrderID)

    450. 

  450. 		if not rs.eof then 

    451. 

  451. 			qtty = rs("qtty")

    452. 

  452. 			price = rs("price")

    453. 

  453. 			msg = "<a href='../AP/AccountReport.asp?act=showVoucher&voucher=" & rs("voucher_ID") & "'>    </a>"

    454. 

  454. 			gl_update=0

    455. 

  455. 		else

    456. 

  456. 			Qtty = RSA("Qtty")

    457. 

  457. 			price = RSA ("price")

    458. 

  458. 			msg = "<a href='../purchase/outServiceTrace.asp?od=" & purchaseOrderID & "'>      </a>"

    459. 

  459. 			gl_update=-1

    460. 

  460. 		end if

    461. 

  461. 		rs.close

    462. 

  462. 	else

    463. 

  463. 		call showAlert (" !     " , CONST_MSG_ERROR )

    464. 

  464. 		response.end

    465. 

  465. 	end if

    466. 

  466. 	RSA.close

    467. 

  467. elseif purchaseOrderID = -1 then 

    468. 

  468. 	price = request.form("price")

    469. 

  469. 	msg="      "

    470. 

  470. elseif purchaseOrderID = -3 then 

    471. 

  471. 	set rs = Conn.Execute("select * from InventoryLog where id = " & request.form("retID"))

    472. 

  472. 	price = rs("price")

    473. 

  473. 	qtty = rs("qtty")

    474. 

  474. 	gl_update=0

    475. 

  475. 	rs.close

    476. 

  476. elseif purchaseOrderID = -7 then 

    477. 

  477. 	set rs = Conn.Execute("select * from InventoryLog where id = " & request.form("outID"))

    478. 

  478. 	price = rs("price")

    479. 

  479. 	qtty = rs("qtty")

    480. 

  480. 	gl_update=0

    481. 

  481. 	rs.close

    482. 

  482. elseif purchaseOrderID = -2 then 

    483. 

  483. 	gl_update=0

    484. 

  484. 	price = request.form("price")

    485. 

  485. 	'------------------------------------------------------------------------------------------------

    486. 

  486. 	' NOT COMPLITED!!!!!!!!!!!!!!!!!!!!!!

    487. 

  487. 	'------------------------------------------------------------------------------------------------

    488. 

  488. elseif purchaseOrderID = -6 then 

    489. 

  489. 	gl_update=0

    490. 

  490. 	price = request.form("price")

    491. 

  491. 	'------------------------------------------------------------------------------------------------

    492. 

  492. 	' NOT COMPLITED!!!!!!!!!!!!!!!!!!!!!!

    493. 

  493. 	'------------------------------------------------------------------------------------------------

    494. 

  494. elseif purchaseOrderID = -8 then 

    495. 

  495. 	customerItemRequest = request.form("customerItemRequest")

    496. 

  496. 	mySQL="select InventoryItemRequests.*, Orders.Customer, Accounts.accountTitle from InventoryItemRequests inner join Orders on InventoryItemRequests.order_id=orders.id inner join Accounts on Orders.customer=Accounts.id where InventoryItemRequests.id=" & customerItemRequest

    497. 

  497. 	'response.write mySQL

    498. 

  498. 	set rs = Conn.Execute(mySQL)

    499. 

  499. 	if rs.eof then 

    500. 

  500. 		call showAlert (" !      " , CONST_MSG_ERROR )

    501. 

  501. 		response.end

    502. 

  502. 	end if

    503. 

  503. 	if rs("comment")<>"" then comment=": " & rs("comment")

    504. 

  504. 	owner=rs("customer")

    505. 

  505. 	qtty=rs("qtty")

    506. 

  506. 	accountName = rs("accountTitle")

    507. 

  507. 	

    508. 

  508. 	rs.close

    509. 

  509. 	set rs = Conn.Execute("select * from InventoryLog where owner>0 and voided=0 and IsInput=1 and RelatedId=" & customerItemRequest)

    510. 

  510. 	if not rs.eof then 

    511. 

  511. 		call showAlert (" !     " , CONST_MSG_ERROR )

    512. 

  512. 		response.end

    513. 

  513. 	end if

    514. 

  514. elseif purchaseOrderID = -9 then

    515. 

  515. 	owner=-1

    516. 

  516. 	price=0

    517. 

  517. end if

    518. 

  518. 

    519. 

  519. 'response.write purchaseOrderID 

    520. 

  520. %>

    521. 

  521. <FORM METHOD=POST ACTION="itemin.asp">

    522. 

  522. <INPUT TYPE="hidden" name="item" value="<%=request.form("item")%>">

    523. 

  523. <INPUT TYPE="hidden" name="customerItemRequest" value="<%=customerItemRequest%>">

    524. 

  524. <INPUT TYPE="hidden" name="purchaseOrderID" value="<%=request.form("purchaseOrderID")%>"><BR><BR>

    525. 

  525. <TABLE border=0 align=center>

    526. 

  526. <TR>

    527. 

  527. 	<TD align=left valign=top> </TD>

    528. 

  528. 	<TD align=right><span disabled><%=request("goodName")%></span><br><br></TD>

    529. 

  529. </TR>

    530. 

  530. 

    531. 

  531. <TR>

    532. 

  532. 	<TD align=left></TD>

    533. 

  533. 	<TD align=right>

    534. 

  534. 		<INPUT dir=ltr TYPE="text" NAME="qtty" size=25 value="<%=Qtty%>" ><onKeyPress="return maskNumber(this);" >

    535. 

  535. 	</TD>

    536. 

  536. </TR>

    537. 

  537. <%if customerItemRequest=-1 then %>

    538. 

  538. <TR>

    539. 

  539. 	<TD align=left></TD>

    540. 

  540. 	<TD align=right>

    541. 

  541. 		<INPUT dir=ltr TYPE="text" NAME="price" size=25 value="<%=price%>" ><onKeyPress="return maskNumber(this);" >

    542. 

  542. 		<small style="color:red;">*             .      </small>

    543. 

  543. 		<br><%=msg%><small style="color:red;">*     </small>

    544. 

  544. 	</TD>

    545. 

  545. </TR>

    546. 

  546. <%end if%>

    547. 

  547. <TR>

    548. 

  548. 	<TD align=left valign=top></TD>

    549. 

  549. 	<TD align=right>

    550. 

  550. <%if customerItemRequest=-1 then %>

    551. 

  551. 	<SELECT NAME="aaa2" onchange="hideIT()" >

    552. 

  552. 		<option value=1 > ǁ  </option>

    553. 

  553. 		<option value=2 <%if owner<>"-1" then response.write " selected" %>> ( )</option>

    554. 

  554. 	</SELECT>

    555. 

  555. <%end if%>

    556. 

  556. 	<BR>

    557. 

  557. 	<span name="aaa1" id="aaa1" <% if owner="-1" then response.write "style=""visibility:'hidden'"""%>>

    558. 

  558. 	<input type="hidden" name="gl_update" value="<%=gl_update%>">

    559. 

  559. 	<input type="hidden" Name='tmpDlgArg' value=''>

    560. 

  560. 	<input type="hidden" Name='tmpDlgTxt' value=''>

    561. 

  561. 	<INPUT  dir="LTR"  TYPE="text" NAME="accountID" maxlength="10" size="13"  value="<%=owner%>" onKeyPress='return mask(this);' onBlur='check(this);'> &nbsp;&nbsp; <INPUT TYPE="text" NAME="accountName" size=30 readonly  value="<%=accountName%>" style="background-color:transparent">

    562. 

  562. 	</span></TD>

    563. 

  563. </TR>

    564. 

  564. <%

    565. 

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

    566. 

  566. %>

    567. 

  567. 	<TR>

    568. 

  568. 		<TD align=left></TD>

    569. 

  569. 		<TD align=right><INPUT dir=ltr TYPE="text" NAME="entryDate" size=25 value="<%=shamsiToday()%>" onblur="acceptDate(this)"></TD>

    570. 

  570. 	</TR>

    571. 

  571. <%

    572. 

  572. 	End if

    573. 

  573. 

    574. 

  574. %>

    575. 

  575. <TR>

    576. 

  576. 	<TD align=left></TD>

    577. 

  577. 	<TD align=right><TEXTAREA NAME="comments" ROWS="" COLS=""><%=comment%></TEXTAREA>

    578. 

  578. 	<br><br></TD>

    579. 

  579. </TR>

    580. 

  580. <TR>

    581. 

  581. 	<TD align=left></TD>

    582. 

  582. 	<TD align=right></TD>

    583. 

  583. </TR>

    584. 

  584. <TR>

    585. 

  585. 	<TD align=center colspan=2>

    586. 

  586. 	<INPUT TYPE="submit" Name="Submit" Value="   " class=inputBut style="width:120px;" tabIndex="14"<%

    587. 

  587. 	if not itemID<>"-1" then

    588. 

  588. 		response.write " disabled "

    589. 

  589. 	end if

    590. 

  590. 	%>>

    591. 

  591. 	</TD>

    592. 

  592. </TR>

    593. 

  593. </TABLE>

    594. 

  594. <SCRIPT LANGUAGE="JavaScript">

    595. 

  595. <!--

    596. 

  596. document.all.qtty.focus()

    597. 

  597. 

    598. 

  598. var dialogActive=false;

    599. 

  599. 

    600. 

  600. function mask(src){ 

    601. 

  601. 	var theKey=event.keyCode;

    602. 

  602. 

    603. 

  603. 	if (theKey==13){

    604. 

  604. 		event.keyCode=9

    605. 

  605. 		dialogActive=true

    606. 

  606. 		document.all.tmpDlgArg.value="#"

    607. 

  607. 		document.all.tmpDlgTxt.value="     :"

    608. 

  608. 		var myTinyWindow = window.showModalDialog('../dialog_GenInput.asp',document.all.tmpDlgTxt,'dialogHeight:200px; dialogWidth:440px; dialogTop:; dialogLeft:; edge:None; center:Yes; help:No; resizable:No; status:No;');

    609. 

  609. 		if (document.all.tmpDlgTxt.value !="") {

    610. 

  610. 			var myTinyWindow = window.showModalDialog('../ar/dialog_selectAccount.asp?act=select&search='+escape(document.all.tmpDlgTxt.value),document.all.tmpDlgArg,'dialogHeight:500px; dialogWidth:380px; dialogTop:; dialogLeft:; edge:Raised; center:Yes; help:No; resizable:Yes; status:No;');

    611. 

  611. 			dialogActive=false

    612. 

  612. 			if (document.all.tmpDlgArg.value!="#"){

    613. 

  613. 				Arguments=document.all.tmpDlgArg.value.split("#")

    614. 

  614. 				src.value=Arguments[0];

    615. 

  615. 				document.all.accountName.value=Arguments[1];

    616. 

  616. 			}

    617. 

  617. 		}

    618. 

  618. 	}

    619. 

  619. }

    620. 

  620. 

    621. 

  621. function check(src){ 

    622. 

  622. 	if (!dialogActive){

    623. 

  623. 		badCode = false;

    624. 

  624. 		if (window.XMLHttpRequest) {

    625. 

  625. 			var objHTTP=new XMLHttpRequest();

    626. 

  626. 		} else if (window.ActiveXObject) {

    627. 

  627. 			var objHTTP = new ActiveXObject("Microsoft.XMLHTTP");

    628. 

  628. 		}

    629. 

  629. 		objHTTP.open('GET','../accounting/xml_CustomerAccount.asp?id='+src.value,false)

    630. 

  630. 		objHTTP.send()

    631. 

  631. 		tmpStr = unescape(objHTTP.responseText)

    632. 

  632. 		document.all.accountName.value=tmpStr;

    633. 

  633. 		}

    634. 

  634. }

    635. 

  635. 

    636. 

  636. 

    637. 

  637. //-->

    638. 

  638. </SCRIPT>

    639. 

  639. <%

    640. 

  640. '-----------------------------------------------------------------------------------------------------

    641. 

  641. '-------------------------------------------------------------------- Submit an Inventory Item Input 1

    642. 

  642. '-----------------------------------------------------------------------------------------------------

    643. 

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

    644. 

  644. %>

    645. 

  645. <FORM METHOD=POST ACTION="itemin.asp">

    646. 

  646. <INPUT TYPE="hidden" name="item" value="<%=request.form("item")%>">

    647. 

  647. <TABLE border=0 align=center>

    648. 

  648. <%

    649. 

  649. 				storeID = request("store")

    650. 

  650. 				set RSW=Conn.Execute ("SELECT * FROM InventoryItems Left outer join inventoryItemsInStore on inventoryItemsInStore.itemID=inventoryItems.id and inventoryItemsInStore.storeID=" & storeID & "  WHERE (invCode = "& itemID & ")" )

    651. 

  651. 				if RSW.EOF then

    652. 

  652. 					call showAlert ("!    " , CONST_MSG_ERROR )

    653. 

  653. 					response.end

    654. 

  654. 				end if 

    655. 

  655. 				if IsNull(RSW("itemID")) then 

    656. 

  656. 					

    657. 

  657. 				end if

    658. 

  658. 				itemID = RSW("id")

    659. 

  659. 				goodUnit = RSW("unit")

    660. 

  660. 				goodName = RSW("name")

    661. 

  661. 				owner = RSW("owner")

    662. 

  662. 				RSW.close

    663. 

  663. 				set RSW = nothing

    664. 

  664. 				set rs = Conn.Execute("select * from storeHouses where id=" & storeID)

    665. 

  665. 				if RS.EOF then

    666. 

  666. 					call showAlert ("!   " , CONST_MSG_ERROR )

    667. 

  667. 					response.end

    668. 

  668. 				end if

    669. 

  669. 				storeName = rs("name")

    670. 

  670. 				rs.close

    671. 

  671. 				set rs=nothing

    672. 

  672. %>

    673. 

  673. <TR>

    674. 

  674. 	<TD align=right>

    675. 

  675. 	<span disabled><%=goodName%>  <b><%=storeName%></b></span><BR>

    676. 

  676. 	<BR>

    677. 

  677. 	<br>

    678. 

  678. 	</TD>

    679. 

  679. </TR>

    680. 

  680. <INPUT TYPE="hidden" name="goodName" value="<%=goodName%>">

    681. 

  681. <TR>

    682. 

  682. 	<TD align=right>

    683. 

  683. 			

    684. 

  684. <%

    685. 

  685. 				set RSA=Conn.Execute ("SELECT * FROM purchaseOrders WHERE (Status = 'OUT' and TypeID="& itemID& ") order by OrdDate" )

    686. 

  686. 				'set RSA=Conn.Execute ("SELECT * FROM purchaseOrders WHERE (TypeID="& itemID& ") order by OrdDate" )

    687. 

  687. 				flg = false

    688. 

  688. 				if not RSA.eof then 

    689. 

  689. 					response.write("    :<br>")

    690. 

  690. 					while not (RSA.eof) %>

    691. 

  691. 						<INPUT TYPE="radio" NAME="purchaseOrderID" value="<%=RSA("ID")%>"<%

    692. 

  692. 						if trim(purchaseOrderID) = trim(RSA("ID")) then

    693. 

  693. 							response.write " chcecked "

    694. 

  694. 							preQtty = RSA("Qtty")

    695. 

  695. 							flg = true

    696. 

  696. 						end if

    697. 

  697. 						%>>  <%=RSA("ID")%> (<%=RSA("Qtty")%>&nbsp;<%=goodUnit%>&nbsp;<%=goodName%>) <BR>

    698. 

  698. 	<%					RSA.MoveNext

    699. 

  699. 					wend

    700. 

  700. 					RSA.close

    701. 

  701. 				end if

    702. 

  702. 				if Auth(5,"E") then 

    703. 

  703. 					response.write ("<input type='hidden' NAME='customerItemRequest' id='customerItemRequest'>")

    704. 

  704. 					set rs=Conn.Execute ("select InventoryItemRequests.*,Accounts.accountTitle from InventoryItemRequests inner join Orders on InventoryItemRequests.order_id=orders.id inner join Accounts on Orders.customer=Accounts.id where InventoryItemRequests.status='new' and CustomerHaveInvItem=1 and InventoryItemRequests.id not in(select RelatedId from InventoryLog where owner>0 and voided=0 and IsInput=1 and ItemID=" & itemID & ") and itemID=" & itemID)

    705. 

  705. 					if not rs.eof then response.write ("<br>ʝ :<br>")

    706. 

  706. 					while not rs.eof

    707. 

  707. 						response.write("<INPUT TYPE='radio' name='purchaseOrderID' value='-8' onclick='document.all.customerItemRequest.value=" & rs("id") & "';>")

    708. 

  708. 						response.write ("<a href='../shopfloor/manageOrder.asp?radif=" & rs("order_id") & "'>   " & rs("order_id") & "</a> " & rs("accountTitle") & " <span title='" & rs("comment") & "'>(" & RS("Qtty") &"&nbsp;" & goodUnit &"&nbsp;"& goodName & ")</span> <BR>")

    709. 

  709. 						rs.moveNext

    710. 

  710. 					wend

    711. 

  711. 					rs.close

    712. 

  712. 					set rs = nothing

    713. 

  713. 				end if

    714. 

  714. 				'rs.close

    715. 

  715. 				if Auth(5,"G") then 

    716. 

  716. 				'-------------------------------------------------------------------------------------------------

    717. 

  717. 				'--------------------------------------- NOT IMPLIMENTED!!!!--------------------------------------

    718. 

  718. 				'-------------------------------------------------------------------------------------------------

    719. 

  719. 				set rs=Conn.Execute("select [log].*,inventoryItemsInStore.unit from InventoryLog as [log] inner join (select top 1  logDate from InventoryLog where ItemID=" & itemID & " and sumQtty=0 order by logDate desc) as date on [log].logDate>date.logDate inner join inventoryItemsInStore on [log].itemID=inventoryItemsInStore.itemID and [log].storeID=inventoryItemsInStore.storeID where isInput = 0 and [log].ItemID=" & itemID)

    720. 

  720. 				if not rs.eof then 

    721. 

  721. 				%>

    722. 

  722. 				<INPUT TYPE="radio" NAME="purchaseOrderID" value="-3">   <select name="retID">

    723. 

  723. 					<%

    724. 

  724. 					while not rs.eof

    725. 

  725. 					%>

    726. 

  726. 					<option value="<%=rs("id")%>"><%=rs("Qtty") & rs("unit") & "   " & rs("logDate")%></option>

    727. 

  727. 					<%

    728. 

  728. 						rs.moveNext

    729. 

  729. 					wend

    730. 

  730. 					%>

    731. 

  731. 				</select><br>

    732. 

  732. 				<%

    733. 

  733. 				end if

    734. 

  734. 				rs.close

    735. 

  735. 				end if

    736. 

  736. 				if Auth(5,"F") then

    737. 

  737. 				'-------------------------------------------------------------------------------------------------

    738. 

  738. 				'--------------------------------------- NOT IMPLIMENTED!!!!--------------------------------------

    739. 

  739. 				'------------------------------------------------------------------------------------------------- 

    740. 

  740. 				%>

    741. 

  741. 				<INPUT TYPE="radio" NAME="purchaseOrderID" value="-6">   <small>  :<input name="orderID" type="text" size="6"></small><br>

    742. 

  742. 				<%

    743. 

  743. 				end if

    744. 

  744. 				if Auth(5,"H") then 

    745. 

  745. 				'-------------------------------------------------------------------------------------------------

    746. 

  746. 				'---------------------------------------in 91.3.17 by SAM

    747. 

  747. 				'-------------------------------------------------------------------------------------------------

    748. 

  748. 				mySQL = "select storeHouses.*, isnull(drv.sumQtty,0) as sumQtty from storeHouses left outer join (select storeID,SUM(IsInput * Qtty) - SUM((1 - IsInput) * Qtty) AS sumQtty from inventoryLog where itemID=" & itemID &  " and owner=-1 and voided=0 group by storeID) drv on drv.storeID=storeHouses.id  where id<>" & storeID

    749. 

  749. '				response.write mySQL

    750. 

  750. 				set rs=Conn.Execute(mySQL)

    751. 

  751. 				if not rs.eof then 

    752. 

  752. 				%>

    753. 

  753. 				<INPUT TYPE="radio" NAME="purchaseOrderID" value="-7">    <select name="outID">

    754. 

  754. 				<%

    755. 

  755. 					while not rs.eof

    756. 

  756. 					%>

    757. 

  757. 					<option value="<%=rs("id")%>" <%if cint(rs("sumQtty"))=0 then response.write " disabled='disabled'"%>>

    758. 

  758. 						<%=rs("name") & "  " & rs("sumQtty")%>

    759. 

  759. 					</option>

    760. 

  760. 					<%

    761. 

  761. 						rs.moveNext

    762. 

  762. 					wend

    763. 

  763. 					%>

    764. 

  764. 				</select><br>

    765. 

  765. 				<%

    766. 

  766. 				end if

    767. 

  767. 				rs.close

    768. 

  768. 				end if

    769. 

  769. 				if Auth(5 , 7) then %>

    770. 

  770. 				<INPUT TYPE="radio" NAME="purchaseOrderID" value="-2">  <br>

    771. 

  771. 				<% end if 

    772. 

  772. 				if Auth(5,"I") then

    773. 

  773. 				%>

    774. 

  774. 				<INPUT TYPE="radio" NAME="purchaseOrderID" value="-9"> <br>

    775. 

  775. 				<%

    776. 

  776. 				end if

    777. 

  777. 				%>

    778. 

  778. 			<br><br></TD>

    779. 

  779. </TR>

    780. 

  780. <TR>

    781. 

  781. 	<TD align=center colspan=2>

    782. 

  782. 	<INPUT TYPE="hidden" name="owner" value="<%=owner%>">

    783. 

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

    784. 

  784. 	</TD>

    785. 

  785. </TR>

    786. 

  786. </Table>	

    787. 

  787. </FORM>

    788. 

  788. <SCRIPT LANGUAGE="JavaScript">

    789. 

  789. <!--

    790. 

  790. document.all.purchaseOrderID[0].focus()

    791. 

  791. //-->

    792. 

  792. </SCRIPT>

    793. 

  793. <%

    794. 

  794. else

    795. 

  795. '-----------------------------------------------------------------------------------------------------

    796. 

  796. '-------------------------------------------------------------------------------  Inventory Item Input

    797. 

  797. '-----------------------------------------------------------------------------------------------------

    798. 

  798. %>

    799. 

  799. <FORM METHOD=POST ACTION="itemin.asp" id='searchForm'>

    800. 

  800. <TABLE border=0 align=center>

    801. 

  801. <TR>

    802. 

  802. 	<TD colspan=2 align=center><H3> </H3></TD>

    803. 

  803. </TR>

    804. 

  804. <TR>

    805. 

  805. 	<TD align=left> </TD>

    806. 

  806. 	<TD align=right>

    807. 

  807. 		

    808. 

  808. 		<input type="hidden" Name='tmpDlgArg' value=''>

    809. 

  809. 		<input type="hidden" Name='tmpDlgTxt' value=''>

    810. 

  810. 		<INPUT dir="LTR" TYPE="text" NAME="item" id="invCode" maxlength="10" size="13">

    811. 

  811. 		<!-- onKeyPress='return mask(this);' onBlur='check(this);'--> 

    812. 

  812. 		&nbsp;&nbsp; 

    813. 

  813. 		<INPUT TYPE="text" NAME="accountName" id="itemName" size=50 readonly='readonly' style="background-color:transparent">

    814. 

  814. 	</TD>

    815. 

  815. </TR>

    816. 

  816. <tr>

    817. 

  817. 	<td align="left"></td>

    818. 

  818. 	<td align="right">

    819. 

  819. 		<select name="store" id='store'>

    820. 

  820. <%

    821. 

  821. 		set rs=Conn.Execute("select * from storeHouses")

    822. 

  822. 		while not rs.eof

    823. 

  823. 			response.write("<option value='" & rs("id") & "'unit=''>" & rs("name") & "</option>")

    824. 

  824. 			rs.moveNext

    825. 

  825. 		wend

    826. 

  826. 		rs.close

    827. 

  827. 		set rs=nothing

    828. 

  828. %>				

    829. 

  829. 		</select>

    830. 

  830. 	</td>

    831. 

  831. </tr>

    832. 

  832. <TR>

    833. 

  833. 	<TD align=center colspan=2>

    834. 

  834. 	<INPUT TYPE="hidden" name="unit" id='unit'>

    835. 

  835. 	<INPUT TYPE="hidden" name="itemID" id='itemID'>

    836. 

  836. 	<input type="hidden" name='err' id='err'>

    837. 

  837. 	<INPUT TYPE="submit" Name="Submit" id="searchBut" Value="" class=inputBut style="width:120px;" tabIndex="14" disabled="disabled">

    838. 

  838. 	</TD>

    839. 

  839. </TR>

    840. 

  840. </TABLE>

    841. 

  841. </FORM>

    842. 

  842. <BR><BR>

    843. 

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

    844. 

  844. <div id='errMsg' class="errMsg"></div>

    845. 

  845. <div id='invSelect' dir="rtl">

    846. 

  846. 	<span>    : </span>

    847. 

  847. 	<input type="text" name="mySearch" id='mySearch'>

    848. 

  848. 	<div id='searchResult'></div>

    849. 

  849. </div>

    850. 

  850. <!--TR>

    851. 

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

    852. 

  852. 		<BR>

    853. 

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

    854. 

  854. 		<B>   <BR></B><BR>

    855. 

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

    856. 

  856. 		<BR>

    857. 

  857. 		</FORM>

    858. 

  858. 	</TD>

    859. 

  859. </TR-->

    860. 

  860. </TABLE><BR>

    861. 

  861. 

    862. 

  862. <SCRIPT LANGUAGE="text/javascript">

    863. 

  863. document.all.item.focus()

    864. 

  864. 

    865. 

  865. var dialogActive=false;

    866. 

  866. 

    867. 

  867. function mask(src){ 

    868. 

  868. 	var theKey=event.keyCode;

    869. 

  869. 

    870. 

  870. 	if (theKey==13){

    871. 

  871. 		event.keyCode=9

    872. 

  872. 		dialogActive=true

    873. 

  873. 		document.all.tmpDlgArg.value="#"

    874. 

  874. 		document.all.tmpDlgTxt.value="   "

    875. 

  875. 		var myTinyWindow = window.showModalDialog('../dialog_GenInput.asp',document.all.tmpDlgTxt,'dialogHeight:200px; dialogWidth:440px; dialogTop:; dialogLeft:; edge:None; center:Yes; help:No; resizable:No; status:No;');

    876. 

  876. 		if (document.all.tmpDlgTxt.value !="") {

    877. 

  877. 			var myTinyWindow = window.showModalDialog('dialog_selectInvItem.asp?act=select&name='+escape(document.all.tmpDlgTxt.value),document.all.tmpDlgArg,'dialogHeight:500px; dialogWidth:380px; dialogTop:; dialogLeft:; edge:Raised; center:Yes; help:No; resizable:Yes; status:No;');

    878. 

  878. 			dialogActive=false

    879. 

  879. 			if (document.all.tmpDlgArg.value!="#"){

    880. 

  880. 				Arguments=document.all.tmpDlgArg.value.split("#")

    881. 

  881. 				src.value=Arguments[0];

    882. 

  882. 				document.all.accountName.value=Arguments[1];

    883. 

  883. 			}

    884. 

  884. 		}

    885. 

  885. 	}

    886. 

  886. }

    887. 

  887. 

    888. 

  888. function check(src){ 

    889. 

  889. 	

    890. 

  890. 	if (!dialogActive){

    891. 

  891. 		badCode = false;

    892. 

  892. 		if (window.XMLHttpRequest) {

    893. 

  893. 			var objHTTP=new XMLHttpRequest();

    894. 

  894. 		} else if (window.ActiveXObject) {

    895. 

  895. 			var objHTTP = new ActiveXObject("Microsoft.XMLHTTP");

    896. 

  896. 		}

    897. 

  897. 		objHTTP.open('GET','xml_InventoryItem.asp?id='+src.value,false)

    898. 

  898. 		objHTTP.send()

    899. 

  899. 		tmpStr = unescape(objHTTP.responseText)

    900. 

  900. 		document.all.accountName.value=tmpStr;

    901. 

  901. 		}

    902. 

  902. }

    903. 

  903. 

    904. 

  904. </SCRIPT>

    905. 

  905. <%

    906. 

  906. end if 

    907. 

  907. %>

    908. 

  908. <!--#include file="tah.asp" -->
    909.