/beta/AR/rep_dailySale.asp

http://github.com/khaneh/Orders · ASP · 254 lines · 236 code · 15 blank · 3 comment · 26 complexity · 2573de91d63202477208af8267a05de7 MD5 · raw file 

    

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

  2. 'Order (2)
    3. 

  3. PageTitle=" "
    4. 

  4. SubmenuItem=11
    5. 

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

  6. %>
    7. 

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

  8. <STYLE>
    9. 

  9. 	.GetCustTbl {font-family:tahoma; background-color: #DDDDDD; width:630; direction: RTL; }
    10. 

  10. 	.GetCustTbl td {padding:2; font-size: 9pt; height:25;}
    11. 

  11. 	.GetCustInp { font-family:tahoma; font-size: 9pt;}
    12. 

  12. 	.CusTableHeader {background-color: #33AACC; text-align: center; font-weight:bold;}
    13. 

  13. 	.CustContactTable {font-family:tahoma; width:100%; border:1 solid black; direction: RTL; background-color:#CCCCCC;}
    14. 

  14. 	.CustContactTable td {padding:5;}
    15. 

  15. 	.CustTable {font-family:tahoma; width:80%; border:1 solid black; direction: RTL; background-color:black;}
    16. 

  16. 	.CustTable td {padding:5;}
    17. 

  17. 	.CustTable a {text-decoration:none;color:#000088}
    18. 

  18. 	.CustTable a:hover {text-decoration:underline;}
    19. 

  19. 	.CusTD1 {background-color: #CCCC66; text-align: left; font-weight:bold;}
    20. 

  20. 	.CusTD2 {background-color: #DDDDDD; direction: LTR; text-align: right; font-size:9pt;}
    21. 

  21. 	.CusTD3 {background-color: #DDDDDD; direction: LTR; text-align: center; font-size:9pt;}
    22. 

  22. 	.CusTD4 {background-color: #CCCC66; direction: LTR; text-align: center; font-size:9pt;}
    23. 

  23. 	.CustTable4 {font-family:tahoma; direction: RTL; width:100%; height:100%; background-color:#C3DBEB;}
    24. 

  24. 	.Inp1 {font-size: 9pt;background-color: #CCE;border: none;direction: LTR;}
    25. 

  25. </STYLE>
    26. 

  26. <% 
    27. 

  27. if Auth("C" , 2) then 
    28. 

  28. 	input_date_start=	sqlSafe(request("input_date_start"))
    29. 

  29. 	input_date_end=		sqlSafe(request("input_date_end"))
    30. 

  30. else
    31. 

  31. 	input_date_start=	sqlSafe(request("input_date"))
    32. 

  32. 	input_date_end=		sqlSafe(request("input_date"))
    33. 

  33. end if
    34. 

  34. 

  35. 	if request("fullyApplied")="on" then 
    36. 

  36. 		fullyApplied=1
    37. 

  37. 	else 
    38. 

  38. 		fullyApplied=0
    39. 

  39. 	end if
    40. 

  40. 'ON ERROR RESUME Next
    41. 

  41. Ord =	request("Ord")	
    42. 

  42. page=	request("page")	
    43. 

  43. select case Ord
    44. 

  44. 	case "1":
    45. 

  45. 		order="EffectiveDate"
    46. 

  46. 	case "-1":
    47. 

  47. 		order="EffectiveDate DESC"
    48. 

  48. 	case "2":
    49. 

  49. 		order="AccountTitle"
    50. 

  50. 	case "-2":
    51. 

  51. 		order="AccountTitle DESC"
    52. 

  52. 	case "3":
    53. 

  53. 		order="AmountOriginal"
    54. 

  54. 	case "-3":
    55. 

  55. 		order="AmountOriginal DESC"
    56. 

  56. 	case "4":
    57. 

  57. 		order="RemainedAmount"
    58. 

  58. 	case "-4":
    59. 

  59. 		order="RemainedAmount DESC"
    60. 

  60. 	Case "5":
    61. 

  61. 		order = "arBalance"
    62. 

  62. 	Case "-5":
    63. 

  63. 		order = "arBalance DESC"
    64. 

  64. 	case "6":
    65. 

  65. 		order="FullyApplied"
    66. 

  66. 	case "-6":
    67. 

  67. 		order="FullyApplied DESC"
    68. 

  68. 	case else:
    69. 

  69. 		order="EffectiveDate"
    70. 

  70. 		Ord=1
    71. 

  71. end select	
    72. 

  72. mySQL="select SUM(AmountOriginal) as AmountOriginal,SUM(RemainedAmount) as RemainedAmount, MAX(arBalance) as arBalance, count(ARItems.ID) AS totalItems from ARItems inner join Accounts on ARItems.Account=Accounts.ID where (ARItems.EffectiveDate between '" & input_date_start & "' and '" & input_date_end & "') and ARItems.Type=1 and ARItems.voided=0"
    73. 

  73. if fullyApplied=1 then mySQL=mySQL&" AND FullyApplied=0"
    74. 

  74. 

  75. %>
    76. 

  76. <TABLE dir=rtl align=center width=640 cellspacing=2 cellpadding=2 style="border:2 solid #330066;">	
    77. 

  77. <%
    78. 

  78. set rs=Conn.Execute (mySQL)
    79. 

  79. if rs.eof then
    80. 

  80. %>	<tr>
    81. 

  81. 		<td bgcolor="#BBBBBB" height="30" colspan="7" align=center><b> .</b></td>
    82. 

  82. 	</tr>
    83. 

  83. <%	Else %>
    84. 

  84. 	<TR bgcolor="#CCCCEE" >
    85. 

  85. 		<TD colspan=2 rowspan=2 title=" <%=rs("totalItems")%>  ">
    86. 

  86. 			<form method=post>
    87. 

  87. 				&nbsp;  <input class=Inp1 type=text name='input_date_start' size=10 value='<%=input_date_start%>' style="width:55px;">
    88. 

  88. 				&nbsp;  <input class=Inp1 type=text name='input_date_end' size=10 value='<%=input_date_end%>' style="width:55px;">
    89. 

  89. 				&nbsp;  <input type=CHECKBOX name='fullyApplied' <% if fullyApplied=1 then response.write("checked") %>>
    90. 

  90. 				<input type=submit value='Ȑ'>
    91. 

  91. 				<input type=hidden name="Ord" value='<%=Ord%>'>
    92. 

  92. 				<input type=hidden name="Page" value='<%=page%>'>
    93. 

  93. 			</form>
    94. 

  94. 		</TD>
    95. 

  95. 

  96. 		<TD width=70 > </TD>
    97. 

  97. 		<TD width=70 > </TD>
    98. 

  98. 		<TD width=70 >  ȝ</TD>
    99. 

  99. 		<TD width=70 ></TD>
    100. 

  100. 	</TR>
    101. 

  101. 	<TR bgcolor="#CCCCEE" >
    102. 

  102. 		<TD width=70 dir=ltr align=right><b><%=Separate(rs("AmountOriginal"))%></b></TD>
    103. 

  103. 		<TD width=70 dir=ltr align=right><b><%=Separate(rs("RemainedAmount"))%></b></TD>
    104. 

  104. 		<TD width=70 dir=ltr align=right><b><%=Separate(rs("arBalance"))%></b></TD>
    105. 

  105. 		<TD></TD>
    106. 

  106. 	</TR>
    107. 

  107. 	<TR bgcolor="black" height="2">
    108. 

  108. 		<TD colspan="6" style="padding:0;"></TD>
    109. 

  109. 	</TR>
    110. 

  110. <%
    111. 

  111. 	rs.close
    112. 

  112. 

  113. 	if ord<0 then
    114. 

  114. 		style="background-color: #33CC99;"
    115. 

  115. 		arrow="<br><span style='font-family:webdings'>6 6 6</span>"
    116. 

  116. 	else
    117. 

  117. 		style="background-color: #33CC99;"
    118. 

  118. 		arrow="<br><span style='font-family:webdings'>5 5 5</span>"
    119. 

  119. 	end if
    120. 

  120. %>
    121. 

  121. 	<TR bgcolor="eeeeee" style="cursor:hand;" title=" ">
    122. 

  122. 		<TD width=50 onclick='go2Page(1,-1);' style="<%if abs(ord)=1 then response.write style%>"><%if abs(ord)=1 then response.write arrow%></TD>
    123. 

  123. 		<TD width='*'  onclick='go2Page(1,-2);' style="<%if abs(ord)=2 then response.write style%>"> <%if abs(ord)=2 then response.write arrow%></TD>
    124. 

  124. 		<TD width=70 onclick='go2Page(1,-3);' style="<%if abs(ord)=3 then response.write style%>"><%if abs(ord)=3 then response.write arrow%></TD>
    125. 

  125. 		<TD width=70 onclick='go2Page(1,-4);' style="<%if abs(ord)=4 then response.write style%>"><%if abs(ord)=4 then response.write arrow%></TD>
    126. 

  126. 		
    127. 

  127. 		<TD width=70 onclick='go2Page(1,-5);' style="<%if abs(ord)=5 then response.write style%>"> <%if abs(ord)=5 then response.write arrow%></TD>
    128. 

  128. 		<TD width=70 onclick='go2Page(1,-6);' style="<%if abs(ord)=6 then response.write style%>"><%if abs(ord)=6 then response.write arrow%></TD>
    129. 

  129. 	</TR>
    130. 

  130. 	<TR bgcolor="eeeeee" >
    131. 

  131. 		<TD colspan=6 height=2 bgcolor=0></TD>
    132. 

  132. 	</TR>
    133. 

  133. <%		
    134. 

  134. 	SumAmount=0
    135. 

  135. 	SumRemain=0
    136. 

  136. 	tmpCounter=0
    137. 

  137. 

  138. 	mySQL="select Accounts.arBalance,Accounts.AccountTitle, ARItems.* from ARItems inner join Accounts on ARItems.Account=Accounts.ID where (ARItems.EffectiveDate between '" & input_date_start & "' and '" & input_date_end & "')  and ARItems.Type=1 and ARItems.voided=0" 
    139. 

  139. 	if fullyApplied=1 then mySQL=mySQL&" AND ARItems.FullyApplied=0"
    140. 

  140. 	mySQL= mySQL & " ORDER BY " & order
    141. 

  141. 	Set rs=Server.CreateObject("ADODB.Recordset")'Conn.Execute(mySQL)
    142. 

    143. 

  143. 	PageSize = 50
    144. 

  144. 	rs.PageSize = PageSize
    145. 

  145. 'response.write mySql
    146. 

  146. 	rs.CursorLocation=3 'in ADOVBS_INC adUseClient=3
    147. 

  147. 	rs.Open mySQL ,Conn,3
    148. 

  148. 	TotalPages = rs.PageCount
    149. 

  149. 

  150. 	CurrentPage=1
    151. 

  151. 

  152. 	if isnumeric(Page) then
    153. 

  153. 		pp=clng(Page)
    154. 

  154. 		if pp <= TotalPages AND pp > 0 then
    155. 

  155. 			CurrentPage = pp
    156. 

  156. 		end if
    157. 

  157. 	end if
    158. 

  158. 

  159. 	if not rs.eof then
    160. 

  160. 		rs.AbsolutePage=CurrentPage
    161. 

  161. 	end if
    162. 

  162. 

  163. 	if rs.eof then
    164. 

  164. %>		<tr>
    165. 

  165. 			<td bgcolor="#BBBBBB" height="30" colspan="7" align=center><b> .</b></td>
    166. 

  166. 		</tr>
    167. 

  167. <%	else
    168. 

  168. 		Do While NOT rs.eof AND (rs.AbsolutePage = CurrentPage)
    169. 

  169. 			tmpCounter = tmpCounter + 1
    170. 

  170. 			if tmpCounter mod 2 = 1 then
    171. 

  171. 				tmpColor="#FFFFFF"
    172. 

  172. 				tmpColor2="#FFFFBB"
    173. 

  173. 			Else
    174. 

  174. 				tmpColor="#DDDDDD"
    175. 

  175. 				tmpColor2="#EEEEBB"
    176. 

  176. 			End if 
    177. 

  177. 	%>
    178. 

  178. 			<TR <%
    179. 

  179. 			if rs("voided")="False" then 
    180. 

  180. 				response.write "bgcolor='" & tmpColor & "'" 
    181. 

  181. 			else 
    182. 

  182. 				response.write "bgcolor='#FFEEEE' title=' '"
    183. 

  183. 			end if
    184. 

  184. 			%>" >
    185. 

  185. 				<TD><%=Separate(rs("EffectiveDate"))%></TD>
    186. 

  186. 				<TD title=" "><A href='../CRM/AccountInfo.asp?act=show&selectedCustomer=<%=rs("Account")%>'><%=rs("AccountTitle")%></A></TD>
    187. 

  187. 				<TD dir=ltr align=right title="  "><a href='AccountReport.asp?act=showInvoice&invoice=<%=rs("Link")%>'><%=Separate(rs("AmountOriginal"))%></a></TD>
    188. 

  188. 				<TD dir=ltr align=right><%=Separate(rs("RemainedAmount"))%></TD>
    189. 

  189. 				<TD dir=ltr align=right title=" " <% if cdbl(rs("arBalance"))<0 then response.write("style='background-color:#F55;'") %>><a href='AccountReport.asp?sys=AR&act=show&selectedCustomer=<%=rs("Account")%>'><%=Separate(rs("arBalance"))%></a></TD>
    190. 

  190. 				<TD ><% 
    191. 

  191. 					if rs("FullyApplied")="True" then 
    192. 

  192. 						response.write(" ")
    193. 

  193. 					else
    194. 

  194. 						response.write("<b style='color:red;'> </b>")
    195. 

  195. 					end if
    196. 

  196. 					%>
    197. 

  197. 				</TD>
    198. 

  198. 			</TR>
    199. 

  199. 			  
    200. 

  200. 	<% 
    201. 

  201. 		rs.moveNext
    202. 

  202. 		Loop
    203. 

  203. 

  204. 		if TotalPages > 1 then
    205. 

  205. 			pageCols=20
    206. 

  206. %>			
    207. 

  207. 			<TR bgcolor="eeeeee" >
    208. 

  208. 				<TD colspan=6 height=2 bgcolor=0></TD>
    209. 

  209. 			</TR>
    210. 

  210. 			<TR class="RepTableTitle">
    211. 

  211. 				<TD bgcolor="#CCCCEE" height="30" colspan="6">
    212. 

  212. 				<table width=100% cellspacing=0 style="cursor:hand;color:gray;">
    213. 

  213. 				<tr>
    214. 

  214. 					<td style="height:25;border-bottom:1 solid black;" colspan=<%=pagecols%>>
    215. 

  215. 						<b> <%=CurrentPage%>  <%=TotalPages%></b>
    216. 

  216. 						&nbsp;&nbsp;<a href="javascript:go2Page(<%=CurrentPage+1%>,0);">  &gt;</a>
    217. 

  217. 					</td>
    218. 

  218. 				</tr>
    219. 

  219. 				<tr>
    220. 

  220. <%				for i=1 to TotalPages 
    221. 

  221. 					if i = CurrentPage then 
    222. 

  222. %>						<td style="color:black;"><b>[<%=i%>]</b></td>
    223. 

  223. <%					else
    224. 

  224. %>						<td onclick="go2Page(<%=i%>,0);"><%=i%></td>
    225. 

  225. <%					end if 
    226. 

  226. 					if i mod pageCols = 0 then response.write "</tr><tr>" 
    227. 

  227. 				next 
    228. 

  228. 

  229. %>				</tr>
    230. 

  230. 				</table>
    231. 

  231. 				</TD>
    232. 

  232. 			</TR>
    233. 

  233. <%		end if
    234. 

  234. 	end if
    235. 

  235. end if
    236. 

  236. %>
    237. 

  237. 		</TABLE>
    238. 

  238. 		<SCRIPT LANGUAGE="JavaScript">
    239. 

  239. 		function go2Page(p,ord) {
    240. 

  240. 			if(ord==0){
    241. 

  241. 				ord=<%=Ord%>;
    242. 

  242. 			}
    243. 

  243. 			else if(ord==<%=Ord%>){
    244. 

  244. 				ord= 0-ord;
    245. 

  245. 			}
    246. 

  246. 			document.getElementsByName('Page')[0].value=p;
    247. 

  247. 			document.getElementsByName('Ord')[0].value=ord;
    248. 

  248. 			document.forms[0].submit();
    249. 

  249. 			//str = '?act=show&FromDate=' + escape('<%=FromDate%>') + '&ToDate=' + escape('<%=ToDate%>') + '&Ord=' + escape(ord) + '&p=' + escape(p);  
    250. 

  250. 			//window.location = str;
    251. 

  251. 		}
    252. 

  252. 		</SCRIPT>
    253. 

  253. 

  254. <!--#include file="tah.asp" -->
    255.