HX-PGS-ERP-SYS-LEEHSIEHJUI/01、人事管理系統/請休假與外出/請假資料確認.vb

Imports System.Windows.Controls

Public Class 請假資料確認
    Dim 對話框(13) As String
    Private Sub Set_請假單()
        Dim ds1 As New DataSet : 請假單_dgv.DataSource = Nothing : ds1.Clear()
        請假單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        請假單_dgv.ColumnHeadersHeight = 40 : 請假單_dgv.AllowUserToAddRows = False : 請假單_dgv.RowTemplate.Height = 25
        If 系統語言 = "繁體中文" Then : SQL2 = "位置" : ElseIf 系統語言 = "English" Then : SQL2 = "名稱_英文" : ElseIf 系統語言 = "Indonesian" Then : SQL2 = "名稱_印尼文" : End If
        SQL_請假資料查詢()
        da.Fill(ds1) : 請假單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        請假單_dgv.Columns(3).FillWeight = 45 : 請假單_dgv.Columns(7).Visible = False : 請假單_dgv.Columns(8).Visible = False : 請假單_dgv.Columns(9).Visible = False
        請假單_dgv.Columns(0).Visible = False : 請假單_dgv.Columns(4).Visible = False : 請假單_dgv.Columns(5).Visible = False : 請假單_dgv.Columns(6).Visible = False
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H000-124-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 聯絡事項_lb.Text = 系統語言字典("H904-131-" & 語言)
        申請人_lb.Text = 系統語言字典("H904-112-" & 語言) : 聯絡函主題_lb.Text = 系統語言字典("H904-132-" & 語言) : 申請日期_lb.Text = 系統語言字典("H904-113-" & 語言)
        申請部門_lb.Text = 系統語言字典("H904-114-" & 語言) : 聯絡函單號_lb.Text = 系統語言字典("H904-133-" & 語言) : Label1.Text = 系統語言字典("H614-100-" & 語言)

        對話框(9) = 系統語言字典("H609-133-" & 語言) : 對話框(10) = 系統語言字典("H609-134-" & 語言) : 對話框(11) = 系統語言字典("H609-135-" & 語言)
        對話框(12) = 系統語言字典("H609-136-" & 語言) : 對話框(13) = 系統語言字典("H609-137-" & 語言)

        表頭(20) = 系統語言字典("H904-104-" & 語言) : 表頭(6) = 系統語言字典("H904-105-" & 語言) : 表頭(19) = 系統語言字典("H904-103-" & 語言)
    End Sub
    Private Sub 假別清單()
        假別_cb.Items.Clear() : 假別1_cb.Items.Clear() : 假別_cb.Items.Add(對話框(9)) : 假別1_cb.Items.Add("1") : 假別_cb.Items.Add(對話框(10)) : 假別1_cb.Items.Add("2")
        假別_cb.Items.Add(對話框(11)) : 假別1_cb.Items.Add("3") : 假別_cb.Items.Add(對話框(12)) : 假別1_cb.Items.Add("4") : 假別_cb.Items.Add(對話框(13)) : 假別1_cb.Items.Add("5")
    End Sub
    Private Sub 請假確認資料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(614) = True : 介面 = "H614" : 語言轉換讀取() : 顯示說明(999, True)
        Panel1.SendToBack()
        MyMod.清單字體大小調整()
        請假單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 請假資料確認_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        假別清單() : Set_請假單()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H614" : 語言轉換讀取() : 假別清單() : Set_請假單()
    End Sub
    Private Sub 系統開發用共享文件_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(614) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 請假單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請假單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            聯絡函單號_rtb.Text = 請假單_dgv(0, e.RowIndex).Value.ToString : 申請部門_rtb.Text = 請假單_dgv(1, e.RowIndex).Value.ToString : 申請人_rtb.Text = 請假單_dgv(2, e.RowIndex).Value.ToString
            申請日期_dtp.Value = 請假單_dgv(3, e.RowIndex).Value : 聯絡事項_tb.Text = 請假單_dgv(4, e.RowIndex).Value.ToString : 聯絡函主題_tb.Text = 請假單_dgv(6, e.RowIndex).Value.ToString
            ID卡號_tb.Text = 請假單_dgv(9, e.RowIndex).Value.ToString : 開始日期_dtp.Value = 請假單_dgv(7, e.RowIndex).Value.ToString : 結束日期_dtp.Value = 請假單_dgv(8, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 重讀2_bt_Click(sender As Object, e As EventArgs) Handles 重讀2_bt.Click
        Set_請假單()
    End Sub
    Private Sub 假別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 假別_cb.SelectedIndexChanged
        假別1_cb.SelectedIndex = 假別_cb.SelectedIndex
    End Sub
    Private Sub 假別_cb_Click(sender As Object, e As EventArgs) Handles 假別_cb.Click
        CB選擇清單(假別_cb, 假別_cb.Text)
    End Sub
    Private Sub 確認_bt_Click(sender As Object, e As EventArgs) Handles 確認_bt.Click
        If 假別_cb.Text = "" Then : MGB(系統語言字典("H614-101-" & 語言), 1) : Else
            Dim 天數 As Integer = (結束日期_dtp.Value - 開始日期_dtp.Value).Days + 1 : PA17 = 假別1_cb.Text : PA2 = "請假申請通過" & vbCrLf & "Permohonan Cuti Disetujui"
            Dim Date1 As Date = 開始日期_dtp.Value : PA1 = ID卡號_tb.Text : BL1 = False : PA18 = "" : PA4 = 申請人_rtb.Text : PA3 = "Lulus secara otomatis" : PA4 = PA3
            For I As Integer = 1 To 天數
                PA15 = Strings.Format(Date1, "yyyy/MM/dd") : SQL_考勤查詢1()
                If dr.Read Then : SQL_人事考勤明細表修改() : Else : SQL_人事考勤明細表新增() : End If : Date1 = Date1.AddDays(1)
            Next
            PA1 = 聯絡函單號_rtb.Text : Set_日期格式轉換() : SQL_部門聯絡函部門主管審核_接收確認() : SQL_人員外出明細_外發審核(聯絡函單號_rtb.Text)
            '---LINE_AUTO 訊息通知------------------------------------------------------------------------------------------------------------------------------------------
            If 登入人IP = 測試IP Then : Else
                LIN訊息通知("CC249", "李協叡", gUserName, "請假生效") : LIN訊息通知("CC249", PA4, gUserName, "請假生效")
            End If : Set_請假單() : MGB(系統語言字典("H614-102-" & 語言), 1)
            聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = ""
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 作廢_bt_Click(sender As Object, e As EventArgs) Handles 作廢_bt.Click
        If 聯絡函單號_rtb.Text = "" Then : MGB(系統語言字典("H906-110-" & 語言), 1) : Else
            Set_日期格式轉換() : PA1 = 聯絡函單號_rtb.Text : PA2 = "請假申請作廢" & vbCrLf & "Pembatalan Permohonan Cuti" : PA4 = 申請人_rtb.Text
            SQL_部門聯絡函部門主管審核_無法執行() : conn.Close()
            '---LINE_AUTO 訊息通知------------------------------------------------------------------------------------------------------------------------------------------
            If 登入人IP = 測試IP Then : Else
                LIN訊息通知("CC249", "李協叡", gUserName, "請假取消") : LIN訊息通知("CC249", PA4, gUserName, "請假取消")
            End If : Set_請假單() : MGB(系統語言字典("G000-219-" & 語言), 1)
            聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = ""
        End If
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            重讀2_bt.BackColor = Color.White

            聯絡函單號_lb.ForeColor = Color.Black : 申請部門_lb.ForeColor = Color.Black : 聯絡事項_lb.ForeColor = Color.Black
            聯絡函主題_lb.ForeColor = Color.Black : 申請日期_lb.ForeColor = Color.Black : 申請人_lb.ForeColor = Color.Black

            聯絡函主題_tb.BackColor = Color.White : 聯絡函主題_tb.ForeColor = Color.Black : 聯絡事項_tb.BackColor = Color.White : 聯絡事項_tb.ForeColor = Color.Black
            假別_cb.BackColor = Color.White : 假別_cb.ForeColor = Color.Black

            請假單_dgv.EnableHeadersVisualStyles = True : 請假單_dgv.BackgroundColor = Color.White : 請假單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            請假單_dgv.DefaultCellStyle.BackColor = Color.White : 請假單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            重讀2_bt.BackColor = Color.DimGray

            聯絡函單號_lb.ForeColor = Color.White : 申請部門_lb.ForeColor = Color.White : 聯絡事項_lb.ForeColor = Color.White
            聯絡函主題_lb.ForeColor = Color.White : 申請日期_lb.ForeColor = Color.White : 申請人_lb.ForeColor = Color.White

            聯絡函主題_tb.BackColor = Color.Black : 聯絡函主題_tb.ForeColor = Color.White : 聯絡事項_tb.BackColor = Color.Black : 聯絡事項_tb.ForeColor = Color.White
            假別_cb.BackColor = Color.Black : 假別_cb.ForeColor = Color.White

            請假單_dgv.EnableHeadersVisualStyles = False : 請假單_dgv.BackgroundColor = Color.DimGray : 請假單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            請假單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            請假單_dgv.DefaultCellStyle.BackColor = Color.Black : 請假單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub

End Class