/beta/AR/OtherReports.asp

http://github.com/khaneh/Orders · ASP · 369 lines · 348 code · 10 blank · 11 comment · 22 complexity · 8c4b0e6e4de00142bf6034e41af5231b MD5 · raw file 

    

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

  2. 'AR (6)
    3. 

  3. PageTitle=" "
    4. 

  4. SubmenuItem=11
    5. 

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

  6. 

  7. %>
    8. 

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

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

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

  11. <!--#include File="../include_UtilFunctions.asp"-->
    12. 

  12. <STYLE>
    13. 

  13. 	.RepTable {font-family:tahoma; font-size:9pt; direction: RTL; }
    14. 

  14. 	.RepTable td {border:1pt solid white;vertical-align:top;}
    15. 

  15. 	.RepTable a {text-decoration:none; color:#222288;}
    16. 

  16. 	.RepTable a:hover {text-decoration:underline;}
    17. 

  17. 	.RepTable2 th {font-size:9pt; padding:5px; background-color:#0080C0;height:25px;}
    18. 

  18. 	.RepTable2 td {height:25px;}
    19. 

  19. 	.RepTable2 input {font-family:tahoma; font-size:9pt; border:1 solid black;}
    20. 

  20. 	.RepTable2 select {font-family:tahoma; font-size:9pt; border:1 solid black;}
    21. 

  21. </STYLE>
    22. 

  22. <BR>
    23. 

  23. <%
    24. 

  24. '-----------------------------------------------------------------------------------------------------
    25. 

  25. '----------------------------------------------------------------------------------------- Search Form
    26. 

  26. '-----------------------------------------------------------------------------------------------------
    27. 

  27. if request("act")="" then
    28. 

  28. 

  29. StartOfTheYear = left(shamsiToday(),4) & "/01/01"
    30. 

  30. %>
    31. 

  31. 

  32. <TABLE class="RepTable" align=center cellspacing=10 >
    33. 

  33. 	<TR height=110>
    34. 

  34. 		<TD style="border:1pt solid white;width:130pt" align=center>
    35. 

  35. 		<% if Auth("C" , 1) then %>
    36. 

  36. 			<FORM METHOD=POST ACTION="?act=dailySale">
    37. 

  37. 			<table class="RepTable2" id="AInvoices">
    38. 

  38. 			<tr>
    39. 

  39. 				<th colspan="2">  </td>
    40. 

  40. 			</tr>
    41. 

  41. 			<tr>
    42. 

  42. 				<td colspan="2">&nbsp;</td>
    43. 

  43. 			</tr>
    44. 

  44. 			<% 
    45. 

  45. 			if Auth("C" , 2) then 
    46. 

  46. 			%>
    47. 

  47. 				<tr>
    48. 

  48. 					<td align=left>&nbsp;</td>
    49. 

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

  50. 				</tr>
    51. 

  51. 				<tr>
    52. 

  52. 					<td align=left>&nbsp;</td>
    53. 

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

  54. 				</tr>
    55. 

  55. 			<%
    56. 

  56. 			else
    57. 

  57. 			%>
    58. 

  58. 				<tr>
    59. 

  59. 					<td colspan="2" align=left>
    60. 

  60. 					<SELECT NAME="input_date">
    61. 

  61. 						<option value="<%=shamsiToday()%>">					<%=replace(shamsitoday(),"/" ,".")%> </option>
    62. 

  62. 						<option value="<%=shamsidate(date()-1)%>">			<%=replace(shamsidate(date()-1),"/" ,".")%> </option>
    63. 

  63. 						<option value="<%=shamsidate(date()-2)%>">	2  	<%=replace(shamsidate(date()-2),"/" ,".")%> </option>
    64. 

  64. 						<option value="<%=shamsidate(date()-3)%>">	3  	<%=replace(shamsidate(date()-3),"/" ,".")%> </option>
    65. 

  65. 						<option value="<%=shamsidate(date()-4)%>">	4  	<%=replace(shamsidate(date()-4),"/" ,".")%> </option>
    66. 

  66. 					</SELECT>
    67. 

  67. 					</td>
    68. 

  68. 				</tr>
    69. 

  69. 			<%
    70. 

  70. 			end if
    71. 

  71. 			%>
    72. 

  72. 			<tr>
    73. 

  73. 				<td colspan="2">&nbsp;</td>
    74. 

  74. 			</tr>
    75. 

  75. 			</table>
    76. 

  76. 				<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value=" ǁ ">&nbsp;
    77. 

  77. 				<br><br>
    78. 

  78. 				<input type=hidden name='fullyApplied' value='on'>
    79. 

  79. 				<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  " onclick="document.forms[0].action='rep_dailySale.asp';">&nbsp;
    80. 

  80. 			</FORM>
    81. 

  81. 		<% end if %>
    82. 

  82. 		&nbsp;
    83. 

  83. 		</TD>
    84. 

  84. 		<TD style="border:1pt solid white;width:130pt" align=center>
    85. 

  85. 		<% if Auth("C" , 3) then %>
    86. 

  86. 			<FORM METHOD=POST ACTION="Rep_InvoiceItems.asp?act=show">
    87. 

  87. 			<table class="RepTable2" id="InvoiceItems">
    88. 

  88. 			<tr>
    89. 

  89. 				<th colspan="2">   </td>
    90. 

  90. 			</tr>
    91. 

  91. 			<tr>
    92. 

  92. 				<td align=left>&nbsp;</td>
    93. 

  93. 				<td><INPUT TYPE="text" NAME="FromDate" Value="<%=StartOfTheYear%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    94. 

  94. 			</tr>
    95. 

  95. 			<tr>
    96. 

  96. 				<td align=left>&nbsp;</td>
    97. 

  97. 				<td><INPUT TYPE="text" NAME="ToDate" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    98. 

  98. 			</tr>
    99. 

  99. 			<tr>
    100. 

  100. 				<td align=left></td>
    101. 

  101. 				<td align=left>
    102. 

  102. 					<SELECT NAME="Category" style="width:120px;">
    103. 

  103. 						<option value="">---   ---</option>
    104. 

  104. 						<option value="0" <%if Category=0 then response.write "selected " : GroupName="[  ] "%>></option>
    105. 

  105. <%
    106. 

  106. 					mySQL = "SELECT * FROM InvoiceItemCategories WHERE ID > 0"
    107. 

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

  108. 					Do Until RS1.eof
    109. 

  109. %>				
    110. 

  110. 						<option value="<%=RS1("ID")%>" <%if RS1("ID")=Category then response.write "selected "%>><%=RS1("Name")%></option>
    111. 

  111. <%
    112. 

  112. 						RS1.moveNext
    113. 

  113. 					Loop
    114. 

  114. %>
    115. 

  115. 					</SELECT>
    116. 

  116. 				</td>
    117. 

  117. 			</tr>
    118. 

  118. 			<tr>
    119. 

  119. 				<td align=left></td>
    120. 

  120. 				<td><INPUT TYPE="text" NAME="ResultsInPage" style="width:75px;direction:LTR;text-align:right;" maxlength=5 value="50"></td>
    121. 

  121. 			</tr>
    122. 

  122. 			<tr>
    123. 

  123. 				<td align=left></td>
    124. 

  124. 				<td align=left>
    125. 

  125. 					<SELECT NAME="isA" style="width:120px;">
    126. 

  126. 						<option value="0" <%if isA=0 then response.write "selected " %>> </option>
    127. 

  127. 						<option value="1" <%if isA=1 then response.write "selected " %>>  </option>
    128. 

  128. 						<option value="2" <%if isA=2 then response.write "selected " %>>  </option>
    129. 

  129. 					</SELECT>
    130. 

  130. 				</td>
    131. 

  131. 			</tr>
    132. 

  132. 			</table>
    133. 

  133. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    134. 

  134. 			</FORM>
    135. 

  135. 		<% end if %>
    136. 

  136. 		&nbsp;
    137. 

  137. 		</TD>
    138. 

  138. 		<TD align=center>
    139. 

  139. 		<% if Auth("C" , 4) then %>
    140. 

  140. 			<FORM METHOD=POST ACTION="Rep_AInvoices.asp?act=show">
    141. 

  141. 			<table class="RepTable2" id="AInvoices">
    142. 

  142. 			<tr>
    143. 

  143. 				<th colspan="2">   ()</td>
    144. 

  144. 			</tr>
    145. 

  145. 			<tr>
    146. 

  146. 				<td align=left> </td>
    147. 

  147. 				<td><INPUT TYPE="text" NAME="FromDate" Value="<%=StartOfTheYear%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    148. 

  148. 			</tr>
    149. 

  149. 			<tr>
    150. 

  150. 				<td align=left> </td>
    151. 

  151. 				<td><INPUT TYPE="text" NAME="ToDate" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    152. 

  152. 			</tr>
    153. 

  153. 			<tr>
    154. 

  154. 				<td align=left></td>
    155. 

  155. 				<td><INPUT TYPE="text" NAME="ResultsInPage" style="width:75px;direction:LTR;text-align:right;" maxlength=5 value="50"></td>
    156. 

  156. 			</tr>
    157. 

  157. 			</table>
    158. 

  158. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    159. 

  159. 			<br><br>
    160. 

  160. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="Button" value="   " onclick="document.forms[2].action='Rep_AInvoices.asp?act=showByDay';document.forms[2].submit();">&nbsp;
    161. 

  161. 			</FORM>
    162. 

  162. 		<% end if %>
    163. 

  163. 		&nbsp;
    164. 

  164. 		</TD>
    165. 

  165. 	</TR>
    166. 

  166. 	<TR height=110>
    167. 

  167. 		<TD style="border:1pt solid white;width:130pt" align=center>
    168. 

  168. 		<% if Auth("C" , 5) then %>
    169. 

  169. 			<FORM METHOD=POST ACTION="Rep_AReceipt.asp?act=show">
    170. 

  170. 			<table class="RepTable2" id="AInvoices">
    171. 

  171. 			<tr>
    172. 

  172. 				<th colspan="2">  </td>
    173. 

  173. 			</tr>
    174. 

  174. 			<tr>
    175. 

  175. 				<td align=left> </td>
    176. 

  176. 				<td><INPUT TYPE="text" NAME="FromDate" Value="<%=StartOfTheYear%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    177. 

  177. 			</tr>
    178. 

  178. 			<tr>
    179. 

  179. 				<td align=left> </td>
    180. 

  180. 				<td><INPUT TYPE="text" NAME="ToDate" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    181. 

  181. 			</tr>
    182. 

  182. 			<tr>
    183. 

  183. 				<td align=left></td>
    184. 

  184. 				<td><INPUT TYPE="text" NAME="ResultsInPage" style="width:75px;direction:LTR;text-align:right;" maxlength=5 value="50"></td>
    185. 

  185. 			</tr>
    186. 

  186. 			<tr>
    187. 

  187. 				<td align=left></td>
    188. 

  188. 				<td align=left>
    189. 

  189. 					<SELECT NAME="isA" style="width:90px;">
    190. 

  190. 						<option value="0" > </option>
    191. 

  191. 						<option value="1" selected >  </option>
    192. 

  192. 						<option value="2" >  </option>
    193. 

  193. 					</SELECT>
    194. 

  194. 				</td>
    195. 

  195. 			</tr>
    196. 

  196. 			</table>
    197. 

  197. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    198. 

  198. 			</FORM>		
    199. 

  199. 		<% end if %>
    200. 

  200. 		&nbsp;
    201. 

  201. 		</TD>
    202. 

  202. 		<TD style="border:1pt solid white;width:130pt" align=center>
    203. 

  203. 		<% if Auth("C" , 7) then %>
    204. 

  204. 			<FORM METHOD=POST ACTION="Rep_COGS.asp?act=show">
    205. 

  205. 			<table class="RepTable2" id="AInvoices">
    206. 

  206. 			<tr>
    207. 

  207. 				<th colspan="2">   </td>
    208. 

  208. 			</tr>
    209. 

  209. 			<tr>
    210. 

  210. 				<td colspan="2">&nbsp;</td>
    211. 

  211. 			</tr>
    212. 

  212. 			<tr>
    213. 

  213. 				<td align=left> </td>
    214. 

  214. 				<td><INPUT TYPE="text" NAME="FromDate" Value="<%=StartOfTheYear%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    215. 

  215. 			</tr>
    216. 

  216. 			<tr>
    217. 

  217. 				<td align=left> </td>
    218. 

  218. 				<td><INPUT TYPE="text" NAME="ToDate" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    219. 

  219. 			</tr>
    220. 

  220. 			<tr>
    221. 

  221. 				<td colspan="2">&nbsp;</td>
    222. 

  222. 			</tr>
    223. 

  223. 			</table>
    224. 

  224. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    225. 

  225. 			</FORM>		
    226. 

  226. 		<% end if %>
    227. 

  227. 		 &nbsp;
    228. 

  228. 		</TD>
    229. 

  229. 		
    230. 

  230. <%
    231. 

  231. 		'sam add this!	
    232. 

  232. %>
    233. 

  233. 		<TD align=center>
    234. 

  234. 		<% if Auth("C" , 4) then %>
    235. 

  235. 			<FORM METHOD=POST ACTION="Rep_BInvoices.asp?act=show">
    236. 

  236. 			<table class="RepTable2" id="AInvoices">
    237. 

  237. 			<tr>
    238. 

  238. 				<th colspan="2">  ()</td>
    239. 

  239. 			</tr>
    240. 

  240. 			<tr>
    241. 

  241. 				<td align=left> </td>
    242. 

  242. 				<td><INPUT TYPE="text" NAME="FromDate" Value="<%=StartOfTheYear%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    243. 

  243. 			</tr>
    244. 

  244. 			<tr>
    245. 

  245. 				<td align=left> </td>
    246. 

  246. 				<td><INPUT TYPE="text" NAME="ToDate" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    247. 

  247. 			</tr>
    248. 

  248. 			<tr>
    249. 

  249. 				<td align=left></td>
    250. 

  250. 				<td><INPUT TYPE="text" NAME="ResultsInPage" style="width:75px;direction:LTR;text-align:right;" maxlength=5 value="50"></td>
    251. 

  251. 			</tr>
    252. 

  252. 			</table>
    253. 

  253. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    254. 

  254. 			<br><br>
    255. 

  255. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="Button" value="   " onclick="document.forms[2].action='Rep_BInvoices.asp?act=showByDay';document.forms[2].submit();">&nbsp;
    256. 

  256. 			</FORM>
    257. 

  257. 		<% end if %>
    258. 

  258. 		&nbsp;
    259. 

  259. 		</TD>
    260. 

  260. 

  261. 	</TR>
    262. 

  262. 	<!---------------------------------------------------- SAM -->
    263. 

  263. 	<TR height=110>
    264. 

  264. 		<TD style="border:1pt solid white;width:130pt" align=center>
    265. 

  265. 		<% if Auth("C" , 8) then %>
    266. 

  266. 			<FORM METHOD=POST ACTION="Rep_4col.asp?act=show">
    267. 

  267. 			<table class="RepTable2" id="col4">
    268. 

  268. 			<tr>
    269. 

  269. 				<th colspan="2">   </td>
    270. 

  270. 			</tr>
    271. 

  271. 			<tr>
    272. 

  272. 				<td colspan="2">&nbsp;</td>
    273. 

  273. 			</tr>
    274. 

  274. 				<tr>
    275. 

  275. 					<td align=left>&nbsp;</td>
    276. 

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

  277. 				</tr>
    278. 

  278. 				<tr>
    279. 

  279. 					<td align=left>&nbsp;</td>
    280. 

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

  281. 				</tr>
    282. 

  282. 			<tr>
    283. 

  283. 				<td colspan="2">&nbsp;</td>
    284. 

  284. 			</tr>
    285. 

  285. 			</table>
    286. 

  286. 			<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    287. 

  287. 			</FORM>
    288. 

  288. 		<% end if %>
    289. 

  289. 		&nbsp;
    290. 

  290. 		</TD>
    291. 

  291. 		<!---------------------------------------------------------------------------------->
    292. 

  292. 		<TD style="border:1pt solid white;width:130pt" align=center>
    293. 

  293. 		<% if Auth("C" , 9) then %>
    294. 

  294. 			<table class="RepTable2" id="col8">
    295. 

  295. 			<tr>
    296. 

  296. 				<td colspan="2"><a href="Rep_CustomerNoCredit.asp?act=show">      </a></td>
    297. 

  297. 			</tr>
    298. 

  298. 			<tr>
    299. 

  299. 				<td colspan="2"><a href="arReport.asp">ȝ </a></td>
    300. 

  300. 			</tr>
    301. 

  301. 			<tr>
    302. 

  302. 				<td colspan="2"><a href="memoReport.asp"> </a></td>
    303. 

  303. 			</tr>
    304. 

  304. 			</table>
    305. 

  305. 		<% end if %>
    306. 

  306. 		&nbsp;
    307. 

  307. 		</TD>
    308. 

  308. 		<!------------------------------------------------------------>
    309. 

  309. 		<TD align=center>
    310. 

  310. 		&nbsp;
    311. 

  311. 		<% if Auth("C", "A") then %>
    312. 

  312. 			<form method="post" action="rep_reversSales.asp?act=show">
    313. 

  313. 				<table class="RepTable2">
    314. 

  314. 					<tr>
    315. 

  315. 						<th colspan="2"> ѐ  </th>
    316. 

  316. 					</tr>
    317. 

  317. 					<tr>
    318. 

  318. 						<td> </td>
    319. 

  319. 						<td><input type="text" name="fromDate" value="<%=shamsiToday()%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    320. 

  320. 					</tr>
    321. 

  321. 					<tr>
    322. 

  322. 						<td> </td>
    323. 

  323. 						<td><input type="text" name="toDate" value="<%=shamsiToday()%>" style="width:75px;direction:LTR;" maxlength=10 OnBlur="return acceptDate(this);"></td>
    324. 

  324. 					</tr>
    325. 

  325. 				</table>
    326. 

  326. 				<INPUT Class="GenButton" style="border:1 solid black;" TYPE="submit" value="  ">&nbsp;
    327. 

  327. 			</form>
    328. 

  328. 		<%end if%>
    329. 

  329. 		</TD>
    330. 

  330. 		<!------------------------------------------------------------>
    331. 

  331. 	</TR>
    332. 

  332. </TABLE>
    333. 

  333. <%
    334. 

  334. '-----------------------------------------------------------------------------------------------------
    335. 

  335. '------------------------------------------------------------------------------------------ Daily Sale
    336. 

  336. '-----------------------------------------------------------------------------------------------------
    337. 

  337. elseif request("act")="dailySale" then
    338. 

  338. 	input_date=			sqlSafe(request("input_date"))
    339. 

  339. 	input_date_start=	sqlSafe(request("input_date_start"))
    340. 

  340. 	input_date_end=		sqlSafe(request("input_date_end"))
    341. 

  341. 

  342. 	if Auth("C" , 1) then 
    343. 

  343. 		if Auth("C" , 2) then 
    344. 

  344. 			'FrameSrc="/Reports/dailySale.aspx?input_date_start=" & input_date_start & "&input_date_end=" & input_date_end 
    345. 

  345. 			RepParamValues = input_date_start & "" & input_date_end
    346. 

  346. 		else
    347. 

  347. 			'FrameSrc="/Reports/dailySale.aspx?input_date_start=" & input_date & "&input_date_end=" & input_date 
    348. 

  348. 			RepParamValues = input_date & "" & input_date
    349. 

  349. 		end if
    350. 

  350. 		%>
    351. 

  351. 

  352. 		<BR><BR>
    353. 

  353. 		<CENTER>
    354. 

  354. 		<% 	ReportLogRow = PrepareReport ("dailySale1.rpt", "input_date_startinput_date_end", RepParamValues, "/beta/dialog_printManager.asp?act=Fin") %>
    355. 

  355. 		<INPUT TYPE="button" value=" ǁ " Class="GenButton" style="border:1 solid blue;" onclick="printThisReport(this,<%=ReportLogRow%>);">
    356. 

  356. 

  357. 		</CENTER>
    358. 

  358. 		<BR>
    359. 

  359. 		<BR><iframe name=f1 id=f1 src="/CRReports/?Id=<%=ReportLogRow%>" align=center style="width:750; height:410; border-style: none" border=0 FRAMEBORDER=0 scrollbars=no ></iframe>
    360. 

  360. 

  361. 		<%
    362. 

  362. 	else
    363. 

  363. 		NotAllowdToViewThisPage()
    364. 

  364. 	end if
    365. 

  365. '---------------------------------------------------------------
    366. 

  366. end if
    367. 

  367. %>
    368. 

  368. 

  369. <!--#include file="tah.asp" -->
    370.