/beta/bank/cheq.asp

http://github.com/khaneh/Orders · ASP · 701 lines · 597 code · 66 blank · 38 comment · 81 complexity · 61989798c9f88001aaec63023af00b75 MD5 · raw file 

    

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

  2. 'Bank (10 [=A])
    3. 

  3. PageTitle= " "
    4. 

  4. SubmenuItem=1
    5. 

  5. if not Auth("A" , 1) then NotAllowdToViewThisPage()
    6. 

  6. 

  7. sendTo = session("id")
    8. 

  8. editFlag = 0
    9. 

  9. 

  10. %>
    11. 

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

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

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

  14. <style>
    15. 

  15. 	.RcpTable { font-family:tahoma; font-size: 9pt; border:0; padding:0; }
    16. 

  16. 	.RcpMainTable { font-family:tahoma; font-size: 9pt; border:0; padding:0; background-color: #558855; text-align:right; direction: RTL;}
    17. 

  17. 	.RcpMainTableTH { background-color: #C3C300;}
    18. 

  18. 	.RcpMainTableTR { background-color: #CCCC88; border: 0; }
    19. 

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

  20. 	.RcpRowInput2 { font-family:tahoma; font-size: 9pt; border: 1px solid black; background-color: #F0F0F0; text-align:right;}
    21. 

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

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

  23. 	.RcpHeadInput3 { font-family:tahoma; font-size: 9pt; border: 1px solid black; background-color: #D0E0FF; text-align:right; direction: right-to-left;}
    24. 

  24. 	.RcpGenInput { font-family:tahoma; font-size: 9pt; border: none; text-align:right; direction: LTR;}
    25. 

  25. 	.GenButton { font-family:tahoma; font-size: 9pt; border: 1px solid black; }
    26. 

  26. 	.CustGenTable  { font-family:tahoma; font-size: 9pt;}
    27. 

  27. 	.CustGenInput { font-family:tahoma; font-size: 9pt;}
    28. 

  28. </STYLE>
    29. 

  29. <SCRIPT LANGUAGE="JavaScript">
    30. 

  30. <!--
    31. 

  31. var okToProceed=false;
    32. 

  32. var currentRow=null;
    33. 

  33. 

  34. var tempKeyBuffer;
    35. 

  35. function myKeyDownHandler(){
    36. 

  36. 	tempKeyBuffer=window.event.keyCode;
    37. 

  37. }
    38. 

  38. function myKeyPressHandler(){
    39. 

  39. //	alert (tempKeyBuffer)
    40. 

  40. 	if (tempKeyBuffer>=65 && tempKeyBuffer<=90){
    41. 

  41. 		window.event.keyCode=tempKeyBuffer+32;
    42. 

  42. 	}
    43. 

  43. 	else if(tempKeyBuffer==186){
    44. 

  44. 		window.event.keyCode=59;
    45. 

  45. 	}
    46. 

  46. 	else if(tempKeyBuffer==188){
    47. 

  47. 		window.event.keyCode=44;
    48. 

  48. 	}
    49. 

  49. 	else if(tempKeyBuffer==190){
    50. 

  50. 		window.event.keyCode=46;
    51. 

  51. 	}
    52. 

  52. 	else if(tempKeyBuffer==191){
    53. 

  53. 		window.event.keyCode=47;
    54. 

  54. 	}
    55. 

  55. 	else if(tempKeyBuffer==192){
    56. 

  56. 		window.event.keyCode=96;
    57. 

  57. 	}
    58. 

  58. 	else if(tempKeyBuffer>=219 && tempKeyBuffer<=221){
    59. 

  59. 		window.event.keyCode=tempKeyBuffer-128;
    60. 

  60. 	}
    61. 

  61. 	else if(tempKeyBuffer==222){
    62. 

  62. 		window.event.keyCode=39;
    63. 

  63. 	}
    64. 

  64. }
    65. 

  65. //-->
    66. 

  66. </SCRIPT>
    67. 

  67. <font face="tahoma">
    68. 

  68. <!-- <div dir='rtl'><B>  </B>
    69. 

  69. </div> -->
    70. 

  70. <%
    71. 

  71. '-----------------------------------------------------------------------------------------------------
    72. 

  72. '--------------------------------------------------------------------------------------- Submit Search
    73. 

  73. '-----------------------------------------------------------------------------------------------------
    74. 

  74. if request("act")="submit search" then
    75. 

  75. 	if request("CustomerNameSearchBox") <> "" then
    76. 

  76. 		SA_TitleOrName=sqlSafe(request("CustomerNameSearchBox"))
    77. 

  77. 		mySQL="SELECT * FROM Accounts WHERE (REPLACE(AccountTitle, ' ', '') LIKE REPLACE(N'%"& SA_TitleOrName & "%', ' ', '') ) ORDER BY AccountTitle"
    78. 

  78. 		Set RS1 = conn.Execute(mySQL)
    79. 

  79. 

  80. 		if (RS1.eof) then 
    81. 

  81. 			response.redirect "?errmsg=" & Server.URLEncode("   .<br><a href='../CRM/AccountEdit.asp?act=getAccount'> Ͽ</a>")
    82. 

  82. 

  83. 		' Not Found	%>
    84. 

  84. 		<div dir='rtl'><B>   </B> &nbsp; <A HREF="cheq.asp" style='font-size:7pt;'> </A>
    85. 

  85. 		</div><br>
    86. 

  86. 	<%	else 
    87. 

  87. 			SA_TitleOrName=request("CustomerNameSearchBox")
    88. 

  88. 			SA_Action="return true;"
    89. 

  89. 			SA_SearchAgainURL="cheq.asp"
    90. 

  90. 			SA_StepText="  :  "
    91. 

  91. %>
    92. 

  92. 		<FORM METHOD=POST ACTION="cheq.asp?act=enterCheque">
    93. 

  93. 			<!--#include File="../AR/include_SelectAccount.asp"-->
    94. 

  94. 		</FORM>
    95. 

  95. <%
    96. 

  96. 		end if
    97. 

  97. 	end if
    98. 

  98. 

  99. '-----------------------------------------------------------------------------------------------------
    100. 

  100. '-------------------------------------------------------------------------------------- Submit Payment
    101. 

  101. '-----------------------------------------------------------------------------------------------------
    102. 

  102. elseif request("act")="submitPayment" or editFlag = 1 then
    103. 

  103. 

  104. 	ON ERROR RESUME NEXT
    105. 

  105. 

  106. 		errorFound=false
    107. 

  107. 		CustomerID=			clng(request.form("CustomerID"))
    108. 

  108. 		accountID=			clng(request.form("accountID"))
    109. 

  109. 		TotalAmount=		cdbl(text2value(request.form("TotalAmount")))
    110. 

  110. 		VouchIDS=			request.form("VouchID")
    111. 

  111. 		VoucherTotalPrices= request.form("VoucherTotalPrice")
    112. 

  112. 		SumVoucherTotalPrice= cdbl(request.form("SumVoucherTotalPrice"))
    113. 

  113. 		Reason=				cint(request.form("Reason"))
    114. 

  114. 

  115. 		if Err.Number<>0 then
    116. 

  116. 			'Err.clear
    117. 

  117. 			errorFound=	true
    118. 

  118. 			'errorMsg=	Server.URLEncode("!")
    119. 

  119. 			errorMsg=	Err.Description
    120. 

  120. 			response.write errorMsg
    121. 

  121. 			response.end
    122. 

  122. 

  123. 		end if
    124. 

  124. 

  125. 		if NOT errorFound then
    126. 

  126. 			effectiveDate=	sqlSafe(request.form("PaymentDate"))
    127. 

  127. 			'---- Checking wether EffectiveDate is valid in current open GL
    128. 

  128. 			if (effectiveDate < session("OpenGLStartDate")) OR (effectiveDate > session("OpenGLEndDate")) then
    129. 

  129. 				errorFound=	true
    130. 

  130. 				errorMsg=	Server.URLEncode("!<br>    .")
    131. 

  131. 			end if 
    132. 

  132. 			'----
    133. 

  133. 			'----- Check GL is closed
    134. 

  134. 			if (session("IsClosed")="True") then
    135. 

  135. 				'Conn.close
    136. 

  136. 				errorFound=true
    137. 

  137. 				errorMsg= Server.URLEncode("!             .")
    138. 

  138. 			end if 
    139. 

  139. 			'----			
    140. 

  140. 			if TotalAmount=0 then 
    141. 

  141. 				errorFound=	true
    142. 

  142. 				errorMsg=	Server.URLEncode("<B>!  </B><BR>   <BR>")
    143. 

  143. 			end if 
    144. 

  144. 			CheqsCount=request.form("ChequeNos").count 
    145. 

  145. 			for i = 1 to CheqsCount
    146. 

  146. 				ChequeNo	= clng(request.form("ChequeNos")(i))
    147. 

  147. 				ChequeDate	= sqlSafe(request.form("ChequeDates")(i))
    148. 

  148. 				Banker		= cint(request.form("Banks")(i))
    149. 

  149. 				Description = sqlSafe(request.form("Description")(i))
    150. 

  150. 				Amount		= cdbl(text2value(request.form("Amounts")(i)))
    151. 

  151. 

  152. 				if ChequeNo=0 or Banker=-1 or Amount=0 then  ' -- or ChequeDate="" 
    153. 

  153. 					errorFound=	true
    154. 

  154. 					errorMsg=	Server.URLEncode("<B>!  </B><BR>   <BR>")
    155. 

  155. 				end if 
    156. 

  156. 				'---------------------SAM---------------------------------------------------------------
    157. 

  157. 				 
    158. 

  158. 				set che = conn.execute("Select COUNT(*) AS cheque From PaidCheques inner join Payments on PaidCheques.payment = Payments.ID Where PaidCheques.ChequeNo = " & ChequeNo & " AND PaidCheques.ChequeDate = N'" & ChequeDate & "' AND Payments.Voided = 0")
    159. 

  159. 				if cdbl(che("cheque")) > 0 then
    160. 

  160. 					errorFound = true
    161. 

  161. 					errorMsg = Server.URLEncode("<B>! </B><br>       <br>")
    162. 

  162. 					call showAlert ("<B>! </B><br>       <b>",CONST_MSG_ERROR)
    163. 

  163. 				end if
    164. 

  164. 				che.close
    165. 

  165. 			next
    166. 

  166. 		end if
    167. 

  167. 		if Err.Number<>0 then
    168. 

  168. 			'Err.clear
    169. 

  169. 			errorFound=	true
    170. 

  170. 			'errorMsg=	Server.URLEncode("!")
    171. 

  171. 			errorMsg=	Err.Description
    172. 

  172. 		end if
    173. 

  173. 	ON ERROR GOTO 0
    174. 

  174. 

  175. 	if errorFound then
    176. 

  176. 		conn.close
    177. 

  177. 		response.redirect "?act=getPayment&selectedCustomer="& CustomerID & "&Reason="& Reason & "&errMsg=" & errorMsg
    178. 

  178. 	end if
    179. 

  179. 

  180. 	mySQL="SELECT * FROM AXItemReasons WHERE (ID="& Reason & ")"
    181. 

  181. 	Set RS1=Conn.execute(mySQL)
    182. 

  182. 	if RS1.eof then
    183. 

  183. 		conn.close
    184. 

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

  185. 	else
    186. 

  186. 		Sys=			RS1("Acron")
    187. 

  187. 		firstGLAccount = accountID
    188. 

  188. 	end if
    189. 

  189. 	RS1.close
    190. 

  190. 

  191. 	RemainedTotalAmount = TotalAmount
    192. 

  192. 

  193. 	creationDate=	shamsiToday()
    194. 

  194. 	creationTime=	currentTime10()
    195. 

  195. 	GLAccount=		"NULL"
    196. 

  196. 

  197. 	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''	
    198. 

  198. 	dim APRemainedAmount(10)
    199. 

  199. 	dim APCreditID(10)
    200. 

  200. 	dim relationAmount(10)
    201. 

  201. 	dim n
    202. 

  202. 

  203. 	if SumVoucherTotalPrice <> 0 and VouchIDS<>"" then		'Balance this payment with a previous APItem.
    204. 

    205. 

  205. 		VouchID = split(VouchIDS, ",")
    206. 

  206. 		VoucherTotalPrice = split(VoucherTotalPrices, ",")
    207. 

  207. 		n = ubound(VouchID)
    208. 

  208. 

  209. 		for vch = 0 to n  
    210. 

  210. 			set RSB=Conn.Execute ("SELECT * FROM  APItems WHERE (Type=6 and Link="& VouchID(vch) & ")" )
    211. 

  211. 			if RSB.EOF then
    212. 

  212. 				response.write "<br><BR>"
    213. 

  213. 				call showAlert ("<B>!  </B><BR>      . <br>     .<BR>",CONST_MSG_ERROR)
    214. 

  214. 				response.end
    215. 

  215. 			end if
    216. 

  216. 			if not trim(VoucherTotalPrice(vch)) = trim(RSB("AmountOriginal")) then
    217. 

  217. 				response.write "<br><BR>"
    218. 

  218. 				call showAlert ("<B>!  </B><BR>      . <br>     .<BR>",CONST_MSG_ERROR)
    219. 

  219. 				response.end
    220. 

  220. 			end if
    221. 

  221. 			APRemainedAmount(vch) = cdbl(RSB("RemainedAmount"))
    222. 

  222. 			APCreditID(vch) = RSB("ID")
    223. 

  223. 		next
    224. 

  224. 

  225. 		for vch = 0 to n  
    226. 

  226. 			if RemainedTotalAmount = 0 then
    227. 

  227. 				relationAmount(vch) = 0
    228. 

  228. 			else
    229. 

  229. 				if APRemainedAmount(vch) > RemainedTotalAmount then
    230. 

  230. 					mySQL="UPDATE "& sys & "Items SET RemainedAmount='"& APRemainedAmount(vch) - RemainedTotalAmount & "' WHERE (ID='"& APCreditID(vch) & "')"
    231. 

  231. 					conn.Execute(mySQL)	
    232. 

  232. 					relationAmount(vch) = RemainedTotalAmount
    233. 

  233. 					RemainedTotalAmount = 0 
    234. 

  234. 				else
    235. 

  235. 					mySQL="UPDATE "& sys & "Items SET RemainedAmount='"& 0 & "' WHERE (ID='"& APCreditID(vch) & "')"
    236. 

  236. 					conn.Execute(mySQL)	
    237. 

  237. 					RemainedTotalAmount   = RemainedTotalAmount - APRemainedAmount(vch)
    238. 

  238. 					Conn.Execute ("UPDATE Vouchers SET paid = 1 WHERE (id = "& VouchID(vch) & ")")
    239. 

  239. 					relationAmount(vch) = APRemainedAmount(vch)
    240. 

  240. 				end if
    241. 

  241. 			end if 
    242. 

  242. 		next
    243. 

  243. 	end if
    244. 

  244. 

  245. 	'************* Inserting the Payment
    246. 

  246. 	mySQL="INSERT INTO Payments (SYS, Account, CashAmount, ChequeAmount, CreatedBy, CreationDate, CreationTime, EffectiveDate) VALUES ('"& sys & "', "& customerID & ", 0, " & TotalAmount & ","& session("id") & ", N'"& creationDate & "', N'"& creationTime & "', N'"& effectiveDate & "');SELECT @@Identity AS NewPayment"
    247. 

  247. 	set RSE = Conn.execute(mySQL).NextRecordSet
    248. 

  248. 	paymentID = RSE ("NewPayment")
    249. 

  249. 	RSE.close
    250. 

  250. 	set RSE = Nothing
    251. 

  251. 

  252. 	'************* Inserting Cheques
    253. 

  253. 	for i = 1 to CheqsCount
    254. 

  254. 		ChequeNo	= clng(request.form("ChequeNos")(i))
    255. 

  255. 		ChequeDate	= sqlSafe(request.form("ChequeDates")(i))
    256. 

  256. 		Banker		= cint(request.form("Banks")(i))
    257. 

  257. 		Description = sqlSafe(request.form("Description")(i))
    258. 

  258. 		Amount		= cdbl(text2value(request.form("Amounts")(i)))
    259. 

  259. 

  260. 		conn.Execute("INSERT INTO PaidCheques (Payment, CreatedDate, CreatedBy, ChequeNo, ChequeDate, Amount, Banker, Status, StatusSetBy, StatusSetDate, Description) VALUES  ("& paymentID & ",N'"& creationDate & "','"& session("ID") & "',"& ChequeNo& ",N'"& ChequeDate& "',"& Amount& ","& Banker& ", 0, "& session("ID")& ", N'"& creationDate & "', N'"& Description & "')")
    261. 

  261. 

  262. 	next
    263. 

  263. 

  264. 	'*************	Creating an Item for the Payment 
    265. 

  265. 	'*** Type = 5 means Item is a Payment
    266. 

  266. 	'*** GLAccount = NULL because it can't be identified right now, it depends on where the cheques are
    267. 

  267. 	mySQL="INSERT INTO "& sys & "Items (GLAccount, GL, FirstGLAccount, Account, EffectiveDate, Reason, IsCredit, Type, Link, AmountOriginal, CreatedDate, CreatedBy, RemainedAmount) VALUES ("&_
    268. 

  268. 		GLAccount & ", '"& OpenGL & "', '"& firstGLAccount & "', '"& customerID & "', N'"& effectiveDate & "', '"& reason & "', 0, 5, '"& paymentID & "', '"& TotalAmount & "', N'"& creationDate & "', '"& session("ID") & "', '"& RemainedTotalAmount & "');SELECT @@Identity AS NewItem"
    269. 

  269. 	set RSF = Conn.execute(mySQL).NextRecordSet
    270. 

  270. 	APDebitID = RSF ("NewItem")
    271. 

  271. 	RSF.close 
    272. 

  272. 	Set RSF = Nothing
    273. 

  273. 

  274. 	mySQL="UPDATE Accounts SET "& sys & "Balance="& sys & "Balance-"& TotalAmount & "  WHERE (ID = "& customerID & ")"
    275. 

  275. 	conn.Execute(mySQL)
    276. 

  276. 

  277. 	'*************	Create the relations between 
    278. 

  278. 	'				the Payment and Selected Vouvhers 
    279. 

  279. 	if SumVoucherTotalPrice<> 0 and VouchIDS<>"" then
    280. 

  280. 		for vch = 0 to n  
    281. 

  281. 			if relationAmount(vch) = 0 then exit for
    282. 

  282. 			mySQL="INSERT INTO "& sys & "ItemsRelations (CreatedDate, CreatedBy, Credit"& sys & "Item, Debit"& sys & "Item, Amount) VALUES (N'"& creationDate & "', '"& session("ID") & "', '"& APCreditID(vch) &"', '"& APDebitID &"', '"& relationAmount(vch) &"')"
    283. 

  283. 			conn.Execute(mySQL)
    284. 

  284. 		next
    285. 

  285. 	end if
    286. 

  286. 	''''------------------------------------------------
    287. 

  287. 

  288. 	Conn.close
    289. 

  289. 	response.redirect "../"& sys & "/AccountReport.asp?act=showPayment&payment="& paymentID & "&msg=" & Server.URLEncode("  .")
    290. 

  290. 

  291. '-----------------------------------------------------------------------------------------------------
    292. 

  292. '--------------------------------------------------------------------------------------- Input cheques
    293. 

  293. '-----------------------------------------------------------------------------------------------------
    294. 

  294. elseif request("act")="enterCheque" then 
    295. 

  295. 	customerID=request("selectedCustomer")
    296. 

  296. 	VouchIDS = request("VouchID")
    297. 

  297. 	lastCustomerID = -1
    298. 

  298. 	SumAPAmountOriginal=0
    299. 

  299. 	SumAPRemainedAmount=0
    300. 

  300. 	SumVoucherTotalPrice=0
    301. 

  301. 	VoucherTotalPrice = -1
    302. 

  302. 	Reason = 0 ' Old Code: Reason = 2 ' Sys: AP
    303. 

  303. 	if request("Reason")<>"" then Reason=request("Reason")
    304. 

  304. 

  305. 	if VouchIDS<>"" then
    306. 

  306. 		VouchIDarray = split(VouchIDS,",")
    307. 

  307. 		for i=0 to ubound(VouchIDarray) 
    308. 

  308. 			VouchID = VouchIDarray(i)
    309. 

  309. 

  310. 			set RSV=Conn.Execute ("SELECT * FROM  Vouchers WHERE (id="& VouchID & ")" )
    311. 

  311. 			if not RSV.eof then
    312. 

  312. 				set RSB=Conn.Execute ("SELECT * FROM  APItems WHERE (Type=6 and Link="& VouchID & ")" )
    313. 

  313. 				if RSB.EOF then
    314. 

  314. 					response.write "<br><BR>"
    315. 

  315. 					call showAlert ("<B>!  </B><BR>     ",CONST_MSG_ERROR)
    316. 

  316. 					response.end
    317. 

  317. 				end if
    318. 

  318. 				customerID = RSV("VendorID")
    319. 

  319. 				if lastCustomerID <> -1 and customerID<>lastCustomerID then
    320. 

  320. 					response.write "<br><BR>"
    321. 

  321. 					call showAlert ("<B>!  </B><BR>       					<BR><BR><A HREF='payment.asp'>ѐ</A>",CONST_MSG_ERROR)
    322. 

  322. 					response.end
    323. 

  323. 				end if
    324. 

  324. 				LastCustomerID = customerID 
    325. 

  325. 			else
    326. 

  326. 				response.write "<br><BR>"
    327. 

  327. 				call showAlert ("<B>!  </B><BR>   ",CONST_MSG_ERROR)
    328. 

  328. 				response.end
    329. 

  329. 			end if
    330. 

  330. 		next
    331. 

  331. 	else
    332. 

  332. 		if customerID = "" then
    333. 

  333. 			response.redirect "cheq.asp"
    334. 

  334. 		end if
    335. 

  335. 	end if
    336. 

  336. 

  337. 

  338. 	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    339. 

  339. 	mySQL="SELECT * FROM Accounts WHERE (ID='"& CustomerID & "')"
    340. 

  340. 	Set RS1 = conn.Execute(mySQL)
    341. 

  341. 	customerName=RS1("AccountTitle")
    342. 

  342. 

  343. 	creationDate=	shamsiToday()
    344. 

  344. 	creationTime=	currentTime10()
    345. 

  345. %>	
    346. 

  346. 	<br>
    347. 

  347. 	<div dir='rtl'>&nbsp;&nbsp;<B> :    </B>
    348. 

  348. 	</div>
    349. 

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

  350. 

  351. <!--     -->
    352. 

  352. 	<hr>
    353. 

  353. 	<SCRIPT LANGUAGE="JavaScript">
    354. 

  354. 	<!--
    355. 

  355. 		function checkValidation(){
    356. 

  356. 		  try{
    357. 

  357. 

  358. 			tmpBox=document.getElementsByName('PaymentDate')[0];
    359. 

  359. 			if (tmpBox.value!='' && tmpBox.value!=null){
    360. 

  360. 				if (!acceptDate(tmpBox))
    361. 

  361. 					return false;
    362. 

  362. 			}
    363. 

  363. 			else{
    364. 

  364. 				tmpBox.focus();
    365. 

  365. 				alert("  ")
    366. 

  366. 				return false;
    367. 

  367. 			}
    368. 

  368. 

  369. 			tmpBox=document.getElementsByName('TotalAmount')[0];
    370. 

  370. 			if (txt2val(tmpBox.value)==0){
    371. 

  371. 				alert("   ")
    372. 

  372. 				return false;
    373. 

  373. 			}
    374. 

  374. 

  375. 		  }catch(e){
    376. 

  376. 				alert("  ");
    377. 

  377. 				return false;
    378. 

  378. 		  }
    379. 

  379. 

  380. 		}
    381. 

  381. 

  382. 	//-->
    383. 

  383. 

  384. 	var dialogActive=false;
    385. 

  385. 

  386. 	function maskReason(src){ 
    387. 

  387. 		var theKey=event.keyCode;
    388. 

  388. 

  389. 		if (theKey==13){
    390. 

  390. 			event.keyCode=9
    391. 

  391. 			dialogActive=true
    392. 

  392. 			document.all.tmpDlgArg.value="#"
    393. 

  393. 			document.all.tmpDlgTxt.value="     :"
    394. 

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

  395. 			dialogActive=false
    396. 

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

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

  398. 	//			dialogActive=false
    399. 

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

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

  401. 					src.value=Arguments[0];
    402. 

  402. 					document.all.accountName.value=Arguments[1];
    403. 

  403. 				}
    404. 

  404. 			}
    405. 

  405. 		}
    406. 

  406. 	}
    407. 

  407. 

  408. 	//-->
    409. 

  409. 	</SCRIPT>
    410. 

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

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

  412. 

  413. 	<FORM METHOD=POST ACTION="?act=submitPayment" onsubmit="return checkValidation();">
    414. 

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

  415. 		<table class="RcpMainTable" Cellspacing="1" Cellpadding="0" Width="500" align="center">
    416. 

  416. 		<tr class="RcpMainTableTH">
    417. 

  417. 			<td colspan="10"><TABLE width='550' align='center' cellpadding='5'>
    418. 

  418. 			<TR>
    419. 

  419. 				<TD bgcolor=white>: </TD>
    420. 

  420. <%
    421. 

  421. 				mySQL="SELECT * FROM AXItemReasons WHERE Display=1 ORDER BY ID"
    422. 

  422. 				set RS1=conn.execute(mySQL)
    423. 

  423. 				while not RS1.eof
    424. 

  424. %>					<TD bgcolor=white>
    425. 

  425. 						<INPUT TYPE="radio" NAME="Reason" value="<%=RS1("ID")%>" <% if reason=RS1("ID") then response.write "checked "%>><%=RS1("Name")%>
    426. 

  426. 					</TD>
    427. 

  427. <%					RS1.movenext
    428. 

  428. 				wend
    429. 

  429. %>		
    430. 

  430. 			</TR></TABLE></td>
    431. 

  431. 		</tr>
    432. 

  432. 		<tr class="RcpMainTableTH">
    433. 

  433. 			<td colspan="10"><TABLE class="RcpTable" Width="100%" Cellspacing="1" Cellpadding="0" Dir="RTL"><TR>
    434. 

  434. 				<TD align="left">:</TD>
    435. 

  435. 				<TD align="right" width="5">
    436. 

  436. 					<INPUT class="RcpGenInput" disabled TYPE="text" value="<%=customerID%>" maxlength="5" size="5" tabIndex="1" dir="LTR">
    437. 

  437. 				</TD>
    438. 

  438. 				<TD align="right" width="200">
    439. 

  439. 					<INPUT TYPE="hidden" NAME="customerID" value="<%=customerID%>"><%=CustomerName%>.
    440. 

  440. 				</TD>
    441. 

  441. 				<TD align="left">:</TD>
    442. 

  442. 				<TD>
    443. 

  443. 					<table class="RcpTable">
    444. 

  444. 					<tr>    
    445. 

  445. 						<td dir="LTR">
    446. 

  446. 							<input class="RcpGenInput" style="text-align:left;direction:LTR;" NAME="PaymentDate" TYPE="text" maxlength="10" size="10" value="" onblur="acceptDate(this)">
    447. 

  447. 						</td>
    448. 

  448. 						<td dir="RTL">: <font color=white><%=weekdayname(weekday(date))%> <span dir=rtl><%=shamsiToday()%></span></font></TD>
    449. 

  449. 					</tr>   
    450. 

  450. 					</table></TD>
    451. 

  451. 			</TR></TABLE></td>
    452. 

  452. 		</tr>
    453. 

  453. 		<tr class="RcpMainTableTR">
    454. 

  454. 			<td colspan="10"><div>
    455. 

  455. 			<TABLE class="RcpTable" Cellspacing="1" Cellpadding="0" Dir="RTL">
    456. 

  456. 			<TR height="20">
    457. 

  457. 				<TD colspan="15">
    458. 

  458. 					<%
    459. 

  459. 					if VouchIDS<>"" then
    460. 

  460. 						response.write "  :"
    461. 

  461. 						VouchIDarray = split(VouchIDS,",")
    462. 

  462. 						for i=o to ubound(VouchIDarray) 
    463. 

  463. 							VouchID = VouchIDarray(i)
    464. 

  464. 

  465. 							set RSV=Conn.Execute ("SELECT * FROM  Vouchers WHERE (id="& VouchID & ")" )
    466. 

  466. 							set RSB=Conn.Execute ("SELECT * FROM  APItems WHERE (Type=6 and Link="& VouchID & ")" )
    467. 

  467. 							APAmountOriginal = RSB("AmountOriginal")
    468. 

  468. 							APRemainedAmount = RSB("RemainedAmount")
    469. 

  469. 							VoucherTotalPrice = RSV("TotalPrice")
    470. 

  470. 							SumAPAmountOriginal = cdbl(SumAPAmountOriginal) + cdbl(APAmountOriginal)
    471. 

  471. 							SumAPRemainedAmount = cdbl(SumAPRemainedAmount) + cdbl(APRemainedAmount)
    472. 

  472. 							SumVoucherTotalPrice = cdbl(SumVoucherTotalPrice) + cdbl(VoucherTotalPrice)
    473. 

  473. 							customerID = RSV("VendorID")
    474. 

  474. 							VoucherTitle = RSV("Title")
    475. 

  475. 							%>
    476. 

  476. 							<INPUT TYPE="hidden" name="VouchID" value="<%=VouchID%>">
    477. 

  477. 							<INPUT TYPE="hidden" name="VoucherTotalPrice" value="<%=VoucherTotalPrice%>">
    478. 

  478. 							<INPUT TYPE="hidden" name="APRemainedAmount" value="<%=APRemainedAmount%>">
    479. 

  479. 							<li><B><%=VoucherTitle%></B>     <A HREF="../AP/payment.asp?VouchID=<%=VouchID%>"><%=VouchID%></A>  ( : <%=Separate(VoucherTotalPrice)%>  - : <%=Separate(APRemainedAmount)%> )
    480. 

  480. 							<%
    481. 

  481. 						next
    482. 

  482. 					end if
    483. 

  483. 					''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    484. 

  484. 					%>
    485. 

  485. 					<INPUT TYPE="hidden" name="SumAPAmountOriginal" value="<%=SumAPAmountOriginal%>">
    486. 

  486. 					<INPUT TYPE="hidden" name="SumVoucherTotalPrice" value="<%=SumVoucherTotalPrice%>">
    487. 

  487. 				</TD>
    488. 

  488. 			</TR>
    489. 

  489. 			</TABLE></div></td>
    490. 

  490. 		</tr>
    491. 

  491. 		<tr class="RcpMainTableTR">
    492. 

  492. 			<td colspan="10"><div style="width:540;">
    493. 

  493. 			<TABLE class="RcpTable" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#558855">
    494. 

  494. 			<TR height=20px>
    495. 

  495. 				<TD class="RcpHeadInput" style="width:25;"> # </td>
    496. 

  496. 				<TD class="RcpHeadInput" style="width:70;"> </td>
    497. 

  497. 				<TD class="RcpHeadInput" style="width:70;"></td>
    498. 

  498. 				<TD class="RcpHeadInput" style="width:150;"></td>
    499. 

  499. 				<TD class="RcpHeadInput" style="width:95;"></td>
    500. 

  500. 				<TD class="RcpHeadInput" style="width:110;"></td>
    501. 

  501. 			</TR>   
    502. 

  502. 			</TABLE></div></td>
    503. 

  503. 		</tr>
    504. 

  504. 		<tr class="RcpMainTableTR">
    505. 

  505. 			<td colspan="10" dir="RTL"><div style="overflow:auto; height:150px;width:100%;">
    506. 

  506. 			<TABLE class="RcpTable" Border="0" Cellspacing="1" Cellpadding="0" Dir="RTL" bgcolor="#558855">
    507. 

  507. 			<Tbody id="ChequeLines">
    508. 

  508. 			<TR bgcolor='#F0F0F0' onclick="currentRow=this.rowIndex;" >
    509. 

  509. 				<TD align='center' width="25px">1</td>
    510. 

  510. 				<TD dir="LTR"><INPUT class="RcpRowInput" TYPE="text" NAME="ChequeNos" size="10" maxLength="6" onKeyPress="return mask(this);"	onblur="check(this);"></td>
    511. 

  511. 				<TD dir="LTR" ><INPUT class="RcpRowInput" TYPE="text" NAME="ChequeDates" maxlength="10" size="10"  onKeyPress="return maskDate(this);" onblur="acceptDate(this);"></td>
    512. 

  512. 				<TD dir="RTL">
    513. 

  513. 					<select name="Banks" class=inputBut style="width:150;">
    514. 

  514. 					<option value="-1"> </option>
    515. 

  515. 					<option value="-1">---------------------------------</option>
    516. 

  516. 					<% set RSV=Conn.Execute ("SELECT * FROM Bankers WHERE (IsBankAccount = 1)") 
    517. 

  517. 					Do while not RSV.eof
    518. 

  518. 					%>
    519. 

  519. 						<option value="<%=RSV("id")%>"><%=RSV("Name")%> </option>
    520. 

  520. 					<%
    521. 

  521. 					RSV.moveNext
    522. 

  522. 					Loop
    523. 

  523. 					RSV.close
    524. 

  524. 					%>
    525. 

  525. 					</select>
    526. 

  526. 				
    527. 

  527. 				</TD>
    528. 

  528. 				<TD dir="LTR"><INPUT class="RcpRowInput" TYPE="text" NAME="Amounts" size="15" onKeyPress="return mask(this);" onBlur="setPrice(this);" ></td>
    529. 

  529. 				<TD dir="RTL"><INPUT class="RcpRowInput" TYPE="text" NAME="Description" size="18" ></td>
    530. 

  530. 			</TR>
    531. 

  531. 			<TR bgcolor='#F0F0F0' onclick="currentRow=this.rowIndex;" >
    532. 

  532. 				<TD colspan="15">
    533. 

  533. 					<INPUT class="RcpGenInput" TYPE="button" value="" onkeyDown="if(event.keyCode==9) return false;" onClick="addRow(this.parentNode.parentNode.rowIndex);">
    534. 

  534. 				</TD>
    535. 

  535. 			</TR>
    536. 

  536. 			</Tbody></TABLE></div></td>
    537. 

  537. 		</tr>
    538. 

  538. 		<tr class="RcpMainTableTR">
    539. 

  539. 			<td colspan="10"><div>
    540. 

  540. 			<TABLE Border="0" Cellspacing="1" Cellpadding="0" Dir="RTL">
    541. 

  541. 			<TR>
    542. 

  542. 				<TD  class="RcpHeadInput" align='center' > 
    543. 

  543. 				<% if CDbl(VoucherTotalPrice) <> -1 then %>  :
    544. 

  544. 				<%=Separate(SumAPRemainedAmount)%>
    545. 

  545. 				<% end if %></td>
    546. 

  546. 				<TD class="RcpHeadInput" align='center' width="25px"> </td>
    547. 

  547. 				<TD class="RcpHeadInput"><INPUT class="RcpHeadInput" readonly TYPE="text" Value=":" size="10" tabindex="9999"></td>
    548. 

  548. 				<TD class="RcpHeadInput"><INPUT class="RcpHeadInput3" readonly dir="LTR" TYPE="text" Name="TotalAmount"  size="15" tabindex="9999"></td>
    549. 

  549. 			</TR>
    550. 

  550. 			</TABLE></div></td>
    551. 

  551. 		</tr>
    552. 

  552. 		</table>
    553. 

  553. 		<br>
    554. 

  554. 		<TABLE class="RcpTable" Border="0" Cellspacing="5" Cellpadding="1" Dir="RTL">
    555. 

  555. 		<TR>
    556. 

  556. 			<TD align='center' bgcolor="#000000"><INPUT class="RcpGenInput" style="text-align:center" TYPE="submit" value=""></td>
    557. 

  557. 			<TD align='center' bgcolor="#000000"><INPUT class="RcpGenInput" style="text-align:center" TYPE="button" value="" onclick="window.location='?';"></td>
    558. 

  558. 		</TR>
    559. 

  559. 		</TABLE>
    560. 

  560. 		</FORM>
    561. 

  561. 		<SCRIPT LANGUAGE="JavaScript">
    562. 

  562. 		<!--
    563. 

  563. 			document.all.ChequeNos.focus();
    564. 

  564. 		//-->
    565. 

  565. 		</SCRIPT>
    566. 

  566. 	<SCRIPT language="JavaScript">
    567. 

  567. 	<!--
    568. 

  568. 	//===================================================
    569. 

  569. 	function delRow(rowNo){
    570. 

  570. 		rowsCount=document.getElementsByName("ChequeNos").length
    571. 

  571. 		if (rowsCount==1){
    572. 

  572. 			alert("     ");
    573. 

  573. 			return false;
    574. 

  574. 		}
    575. 

  575. 		
    576. 

  576. 		chqTable=document.getElementById("ChequeLines");
    577. 

  577. 		theRow=chqTable.getElementsByTagName("tr")[rowNo];
    578. 

  578. 		chqTable.removeChild(theRow);
    579. 

  579. 

  580. 		rowsCount--;
    581. 

  581. 		for (rowNo=0; rowNo < rowsCount; rowNo++){
    582. 

  582. 			chqTable.getElementsByTagName("tr")[rowNo].getElementsByTagName("td")[0].innerText= rowNo+1;
    583. 

  583. 		}
    584. 

  584. 	}
    585. 

  585. 

  586. 	//===================================================
    587. 

  587. 	function addRow(rowNo){
    588. 

  588. 		chqTable=document.getElementById("ChequeLines");
    589. 

  589. 		theRow=chqTable.getElementsByTagName("tr")[rowNo];
    590. 

  590. 		newRow=document.createElement("tr");
    591. 

  591. 		newRow.setAttribute("bgColor", '#f0f0f0');
    592. 

  592. 

  593. 		tempTD=document.createElement("td");
    594. 

  594. 		tempTD.innerHTML=rowNo+1
    595. 

  595. 		tempTD.setAttribute("align", 'center');
    596. 

  596. 		tempTD.setAttribute("width", '25');
    597. 

  597. 		newRow.appendChild(tempTD);
    598. 

  598. 

  599. 		tempTD=document.createElement("td");
    600. 

  600. 		tempTD.setAttribute("dir", 'LTR');
    601. 

  601. 		tempTD.innerHTML='<INPUT class="RcpRowInput" TYPE="text" NAME="ChequeNos" size="10" maxLength="6" onKeyPress="return mask(this);" onblur="check(this);">'
    602. 

  602. 	//	tempTD.innerHTML=chqTable.getElementsByTagName("tr")[0].getElementsByTagName("td")[1].innerHTML
    603. 

  603. 		newRow.appendChild(tempTD);
    604. 

  604. 

  605. 		tempTD=document.createElement("td");
    606. 

  606. 		tempTD.setAttribute("dir", 'LTR');
    607. 

  607. 		tempTD.innerHTML='<INPUT class="RcpRowInput" TYPE="text" NAME="ChequeDates" maxlength="10" size="10"  onKeyPress="return maskDate(this);" onblur="acceptDate(this);">'
    608. 

  608. 	//	tempTD.innerHTML=chqTable.getElementsByTagName("tr")[0].getElementsByTagName("td")[2].innerHTML
    609. 

  609. 		newRow.appendChild(tempTD);
    610. 

  610. 

  611. 		tempTD=document.createElement("td");
    612. 

  612. 		tempTD.innerHTML=chqTable.getElementsByTagName("tr")[0].getElementsByTagName("td")[3].innerHTML
    613. 

  613. 		newRow.appendChild(tempTD);
    614. 

  614. 

  615. 		tempTD=document.createElement("td");
    616. 

  616. 		tempTD.setAttribute("dir", 'LTR');
    617. 

  617. 		tempTD.innerHTML='<INPUT class="RcpRowInput" TYPE="text" NAME="Amounts" size="15" onKeyPress="return mask(this);" onBlur="setPrice(this);">'
    618. 

  618. 		newRow.appendChild(tempTD);
    619. 

  619. 

  620. 		tempTD=document.createElement("td");
    621. 

  621. 		tempTD.setAttribute("dir", 'RTL');
    622. 

  622. 		tempTD.innerHTML='<INPUT class="RcpRowInput" TYPE="text" NAME="Description" size="18" >'
    623. 

  623. 		newRow.appendChild(tempTD);
    624. 

  624. 					
    625. 

  625. 

  626. 		chqTable.insertBefore(newRow,theRow);
    627. 

  627. 

  628. 		chqTable.getElementsByTagName("tr")[rowNo].getElementsByTagName("td")[1].getElementsByTagName("Input")[0].focus();
    629. 

  629. 	}
    630. 

  630. 

  631. 	//===================================================
    632. 

  632. 	function setPrice(src){
    633. 

  633. 		myRow=src.parentNode.parentNode.rowIndex
    634. 

  634. 

  635. 		if (src.name=="Amounts" && document.getElementsByName("ChequeNos")[myRow].value==''){
    636. 

  636. 			src.value=0;
    637. 

  637. 		}
    638. 

  638. 		else{
    639. 

  639. 			src.value=val2txt(txt2val(src.value));
    640. 

  640. 		}
    641. 

  641. 		//cashAmount=parseInt(txt2val(document.getElementsByName("CashAmount")[0].value));
    642. 

  642. 		//totalAmount = cashAmount;
    643. 

  643. 		totalAmount = 0;
    644. 

  644. 

  645. 		for (rowNo=0; rowNo < document.getElementsByName("Amounts").length; rowNo++){
    646. 

  646. 			totalAmount += parseInt(txt2val(document.getElementsByName("Amounts")[rowNo].value));
    647. 

  647. 		}
    648. 

  648. 		document.all.TotalAmount.value = val2txt(totalAmount);
    649. 

  649. 	}
    650. 

  650. 

  651. 	var dialogActive=false;
    652. 

  652. 

  653. 	//===================================================
    654. 

  654. 	function check(src){ 
    655. 

  655. 		if (src.name=='ChequeNos'){
    656. 

  656. 			if (src.value=='0'){
    657. 

  657. 			if (confirm("           Ͽ\n\n"))
    658. 

  658. 				delRow(src.parentNode.parentNode.rowIndex);
    659. 

  659. 			}
    660. 

  660. 		}
    661. 

  661. 	}
    662. 

  662. 	//===================================================
    663. 

  663. 	function mask(src){ 
    664. 

  664. 		var theKey=event.keyCode;
    665. 

  665. 		if (theKey==13){
    666. 

  666. 			return true;
    667. 

  667. 		}
    668. 

  668. 		else if (theKey < 48 || theKey > 57) { // 0-9 are acceptable
    669. 

  669. 			return false;
    670. 

  670. 		}
    671. 

  671. 	}
    672. 

  672. 	//-->
    673. 

  673. 	</SCRIPT>
    674. 

  674. <%
    675. 

  675. '-----------------------------------------------------------------------------------------------------
    676. 

  676. '--------------------------------------------------------------------------------------------- Default
    677. 

  677. '-----------------------------------------------------------------------------------------------------
    678. 

  678. elseif request("act")="" then %>
    679. 

  679. <!--     -->
    680. 

  680. 	<BR><BR>
    681. 

  681. 	<FORM METHOD=POST ACTION="cheq.asp?act=submitsearch" onsubmit="if (document.all.CustomerNameSearchBox.value=='') return false;">
    682. 

  682. 	<div dir='rtl'>&nbsp;&nbsp;<B>  :    </B>
    683. 

  683. 		<INPUT TYPE="text" NAME="CustomerNameSearchBox">&nbsp;
    684. 

  684. 		<INPUT TYPE="submit" value=""><br>
    685. 

  685. 	</div>
    686. 

  686. 	</FORM>
    687. 

  687. 	<BR>
    688. 

  688. 	<SCRIPT LANGUAGE="JavaScript">
    689. 

  689. 	<!--
    690. 

  690. 		document.all.CustomerNameSearchBox.focus();
    691. 

  691. 	//-->
    692. 

  692. 	</SCRIPT>
    693. 

  693. <%
    694. 

  694. end if
    695. 

  695. conn.Close
    696. 

  696. '-----------------------------------------------------------------------------------------------------
    697. 

  697. '-----------------------------------------------------------------------------------------------------
    698. 

  698. '-----------------------------------------------------------------------------------------------------
    699. 

  699. %>
    700. 

  700. </font>
    701. 

  701. <!--#include file="tah.asp" -->
    702.