HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/請款系統/合約請款控制表.vb

Public Class 合約請款控制表
    Dim 簽回檔 As Boolean : Dim 對話框(1) As String
    Private Sub Set_請款清單()
        Dim ds2 As New DataSet
        請款單_dgv.DataSource = Nothing : ds2.Clear()
        請款單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        請款單_dgv.ColumnHeadersHeight = 25 : 請款單_dgv.AllowUserToAddRows = False
        PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        If 全部資料_ch.Checked = True And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 
                          合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 合約控制表.負責人A LIKE N'%" & PA & "%' OR 合約控制表.工程地點 LIKE N'%" & PA & "%' OR 
                          合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 合約控制表.工程名稱_中 LIKE N'%" & PA & "%' OR 
                          合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL) AND (報價放行 = 1) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = True And 請款已結束_ch.Checked = False Then
            SQL2 = "WHERE (合約控制表.剩餘款 > 1000 OR 合約控制表.剩餘款 IS NULL) AND 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND 
                         (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 合約控制表.負責人A LIKE N'%" & PA & "%' OR 
                          合約控制表.工程地點 LIKE N'%" & PA & "%' OR 合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 合約控制表.工程名稱_中 LIKE N'%" & PA & "%' OR 
                          合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL) AND (報價放行 = 1) "
        ElseIf 全部資料_ch.Checked = False And 請款未結束_ch.Checked = False And 請款已結束_ch.Checked = True Then
            SQL2 = "WHERE 合約控制表.剩餘款 <= 1000 AND 合約控制表.約號甲方 Like N'%" & PA46 & "%' AND 合約控制表.合約期數 LIKE N'%" & PA47 & "%' AND 
                         (合約控制表.合約編號 LIKE N'%" & PA & "%' OR 合約控制表.客戶名稱 LIKE N'%" & PA & "%' OR 合約控制表.負責人A LIKE N'%" & PA & "%' OR 
                          合約控制表.工程地點 LIKE N'%" & PA & "%' OR 合約控制表.客戶地址 LIKE N'%" & PA & "%' OR 合約控制表.工程名稱_中 LIKE N'%" & PA & "%' OR 
                          合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND (合約控制表.合約停止 = 0 OR 合約控制表.合約停止 IS NULL) AND (報價放行 = 1) "
        End If
        If 系統語言 = "繁體中文" Then : SQL3 = "工程名稱_中" : Else : SQL3 = "工程名稱_英" : End If
        SQL_合約請款控制表查詢()
        da.Fill(ds2) : 請款單_dgv.DataSource = ds2.Tables(0) : conn.Close()
        Set_進度條顯示2() : Set_進度條顯示1()
        請款單_dgv.Columns(0).FillWeight = 120 : 請款單_dgv.Columns(1).FillWeight = 300 : 請款單_dgv.Columns("比例1").Visible = False : 請款單_dgv.Columns("比例2").Visible = False
        請款單_dgv.Columns("簽回").FillWeight = 40 : 請款單_dgv.Columns("簽回檔圖庫").Visible = False
        Dim formatColumns() As Integer = {27, 180, 181, 182, 183, 184, 185, 186, 187, 188}
        For Each colIndex As Integer In formatColumns
            請款單_dgv.Columns(表頭(colIndex)).DefaultCellStyle.Format = "#,##0"
            請款單_dgv.Columns(表頭(colIndex)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Next

        ANUD1.Value = 0 : ANUD2.Value = 0 : ANUD3.Value = 0 : ANUD4.Value = 0 : ANUD5.Value = 0 : ANUD6.Value = 0 : ANUD7.Value = 0 : ANUD8.Value = 0 : ANUD9.Value = 0 : ANUD10.Value = 0
        For i As Integer = 0 To 請款單_dgv.Rows.Count - 1
            If IsDBNull(請款單_dgv(表頭(183), i).Value) = True Then : 請款單_dgv(表頭(183), i).Value = 請款單_dgv(表頭(27), i).Value : End If
            If IsDBNull(請款單_dgv("簽回", i).Value) = True Then : 請款單_dgv("簽回", i).Value = False : End If
            Dim checkEmptyColumns() As Integer = {184, 185, 186, 187, 188, 180, 182, 183}
            For Each colIndex As Integer In checkEmptyColumns
                If 請款單_dgv.Rows(i).Cells(表頭(colIndex)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(colIndex)).Value = "0" : End If
            Next

            請款單_dgv.Rows(i).Cells(表頭(181)).Value = 請款單_dgv.Rows(i).Cells(表頭(27)).Value + 請款單_dgv.Rows(i).Cells(表頭(180)).Value
            請款單_dgv.Rows(i).Cells(表頭(183)).Value = 請款單_dgv.Rows(i).Cells(表頭(181)).Value - 請款單_dgv.Rows(i).Cells(表頭(182)).Value
            If 請款單_dgv.Rows(i).Cells(表頭(183)).Value < 0 Then : 請款單_dgv.Rows(i).Cells(表頭(183)).Value = 0 : End If
            If 請款單_dgv.Rows(i).Cells(表頭(181)).Value = 0 Then
                請款單_dgv.Rows(i).Cells("比例1").Value = 0 : 請款單_dgv.Rows(i).Cells("比例2").Value = 0
            Else
                請款單_dgv.Rows(i).Cells("比例1").Value = 請款單_dgv.Rows(i).Cells(表頭(182)).Value / 請款單_dgv.Rows(i).Cells(表頭(181)).Value * 100
                請款單_dgv.Rows(i).Cells("比例2").Value = 請款單_dgv.Rows(i).Cells(表頭(183)).Value / 請款單_dgv.Rows(i).Cells(表頭(181)).Value * 100
                If 請款單_dgv.Rows(i).Cells("比例1").Value > 100 Then : 請款單_dgv.Rows(i).Cells("比例1").Value = 100 : End If
                If 請款單_dgv.Rows(i).Cells("比例2").Value > 100 Then : 請款單_dgv.Rows(i).Cells("比例2").Value = 100 : End If
            End If
            Dim ANUDValues() As Integer = {27, 180, 181, 182, 183, 184, 185, 186, 187, 188}
            Dim ANUDControls() As NumericUpDown = {ANUD1, ANUD2, ANUD3, ANUD4, ANUD5, ANUD6, ANUD7, ANUD8, ANUD9, ANUD10}
            For j As Integer = 0 To ANUDValues.Length - 1
                ANUDControls(j).Value += 請款單_dgv.Rows(i).Cells(表頭(ANUDValues(j))).Value
            Next
        Next
        請款單_dgv.Sort(請款單_dgv.Columns("比例2"), System.ComponentModel.ListSortDirection.Descending)
    End Sub
    Private Sub Set_進度條顯示1()
        Dim Col As New DataGridViewProgressColumn With {
            .Width = 30,
            .DataPropertyName = "請款比例"
        }
        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1"
        請款單_dgv.Columns.Insert(7, Col)
    End Sub
    Private Sub Set_進度條顯示2()
        Dim Col As New DataGridViewProgressColumn With {
            .Width = 30,
            .DataPropertyName = "請款比例"
        }
        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例2"
        請款單_dgv.Columns.Insert(9, Col)
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-130-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        表頭(151) = 系統語言字典("H101-100-" & 語言) : 表頭(27) = 系統語言字典("H310-104-" & 語言) : 表頭(182) = 系統語言字典("H310-105-" & 語言)
        表頭(134) = 系統語言字典("H501-152-" & 語言) : 表頭(185) = 系統語言字典("H114-114-" & 語言) : 表頭(188) = 系統語言字典("H114-117-" & 語言)
        表頭(186) = 系統語言字典("H114-115-" & 語言) : 表頭(180) = 系統語言字典("H114-129-" & 語言) : 表頭(183) = 系統語言字典("H114-127-" & 語言)
        表頭(181) = 系統語言字典("H114-130-" & 語言) : 表頭(184) = 系統語言字典("H114-113-" & 語言) : 表頭(187) = 系統語言字典("H114-116-" & 語言)
        工程期數_lb.Text = 系統語言字典("H114-100-" & 語言) : 工程總價_lb.Text = 系統語言字典("H106-100-" & 語言) : 已請款_lb.Text = 系統語言字典("H106-101-" & 語言)
        甲方_lb.Text = 系統語言字典("H110-118-" & 語言) : 全部資料_ch.Text = 系統語言字典("H110-114-" & 語言) : 到貨款_lb.Text = 系統語言字典("H106-102-" & 語言)
        保留款_lb.Text = 系統語言字典("H106-103-" & 語言) : 施工款_lb.Text = 系統語言字典("H106-104-" & 語言) : 追加減_lb.Text = 系統語言字典("H106-105-" & 語言)
        剩餘款_lb.Text = 系統語言字典("H106-106-" & 語言) : 結算金額_lb.Text = 系統語言字典("H106-107-" & 語言) : 搜尋_lb.Text = 系統語言字典("H110-117-" & 語言)
        預付款_lb.Text = 系統語言字典("H106-108-" & 語言) : 驗收款_lb.Text = 系統語言字典("H106-109-" & 語言) : 請款未結束_ch.Text = 系統語言字典("H114-101-" & 語言)
        請款已結束_ch.Text = 系統語言字典("H114-102-" & 語言) : 對話框(1) = 系統語言字典("H110-111-" & 語言) : 對話框(0) = 系統語言字典("H106-111-" & 語言)
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-113-" & 語言))
    End Sub
    Private Sub 查閱文件_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查閱文件_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查閱文件_bt, 系統語言字典("H110-113-" & 語言))
    End Sub
    Private Sub 請款狀態_bt_MouseEnter(sender As Object, e As EventArgs) Handles 請款狀態_bt.MouseEnter
        ToolTip1.SetToolTip(Me.請款狀態_bt, 系統語言字典("H106-110-" & 語言))
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    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(106) = True : 介面 = "H106" : 語言轉換讀取() : 顯示說明(999, True)
        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"

        甲方條件下拉清單讀取() : Set_請款清單() : 合約報價單_Siz()
    End Sub
    Private Sub 合約請款控制表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(106) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H106" : 語言轉換讀取() : Set_請款清單()
    End Sub
    Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
        介面 = "H106" : WEB說明頁面.Show()
    End Sub
    Private Sub 合約報價單_Siz()
        MyMod.清單字體大小調整()
        請款單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    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
            合約編號_tb.Text = 請款單_dgv(表頭(134), e.RowIndex).Value.ToString
            圖片庫 = 請款單_dgv("簽回檔圖庫", e.RowIndex).Value.ToString : 簽回檔 = 請款單_dgv("簽回", e.RowIndex).Value
        End If
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        Dim 原來的 As String = ""
        For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
        For I As Integer = 0 To 合約編號1_cb.Items.Count - 1 : PPBB(I) = 合約編號1_cb.Items(I).ToString : NN1 = I : Next
        下拉清單_2.ShowDialog()
        If PPAA = "" Then : 合約編號1_cb.Text = 原來的
        Else : 合約編號1_cb.Text = PPAA : End If
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_請款清單()
    End Sub
    Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged
        Set_請款清單()
    End Sub
    Private Sub 查閱文件_bt_Click(sender As Object, e As EventArgs) Handles 查閱文件_bt.Click
        If 合約編號_tb.Text = "" Then : MGB(對話框(1), 1) : Else
            If 簽回檔 = False Then : MGB(對話框(0), 1) : Else : PA1 = 合約編號_tb.Text : PA2 = "請款" : 文件查閱視窗.ShowDialog() : End If
        End If
    End Sub
    Private Sub 全部資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部資料_ch.Click
        全部資料_ch.Checked = True : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = False : Set_請款清單()
    End Sub
    Private Sub 請款未結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款未結束_ch.Click
        全部資料_ch.Checked = False : 請款未結束_ch.Checked = True : 請款已結束_ch.Checked = False : Set_請款清單()
    End Sub
    Private Sub 請款已結束_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款已結束_ch.Click
        全部資料_ch.Checked = False : 請款未結束_ch.Checked = False : 請款已結束_ch.Checked = True : Set_請款清單()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_請款清單()
    End Sub
    Private Sub 請款狀態_bt_Click(sender As Object, e As EventArgs) Handles 請款狀態_bt.Click
        PA41 = 合約編號1_cb.Text : 跨部門開啟 = True : 收款確認表.Show()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------藍-------------------------------------------
            搜尋_lb.ForeColor = Color.Black : 甲方_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 : ANUD1.BackColor = Color.White : ANUD1.ForeColor = Color.Black
            ANUD2.BackColor = Color.White : ANUD2.ForeColor = Color.Black : ANUD3.BackColor = Color.White : ANUD3.ForeColor = Color.Black
            ANUD4.BackColor = Color.White : ANUD4.ForeColor = Color.Black : ANUD5.BackColor = Color.White : ANUD5.ForeColor = Color.Black
            合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Black
            '----------------綠-------------------------------------------
            全部資料_ch.ForeColor = Color.Green : 請款未結束_ch.ForeColor = Color.Green : 請款已結束_ch.ForeColor = Color.Green : 預付款_lb.ForeColor = Color.Green
            到貨款_lb.ForeColor = Color.Green : 施工款_lb.ForeColor = Color.Green : 驗收款_lb.ForeColor = Color.Green : 保留款_lb.ForeColor = Color.Green

            ANUD6.BackColor = Color.White : ANUD6.ForeColor = Color.Green : ANUD7.BackColor = Color.White : ANUD7.ForeColor = Color.Green
            ANUD8.BackColor = Color.White : ANUD8.ForeColor = Color.Green : ANUD9.BackColor = Color.White : ANUD9.ForeColor = Color.Green
            ANUD10.BackColor = Color.White : ANUD10.ForeColor = Color.Green

            系統說明_bt.BackColor = Color.White : 請款狀態_bt.BackColor = Color.White : 查閱文件_bt.BackColor = Color.White : 查詢_bt.BackColor = Color.White

            請款單_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
            '----------------藍-------------------------------------------
            搜尋_lb.ForeColor = Color.LightBlue : 甲方_lb.ForeColor = Color.LightBlue : 工程總價_lb.ForeColor = Color.LightBlue : 追加減_lb.ForeColor = Color.LightBlue
            結算金額_lb.ForeColor = Color.LightBlue : 已請款_lb.ForeColor = Color.LightBlue : 剩餘款_lb.ForeColor = Color.LightBlue

            關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.LightBlue : ANUD1.BackColor = Color.DimGray : ANUD1.ForeColor = Color.LightBlue
            ANUD2.BackColor = Color.DimGray : ANUD2.ForeColor = Color.LightBlue : ANUD3.BackColor = Color.DimGray : ANUD3.ForeColor = Color.LightBlue
            ANUD4.BackColor = Color.DimGray : ANUD4.ForeColor = Color.LightBlue : ANUD5.BackColor = Color.DimGray : ANUD5.ForeColor = Color.LightBlue
            合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue
            '----------------綠-------------------------------------------
            全部資料_ch.ForeColor = Color.LightGreen : 請款未結束_ch.ForeColor = Color.LightGreen : 請款已結束_ch.ForeColor = Color.LightGreen : 預付款_lb.ForeColor = Color.LightGreen
            到貨款_lb.ForeColor = Color.LightGreen : 施工款_lb.ForeColor = Color.LightGreen : 驗收款_lb.ForeColor = Color.LightGreen : 保留款_lb.ForeColor = Color.LightGreen

            ANUD6.BackColor = Color.DimGray : ANUD6.ForeColor = Color.LightGreen : ANUD7.BackColor = Color.DimGray : ANUD7.ForeColor = Color.LightGreen
            ANUD8.BackColor = Color.DimGray : ANUD8.ForeColor = Color.LightGreen : ANUD9.BackColor = Color.DimGray : ANUD9.ForeColor = Color.LightGreen
            ANUD10.BackColor = Color.DimGray : ANUD10.ForeColor = Color.LightGreen

            系統說明_bt.BackColor = Color.DimGray : 請款狀態_bt.BackColor = Color.DimGray : 查閱文件_bt.BackColor = Color.DimGray : 查詢_bt.BackColor = Color.DimGray

            請款單_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