/beta/Inquiry/InquiryEdit.asp

http://github.com/khaneh/Orders · ASP · 971 lines · 756 code · 119 blank · 96 comment · 86 complexity · 1679f95e03ad56dadb5c837ce02468e1 MD5 · raw file 

    

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

    2. 

  2. 'AR (6)

    3. 

  3. PageTitle="  "

    4. 

  4. SubmenuItem=1

    5. 

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

    12. 

  12. <%

    13. 

  13. function ShowErrorMessage(msg)

    14. 

  14. 	response.write "<table align='center' cellpadding='5'><tr><td bgcolor='#FFCCCC' dir='rtl' align='center'>  ! <br>"& msg & "<br></td></tr></table><br>"

    15. 

  15. end function

    16. 

  16. 

    17. 

  17. function Link2Trace(OrderNo)

    18. 

  18. 	Link2Trace="<A HREF='../order/TraceOrder.asp?act=show&order="& OrderNo & "' target='_balnk'>"& OrderNo & "</A>"

    19. 

  19. end function

    20. 

  20. 

    21. 

  21. %>

    22. 

  22. <style>

    23. 

  23. 	Table { font-size: 9pt;}

    24. 

  24. 	.InvRowInput { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0F0F0; text-align:right;}

    25. 

  25. 	.InvHeadInput { font-family:tahoma; font-size: 9pt; border: none; background-color: #CCCC88; text-align:center;}

    26. 

  26. 	.InvRowInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0FFF0; text-align:right;}

    27. 

  27. 	.InvRowInput4 { font-family:tahoma; font-size: 9pt; border: none; background-color: #FFD3A8; direction:LTR; text-align:right;}

    28. 

  28. 	.InvHeadInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #AACC77; text-align:center;}

    29. 

  29. 	.InvHeadInput3 { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0F0F0; text-align:right;}

    30. 

  30. 	.InvHeadInput4 { font-family:tahoma; font-size: 9pt; border: none; background-color: #FF9900; text-align:center;}

    31. 

  31. 	.InvGenInput  { font-family:tahoma; font-size: 9pt; border: none; }

    32. 

  32. 	.InvGenButton { font-family:tahoma; font-size: 9pt; border: 1px solid black; }

    33. 

  33. </style>

    34. 

  34. <SCRIPT LANGUAGE="JavaScript">

    35. 

  35. <!--

    36. 

  36. var okToProceed=false;

    37. 

  37. var currentRow=0;

    38. 

  38. //-->

    39. 

  39. </SCRIPT>

    40. 

  40. <%

    41. 

  41. if request("act")="search" then

    42. 

  42. 	if isnumeric(request("order")) then

    43. 

  43. 		OrderID = clng(request("order"))

    44. 

  44. 		mySQL="SELECT InquiryOrderRelations.Inquiry FROM InquiryOrderRelations INNER JOIN Inquiries ON InquiryOrderRelations.Inquiry = Inquiries.ID WHERE (InquiryOrderRelations.[Order] = '"& OrderID & "') AND (Inquiries.IsReverse = 0) AND (Inquiries.Voided = 0)"

    45. 

  45. 		Set RS1=Conn.Execute(mySQL)

    46. 

  46. 		if RS1.eof then

    47. 

  47. 			Conn.close

    48. 

  48. 			response.redirect "?errmsg=" & Server.URLEncode("     .")

    49. 

  49. 		else

    50. 

  50. 			theInquiry=RS1("Inquiry")

    51. 

  51. 			Conn.close

    52. 

  52. 			response.redirect "?act=editInquiry&inquiry=" & theInquiry

    53. 

  53. 		end if

    54. 

  54. 	elseif isnumeric(request("inquiry")) then

    55. 

  55. 		response.redirect "?act=editInquiry&inquiry=" & request("inquiry")

    56. 

  56. 	else

    57. 

  57. 		response.redirect "?errmsg=" & Server.URLEncode("     .")

    58. 

  58. 	end if

    59. 

  59. '-----------------------------------------------------------------------------------------------------

    60. 

  60. '---------------------------------------------------------------------------------------- Edit Inquiry

    61. 

  61. '-----------------------------------------------------------------------------------------------------

    62. 

  62. elseif request("act")="editInquiry" then

    63. 

  63. 	if isnumeric(request("inquiry")) then

    64. 

  64. 		InquiryID=clng(request("inquiry"))

    65. 

  65. 		mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    66. 

  66. 		Set RS1 = conn.Execute(mySQL)

    67. 

  67. 		if RS1.eof then

    68. 

  68. 			conn.close

    69. 

  69. 			response.redirect "?errmsg=" & Server.URLEncode("  .")

    70. 

  70. 		end if

    71. 

  71. 	else

    72. 

  72. 		response.redirect "?errmsg=" & Server.URLEncode("     .")

    73. 

  73. 	end if

    74. 

  74. 

    75. 

  75. 	customerID=		RS1("Customer")

    76. 

  76. 	creationDate=	RS1("CreatedDate")

    77. 

  77. 	IssuedDate=		RS1("IssuedDate")

    78. 

  78. 	totalPrice=		cdbl(RS1("totalPrice"))

    79. 

  79. 	totalDiscount=	cdbl(RS1("totalDiscount"))

    80. 

  80. 	totalReverse=	cdbl(RS1("totalReverse"))

    81. 

  81. 	totalVat =		cdbl(RS1("totalVat"))

    82. 

  82. 	Voided=			RS1("Voided")

    83. 

  83. 	Issued=			RS1("Issued")

    84. 

  84. 	Approved=		RS1("Approved")

    85. 

  85. 	isReverse=		RS1("IsReverse")

    86. 

  86. 	IsA=			RS1("IsA")

    87. 

  87. 	InquiryNo=		RS1("Number")

    88. 

  88. 

    89. 

  89. 	mySQL="SELECT ID,AccountTitle FROM Accounts WHERE (ID='"& customerID & "')"

    90. 

  90. 	Set RS1 = conn.Execute(mySQL)

    91. 

  91. 	AccountNo=RS1("ID")

    92. 

  92. 	customerName=RS1("AccountTitle")

    93. 

  93. 

    94. 

  94. 	RS1.close

    95. 

  95. 

    96. 

  96. 	if isReverse then

    97. 

  97. 		'Check for permission for EDITTING Rev. Inquiry

    98. 

  98. 		if not Auth(6 , 5) then NotAllowdToViewThisPage()

    99. 

  99. 		itemTypeName="ǘ ѐ"

    100. 

  100. 		HeaderColor="#FF9900"

    101. 

  101. 	else

    102. 

  102. 		'Check for permission for EDITTING Inquiry

    103. 

  103. 		if not Auth(6 , 3) then NotAllowdToViewThisPage()

    104. 

  104. 		itemTypeName="ǘ"

    105. 

  105. 		HeaderColor="#C3C300"

    106. 

  106. 	end if

    107. 

  107. 

    108. 

  108. 	if Voided then

    109. 

  109. 		Conn.close

    110. 

  110. 		response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("    .")

    111. 

  111. 	elseif Issued then

    112. 

  112. 		if Auth(6 , "A") then

    113. 

  113. 			' Has the Priviledge to change the Inquiry

    114. 

  114. 			response.write "<BR>"

    115. 

  115. 			call showAlert ("    .<br>э       ǘ   <br> Ԙ    Ͽ",CONST_MSG_INFORM) 

    116. 

  116. 		else

    117. 

  117. 			Conn.close

    118. 

  118. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("    .")

    119. 

  119. 		end if

    120. 

  120. 	end if 

    121. 

  121. %>

    122. 

  122. <!--    -->

    123. 

  123. 	<br>

    124. 

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

    125. 

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

    126. 

  126. 		<table Border="0" align="center" Width="100%" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#558855">

    127. 

  127. 		<FORM METHOD=POST ACTION="?act=submitEdit">

    128. 

  128. 			<tr bgcolor='<%=HeaderColor%>'>

    129. 

  129. 			<td colspan='2'>

    130. 

  130. 				<TABLE width='100%'>

    131. 

  131. 				<TR>

    132. 

  132. 					<TD align="left" > <%=itemTypeName%>:</TD>

    133. 

  133. 					<TD align="right" width='15%'>&nbsp;<INPUT readonly class="InvGenInput" NAME="InquiryID" value="<%=InquiryID%>" style="direction:ltr" TYPE="text" maxlength="10" size="10"></TD>

    134. 

  134. 				</TR>

    135. 

  135. 				</TABLE></td>

    136. 

  136. 			</tr>

    137. 

  137. 			<tr bgcolor='<%=HeaderColor%>'>

    138. 

  138. 			<td colspan="2">

    139. 

  139. 				<TABLE Border="0" Width="100%" Cellspacing="1" Cellpadding="0" Dir="RTL">

    140. 

  140. 				<TR>

    141. 

  141. 					<TD><table>

    142. 

  142. 						<tr>

    143. 

  143. 							<td align="left">:</td>

    144. 

  144. 							<td align="right">

    145. 

  145. 								<span id="customer"><%' after any changes in this span "./Customers.asp" must be revised%>

    146. 

  146. 									<INPUT TYPE="hidden" NAME="customerID" value="<%=customerID%>"><span><%=CustomerName%></span>.

    147. 

  147. 								</span></td>

    148. 

  148. 							<td><INPUT class="InvGenButton" TYPE="button" value="" onClick="selectCustomer();"></td>

    149. 

  149. 						</tr>

    150. 

  150. 						</table></TD>

    151. 

  151. 					<TD align="left"><table>

    152. 

  152. 						<tr>

    153. 

  153. 							<td align="left"> :</td>

    154. 

  154. 							<td dir="LTR">

    155. 

  155. 								<INPUT class="InvGenInput" NAME="issueDate" TYPE="text" maxlength="10" size="10" value="<%=IssuedDate%>"  onblur="acceptDate(this)"></td>

    156. 

  156. 							<td dir="RTL"><%=""%></td>

    157. 

  157. 						</tr>

    158. 

  158. 						</table></TD>

    159. 

  159. 				</TR></TABLE>

    160. 

  160. 			</td>

    161. 

  161. 			</tr>

    162. 

  162. 			<tr bgcolor='<%=HeaderColor%>'>

    163. 

  163. 				<TD align="right" width="50%">

    164. 

  164. 					  ():

    165. 

  165. 					<span id="orders">

    166. 

  166. <%

    167. 

  167. 					tempWriteAnd=""

    168. 

  168. 

    169. 

  169. 					mySQL="SELECT * FROM InquiryOrderRelations WHERE (Inquiry='"& InquiryID & "')"

    170. 

  170. 					Set RS1 = conn.Execute(mySQL)

    171. 

  171. 					while not(RS1.eof) 

    172. 

  172. 						response.write "<input type='hidden' name='selectedOrders' value='"& RS1("Order") & "'>"

    173. 

  173. 						response.write tempWriteAnd & Link2Trace(RS1("Order"))

    174. 

  174. 						tempWriteAnd="  "

    175. 

  175. 						RS1.moveNext

    176. 

  176. 					wend

    177. 

  177. %>					</span>&nbsp;

    178. 

  178. 					<INPUT class="InvGenButton" TYPE="button" value="" onClick="selectOrder();">

    179. 

  179. 				</TD>

    180. 

  180. 				<TD align="left"><table>

    181. 

  181. 					<tr>

    182. 

  182. 						<td align="left">:</td>

    183. 

  183. 						<td dir="LTR">

    184. 

  184. 							<INPUT class="InvGenInput" NAME="InquiryNo" value="<%=InquiryNo%>" style="border:1px solid black;" TYPE="text" maxlength="10" size="10"></td>

    185. 

  185. 						<td dir="RTL"><INPUT TYPE="checkbox" onClick="checkIsA();" NAME="IsA" <%if IsA then response.write "checked"%>>  &nbsp;</td>

    186. 

  186. 					</tr>

    187. 

  187. 					</table></TD>

    188. 

  188. 			</tr>

    189. 

  189. 			<tr bgcolor='#CCCC88'>

    190. 

  190. 			<TD colspan="10"><div>

    191. 

  191. 			<TABLE Border="0" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#558855">

    192. 

  192. 			<tr bgcolor='#CCCC88'>

    193. 

  193. 				<td align='center' width="25px"> # </td>

    194. 

  194. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" value="" size="3" ></td>

    195. 

  195. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" value="" size="30"></td>

    196. 

  196. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" Value="" size="2"></td>

    197. 

  197. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" Value="" size="2"></td>

    198. 

  198. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" Value="" size="3"></td>

    199. 

  199. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" Value="" size="2"></td>

    200. 

  200. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" Value=" " size="6"></td>

    201. 

  201. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" Value="" size="7"></td>

    202. 

  202. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" Value="" size="9"></td>

    203. 

  203. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" Value=""size="7"></td><!-- S A M -->

    204. 

  204. 				<td><INPUT class="InvHeadInput" readonly TYPE="text" Value="ѐ" size="5"></td><!-- S A M -->

    205. 

  205. 				<td><INPUT class="InvHeadInput4" readonly TYPE="text" Value="" size="6"></td><!-- S A M -->

    206. 

  206. 				<td><INPUT class="InvHeadInput2" readonly TYPE="text" Value=" " size="9"></td>

    207. 

  207. 			</tr>

    208. 

  208. 			</TABLE></div></TD>

    209. 

  209. 			</TR>

    210. 

  210. 			<tr bgcolor='#CCCC88'>

    211. 

  211. 			<TD colspan="10"><div style="overflow:auto; height:190px; width:*;">

    212. 

  212. 			<TABLE Border="0" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#558855">

    213. 

  213. 			<Tbody id="InquiryLines">

    214. 

  214. 

    215. 

  215. <%		

    216. 

  216. 	i=0

    217. 

  217. 	mySQL="SELECT * FROM InquiryLines LEFT OUTER JOIN invoiceItems ON InquiryLines.item = invoiceItems.id WHERE (Inquiry='"& InquiryID & "') "

    218. 

  218. 	Set RS1 = conn.Execute(mySQL)

    219. 

  219. 	while not(RS1.eof) 

    220. 

  220. 	if RS1("Item") <> 39999 then

    221. 

  221. 		i=i+1

    222. 

  222. %>

    223. 

  223. 			<tr bgcolor='#F0F0F0' onclick="setCurrentRow(this.rowIndex);" >

    224. 

  224. 				<td align='center' width="25px"><%=i%></td>

    225. 

  225. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="Items" value="<%=RS1("Item")%>" size="3" Maxlength="6" onKeyPress="return mask(this);" onfocus="setCurrentRow(this.parentNode.parentNode.rowIndex);" onChange='return check(this);'>

    226. 

  226. 				<INPUT TYPE="hidden" name="type" value="<%=RS1("type")%>">

    227. 

  227. 				<INPUT TYPE="hidden" name="fee" value="<%=RS1("fee")%>">

    228. 

  228. 				<input type='hidden' name='hasVat' value='<%=text2value(RS1("hasVat"))%>'>

    229. 

  229. 				</td>

    230. 

  230. 				<td dir="RTL"><INPUT class="InvRowInput2" TYPE="text" NAME="Descriptions" value="<%=RS1("Description")%>" size="30"></td>

    231. 

  231. 				<td dir="LTR"><INPUT class="InvRowInput2" TYPE="text" NAME="Lengths" value="<%=RS1("Length")%>" size="2" onBlur="setFeeQtty(this);"></td>

    232. 

  232. 				<td dir="LTR"><INPUT class="InvRowInput2" TYPE="text" NAME="Widths" value="<%=RS1("Width")%>" size="2" onBlur="setFeeQtty(this);"></td>

    233. 

  233. 				<td dir="LTR"><INPUT class="InvRowInput2" TYPE="text" NAME="Qttys" value="<%=RS1("Qtty")%>" size="3" onBlur="setFeeQtty(this);"></td>

    234. 

  234. 				<td dir="LTR"><INPUT class="InvRowInput2" TYPE="text" NAME="Sets" value="<%=RS1("Sets")%>" size="2" onBlur="setFeeQtty(this);"></td>

    235. 

  235. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="AppQttys" value="<%=Separate(RS1("AppQtty"))%>" size="6" onBlur="setPrice(this);"></td>

    236. 

  236. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="Fees" value="<%if RS1("AppQtty") <> 0 then response.write Separate(RS1("Price")/RS1("AppQtty")) else response.write "0"%>" size="7" onBlur="setPrice(this);"></td>

    237. 

  237. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="Prices" value="<%=Separate(RS1("Price"))%>" size="9" readonly tabIndex="9999"></td>

    238. 

  238. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="Discounts" value="<%=Separate(RS1("Discount"))%>" size="7" onBlur="setPrice(this);"></td><!-- S A M -->

    239. 

  239. 				<td dir="LTR"><INPUT class="InvRowInput" TYPE="text" NAME="Reverses" value="<%=Separate(RS1("Reverse"))%>" size="5" onBlur="setPrice(this);" onfocus="setCurrentRow(this.parentNode.parentNode.rowIndex);"></td><!-- S A M -->

    240. 

  240. 				<td dir="LTR"><INPUT class="InvRowInput4" TYPE="text" Name="Vat" value="<%=Separate(RS1("Vat"))%>" size="6" readonly></td><!-- S A M -->

    241. 

  241. 				<td dir="LTR"><INPUT class="InvRowInput2" TYPE="text" NAME="AppPrices" value="<%=Separate(RS1("Price") - RS1("Discount") - RS1("Reverse") + RS1("Vat"))%>" size="9" readonly tabIndex="9999"></td><!-- S A M -->

    242. 

  242. 			</tr>

    243. 

  243. <%

    244. 

  244. 	end if

    245. 

  245. 		RS1.moveNext

    246. 

  246. 	wend

    247. 

  247. 	RS1.close

    248. 

  248. %>

    249. 

  249. 			<tr bgcolor='#F0F0F0' onclick="setCurrentRow(this.rowIndex);" >

    250. 

  250. 				<td colspan="15">

    251. 

  251. 					<INPUT class="InvGenButton" TYPE="button" value="" onkeyDown="if(event.keyCode==9) {setCurrentRow(this.parentNode.parentNode.rowIndex); return false;};" onClick="addRow();">

    252. 

  252. 				</td>

    253. 

  253. 			</tr>

    254. 

  254. 			</Tbody></TABLE></div>

    255. 

  255. 			</TD>

    256. 

  256. 			</tr>

    257. 

  257. 			<tr bgcolor='#CCCC88'>

    258. 

  258. 			<TD colspan="10"><div>

    259. 

  259. 			<TABLE Border="0" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#CCCC88">

    260. 

  260. 			<tr bgcolor='#CCCC88'>

    261. 

  261. 				<td colspan='9' width='500px'>***  ǘ      ***</td>

    262. 

  262. 				<!--td align='center' width="25px"> &nbsp; </td>

    263. 

  263. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="3" ></td>

    264. 

  264. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="30"></td>

    265. 

  265. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="2"></td>

    266. 

  266. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="2"></td>

    267. 

  267. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="3"></td>

    268. 

  268. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="2"></td>

    269. 

  269. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="6"></td>

    270. 

  270. 				<td><INPUT readonly class="InvHeadInput" TYPE="text" size="7"></td-->

    271. 

  271. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" Name="TotalPrice" value="<%=Separate(totalPrice)%>" TYPE="text" size="9"></td>

    272. 

  272. 				<!-- S A M -->

    273. 

  273. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" Name="TotalDiscount" value="<%=Separate(totalDiscount)%>" TYPE="text" size="7"></td>

    274. 

  274. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" Name="TotalReverse" value="<%=Separate(totalReverse)%>" TYPE="text" size="5"></td>

    275. 

  275. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" Name="TotalVat" value="<%=Separate(totalVat)%>" TYPE="text" size="6"></td>

    276. 

  276. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" Name="Payable" value="<%=Separate(totalPrice - totalDiscount - totalReverse + totalVat)%>" TYPE="text" size="9"></td>

    277. 

  277. 			</tr>

    278. 

  278. 			<tr bgcolor='#CCCC88'>

    279. 

  279. 				<td colspan="9"> &nbsp; </td>

    280. 

  280. 				<td dir="LTR"><INPUT readonly class="InvHeadInput" TYPE="text" size="9"></td>

    281. 

  281. 				<!-- S A M -->

    282. 

  282. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" TYPE="text" Name="TPDiscount" value="<%=Pourcent(totalDiscount,totalPrice) & "%"%>" size="7"></td>

    283. 

  283. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" TYPE="text" Name="TPReverse" value="<%=Pourcent(totalReverse,totalPrice) & "%ѐ"%>" size="5"></td>

    284. 

  284. 				<td dir="LTR"><INPUT readonly calss="InvHeadINput" TYPE="text" size="6" value="3%"></td>

    285. 

  285. 				<td dir="LTR"><INPUT readonly class="InvHeadInput" TYPE="text" size="9" value=" "></td>

    286. 

  286. 			</tr>

    287. 

  287. 			</TABLE></div></TD>

    288. 

  288. 			</TR>

    289. 

  289. 		</table>

    290. 

  290. 		<TABLE Border="0" Cellspacing="5" Cellpadding="0" Dir="RTL" align='left'>

    291. 

  291. 		<tr>

    292. 

  292. 			<td align='center'>&nbsp;<!-- <INPUT class="InvGenButton" TYPE="button" value=" " onclick="ApproveInvoice();"> --></td>

    293. 

  293. 			<td width="40">&nbsp;</td>

    294. 

  294. 			<td align='center'>&nbsp;<!-- <INPUT class="InvGenButton" TYPE="button" value=" " onclick="IssueInvoice();"> --></td>

    295. 

  295. 			<td width="40">&nbsp;</td>

    296. 

  296. 			<td align='center'><INPUT class="InvGenButton" TYPE="button" value=" " onclick="submitOperations();"></td>

    297. 

  297. 			<td align='center'><INPUT class="InvGenButton" TYPE="button" value="" onclick="window.location='AccountReport.asp?act=showInquiry&inquiry=<%=InquiryID%>';"></td>

    298. 

  298. 		</tr>

    299. 

  299. 		</TABLE>

    300. 

  300. 		</FORM>

    301. 

  301. 		<SCRIPT LANGUAGE="JavaScript">

    302. 

  302. 		<!--

    303. 

  303. 			//document.getElementsByName("Items")[0].focus();

    304. 

  304. 		//-->

    305. 

  305. 		</SCRIPT>

    306. 

  306. 

    307. 

  307. <%

    308. 

  308. elseif request("act")="submitEdit" then

    309. 

  309. 

    310. 

  310. 	'******************** Checking and Preparing Input ****************

    311. 

  311. 	errorFound=false

    312. 

  312. 	ON ERROR RESUME NEXT

    313. 

  313. 

    314. 

  314. 		InquiryID=		clng(request.form("InquiryID"))

    315. 

  315. 		CustomerID=		clng(request.form("CustomerID"))

    316. 

  316. 

    317. 

  317. 		issueDate=	request.form("issueDate")

    318. 

  318. 

    319. 

  319. 		if request.form("IsA") = "on" then 

    320. 

  320. 			IsA=1 

    321. 

  321. 			InquiryNo=request.form("InquiryNo")

    322. 

  322. 			if InquiryNo <> "" then InquiryNo = clng(InquiryNo)

    323. 

  323. 		else 

    324. 

  324. 			IsA=0

    325. 

  325. 			InquiryNo=""

    326. 

  326. 		end if

    327. 

  327. 			

    328. 

  328. 		for i=1 to request.form("selectedOrders").count

    329. 

  329. 			theOrder=		clng(request.form("selectedOrders")(i))

    330. 

  330. 			mySQL="SELECT ID FROM Orders WHERE ID=" & theOrder 

    331. 

  331. 			Set rs=conn.Execute(mySQL)

    332. 

  332. 			if rs.eof then

    333. 

  333. 				errorFound=True

    334. 

  334. 				exit for

    335. 

  335. 			end if

    336. 

  336. 			rs.close

    337. 

  337. 		next

    338. 

  338. 

    339. 

  339. 		Set rs= Nothing

    340. 

  340. 

    341. 

  341. 		mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    342. 

  342. 		Set rs= conn.Execute(mySQL)

    343. 

  343. 		if NOT rs.eof then

    344. 

  344. 			voided=		rs("Voided")

    345. 

  345. 			issued=		rs("Issued")

    346. 

  346. 			approved=	rs("Approved")

    347. 

  347. 			isReverse=	rs("IsReverse")

    348. 

  348. 			ApprovedBy=	rs("ApprovedBy")

    349. 

  349. 		else

    350. 

  350. 			errorFound=True

    351. 

  351. 		end if

    352. 

  352. 

    353. 

  353. 		if Err.Number<>0 then

    354. 

  354. 			Err.clear

    355. 

  355. 			errorFound=True

    356. 

  356. 		end if

    357. 

  357. 

    358. 

  358. 		if NOT errorFound AND NOT issued then

    359. 

  359. 			TotalPrice	=		0

    360. 

  360. 			TotalDiscount =		0

    361. 

  361. 			TotalReverse =		0

    362. 

  362. 			TotalReceivable =	0

    363. 

  363. 			TotalVat =			0

    364. 

  364. 			RFD =				0

    365. 

  365. 

    366. 

  366. 			for i=1 to request.form("Items").count 

    367. 

  367. 

    368. 

  368. 				theItem =			clng(text2value(request.form("Items")(i)))

    369. 

  369. 				mySQL="SELECT ID FROM InvoiceItems WHERE ID=" & theItem 

    370. 

  370. 				Set rs=conn.Execute(mySQL)

    371. 

  371. 				if rs.eof then

    372. 

  372. 					errorFound=True

    373. 

  373. 					exit for

    374. 

  374. 				end if

    375. 

  375. 				rs.close

    376. 

  376. 

    377. 

  377. 				theDescription =	left(sqlSafe(request.form("Descriptions")(i)),100)

    378. 

  378. 

    379. 

  379. 				theAppQtty =		cdbl(text2value(request.form("AppQttys")(i)))

    380. 

  380. 				thePrice =			clng(text2value(request.form("Prices")(i)))

    381. 

  381. 

    382. 

  382. 				theDiscount =		text2value(request.form("Discounts")(i))

    383. 

  383. 				theReverse =		text2value(request.form("Reverses")(i))

    384. 

  384. 

    385. 

  385. 				theLength =			text2value(request.form("Lengths")(i))

    386. 

  386. 				theWidth =			text2value(request.form("Widths")(i))

    387. 

  387. 				theQtty =			text2value(request.form("Qttys")(i))

    388. 

  388. 				theSets =			text2value(request.form("Sets")(i))

    389. 

  389. 				theVat =			text2value(request.form("Vat")(i))

    390. 

  390. 				'theHasVat =			text2value(request.form("hasVat")(i))

    391. 

  391. 

    392. 

  392. 				if theDiscount <>"" then theDiscount= clng(theDiscount)

    393. 

  393. 				if theReverse <> "" then theReverse = clng(theReverse)

    394. 

  394. 

    395. 

  395. 				if theLength <>	"" then  theLength	= cdbl(theLength)

    396. 

  396. 				if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 

    397. 

  397. 				if theQtty <> ""   then	 theQtty	= clng(theQtty)

    398. 

  398. 				if theSets <> ""   then	 theSets	= clng(theSets)

    399. 

  399. 

    400. 

  400. 				TotalPrice	=		TotalPrice + thePrice

    401. 

  401. 				TotalDiscount =		TotalDiscount + theDiscount

    402. 

  402. 				TotalReverse =		TotalReverse + theReverse

    403. 

  403. 				TotalReceivable =	TotalReceivable + (thePrice - theDiscount - theReverse + theVat)

    404. 

  404. 				TotalVat =			TotalVat + theVat

    405. 

  405. 

    406. 

  406. 			next

    407. 

  407. 		RFD = TotalReceivable - fix(TotalReceivable / 1000) * 1000

    408. 

  408. 		'RFD = RFD / 1.03

    409. 

  409. 		TotalReceivable = TotalReceivable - RFD

    410. 

  410. 		TotalDiscount = TotalDiscount + RFD

    411. 

  411. 		end if

    412. 

  412. 

    413. 

  413. 		if Err.Number<>0 then

    414. 

  414. 			Err.clear

    415. 

  415. 			errorFound=True

    416. 

  416. 		end if

    417. 

  417. 

    418. 

  418. 	ON ERROR GOTO 0

    419. 

  419. 

    420. 

  420. 	if errorFound then

    421. 

  421. 		response.write "<br>" 

    422. 

  422. 		call showAlert ("  ",CONST_MSG_ERROR) 

    423. 

  423. 		response.end

    424. 

  424. 	end if

    425. 

  425. 	'^^^^---------------- Checking Input ------------^^^^

    426. 

  426. 

    427. 

  427. 	if isReverse then

    428. 

  428. 		'Check for permission for EDITTING Rev. Invoice

    429. 

  429. 		if not Auth(6 , 5) then NotAllowdToViewThisPage()

    430. 

  430. 		itemType=4 

    431. 

  431. 	else

    432. 

  432. 		'Check for permission for EDITTING Inquiry

    433. 

  433. 		if not Auth(6 , 3) then NotAllowdToViewThisPage()

    434. 

  434. 		itemType=1

    435. 

  435. 	end if

    436. 

  436. 

    437. 

  437. 	if voided then

    438. 

  438. 		Conn.close

    439. 

  439. 		response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    440. 

  440. 	elseif issued then

    441. 

  441. 		if Auth(6 , "A") then

    442. 

  442. 			' Has the Priviledge to change the Inquiry / Reverse Inquiry

    443. 

  443. 

    444. 

  444. 			'mySQL="SELECT ID FROM ARItems WHERE (Type='"& itemType & "') AND (GL_Update=1) AND (Link='"& InvoiceID & "')"

    445. 

  445. 			'Changed by Kid ! 831124

    446. 

  446. 			mySQL="SELECT ARItems.ID, ARItems.GL_Update, EffGLRows.GL, EffGLRows.GLDocID FROM ARItems LEFT OUTER JOIN (SELECT Link, GL, GLDocID FROM EffectiveGLRows WHERE SYS = 'AR') EffGLRows ON ARItems.ID = EffGLRows.Link WHERE (ARItems.Type = '"& itemType & "') AND (ARItems.Link = '"& InquiryID & "')"

    447. 

  447. 

    448. 

  448. 			Set RS2 = conn.Execute(mySQL)

    449. 

  449. 

    450. 

  450. 			if RS2.eof then

    451. 

  451. 				Conn.close

    452. 

  452. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode(" !! <br><br>  .")

    453. 

  453. 			else

    454. 

  454. 				if RS2("GL_Update") = False  then

    455. 

  455. 					tmpGL=RS2("GL")

    456. 

  456. 					tmpGLDoc=RS2("GLDocID")

    457. 

  457. 					Conn.close

    458. 

  458. 					response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("        .<br><br> :"& tmpGL & "  : "& tmpGLDoc & " .")

    459. 

  459. 				else

    460. 

  460. 					ARItemID=RS2("ID")

    461. 

  461. 					IssuedButEdit=true

    462. 

  462. 				end if

    463. 

  463. 			end if

    464. 

  464. 			RS2.close

    465. 

  465. 		else

    466. 

  466. 			Conn.close

    467. 

  467. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    468. 

  468. 		end if

    469. 

  469. 	elseif approved then 

    470. 

  470. 		call UnApproveInquiry ( InquiryID , ApprovedBy )

    471. 

  471. 	end if

    472. 

  472. 	

    473. 

  473. 

    474. 

  474. 	'******************* Editing  *******************

    475. 

  475. 	' ****

    476. 

  476. 	if IssuedButEdit then

    477. 

  477. 		' Only Updating  IssuedDate, Number & IsA

    478. 

  478. 		'				 and related Orders

    479. 

  479. 

    480. 

  480. 		'---- Checking wether issueDate is valid in current open GL

    481. 

  481. 		If Not CheckDateFormat(issueDate) Then

    482. 

  482. 			Conn.close

    483. 

  483. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("    .")

    484. 

  484. 		end if

    485. 

  485. 

    486. 

  486. 		if (issueDate < session("OpenGLStartDate")) OR (issueDate > session("OpenGLEndDate")) then

    487. 

  487. 			Conn.close

    488. 

  488. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("!<br>    . <br>(    )")

    489. 

  489. 		end if 

    490. 

  490. 		'----

    491. 

  491. 

    492. 

  492. 		mySQL="UPDATE Inquiries SET IssuedDate=N'" & issueDate & "', Number='"& InquiryNo & "', IsA='"& IsA & "' WHERE (ID='"& InquiryID & "')"

    493. 

  493. 		conn.Execute(mySQL)

    494. 

  494. 

    495. 

  495. 		'if IsA then

    496. 

  496. 		'	GLAccount=	"91001"	'This must be changed... (Sales A)

    497. 

  497. 		'else

    498. 

  498. 		'	GLAccount=	"91002"	'This must be changed... (Sales B)

    499. 

  499. 		'end if

    500. 

  500. 		'

    501. 

  501. 		' Changed By Kid 860118 , seasing to use Sales B

    502. 

  502. 

    503. 

  503. 		GLAccount=	"91001"	'This must be changed... (Sales A)

    504. 

  504. 

    505. 

  505. 		conn.Execute("UPDATE ARItems SET GL='"& OpenGL & "', EffectiveDate='" & issueDate & "', GLAccount='"& GLAccount & "' WHERE (ID='" & ARItemID & "')")

    506. 

  506. 

    507. 

  507. 		'**************** Updating Inquiry-Order Relations ****************

    508. 

  508. 		'mySQL="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] FROM InvoiceOrderRelations WHERE (Invoice= '" & InvoiceID & "'))"

    509. 

  509. 		'Changed By Kid ! 840509 

    510. 

  510. 		'set orders which are ONLY related to this invoice, "Open"

    511. 

  511. 		'that means, orders which are related to this invoice and are NOT related to any OTHER issued invoices.

    512. 

  512. 		mySQL ="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] FROM InquiryOrderRelations WHERE (Inquiry = '" & InquiryID & "') AND ([Order] NOT IN (SELECT InquiryOrderRelations.[ORDER] FROM Inquiries INNER JOIN InquiryOrderRelations ON Inquiries.ID = InquirieOrderRelations.Inquiry WHERE (Inquiries.Issued = 1) AND (Inquiries.Voided = 0) AND (Inquiries.isReverse = 0) AND (Inquiries.ID <> '" & InquiryID & "'))))"

    513. 

  513. 		conn.Execute(mySQL)

    514. 

  514. 

    515. 

  515. 		mySQL ="DELETE FROM InquiryOrderRelations WHERE (Inquiry='" & InquiryID & "')"

    516. 

  516. 		'mySQL ="DELETE FROM InvoiceOrderRelations WHERE (Invoice = '" & InvoiceID & "') AND ([Order] NOT IN (SELECT InvoiceOrderRelations.[ORDER] FROM Invoices INNER JOIN InvoiceOrderRelations ON Invoices.ID = InvoiceOrderRelations.Invoice WHERE (Invoices.Issued = 1) AND (Invoices.Voided = 0) AND (Invoices.isReverse = 0) AND (Invoices.ID <> '" & InvoiceID & "')))"

    517. 

  517. 		conn.Execute(mySQL)

    518. 

  518. 		

    519. 

  519. 

    520. 

  520. 		for i=1 to request.form("selectedOrders").count

    521. 

  521. 			theOrder=	clng(request.form("selectedOrders")(i))

    522. 

  522. 			mySQL="INSERT INTO InquiryOrderRelations (Inquiry,[Order]) VALUES ('" & InquiryID & "', '" & theOrder & "')"

    523. 

  523. 			conn.Execute(mySQL)

    524. 

  524. 		next

    525. 

  525. 

    526. 

  526. 		conn.Execute("UPDATE Orders SET Closed=1 WHERE ID IN (SELECT [Order] FROM InquiryOrderRelations WHERE (Inquiry='" & InquiryID & "'))")

    527. 

  527. 		'^^^^------------ Updating Inquiry-Order Relations ------------^^^^

    528. 

  528. 

    529. 

  529. 		conn.close

    530. 

  530. 		response.redirect "AccountReport.asp?act=showInquiry&inquiry=" & InquiryID & "&msg=" &Server.URLEncode("     .<br>э       ǘ   <br>      ʘ .")

    531. 

  531. 	else

    532. 

  532. ' S A M

    533. 

  533. 'response.write(totalDiscount)

    534. 

  534. 'response.end

    535. 

  535. 		mySQL="UPDATE Inquiries SET Customer='"& CustomerID & "', Number='"& InquiryNo & "', TotalPrice='"& TotalPrice & "', TotalDiscount='"& TotalDiscount & "', TotalReverse='"& TotalReverse & "', TotalReceivable='"& TotalReceivable & "' , IsA='"& IsA & "', TotalVat='" & totalVat & "' WHERE (ID='"& InquiryID & "')"

    536. 

  536. 		conn.Execute(mySQL)

    537. 

  537. 

    538. 

  538. 		mySQL="DELETE FROM InquiryLines WHERE (Inquiry='"& InquiryID & "')"

    539. 

  539. 		conn.Execute(mySQL)

    540. 

  540. 

    541. 

  541. 		'**************************** Inserting Inquiry Lines ****************

    542. 

  542. 		for i=1 to request.form("Items").count 

    543. 

  543. 			theItem =			clng(text2value(request.form("Items")(i)))

    544. 

  544. 			theDescription =	left(sqlSafe(request.form("Descriptions")(i)),100)

    545. 

  545. 

    546. 

  546. 			theAppQtty =		cdbl(text2value(request.form("AppQttys")(i)))

    547. 

  547. 			thePrice =			clng(text2value(request.form("Prices")(i)))

    548. 

  548. 

    549. 

  549. 			theDiscount =		text2value(request.form("Discounts")(i))

    550. 

  550. 			theReverse =		text2value(request.form("Reverses")(i))

    551. 

  551. 

    552. 

  552. 			theLength =			text2value(request.form("Lengths")(i))

    553. 

  553. 			theWidth =			text2value(request.form("Widths")(i))

    554. 

  554. 			theQtty =			text2value(request.form("Qttys")(i))

    555. 

  555. 			theSets =			text2value(request.form("Sets")(i))

    556. 

  556. 			theVat =			clng(text2value(request.form("Vat")(i)))

    557. 

  557. 			theHasVat =			text2value(request.form("hasVat")(i))

    558. 

  558. 

    559. 

  559. 			if theDiscount <>"" then theDiscount= clng(theDiscount)

    560. 

  560. 			if theReverse <> "" then theReverse = clng(theReverse)

    561. 

  561. 

    562. 

  562. 			if theLength <>	"" then  theLength	= cdbl(theLength)

    563. 

  563. 			if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 

    564. 

  564. 			if theQtty <> ""   then	 theQtty	= clng(theQtty)

    565. 

  565. 			if theSets <> ""   then	 theSets	= clng(theSets)

    566. 

  566. 

    567. 

  567. 			mySQL="INSERT INTO InquiryLines (Inquiry, Item, Description, Length, Width, Qtty, Sets, AppQtty, Price, Discount, Reverse, Vat, hasVat) VALUES ('"& InquiryID & "', '" & theItem & "', N'" & theDescription & "', '" & theLength & "', '" & theWidth & "', '" & theQtty & "', '" & theSets & "', '" & theAppQtty & "', '" & thePrice & "', '" & theDiscount & "', '" & theReverse & "', '" & theVat & "', "& theHasVat &")"

    568. 

  568. 			conn.Execute(mySQL)

    569. 

  569. 		next 

    570. 

  570. 		if RFD > 0 then

    571. 

  571. 			theItem =			39999

    572. 

  572. 			theDescription =	"  ǘ"

    573. 

  573. 

    574. 

  574. 			theAppQtty =		0

    575. 

  575. 			thePrice =			0

    576. 

  576. 

    577. 

  577. 			theDiscount =		RFD

    578. 

  578. 			theReverse =		0

    579. 

  579. 

    580. 

  580. 			theLength =			0

    581. 

  581. 			theWidth =			0

    582. 

  582. 			theQtty =			0

    583. 

  583. 			theSets =			0

    584. 

  584. 			theVat =			0

    585. 

  585. 			mySQL="INSERT INTO InquiryLines (Inquiry, Item, Description, Length, Width, Qtty, Sets, AppQtty, Price, Discount, Reverse, Vat) VALUES ('"& InquiryID & "', '" & theItem & "', N'" & theDescription & "', '" & theLength & "', '" & theWidth & "', '" & theQtty & "', '" & theSets & "', '" & theAppQtty & "', '" & thePrice & "', '" & theDiscount & "', '" & theReverse & "', '" & theVat & "')"

    586. 

  586. 			conn.Execute(mySQL)

    587. 

  587. 		end if

    588. 

  588. 

    589. 

  589. 		'**************** Updating Inquiry-Order Relations ****************

    590. 

  590. 		mySQL="DELETE FROM InquiryOrderRelations WHERE (Inquiry='" & InquiryID & "')"

    591. 

  591. 		conn.Execute(mySQL)

    592. 

  592. 		for i=1 to request.form("selectedOrders").count

    593. 

  593. 			theOrder=	clng(request.form("selectedOrders")(i))

    594. 

  594. 			mySQL="INSERT INTO InquiryOrderRelations (Inquiry,[Order]) VALUES ('" & InquiryID & "', '" & theOrder & "')"

    595. 

  595. 			conn.Execute(mySQL)

    596. 

  596. 		next

    597. 

  597. 		'^^^^------------ Updating Inquiry-Order Relations ------------^^^^

    598. 

  598. 

    599. 

  599. 	end if

    600. 

  600. 	'****

    601. 

  601. 	'^^^^--------------- Editing  ---------------^^^^

    602. 

  602. 

    603. 

  603. 	response.redirect "AccountReport.asp?act=showInquiry&inquiry=" & InquiryID

    604. 

  604. 

    605. 

  605. elseif request("act")="approveInquiry" then

    606. 

  606. 

    607. 

  607. 	if not Auth(6 , "C") then		

    608. 

  608. 		'Doesn't have the Priviledge to APPROVE the Inquiry 

    609. 

  609. 		response.write "<br>" 

    610. 

  610. 		call showAlert ("     ",CONST_MSG_ERROR) 

    611. 

  611. 		response.end

    612. 

  612. 	end if

    613. 

  613. 

    614. 

  614. 	if request("inquiry")<>"" then

    615. 

  615. 

    616. 

  616. 		InquiryID=request("inquiry")

    617. 

  617. 		if not(isnumeric(request("inquiry"))) then

    618. 

  618. 			ShowErrorMessage("")

    619. 

  619. 			response.end

    620. 

  620. 		end if

    621. 

  621. 		mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    622. 

  622. 		Set RS1 = conn.Execute(mySQL)

    623. 

  623. 		if RS1.eof then

    624. 

  624. 			ShowErrorMessage("  ")

    625. 

  625. 			response.end

    626. 

  626. 		else

    627. 

  627. 			if RS1("Voided") = True then

    628. 

  628. 				Conn.close

    629. 

  629. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    630. 

  630. 			elseif RS1("Issued") = True then

    631. 

  631. 				Conn.close

    632. 

  632. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    633. 

  633. 			elseif RS1("Approved") = True then

    634. 

  634. 				Conn.close

    635. 

  635. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    636. 

  636. 			end if

    637. 

  637. 		end if

    638. 

  638. 	else

    639. 

  639. 		ShowErrorMessage("")

    640. 

  640. 		response.end

    641. 

  641. 	end if

    642. 

  642. 	

    643. 

  643. 	mySQL="UPDATE Inquiries SET Approved=1, ApprovedDate=N'"& shamsiToday() & "', ApprovedBy='"& session("ID") & "' WHERE (ID='"& InquiryID & "')"

    644. 

  644. 	conn.Execute(mySQL)

    645. 

  645. 

    646. 

  646. 	response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID 

    647. 

  647. 

    648. 

  648. elseif request("act")="IssueInquiry" then

    649. 

  649. 

    650. 

  650. 	if not Auth(6 , "D") then		

    651. 

  651. 		'Doesn't have the Priviledge to ISSUE the Inquiry

    652. 

  652. 		response.write "<br>" 

    653. 

  653. 		call showAlert ("     ",CONST_MSG_ERROR) 

    654. 

  654. 		response.end

    655. 

  655. 	end if

    656. 

  656. 

    657. 

  657. 	ON ERROR RESUME NEXT

    658. 

  658. 		InquiryID=		clng(request("Inquiry"))

    659. 

  659. 

    660. 

  660. 		if Err.Number<>0 then

    661. 

  661. 			Err.clear

    662. 

  662. 			conn.close

    663. 

  663. 			response.redirect "top.asp?errMsg=" & Server.URLEncode("!")

    664. 

  664. 		end if

    665. 

  665. 	ON ERROR GOTO 0

    666. 

  666. 

    667. 

  667. 	creationDate=	shamsiToday() 

    668. 

  668. 	issueDate=		SqlSafe(request("issueDate"))

    669. 

  669. 	if issueDate="" then issueDate=creationDate

    670. 

  670. 

    671. 

  671. 	if issueDate<>creationDate then

    672. 

  672. 		if Auth(6 , "I") then

    673. 

  673. 			' can ISSUE the Inquiry / Rev. Inquiry on another Date

    674. 

  674. 

    675. 

  675. 			'---- Checking wether issueDate is valid in current open GL

    676. 

  676. 			If Not CheckDateFormat(issueDate) Then

    677. 

  677. 				Conn.close

    678. 

  678. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("    .")

    679. 

  679. 			end if

    680. 

  680. 

    681. 

  681. 			if (issueDate < session("OpenGLStartDate")) OR (issueDate > session("OpenGLEndDate")) then

    682. 

  682. 				Conn.close

    683. 

  683. 				response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("!<br>    . <br>(    )")

    684. 

  684. 			end if 

    685. 

  685. 			'----

    686. 

  686. 		else

    687. 

  687. 			'Doesn't have the Priviledge to ISSUE the Inquiry on another Date

    688. 

  688. 			response.write "<br>" 

    689. 

  689. 			call showAlert ("        ",CONST_MSG_ERROR) 

    690. 

  690. 			response.end

    691. 

  691. 		end if

    692. 

  692. 	end if

    693. 

  693. 

    694. 

  694. 	'---- Checking wether issueDate is valid in current open GL

    695. 

  695. 	If Not CheckDateFormat(issueDate) Then

    696. 

  696. 		Conn.close

    697. 

  697. 		response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("!<br>   .")

    698. 

  698. 	end if

    699. 

  699. 

    700. 

  700. 	if (issueDate < session("OpenGLStartDate")) OR (issueDate > session("OpenGLEndDate")) then

    701. 

  701. 		Conn.close

    702. 

  702. 		response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("!<br>   . <br>(    )")

    703. 

  703. 	end if 

    704. 

  704. 	'----

    705. 

  705. 

    706. 

  706. 	mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    707. 

  707. 	Set RS1 = conn.Execute(mySQL)

    708. 

  708. 	if RS1.eof then

    709. 

  709. 		conn.close

    710. 

  710. 		response.redirect "top.asp?errMsg=" & Server.URLEncode("!   " & InquiryID & "  .")

    711. 

  711. 	else

    712. 

  712. 		voided=			RS1("Voided")

    713. 

  713. 		issued=			RS1("Issued")

    714. 

  714. 		approved=		RS1("Approved")

    715. 

  715. 		isReverse=		RS1("IsReverse")

    716. 

  716. 		customerID=		RS1("Customer")

    717. 

  717. 		inquiryFee=		RS1("TotalReceivable")

    718. 

  718. 		IsA =			RS1("IsA")

    719. 

  719. 		Vat =			RS1("TotalVat")' sam

    720. 

  720. 

    721. 

  721. 		if voided then

    722. 

  722. 			Conn.close

    723. 

  723. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    724. 

  724. 		elseif issued then

    725. 

  725. 			Conn.close

    726. 

  726. 			response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("     .")

    727. 

  727. 		elseif not approved then

    728. 

  728. 			Conn.close

    729. 

  729. 			response.redirect "?act=editInquiry&inquiry="& InquiryID & "&errmsg=" & Server.URLEncode("    .")

    730. 

  730. 		end if

    731. 

  731. 	end if

    732. 

  732. 

    733. 

  733. 	mySQL="UPDATE Inquiries SET Issued=1, IssuedDate=N'"& issueDate & "', IssuedBy='"& session("ID") & "' WHERE (ID='"& InquiryID & "')"

    734. 

  734. 	conn.Execute(mySQL)

    735. 

  735. 

    736. 

  736. 	if isReverse then

    737. 

  737. 		isCredit=1

    738. 

  738. 		itemType=4 

    739. 

  739. 	else

    740. 

  740. 		isCredit=0

    741. 

  741. 		itemType=1

    742. 

  742. 		'----------------------- Declaring the related orders as closed --------------

    743. 

  743. 		conn.Execute("UPDATE Orders SET Closed=1 WHERE ID IN (SELECT [Order] FROM InquiryOrderRelations WHERE (Inquiry='" & InquiryID & "'))")

    744. 

  744. 	end if

    745. 

  745. 

    746. 

  746. 	'**************************** Creating ARItem for Inquiry / Reverse Inquiry  ****************

    747. 

  747. 	'*** Type = 1 means ARItem is an Inquiry

    748. 

  748. 	'*** Type = 4 means ARItem is a Reverse Inquiry

    749. 

  749. 

    750. 

  750. 	firstGLAccount=	"13003"	'This must be changed... (Business Debitors)

    751. 

  751. 	'if IsA then

    752. 

  752. 	'	GLAccount=	"91001"	'This must be changed... (Sales A)

    753. 

  753. 	'else

    754. 

  754. 	'	GLAccount=	"91002"	'This must be changed... (Sales B)

    755. 

  755. 	'end if

    756. 

  756. 	'

    757. 

  757. 	' Changed By Kid 860118 , seasing to use Sales B

    758. 

  758. 

    759. 

  759. 	GLAccount=	"91001"	'This must be changed... (Sales A)

    760. 

  760. 	

    761. 

  761. 	mySQL="INSERT INTO ARItems (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, IsCredit, Type, Link, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount, Vat) VALUES ('" &_

    762. 

  762. 	GLAccount & "', '"& OpenGL & "', '"& firstGLAccount & "', '"& CustomerID & "', N'"& issueDate & "', '"& isCredit & "', '"& itemType & "', '"& InquiryID & "', '"& inquiryFee & "', N'"& creationDate & "', '"& session("ID") & "', '"& inquiryFee & "', '" & Vat & "')"

    763. 

  763. 	conn.Execute(mySQL)

    764. 

  764. 

    765. 

  765. 	if isReverse then

    766. 

  766. 		'*** ATTENTION: Increasing AR Balance ....

    767. 

  767. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& inquiryFee & "' WHERE (ID='"& CustomerID & "')"

    768. 

  768. 	else

    769. 

  769. 		'*** ATTENTION: Decreasing AR Balance ....

    770. 

  770. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& inquiryFee & "' WHERE (ID='"& CustomerID & "')"

    771. 

  771. 	end if

    772. 

  772. 	conn.Execute(mySQL)

    773. 

  773. 	conn.close

    774. 

  774. 	response.redirect "AccountReport.asp?act=showInquiry&inquiry="& InquiryID 

    775. 

  775. 

    776. 

  776. elseif request("act")="voidInquiry" then

    777. 

  777. 	if not Auth(6 , "F") then		

    778. 

  778. 		'Doesn't have the Priviledge to VOID the Inquiry 

    779. 

  779. 		response.write "<br>" 

    780. 

  780. 		call showAlert ("     ",CONST_MSG_ERROR) 

    781. 

  781. 		response.end

    782. 

  782. 	end if

    783. 

  783. 

    784. 

  784. 	comment=sqlSafe(request("comment"))

    785. 

  785. 

    786. 

  786. 	InquiryID=request("inquiry")

    787. 

  787. 	if InquiryID="" or not(isnumeric(InquiryID)) then

    788. 

  788. 		response.write "<br>" 

    789. 

  789. 		call showAlert ("   ",CONST_MSG_ERROR) 

    790. 

  790. 		response.end

    791. 

  791. 	end if

    792. 

  792. 

    793. 

  793. 	InquiryID=clng(InquiryID)

    794. 

  794. 	

    795. 

  795. 	mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    796. 

  796. 	Set RS1 = conn.Execute(mySQL)

    797. 

  797. 	if RS1.eof then

    798. 

  798. 		ShowErrorMessage("  ")

    799. 

  799. 		response.end

    800. 

  800. 	else

    801. 

  801. 		voided=			RS1("Voided")

    802. 

  802. 		issued=			RS1("Issued")

    803. 

  803. 		issuedBy=		RS1("IssuedBy")

    804. 

  804. 		isReverse=		RS1("IsReverse")

    805. 

  805. 		customerID=		RS1("Customer")

    806. 

  806. 		inquiryFee=		RS1("TotalReceivable")

    807. 

  807. 		IsA =			RS1("IsA")

    808. 

  808. 		if voided then

    809. 

  809. 			ShowErrorMessage("     <span dir='LTR'>"& RS1("VoidedDate") & "</span>   .")

    810. 

  810. 			response.end

    811. 

  811. 		end if

    812. 

  812. 	end if

    813. 

  813. 	

    814. 

  814. 	mySQL="UPDATE Inquiries SET Voided=1, VoidedDate=N'"& shamsiToday() & "', VoidedBy='"& session("ID") & "' WHERE (ID='"& InquiryID & "')"

    815. 

  815. 	conn.Execute(mySQL)

    816. 

  816. 	

    817. 

  817. 	if isReverse then

    818. 

  818. 		isCredit=1

    819. 

  819. 		itemType=4 

    820. 

  820. 		itemTypeName=" ѐ  "

    821. 

  821. 	else

    822. 

  822. 		isCredit=0

    823. 

  823. 		itemType=1

    824. 

  824. 		itemTypeName=""

    825. 

  825. 		'---------- Declaring the related orders as Open  -------------------

    826. 

  826. 		'mySQL="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] FROM InvoiceOrderRelations WHERE (Invoice= '" & InvoiceID & "'))"

    827. 

  827. 		'Changed By Kid ! 840509 

    828. 

  828. 		'set orders which are ONLY related to this invoice, "Open"

    829. 

  829. 		'that means, orders which are related to this invoice and are NOT related to any OTHER issued invoices.

    830. 

  830. 		mySQL ="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] FROM InquiryOrderRelations WHERE (Inquiry = '" & InquiryID & "') AND ([Order] NOT IN (SELECT InquiryOrderRelations.[ORDER] FROM Inquiries INNER JOIN InquiryOrderRelations ON Inquiries.ID = InquiryOrderRelations.Inquiry WHERE (Inquiries.Issued = 1) AND (Inquiries.Voided = 0) AND (Inquiries.isReverse = 0) AND (Inquiries.ID <> '" & InquiryID & "'))))"

    831. 

  831. 		conn.Execute(mySQL)

    832. 

  832. 

    833. 

  833. 	end if

    834. 

  834. 

    835. 

  835.   '**************************** Voiding ARItem of Inquiry / Reverse Inquiry ****************

    836. 

  836.   '*** Type = 1 means ARItem is an Inquiry

    837. 

  837.   '*** Type = 4 means ARItem is a Reverse Inquiry

    838. 

  838.   '***

    839. 

  839. 	'*********  Finding the ARItem of Inquiry / Reverse Inquiry

    840. 

  840. 	mySQL="SELECT ID FROM ARItems WHERE (Type = '"& itemType & "') AND (Link='"& InquiryID & "')"

    841. 

  841. 	Set RS1=conn.Execute(mySQL)

    842. 

  842. 	voidedARItem=RS1("ID")

    843. 

  843. 	'*********  Finding other ARItems related to this Item

    844. 

  844. 	if isReverse then

    845. 

  845. 		mySQL="SELECT ID AS RelationID, DebitARItem, Amount FROM ARItemsRelations WHERE (CreditARItem = '"& voidedARItem & "')"

    846. 

  846. 		Set RS1=conn.Execute(mySQL)

    847. 

  847. 		Do While not (RS1.eof)

    848. 

  848. 			'*********  Adding back the amount in the relation, to the credit ARItem ...

    849. 

  849. 			conn.Execute("UPDATE ARItems SET RemainedAmount=RemainedAmount+ '"& RS1("Amount") & "', FullyApplied=0 WHERE (ID = '"& RS1("DebitARItem") & "')")

    850. 

  850. 

    851. 

  851. 			'*********  Deleting the relation

    852. 

  852. 			conn.Execute("DELETE FROM ARItemsRelations WHERE ID='"& RS1("RelationID") & "'")

    853. 

  853. 			

    854. 

  854. 			RS1.movenext

    855. 

  855. 		Loop

    856. 

  856. 	else

    857. 

  857. 		mySQL="SELECT ID AS RelationID, CreditARItem, Amount FROM ARItemsRelations WHERE (DebitARItem = '"& voidedARItem & "')"

    858. 

  858. 		Set RS1=conn.Execute(mySQL)

    859. 

  859. 		Do While not (RS1.eof)

    860. 

  860. 			'*********  Adding back the amount in the relation, to the credit ARItem ...

    861. 

  861. 			conn.Execute("UPDATE ARItems SET RemainedAmount=RemainedAmount+ '"& RS1("Amount") & "', FullyApplied=0 WHERE (ID = '"& RS1("CreditARItem") & "')")

    862. 

  862. 

    863. 

  863. 			'*********  Deleting the relation

    864. 

  864. 			conn.Execute("DELETE FROM ARItemsRelations WHERE ID='"& RS1("RelationID") & "'")

    865. 

  865. 			

    866. 

  866. 			RS1.movenext

    867. 

  867. 		Loop

    868. 

  868. 	end if

    869. 

  869. 

    870. 

  870. 	'*********  Voiding ARItem 

    871. 

  871. 	conn.Execute("UPDATE ARItems SET RemainedAmount=0, FullyApplied=0, Voided=1 WHERE (ID = '"& voidedARItem & "')")

    872. 

  872. 

    873. 

  873. 	'**************************************************************

    874. 

  874. 	'*				Affecting Account's AR Balance  

    875. 

  875. 	'**************************************************************

    876. 

  876. 	if isReverse then

    877. 

  877. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& inquiryFee & "' WHERE (ID='"& CustomerID & "')"

    878. 

  878. 	else

    879. 

  879. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& inquiryFee & "' WHERE (ID='"& CustomerID & "')"

    880. 

  880. 	end if

    881. 

  881. 

    882. 

  882. 	conn.Execute(mySQL)

    883. 

  883. 	

    884. 

  884. 	'***

    885. 

  885. 	'***---------------- End of  Voiding ARItem of Inquiry / Reverse Inquiry ----------------

    886. 

  886. 

    887. 

  887. 	' Sending a Message to Issuer ...

    888. 

  888. 	if trim(comment)<>"" then comment = chr(13) & chr(10) & "[" & comment & "]"

    889. 

  889. 	MsgTo			=	issuedBy

    890. 

  890. 	msgTitle		=	"Inquiry Voided"

    891. 

  891. 

    892. 

  892. 	msgBody			=	"ǘ   "& session("CSRName") & "  ." & comment

    893. 

  893. 	RelatedTable	=	"inquiries"

    894. 

  894. 	relatedID		=	inquiryID

    895. 

  895. 	replyTo			=	0

    896. 

  896. 	IsReply			=	0

    897. 

  897. 	urgent			=	1

    898. 

  898. 	MsgFrom			=	session("ID")

    899. 

  899. 	MsgDate			=	shamsiToday()

    900. 

  900. 	MsgTime			=	currentTime10()

    901. 

  901. 	Conn.Execute ("INSERT INTO Messages (MsgFrom, MsgTo, MsgTime, MsgDate, IsRead, MsgTitle, MsgBody, replyTo, IsReply, relatedID, RelatedTable, urgent) VALUES ( "& MsgFrom & ", "& MsgTo & ", N'"& MsgTime & "', N'"& MsgDate & "', 0, N'"& MsgTitle & "', N'"& MsgBody & "', "& replyTo & ", "& IsReply & ", "& relatedID & ", '"& RelatedTable & "', "& urgent & ")")

    902. 

  902. 

    903. 

  903. 

    904. 

  904. 	' Copying the PreInquiry Data...

    905. 

  905. 	response.redirect "InquiryInput.asp?act=copyInquiry&inquiry="& InquiryID & "&msg=" & Server.URLEncode(itemTypeName & "  "& InquiryID & "  .")

    906. 

  906. 

    907. 

  907. elseif request("act")="removePreInquiry" then

    908. 

  908. 	response.write "<br>" 

    909. 

  909. 

    910. 

  910. 	if not Auth(6 , "G") then		

    911. 

  911. 		'Doesn't have the Priviledge to REMOVE the Pre-Inquiry 

    912. 

  912. 		call showAlert ("      ",CONST_MSG_ERROR) 

    913. 

  913. 		response.end

    914. 

  914. 	end if

    915. 

  915. 

    916. 

  916. 	InquiryID=request("inquiry")

    917. 

  917. 	if InquiryID="" or not(isnumeric(InquiryID)) then

    918. 

  918. 		call showAlert ("    ",CONST_MSG_ERROR) 

    919. 

  919. 		response.end

    920. 

  920. 	end if

    921. 

  921. 	InquiryID=clng(InquiryID)

    922. 

  922. 

    923. 

  923. 	mySQL="SELECT * FROM Inquiries WHERE (ID='"& InquiryID & "')"

    924. 

  924. 	Set RS1 = conn.Execute(mySQL)

    925. 

  925. 	if RS1.eof then

    926. 

  926. 		call showAlert ("   .",CONST_MSG_ERROR) 

    927. 

  927. 	else

    928. 

  928. 		voided=			RS1("Voided")

    929. 

  929. 		issued=			RS1("Issued")

    930. 

  930. 		isReverse=		RS1("IsReverse")

    931. 

  931. 		customerID=		RS1("Customer")

    932. 

  932. 		IsA =			RS1("IsA")

    933. 

  933. 		if issued then

    934. 

  934. 			call showAlert ("    .",CONST_MSG_ERROR) 

    935. 

  935. 		elseif voided then

    936. 

  936. 			call showAlert ("    .",CONST_MSG_ERROR) 

    937. 

  937. 		else

    938. 

  938. 			Conn.execute("DELETE FROM InquiryOrderRelations Where (Inquiry='" & InquiryID & "')")

    939. 

  939. 

    940. 

  940. 			'Conn.execute("DELETE FROM InvoiceLines Where (Invoice='" & InvoiceID & "')")

    941. 

  941. 			'Conn.execute("DELETE FROM Invoices Where (ID='" & InvoiceID & "')")

    942. 

  942. 			'Changed By Kid 830929

    943. 

  943. 			'Conn.execute("UPDATE Invoices SET Voided=1 Where (ID='" & InvoiceID & "')")

    944. 

  944. 			'Changed By Kid 8400502 also adding VoidedBy & VoidedDate

    945. 

  945. 			Conn.execute("UPDATE Inquiries SET Voided=1, VoidedDate=N'"& shamsiToday() & "', VoidedBy='"& session("ID") & "' WHERE (ID='"& InquiryID & "')")

    946. 

  946. 

    947. 

  947. 			call showAlert ("   .",CONST_MSG_INFORM) 

    948. 

  948. 		end if

    949. 

  949. 	end if

    950. 

  950. 	response.end

    951. 

  951. end if

    952. 

  952. conn.Close

    953. 

  953. %>

    954. 

  954. <!--#include file="include_JS_for_Inquiries.asp" -->

    955. 

  955. <SCRIPT LANGUAGE="JavaScript">

    956. 

  956. <!--

    957. 

  957. function ApproveInquiry(){

    958. 

  958. 	if (confirm("         '' Ͽ\n\n(:    )\n"))

    959. 

  959. 		window.location="?act=approveInquiry&inquiry=<%=InquiryID%>";

    960. 

  960. }

    961. 

  961. function IssueInquiry(){

    962. 

  962. 	if (confirm("         '' Ͽ\n\n(:    )\n"))

    963. 

  963. 		window.location="?act=IssueInquiry&inquiry=<%=InquiryID%>";

    964. 

  964. }

    965. 

  965. function VoidInquiry(){

    966. 

  966. 	if (confirm("         '' Ͽ\n"))

    967. 

  967. 		window.location="?act=voidInquiry&inquiry=<%=InquiryID%>";

    968. 

  968. }

    969. 

  969. //-->

    970. 

  970. </SCRIPT>

    971. 

  971. <!--#include file="tah.asp" -->
    972.