GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/06、業務管理系統/合約請款控制表.vb

Public Class 合約請款控制表
    ReadOnly ds8 As New DataSet
    Dim 簽回檔 As Boolean
    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 合約控制表.剩餘款 <> 0 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 合約控制表.剩餘款 = 0 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
        請款單_dgv.Columns(表頭(27)).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(表頭(180)).DefaultCellStyle.Format = "#,##0"
        請款單_dgv.Columns(表頭(181)).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(表頭(182)).DefaultCellStyle.Format = "#,##0"
        請款單_dgv.Columns(表頭(183)).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(表頭(184)).DefaultCellStyle.Format = "#,##0"
        請款單_dgv.Columns(表頭(185)).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(表頭(186)).DefaultCellStyle.Format = "#,##0"
        請款單_dgv.Columns(表頭(187)).DefaultCellStyle.Format = "#,##0" : 請款單_dgv.Columns(表頭(188)).DefaultCellStyle.Format = "#,##0"
        請款單_dgv.Columns(表頭(27)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(180)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(181)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(182)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(183)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(184)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(185)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(186)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(187)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        請款單_dgv.Columns(表頭(188)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        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("簽回", i).Value) = True Then : 請款單_dgv("簽回", i).Value = False : End If
            If 請款單_dgv.Rows(i).Cells(表頭(184)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(184)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(185)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(185)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(186)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(186)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(187)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(187)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(188)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(188)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(180)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(180)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(182)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(182)).Value = "0" : End If
            If 請款單_dgv.Rows(i).Cells(表頭(183)).Value.ToString = "" Then : 請款單_dgv.Rows(i).Cells(表頭(183)).Value = "0" : End If
            請款單_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
            End If
            ANUD1.Value += 請款單_dgv.Rows(i).Cells(表頭(27)).Value : ANUD2.Value += 請款單_dgv.Rows(i).Cells(表頭(180)).Value
            ANUD3.Value += 請款單_dgv.Rows(i).Cells(表頭(181)).Value : ANUD4.Value += 請款單_dgv.Rows(i).Cells(表頭(182)).Value
            ANUD5.Value += 請款單_dgv.Rows(i).Cells(表頭(183)).Value : ANUD6.Value += 請款單_dgv.Rows(i).Cells(表頭(184)).Value
            ANUD7.Value += 請款單_dgv.Rows(i).Cells(表頭(185)).Value : ANUD8.Value += 請款單_dgv.Rows(i).Cells(表頭(186)).Value
            ANUD9.Value += 請款單_dgv.Rows(i).Cells(表頭(187)).Value : ANUD10.Value += 請款單_dgv.Rows(i).Cells(表頭(188)).Value
        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 Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "合約請款控制表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "甲方_lb" Then : 甲方_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "搜尋_lb" Then : 搜尋_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部資料_ch" Then : 全部資料_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "請款未結束_ch" Then : 請款未結束_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "請款已結束_ch" Then : 請款已結束_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程期數_lb" Then : 工程期數_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程總價_lb" Then : 工程總價_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "追加減_lb" Then : 追加減_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "結算金額_lb" Then : 結算金額_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已請款_lb" Then : 已請款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "剩餘款_lb" Then : 剩餘款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "預付款_lb" Then : 預付款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "到貨款_lb" Then : 到貨款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "施工款_lb" Then : 施工款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "驗收款_lb" Then : 驗收款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "保留款_lb" Then : 保留款_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_合約號" Then : 表頭(134) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_工程" Then : 表頭(151) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_工程總價" Then : 表頭(27) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_追加減" Then : 表頭(180) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_結算金額" Then : 表頭(181) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_已請款" Then : 表頭(182) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_剩餘款" Then : 表頭(183) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_預付款" Then : 表頭(184) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_到貨款" Then : 表頭(185) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_施工款" Then : 表頭(186) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_驗收款" Then : 表頭(187) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_保留款" Then : 表頭(188) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    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" : 語言轉換讀取()
        分母 = 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 : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H106" : 語言轉換讀取() : Set_請款清單()
    End Sub
    Private Sub 合約報價單_Siz()
        MyModule1.清單字體大小調整()
        請款單_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_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 : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Silakan pilih kontrak terlebih dahulu!!") : End If : Else
            If 簽回檔 = False Then : If 系統語言 = "繁體中文" Then : MsgBox("該合約還沒有建立報價簽回文件!!") : Else : MsgBox("Kontrak belum menetapkan dokumen tanda balik kutipan!!") : End If : 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
End Class