asked on
'''Here is the aspx.vb code:
Imports TimePunchWeb.Punch
Imports Microsoft.VisualBasic.Devices
Public Class _Default
Inherits System.Web.UI.Page
Dim p As Punch.Punch
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Request.Cookies("userInfo") Is Nothing Then
Employee_Number_Box.Text = Server.HtmlEncode(Request.Cookies("userInfo")("EmpNumber"))
End If
End Sub
Protected Sub Punch_In_Btn_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Punch_In_Btn.Click
Try
lblMessage.Text = ""
SaveUserIDAsCookie()
p.PunchIn(Employee_Number_Box.Text, Now.ToShortDateString, Now.ToString, PunchType.Punch.ToString)
lblMessage.Text = "Success"
Catch ex As Exception
lblMessage.Text = "Error punching in: " & ex.Message
End Try
End Sub
Private Sub SaveUserIDAsCookie()
Response.Cookies("userInfo")("EmpNumber") = Employee_Number_Box.Text
Response.Cookies("userInfo")("lastVisit") = DateTime.Now.ToString
Response.Cookies("userInfo").Expires = DateTime.Now.AddDays(365)
End Sub
''''Here is the fucntion from the SOAP/webservice:
Public Function PunchIn(ByVal EmployeeID As String, ByVal PunchDate As String, ByVal TimeIn As String, ByVal PunchType As String) As String
Dim results() As Object = Me.Invoke("PunchIn", New Object() {EmployeeID, PunchDate, TimeIn, PunchType})
Return CType(results(0),String)
End Function