/beta/AR/CSRreport.asp

http://github.com/khaneh/Orders · ASP · 192 lines · 163 code · 18 blank · 11 comment · 21 complexity · be6fc462acb7913bd6630ad5b0da2ae4 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
  2. 'AR (6)
  3. PageTitle=" "
  4. SubmenuItem=8
  5. if not Auth(6 , 8) then NotAllowdToViewThisPage()
  6. %>
  7. <!--#include file="top.asp" -->
  8. <!--#include File="../include_farsiDateHandling.asp"-->
  9. <!--#include File="../include_JS_InputMasks.asp"-->
  10. <BR><BR><BR>
  11. <%
  12. CSR = request("CSR")
  13. if CSR="" then CSR=1000
  14. %>
  15. <%
  16. if not Auth(6 , 9) then
  17. CSR = session("id")
  18. else
  19. %>
  20. <FORM METHOD=POST ACTION="?act=show">
  21. <CENTER> : <select name="CSR" class=inputBut ></CENTER>
  22. <option value="1000"> ()</option>
  23. <option value="2000">-------------------</option>
  24. <% set RSV=Conn.Execute ("SELECT * FROM Users WHERE Display=1 ORDER BY RealName")
  25. Do while not RSV.eof
  26. %>
  27. <option value="<%=RSV("ID")%>" <%
  28. if trim(RSV("ID"))=trim(CSR) then
  29. response.write " selected "
  30. end if
  31. %>><%=RSV("RealName")%></option>
  32. <%
  33. RSV.moveNext
  34. Loop
  35. RSV.close
  36. %>
  37. </select>
  38. <INPUT TYPE="submit" value=""><BR>
  39. <INPUT TYPE="checkbox" <% if request("showZero") = "on" then%>checked <% end if %> NAME="showZero">
  40. </form>
  41. <%
  42. end if
  43. '-----------------------------------------------------------------------------------------------------
  44. '------------------------------------------------------------------------------------ Send New Message
  45. '-----------------------------------------------------------------------------------------------------
  46. if request("act")="show" and CSR<>"" then
  47. if not request("showZero") = "on" then
  48. extraCond = "and not ARBalance=0"
  49. else
  50. extraCond = " "
  51. end if
  52. '=========================================== All CSRs
  53. '====================================================
  54. if CSR=1000 then '----- brief Report
  55. ' mySQL="SELECT Accounts.CSR, COUNT(Accounts.APBalance) AS AccountsCOUNT, SUM(CONVERT(bigint, Accounts.ARBalance)) AS sumARBalance, Users.RealName FROM Accounts LEFT OUTER JOIN Users ON Accounts.CSR = Users.ID GROUP BY Accounts.CSR, Users.RealName ORDER BY sumARBalance"
  56. ' Changed By Kid 840128
  57. mySQL="SELECT Accounts.CSR, RealName, COUNT(Accounts.APBalance) AS AccountsCOUNT, SUM((SIGN(Accounts.ARBalance) + 1) * .5 * CONVERT(bigint, Accounts.ARBalance)) AS sumPosBalance, SUM((SIGN(Accounts.ARBalance) - 1) * .5 * CONVERT(bigint, Accounts.ARBalance)) AS sumNegBalance FROM Accounts LEFT OUTER JOIN Users ON Accounts.CSR = Users.ID GROUP BY Accounts.CSR, Users.RealName ORDER BY sumNegBalance DESC"
  58. set RSM = conn.Execute (mySQL)
  59. %>
  60. <table style="font-family:tahoma;font-size:9pt; border:1 dashed #888888; direction:RTL;" align="center" Width="90%" Cellspacing="0" Cellpadding="5">
  61. <tbody id="AccountsTable">
  62. <tr bgcolor='#33AACC'>
  63. <td> # </td>
  64. <td> </td>
  65. <td> </td>
  66. <td width='80'> </td>
  67. <td width='80'> </td>
  68. </tr>
  69. <%
  70. SA_tempCounter= 0
  71. while Not ( RSM.EOF)
  72. AccountsCOUNT=cint(RSM("AccountsCOUNT"))
  73. sumPosBalance=cdbl(RSM("sumPosBalance"))
  74. sumNegBalance=cdbl(RSM("sumNegBalance"))
  75. RealName=RSM("RealName")
  76. CSR=cint(RSM("CSR"))
  77. if (cdbl(sumARBalance) >= 0 )then
  78. SA_tempBalanceColor="green"
  79. else
  80. SA_tempBalanceColor="red"
  81. end if
  82. SA_tempCounter=SA_tempCounter+1
  83. if (SA_tempCounter Mod 2 = 1)then
  84. SA_tempColor="#FFFFFF"
  85. else
  86. SA_tempColor="#DDDDDD"
  87. end if
  88. %> <tr >
  89. <td style="border-bottom: solid 1pt black"><%=SA_tempCounter %>&nbsp;</td>
  90. <td style="border-bottom: solid 1pt black" class=alak2><A HREF="CSRreport.asp?act=show&CSR=<%=CSR%>"><%=RealName%></A>&nbsp;</td>
  91. <td style="border-bottom: solid 1pt black"><%=AccountsCOUNT%>&nbsp;</td>
  92. <td style="border-bottom: solid 1pt black; direction:LTR; text-align:right;"><FONT COLOR="green"><%=Separate(sumPosBalance)%></FONT>&nbsp;</td>
  93. <td style="border-bottom: solid 1pt black; direction:LTR; text-align:right;"><FONT COLOR="red"><%=Separate(sumNegBalance)%></FONT>&nbsp;</td>
  94. </tr>
  95. <%
  96. 'total = cdbl(total) + cdbl(sumARBalance)
  97. RSM.movenext
  98. wend
  99. %>
  100. <tr bgcolor='#33AACC'>
  101. <td align='right' colspan=4> . </td>
  102. <td dir=ltr><! <%=Separate(total)%> ></td>
  103. </td>
  104. </tr>
  105. </table><BR><BR>
  106. <%
  107. response.end
  108. end if
  109. '============================================ One CSR
  110. '====================================================
  111. if CSR=2000 then '----- no csr Report
  112. mySQL="SELECT * FROM Accounts WHERE (CSR IS NULL)"& extraCond & " ORDER BY ARBalance"
  113. else
  114. mySQL="SELECT * FROM Accounts where CSR = " & CSR & " "& extraCond & " ORDER BY ARBalance"
  115. end if
  116. set RSM = conn.Execute (mySQL)
  117. %>
  118. <table style="font-family:tahoma;font-size:9pt; border:1 dashed #888888; direction:RTL;" align="center" Width="90%" Cellspacing="0" Cellpadding="5">
  119. <tbody id="AccountsTable">
  120. <tr bgcolor='#33AACC'>
  121. <td> # </td>
  122. <td> </td>
  123. <td> </td>
  124. <td width='80'> </td>
  125. </tr>
  126. <%
  127. SA_tempCounter= 0
  128. while Not ( RSM.EOF)
  129. AccountNo=RSM("ID")
  130. AccountTitle=RSM("AccountTitle")
  131. ARBalance=cdbl(RSM("ARBalance"))
  132. CreditLimit=RSM("CreditLimit")
  133. contact1 = RSM("Dear1") & " " & RSM("FirstName1") & " " & RSM("LastName1")
  134. if RSM("Type") = 1 then
  135. AccountTitle = AccountTitle & " () "
  136. end if
  137. if isnull(SA_totalBalance) then
  138. ARBalance=0
  139. totalBalanceText="<i>N / A</i>"
  140. tempBalanceColor="gray"
  141. else
  142. totalBalanceText=Separate(ARBalance)
  143. if (ARBalance >= 0 )then
  144. SA_tempBalanceColor="green"
  145. else
  146. SA_tempBalanceColor="red"
  147. end if
  148. end if
  149. SA_tempCounter=SA_tempCounter+1
  150. if (SA_tempCounter Mod 2 = 1)then
  151. SA_tempColor="#FFFFFF"
  152. else
  153. SA_tempColor="#DDDDDD"
  154. end if
  155. total = total + ARBalance
  156. %> <tr >
  157. <td style="border-bottom: solid 1pt black"><%=SA_tempCounter %>&nbsp;</td>
  158. <td style="border-bottom: solid 1pt black"><A href="../CRM/AccountInfo.asp?act=show&selectedCustomer=<%=AccountNo%>" target='_blank'><%=AccountTitle%></A>&nbsp;</td>
  159. <td style="border-bottom: solid 1pt black"><%=contact1%>&nbsp;</td>
  160. <td style="border-bottom: solid 1pt black; direction:LTR; text-align:right;"><FONT COLOR="<%=SA_tempBalanceColor%>"><%=totalBalanceText%></FONT>&nbsp;</td>
  161. </tr>
  162. <% RSM.movenext
  163. wend
  164. %>
  165. <tr bgcolor='#33AACC'>
  166. <td align='right' colspan=3> </td>
  167. <td dir=ltr align='right' > <%=Separate(total)%>&nbsp;</td>
  168. </td>
  169. </tr>
  170. </table><BR><BR>
  171. <%
  172. end if
  173. %>
  174. <!--#include file="tah.asp" -->