home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / full / atlantic / Software / Teweb / data1.cab / Pages / scripts / expview.asp < prev    next >
Encoding:
Text File  |  2000-02-14  |  5.7 KB  |  292 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%    Set clsTes = Session("TES")
  3.     If clsTes.LoggedIn = False Then
  4.         Set clsTes = Nothing
  5.         Response.Redirect("../loggedout.htm")
  6.     End If
  7.     On Error Resume Next
  8.  
  9.     If Request.Form("btnOK") = "OK" Then
  10.         Response.Redirect(Request("ReturnURL"))
  11.     Else
  12.         clsTes.Expense.Key = CLng(Request("Key"))
  13.         clsTes.GetExpenseValues 
  14.     End If%>
  15. <!-- #INCLUDE FILE = "settings/colours.txt" -->
  16. <HTML>
  17. <HEAD>
  18. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  19. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  20. <TITLE>View Expense</TITLE>
  21. </HEAD>
  22. <BODY BGCOLOR="<%= BackColor %>" LINK="<%= LinkColor %>" VLINK="<%= VLinkColor %>" ALINK="<%= ALinkColor %>" TEXT="<%= TextColor %>">
  23. <BASEFONT SIZE=2 COLOR="<%= TextColor %>">
  24.  
  25. <% If clsTes.ExpenseViewAccess <> 0 Then %>
  26. <CENTER>
  27. <FORM ACTION="tsview.asp" METHOD=POST>
  28. <INPUT TYPE=HIDDEN NAME="Key" VALUE="<%= Request("Key") %>">
  29. <INPUT TYPE=HIDDEN NAME="ReturnURL" VALUE="<%= Request("ReturnURL") %>">
  30. <FONT SIZE=+2><B>
  31. View Expense
  32. </B></FONT>
  33. <P>
  34.  
  35. <%    If tMode="Amend" and Len(Request("Key"))=0 Then %>
  36.         ERROR : No Expense supplied to view
  37.         </FORM>
  38. <%    Else %>
  39.  
  40. <TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0>
  41.  
  42. <TR>
  43.  
  44.     <TD ALIGN=LEFT VALIGN=TOP>
  45.         <B><%= Server.HTMLEncode(clsTes.ResourceLabel) %>:</B>
  46.     </TD>
  47.  
  48.     <TD ALIGN=LEFT>
  49.         <%= Server.HTMLEncode(clsTes.Expense.ResourceCode) %>
  50.     </TD>
  51.  
  52.     <TD ALIGN=LEFT>
  53.         <%= Server.HTMLEncode(clsTes.GetDescription(clsTes.Expense.ResourceCode, "Resource")) %>
  54.     </TD
  55. </TR>
  56.  
  57. <TR>
  58.     <TD ALIGN=LEFT VALIGN=TOP>
  59.         <B>Date:</B>
  60.     </TD>
  61.  
  62.     <TD COLSPAN=2 ALIGN=LEFT VALIGN=TOP>
  63. <%            Response.Write(clsTes.FormatLongDate(clsTes.Expense.ExpenseDate)) %>
  64.     </TD>
  65. </TR>
  66.  
  67. <TR>
  68.     <TD ALIGN=LEFT VALIGN=TOP>
  69.         <B>
  70.         <%= Server.HTMLEncode(clsTes.ProjectLabel) %>:
  71.         </B>
  72.     </TD>
  73.         
  74.     <TD ALIGN=LEFT VALIGN=TOP>
  75.         <%= Server.HTMLEncode(clsTes.Expense.ProjectCode) %>
  76.     </TD>
  77.  
  78.     <TD ALIGN=LEFT VALIGN=TOP>
  79.         <%= Server.HTMLEncode(clsTes.GetDescription(clsTes.Expense.ProjectCode, "Project")) %>
  80.     </TD>
  81. </TR>
  82.  
  83. <TR>
  84.     <TD ALIGN=LEFT>
  85.         <B>
  86.         Type:
  87.         </B>
  88.     </TD>
  89.  
  90.     <TD ALIGN=LEFT>
  91.         <%= Server.HTMLEncode(clsTes.Expense.TypeCode) %>
  92.     </TD>
  93.  
  94.     <TD ALIGN=LEFT>
  95.         <%= Server.HTMLEncode(clsTes.GetDescription(clsTes.Expense.TypeCode, "Type")) %>
  96.     </TD>
  97. </TR>
  98.  
  99. <TR>
  100.     <TD ALIGN=LEFT>
  101.         <B>
  102.         <%= Server.HTMLEncode(clsTes.TypeUnitsLabel(clsTes.Expense.TypeCode)) %>:
  103.         </B>
  104.     </TD>
  105.  
  106.     <TD ALIGN=LEFT>
  107. <%        If clsTes.TypeUsesUnits(clsTes.Expense.TypeCode) Then
  108.             If Not IsNull(clsTes.Expense.Units) Then
  109.                 Response.Write Server.HTMLEncode(clsTes.Expense.Units)
  110.             Else %>
  111.                  
  112. <%            End If
  113.         Else %>
  114.             N/A
  115. <%        End If %>
  116.     </TD>
  117.  
  118.     <TD ALIGN=LEFT>
  119. <%        If Not IsNull(clsTes.TypeCostPerUnit(clsTes.Expense.TypeCode)) Then
  120.             Response.Write Server.HTMLEncode(clsTes.TypeCostPerUnit(clsTes.Expense.TypeCode))
  121.         End If %>
  122.          
  123.     </TD>
  124. </TR>
  125.  
  126. <TR>
  127.     <TD ALIGN=LEFT>
  128.      
  129.     </TD>
  130.     <TD ALIGN=LEFT>
  131.     <B>Cost</B>
  132.     </TD>
  133.     <TD ALIGN=LEFT>
  134. <%    If clsTes.UserChargeableExpense <> 0 and clsTes.Expense.Chargeable Then %>
  135.         <B>Charge</B>
  136. <%    Else %>
  137.          
  138. <%    End If %>
  139.     </TD>
  140. </TR>
  141.  
  142. <TR>
  143.     <TD ALIGN=LEFT>
  144.         <B>
  145.         Gross:
  146.         </B>
  147.     </TD>
  148.  
  149.     <TD ALIGN=LEFT>
  150.         <%=    clsTes.FormatCurrency(clsTes.Expense.CostGross) %>
  151.     </TD>
  152.     <TD ALIGN=LEFT>
  153. <%    If clsTes.UserChargeableExpense <> 0 and clsTes.Expense.Chargeable Then %>
  154.         <%= clsTes.FormatCurrency(clsTes.Expense.ChargeGross) %>
  155. <%    Else %>
  156.          
  157. <%    End If %>
  158.     </TD>
  159. </TR>
  160.  
  161. <TR>
  162.     <TD ALIGN=LEFT>
  163.         <B>
  164.         <%= Server.HTMLEncode(clsTes.VATLabel) %>:
  165.         </B>
  166.     </TD>
  167.  
  168.     <TD ALIGN=LEFT>
  169.         <%=    clsTes.FormatNumber(clsTes.Expense.CostVAT) %>
  170.     </TD>
  171.     <TD ALIGN=LEFT>
  172. <%    If clsTes.UserChargeableExpense <> 0 and clsTes.Expense.Chargeable Then %>
  173.         <%= clsTes.FormatNumber(clsTes.Expense.ChargeVAT) %>
  174. <%    Else %>
  175.          
  176. <%    End If %>
  177.     </TD>
  178. </TR>
  179.  
  180. <TR>
  181.     <TD ALIGN=LEFT>
  182.         <B>
  183.         Net:
  184.         </B>
  185.     </TD>
  186.  
  187.     <TD ALIGN=LEFT>
  188.         <%=    clsTes.FormatCurrency(clsTes.Expense.CostNet) %>
  189.     </TD>
  190.     <TD ALIGN=LEFT>
  191. <%    If clsTes.UserChargeableExpense <> 0 and clsTes.Expense.Chargeable Then %>
  192.         <%= clsTes.FormatCurrency(clsTes.Expense.ChargeNet) %>
  193. <%    Else %>
  194.          
  195. <%    End If %>
  196.     </TD>
  197. </TR>
  198.  
  199. <%    If clsTes.UserExpenseNotes Then %>
  200. <TR>
  201.     <TD>
  202.         <B>
  203.         Notes:
  204.         </B>
  205.     </TD>
  206.  
  207.     <TD COLSPAN=2>
  208. <%    If Not IsNull(clsTes.Expense.Notes) Then
  209.         If Len(clsTes.Expense.Notes) > 0 Then %>
  210.             <%= Server.HTMLEncode(clsTes.Expense.Notes) %>
  211. <%        Else %>
  212.              
  213. <%        End If
  214.     Else %>
  215.          
  216. <%    End If %>
  217.     </TD>
  218. </TR>
  219. <%    End If %>
  220.  
  221. <%    If clsTes.UserApprovedExpense Then %>
  222. <TR>
  223.     <TD ALIGN=LEFT>
  224.         <B>
  225.         Approved:
  226.         </B>
  227.     </TD>
  228.  
  229.     <TD ALIGN=LEFT>
  230. <%        If clsTes.Expense.Approved = -1 Then %>
  231.         Yes
  232. <%        ElseIf clsTes.Expense.Approved = 0 Then %>
  233.         No
  234. <%        Else %>
  235.          
  236. <%        End If %>
  237.     </TD>
  238.     
  239.     <TD ALIGN=LEFT>
  240. <%        If Not IsNull(clsTes.Expense.Approved) Then %>
  241.             <%= clsTes.FormatDate(clsTes.Expense.ApprovalDate) %> - <%= Server.HTMLEncode(clsTes.Expense.ApprovalRef) %>
  242. <%        Else %>
  243.              
  244. <%        End If %>
  245.     </TD>
  246.  
  247. </TR>
  248. <%    End If %>
  249.  
  250. <%    If clsTes.UserInvoicedExpense Then %>
  251. <TR>
  252.     <TD ALIGN=LEFT>
  253.         <B>
  254.         Invoiced:
  255.         </B>
  256.     </TD>
  257.  
  258.     <TD ALIGN=LEFT>
  259. <%        If Not IsNull(clsTes.Expense.InvoiceKey) Then %>
  260.         Yes 
  261. <%        Else %>
  262.         No 
  263. <%        End If %>
  264.     </TD>
  265.  
  266.     <TD ALIGN=LEFT>
  267. <%        If Not IsNull(clsTes.Expense.InvoiceKey) Then %>
  268.         <%= Server.HTMLEncode(clsTes.ExpenseInvoiceNumber) %>
  269. <%        Else %>
  270.          
  271. <%        End If %>
  272.     </TD>
  273. </TR>
  274. <%    End If %>
  275.  
  276.  
  277. <TR>
  278.     <TD COLSPAN=3 ALIGN=CENTER>
  279.     <INPUT TYPE=SUBMIT NAME="btnOK" VALUE="OK">
  280.     </TD>
  281. </TR>
  282.  
  283. </TABLE>
  284. <%    End If %>
  285.  
  286. <%    Else %>
  287. Sorry, you do not have permission to view expenses.
  288. <%    End If %>
  289. <%    Set clsTes = Nothing %>
  290. </BODY>
  291. </HTML>
  292.