/beta/admin/AccountInfo.asp

http://github.com/khaneh/Orders · ASP · 336 lines · 292 code · 31 blank · 13 comment · 31 complexity · d6cd707b1f9d1e7c411c1122e155f3ae MD5 · raw file 

    

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

    2. 

  2. ' Admin

    3. 

  3. PageTitle= "  "

    4. 

  4. SubmenuItem=9

    5. 

  5. 

    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. 

    11. 

  11. <%

    12. 

  12. dateStr = "  <span dir=rtl>" & fiscalYear & "/1/1</span>  <span dir=rtl>" & shamsiToday() & "</span>"

    13. 

  13. 

    14. 

  14. function Separate2(inputTxt)

    15. 

  15. myMinus=""

    16. 

  16. input=inputTxt

    17. 

  17. if left(input,1)="-" then

    18. 

  18. 	myMinus="-"

    19. 

  19. 	input=right(input,len(input)-1)

    20. 

  20. end if

    21. 

  21. if len(input) > 3 then

    22. 

  22. 	tmpr=right(input ,3)

    23. 

  23. 	tmpl=left(input , len(input) - 3 )

    24. 

  24. 	result = tmpr

    25. 

  25. 	while len(tmpl) > 3

    26. 

  26. 		tmpr=right(tmpl,3)

    27. 

  27. 		result = tmpr & "," & result 

    28. 

  28. 		tmpl=left(tmpl , len(tmpl) - 3 )

    29. 

  29. 	wend

    30. 

  30. 	if len(tmpl) > 0 then

    31. 

  31. 		result = tmpl & "," & result

    32. 

  32. 	end if 

    33. 

  33. else

    34. 

  34. 	result = input

    35. 

  35. end if 

    36. 

  36. 	Separate2=myMinus & result

    37. 

  37. end function

    38. 

  38. 

    39. 

  39. 

    40. 

  40. '-----------------------------------------------------------------------------------------------------

    41. 

  41. '-------------------------------------------------------------------------------- List GL Super Groups

    42. 

  42. '-----------------------------------------------------------------------------------------------------

    43. 

  43. if request("act")="" then

    44. 

  44. %><BR><BR>

    45. 

  45. <CENTER>

    46. 

  46. <FORM METHOD=POST ACTION="AccountInfo.asp">

    47. 

  47. <INPUT TYPE="button" onclick="window.location='manageGL.asp?act=showLog'" class="GenButton"  value="<%=OpenGLName%>" readonly style="width:276px; background-color: white ">

    48. 

  48. <!--INPUT TYPE="button" onclick="window.location='balance.asp'" class="GenButton" value="" style="width:90px; ">

    49. 

  49. <INPUT TYPE="button" onclick="window.location='sood.asp'" class="GenButton" value="  " style="width:90px; "--><br><br>

    50. 

  50. <INPUT TYPE="button" onclick="window.location='manageGL.asp?act=select'" class="GenButton" value="" style="width:90px; background-color: #FFFFBB ">

    51. 

  51. <INPUT TYPE="button" onclick="window.location='manageGL.asp?act=new'" class="GenButton" value="" style="width:90px; background-color: #FFFFBB ">

    52. 

  52. <INPUT TYPE="button" onclick="window.location='manageGL.asp?act=close'" class="GenButton" value="" style="width:90px; background-color: #FFFFBB ">

    53. 

  53. </FORM>

    54. 

  54. </CENTER>

    55. 

  55. <%

    56. 

  56. Conn.CommandTimeout = 300

    57. 

  57. set RSS=Conn.Execute ("SELECT GLAccountSuperGroups.Name, ISNULL(DERIVEDTBL.totalCredit, 0) AS totalCredit, ISNULL(DERIVEDTBL.totalDebit, 0) AS totalDebit, totalDebit-totalCredit as totalRemained, GLAccountSuperGroups.ID, GLAccountSuperGroups.Type, ISNULL(DERIVEDTBL.GroupsCount,0) as GroupsCount, ISNULL(DERIVEDTBL.accountsCount,0) as accountsCount FROM (SELECT SUM(DERIVEDTBL.totalCredit) AS totalCredit, SUM(DERIVEDTBL.totalDebit) AS totalDebit, GLAccountGroups.GLSuperGroup, SUM(accountsCount) AS accountsCount, COUNT(GLAccountGroups.ID) AS GroupsCount FROM (SELECT SUM(DERIVEDTBL.totalCredit) AS totalCredit, SUM(DERIVEDTBL.totalDebit) AS totalDebit, GLAccounts.GLGroup, ISNULL(COUNT(GLAccounts.ID),0) AS accountsCount FROM (SELECT SUM(IsCredit * Amount) AS totalCredit, SUM((convert(tinyint,IsCredit)-1) * -1 * Amount) AS totalDebit, GLAccount FROM  EffectiveGlRows WHERE (GL = "& OpenGL&") GROUP BY GLAccount) DERIVEDTBL RIGHT OUTER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL&") GROUP BY GLAccounts.GLGroup) DERIVEDTBL  RIGHT OUTER JOIN GLAccountGroups ON DERIVEDTBL.GLGroup = GLAccountGroups.ID WHERE (GLAccountGroups.GL = "& OpenGL&") GROUP BY GLAccountGroups.GLSuperGroup) DERIVEDTBL RIGHT OUTER JOIN GLAccountSuperGroups ON DERIVEDTBL.GLSuperGroup = GLAccountSuperGroups.ID WHERE (GLAccountSuperGroups.GL = "& OpenGL&") ")	

    58. 

  58. %>

    59. 

  59. 

    60. 

  60. <TABLE dir=rtl align=center width=600>

    61. 

  61. <TR >

    62. 

  62. 	<TD colspan=5>

    63. 

  63. 		<%=OpenGLName%>  &nbsp;<%=dateStr%><BR><hR>

    64. 

  64. 	</TD>

    65. 

  65. </TR>

    66. 

  66. <TR bgcolor="eeeeee" >

    67. 

  67. 	<TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>

    68. 

  68. 	<TD><!A HREF="default.asp?s=2"><SMALL> ѐ</SMALL></A></TD>

    69. 

  69. 	<TD><!A HREF="default.asp?s=3"><SMALL>  </SMALL></A></TD>

    70. 

  70. 	<TD><!A HREF="default.asp?s=4"><SMALL> </SMALL></A></TD>

    71. 

  71. 	<TD><!A HREF="default.asp?s=4"><SMALL>   ()</SMALL></A></TD>

    72. 

  72. 	<TD><!A HREF="default.asp?s=4"><SMALL>   ()</SMALL></A></TD>

    73. 

  73. 	<TD><!A HREF="default.asp?s=4"><SMALL> ()</SMALL></A></TD>

    74. 

  74. 	<TD><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    75. 

  75. </TR>

    76. 

  76. <%

    77. 

  77. tmpCounter=0

    78. 

  78. Do while not RSS.eof

    79. 

  79. 	tmpCounter = tmpCounter + 1

    80. 

  80. 	if tmpCounter mod 2 = 1 then

    81. 

  81. 		tmpColor="#FFFFFF"

    82. 

  82. 		tmpColor2="#FFFFBB"

    83. 

  83. 	Else

    84. 

  84. 		tmpColor="#DDDDDD"

    85. 

  85. 		tmpColor2="#EEEEBB"

    86. 

  86. 	End if 

    87. 

  87. 

    88. 

  88. %>

    89. 

  89. <TR bgcolor="<%=tmpColor%>" height=30>

    90. 

  90. 	<FORM METHOD=POST ACTION="editGL.asp?act=editAccountSuperGroupForms&SuperGroupID=<%=RSS("ID")%>">

    91. 

  91. 	<TD><A HREF="AccountInfo.asp?act=groups&SuperGroupID=<%=RSS("ID")%>"><%=RSS("ID")%></A></TD>

    92. 

  92. 	<TD><A HREF="AccountInfo.asp?act=groups&SuperGroupID=<%=RSS("ID")%>"><%=RSS("Name")%></A></TD>

    93. 

  93. 	<TD><%=RSS("GroupsCount")%></TD>

    94. 

  94. 	<TD><%=RSS("accountsCount")%></TD>

    95. 

  95. 	<TD  dir=ltr align=right><span dir=ltr><%=Separate2(RSS("totalCredit"))%></span></TD>

    96. 

  96. 	<TD dir=ltr align=right><span dir=ltr><%=Separate2(RSS("totalDebit"))%></span></TD>

    97. 

  97. 	<TD dir=ltr align=right><span dir=ltr><%=Separate2(RSS("totalRemained"))%></span></TD>

    98. 

  98. 	<TD  dir=ltr align=center><INPUT style="font-size:7pt" TYPE="submit" value="" NAME="submit" onclick="return confirm('     ѐ   Ͽ')">

    99. 

  99. 	<INPUT TYPE="submit" value="" NAME="submit" style="font-size:7pt">

    100. 

  100. 	</TD>

    101. 

  101. 	</form>

    102. 

  102. </TR>

    103. 

  103. 	  

    104. 

  104. <% 

    105. 

  105. RSS.moveNext

    106. 

  106. Loop

    107. 

  107. %>

    108. 

  108. </TABLE><br>

    109. 

  109. <FORM METHOD=POST ACTION="editGL.asp?act=editAccountSuperGroupForms">

    110. 

  110. <CENTER><INPUT TYPE="submit" value=" ѐ" NAME="submit"></CENTER><br>

    111. 

  111. </FORM>

    112. 

  112. <%

    113. 

  113. 

    114. 

  114. '-----------------------------------------------------------------------------------------------------

    115. 

  115. '------------------------------------------------------------------ List GL Groups under a super group

    116. 

  116. '-----------------------------------------------------------------------------------------------------

    117. 

  117. elseif request("act")="groups" then

    118. 

  118. SuperGroupID = request("SuperGroupID")

    119. 

  119. 

    120. 

  120. set RSS=Conn.Execute ("SELECT SUM(ISNULL(DERIVEDTBL.totalCredit, 0)) AS totalCredit, SUM(ISNULL(DERIVEDTBL.totalDebit, 0)) AS totalDebit, GLAccountGroups.GLSuperGroup, SUM(ISNULL(DERIVEDTBL.accountsCount, 0)) AS accountsCount, GLAccountGroups.Name, GLAccountGroups.ID FROM (SELECT SUM(DERIVEDTBL.totalCredit) AS totalCredit, SUM(DERIVEDTBL.totalDebit) AS totalDebit, GLAccounts.GLGroup, COUNT(GLAccounts.ID) AS accountsCount FROM (SELECT SUM(IsCredit * Amount) AS totalCredit, SUM((convert(tinyint,IsCredit)-1) * -1 * Amount) AS totalDebit, GLAccount FROM EffectiveGLRows Where (GL = "& OpenGL & ")  GROUP BY GLAccount) DERIVEDTBL RIGHT OUTER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL & ") GROUP BY GLAccounts.GLGroup) DERIVEDTBL RIGHT OUTER JOIN GLAccountGroups ON DERIVEDTBL.GLGroup = GLAccountGroups.ID WHERE (GLAccountGroups.GL = "& OpenGL & ") AND (GLAccountGroups.GLSuperGroup = "& SuperGroupID & ") GROUP BY GLAccountGroups.GLSuperGroup, GLAccountGroups.Name, GLAccountGroups.ID ORDER BY GLAccountGroups.ID")	

    121. 

  121. 

    122. 

  122. %><BR><BR>

    123. 

  123. <TABLE dir=rtl align=center width=600>

    124. 

  124. <TR >

    125. 

  125. 	<TD colspan=4>

    126. 

  126. 		<%

    127. 

  127. 		set RSS2=Conn.Execute ("SELECT *, GLs.ID AS GLID ,GLs.Name AS GLname FROM GLs INNER JOIN GLAccountSuperGroups ON GLs.ID = GLAccountSuperGroups.GL WHERE (GLAccountSuperGroups.GL = "& OpenGL & ") AND (GLAccountSuperGroups.ID = "& SuperGroupID & ")")

    128. 

  128. 		%><A HREF="AccountInfo.asp?OpenGL=<%=RSS2("GLID")%>"><%=RSS2("GLname")%></A> > <%=RSS2("name")%>

    129. 

  129. 		<BR><hR>

    130. 

  130. 	</TD>

    131. 

  131. </TR>

    132. 

  132. <TR bgcolor="eeeeee" >

    133. 

  133. 	<TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>

    134. 

  134. 	<TD><!A HREF="default.asp?s=2"><SMALL>  </SMALL></A></TD>

    135. 

  135. 	<TD><!A HREF="default.asp?s=4"><SMALL> </SMALL></A></TD>

    136. 

  136. 	<TD><!A HREF="default.asp?s=4"><SMALL>   ()</SMALL></A></TD>

    137. 

  137. 	<TD><!A HREF="default.asp?s=4"><SMALL>   ()</SMALL></A></TD>

    138. 

  138. 	<TD><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    139. 

  139. </TR>

    140. 

  140. <%

    141. 

  141. tmpCounter=0

    142. 

  142. Do while not RSS.eof

    143. 

  143. 	tmpCounter = tmpCounter + 1

    144. 

  144. 	if tmpCounter mod 2 = 1 then

    145. 

  145. 		tmpColor="#FFFFFF"

    146. 

  146. 		tmpColor2="#FFFFBB"

    147. 

  147. 	Else

    148. 

  148. 		tmpColor="#DDDDDD"

    149. 

  149. 		tmpColor2="#EEEEBB"

    150. 

  150. 	End if 

    151. 

  151. 

    152. 

  152. %>

    153. 

  153. <TR bgcolor="<%=tmpColor%>" >

    154. 

  154. 	<FORM METHOD=POST ACTION="editGL.asp?act=editAccountGroupForms&SuperGroupID=<%=SuperGroupID%>&GroupID=<%=RSS("id")%>">

    155. 

  155. 	<TD><A HREF="AccountInfo.asp?act=account&GroupID=<%=RSS("id")%>"><%=RSS("id")%></A></TD>

    156. 

  156. 	<TD><A HREF="AccountInfo.asp?act=account&GroupID=<%=RSS("id")%>"><%=RSS("Name")%></A></TD>

    157. 

  157. 	<TD><%=RSS("accountsCount")%></TD>

    158. 

  158. 	<TD><span dir=ltr><%=RSS("totalCredit")%></span></TD>

    159. 

  159. 	<TD><span dir=ltr><%=RSS("totalDebit")%></span></TD>

    160. 

  160. 	<TD align=center><INPUT TYPE="submit" value="" NAME="submit" onclick="return confirm('        Ͽ')">

    161. 

  161. 	<INPUT TYPE="submit" value="" NAME="submit">

    162. 

  162. 	</TD>

    163. 

  163. 	</form>

    164. 

  164. </TR>

    165. 

  165. 	  

    166. 

  166. <% 

    167. 

  167. RSS.moveNext

    168. 

  168. Loop

    169. 

  169. %>

    170. 

  170. </TABLE><br>

    171. 

  171. <FORM METHOD=POST ACTION="editGL.asp?act=editAccountGroupForms&SuperGroupID=<%=SuperGroupID%>">

    172. 

  172. <CENTER><INPUT TYPE="submit" value=" " NAME="submit"></CENTER><br>

    173. 

  173. </FORM>

    174. 

  174. <%

    175. 

  175. 

    176. 

  176. '-----------------------------------------------------------------------------------------------------

    177. 

  177. '---------------------------------------------------------------------- List GL Accounts under a group

    178. 

  178. '-----------------------------------------------------------------------------------------------------

    179. 

  179. elseif request("act")="account" then

    180. 

  180. GroupID = request("GroupID")

    181. 

  181. 

    182. 

  182. set RSS=Conn.Execute ("SELECT GLs.Name AS GLName, GLs.ID AS GLID, GLAccountSuperGroups.ID AS SuperGroupID, GLAccountSuperGroups.Name AS SuperGroupName, GLAccountGroups.ID AS GroupID, GLAccountGroups.Name AS GroupName FROM GLAccountGroups INNER JOIN GLAccountSuperGroups ON GLAccountGroups.GLSuperGroup = GLAccountSuperGroups.ID INNER JOIN GLs ON GLAccountSuperGroups.GL = GLs.ID WHERE (GLAccountSuperGroups.GL = "& OpenGL & ") AND (GLAccountGroups.GL = "& OpenGL & ") AND (GLAccountGroups.ID = "& GroupID & ")")

    183. 

  183. %><BR><BR>

    184. 

  184. <TABLE dir=rtl align=center width=800>

    185. 

  185. <TR >

    186. 

  186. 	<TD colspan=5>

    187. 

  187. 		<%

    188. 

  188. 		set RSS2=Conn.Execute ("SELECT GLAccounts.Name, glAccountTypes.name as accountTypeName, DERIVEDTBL.totalDebit AS totalDebit, DERIVEDTBL.totalCredit AS totalCredit, GLAccounts.ID, GLAccounts.HasAppendix FROM (SELECT SUM(CONVERT(tinyint, IsCredit) * Amount) AS totalCredit, SUM((CONVERT(tinyint, IsCredit) - 1) * (- 1) * Amount) AS totalDebit, GLAccount FROM EffectiveGLRows where (GL = "& OpenGL & ")   GROUP BY GLAccount) DERIVEDTBL RIGHT OUTER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID left outer join glAccountTypes on glAccounts.accountType = glAccountTypes.id WHERE (GLAccounts.GL = "& OpenGL & ") AND (GLAccounts.GLGroup = "& GroupID & ") order by GLAccounts.ID")

    189. 

  189. 		

    190. 

  190. 		%><A HREF="AccountInfo.asp?OpenGL=<%=RSS("GLID")%>"><%=RSS("GLname")%></A> > <A HREF="AccountInfo.asp?act=groups&SuperGroupID=<%=RSS("SuperGroupID")%>"><%=RSS("SuperGroupName")%></a>  > <%=RSS("GroupName")%>

    191. 

  191. 		<BR><hR>

    192. 

  192. 	</TD>

    193. 

  193. </TR>

    194. 

  194. <TR bgcolor="eeeeee" >

    195. 

  195. 	<TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>

    196. 

  196. 	<TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    197. 

  197. 	<TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    198. 

  198. 	<TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    199. 

  199. 	<TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    200. 

  200. 	<td><small></small></td>

    201. 

  201. 	<TD><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    202. 

  202. </TR>

    203. 

  203. <%

    204. 

  204. tmpCounter=0

    205. 

  205. Do while not RSS2.eof

    206. 

  206. 	tmpCounter = tmpCounter + 1

    207. 

  207. 	if tmpCounter mod 2 = 1 then

    208. 

  208. 		tmpColor="#FFFFFF"

    209. 

  209. 		tmpColor2="#FFFFBB"

    210. 

  210. 	Else

    211. 

  211. 		tmpColor="#DDDDDD"

    212. 

  212. 		tmpColor2="#EEEEBB"

    213. 

  213. 	End if 

    214. 

  214. 

    215. 

  215. %>

    216. 

  216. <TR bgcolor="<%=tmpColor%>" >

    217. 

  217. 	<FORM METHOD=POST ACTION="editGL.asp?act=editAccountForms&GroupID=<%=GroupID%>&ACCID=<%=RSS2("id")%>">

    218. 

  218. 	<TD><A HREF="AccountInfo.asp?act=accountRows&accountID=<%=RSS2("id")%>"><%=RSS2("id")%></A></TD>

    219. 

  219. 	<TD><A HREF="AccountInfo.asp?act=accountRows&accountID=<%=RSS2("id")%>"><%=RSS2("Name")%></A></TD>

    220. 

  220. 	<td><small><%=rss2("accountTypeName")%></small></td>

    221. 

  221. 	<TD><span dir=ltr><%=RSS2("totalCredit")%></span></TD>

    222. 

  222. 	<TD><span dir=ltr><%=RSS2("totalDebit")%></span></TD>

    223. 

  223. 	<td><span dir=rtl><% If Cbool(RSS2("HasAppendix")) then response.write "" Else response.write "" End If %></span></td>

    224. 

  224. 	<TD align=center><INPUT TYPE="submit"  value="" NAME="submit" onclick="return confirm('        Ͽ')">

    225. 

  225. 	<INPUT TYPE="submit"  value="" NAME="submit">

    226. 

  226. 	</TD>

    227. 

  227. 	</FORM>

    228. 

  228. </TR>

    229. 

  229. 	  

    230. 

  230. <% 

    231. 

  231. RSS2.moveNext

    232. 

  232. Loop

    233. 

  233. %>

    234. 

  234. </TABLE><br>

    235. 

  235. <FORM METHOD=POST ACTION="editGL.asp?act=editAccountForms&GroupID=<%=GroupID%>">

    236. 

  236. <CENTER><INPUT TYPE="submit" value=" " NAME="submit"></CENTER><br>

    237. 

  237. </FORM>

    238. 

  238. <SCRIPT LANGUAGE="JavaScript">

    239. 

  239. <!--

    240. 

  240. 	var submits=document.getElementsByName("submit");

    241. 

  241. 	submits[submits.length -1].focus();

    242. 

  242. //-->

    243. 

  243. </SCRIPT>

    244. 

  244. <%

    245. 

  245. 

    246. 

  246. '-----------------------------------------------------------------------------------------------------

    247. 

  247. '-------------------------------------------------------------------------- List Rows of a GL Accounts 

    248. 

  248. '-----------------------------------------------------------------------------------------------------

    249. 

  249. elseif request("act")="accountRows" then

    250. 

  250. account = request("accountID")

    251. 

  251. 

    252. 

  252. DateFrom = request.form("DateFrom")

    253. 

  253. if DateFrom = "" then DateFrom = shamsiToday()

    254. 

  254. 

    255. 

  255. DateTo = request.form("DateTo")

    256. 

  256. if DateTo = "" then DateTo = shamsiToday()

    257. 

  257. 

    258. 

  258. set RSS=Conn.Execute ("SELECT *, GLDocs.id as GLDoc, GLRows.id as GLRowsID FROM GLRows inner join GLDocs on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or  GLDocs.IsFinalized=1) and GLDocs.deleted=0 and GLDocs.IsRemoved=0) and  ((GLDocs.GL = "& OpenGL & ") AND (GLRows.GLaccount = "& account & ") and (GLDocs.GLDocDate <= N'"& DateTo & "') and (GLDocs.GLDocDate >= N'"& DateFrom & "'))")	

    259. 

  259. %><BR><BR>

    260. 

  260. <TABLE dir=rtl align=center width=640 cellspacing=1 cellpadding=3>

    261. 

  261. <TR >

    262. 

  262. 	<TD colspan=7>

    263. 

  263. 		<%

    264. 

  264. 		set RSS2=Conn.Execute ("SELECT *, GLAccountGroups.ID AS GroupID, GLAccountGroups.Name AS GroupName, GLAccountSuperGroups.ID AS SuperGroupID, GLAccountSuperGroups.Name AS SuperGroupName, GLs.ID AS GLID, GLs.Name AS GLname, GLAccounts.Name AS name FROM GLs INNER JOIN GLAccountSuperGroups ON GLs.ID = GLAccountSuperGroups.GL INNER JOIN GLAccountGroups ON GLs.ID = GLAccountGroups.GL AND GLAccountSuperGroups.ID = GLAccountGroups.GLSuperGroup INNER JOIN GLAccounts ON GLs.ID = GLAccounts.GL AND GLAccountGroups.ID = GLAccounts.GLGroup WHERE (GLAccounts.GL = "& OpenGL & ") AND (GLAccounts.ID = "& account & ")")

    265. 

  265. 		

    266. 

  266. 		%><A HREF="AccountInfo.asp?OpenGL=<%=RSS2("GLID")%>"><%=RSS2("GLname")%></A> > <A HREF="AccountInfo.asp?act=groups&SuperGroupID=<%=RSS2("SuperGroupID")%>"><%=RSS2("SuperGroupName")%></a>  > <A HREF="AccountInfo.asp?act=account&GroupID=<%=RSS2("GroupID")%>"><%=RSS2("GroupName")%></a>  >  <%=RSS2("Name")%>

    267. 

  267. 		<BR><hR>

    268. 

  268. 	</TD>

    269. 

  269. </TR>

    270. 

  270. <TR >

    271. 

  271. 	<TD colspan=7 align=center>

    272. 

  272. 	<FORM METHOD=POST ACTION="AccountInfo.asp?act=accountRows&accountID=<%=account%>">

    273. 

  273. 	  <INPUT  dir="LTR"  TYPE="text" NAME="DateFrom" maxlength="10" size="10" onblur="acceptDate(this)" onKeyPress="return maskDate(this);" value="<%=DateFrom%>">

    274. 

  274. 	  <INPUT  dir="LTR"  TYPE="text" NAME="DateTo" maxlength="10" size="10" onblur="acceptDate(this)" onKeyPress="return maskDate(this);" value="<%=DateTo%>">

    275. 

  275. 	<INPUT TYPE="submit" NAME="submit" value="">

    276. 

  276. 	</FORM>

    277. 

  277. 	</TD>

    278. 

  278. </TR>

    279. 

  279. <% if request("submit")="" then %>

    280. 

  280. <TR bgcolor="eeeeee" >

    281. 

  281. 	<TD align=center><!A HREF="default.asp?s=2"><SMALL></SMALL></A></TD>

    282. 

  282. 	<TD align=center><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>

    283. 

  283. 	<TD align=center width=100><!A HREF="default.asp?s=2"><SMALL></SMALL></A></TD>

    284. 

  284. 	<TD align=center><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    285. 

  285. 	<TD align=center><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    286. 

  286. 	<TD align=center><!A HREF="default.asp?s=5"><SMALL>-</SMALL></A></TD>

    287. 

  287. 	<TD align=center><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>

    288. 

  288. </TR>

    289. 

  289. <%

    290. 

  290. tmpCounter=0

    291. 

  291. remainedAmount = 0

    292. 

  292. Do while not RSS.eof

    293. 

  293. 	tmpCounter = tmpCounter + 1

    294. 

  294. 	if tmpCounter mod 2 = 1 then

    295. 

  295. 		tmpColor="#FFFFFF"

    296. 

  296. 		tmpColor2="#FFFFBB"

    297. 

  297. 	Else

    298. 

  298. 		tmpColor="#DDDDDD"

    299. 

  299. 		tmpColor2="#EEEEBB"

    300. 

  300. 	End if 

    301. 

  301. 	

    302. 

  302. 	debit = 0

    303. 

  303. 	credit = 0

    304. 

  304. 	if RSS("IsCredit") then

    305. 

  305. 		credit = RSS("Amount")

    306. 

  306. 	else

    307. 

  307. 		debit = RSS("Amount")

    308. 

  308. 	end if

    309. 

  309. 	remainedAmount = remainedAmount - cdbl(credit) + cdbl(debit)

    310. 

  310. 

    311. 

  311. %>

    312. 

  312. <TR bgcolor="<%=tmpColor%>" >

    313. 

  313. 	<TD><A HREF="GLMemoDocShow.asp?id=<%=RSS("GLDoc")%>"><%=RSS("GLDocID")%></A></TD>

    314. 

  314. 	<TD  align=center dir=ltr><%=RSS("GLDocDate")%></TD>

    315. 

  315. 	<TD  width=100><!A HREF="AccountInfo.asp?act=accountRows&accountID=<%=RSS("id")%>"><INPUT TYPE="text" value="<%=RSS("Description")%>" style="width=200pt; border:solid 0pt; font-size:8pt; background-color:transparent"></A></TD>

    316. 

  316. 	

    317. 

  317. 	

    318. 

  318. 	<TD dir=ltr align=right><% if debit<>"0" then %> <%=Separate2(debit)%><% end if %></TD>

    319. 

  319. 	<TD dir=ltr align=right><% if credit<>"0" then %> <%=Separate2(credit)%><% end if %></TD>

    320. 

  320. 	<TD dir=ltr align=center><% if remainedAmount > 0 then %><% else %><% end if %></TD>

    321. 

  321. 	<TD dir=ltr align=right><%=Separate2(remainedAmount)%></TD>

    322. 

  322. </TR>

    323. 

  323. 	  

    324. 

  324. <% 

    325. 

  325. RSS.moveNext

    326. 

  326. Loop

    327. 

  327. %>

    328. 

  328. <% end if %>

    329. 

  329. </TABLE><br>

    330. 

  330. <%

    331. 

  331. end if

    332. 

  332. 

    333. 

  333. 

    334. 

  334. %>

    335. 

  335. 

    336. 

  336. <!--#include file="tah.asp" -->
    337.