/beta/cashReg/CashRegAdminReport.asp

http://github.com/khaneh/Orders · ASP · 559 lines · 514 code · 37 blank · 8 comment · 58 complexity · e2efd9a76d7e2099be5db75530773661 MD5 · raw file 

    

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

  2. 'CashRegister (9)
    3. 

  3. PageTitle=" с "
    4. 

  4. SubmenuItem=6
    5. 

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

  6. %>
    7. 

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

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

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

  10. <STYLE>
    11. 

  11. 	.CClosTable {font-family:tahoma; font-size:9pt; direction: RTL; border:2 solid #330099;}
    12. 

  12. 	.CClosTable td {padding:5;border:1pt solid gray;}
    13. 

  13. 	.CClosTable a {text-decoration:none; color:#222288;}
    14. 

  14. 	.CClosTable a:hover {text-decoration:underline;}
    15. 

  15. 	.CClosTableTitle {background-color: #CCCCFF; text-align: center; font-weight:bold; height:50;}
    16. 

  16. 	.CClosTableHeader {background-color: #BBBBBB; text-align: center; font-weight:bold;}
    17. 

  17. 	.CClosTableFooter {background-color: #BBBBBB; direction: LTR; }
    18. 

  18. 	.CClosTR1 {background-color: #DDDDDD;}
    19. 

  19. 	.CClosTR2 {background-color: #FFFFFF;}
    20. 

  20. 	.CClosTR3 {background-color: #EEEEFF;}
    21. 

  21. 	.RepTable {font-family:tahoma; font-size:9pt; direction: RTL; }
    22. 

  22. 	.RepTable td {padding:5;border:1pt solid gray;}
    23. 

  23. 	.RepTable a {text-decoration:none; color:#222288;}
    24. 

  24. 	.RepTable a:hover {text-decoration:underline;}
    25. 

  25. 	.RepTableTitle {background-color: #CCCCFF; text-align: center; font-weight:bold; height:50;}
    26. 

  26. 	.RepTableHeader {background-color: #BBBBBB; text-align: center; font-weight:bold;}
    27. 

  27. 	.RepTableFooter {background-color: #BBBBBB; direction: LTR; }
    28. 

  28. 	.RepTR1 {background-color: #DDDDDD;}
    29. 

  29. 	.RepTR2 {background-color: #FFFFFF;}
    30. 

  30. 	.GenInput { font-family:tahoma; font-size: 9pt;}
    31. 

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

  32. </STYLE>
    33. 

  33. <%
    34. 

  34. function Link2Trace(OrderNo)
    35. 

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

  36. end function
    37. 

  37. 

  38. if request("act")="showCashRegReport" AND request("CashRegID")<>"" then 
    39. 

  39. 	CashRegID=request("CashRegID")
    40. 

  40. 	if not isnumeric(CashRegID) then
    41. 

  41. 		response.write "<br>" 
    42. 

  42. 		call showAlert ("   ",CONST_MSG_ERROR) 
    43. 

  43. 		response.end
    44. 

  44. 	end if
    45. 

  45. 	
    46. 

  46. 	mySQL="SELECT Bankers.Name AS BankerName, CashRegisters.*, Users.RealName FROM CashRegisters INNER JOIN Users ON CashRegisters.Cashier = Users.ID INNER JOIN Bankers ON CashRegisters.Banker = Bankers.ID WHERE (CashRegisters.ID='"& CashRegID & "')"
    47. 

  47. 	Set RS1= conn.Execute(mySQL)
    48. 

  48. 	if RS1.eof then 
    49. 

  49. 		response.write "<br>" 
    50. 

  50. 		call showAlert ("   ",CONST_MSG_ERROR) 
    51. 

  51. 		response.end
    52. 

  52. 	else
    53. 

  53. 		BankerName=RS1("BankerName")
    54. 

  54. 		CashRegName=RS1("NameDate")
    55. 

  55. 		CashierName=RS1("RealName")
    56. 

  56. 		OpenningDate=RS1("OpenDate")
    57. 

  57. 		OpenningAmount=cdbl(RS1("OpeningAmount"))
    58. 

  58. 		totalCashAmountA=Separate(RS1("cashAmountA")) ' SAM
    59. 

  59. 		totalCashAmountB=Separate(RS1("cashAmountB")) ' SAM
    60. 

  60. 		totalChequeAmount=Separate(RS1("chequeAmount"))
    61. 

  61. 		totalChequeQtty=RS1("chequeQtty")
    62. 

  62. 		TotalAmount=Separate(cdbl(RS1("cashAmountA")) + cdbl(RS1("cashAmountB")) + cdbl(RS1("chequeAmount")))
    63. 

  63. 

  64. 		Set RS1=nothing
    65. 

  65. 	end if
    66. 

  66. 

  67. 	mySQL="SELECT CashRegisterLines.*, ISNULL(Receipts.CashAmount,0) AS CashAmount, ISNULL(Receipts.ChequeAmount,0) AS ChequeAmount, Receipts.ChequeQtty, Payments.CashAmount AS PayAmount, Accounts_1.AccountTitle AS PayAccTitle, Accounts_2.AccountTitle AS RcpAccTitle, Accounts_1.ID AS PayAccID, Accounts_2.ID AS RcpAccID FROM CashRegisterLines LEFT OUTER JOIN Accounts Accounts_1 INNER JOIN Payments ON Accounts_1.ID = Payments.Account ON CashRegisterLines.Link = Payments.ID LEFT OUTER JOIN Accounts Accounts_2 INNER JOIN Receipts ON Accounts_2.ID = Receipts.Customer ON CashRegisterLines.Link = Receipts.ID WHERE (CashRegisterLines.CashReg = '"& CashRegID & "') ORDER BY CashRegisterLines.ID"
    68. 

  68. 	Set RS1 = conn.execute(mySQL)
    69. 

  69. 	Remained = 0
    70. 

  70.     Totalcredit = 0
    71. 

  71.     TotalDebit = 0
    72. 

  72. 	tempCounter = 0
    73. 

  73. 

  74. 	if Not (RS1.EOF AND OpenningAmount=0) then
    75. 

  75. %>		
    76. 

  76. 		<br>
    77. 

  77. 		<TABLE class="RepTable" width='100%' align='center'>
    78. 

  78. 		<TR>
    79. 

  79. 			<TD class="RepTableTitle" colspan=9 dir='rtl' align='center'><br><B>  <span dir='LTR'><%=CashRegName%></span> - <%=CashierName%></B><BR>(: <%=BankerName%>)<br>
    80. 

  80. 			</TD>
    81. 

  81. 		</TR>
    82. 

  82. 		<TR class="RepTableHeader">
    83. 

  83. 			<TD>#</TD>
    84. 

  84. 			<TD width="50px"></TD>
    85. 

  85. 			<TD width="10px"></TD>
    86. 

  86. 			<TD width="60px"></TD>
    87. 

  87. 			<td width="30px">/</td>
    88. 

  88. 			<TD></TD>
    89. 

  89. 			<TD width="60px"></TD>
    90. 

  90. 			<TD width="60px"></TD>
    91. 

  91. 			<TD width="60px"></TD>
    92. 

  92. 		</TR>
    93. 

  93. <%		
    94. 

  94. 		if OpenningAmount<>0 then
    95. 

  95. 			Remained = OpenningAmount
    96. 

  96. 			Credit = OpenningAmount
    97. 

  97. 			Totalcredit = OpenningAmount
    98. 

  98. 			tempCounter = 0
    99. 

  99. %>			<TR class='<%if tempCounter MOD 2 = 0 then response.write "RepTR1" else response.write "RepTR2"%>'>
    100. 

  100. 				<td><%=tempCounter%></td>
    101. 

  101. 				<td dir='LTR'><%=CashRegName%></td>
    102. 

  102. 				<td colspan='3'>  </td>
    103. 

  103. 				<td dir='LTR' align='right'><%=Separate(Debit)%>&nbsp;</td>
    104. 

  104. 				<td dir='LTR' align='right'><%=Separate(Credit)%>&nbsp;</td>
    105. 

  105. 				<td dir='LTR' align='right'><%=Separate(Remained)%>&nbsp;</td>
    106. 

  106. 			</TR>
    107. 

  107. <%		end if
    108. 

  108. 		While Not (RS1.EOF)
    109. 

  109. 			tempCounter=tempCounter+1
    110. 

  110. 			if RS1("Type")=1 then
    111. 

  111. 				sourceLink="../AR/AccountReport.asp?act=showReceipt&receipt="& RS1("Link")
    112. 

  112. '				voidLink="Void.asp?act=voidReceipt&receipt="& RS1("Link")
    113. 

  113. 				Description = " "
    114. 

  114. 				myAND=""
    115. 

  115. 

  116. 				CashAmount=cdbl(RS1("CashAmount"))
    117. 

  117. 				ChequeAmount=cdbl(RS1("ChequeAmount"))
    118. 

  118. 

  119. 				if CashAmount<>0 then
    120. 

  120. 					Description=Description & " "
    121. 

  121. 					myAND=" "
    122. 

  122. 				end if 
    123. 

  123. 				if RS1("ChequeQtty")<>0 then
    124. 

  124. 					Description=Description & myAND & RS1("ChequeQtty") & "   "
    125. 

  125. 				end if 
    126. 

  126. 				AccID=RS1("RcpAccID")
    127. 

  127. 				AccTitle=RS1("RcpAccTitle")
    128. 

  128. 				Credit= CashAmount + ChequeAmount
    129. 

  129. 				Debit=0
    130. 

  130. 

  131. 			elseif RS1("Type")=2 then
    132. 

  132. 				sourceLink="../AR/AccountReport.asp?act=showPayment&payment="& RS1("Link")
    133. 

  133. '				voidLink="Void.asp?act=voidPayment&payment="& RS1("Link")
    134. 

  134. 				Description = " "
    135. 

  135. 				AccID=RS1("PayAccID")
    136. 

  136. 				AccTitle=RS1("PayAccTitle")
    137. 

  137. 				Credit=0
    138. 

  138. 				Debit=RS1("PayAmount")
    139. 

  139. 			else
    140. 

  140. 				sourceLink="javascript:void(0);"
    141. 

  141. '				voidLink="javascript:void(0);"
    142. 

  142. 				Description = ""
    143. 

  143. 				AccountInfo=""
    144. 

  144. 				Credit=0
    145. 

  145. 				Debit=0 
    146. 

  146. 			end if
    147. 

  147. 			TotalDebit = TotalDebit + CLng(Debit)
    148. 

  148. 			Totalcredit = Totalcredit + CLng(Credit)
    149. 

  149. 			Remained = Remained + CLng(Credit) - CLng(Debit)
    150. 

  150. %>			<TR class='<%if tempCounter MOD 2 = 0 then response.write "RepTR1" else response.write "RepTR2"%>'>
    151. 

  151. 				<td><%=tempCounter%></td>
    152. 

  152. 				<td dir='LTR'><%=RS1("Date")%></td>
    153. 

  153. 				<td dir='LTR'><%=RS1("Time")%></td>
    154. 

  154. 				<td><A HREF='<%=sourceLink%>' target='_blank'><%=Description%></A></td>
    155. 

  155. 				<td align="center"><%
    156. 

  156. 				if CBool(rs1("isA")) then 
    157. 

  157. 					response.write("<b></b>")
    158. 

  158. 				else
    159. 

  159. 					response.write("")
    160. 

  160. 				end if
    161. 

  161. 				%></td>
    162. 

  162. 				<td><A HREF='../AR/AccountReport.asp?act=show&selectedCustomer=<%=AccID%>' target='_blank'><%=AccTitle%></A></td>
    163. 

  163. 				<td dir='LTR' align='right'><%=Separate(Debit)%></td>
    164. 

  164. 				<td dir='LTR' align='right'><%=Separate(Credit) %></td>
    165. 

  165. 				<td dir='LTR' align='right'>
    166. 

  166. <%					if RS1("Voided")=TRUE then
    167. 

  167. %>						<div style="position:absolute;width:650;"><hr style="color:red;"></div>
    168. 

  168. <%						response.write "xx xx xx" '& Separate(remained) & "xx"  
    169. 

  169. 						TotalDebit = TotalDebit - CLng(Debit)
    170. 

  170. 						Totalcredit = Totalcredit - CLng(Credit)
    171. 

  171. 						Remained = Remained - CLng(Credit) + CLng(Debit)
    172. 

  172. 					else
    173. 

  173. 						response.write Separate(remained)
    174. 

  174. 					end if
    175. 

  175. %>				</td>
    176. 

  176. 			</TR>
    177. 

  177. <%
    178. 

  178. 			RS1.MoveNext
    179. 

  179. 		Wend
    180. 

  180. 		if Remained>=0 then
    181. 

  181. 			remainedColor="green"
    182. 

  182. 		else
    183. 

  183. 			remainedColor="red"
    184. 

  184. 		end if
    185. 

  185. %>
    186. 

  186. 			<TR>
    187. 

  187. 				<TD class="RepTableFooter" colspan='6'>&nbsp;&nbsp; : </td>
    188. 

  188. 				<TD class="RepTableFooter" align='right'><%=Separate(totaldebit)%></td>
    189. 

  189. 				<TD class="RepTableFooter" align='right'><%=Separate(totalcredit)%></td>
    190. 

  190. 				<TD class="RepTableFooter" align='right'><FONT COLOR='<%=remainedColor%>'><%=Separate(Remained)%></FONT></td>
    191. 

  191. 			</TR>
    192. 

  192. 		</TABLE>
    193. 

  193. 		<br>
    194. 

  194. 		<TABLE class="CClosTable" width='90%' align='center' style="page-break-before:always;">
    195. 

  195. <%	
    196. 

  196. 		mySQL="SELECT ReceivedCheques.ChequeNo, ReceivedCheques.ChequeDate, ReceivedCheques.Description, ReceivedCheques.BankOfOrigin,  receivedCheques.Amount, CashRegisterLines.* FROM ReceivedCheques INNER JOIN Receipts ON ReceivedCheques.Receipt = Receipts.ID INNER JOIN CashRegisterLines ON Receipts.ID = CashRegisterLines.Link WHERE (CashRegisterLines.CashReg = '"& CashRegID & "') AND (CashRegisterLines.Type = 1) ORDER BY CashRegisterLines.[Date], CashRegisterLines.[Time]"
    197. 

  197. 		Set RS1 = conn.execute(mySQL)
    198. 

  198. 

  199. 		Remained = OpenningAmount
    200. 

  200. 		Credit = OpenningAmount
    201. 

  201. 		Totalcredit = OpenningAmount
    202. 

  202. 		TotalDebit = 0
    203. 

  203. 		tempCounter = 0
    204. 

  204. %>		<TR class='CClosTR3'>
    205. 

  205. 			<td colspan='7' align='center'>   <span dir='LTR'><%=CashRegName%></span> (: <%=CashierName%> : <%=BankerName%>)</TD>
    206. 

  206. 		</TR>
    207. 

  207. 		<TR>
    208. 

  208. 			<TD colspan='6' class="CClosTableFooter">: </td>
    209. 

  209. 			<TD class="CClosTableFooter" align='right'><span id='cashAmount'><%=Separate(cdbl(totalCashAmountA) + Cdbl(totalCashAmountB))%></span></TD>
    210. 

  210. 		</TR>
    211. 

  211. 		<TR>
    212. 

  212. 			<TD colspan='6' class="CClosTableFooter" style='direction:RTL;text-align=left;'>  (<span id='chequeQtty'><%=totalChequeQtty%></span> ) :</td>
    213. 

  213. 			<TD class="CClosTableFooter" align='right'><%=totalChequeAmount%></TD>
    214. 

  214. 		</TR>
    215. 

  215. 		<TR>
    216. 

  216. 			<TD colspan='6' class="CClosTableFooter">: </td>
    217. 

  217. 			<TD class="CClosTableFooter" align='right'><%=TotalAmount%></td>
    218. 

  218. 		</TR>
    219. 

  219. 		<TR class='CClosTR3'>
    220. 

  220. 			<td colspan='7' align='right'>  :</td>
    221. 

  221. 		</TR>
    222. 

  222. 		<TR class="CClosTableHeader">
    223. 

  223. 			<TD width="10px">#</TD>
    224. 

  224. 			<TD width="100px"> </TD>
    225. 

  225. 			<TD width="50px"></TD>
    226. 

  226. 			<TD width="50px"></TD>
    227. 

  227. 			<TD width="70px"> </TD>
    228. 

  228. 			<TD width="220px"></TD>
    229. 

  229. 			<TD width="70px"></TD>
    230. 

  230. 		</TR>
    231. 

  231. <%
    232. 

  232. 		While Not (RS1.EOF)
    233. 

  233. 			tempCounter=tempCounter+1
    234. 

  234. 			sourceLink="../AR/AccountReport.asp?act=showReceipt&receipt="& RS1("Link")
    235. 

  235. 			Description = " "
    236. 

  236. 			myAND=""
    237. 

  237. 

  238. 			Amount=Separate(RS1("Amount"))
    239. 

  239. 

  240. 			if RS1("Voided") then
    241. 

  241. 				tempCounter=tempCounter-1%>
    242. 

  242. 				<TR class='CClosTR4'>
    243. 

  243. 					<td>-</td>
    244. 

  244. 					<td dir='LTR'><A HREF='<%=sourceLink%>' target='_blank'><%=RS1("Date") & " @ " & RS1("Time")%></A></td>
    245. 

  245. 					<td><%=RS1("ChequeNo")%></td>
    246. 

  246. 					<td><%=RS1("BankOfOrigin")%></td>
    247. 

  247. 					<td dir='LTR'><%=RS1("ChequeDate")%></td>
    248. 

  248. 					<td><%=RS1("Description")%></td>
    249. 

  249. 					<td dir='LTR'>
    250. 

  250. 						<div style="position:absolute;width:600;"><hr style="color:red;"></div><div align='right'><%=Amount%></div>
    251. 

  251. <%			else%>						
    252. 

  252. 				<TR class='<%if tempCounter MOD 2 = 0 then response.write "CClosTR1" else response.write "CClosTR2"%>'>
    253. 

  253. 					<td><%=tempCounter%></td>
    254. 

  254. 					<td dir='LTR'><A HREF='<%=sourceLink%>' target='_blank'><%=RS1("Date") & " @ " & RS1("Time")%></A></td>
    255. 

  255. 					<td><%=RS1("ChequeNo")%></td>
    256. 

  256. 					<td><%=RS1("BankOfOrigin")%></td>
    257. 

  257. 					<td dir='LTR'><%=RS1("ChequeDate")%></td>
    258. 

  258. 					<td><%=RS1("Description")%></td>
    259. 

  259. 					<td dir='LTR' align='right'>
    260. 

  260. 						<%=Amount%>
    261. 

  261. <%			end if
    262. 

  262. %>					</td>
    263. 

  263. 				</TR>
    264. 

  264. <%
    265. 

  265. 			RS1.MoveNext
    266. 

  266. 		Wend
    267. 

  267. %>
    268. 

  268. 		</TABLE>
    269. 

  269. 		<br>
    270. 

  270. <%	end if
    271. 

  271. else
    272. 

  272. %>
    273. 

  273. 	<BR><BR>
    274. 

  274. 	<TABLE class="RepTable" align='center'>
    275. 

  275. 	<TR class="RepTableTitle">
    276. 

  276. 		<TD colspan=<% if Auth(9,9) then response.write "11" else response.write "6" end if%>>       </TD>
    277. 

  277. 	</TR>
    278. 

  278. <%
    279. 

  279. 

  280. 	Banker = request("Banker")
    281. 

  281. 	connector = ""
    282. 

  282. 	Criteria = ""
    283. 

  283. 

  284. 	if isnumeric(Banker) then Banker = cint(Banker) else Banker = 0
    285. 

  285. 

  286. 	if Banker <> 0 then
    287. 

  287. 		Criteria = Criteria & connector & "(CashRegisters.Banker = " & Banker & ")"
    288. 

  288. 		connector = " AND "
    289. 

  289. 	end if
    290. 

  290. 

  291. 	Cashier = request("Cashier")
    292. 

  292. 	if isnumeric(Cashier) then Cashier = cint(Cashier) else Cashier = 0
    293. 

  293. 

  294. 	if Cashier <> 0 then
    295. 

  295. 		Criteria = Criteria & connector & "(CashRegisters.Cashier = " & Cashier & ")"
    296. 

  296. 		connector = " AND "
    297. 

  297. 	end if
    298. 

  298. 

  299. 	openDateStart = sqlSafe(request("openDateStart"))
    300. 

  300. 	openDateEnd =	sqlSafe(request("openDateEnd"))
    301. 

  301. 	if openDateStart <> "" then
    302. 

  302. 		Criteria = Criteria & connector & "(CashRegisters.openDate >= '" & openDateStart & "')"
    303. 

  303. 		connector = " AND "
    304. 

  304. 	end if
    305. 

  305. 	if openDateEnd <> "" then
    306. 

  306. 		Criteria = Criteria & connector & "(CashRegisters.openDate <= '" & openDateEnd & "')"
    307. 

  307. 		connector = " AND "
    308. 

  308. 	end if
    309. 

  309. 

  310. 	closeDateStart=	sqlSafe(request("closeDateStart"))
    311. 

  311. 	closeDateEnd =	sqlSafe(request("closeDateEnd"))
    312. 

  312. 	if closeDateStart <> "" then
    313. 

  313. 		Criteria = Criteria & connector & "(CashRegisters.closeDate >= '" & closeDateStart & "')"
    314. 

  314. 		connector = " AND "
    315. 

  315. 	end if
    316. 

  316. 	if closeDateEnd <> "" then
    317. 

  317. 		Criteria = Criteria & connector & "(CashRegisters.closeDate <= '" & closeDateEnd & "')"
    318. 

  318. 		connector = " AND "
    319. 

  319. 	end if
    320. 

  320. 

  321. 	hasTheDate =	sqlSafe(request("hasTheDate"))
    322. 

  322. 	if hasTheDate <> "" then
    323. 

  323. 		Criteria = Criteria & connector & "(CashRegisters.openDate <= '" & hasTheDate & "') AND (CashRegisters.closeDate >= '" & hasTheDate & "')"
    324. 

  324. 		connector = " AND "
    325. 

  325. 	end if
    326. 

  326. 	
    327. 

  327. 	if Criteria <> "" then Criteria = " WHERE " & Criteria
    328. 

  328. 

  329. 	Sort = request("Sort")
    330. 

  330. 	if isnumeric(Sort) then Sort = cint(Sort) else Sort = 0
    331. 

  331. 

  332. 	OrderBy=""
    333. 

  333. 	Select Case Sort
    334. 

  334. 	Case 0:
    335. 

  335. 		OrderBy="ORDER BY CashRegisters.IsOpen DESC, CashRegisters.OpenDate DESC"
    336. 

  336. 	Case 1:
    337. 

  337. 		OrderBy="ORDER BY CashRegisters.NameDate DESC"
    338. 

  338. 	Case 2:
    339. 

  339. 		OrderBy="ORDER BY CashierName"
    340. 

  340. 	Case 3:
    341. 

  341. 		OrderBy="ORDER BY BankerName"
    342. 

  342. 	Case 4:
    343. 

  343. 		OrderBy="ORDER BY CashRegisters.OpenDate DESC"
    344. 

  344. 	Case 5:
    345. 

  345. 		OrderBy="ORDER BY CashRegisters.CloseDate DESC"
    346. 

  346. 	End Select
    347. 

  347. 

  348. 	PageLink = "Banker=" & Banker & "&Cashier=" & Cashier & "&openDateStart=" & openDateStart & "&openDateEnd=" & openDateEnd & "&closeDateStart=" & closeDateStart & "&closeDateEnd=" & closeDateEnd & "&hasTheDate=" & hasTheDate & "&Sort=" & Sort
    349. 

  349. 

  350. %>
    351. 

  351. 	<FORM METHOD=POST ACTION="?">
    352. 

  352. 	<TR class="RepTableTitle">
    353. 

  353. 		<TD colspan=<% if Auth(9,9) then response.write "11" else response.write "6" end if%>><table border=0 width=100%>
    354. 

  354. 		<tr>
    355. 

  355. 			<td align='left'>:</td>
    356. 

  356. 			<td colspan=2><SELECT NAME="Banker" class="GenInput">
    357. 

  357. 				<option Value=""> --   -- </option>
    358. 

  358. <%				mySQL="SELECT * FROM Bankers WHERE (IsBankAccount <> 1)"
    359. 

  359. 				Set RS1 = conn.Execute(mySQL)
    360. 

  360. 				do while not (RS1.eof)
    361. 

  361. 					if cint(RS1("ID")) = Banker then selectedText="selected" else selectedText=""
    362. 

  362. %>					<option Value="<%=RS1("ID")%>" <%=selectedText%>><%=RS1("Name")%></option>
    363. 

  363. <%
    364. 

  364. 					RS1.movenext
    365. 

  365. 				loop
    366. 

  366. 				RS1.close
    367. 

  367. %>				</SELECT>
    368. 

  368. 			</td>
    369. 

  369. 			<td align='left'>:</td>
    370. 

  370. 			<td colspan=2><SELECT NAME="Cashier" class="GenInput">
    371. 

  371. 				<option Value=""> --   -- </option>
    372. 

  372. <%				mySQL="SELECT * FROM Users WHERE Display=1 ORDER BY RealName"
    373. 

  373. 				Set RS1 = conn.Execute(mySQL)
    374. 

  374. 				do while not (RS1.eof)
    375. 

  375. 					if cint(RS1("ID")) = Cashier then selectedText="selected" else selectedText=""
    376. 

  376. %>					<option Value="<%=RS1("ID")%>" <%=selectedText%>><%=RS1("RealName")%></option>
    377. 

  377. <%
    378. 

  378. 					RS1.movenext
    379. 

  379. 				loop
    380. 

  380. 				RS1.close
    381. 

  381. %>				</SELECT>
    382. 

  382. 

  383. 				
    384. 

  384. 			</td>
    385. 

  385. 		</tr>
    386. 

  386. 		<tr>
    387. 

  387. 			<td align='left'> :</td>
    388. 

  388. 			<td>:<INPUT TYPE="text" NAME="openDateStart" value="<%=openDateStart%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    389. 

  389. 			<td>:<INPUT TYPE="text" NAME="openDateEnd" value="<%=openDateEnd%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    390. 

  390. 			<td> :</td>
    391. 

  391. 			<td colspan=2><SELECT NAME="Sort" class="GenInput">
    392. 

  392. 				<option Value="0" <%if Sort = 0 then response.write "selected"%>>   </option>
    393. 

  393. 				<option Value="1" <%if Sort = 1 then response.write "selected"%>>   </option>
    394. 

  394. 				<option Value="2" <%if Sort = 2 then response.write "selected"%>>  </option>
    395. 

  395. 				<option Value="3" <%if Sort = 3 then response.write "selected"%>>  </option>
    396. 

  396. 				<option Value="4" <%if Sort = 4 then response.write "selected"%>>   </option>
    397. 

  397. 				<option Value="5" <%if Sort = 5 then response.write "selected"%>>   </option>
    398. 

  398. 				</SELECT>
    399. 

  399. 			</td>
    400. 

  400. 		</tr>
    401. 

  401. 		<tr>
    402. 

  402. 			<td align='left'> :</td>
    403. 

  403. 			<td>:<INPUT TYPE="text" NAME="closeDateStart" value="<%=closeDateStart%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    404. 

  404. 			<td>:<INPUT TYPE="text" NAME="closeDateEnd" value="<%=closeDateEnd%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    405. 

  405. 			<td align='left'> :</td>
    406. 

  406. 

  407. 			<td>
    408. 

  408. 				<INPUT TYPE="text" NAME="hasTheDate" value="<%=hasTheDate%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);">
    409. 

  409. 			</td>
    410. 

  410. 			<td align=center>
    411. 

  411. 				<INPUT TYPE="submit" class="GenButton" value="">
    412. 

  412. 			</td>
    413. 

  413. 		</tr>
    414. 

  414. 		</table>
    415. 

  415. 		</TD>
    416. 

  416. 	</TR>
    417. 

  417. 	</FORM>
    418. 

  418. 	<FORM METHOD=POST ACTION="?act=showCashRegReport">
    419. 

  419. <%
    420. 

  420. 

  421. 	if Auth(9,9) then 
    422. 

  422. 		mySQL="SELECT CashRegisters.ID, MAX(Users.RealName) AS CashierName, MAX(Bankers.Name) AS BankerName, CashRegisters.NameDate, CashRegisters.CloseDate, isnull(SUM(case when CashRegisterLines.isA=1 and CashRegisterLines.Type=1 then ISNULL(Receipts.CashAmount,0) end),0) AS sumCashAmountA, isnull(SUM(case when CashRegisterLines.isA=0 and CashRegisterLines.Type=1 then ISNULL(Receipts.CashAmount,0) end),0) AS sumCashAmountB, SUM(ISNULL(case when CashRegisterLines.Type=1 then Receipts.ChequeAmount end,0)) AS sumChequeAmount, SUM(case when CashRegisterLines.isA=1 and CashRegisterLines.Type=2 then ISNULL(Payments.CashAmount,0) end) AS sumPayAmountA, SUM(case when CashRegisterLines.isA=0 and CashRegisterLines.Type=2 then ISNULL(Payments.CashAmount,0) end) AS sumPayAmountB FROM CashRegisters INNER JOIN Users ON CashRegisters.Cashier = Users.ID INNER JOIN Bankers ON CashRegisters.Banker = Bankers.ID LEFT OUTER JOIN CashRegisterLines ON CashRegisters.ID = CashRegisterLines.CashReg and CashRegisterLines.voided=0 LEFT OUTER JOIN Payments ON CashRegisterLines.Link = Payments.ID LEFT OUTER JOIN Receipts ON CashRegisterLines.Link = Receipts.ID " &Criteria& " GROUP BY CashRegisters.ID,CashRegisters.NameDate, CashRegisters.CloseDate, CashRegisters.IsOpen, CashRegisters.OpenDate, CashRegisters.Banker, CashRegisters.Cashier "& OrderBy
    423. 

  423. 	else
    424. 

  424. 		mySQL="SELECT CashRegisters.ID, Users.RealName AS CashierName, Bankers.Name AS BankerName, CashRegisters.NameDate, CashRegisters.CloseDate FROM CashRegisters INNER JOIN Users ON CashRegisters.Cashier = Users.ID INNER JOIN Bankers ON CashRegisters.Banker = Bankers.ID " & Criteria & " " & OrderBy
    425. 

  425. 	end if
    426. 

  426. 	'-------------------Add by Sam
    427. 

  427. 	if Auth(9,9) then 
    428. 

  428. 		mySQLsum = "SELECT SUM(case when CashRegisterLines.isA=1 and CashRegisterLines.Type=1 then ISNULL(Receipts.CashAmount,0) end) AS sumCashAmountA, SUM(case when CashRegisterLines.isA=0 and CashRegisterLines.Type=1 then ISNULL(Receipts.CashAmount,0) end) AS sumCashAmountB, SUM(ISNULL(case when CashRegisterLines.Type=1 then Receipts.ChequeAmount end,0)) AS sumChequeAmount, SUM(case when CashRegisterLines.isA=1 and CashRegisterLines.Type=2 then ISNULL(Payments.CashAmount,0) end) AS sumPayAmountA, SUM(case when CashRegisterLines.isA=0 and CashRegisterLines.Type=2 then ISNULL(Payments.CashAmount,0) end) AS sumPayAmountB FROM CashRegisters INNER JOIN Users ON CashRegisters.Cashier = Users.ID INNER JOIN Bankers ON CashRegisters.Banker = Bankers.ID LEFT OUTER JOIN CashRegisterLines ON CashRegisters.ID = CashRegisterLines.CashReg and CashRegisterLines.voided=0 LEFT OUTER JOIN Payments ON CashRegisterLines.Link = Payments.ID LEFT OUTER JOIN Receipts ON CashRegisterLines.Link = Receipts.ID " &Criteria
    429. 

  429. 		Set rsSUM = Conn.Execute(mySQLsum)
    430. 

  430. 	end if
    431. 

  431. 	Set rs=Server.CreateObject("ADODB.Recordset")'Conn.Execute(mySQL)
    432. 

    433. 

  433. 	PageSize = 20
    434. 

  434. 	rs.PageSize = PageSize
    435. 

  435. 

  436. 	rs.CursorLocation=3 'in ADOVBS_INC adUseClient=3
    437. 

  437. 	rs.Open mySQL ,Conn,3
    438. 

  438. 	TotalPages = rs.PageCount
    439. 

  439. 

  440. 	CurrentPage=1
    441. 

  441. 

  442. 	if isnumeric(Request.QueryString("p")) then
    443. 

  443. 		pp=clng(Request.QueryString("p"))
    444. 

  444. 		if pp <= TotalPages AND pp > 0 then
    445. 

  445. 			CurrentPage = pp
    446. 

  446. 		end if
    447. 

  447. 	end if
    448. 

  448. 

  449. 	if not rs.eof then
    450. 

  450. 		rs.AbsolutePage=CurrentPage
    451. 

  451. 	end if
    452. 

  452. 

  453. 	if rs.eof then
    454. 

  454. %>		<tr>
    455. 

  455. 			<td colspan=<% if Auth(9,9) then response.write "11" else response.write "7" end if%> class="CusTD3" style='direction:RTL;'> .</td>
    456. 

  456. 		</tr>
    457. 

  457. <%	else
    458. 

  458. %>		<tr class="RepTableHeader">
    459. 

  459. 			<td width="20px">#</td>
    460. 

  460. 			<td width="10px"><input disabled type="radio"></td>
    461. 

  461. 			<td>   </td>
    462. 

  462. 			<td>  </td>
    463. 

  463. 			<td>  </td>
    464. 

  464. 			<td>   </td>
    465. 

  465. 			<%
    466. 

  466. 			'-------------------Add by Sam
    467. 

  467. 			if Auth(9,9) then 
    468. 

  468. 			%>
    469. 

  469. 			<td>  </td>
    470. 

  470. 			<td>  </td>
    471. 

  471. 			<td> </td>
    472. 

  472. 			<td> </td>
    473. 

  473. 			<td> </td>
    474. 

  474. 			<%
    475. 

  475. 			end if
    476. 

  476. 			%>
    477. 

  477. 		</tr>
    478. 

  478. 		<%
    479. 

  479. 		'-------------------Add by Sam
    480. 

  480. 		if (Auth(9,9)) then 
    481. 

  481. 			if NOT rsSUM.eof then 
    482. 

  482. 		%>
    483. 

  483. 			<TR class='RepTR1'>
    484. 

  484. 					<TD colspan=6 align="center" style="font-weight: bold;"> </TD>
    485. 

  485. 					<%
    486. 

  486. 					
    487. 

  487. 					if Auth(9,9) then 
    488. 

  488. 					%>
    489. 

  489. 					<td><%=Separate(rsSUM("sumCashAmountA"))%></td>
    490. 

  490. 					<td><%=Separate(rsSUM("sumCashAmountB"))%></td>
    491. 

  491. 					<td><%=Separate(rsSUM("sumChequeAmount"))%></td>
    492. 

  492. 					<td><%=Separate(rsSUM("sumPayAmountA"))%></td>
    493. 

  493. 					<td><%=Separate(rsSUM("sumPayAmountB"))%></td>
    494. 

  494. 					<%
    495. 

  495. 					end if
    496. 

  496. 					%>
    497. 

  497. 			</TR>
    498. 

  498. 	<%		end if
    499. 

  499. 		end if
    500. 

  500. 		tempCounter=(CurrentPage - 1) * PageSize
    501. 

  501. 

  502. 		Do While NOT rs.eof AND (rs.AbsolutePage = CurrentPage) 
    503. 

  503. 			tempCounter = tempCounter+1
    504. 

  504. 			CloseDate=rs("CloseDate")
    505. 

  505. 			if isnull(CloseDate) then
    506. 

  506. 				CloseDate="<FONT COLOR='Red'>  </FONT>"
    507. 

  507. 			end if
    508. 

  508. %>
    509. 

  509. 			<TR class='<%if tempCounter MOD 2 = 0 then response.write "RepTR1" else response.write "RepTR2"%>'>
    510. 

  510. 				<TD><%=tempCounter%></TD>
    511. 

  511. 				<TD><INPUT TYPE="radio" NAME="CashRegID" Value='<%=rs("ID")%>'></TD>
    512. 

  512. 				<TD dir='LTR'><%=rs("NameDate")%></TD>
    513. 

  513. 				<TD><%=rs("CashierName")%></TD>
    514. 

  514. 				<TD><%=rs("BankerName")%></TD>
    515. 

  515. 				<TD dir='LTR'><%=CloseDate%></TD>
    516. 

  516. 				<%
    517. 

  517. 				'-------------------Add by Sam
    518. 

  518. 				if Auth(9,9) then 
    519. 

  519. 				%>
    520. 

  520. 				<td><%=Separate(rs("sumCashAmountA"))%></td>
    521. 

  521. 				<td><%=Separate(rs("sumCashAmountB"))%></td>
    522. 

  522. 				<td><%=Separate(rs("sumChequeAmount"))%></td>
    523. 

  523. 				<td><%=Separate(rs("sumPayAmountA"))%></td>
    524. 

  524. 				<td><%=Separate(rs("sumPayAmountB"))%></td>
    525. 

  525. 				<%
    526. 

  526. 				end if
    527. 

  527. 				%>
    528. 

  528. 			</TR>
    529. 

  529. 

  530. <%
    531. 

  531. 			rs.MoveNext
    532. 

  532. 		Loop
    533. 

  533. %>			<tr class="RepTableTitle">
    534. 

  534. 				<td align='right' colspan=<% if Auth(9,9) then response.write "11" else response.write "6" end if%>>
    535. 

  535. <%					
    536. 

  536. 		if TotalPages > 1 then
    537. 

  537. 					response.write " &nbsp;"
    538. 

  538. 					for i=1 to TotalPages 
    539. 

  539. 						if i = CurrentPage then 
    540. 

  540. %>							[<%=i%>]&nbsp;
    541. 

  541. <%						else
    542. 

  542. %>							<A HREF="?<%=PageLink%>&p=<%=i%>"><%=i%></A>&nbsp;
    543. 

  543. <%						end if 
    544. 

  544. 						if i mod 16 = 0 then response.write "<br>" 
    545. 

  545. 					next 
    546. 

  546. 			end if
    547. 

  547. 	end if
    548. 

  548. %>					<BR>
    549. 

  549. 					<P align=center><INPUT TYPE="submit" Value="" class="GenButton"></P>
    550. 

  550. 				</td>
    551. 

  551. 			</tr>
    552. 

  552. 	</TABLE>
    553. 

  553. 	</FORM>
    554. 

  554. <%
    555. 

  555. end if
    556. 

  556. conn.Close
    557. 

  557. %>
    558. 

  558. </font>
    559. 

  559. <!--#include file="tah.asp" -->
    560.