/beta/accounting/sood.asp

http://github.com/khaneh/Orders · ASP · 246 lines · 207 code · 26 blank · 13 comment · 14 complexity · 02fdf2c22d7d4e6173bb33cebae241ed MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. 'Accounting (8)
  3. PageTitle= ""
  4. SubmenuItem=4
  5. if not Auth(8 , 4) then NotAllowdToViewThisPage()
  6. %>
  7. <!--#include file="top.asp" -->
  8. <!--#include File="../include_farsiDateHandling.asp"-->
  9. <%
  10. '-----------------------------------------------------------------------------------------------------
  11. '-------------------------------------------------------------------------------- List GL Super Groups
  12. '-----------------------------------------------------------------------------------------------------
  13. if request("act")="" then
  14. %><BR><BR>
  15. <TABLE dir=rtl align=center width=400 border=0>
  16. <TR>
  17. <TD align=right><A HREF="AccountInfo.asp"> </A>>
  18. </TD>
  19. </TR>
  20. <TR bgcolor="eeeeee" >
  21. <TD align=center>
  22. </TD>
  23. </TR>
  24. <TR>
  25. <TD bgcolor="#FFFFFF" width=50%><!----Right---->
  26. <TABLE width=70% align=center>
  27. <%
  28. set RSS=Conn.Execute ("SELECT GLAccountSuperGroups.Name, ISNULL(DERIVEDTBL.total, 0) AS total, GLAccountSuperGroups.ID, GLAccountSuperGroups.Type FROM (SELECT SUM(DERIVEDTBL.Total) AS total, GLAccountGroups.GLSuperGroup FROM (SELECT SUM(DERIVEDTBL.total) AS Total, GLAccounts.GLGroup FROM (SELECT SUM((CONVERT(tinyint, IsCredit) - .5) * 2 * Amount) AS total, GLAccount FROM GLDocs inner join GLRows on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or GLDocs.IsFinalized=1) and GLDocs.deleted=0) GROUP BY GLAccount, GL HAVING (GL = "& OpenGL&")) DERIVEDTBL INNER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL&") GROUP BY GLAccounts.GLGroup) DERIVEDTBL INNER 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&" and GLAccountSuperGroups.Type=4) ")
  29. Do while not RSS.eof
  30. %>
  31. <TR>
  32. <TD><A HREF="sood.asp?act=groups&SuperGroupID=<%=RSS("ID")%>"><%=RSS("name")%></a></TD>
  33. <TD><span dir=ltr><%=RSS("total")%></span><br></TD>
  34. </TR>
  35. <%
  36. totalRight = totalRight + clng(RSS("total"))
  37. RSS.moveNext
  38. Loop
  39. %>
  40. </TABLE>
  41. </TD>
  42. </TR>
  43. <TR>
  44. <TD bgcolor="#DDDDDD" width=50%><!----left---->
  45. <TABLE width=70% align=center>
  46. <%
  47. set RSS=Conn.Execute ("SELECT GLAccountSuperGroups.Name, ISNULL(DERIVEDTBL.total, 0) AS total, GLAccountSuperGroups.ID, GLAccountSuperGroups.Type FROM (SELECT SUM(DERIVEDTBL.Total) AS total, GLAccountGroups.GLSuperGroup FROM (SELECT SUM(DERIVEDTBL.total) AS Total, GLAccounts.GLGroup FROM (SELECT SUM((CONVERT(tinyint, IsCredit) - .5) * 2 * Amount) AS total, GLAccount FROM GLDocs inner join GLRows on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or GLDocs.IsFinalized=1) and GLDocs.deleted=0) GROUP BY GLAccount, GL HAVING (GL = "& OpenGL&")) DERIVEDTBL INNER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL&") GROUP BY GLAccounts.GLGroup) DERIVEDTBL INNER 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&" and GLAccountSuperGroups.Type=5) ")
  48. Do while not RSS.eof
  49. %>
  50. <TR>
  51. <TD><A HREF="sood.asp?act=groups&SuperGroupID=<%=RSS("ID")%>"><%=RSS("name")%></a></TD>
  52. <TD><span dir=ltr><%=RSS("total")%></span><br></TD>
  53. </TR>
  54. <%
  55. totalLeft = totalLeft + clng(RSS("total"))
  56. RSS.moveNext
  57. Loop
  58. %>
  59. </TABLE>
  60. </TD>
  61. </TR>
  62. <TR bgcolor="eeeeee" >
  63. <TD align=center> : <span dir=ltr><%=totalLeft+totalRight%></span>
  64. </TD>
  65. </TR>
  66. </TABLE>
  67. <%
  68. response.end
  69. '-----------------------------------------------------------------------------------------------------
  70. '------------------------------------------------------------------ List GL Groups under a super group
  71. '-----------------------------------------------------------------------------------------------------
  72. elseif request("act")="groups" then
  73. SuperGroupID = request("SuperGroupID")
  74. set RSS=Conn.Execute ("SELECT SUM(ISNULL(DERIVEDTBL.Total, 0)) AS total, GLAccountGroups.GLSuperGroup, SUM(DERIVEDTBL.accountsCount) AS accountsCount, GLAccountGroups.Name, GLAccountGroups.ID FROM (SELECT SUM(DERIVEDTBL.total) AS Total, GLAccounts.GLGroup, COUNT(GLAccounts.ID) AS accountsCount FROM (SELECT SUM((CONVERT(tinyint, IsCredit) - .5) * 2 * Amount) AS total, GLAccount FROM GLDocs inner join GLRows on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or GLDocs.IsFinalized=1) and GLDocs.deleted=0) GROUP BY GLAccount, GL HAVING (GL = "& OpenGL & ")) DERIVEDTBL RIGHT OUTER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL & ") GROUP BY GLAccounts.GLGroup) DERIVEDTBL INNER JOIN GLAccountGroups ON DERIVEDTBL.GLGroup = GLAccountGroups.ID WHERE (GLAccountGroups.GL = "& OpenGL & ") AND (GLAccountGroups.GLSuperGroup = "& SuperGroupID & ") GROUP BY GLAccountGroups.GLSuperGroup, GLAccountGroups.Name, GLAccountGroups.ID ")
  75. %><BR><BR>
  76. <TABLE dir=rtl align=center width=600>
  77. <TR >
  78. <TD colspan=4>
  79. <%
  80. 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 & ")")
  81. %><A HREF="AccountInfo.asp"> </A>> <A HREF="sood.asp?OpenGL=<%=RSS2("GLID")%>"> </A> > <%=RSS2("name")%>
  82. <BR><hR>
  83. </TD>
  84. </TR>
  85. <TR bgcolor="eeeeee" >
  86. <TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>
  87. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  88. <TD><!A HREF="default.asp?s=4"><SMALL> </SMALL></A></TD>
  89. <TD><!A HREF="default.asp?s=4"><SMALL> ()</SMALL></A></TD>
  90. </TR>
  91. <%
  92. tmpCounter=0
  93. Do while not RSS.eof
  94. tmpCounter = tmpCounter + 1
  95. if tmpCounter mod 2 = 1 then
  96. tmpColor="#FFFFFF"
  97. tmpColor2="#FFFFBB"
  98. Else
  99. tmpColor="#DDDDDD"
  100. tmpColor2="#EEEEBB"
  101. End if
  102. %>
  103. <TR bgcolor="<%=tmpColor%>" >
  104. <TD><A HREF="sood.asp?act=account&GroupID=<%=RSS("id")%>"><%=RSS("id")%></A></TD>
  105. <TD><A HREF="sood.asp?act=account&GroupID=<%=RSS("id")%>"><%=RSS("Name")%></A></TD>
  106. <TD><%=RSS("accountsCount")%></TD>
  107. <TD><span dir=ltr><%=RSS("total")%></span></TD>
  108. </TR>
  109. <%
  110. RSS.moveNext
  111. Loop
  112. %>
  113. </TABLE><br>
  114. <%
  115. '-----------------------------------------------------------------------------------------------------
  116. '---------------------------------------------------------------------- List GL Accounts under a group
  117. '-----------------------------------------------------------------------------------------------------
  118. elseif request("act")="account" then
  119. GroupID = request("GroupID")
  120. 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 & ")")
  121. %><BR><BR>
  122. <TABLE dir=rtl align=center width=600>
  123. <TR >
  124. <TD colspan=5>
  125. <%
  126. set RSS2=Conn.Execute ("SELECT GLAccounts.Name, DERIVEDTBL.totalDebit AS totalDebit, DERIVEDTBL.totalCredit AS totalCredit, GLAccounts.ID FROM (SELECT SUM(CONVERT(tinyint, IsCredit) * Amount) AS totalCredit, SUM((CONVERT(tinyint, IsCredit) - 1) * (- 1) * Amount) AS totalDebit, GLAccount FROM GLDocs inner join GLRows on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or GLDocs.IsFinalized=1) and GLDocs.deleted=0) GROUP BY GLAccount, GL HAVING (GL = "& OpenGL & ")) DERIVEDTBL RIGHT OUTER JOIN GLAccounts ON DERIVEDTBL.GLAccount = GLAccounts.ID WHERE (GLAccounts.GL = "& OpenGL & ") AND (GLAccounts.GLGroup = "& GroupID & ")")
  127. %><A HREF="AccountInfo.asp"> </A>> <A HREF="sood.asp?OpenGL=<%=RSS("GLID")%>"> </A> > <A HREF="sood.asp?act=groups&SuperGroupID=<%=RSS("SuperGroupID")%>"><%=RSS("SuperGroupName")%></a> > <%=RSS("GroupName")%>
  128. <BR><hR>
  129. </TD>
  130. </TR>
  131. <TR bgcolor="eeeeee" >
  132. <TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>
  133. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  134. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  135. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  136. </TR>
  137. <%
  138. tmpCounter=0
  139. Do while not RSS2.eof
  140. tmpCounter = tmpCounter + 1
  141. if tmpCounter mod 2 = 1 then
  142. tmpColor="#FFFFFF"
  143. tmpColor2="#FFFFBB"
  144. Else
  145. tmpColor="#DDDDDD"
  146. tmpColor2="#EEEEBB"
  147. End if
  148. %>
  149. <TR bgcolor="<%=tmpColor%>" >
  150. <TD><A HREF="sood.asp?act=accountRows&accountID=<%=RSS2("id")%>"><%=RSS2("id")%></A></TD>
  151. <TD><A HREF="sood.asp?act=accountRows&accountID=<%=RSS2("id")%>"><%=RSS2("Name")%></A></TD>
  152. <TD><span dir=ltr><%=RSS2("totalDebit")%></span></TD>
  153. <TD><span dir=ltr><%=RSS2("totalCredit")%></span></TD>
  154. </TR>
  155. <%
  156. RSS2.moveNext
  157. Loop
  158. %>
  159. </TABLE><br>
  160. <%
  161. '-----------------------------------------------------------------------------------------------------
  162. '-------------------------------------------------------------------------- List Rows of a GL Accounts
  163. '-----------------------------------------------------------------------------------------------------
  164. elseif request("act")="accountRows" then
  165. account = request("accountID")
  166. set RSS=Conn.Execute ("SELECT * FROM GLDocs inner join GLRows on GLDocs.id=GLRows.GLDoc where ((GLDocs.IsTemporary=1 or GLDocs.IsChecked=1 or GLDocs.IsFinalized=1) and GLDocs.deleted=0) AND (GL = "& OpenGL & ") AND (GLaccount = "& account & ")")
  167. %><BR><BR>
  168. <TABLE dir=rtl align=center width=600>
  169. <TR >
  170. <TD colspan=6>
  171. <%
  172. 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 & ")")
  173. %><A HREF="AccountInfo.asp"> </A>> <A HREF="sood.asp?OpenGL=<%=RSS2("GLID")%>"> </A> > <A HREF="sood.asp?act=groups&SuperGroupID=<%=RSS2("SuperGroupID")%>"><%=RSS2("SuperGroupName")%></a> > <A HREF="sood.asp?act=account&GroupID=<%=RSS2("GroupID")%>"><%=RSS2("GroupName")%></a> > <%=RSS2("Name")%>
  174. <BR><hR>
  175. </TD>
  176. </TR>
  177. <TR bgcolor="eeeeee" >
  178. <TD><!A HREF="default.asp?s=1"><SMALL></SMALL></A></TD>
  179. <TD><!A HREF="default.asp?s=2"><SMALL></SMALL></A></TD>
  180. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  181. <TD><!A HREF="default.asp?s=2"><SMALL> </SMALL></A></TD>
  182. <TD><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>
  183. <TD><!A HREF="default.asp?s=5"><SMALL></SMALL></A></TD>
  184. </TR>
  185. <%
  186. tmpCounter=0
  187. Do while not RSS.eof
  188. tmpCounter = tmpCounter + 1
  189. if tmpCounter mod 2 = 1 then
  190. tmpColor="#FFFFFF"
  191. tmpColor2="#FFFFBB"
  192. Else
  193. tmpColor="#DDDDDD"
  194. tmpColor2="#EEEEBB"
  195. End if
  196. debit = ""
  197. credit = ""
  198. if RSS("IsCredit") then
  199. credit = RSS("Amount")
  200. else
  201. debit = RSS("Amount")
  202. end if
  203. %>
  204. <TR bgcolor="<%=tmpColor%>" >
  205. <TD><!A HREF="sood.asp?act=accountRows&accountID=<%=RSS("id")%>"><%=RSS("id")%></A></TD>
  206. <TD><!A HREF="sood.asp?act=accountRows&accountID=<%=RSS("id")%>"><%=RSS("Description")%></A></TD>
  207. <TD><A HREF="javascript:void(0);" onclick="window.open('GLMemoDocShow.asp?id=<%=RSS("GLDoc")%>',null,'menubars=no')"><%=RSS("GLDocID")%></A></TD>
  208. <TD><%=RSS("GLDocDate")%></TD>
  209. <TD><%=debit%></TD>
  210. <TD><%=credit%></TD>
  211. </TR>
  212. <%
  213. RSS.moveNext
  214. Loop
  215. %>
  216. </TABLE><br>
  217. <%
  218. end if
  219. %>
  220. <!--#include file="tah.asp" -->