home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / askLPRReportform.aspx.vb < prev    next >
Text File  |  2012-02-19  |  2KB  |  44 lines
  1.  
  2. Partial Class askLPRReportform
  3.     '    Inherits System.Web.UI.Page
  4.     Inherits AspNetMaker7_tfpssnet
  5.  
  6.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  7.         If Not IsPostBack Then
  8.             If Session("tfpssnet_Status") <> "login" Then
  9.                 Response.Redirect("login.aspx")
  10.             End If
  11.             '            x_StartDate.Value = tlcFirstDayOfWeek(FormatDateTime(Now, DateFormat.ShortDate))
  12.             '            x_StartDate.Value = Now.ToString("MM/dd/yyyy")
  13.             x_EndDate.Value = tlcLastDayOfWeek(FormatDateTime(Now, DateFormat.ShortDate))
  14.             '            x_EndDate.Value = Now.ToString("MM/dd/yyyy")
  15.             '            If ew_Session("tfpssnet_Status_UserLevel") = -1 Or ew_Session("tfpssnet_Status_UserLevel") = 3 Or ew_Session("tfpssnet_Status_Userlevel") = 4 Then
  16.             srcEmployee.ConnectionString = EW_DB_CONNECTION_STRING
  17.             'End If
  18.             srcLocation.ConnectionString = EW_DB_CONNECTION_STRING
  19.             srcLPRStatus.ConnectionString = EW_DB_CONNECTION_STRING
  20.         End If
  21.     End Sub
  22.  
  23.     Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
  24.         Session("tmpStartDate") = x_StartDate.Value
  25.         Session("tmpEndDate") = x_EndDate.Value
  26.         If ew_Session("tfpssnet_Status_UserLevel") = -1 Or ew_Session("tfpssnet_Status_UserLevel") = 3 Or ew_Session("tfpssnet_Status_Userlevel") = 4 Then
  27.             Session("tmpEmployeeID") = ddlEmployee.SelectedValue
  28.             Session("tmpEmployeeName") = ddlEmployee.SelectedItem.Text
  29.         End If
  30.         Session("tmpLocationID") = ddlLocation.SelectedValue
  31.         Session("tmpLocationDesc") = ddlLocation.SelectedItem.Text
  32.         Session("tmpStatusID") = ddlLPRStatus.SelectedValue
  33.         Session("tmpStatusDesc") = ddlLPRStatus.SelectedItem.Text
  34.         Response.Redirect("rptLPRReport.aspx")
  35.  
  36.         'Dim ctl As Control
  37.         'Dim content As ContentPlaceHolder
  38.         'content = Page.Master.FindControl("Content")
  39.         'For Each ctl In content.Controls
  40.         '    Response.Write(ctl.ID & "<br>")
  41.         'Next
  42.     End Sub
  43.  
  44. End Class