PageRenderTime 64ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 1ms

/beta/AR/InvoiceEdit.asp

http://github.com/khaneh/Orders
ASP | 1514 lines | 1127 code | 171 blank | 216 comment | 162 complexity | f93a5fdcfb1610c18b07624add893b81 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. 

    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. <%
    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. 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. function Link2TraceQuote(QuoteNo)
    22. 

  22. 	Link2TraceQuote = "<A HREF='../order/Inquiry.asp?act=show&quote="& QuoteNo & "' target='_balnk'>"& QuoteNo & "</A>"
    23. 

  23. end function
    24. 

  24. 

  25. %>
    26. 

  26. <style>
    27. 

  27. 	Table { font-size: 9pt;}
    28. 

  28. 	div.InvHead {background-color: #CC8;text-align: center;padding: 5px 0;}
    29. 

  29. 	div.InvHead2 {background-color: #AC7;text-align: center;padding: 5px 0;}
    30. 

  30. 	div.InvHead3 {background-color: #F0F0F0;text-align: center;padding: 5px 0;}
    31. 

  31. 	div.InvHead4 {background-color: #F90;text-align: center;padding: 5px 0;}
    32. 

  32. 	div.InvLine {background-color: #F0F0F0;text-align: right;}
    33. 

  33. 	div.InvLine2 {background-color: #F0FFF0;text-align: right;}
    34. 

  34. 	div.InvLine4 {background-color: #FFD3A8;text-align: right;}
    35. 

  35. 	
    36. 

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

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

  38. 	.InvRowInput2 { font-family:tahoma; font-size: 9pt; border: none; background-color: #F0FFF0; text-align:right; height: 22px; margin: 0;padding: 0;}
    39. 

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

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

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

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

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

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

  45. 	.order {background-color: #C3C300;font-weight: bold;padding: 6px 10px 6px 10px;}
    46. 

  46. 	.quote {background-color: #AAAAEE;font-weight: bold;padding: 6px 10px 6px 10px;}
    47. 

  47. 	#header {width: 100%;border-left: 1px solid #585;border-right: 1px solid #585;}
    48. 

  48. 	#header div {padding: 5px 2px;float: right;border-left: 1px solid #585; text-align: center;}
    49. 

  49. 	div.invRow {clear: both;float: none;width: 100%;}
    50. 

  50. 	div.invRow div {padding: 5px 2px 0 2px;float: right;border-bottom: 1px solid #585;border-left: 1px solid #585;text-align: right;height: 22px;}
    51. 

  51. 	table.invTable {border-collapse:collapse; width:100%;}
    52. 

  52. 	#tbody{height:60px;overflow-y:auto;width:100%;background:yellow;border-top: 1px solid #585;}
    53. 

  53. 	td[class*="td"] {padding: 1px 2px;border-left: 1px solid red;border-bottom: 1px solid red;}
    54. 

  54. 	div.td15{width: 15px;}
    55. 

  55. 	td.td15{width: 15px;}
    56. 

  56. 	div.td40{width: 40px;}
    57. 

  57. 	td.td40{width: 40px;}
    58. 

  58. 	div.td170{width: 170px;}
    59. 

  59. 	td.td170{width: 170px;}
    60. 

  60. 	div.td60{width: 60px;}
    61. 

  61. 	td.td60{width: 60px;}
    62. 

  62. 	div.td80{width: 80px;}
    63. 

  63. 	td.td80{width: 80px;}
    64. 

  64. 	div.td35{width: 35px;}
    65. 

  65. 	td.td35{width: 35px;}
    66. 

  66. 	div.td25{width: 25px;}
    67. 

  67. 	td.td25{width: 25px;}
    68. 

  68. 	div.td55{width: 55px;}
    69. 

  69. 	td.td55{width: 55px;}
    70. 

  70. 	div.td50{width: 50px;}
    71. 

  71. 	td.td50{width: 50px;}
    72. 

  72. 	div.td75{width: 75px;}
    73. 

  73. 	td.td75{width: 75px;}
    74. 

  74. </style>
    75. 

  75. <SCRIPT LANGUAGE="JavaScript">
    76. 

  76. <!--
    77. 

  77. var okToProceed=false;
    78. 

  78. var currentRow=0;
    79. 

  79. //-->
    80. 

  80. </SCRIPT>
    81. 

  81. <%
    82. 

  82. if request("act")="search" then
    83. 

  83. 	if isnumeric(request("order")) then
    84. 

  84. 		OrderID = clng(request("order"))
    85. 

  85. 		mySQL="SELECT InvoiceOrderRelations.Invoice FROM InvoiceOrderRelations INNER JOIN Invoices ON InvoiceOrderRelations.Invoice = Invoices.ID WHERE (InvoiceOrderRelations.[Order] = '"& OrderID & "') AND (Invoices.IsReverse = 0) AND (Invoices.Voided = 0)"
    86. 

  86. 		Set RS1=Conn.Execute(mySQL)
    87. 

  87. 		if RS1.eof then
    88. 

  88. 			Conn.close
    89. 

  89. 			response.redirect "?errmsg=" & Server.URLEncode("اين سفارش قبلا فاكتور نشده است.")
    90. 

  90. 		else
    91. 

  91. 			theInvoice=RS1("Invoice")
    92. 

  92. 			Conn.close
    93. 

  93. 			response.redirect "?act=editInvoice&invoice=" & theInvoice
    94. 

  94. 		end if
    95. 

  95. 	elseif isnumeric(request("invoice")) then
    96. 

  96. 		response.redirect "?act=editInvoice&invoice=" & request("invoice")
    97. 

  97. 	else
    98. 

  98. 		response.redirect "?errmsg=" & Server.URLEncode("شماره سفارش قابل قبول نمي باشد.")
    99. 

  99. 	end if
    100. 

  100. '-----------------------------------------------------------------------------------------------------
    101. 

  101. '---------------------------------------------------------------------------------------- Edit Invoice
    102. 

  102. '-----------------------------------------------------------------------------------------------------
    103. 

  103. elseif request("act")="editInvoice" then
    104. 

  104. 	if isnumeric(request("invoice")) then
    105. 

  105. 		InvoiceID=clng(request("invoice"))
    106. 

  106. 		mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    107. 

  107. 		Set RS1 = conn.Execute(mySQL)
    108. 

  108. 		if RS1.eof then
    109. 

  109. 			conn.close
    110. 

  110. 			response.redirect "?errmsg=" & Server.URLEncode("فاكتور پيدا نشد.")
    111. 

  111. 		end if
    112. 

  112. 	else
    113. 

  113. 		response.redirect "?errmsg=" & Server.URLEncode("شماره فاكتور قابل قبول نمي باشد.")
    114. 

  114. 	end if
    115. 

  115. 

  116. 	customerID=		RS1("Customer")
    117. 

  117. 	creationDate=	RS1("CreatedDate")
    118. 

  118. 	IssuedDate=		RS1("IssuedDate")
    119. 

  119. 	totalPrice=		cdbl(RS1("totalPrice"))
    120. 

  120. 	totalDiscount=	cdbl(RS1("totalDiscount"))
    121. 

  121. 	totalReverse=	cdbl(RS1("totalReverse"))
    122. 

  122. 	totalVat =		cdbl(RS1("totalVat"))
    123. 

  123. 	Voided=			RS1("Voided")
    124. 

  124. 	Issued=			RS1("Issued")
    125. 

  125. 	Approved=		RS1("Approved")
    126. 

  126. 	isReverse=		RS1("IsReverse")
    127. 

  127. 	IsA=			RS1("IsA")
    128. 

  128. 	InvoiceNo=		RS1("Number")
    129. 

  129. 

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

  131. 	Set RS1 = conn.Execute(mySQL)
    132. 

  132. 	AccountNo=RS1("ID")
    133. 

  133. 	customerName=RS1("AccountTitle")
    134. 

  134. 

  135. 	RS1.close
    136. 

  136. 

  137. 	if isReverse then
    138. 

  138. 		'Check for permission for EDITTING Rev. Invoice
    139. 

  139. 		if not Auth(6 , 5) then NotAllowdToViewThisPage()
    140. 

  140. 		itemTypeName="فاكتور برگشت"
    141. 

  141. 		HeaderColor="#FF9900"
    142. 

  142. 	else
    143. 

  143. 		'Check for permission for EDITTING Invoice
    144. 

  144. 		if not Auth(6 , 3) then NotAllowdToViewThisPage()
    145. 

  145. 		itemTypeName="فاكتور"
    146. 

  146. 		HeaderColor="#C3C300"
    147. 

  147. 	end if
    148. 

  148. 

  149. 	if Voided then
    150. 

  150. 		Conn.close
    151. 

  151. 		response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور باطل شده است.")
    152. 

  152. 	elseif Issued then
    153. 

  153. 		if Auth(6 , "A") then
    154. 

  154. 			' Has the Priviledge to change the Invoice
    155. 

  155. 			response.write "<BR>"
    156. 

  156. 			if Auth(6,"N") then  
    157. 

  157. 				set rs=Conn.Execute("select * from effectiveGlrows where sys='AR' and link in (select id from arItems where type=1 and reason=1 and link=" & invoiceID & ")")
    158. 

  158. 				if rs.eof then 
    159. 

  159. 					call showAlert ("اين فاكتور صادر شده است.<br>هرچند كه شما اجازه داريد اين فاكتور را دچار تغييرات كلي كنيد<br>مسوليت مشكلات احتمالي را مي پذيريد؟",CONST_MSG_INFORM)
    160. 

  160. 				else
    161. 

  161. 					response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور سند حسابداري دارد، <br>شما كه مي‌خواهيد تغييرات كلي بديد، ابتدا بايد آنرا باطل كنيد.")
    162. 

  162. 				end if
    163. 

  163. 			else 
    164. 

  164. 				call showAlert ("اين فاكتور صادر شده است.<br>هرچند كه شما اجازه داريد كه اين فاكتور را تغيير بدهيد<br>مسوليت مشكلات احتمالي را مي پذيريد؟",CONST_MSG_INFORM) 
    165. 

  165. 			end if
    166. 

  166. 		else
    167. 

  167. 			Conn.close
    168. 

  168. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور صادر شده است.")
    169. 

  169. 		end if
    170. 

  170. 	end if 
    171. 

  171. %>
    172. 

  172. <!-- ورود اطلاعات فاكتور -->
    173. 

  173. 	<br>
    174. 

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

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

  176. 	<input type="hidden" name="VatRate" id="VatRate" value="<%=session("VatRate")%>">
    177. 

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

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

  179. 			<tr bgcolor='<%=HeaderColor%>'>
    180. 

  180. 			<td colspan='2'>
    181. 

  181. 				<TABLE width='100%'>
    182. 

  182. 				<TR>
    183. 

  183. 					<TD align="left" >شماره <%=itemTypeName%>:</TD>
    184. 

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

  185. 				</TR>
    186. 

  186. 				</TABLE></td>
    187. 

  187. 			</tr>
    188. 

  188. 			<tr bgcolor='<%=HeaderColor%>'>
    189. 

  189. 			<td colspan="2">
    190. 

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

  191. 				<TR>
    192. 

  192. 					<TD><table>
    193. 

  193. 						<tr>
    194. 

  194. 							<td align="left">حساب:</td>
    195. 

  195. 							<td align="right">
    196. 

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

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

  198. 								</span></td>
    199. 

  199. 							<td></td>
    200. 

  200. 						</tr>
    201. 

  201. 						</table></TD>
    202. 

  202. 					<TD align="left"><table>
    203. 

  203. 						<tr>
    204. 

  204. 							<td align="left">تاريخ صدور:</td>
    205. 

  205. 							<td dir="LTR">
    206. 

  206. 								<INPUT <%'if not Auth(6,"N") then response.write " readonly='readonly' "%> class="InvGenInput" NAME="issueDate" TYPE="text" maxlength="10" size="10" value="<%=IssuedDate%>"  onblur="acceptDate(this)"></td>
    207. 

  207. 							<td dir="RTL"><%="؟شنبه"%></td>
    208. 

  208. 						</tr>
    209. 

  209. 						</table></TD>
    210. 

  210. 				</TR></TABLE>
    211. 

  211. 			</td>
    212. 

  212. 			</tr>
    213. 

  213. 			<tr bgcolor='<%=HeaderColor%>'>
    214. 

  214. 				<TD align="right" width="50%">
    215. 

  215. 					مربوط به سفارش/استعلام(هاي):
    216. 

  216. 					<%
    217. 

  217. 					mySQL="SELECT * FROM InvoiceOrderRelations inner join Orders on InvoiceOrderRelations.[order]=orders.id WHERE (Invoice='"& InvoiceID & "')"
    218. 

  218. 					Set RS1 = conn.Execute(mySQL)
    219. 

  219. 					if not rs1.eof then 
    220. 

  220. 						if rs1("isOrder")="True" then 
    221. 

  221. 							isOrder="order"
    222. 

  222. 						else
    223. 

  223. 							isOrder="quote"
    224. 

  224. 						end if
    225. 

  225. 					end if
    226. 

  226. 					%>
    227. 

  227. 					<span id="orders" class="<%=isOrder%>">
    228. 

  228. <%
    229. 

  229. 					tempWriteAnd=""
    230. 

  230. 					while not(RS1.eof) 
    231. 

  231. 						response.write tempWriteAnd & Link2Trace(RS1("Order"))
    232. 

  232. 						tempWriteAnd=" و "
    233. 

  233. 						RS1.moveNext
    234. 

  234. 					wend
    235. 

  235. %>					</span>&nbsp;
    236. 

  236. 				</TD>
    237. 

  237. 				<TD align="left"><table>
    238. 

  238. 					<tr>
    239. 

  239. 						<td align="left">شماره:</td>
    240. 

  240. 						<td dir="LTR">
    241. 

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

  242. 						<td dir="RTL">
    243. 

  243. 							<INPUT TYPE="checkbox" value="on" NAME="IsA" onClick='checkIsA();' 
    244. 

  244. 							<% if IsA then response.write " checked='checked' " 
    245. 

  245. 							if Issued and not Auth(6,"N") then response.write " disabled='disabled' "%>> الف &nbsp;
    246. 

  246. 						</td>
    247. 

  247. 					</tr>
    248. 

  248. 					</table></TD>
    249. 

  249. 			</tr>
    250. 

  250. 			<tr bgcolor='#CCCC88'>
    251. 

  251. 				<TD colspan="10">
    252. 

  252. 					<div id="header">
    253. 

  253. 						<div class="td15 InvHead">#</div>
    254. 

  254. 						<div class="td40 InvHead2">آيتم</div>
    255. 

  255. 						<div class="td170 InvHead2">توضيحات</div>
    256. 

  256. 						<div class="td25 InvHead2">طول</div>
    257. 

  257. 						<div class="td25 InvHead2">عرض</div>
    258. 

  258. 						<div class="td25 InvHead2">تعداد</div>
    259. 

  259. 						<div class="td25 InvHead2">فرم</div>
    260. 

  260. 						<div class="td50 InvHead">تعداد موثر</div>
    261. 

  261. 						<div class="td40 InvHead">في</div>
    262. 

  262. 						<div class="td50 InvHead">قيمت</div>
    263. 

  263. 						<div class="td50 InvHead">تخفيف</div>
    264. 

  264. 						<div class="td40 InvHead">برگشت</div>
    265. 

  265. 						<div class="td50 InvHead4">ماليات</div>
    266. 

  266. 						<div class="td75 InvHead2">قابل پرداخت</div>
    267. 

  267. 					</div>
    268. 

  268. 					<div id="tbody">
    269. 

  269. <%		
    270. 

  270. 	i=0
    271. 

  271. 	mySQL="SELECT *,InvoiceLines.ID as lineID,isnull(invoiceItems.fee,0) as ItemFee FROM InvoiceLines LEFT OUTER JOIN invoiceItems ON InvoiceLines.item = invoiceItems.id WHERE (Invoice='"& InvoiceID & "') "
    272. 

  272. 	Set RS1 = conn.Execute(mySQL)
    273. 

  273. 	while not(RS1.eof) 
    274. 

  274. 	if RS1("Item") <> 39999 then
    275. 

  275. 		i=i+1
    276. 

  276. %>
    277. 

  277. 					<div class="invRow">
    278. 

  278. 						<div class="td15 InvLine"><%=i%></div>
    279. 

  279. 						<div class="td40 InvLine2"><%=RS1("Item")%>
    280. 

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

  281. 							<input type='hidden' name='lineID' value='<%=RS1("lineID")%>'>
    282. 

  282. 						</div>
    283. 

  283. 						<div class="td170 InvLine2" style="padding:2px 2px 3px 2px;">
    284. 

  284. 							<INPUT class="InvRowInput2" TYPE="text" NAME="Descriptions" value="<%=RS1("Description")%>" size="30">
    285. 

  285. 						</div>
    286. 

  286. 						<div class="td25 InvLine2"><%=RS1("Length")%></div>
    287. 

  287. 						<div class="td25 InvLine2"><%=RS1("Width")%></div>
    288. 

  288. 						<div class="td25 InvLine2"><%=RS1("Qtty")%></div>
    289. 

  289. 						<div class="td25 InvLine2"><%=RS1("Sets")%></div>
    290. 

  290. 						<div class="td50 InvLine"><%=Separate(RS1("AppQtty"))%></div>
    291. 

  291. 						<div class="td40 InvLine"><%=Separate(RS1("Price")/RS1("AppQtty"))%></div>
    292. 

  292. 						<div class="td50 InvLine"><%=Separate(RS1("Price"))%></div>
    293. 

  293. 						<div class="td50 InvLine"><%=Separate(RS1("Discount"))%></div>
    294. 

  294. 						<div class="td40 InvLine"><%=Separate(RS1("Reverse"))%></div>
    295. 

  295. 						<div class="td50 InvLine4"><%=Separate(RS1("Vat"))%></div>
    296. 

  296. 						<div class="td75 InvLine2"><%=Separate(RS1("Price") - RS1("Discount") - RS1("Reverse") + RS1("Vat"))%></div>
    297. 

  297. 					</div>
    298. 

  298. 

  299. <%
    300. 

  300. 	end if
    301. 

  301. 		RS1.moveNext
    302. 

  302. 	wend
    303. 

  303. 	RS1.close
    304. 

  304. %>
    305. 

  305. 							
    306. 

  306. 					</div>
    307. 

  307. 				</TD>
    308. 

  308. 			</TR>
    309. 

  309. 			
    310. 

  310. 			<tr bgcolor='#CCCC88'>
    311. 

  311. 			<TD colspan="10"><div>
    312. 

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

  313. 			<tr bgcolor='#CCCC88'>
    314. 

  314. 				<td colspan='9' width='500px'>***تخفيف رند فاكتور بعد از ثبت درج خواهد شد***</td>
    315. 

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

  316. 				<!-- S A M -->
    317. 

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

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

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

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

  321. 			</tr>
    322. 

  322. 			<tr bgcolor='#CCCC88'>
    323. 

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

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

  325. 				<!-- S A M -->
    326. 

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

  327. 				<td dir="LTR"><INPUT readonly class="InvHeadInput3" TYPE="text" Name="TPReverse" value="<%=Pourcent(totalReverse,totalPrice) & "%برگشت"%>" size="5"></td>
    328. 

  328. 				<td dir="LTR"><INPUT readonly calss="InvHeadINput" TYPE="text" size="6" value="<%=session("VatRate")%>%ماليات"></td>
    329. 

  329. 				<td dir="LTR"><INPUT readonly class="InvHeadInput" TYPE="text" size="9" value="رند شده"></td>
    330. 

  330. 			</tr>
    331. 

  331. 			</TABLE></div></TD>
    332. 

  332. 			</TR>
    333. 

  333. 		</table>
    334. 

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

  335. 		<tr>
    336. 

  336. 			<td align='center'>&nbsp;<!-- <INPUT class="InvGenButton" TYPE="button" value="تاييد فاكتور" onclick="ApproveInvoice();"> --></td>
    337. 

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

  338. 			<td align='center'>&nbsp;<!-- <INPUT class="InvGenButton" TYPE="button" value="صدور فاكتور" onclick="IssueInvoice();"> --></td>
    339. 

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

  340. 			<td align='center'><INPUT class="InvGenButton" TYPE="button" value="ذخيره " onclick="submitOperations();"></td>
    341. 

  341. 			<td align='center'><INPUT class="InvGenButton" TYPE="button" value="انصراف" onclick="window.location='AccountReport.asp?act=showInvoice&invoice=<%=InvoiceID%>';"></td>
    342. 

  342. 		</tr>
    343. 

  343. 		</TABLE>
    344. 

  344. 		</FORM>
    345. 

  345. 		<SCRIPT LANGUAGE="JavaScript">
    346. 

  346. 		<!--
    347. 

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

  348. 		//-->
    349. 

  349. 		</SCRIPT>
    350. 

  350. 

  351. <%
    352. 

  352. elseif request("act")="submitEdit" then
    353. 

  353. 

  354. 	'******************** Checking and Preparing Input ****************
    355. 

  355. 	errorFound=false
    356. 

  356. 	ON ERROR RESUME NEXT
    357. 

  357. 

  358. 		InvoiceID=		clng(request.form("InvoiceID"))
    359. 

  359. 		CustomerID=		clng(request.form("CustomerID"))
    360. 

  360. 

  361. 		issueDate=	request.form("issueDate")
    362. 

  362. ' response.write "is A: " & request.form("IsA")
    363. 

    364. 

  364. 		if request.form("IsA") = "on" then 
    365. 

  365. 			IsA=1 
    366. 

  366. 			InvoiceNo=request.form("InvoiceNo")
    367. 

  367. 			if InvoiceNo <> "" then InvoiceNo = cdbl(InvoiceNo)
    368. 

  368. 		else 
    369. 

  369. 			set rs = Conn.Execute("select * from invoices where id=" & invoiceID)
    370. 

  370. 			IsA=0
    371. 

  371. 			InvoiceNo=""
    372. 

  372. 			if rs("issued") and not auth(6,"N") then
    373. 

  373. 				if rs("isA") then 
    374. 

  374. 					IsA=1 
    375. 

  375. 					InvoiceNo=request.form("InvoiceNo")
    376. 

  376. 					if InvoiceNo <> "" then InvoiceNo = cdbl(InvoiceNo)
    377. 

  377. 				end if
    378. 

  378. 			end if
    379. 

  379. 		end if
    380. 

  380. ' response.write "<br>is A now:" & IsA
    381. 

  381. ' response.end
    382. 

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

  383. 			theOrder = clng(request.form("selectedOrders")(i))
    384. 

  384. 			mySQL="SELECT ID FROM Orders WHERE ID=" & theOrder 
    385. 

  385. 			Set rs=conn.Execute(mySQL)
    386. 

  386. 			if rs.eof then
    387. 

  387. 				errorFound=True
    388. 

  388. 				exit for
    389. 

  389. 			end if
    390. 

  390. 			rs.close
    391. 

  391. 		next
    392. 

  392. 

  393. 		for i=1 to request.form("selectedQuotes").count
    394. 

  394. 			theQuote=		clng(request.form("selectedQuotes")(i))
    395. 

  395. 			mySQL="SELECT ID FROM Quotes WHERE ID=" & theQuote 
    396. 

  396. 			Set rs=conn.Execute(mySQL)
    397. 

  397. 			if rs.eof then
    398. 

  398. 				errorFound=True
    399. 

  399. 				exit for
    400. 

  400. 			end if
    401. 

  401. 			rs.close
    402. 

  402. 		next
    403. 

  403. 

  404. 		Set rs= Nothing
    405. 

  405. 

  406. 		mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    407. 

  407. 		Set rs= conn.Execute(mySQL)
    408. 

  408. 		if NOT rs.eof then
    409. 

  409. 			voided=		rs("Voided")
    410. 

  410. 			issued=		rs("Issued")
    411. 

  411. 			approved=	rs("Approved")
    412. 

  412. 			isReverse=	rs("IsReverse")
    413. 

  413. 			ApprovedBy=	rs("ApprovedBy")
    414. 

  414. 			if issued and not auth(6 , "N") then isA=rs("isA")
    415. 

  415. 		else
    416. 

  416. 			errorFound=True
    417. 

  417. 		end if
    418. 

  418. 

  419. 		if Err.Number<>0 then
    420. 

  420. 			Err.clear
    421. 

  421. 			errorFound=True
    422. 

  422. 		end if
    423. 

  423. 

  424. 		if NOT errorFound then
    425. 

  425. 			TotalPrice	=		0
    426. 

  426. 			TotalDiscount =		0
    427. 

  427. 			TotalReverse =		0
    428. 

  428. 			TotalReceivable =	0
    429. 

  429. 			TotalVat =			0
    430. 

  430. 			RFD =				0
    431. 

  431. 

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

  433. 

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

  435. 				mySQL="SELECT ID FROM InvoiceItems WHERE ID=" & theItem 
    436. 

  436. 				Set rs=conn.Execute(mySQL)
    437. 

  437. 				if rs.eof then
    438. 

  438. 					errorFound=True
    439. 

  439. 					exit for
    440. 

  440. 				end if
    441. 

  441. 				rs.close
    442. 

  442. 

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

  444. 

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

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

  447. 

  448. 				theDiscount =		text2value(request.form("Discounts")(i))
    449. 

  449. 				theReverse =		text2value(request.form("Reverses")(i))
    450. 

  450. 

  451. 				theLength =			text2value(request.form("Lengths")(i))
    452. 

  452. 				theWidth =			text2value(request.form("Widths")(i))
    453. 

  453. 				theQtty =			text2value(request.form("Qttys")(i))
    454. 

  454. 				theSets =			text2value(request.form("Sets")(i))
    455. 

  455. 				theVat =			text2value(request.form("Vat")(i))
    456. 

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

    458. 

  458. 				if theDiscount <>"" then theDiscount= clng(theDiscount)
    459. 

  459. 				if theReverse <> "" then theReverse = clng(theReverse)
    460. 

  460. 

  461. 				if theLength <>	"" then  theLength	= cdbl(theLength)
    462. 

  462. 				if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 
    463. 

  463. 				if theQtty <> ""   then	 theQtty	= clng(theQtty)
    464. 

  464. 				if theSets <> ""   then	 theSets	= clng(theSets)
    465. 

  465. 

  466. 				TotalPrice	=		TotalPrice + thePrice
    467. 

  467. 				TotalDiscount =		TotalDiscount + theDiscount
    468. 

  468. 				TotalReverse =		TotalReverse + theReverse
    469. 

  469. 				TotalReceivable =	TotalReceivable + (thePrice - theDiscount - theReverse + theVat)
    470. 

  470. 				TotalVat =			TotalVat + theVat
    471. 

  471. 

  472. 			next
    473. 

  473. 		RFD = TotalReceivable - fix(TotalReceivable / 1000) * 1000
    474. 

  474. 		'RFD = RFD / 1.03
    475. 

  475. 		TotalReceivable = TotalReceivable - RFD
    476. 

  476. 		TotalDiscount = TotalDiscount + RFD
    477. 

  477. 		end if
    478. 

  478. 

  479. 		if Err.Number<>0 then
    480. 

  480. 			Err.clear
    481. 

  481. 			errorFound=True
    482. 

  482. 		end if
    483. 

  483. 

  484. 	ON ERROR GOTO 0
    485. 

  485. 

  486. 	if errorFound then
    487. 

  487. 		response.write "<br>" 
    488. 

  488. 		call showAlert ("خطا در ورودي",CONST_MSG_ERROR) 
    489. 

  489. 		response.end
    490. 

  490. 	end if
    491. 

  491. 	'^^^^---------------- Checking Input ------------^^^^
    492. 

    493. 

  493. 	if isReverse then
    494. 

  494. 		'Check for permission for EDITTING Rev. Invoice
    495. 

  495. 		if not Auth(6 , 5) then NotAllowdToViewThisPage()
    496. 

  496. 		itemType=4 
    497. 

  497. 	else
    498. 

  498. 		'Check for permission for EDITTING Invoice
    499. 

  499. 		if not Auth(6 , 3) then NotAllowdToViewThisPage()
    500. 

  500. 		itemType=1
    501. 

  501. 	end if
    502. 

  502. 

  503. 	if voided then
    504. 

  504. 		Conn.close
    505. 

  505. 		response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا باطل شده است.")
    506. 

  506. 	elseif issued then
    507. 

  507. 		if Auth(6 , "A") then
    508. 

  508. 			' Has the Priviledge to change the Invoice / Reverse Invoice
    509. 

    510. 

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

  511. 			'Changed by Kid ! 831124
    512. 

  512. 			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 = '"& InvoiceID & "')"
    513. 

  513. 

  514. 			Set RS2 = conn.Execute(mySQL)
    515. 

  515. 

  516. 			if RS2.eof then
    517. 

  517. 				Conn.close
    518. 

  518. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("خطا !! <br><br> پيدا نشد.")
    519. 

  519. 			else
    520. 

  520. 				if RS2("GL_Update") = False  then
    521. 

  521. 					tmpGL=RS2("GL")
    522. 

  522. 					tmpGLDoc=RS2("GLDocID")
    523. 

  523. 					Conn.close
    524. 

  524. 					response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("قبلا براي اين فاكتور سند حسابداري صادر شده است.<br><br>دفتر كل:"& tmpGL & " سند شماره: "& tmpGLDoc & " .")
    525. 

  525. 				else
    526. 

  526. 					ARItemID=RS2("ID")
    527. 

  527. 					IssuedButEdit=true
    528. 

  528. 				end if
    529. 

  529. 			end if
    530. 

  530. 			RS2.close
    531. 

  531. 		else
    532. 

  532. 			Conn.close
    533. 

  533. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا صادر شده است.")
    534. 

  534. 		end if
    535. 

  535. 	elseif approved then 
    536. 

  536. 		call UnApproveInvoice ( InvoiceID , ApprovedBy )
    537. 

  537. 	end if
    538. 

  538. 	
    539. 

  539. 

  540. 	'******************* Editing  *******************
    541. 

  541. 	' ****
    542. 

  542. 	if IssuedButEdit then
    543. 

  543. 		' Only Updating  IssuedDate, Number & no IsA
    544. 

  544. 		'				 and related Orders
    545. 

    546. 

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

  547. 		If Not CheckDateFormat(issueDate) Then
    548. 

  548. 			Conn.close
    549. 

  549. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("تاريخ وارد شده معتبر نيست.")
    550. 

  550. 		end if
    551. 

  551. 

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

  553. 			Conn.close
    554. 

  554. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("خطا!<br>تاريخ وارد شده معتبر نيست. <br>(در سال مالي جاري نيست)")
    555. 

  555. 		end if 
    556. 

  556. 		'----
    557. 

  557. 	'----- Check GL is closed
    558. 

    559. 

  559. 	if (session("IsClosed")="True") then
    560. 

  560. 		Conn.close
    561. 

  561. 		response.redirect "?errMsg=" & Server.URLEncode("خطا! سال مالي جاري بسته شده و شما قادر به تغيير در آن نيستيد.")
    562. 

  562. 	end if 
    563. 

  563. 	'----
    564. 

    565. 

  565. 		mySQL="UPDATE Invoices SET IssuedDate=N'" & issueDate & "', Number='"& InvoiceNo & "', IsA='"&IsA&"',issuedDate_en=dbo.udf_date_solarToDate(cast(substring('" & issueDate & "',1,4) as int),cast(substring('" & issueDate & "',6,2) as int),cast(substring('" & issueDate & "',9,2) as int)) WHERE (ID='"& InvoiceID & "')"
    566. 

  566. 		'response.write mySQL
    567. 

  567. 		'response.end
    568. 

  568. 		conn.Execute(mySQL)
    569. 

  569. '---------------------------------------------------------------------------------------------------
    570. 

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

  571. 			if request.form("lineID") <> "" then
    572. 

  572. 			'response.write text2value(request.form("lineID")(i))
    573. 

  573. 				theID = 			clng(text2value(request.form("lineID")(i)))
    574. 

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

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

  576. 				'theAppQtty =		cdbl(text2value(request.form("AppQttys")(i)))
    577. 

  577. 				theLength =			text2value(request.form("Lengths")(i))
    578. 

  578. 				theWidth =			text2value(request.form("Widths")(i))
    579. 

  579. 				theQtty =			text2value(request.form("Qttys")(i))
    580. 

  580. 				theSets =			text2value(request.form("Sets")(i))
    581. 

  581. 				if theLength <>	"" then	theLength	= cdbl(theLength)
    582. 

  582. 				if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 
    583. 

  583. 				if theQtty <> ""	  then	 theQtty	= clng(theQtty)
    584. 

  584. 				if theSets <> ""	  then	 theSets	= clng(theSets)
    585. 

  585. 	
    586. 

  586. 				mySQL="UPDATE InvoiceLines SET Item='" & theItem & "', Description=N'" & theDescription & "', Length='" & theLength & "', Width='" & theWidth & "', Qtty='" & theQtty & "', Sets='" & theSets & "' WHERE ID = " & theID
    587. 

  587. 				conn.Execute(mySQL)
    588. 

  588. 'response.write "<br>" & mySQL
    589. 

  589. 'response.end				
    590. 

  590. 			end if
    591. 

  591. 		next
    592. 

  592. 		 
    593. 

  593. 

  594. '---------------------------------------------------------------------------------------------------
    595. 

  595. 		if IsA then
    596. 

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

  597. 		else
    598. 

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

  599. 		end if
    600. 

  600. 		
    601. 

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

    603. 

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

  604. 

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

  606. 

  607. 		'**************** Updating Invoice-Order Relations ****************
    608. 

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

  609. 		'Changed By Kid ! 840509 
    610. 

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

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

  612. 		mySQL ="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] 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 & "'))))"
    613. 

  613. 		conn.Execute(mySQL)
    614. 

  614. 

  615. ' 		mySQL ="DELETE FROM InvoiceOrderRelations WHERE (Invoice='" & InvoiceID & "')"
    616. 

  616. ' 		'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 & "')))"
    617. 

  617. ' 		conn.Execute(mySQL)
    618. 

  618. ' 		
    619. 

  619. ' 		for i=1 to request.form("selectedOrders").count
    620. 

  620. ' 			theOrder=	clng(request.form("selectedOrders")(i))
    621. 

  621. ' 			mySQL="INSERT INTO InvoiceOrderRelations (Invoice,[Order]) VALUES ('" & InvoiceID & "', '" & theOrder & "')"
    622. 

  622. ' 			conn.Execute(mySQL)
    623. 

  623. ' 		next
    624. 

    625. 

  625. 		conn.Execute("UPDATE Orders SET Closed=1 WHERE ID IN (SELECT [Order] FROM InvoiceOrderRelations WHERE (Invoice='" & InvoiceID & "'))")
    626. 

  626. 		'^^^^------------ Updating Invoice-Order Relations ------------^^^^
    627. 

    628. 

  628. 

  629. 		'**************** Updating Invoice-Quote Relations ****************
    630. 

  630. 		mySQL ="UPDATE Quotes SET Closed=0 WHERE ID IN (SELECT [Quote] FROM InvoiceQuoteRelations WHERE (Invoice = '" & InvoiceID & "') AND ([Quote] NOT IN (SELECT InvoiceQuoteRelations.[Quote] FROM Invoices INNER JOIN InvoiceQuoteRelations ON Invoices.ID = InvoiceQuoteRelations.Invoice WHERE (Invoices.Issued = 1) AND (Invoices.Voided = 0) AND (Invoices.isReverse = 0) AND (Invoices.ID <> '" & InvoiceID & "'))))"
    631. 

  631. 		conn.Execute(mySQL)
    632. 

  632. 

  633. 		mySQL ="DELETE FROM InvoiceQuoteRelations WHERE (Invoice='" & InvoiceID & "')"
    634. 

  634. 		conn.Execute(mySQL)
    635. 

  635. 

  636. 		for i=1 to request.form("selectedQuotes").count
    637. 

  637. 			theQuote=	clng(request.form("selectedQuotes")(i))
    638. 

  638. 			mySQL="INSERT INTO InvoiceQuoteRelations (Invoice,[Quote]) VALUES ('" & InvoiceID & "', '" & theQuote & "')"
    639. 

  639. 			conn.Execute(mySQL)
    640. 

  640. 		next
    641. 

  641. 

  642. 		conn.Execute("UPDATE Quotes SET Closed=1 WHERE ID IN (SELECT [Quote] FROM InvoiceQuoteRelations WHERE (Invoice='" & InvoiceID & "'))")
    643. 

  643. 		'^^^^------------ Updating Invoice-Quote Relations ------------^^^^
    644. 

  644. 		mySQL = "SELECT * FROM ARItems WHERE Type=1 AND Link=" & InvoiceID
    645. 

  645. 		set RSSS=conn.Execute(mySQL)
    646. 

  646. 		if RSSS.eof or not Auth(6 , "N") then 
    647. 

  647. 			response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID & "&msg=" &Server.URLEncode("اين فاكنور صادر شده و شما مجاز به تغييرات كلي در آن نيستيد.")
    648. 

  648. 		else
    649. 

  649. 			if RSSS("GL_Update") then 
    650. 

  650. 			' In this secssion we update all issued invoice has not GLs
    651. 

  651. 			'---------------------------------------------------------------------------------------------------
    652. 

  652. 			'---------------------------------------------------------------------------------------------------
    653. 

  653. 			'---------------------------------------------------------------------------------------------------
    654. 

  654. 			'---------------------------------------------------------------------------------------------------
    655. 

  655. 			'---------------------------------------------------------------------------------------------------	
    656. 

  656. 				set RSinvoice=conn.Execute("SELECT * FROM Invoices WHERE ID="&InvoiceID)
    657. 

  657. 				'response.write TotalReceivable & "<br>"
    658. 

  658. 				'response.write totalVat & "<br>"
    659. 

  659. 				'response.write TotalPrice & "<br>"
    660. 

  660. 				'response.write TotalDiscount & "<br>"
    661. 

  661. 				'response.end
    662. 

  662. 				if (not RSinvoice.eof) and (clng(RSinvoice("TotalReceivable"))<>TotalReceivable or Cdbl(RSinvoice("TotalVat"))<>TotalVat) then
    663. 

  663. 					oldTotalReceivable = CLng(RSinvoice("TotalReceivable"))
    664. 

  664. 					
    665. 

  665. 					
    666. 

  666. 					mySQL="UPDATE Invoices SET Customer='"& CustomerID & "', Number='"& InvoiceNo & "', TotalPrice='"& TotalPrice & "', TotalDiscount='"& TotalDiscount & "', TotalReverse='"& TotalReverse & "', TotalReceivable='"& TotalReceivable & "' , IsA="& IsA & ", TotalVat='" & totalVat & "' WHERE (ID='"& InvoiceID & "')"
    667. 

  667. 					conn.Execute(mySQL)
    668. 

  668. 			
    669. 

  669. 					mySQL="DELETE FROM InvoiceLines WHERE (Invoice='"& InvoiceID & "')"
    670. 

  670. 					conn.Execute(mySQL)
    671. 

  671. 			
    672. 

  672. 					'**************************** Inserting Invoice Lines ****************
    673. 

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

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

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

  676. 			
    677. 

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

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

  679. 			
    680. 

  680. 						theDiscount =		text2value(request.form("Discounts")(i))
    681. 

  681. 						theReverse =		text2value(request.form("Reverses")(i))
    682. 

  682. 			
    683. 

  683. 						theLength =			text2value(request.form("Lengths")(i))
    684. 

  684. 						theWidth =			text2value(request.form("Widths")(i))
    685. 

  685. 						theQtty =			text2value(request.form("Qttys")(i))
    686. 

  686. 						theSets =			text2value(request.form("Sets")(i))
    687. 

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

  688. 						theHasVat =			text2value(request.form("hasVat")(i))
    689. 

  689. 			
    690. 

  690. 						if theDiscount <>"" then theDiscount= clng(theDiscount)
    691. 

  691. 						if theReverse <> "" then theReverse = clng(theReverse)
    692. 

  692. 			
    693. 

  693. 						if theLength <>	"" then	theLength	= cdbl(theLength)
    694. 

  694. 						if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 
    695. 

  695. 						if theQtty <> ""	  then	 theQtty	= clng(theQtty)
    696. 

  696. 						if theSets <> ""	  then	 theSets	= clng(theSets)
    697. 

  697. 			
    698. 

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

  699. 						conn.Execute(mySQL)
    700. 

  700. 					next 
    701. 

  701. 					if RFD > 0 then
    702. 

  702. 						theItem =			39999
    703. 

  703. 						theDescription =	"تخفيف رند فاكتور"
    704. 

  704. 			
    705. 

  705. 						theAppQtty =		0
    706. 

  706. 						thePrice =			0
    707. 

  707. 			
    708. 

  708. 						theDiscount =		RFD
    709. 

  709. 						theReverse =		0
    710. 

  710. 			
    711. 

  711. 						theLength =			0
    712. 

  712. 						theWidth =			0
    713. 

  713. 						theQtty =			0
    714. 

  714. 						theSets =			0
    715. 

  715. 						theVat =			0
    716. 

  716. 						mySQL="INSERT INTO InvoiceLines (Invoice, Item, Description, Length, Width, Qtty, Sets, AppQtty, Price, Discount, Reverse, Vat) VALUES ('"& InvoiceID & "', '" & theItem & "', N'" & theDescription & "', '" & theLength & "', '" & theWidth & "', '" & theQtty & "', '" & theSets & "', '" & theAppQtty & "', '" & thePrice & "', '" & theDiscount & "', '" & theReverse & "', '" & theVat & "')"
    717. 

  717. 						conn.Execute(mySQL)
    718. 

  718. 					end if
    719. 

  719. 					mySQL="UPDATE ARItems SET AmountOriginal='"& TotalReceivable &"', RemainedAmount='"& TotalReceivable &"' ,Vat='"& totalVat &"', FullyApplied = 0 WHERE ID=" & RSSS("ID")
    720. 

  720. 					Conn.Execute(mySQL)
    721. 

  721. 					Conn.Execute("Delete from ARItemsRelations where DebitARItem = " & RSSS("ID"))
    722. 

  722. 					Conn.Execute(mySQL)
    723. 

  723. 					mySQL="UPDATE Accounts SET ARBalance=ARBalance - "&TotalReceivable - oldTotalReceivable&" WHERE id=" & CustomerID
    724. 

  724. 					conn.Execute(mySQL)
    725. 

  725. 				end if
    726. 

  726. 			'end if
    727. 

  727. 			'****
    728. 

  728. 			'^^^^--------------- Editing  ---------------^^^^
    729. 

  729. 		'--------------------------------------------------------------------------------------------------
    730. 

  730. 		'---------------------------------------------------------------------------------------------------
    731. 

  731. 		'---------------------------------------------------------------------------------------------------
    732. 

  732. 			response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID & "&msg=" &Server.URLEncode("فاكتور شما دچار تغييرات كلي شد")
    733. 

  733. 		'---------------------------------------------------------------------------------------------------
    734. 

  734. 		'---------------------------------------------------------------------------------------------------
    735. 

  735. 		'---------------------------------------------------------------------------------------------------
    736. 

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

  737. 			else
    738. 

  738. 				response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID & "&msg=" &Server.URLEncode("براي اين فاكتور قبلا سند حسابداري صادر شده، پس آنرا نمي‌توان ويرايش كرد.")
    739. 

  739. 			end if
    740. 

  740. 		end if
    741. 

  741. 		conn.close
    742. 

  742. 		response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID & "&msg=" &Server.URLEncode("اين فاكتور قبلا صادر شده بود.<br>هرچند كه شما اجازه داريد كه اين فاكتور را تغيير بدهيد<br>بهتر است كه اين كار را تكرار نكنيد.")
    743. 

  743. 	else
    744. 

  744. ' S A M
    745. 

  745. 'response.write(totalDiscount)
    746. 

  746. 'response.end
    747. 

  747. 		mySQL="UPDATE Invoices SET Customer='"& CustomerID & "', Number='"& InvoiceNo & "', TotalPrice='"& TotalPrice & "', TotalDiscount='"& TotalDiscount & "', TotalReverse='"& TotalReverse & "', TotalReceivable='"& TotalReceivable & "' , IsA='"& IsA & "', TotalVat='" & totalVat & "' WHERE (ID='"& InvoiceID & "')"
    748. 

  748. 		conn.Execute(mySQL)
    749. 

  749. 

  750. 		mySQL="DELETE FROM InvoiceLines WHERE (Invoice='"& InvoiceID & "')"
    751. 

  751. 		conn.Execute(mySQL)
    752. 

  752. 

  753. 		'**************************** Inserting Invoice Lines ****************
    754. 

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

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

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

  757. 

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

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

  760. 

  761. 			theDiscount =		text2value(request.form("Discounts")(i))
    762. 

  762. 			theReverse =		text2value(request.form("Reverses")(i))
    763. 

  763. 

  764. 			theLength =			text2value(request.form("Lengths")(i))
    765. 

  765. 			theWidth =			text2value(request.form("Widths")(i))
    766. 

  766. 			theQtty =			text2value(request.form("Qttys")(i))
    767. 

  767. 			theSets =			text2value(request.form("Sets")(i))
    768. 

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

  769. 			theHasVat =			text2value(request.form("hasVat")(i))
    770. 

  770. 

  771. 			if theDiscount <>"" then theDiscount= clng(theDiscount)
    772. 

  772. 			if theReverse <> "" then theReverse = clng(theReverse)
    773. 

  773. 

  774. 			if theLength <>	"" then  theLength	= cdbl(theLength)
    775. 

  775. 			if theWidth <> ""  then	 theWidth	= cdbl(theWidth) 
    776. 

  776. 			if theQtty <> ""   then	 theQtty	= clng(theQtty)
    777. 

  777. 			if theSets <> ""   then	 theSets	= clng(theSets)
    778. 

  778. 

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

  780. 			conn.Execute(mySQL)
    781. 

  781. 		next 
    782. 

  782. 		if RFD > 0 then
    783. 

  783. 			theItem =			39999
    784. 

  784. 			theDescription =	"تخفيف رند فاكتور"
    785. 

  785. 

  786. 			theAppQtty =		0
    787. 

  787. 			thePrice =			0
    788. 

  788. 

  789. 			theDiscount =		RFD
    790. 

  790. 			theReverse =		0
    791. 

  791. 

  792. 			theLength =			0
    793. 

  793. 			theWidth =			0
    794. 

  794. 			theQtty =			0
    795. 

  795. 			theSets =			0
    796. 

  796. 			theVat =			0
    797. 

  797. 			mySQL="INSERT INTO InvoiceLines (Invoice, Item, Description, Length, Width, Qtty, Sets, AppQtty, Price, Discount, Reverse, Vat) VALUES ('"& InvoiceID & "', '" & theItem & "', N'" & theDescription & "', '" & theLength & "', '" & theWidth & "', '" & theQtty & "', '" & theSets & "', '" & theAppQtty & "', '" & thePrice & "', '" & theDiscount & "', '" & theReverse & "', '" & theVat & "')"
    798. 

  798. 			conn.Execute(mySQL)
    799. 

  799. 		end if
    800. 

  800. 

  801. 		'**************** Updating Invoice-Order Relations ****************
    802. 

  802. ' 		mySQL="DELETE FROM InvoiceOrderRelations WHERE (Invoice='" & InvoiceID & "')"
    803. 

  803. ' 		conn.Execute(mySQL)
    804. 

  804. '		response.write "aaaa:"
    805. 

  805. '		response.write request.form("selectedOrders").count
    806. 

  806. ' 		for i=1 to request.form("selectedOrders").count
    807. 

  807. ' 			theOrder=	clng(request.form("selectedOrders")(i))
    808. 

  808. ' 			mySQL="INSERT INTO InvoiceOrderRelations (Invoice,[Order]) VALUES ('" & InvoiceID & "', '" & theOrder & "')"
    809. 

  809. ' 			'--------------------------SAM------------------------------
    810. 

  810. ' '			response.write mySQL
    811. 

  811. ' 			'-----------------------------------------------------------
    812. 

  812. ' 			conn.Execute(mySQL)
    813. 

  813. ' 		next
    814. 

  814. 		'^^^^------------ Updating Invoice-Order Relations ------------^^^^
    815. 

    816. 

  816. 		' '**************** Updating Invoice-Quote Relations ****************
    817. 

  817. ' 		mySQL="DELETE FROM InvoiceQuoteRelations WHERE (Invoice='" & InvoiceID & "')"
    818. 

  818. ' 		conn.Execute(mySQL)
    819. 

  819. ' 		for i=1 to request.form("selectedQuotes").count
    820. 

  820. ' 			theQuote=	clng(request.form("selectedQuotes")(i))
    821. 

  821. ' 			mySQL="INSERT INTO InvoiceQuoteRelations (Invoice,[Quote]) VALUES ('" & InvoiceID & "', '" & theQuote & "')"
    822. 

  822. ' 			conn.Execute(mySQL)
    823. 

  823. ' 		next
    824. 

  824. 		'^^^^------------ Updating Invoice-Quote Relations ------------^^^^
    825. 

    826. 

  826. 	end if
    827. 

  827. 	'****
    828. 

  828. 	'^^^^--------------- Editing  ---------------^^^^
    829. 

    830. 

  830. 	response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID
    831. 

  831. '--------------------------------------------------------------------------------------------------------------------
    832. 

  832. elseif request("act")="approveInvoice" then
    833. 

  833. 

  834. 	if not Auth(6 , "C") then		
    835. 

  835. 		'Doesn't have the Priviledge to APPROVE the Invoice 
    836. 

  836. 		response.write "<br>" 
    837. 

  837. 		call showAlert ("شما مجاز به تاييد فاكتور نيستيد",CONST_MSG_ERROR) 
    838. 

  838. 		response.end
    839. 

  839. 	end if
    840. 

  840. 	
    841. 

  841. 	if request("invoice")<>"" then
    842. 

  842. 

  843. 		InvoiceID=request("invoice")
    844. 

  844. 		if not(isnumeric(request("invoice"))) then
    845. 

  845. 			ShowErrorMessage("خطا")
    846. 

  846. 			response.end
    847. 

  847. 		end if
    848. 

  848. 		mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    849. 

  849. 		Set RS1 = conn.Execute(mySQL)
    850. 

  850. 		if RS1.eof then
    851. 

  851. 			ShowErrorMessage("پيدا نشد ")
    852. 

  852. 			response.end
    853. 

  853. 		else
    854. 

  854. 		
    855. 

  855. 			'-------------------------------------------------------------------------
    856. 

  856. 			'---- CHECK pickup list
    857. 

  857. 			'-------------------------------------------------------------------------
    858. 

  858. 			mySQL="select distinct sales.item, sales.description, sales.appQtty,pik.itemID,pik.itemName,pik.qtty from (select invoiceLines.item,max(invoiceLines.description) as description,sum(invoiceLines.appQtty) as appQtty, InventoryInvoiceRelations.inventoryItem from InvoiceLines inner join Invoices on invoices.ID=invoiceLines.Invoice inner join InventoryInvoiceRelations on InventoryInvoiceRelations.invoiceItem=invoiceLines.Item WHERE Invoices.id=" & InvoiceID & " group by invoiceLines.item, InventoryInvoiceRelations.inventoryItem) as sales full outer join (SELECT InventoryPickuplistItems.itemID, max(InventoryPickuplistItems.ItemName) AS ItemName, sum(InventoryPickuplistItems.Qtty) AS Qtty, InventoryInvoiceRelations.invoiceItem FROM InventoryPickuplistItems INNER JOIN InventoryPickuplists ON InventoryPickuplistItems.pickupListID = InventoryPickuplists.id INNER JOIN InvoiceOrderRelations ON InventoryPickuplistItems.Order_ID = InvoiceOrderRelations.[Order] inner join invoices on InvoiceOrderRelations.invoice=invoices.id inner join InventoryInvoiceRelations on InventoryInvoiceRelations.inventoryItem=InventoryPickuplistItems.itemID WHERE NOT InventoryPickuplists.Status = N'del' and InventoryPickuplistItems.CustomerHaveInvItem=0 and Invoices.id=" & InvoiceID & " group by InventoryPickuplistItems.itemID, InventoryInvoiceRelations.invoiceItem  ) as pik on pik.itemID=sales.inventoryItem or pik.invoiceItem=sales.item"
    859. 

  859. 			set rs=Conn.Execute (mySQL)
    860. 

  860. 			errmsg=""
    861. 

  861. 			msg=""
    862. 

  862. 			while not rs.eof
    863. 

  863. 				skeepNext=0
    864. 

  864. 				if IsNull(rs("appQtty")) then 
    865. 

  865. 					errmsg = errmsg & "براي حواله‌ي "  & rs("itemName") & " شما هيچ آيتمي در فاكتور ثبت نكرديد<br>"
    866. 

  866. 				else
    867. 

  867. 					if IsNull(rs("qtty")) then 
    868. 

  868. 						errmsg = errmsg & "براي " & rs("description") & " شما هيچ حواله‌اي صادر نكرده‌ايد<br>"
    869. 

  869. 					else
    870. 

  870. 						if CDbl(rs("qtty")) <> CDbl(rs("appQtty")) then 
    871. 

  871. 							item=rs("item")
    872. 

  872. 							appQtty=CDbl(rs("appQtty"))
    873. 

  873. 							desc=rs("description")
    874. 

  874. 							itemName=""
    875. 

  875. 							sumQtty=0
    876. 

  876. 							do
    877. 

  877. 								skeepNext=0
    878. 

  878. 								if item<>rs("item") then exit do
    879. 

  879. 								sumQtty=sumQtty+cdbl(rs("qtty"))
    880. 

  880. 								if itemName="" then 
    881. 

  881. 									itemName = rs("itemName")
    882. 

  882. 								else
    883. 

  883. 									itemName=itemName & ", " & rs("itemName")
    884. 

  884. 								end if
    885. 

  885. 								rs.moveNext
    886. 

  886. 								skeepNext=1
    887. 

  887. 								if rs.eof then exit do
    888. 

  888. 							loop while item=rs("item") 
    889. 

  889. 							'rs.MovePrevious
    890. 

  890. 							
    891. 

  891. 							if appQtty<>sumQtty then errmsg = errmsg & "تعداد حواله <b>" & itemName & "</b> با تعداد <b>" & desc & "</b> مغاير است.<br>" 
    892. 

  892. 						end if
    893. 

  893. 					end if
    894. 

  894. 				end if
    895. 

  895. 				if skeepNext=0 then rs.moveNext
    896. 

  896. 			wend
    897. 

  897. 			set rs=nothing
    898. 

  898. 			
    899. 

  899. 			'-------------------------------------------------------------------------
    900. 

  900. 			'---- CHECK out Service
    901. 

  901. 			'-------------------------------------------------------------------------
    902. 

  902. 			mySQL="select * from (SELECT PurchaseOrders.TypeID,max(PurchaseRequests.TypeName) as TypeName, sum(PurchaseOrders.Qtty) as Qtty FROM PurchaseOrders FULL OUTER JOIN PurchaseRequestOrderRelations RIGHT OUTER JOIN PurchaseRequests INNER JOIN InvoiceOrderRelations ON PurchaseRequests.Order_ID = InvoiceOrderRelations.[Order] ON PurchaseRequestOrderRelations.Req_ID = PurchaseRequests.ID ON PurchaseOrders.ID = PurchaseRequestOrderRelations.Ord_ID WHERE (InvoiceOrderRelations.Invoice =" & InvoiceID & ") and PurchaseRequests.Status<> 'del' and PurchaseOrders.Status<>'CANCEL' and PurchaseOrders.IsService=1 group by PurchaseOrders.TypeID) as outService full outer join (select InvoiceItems.RelatedInventoryItemID,max(description) as description,sum(appQtty) as appQtty from InvoiceLines inner join InvoiceItems on InvoiceItems.ID=invoiceLines.Item and InvoiceItems.Type=5 where Invoice=" & InvoiceID & " group by InvoiceItems.RelatedInventoryItemID) as sales on sales.RelatedInventoryItemID=outService.TypeID"
    903. 

  903. 			set rs=Conn.Execute (mySQL)
    904. 

  904. 			while not rs.eof
    905. 

  905. 				if IsNull(rs("appQtty")) then 
    906. 

  906. 					errmsg = errmsg & "براي خدمات "  & rs("typeName") & " شما هيچ آيتمي در فاكتور ثبت نكرديد<br>"
    907. 

  907. 				else
    908. 

  908. 					if IsNull(rs("qtty")) then 
    909. 

  909. 						errmsg = errmsg & "براي " & rs("description") & " شما هيچ درخواست خدماتي ثبت نكرده‌ايد<br>"
    910. 

  910. 					else
    911. 

  911. 						if CDbl(rs("qtty")) <> CDbl(rs("appQtty")) then msg = msg & "تعداد  <b>" & rs("typeName") & "</b> با تعداد <b>" & rs("description") & "</b> مغاير است.<br>" 
    912. 

  912. 					end if
    913. 

  913. 				end if
    914. 

  914. 				
    915. 

  915. 				rs.moveNext
    916. 

  916. 			wend
    917. 

  917. 			set rs=nothing
    918. 

  918. 			if (errmsg<>"") then
    919. 

  919. 				Conn.close
    920. 

  920. 				response.redirect "?errMsg=" & Server.URLEncode(errmsg)
    921. 

  921. 			end if 
    922. 

  922. 			'-------------------------------------------------------------------------
    923. 

  923. 			'---------------------------------------------
    924. 

  924. 			'-------------------------------------------------------------------------
    925. 

  925. 		
    926. 

  926. 			if RS1("Voided") = True then
    927. 

  927. 				Conn.close
    928. 

  928. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا باطل شده است.")
    929. 

  929. 			elseif RS1("Issued") = True then
    930. 

  930. 				Conn.close
    931. 

  931. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا صادر شده است.")
    932. 

  932. 			elseif RS1("Approved") = True then
    933. 

  933. 				Conn.close
    934. 

  934. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا تاييد شده است.")
    935. 

  935. 			end if
    936. 

  936. 		end if
    937. 

  937. 	else
    938. 

  938. 		ShowErrorMessage("خطا")
    939. 

  939. 		response.end
    940. 

  940. 	end if
    941. 

  941. 	'--------------------SAM, Iqnore multi invoice in one order
    942. 

  942. 	'mySQL="SELECT COUNT(*) AS OrderCount FROM InvoiceOrderRelations WHERE [Order] IN (SELECT [Order] FROM InvoiceOrderRelations WHERE Invoice=" & InvoiceID &")"-----------SAM coorect this on 9 mar 2011
    943. 

  943. 	mySQL = "SELECT COUNT(Invoice) AS OrderCount FROM (SELECT DISTINCT InvoiceOrderRelations.Invoice FROM InvoiceOrderRelations inner join Invoices on InvoiceOrderRelations.Invoice = Invoices.ID WHERE InvoiceOrderRelations.[Order] IN (SELECT [Order] FROM InvoiceOrderRelations WHERE Invoice=204133) and Invoices.Voided=0) tbl"
    944. 

  944. 	set RS1= conn.Execute(mySQL)
    945. 

  945. '	response.write rs1("OrderCount")
    946. 

  946. '	response.end
    947. 

  947. 	if RS1("OrderCount")>1 then 
    948. 

  948. 		conn.close
    949. 

  949. 		response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("به اين سفارش دو فاكتور مربوط شده! لطفا به هر سفارش فقط يك فاكتور متصل كنيد.")
    950. 

  950. 	end if
    951. 

  951. 	'------------------------------------------------
    952. 

  952. 	mySQL="UPDATE Invoices SET Approved=1, ApprovedDate=N'"& shamsiToday() & "', ApprovedBy='"& session("ID") & "' WHERE (ID='"& InvoiceID & "')"
    953. 

  953. 	conn.Execute(mySQL)
    954. 

  954. 

  955. 	response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&msg=" & Server.URLEncode(msg)
    956. 

  956. '-------------------------------------------------------------------------------------------------------
    957. 

  957. elseif request("act")="IssueInvoice" then
    958. 

  958. 

  959. 	if not Auth(6 , "D") then		
    960. 

  960. 		'Doesn't have the Priviledge to ISSUE the Invoice 
    961. 

  961. 		response.write "<br>" 
    962. 

  962. 		call showAlert ("شما مجاز به صدور فاكتور نيستيد",CONST_MSG_ERROR) 
    963. 

  963. 		response.end
    964. 

  964. 	end if
    965. 

  965. 

  966. 	ON ERROR RESUME NEXT
    967. 

  967. 		InvoiceID=		clng(request("Invoice"))
    968. 

  968. 

  969. 		if Err.Number<>0 then
    970. 

  970. 			Err.clear
    971. 

  971. 			conn.close
    972. 

  972. 			response.redirect "top.asp?errMsg=" & Server.URLEncode("خطا!")
    973. 

  973. 		end if
    974. 

  974. 	ON ERROR GOTO 0
    975. 

  975. 

  976. 	creationDate=	shamsiToday() 
    977. 

  977. 	issueDate=		SqlSafe(request("issueDate"))
    978. 

  978. 	if issueDate="" then issueDate=creationDate
    979. 

  979. 

  980. 	if issueDate<>creationDate then
    981. 

  981. 		if Auth(6 , "I") then
    982. 

  982. 			' can ISSUE the Invoice / Rev. Invoice on another Date
    983. 

    984. 

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

  985. 			If Not CheckDateFormat(issueDate) Then
    986. 

  986. 				Conn.close
    987. 

  987. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("تاريخ وارد شده معتبر نيست.")
    988. 

  988. 			end if
    989. 

  989. 

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

  991. 				Conn.close
    992. 

  992. 				response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("خطا!<br>تاريخ وارد شده معتبر نيست. <br>(در سال مالي جاري نيست)")
    993. 

  993. 			end if 
    994. 

  994. 			'----
    995. 

  995. 		else
    996. 

  996. 			'Doesn't have the Priviledge to ISSUE the Invoice on another Date
    997. 

  997. 			response.write "<br>" 
    998. 

  998. 			call showAlert ("شما مجاز به صدور فاكتور در اين تاريخ نيستيد",CONST_MSG_ERROR) 
    999. 

  999. 			response.end
    1000. 

  1000. 		end if
    1001. 

  1001. 	end if
    1002. 

  1002. 	'----- Check GL is closed
    1003. 

  1003. 	if (session("IsClosed")="True") then
    1004. 

  1004. 		Conn.close
    1005. 

  1005. 		response.redirect "?errMsg=" & Server.URLEncode("خطا! سال مالي جاري بسته شده و شما قادر به تغيير در آن نيستيد.")
    1006. 

  1006. 	end if 
    1007. 

  1007. 	'----
    1008. 

    1009. 

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

  1010. 	If Not CheckDateFormat(issueDate) Then
    1011. 

  1011. 		Conn.close
    1012. 

  1012. 		response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("خطا!<br>تاريخ صدور معتبر نيست.")
    1013. 

  1013. 	end if
    1014. 

  1014. 

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

  1016. 		Conn.close
    1017. 

  1017. 		response.redirect "AccountReport.asp?act=showInvoice&invoice=" & InvoiceID & "&errmsg=" & Server.URLEncode("خطا!<br>تاريخ صدور معتبر نيست. <br>(در سال مالي جاري نيست)")
    1018. 

  1018. 	end if 
    1019. 

  1019. 	'----
    1020. 

  1020. 	'---- CHECK pickup list
    1021. 

  1021. 	mySQL="select distinct sales.item, sales.description, sales.appQtty,pik.itemID,pik.itemName,pik.qtty from (select invoiceLines.item,max(invoiceLines.description) as description,sum(invoiceLines.appQtty) as appQtty, InventoryInvoiceRelations.inventoryItem from InvoiceLines inner join Invoices on invoices.ID=invoiceLines.Invoice inner join InventoryInvoiceRelations on InventoryInvoiceRelations.invoiceItem=invoiceLines.Item WHERE Invoices.id=" & InvoiceID & " group by invoiceLines.item, InventoryInvoiceRelations.inventoryItem) as sales full outer join (SELECT InventoryPickuplistItems.itemID, max(InventoryPickuplistItems.ItemName) AS ItemName, sum(InventoryPickuplistItems.Qtty) AS Qtty, InventoryInvoiceRelations.invoiceItem FROM InventoryPickuplistItems INNER JOIN InventoryPickuplists ON InventoryPickuplistItems.pickupListID = InventoryPickuplists.id INNER JOIN InvoiceOrderRelations ON InventoryPickuplistItems.Order_ID = InvoiceOrderRelations.[Order] inner join invoices on InvoiceOrderRelations.invoice=invoices.id inner join InventoryInvoiceRelations on InventoryInvoiceRelations.inventoryItem=InventoryPickuplistItems.itemID WHERE NOT InventoryPickuplists.Status = N'del' and InventoryPickuplistItems.CustomerHaveInvItem=0 and Invoices.id=" & InvoiceID & " group by InventoryPickuplistItems.itemID, InventoryInvoiceRelations.invoiceItem  ) as pik on pik.itemID=sales.inventoryItem or pik.invoiceItem=sales.item"
    1022. 

  1022. 	set rs=Conn.Execute (mySQL)
    1023. 

  1023. 	errMsg=""
    1024. 

  1024. 	while not rs.eof
    1025. 

  1025. 		if IsNull(rs("appQtty")) then 
    1026. 

  1026. 			errMsg = errMsg & "براي حواله‌ي "  & rs("itemName") & " شما هيچ آيتمي در فاكتور ثبت نكرديد<br>"
    1027. 

  1027. 		else
    1028. 

  1028. 			if IsNull(rs("qtty")) then 
    1029. 

  1029. 				errMsg = errMsg & "براي " & rs("description") & " شما هيچ حواله‌اي صادر نكرده‌ايد<br>"
    1030. 

  1030. 			else
    1031. 

  1031. 				if CDbl(rs("qtty")) <> CDbl(rs("appQtty")) then 
    1032. 

  1032. 				'errMsg = errMsg & "تعداد حواله <b>" & rs("itemName") & "</b> با تعداد <b>" & rs("description") & "</b> مغاير است.<br>" 
    1033. 

  1033. 					item=rs("item")
    1034. 

  1034. 					appQtty=CDbl(rs("appQtty"))
    1035. 

  1035. 					desc=rs("description")
    1036. 

  1036. 					itemName=""
    1037. 

  1037. 					sumQtty=0
    1038. 

  1038. 					do
    1039. 

  1039. 						skeepNext=0
    1040. 

  1040. 						if item<>rs("item") then exit do
    1041. 

  1041. 						sumQtty=sumQtty+cdbl(rs("qtty"))
    1042. 

  1042. 						if itemName="" then 
    1043. 

  1043. 							itemName = rs("itemName")
    1044. 

  1044. 						else
    1045. 

  1045. 							itemName=itemName & ", " & rs("itemName")
    1046. 

  1046. 						end if
    1047. 

  1047. 						rs.moveNext
    1048. 

  1048. 						skeepNext=1
    1049. 

  1049. 						if rs.eof then exit do
    1050. 

  1050. 					loop while item=rs("item") 
    1051. 

  1051. 					'rs.MovePrevious
    1052. 

  1052. 					
    1053. 

  1053. 					if appQtty<>sumQtty then errmsg = errmsg & "تعداد حواله <b>" & itemName & "</b> با تعداد <b>" & desc & "</b> مغاير است.<br>" 
    1054. 

  1054. 

  1055. 				end if
    1056. 

  1056. 			end if
    1057. 

  1057. 		end if
    1058. 

  1058. 		
    1059. 

  1059. 		rs.moveNext
    1060. 

  1060. 	wend
    1061. 

  1061. 	set rs=nothing
    1062. 

  1062. 	
    1063. 

  1063. 	'----
    1064. 

  1064. 	'---- CHECK out Service
    1065. 

  1065. 	mySQL="select * from (SELECT PurchaseOrders.TypeID,max(PurchaseRequests.TypeName) as TypeName, sum(PurchaseOrders.Qtty) as Qtty FROM PurchaseOrders FULL OUTER JOIN PurchaseRequestOrderRelations RIGHT OUTER JOIN PurchaseRequests INNER JOIN InvoiceOrderRelations ON PurchaseRequests.Order_ID = InvoiceOrderRelations.[Order] ON PurchaseRequestOrderRelations.Req_ID = PurchaseRequests.ID ON PurchaseOrders.ID = PurchaseRequestOrderRelations.Ord_ID WHERE (InvoiceOrderRelations.Invoice =" & InvoiceID & ") and PurchaseRequests.Status<> 'del' and PurchaseOrders.Status<>'CANCEL' and PurchaseOrders.IsService=1 group by PurchaseOrders.TypeID) as outService full outer join (select InvoiceItems.RelatedInventoryItemID,max(description) as description,sum(appQtty) as appQtty from InvoiceLines inner join InvoiceItems on InvoiceItems.ID=invoiceLines.Item and InvoiceItems.Type=5 where Invoice=" & InvoiceID & " group by InvoiceItems.RelatedInventoryItemID) as sales on sales.RelatedInventoryItemID=outService.TypeID"
    1066. 

  1066. 	set rs=Conn.Execute (mySQL)
    1067. 

  1067. 	while not rs.eof
    1068. 

  1068. 		if IsNull(rs("appQtty")) then 
    1069. 

  1069. 			errMsg = errMsg & "براي خدمات "  & rs("typeName") & " شما هيچ آيتمي در فاكتور ثبت نكرديد<br>"
    1070. 

  1070. 		else
    1071. 

  1071. 			if IsNull(rs("qtty")) then 
    1072. 

  1072. 				errMsg = errMsg & "براي " & rs("description") & " شما هيچ درخواست خدماتي ثبت نكرده‌ايد<br>"
    1073. 

  1073. 			else
    1074. 

  1074. 				if CDbl(rs("qtty")) <> CDbl(rs("appQtty")) then msg = msg & "تعداد  <b>" & rs("typeName") & "</b> با تعداد <b>" & rs("description") & "</b> مغاير است.<br>" 
    1075. 

  1075. 			end if
    1076. 

  1076. 		end if
    1077. 

  1077. 		
    1078. 

  1078. 		rs.moveNext
    1079. 

  1079. 	wend
    1080. 

  1080. 	set rs=nothing
    1081. 

  1081. 	if (errMsg<>"") then
    1082. 

  1082. 		Conn.close
    1083. 

  1083. 		response.redirect "?errMsg=" & Server.URLEncode(errMsg)
    1084. 

  1084. 	end if 
    1085. 

  1085. 	'---------------------------------------------
    1086. 

  1086. 	
    1087. 

  1087. 	mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    1088. 

  1088. 	Set RS1 = conn.Execute(mySQL)
    1089. 

  1089. 	if RS1.eof then
    1090. 

  1090. 		conn.close
    1091. 

  1091. 		response.redirect "top.asp?errMsg=" & Server.URLEncode("خطا! فاكتور با شماره" & InvoiceID & " پيدا نشد.")
    1092. 

  1092. 	else
    1093. 

  1093. 		voided=			RS1("Voided")
    1094. 

  1094. 		issued=			RS1("Issued")
    1095. 

  1095. 		approved=		RS1("Approved")
    1096. 

  1096. 		isReverse=		RS1("IsReverse")
    1097. 

  1097. 		customerID=		RS1("Customer")
    1098. 

  1098. 		invoiceFee=		RS1("TotalReceivable")
    1099. 

  1099. 		IsA =			RS1("IsA")
    1100. 

  1100. 		Vat =			RS1("TotalVat")' sam
    1101. 

    1102. 

  1102. 		if voided then
    1103. 

  1103. 			Conn.close
    1104. 

  1104. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا باطل شده است.")
    1105. 

  1105. 		elseif issued then
    1106. 

  1106. 			Conn.close
    1107. 

  1107. 			response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور قبلا صادر شده است.")
    1108. 

  1108. 		elseif not approved then
    1109. 

  1109. 			Conn.close
    1110. 

  1110. 			response.redirect "?act=editInvoice&invoice="& InvoiceID & "&errmsg=" & Server.URLEncode("اين فاكتور تاييد نشده است.")
    1111. 

  1111. 		end if
    1112. 

  1112. 	end if
    1113. 

  1113. 

  1114. 	mySQL="UPDATE Invoices SET Issued=1, IssuedDate=N'"& issueDate & "', IssuedBy='"& session("ID") & "' WHERE (ID='"& InvoiceID & "')"
    1115. 

  1115. 	conn.Execute(mySQL)
    1116. 

  1116. 

  1117. 	if isReverse then
    1118. 

  1118. 		isCredit=1
    1119. 

  1119. 		itemType=4 
    1120. 

  1120. 	else
    1121. 

  1121. 		isCredit=0
    1122. 

  1122. 		itemType=1
    1123. 

  1123. 		'----------------------- Declaring the related orders as closed --------------
    1124. 

  1124. 		conn.Execute("UPDATE Orders SET Closed=1 WHERE ID IN (SELECT [Order] FROM InvoiceOrderRelations WHERE (Invoice='" & InvoiceID & "'))")
    1125. 

  1125. 

  1126. 		'----------------------- Declaring the related Quotes as closed --------------
    1127. 

  1127. 		conn.Execute("UPDATE Quotes SET Closed=1 WHERE ID IN (SELECT [Quote] FROM InvoiceQuoteRelations WHERE (Invoice='" & InvoiceID & "'))")
    1128. 

  1128. 	end if
    1129. 

  1129. 

  1130. 	'**************************** Creating ARItem for Invoice / Reverse Invoice  ****************
    1131. 

  1131. 	'*** Type = 1 means ARItem is an Invoice
    1132. 

  1132. 	'*** Type = 4 means ARItem is a Reverse Invoice
    1133. 

    1134. 

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

  1135. 	if IsA then
    1136. 

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

  1137. 	else
    1138. 

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

  1139. 	end if
    1140. 

  1140. 	'
    1141. 

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

    1143. 

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

  1144. 	
    1145. 

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

  1146. 	GLAccount & "', '"& OpenGL & "', '"& firstGLAccount & "', '"& CustomerID & "', N'"& issueDate & "', '"& isCredit & "', '"& itemType & "', '"& InvoiceID & "', '"& invoiceFee & "', N'"& creationDate & "', '"& session("ID") & "', '"& invoiceFee & "', '" & Vat & "')"
    1147. 

  1147. 	conn.Execute(mySQL)
    1148. 

  1148. 

  1149. 	if isReverse then
    1150. 

  1150. 		'*** ATTENTION: Increasing AR Balance ....
    1151. 

  1151. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1152. 

  1152. 	else
    1153. 

  1153. 		'*** ATTENTION: Decreasing AR Balance ....
    1154. 

  1154. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1155. 

  1155. 	end if
    1156. 

  1156. 	conn.Execute(mySQL)
    1157. 

  1157. 	conn.close
    1158. 

  1158. 	response.redirect "AccountReport.asp?act=showInvoice&invoice="& InvoiceID & "&msg=" & Server.URLEncode(msg)
    1159. 

  1159. '---------------------------------------------------------------------------------------------------------
    1160. 

  1160. elseif request("act")="voidInvoice" then
    1161. 

  1161. 	if not Auth(6 , "F") then		
    1162. 

  1162. 		'Doesn't have the Priviledge to VOID the Invoice 
    1163. 

  1163. 		response.write "<br>" 
    1164. 

  1164. 		call showAlert ("شما مجاز به ابطال فاكتور نيستيد",CONST_MSG_ERROR) 
    1165. 

  1165. 		response.end
    1166. 

  1166. 	end if
    1167. 

  1167. 

  1168. 	comment=sqlSafe(request("comment"))
    1169. 

  1169. 

  1170. 	InvoiceID=request("invoice")
    1171. 

  1171. 	if InvoiceID="" or not(isnumeric(InvoiceID)) then
    1172. 

  1172. 		response.write "<br>" 
    1173. 

  1173. 		call showAlert ("خطا در شماره فاكتور",CONST_MSG_ERROR) 
    1174. 

  1174. 		response.end
    1175. 

  1175. 	end if
    1176. 

  1176. 

  1177. 	InvoiceID=clng(InvoiceID)
    1178. 

  1178. 	
    1179. 

  1179. 	mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    1180. 

  1180. 	Set RS1 = conn.Execute(mySQL)
    1181. 

  1181. 	if RS1.eof then
    1182. 

  1182. 		ShowErrorMessage("پيدا نشد ")
    1183. 

  1183. 		response.end
    1184. 

  1184. 	else
    1185. 

  1185. 		voided=			RS1("Voided")
    1186. 

  1186. 		issued=			RS1("Issued")
    1187. 

  1187. 		issuedBy=		RS1("IssuedBy")
    1188. 

  1188. 		isReverse=		RS1("IsReverse")
    1189. 

  1189. 		customerID=		RS1("Customer")
    1190. 

  1190. 		invoiceFee=		RS1("TotalReceivable")
    1191. 

  1191. 		IsA =			RS1("IsA")
    1192. 

  1192. 		if voided then
    1193. 

  1193. 			ShowErrorMessage("اين فاكتور قبلا در تاريخ <span dir='LTR'>"& RS1("VoidedDate") & "</span> باطل شده است.")
    1194. 

  1194. 			response.end
    1195. 

  1195. 		end if
    1196. 

  1196. 	end if
    1197. 

  1197. 	
    1198. 

  1198. 	mySQL="UPDATE Invoices SET Voided=1, VoidedDate=N'"& shamsiToday() & "', VoidedBy='"& session("ID") & "' WHERE (ID='"& InvoiceID & "')"
    1199. 

  1199. 	conn.Execute(mySQL)
    1200. 

  1200. 	
    1201. 

  1201. 	if isReverse then
    1202. 

  1202. 		isCredit=1
    1203. 

  1203. 		itemType=4 
    1204. 

  1204. 		itemTypeName="فاكتور برگشت از فروش"
    1205. 

  1205. 	else
    1206. 

  1206. 		isCredit=0
    1207. 

  1207. 		itemType=1
    1208. 

  1208. 		itemTypeName="فاكتور"
    1209. 

  1209. 		'---------- Declaring the related orders as Open  -------------------
    1210. 

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

  1211. 		'Changed By Kid ! 840509 
    1212. 

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

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

  1214. 		mySQL ="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] 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 & "'))))"
    1215. 

  1215. 		conn.Execute(mySQL)
    1216. 

  1216. 

  1217. 		'---------- Declaring the related Quotes as Open  -------------------
    1218. 

  1218. 		'set Quotes which are ONLY related to this invoice, "Open"
    1219. 

  1219. 		'that means, Quotes which are related to this invoice and are NOT related to any OTHER issued invoices.
    1220. 

  1220. 		mySQL ="UPDATE Quotes SET Closed=0 WHERE ID IN (SELECT [Quote] FROM InvoiceQuoteRelations WHERE (Invoice = '" & InvoiceID & "') AND ([Quote] NOT IN (SELECT InvoiceQuoteRelations.[Quote] FROM Invoices INNER JOIN InvoiceQuoteRelations ON Invoices.ID = InvoiceQuoteRelations.Invoice WHERE (Invoices.Issued = 1) AND (Invoices.Voided = 0) AND (Invoices.isReverse = 0) AND (Invoices.ID <> '" & InvoiceID & "'))))"
    1221. 

  1221. 		conn.Execute(mySQL)
    1222. 

  1222. 

  1223. 	end if
    1224. 

  1224. 

  1225.   '**************************** Voiding ARItem of Invoice / Reverse Invoice ****************
    1226. 

  1226.   '*** Type = 1 means ARItem is an Invoice
    1227. 

  1227.   '*** Type = 4 means ARItem is a Reverse Invoice
    1228. 

  1228.   '***
    1229. 

  1229. 	'*********  Finding the ARItem of Invoice / Reverse Invoice
    1230. 

  1230. 	mySQL="SELECT ID FROM ARItems WHERE (Type = '"& itemType & "') AND (Link='"& InvoiceID & "')"
    1231. 

  1231. 	Set RS1=conn.Execute(mySQL)
    1232. 

  1232. 	voidedARItem=RS1("ID")
    1233. 

  1233. 	'*********  Finding other ARItems related to this Item
    1234. 

  1234. 	if isReverse then
    1235. 

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

  1236. 		Set RS1=conn.Execute(mySQL)
    1237. 

  1237. 		Do While not (RS1.eof)
    1238. 

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

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

  1240. 

  1241. 			'*********  Deleting the relation
    1242. 

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

  1243. 			
    1244. 

  1244. 			RS1.movenext
    1245. 

  1245. 		Loop
    1246. 

  1246. 	else
    1247. 

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

  1248. 		Set RS1=conn.Execute(mySQL)
    1249. 

  1249. 		Do While not (RS1.eof)
    1250. 

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

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

  1252. 

  1253. 			'*********  Deleting the relation
    1254. 

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

  1255. 			
    1256. 

  1256. 			RS1.movenext
    1257. 

  1257. 		Loop
    1258. 

  1258. 	end if
    1259. 

  1259. 

  1260. 	'*********  Voiding ARItem 
    1261. 

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

  1262. 

  1263. 	'**************************************************************
    1264. 

  1264. 	'*				Affecting Account's AR Balance  
    1265. 

  1265. 	'**************************************************************
    1266. 

  1266. 	if isReverse then
    1267. 

  1267. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1268. 

  1268. 	else
    1269. 

  1269. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1270. 

  1270. 	end if
    1271. 

  1271. 

  1272. 	conn.Execute(mySQL)
    1273. 

  1273. 	
    1274. 

  1274. 	'***
    1275. 

  1275. 	'***---------------- End of  Voiding ARItem of Invoice / Reverse Invoice ----------------
    1276. 

    1277. 

  1277. 	' Sending a Message to Issuer ...
    1278. 

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

  1279. 	MsgTo			=	issuedBy
    1280. 

  1280. 	msgTitle		=	"Invoice Voided"
    1281. 

  1281. 	msgBody			=	"فاكتور فوق توسط "& session("CSRName") & " باطل شد." & comment
    1282. 

  1282. 	RelatedTable	=	"invoices"
    1283. 

  1283. 	relatedID		=	invoiceID
    1284. 

  1284. 	replyTo			=	0
    1285. 

  1285. 	IsReply			=	0
    1286. 

  1286. 	urgent			=	1
    1287. 

  1287. 	MsgFrom			=	session("ID")
    1288. 

  1288. 	MsgDate			=	shamsiToday()
    1289. 

  1289. 	MsgTime			=	currentTime10()
    1290. 

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

  1291. 

  1292. 

  1293. 	' Copying the PreInvoice Data...
    1294. 

  1294. 	response.redirect "InvoiceInput.asp?act=copyInvoice&invoice="& InvoiceID & "&msg=" & Server.URLEncode(itemTypeName & " شماره "& InvoiceID & " باطل شد.")
    1295. 

  1295. '-----------------------------------------------------------------------------------------------
    1296. 

  1296. '--------------------------------------------S A M----------------------------------------------
    1297. 

  1297. '-----------------------------------------------------------------------------------------------
    1298. 

  1298. elseif request("act")="voidInvoiceOnly" then
    1299. 

  1299. 	if not Auth(6 , "M") then		
    1300. 

  1300. 		'Doesn't have the Priviledge to VOID the Invoice 
    1301. 

  1301. 		response.write "<br>" 
    1302. 

  1302. 		call showAlert ("شما مجاز به ابطال فاكتور نيستيد",CONST_MSG_ERROR) 
    1303. 

  1303. 

  1304. 		response.end
    1305. 

  1305. 	end if
    1306. 

  1306. 

  1307. 	comment=sqlSafe(request("comment"))
    1308. 

  1308. 

  1309. 	InvoiceID=request("invoice")
    1310. 

  1310. 	if InvoiceID="" or not(isnumeric(InvoiceID)) then
    1311. 

  1311. 		response.write "<br>" 
    1312. 

  1312. 		call showAlert ("خطا در شماره فاكتور",CONST_MSG_ERROR) 
    1313. 

  1313. 		response.end
    1314. 

  1314. 	end if
    1315. 

  1315. 

  1316. 	InvoiceID=clng(InvoiceID)
    1317. 

  1317. 	
    1318. 

  1318. 	mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    1319. 

  1319. 	Set RS1 = conn.Execute(mySQL)
    1320. 

  1320. 	if RS1.eof then
    1321. 

  1321. 		ShowErrorMessage("پيدا نشد ")
    1322. 

  1322. 		response.end
    1323. 

  1323. 	else
    1324. 

  1324. 		voided=			RS1("Voided")
    1325. 

  1325. 		issued=			RS1("Issued")
    1326. 

  1326. 		issuedBy=		RS1("IssuedBy")
    1327. 

  1327. 		isReverse=		RS1("IsReverse")
    1328. 

  1328. 		customerID=		RS1("Customer")
    1329. 

  1329. 		invoiceFee=		RS1("TotalReceivable")
    1330. 

  1330. 		IsA =			RS1("IsA")
    1331. 

  1331. 		if voided then
    1332. 

  1332. 			ShowErrorMessage("اين فاكتور قبلا در تاريخ <span dir='LTR'>"& RS1("VoidedDate") & "</span> باطل شده است.")
    1333. 

  1333. 			response.end
    1334. 

  1334. 		end if
    1335. 

  1335. 		if isReverse then 
    1336. 

  1336. 			itemType=4 
    1337. 

  1337. 		else
    1338. 

  1338. 			itemType=1
    1339. 

  1339. 		end if
    1340. 

  1340. 		set myRS=conn.Execute("SELECT * FROM ARItems WHERE (Type = '"& itemType & "') AND (Link='"& InvoiceID & "') AND GL_Update=1")
    1341. 

  1341. 		if myRS.eof then 
    1342. 

  1342. 			ShowErrorMessage("براي اين فاكتور قبلا سند حسابداري صادر شده است فلذا شما حق ابطال آنرا نداريد")
    1343. 

  1343. 			response.end
    1344. 

  1344. 		end if
    1345. 

  1345. 	end if
    1346. 

  1346. 	
    1347. 

  1347. 	mySQL="UPDATE Invoices SET Voided=1, VoidedDate=N'"& shamsiToday() & "', VoidedBy='"& session("ID") & "' WHERE (ID='"& InvoiceID & "')"
    1348. 

  1348. 	conn.Execute(mySQL)
    1349. 

  1349. 	
    1350. 

  1350. 	if isReverse then
    1351. 

  1351. 		isCredit=1
    1352. 

  1352. 		itemType=4 
    1353. 

  1353. 		itemTypeName="فاكتور برگشت از فروش"
    1354. 

  1354. 	else
    1355. 

  1355. 		isCredit=0
    1356. 

  1356. 		itemType=1
    1357. 

  1357. 		itemTypeName="فاكتور"
    1358. 

  1358. 		'---------- Declaring the related orders as Open  -------------------
    1359. 

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

  1360. 		'Changed By Kid ! 840509 
    1361. 

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

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

  1363. 		mySQL ="UPDATE Orders SET Closed=0 WHERE ID IN (SELECT [Order] 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 & "'))))"
    1364. 

  1364. 		conn.Execute(mySQL)
    1365. 

  1365. 

  1366. 		'---------- Declaring the related Quotes as Open  -------------------
    1367. 

  1367. 		'set Quotes which are ONLY related to this invoice, "Open"
    1368. 

  1368. 		'that means, Quotes which are related to this invoice and are NOT related to any OTHER issued invoices.
    1369. 

  1369. 		mySQL ="UPDATE Quotes SET Closed=0 WHERE ID IN (SELECT [Quote] FROM InvoiceQuoteRelations WHERE (Invoice = '" & InvoiceID & "') AND ([Quote] NOT IN (SELECT InvoiceQuoteRelations.[Quote] FROM Invoices INNER JOIN InvoiceQuoteRelations ON Invoices.ID = InvoiceQuoteRelations.Invoice WHERE (Invoices.Issued = 1) AND (Invoices.Voided = 0) AND (Invoices.isReverse = 0) AND (Invoices.ID <> '" & InvoiceID & "'))))"
    1370. 

  1370. 		conn.Execute(mySQL)
    1371. 

  1371. 

  1372. 	end if
    1373. 

  1373. 

  1374.   '**************************** Voiding ARItem of Invoice / Reverse Invoice ****************
    1375. 

  1375.   '*** Type = 1 means ARItem is an Invoice
    1376. 

  1376.   '*** Type = 4 means ARItem is a Reverse Invoice
    1377. 

  1377.   '***
    1378. 

  1378. 	'*********  Finding the ARItem of Invoice / Reverse Invoice
    1379. 

  1379. 	mySQL="SELECT ID FROM ARItems WHERE (Type = '"& itemType & "') AND (Link='"& InvoiceID & "')"
    1380. 

  1380. 	Set RS1=conn.Execute(mySQL)
    1381. 

  1381. 	voidedARItem=RS1("ID")
    1382. 

  1382. 	'*********  Finding other ARItems related to this Item
    1383. 

  1383. 	if isReverse then
    1384. 

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

  1385. 		Set RS1=conn.Execute(mySQL)
    1386. 

  1386. 		Do While not (RS1.eof)
    1387. 

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

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

  1389. 

  1390. 			'*********  Deleting the relation
    1391. 

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

  1392. 			
    1393. 

  1393. 			RS1.movenext
    1394. 

  1394. 		Loop
    1395. 

  1395. 	else
    1396. 

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

  1397. 		Set RS1=conn.Execute(mySQL)
    1398. 

  1398. 		Do While not (RS1.eof)
    1399. 

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

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

  1401. 

  1402. 			'*********  Deleting the relation
    1403. 

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

  1404. 			
    1405. 

  1405. 			RS1.movenext
    1406. 

  1406. 		Loop
    1407. 

  1407. 	end if
    1408. 

  1408. 

  1409. 	'*********  Voiding ARItem 
    1410. 

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

  1411. 

  1412. 	'**************************************************************
    1413. 

  1413. 	'*				Affecting Account's AR Balance  
    1414. 

  1414. 	'**************************************************************
    1415. 

  1415. 	if isReverse then
    1416. 

  1416. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance - '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1417. 

  1417. 	else
    1418. 

  1418. 		mySQL="UPDATE Accounts SET ARBalance = ARBalance + '"& invoiceFee & "' WHERE (ID='"& CustomerID & "')"
    1419. 

  1419. 	end if
    1420. 

  1420. 

  1421. 	conn.Execute(mySQL)
    1422. 

  1422. 	
    1423. 

  1423. 	'***
    1424. 

  1424. 	'***---------------- End of  Voiding ARItem of Invoice / Reverse Invoice ----------------
    1425. 

    1426. 

  1426. 	' Sending a Message to Issuer ...
    1427. 

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

  1428. 	MsgTo			=	issuedBy
    1429. 

  1429. 	msgTitle		=	"Invoice Voided"
    1430. 

  1430. 	msgBody			=	"فاكتور فوق توسط "& session("CSRName") & " باطل شد." & comment
    1431. 

  1431. 	RelatedTable	=	"invoices"
    1432. 

  1432. 	relatedID		=	invoiceID
    1433. 

  1433. 	replyTo			=	0
    1434. 

  1434. 	IsReply			=	0
    1435. 

  1435. 	urgent			=	1
    1436. 

  1436. 	MsgFrom			=	session("ID")
    1437. 

  1437. 	MsgDate			=	shamsiToday()
    1438. 

  1438. 	MsgTime			=	currentTime10()
    1439. 

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

  1440. 

  1441. 

  1442. 	' Copying the PreInvoice Data...
    1443. 

  1443. 	response.redirect "InvoiceInput.asp?act=copyInvoice&invoice="& InvoiceID & "&msg=" & Server.URLEncode(itemTypeName & " شماره "& InvoiceID & " باطل شد.")
    1444. 

  1444. '-----------------------------------------------------------------------------------------------
    1445. 

  1445. '-----------------------------------------------------------------------------------------------
    1446. 

  1446. '-----------------------------------------------------------------------------------------------
    1447. 

    1448. 

  1448. elseif request("act")="removePreInvoice" then
    1449. 

  1449. 	response.write "<br>" 
    1450. 

  1450. 

  1451. 	if not Auth(6 , "G") then		
    1452. 

  1452. 		'Doesn't have the Priviledge to REMOVE the Pre-Invoice 
    1453. 

  1453. 		call showAlert ("شما مجاز به حذف پيش نويس نيستيد",CONST_MSG_ERROR) 
    1454. 

  1454. 		response.end
    1455. 

  1455. 	end if
    1456. 

  1456. 

  1457. 	InvoiceID=request("invoice")
    1458. 

  1458. 	if InvoiceID="" or not(isnumeric(InvoiceID)) then
    1459. 

  1459. 		call showAlert ("خطا در شماره پيش نويس",CONST_MSG_ERROR) 
    1460. 

  1460. 		response.end
    1461. 

  1461. 	end if
    1462. 

  1462. 	InvoiceID=clng(InvoiceID)
    1463. 

  1463. 

  1464. 	mySQL="SELECT * FROM Invoices WHERE (ID='"& InvoiceID & "')"
    1465. 

  1465. 	Set RS1 = conn.Execute(mySQL)
    1466. 

  1466. 	if RS1.eof then
    1467. 

  1467. 		call showAlert ("پيش نويس پيدا نشد.",CONST_MSG_ERROR) 
    1468. 

  1468. 	else
    1469. 

  1469. 		voided=			RS1("Voided")
    1470. 

  1470. 		issued=			RS1("Issued")
    1471. 

  1471. 		isReverse=		RS1("IsReverse")
    1472. 

  1472. 		customerID=		RS1("Customer")
    1473. 

  1473. 		IsA =			RS1("IsA")
    1474. 

  1474. 		if issued then
    1475. 

  1475. 			call showAlert ("اين فاكتور صادر شده است.",CONST_MSG_ERROR) 
    1476. 

  1476. 		elseif voided then
    1477. 

  1477. 			call showAlert ("اين فاكتور باطل شده است.",CONST_MSG_ERROR) 
    1478. 

  1478. 		else
    1479. 

  1479. 			Conn.execute("DELETE FROM InvoiceOrderRelations Where (Invoice='" & InvoiceID & "')")
    1480. 

  1480. 

  1481. 			Conn.execute("DELETE FROM InvoiceQuoteRelations Where (Invoice='" & InvoiceID & "')")
    1482. 

  1482. 

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

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

  1485. 			'Changed By Kid 830929
    1486. 

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

  1487. 			'Changed By Kid 8400502 also adding VoidedBy & VoidedDate
    1488. 

  1488. 			Conn.execute("UPDATE Invoices SET Voided=1, VoidedDate=N'"& shamsiToday() & "', VoidedBy='"& session("ID") & "' WHERE (ID='"& InvoiceID & "')")
    1489. 

  1489. 

  1490. 			call showAlert ("پيش نويس حذف شد.",CONST_MSG_INFORM) 
    1491. 

  1491. 		end if
    1492. 

  1492. 	end if
    1493. 

  1493. 	response.end
    1494. 

  1494. end if
    1495. 

  1495. conn.Close
    1496. 

  1496. %>
    1497. 

  1497. <!--#include file="include_JS_for_Invoices.asp" -->
    1498. 

  1498. <SCRIPT LANGUAGE="JavaScript">
    1499. 

  1499. <!--
    1500. 

  1500. function ApproveInvoice(){
    1501. 

  1501. 	if (confirm("آيا مطمئن هستيد كه مي خواهيد اين فاكتور را 'تاييد' كنيد؟\n\n(توجه: تغييرات ذخيره نمي شوند)\n"))
    1502. 

  1502. 		window.location="?act=approveInvoice&invoice=<%=InvoiceID%>";
    1503. 

  1503. }
    1504. 

  1504. function IssueInvoice(){
    1505. 

  1505. 	if (confirm("آيا مطمئن هستيد كه مي خواهيد اين فاكتور را 'صادر' كنيد؟\n\n(توجه: تغييرات ذخيره نمي شوند)\n"))
    1506. 

  1506. 		window.location="?act=IssueInvoice&invoice=<%=InvoiceID%>";
    1507. 

  1507. }
    1508. 

  1508. function VoidInvoice(){
    1509. 

  1509. 	if (confirm("آيا مطمئن هستيد كه مي خواهيد اين فاكتور را 'باطل' كنيد؟\n"))
    1510. 

  1510. 		window.location="?act=voidInvoice&invoice=<%=InvoiceID%>";
    1511. 

  1511. }
    1512. 

  1512. //-->
    1513. 

  1513. </SCRIPT>
    1514. 

  1514. <!--#include file="tah.asp" -->
    1515. 

  1515.