ModuleMaster/hr/newrow_businesstrip.aspx.vb - main - ivan/ModMas

ModuleMaster/hr/newrow_businesstrip.aspx.vb
44 строки2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
Imports System.Data
Imports System.IO

Partial Class HR_newrow_businesstrip
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim rowid As String = Request.QueryString("rowid")
        If Not IsNothing(rowid) Then
            If IsNumeric(rowid) Then
                Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions
                Dim dr As DataRow = sqlf.GetRow("SELECT * FROM UserModules.[user].BUSINESS_TRIP WHERE id=" & rowid)
                If Not IsNothing(dr) Then
                    department.Text = dr("department")
                    name.Text = dr("name")
                    position.Text = dr("position")
                    company.Text = dr("company")
                    arrival.Text = dr("from")
                    departure.Text = dr("to")
                    purpose.Text = dr("purpose")
                    visa.Text = dr("visa_type")
                    hotel.Text = dr("hotel")
                    phone.Text = dr("telephone")
                    picphone.Text = dr("contact")
                    pic.Text = dr("created_by")
                    category.Text = dr("CATEGORY")
                    HyperLink1.NavigateUrl = HyperLink1.NavigateUrl.Replace("@id", rowid)

                    Dim myCItrad As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US", True)
                    Dim sw As StringWriter = New StringWriter(myCItrad)
                    Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)

                    p.RenderControl(hw)
                    sqlf.SendEmail("i.krivokon", "New visitor alert", sw.ToString)
                    sqlf.SendEmail("manzura.h", "New visitor alert", sw.ToString)
                    sqlf.SendEmail("g.yuliya", "New visitor alert", sw.ToString)
                    sqlf.SendEmail("tycoon.seo", "New visitor alert", sw.ToString)

                End If
            End If
        End If
    End Sub
End Class