HX-PGS-ERP-SYS-LEEHSIEHJUI/06、業務管理系統/業務報表/合約利潤預估表.vb

Public Class 合約利潤預估表
    Private Sub Set_合約清單()
        Dim ds6 As New DataSet
        Dim 工資成本, 工資利潤, 材料成本, 材料利潤, 預估利潤, 總折讓 As Double
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 40 : 合約_dgv.AllowUserToAddRows = False
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text
        SQL_合約清單_預估利潤()

        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        Set_進度條顯示4() : Set_進度條顯示3() : Set_進度條顯示2() : Set_進度條顯示1()
        合約_dgv.Columns(0).FillWeight = 120 : 合約_dgv.Columns(1).FillWeight = 250 : 合約_dgv.Columns(2).FillWeight = 250
        合約_dgv.Columns(表頭(1)).FillWeight = 110 : 合約_dgv.Columns(表頭(2)).FillWeight = 110
        合約_dgv.Columns(表頭(4)).FillWeight = 110 : 合約_dgv.Columns(表頭(5)).FillWeight = 110
        If 系統語言 = "繁體中文" Then : 合約_dgv.Columns("Nama Proyek").Visible = False : 合約_dgv.Columns("工程名稱").Visible = True
        Else : 合約_dgv.Columns("Nama Proyek").Visible = True : 合約_dgv.Columns("工程名稱").Visible = False : End If

        合約_dgv.Columns(表頭(3)).Visible = False : 合約_dgv.Columns(表頭(6)).Visible = False
        合約_dgv.Columns("利潤比1").Visible = False : 合約_dgv.Columns("利潤比2").Visible = False
        合約_dgv.Columns("幣別").Visible = False : 合約_dgv.Columns("中心匯率").Visible = False
        合約_dgv.Columns("美金匯率").Visible = False : 合約_dgv.Columns("印尼匯率").Visible = False

        合約_dgv.Columns(表頭(1)).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(表頭(2)).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(表頭(4)).DefaultCellStyle.Format = "#,##0"
        合約_dgv.Columns(表頭(5)).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(表頭(7)).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(表頭(8)).DefaultCellStyle.Format = "#,##0"
        合約_dgv.Columns(表頭(9)).DefaultCellStyle.Format = "#,##0"

        合約_dgv.Columns(表頭(1)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(2)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(4)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(5)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(7)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(8)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(9)).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        合約_dgv.Columns(表頭(1)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(2)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(4)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(5)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(7)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 合約_dgv.Columns(表頭(8)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        合約_dgv.Columns(表頭(9)).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        工資成本 = 0 : 材料成本 = 0 : 工資利潤 = 0 : 材料利潤 = 0 : 預估利潤 = 0
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If 印尼盾_ch.Checked = True Then
                If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then
                    '-----不需要轉換--------------------------------------------------
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                End If
            ElseIf 台幣_ch.Checked = True Then
                If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString)
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then
                    '-----不需要轉換--------------------------------------------------
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                End If
            ElseIf 人民幣_ch.Checked = True Then
                If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then
                    '-----不需要轉換--------------------------------------------------
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                End If
            ElseIf 美金_ch.Checked = True Then
                If 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "印尼盾" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("印尼匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "台幣" Then
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "人民幣" Then
                    Dim 匯率A As Double = CDbl(合約_dgv.Rows(i).Cells("中心匯率").Value.ToString) / CDbl(合約_dgv.Rows(i).Cells("美金匯率").Value.ToString)
                    合約_dgv.Rows(i).Cells(表頭(1)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(2)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(4)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(5)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(7)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(7)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(8)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(8)).Value.ToString) * 匯率A
                    合約_dgv.Rows(i).Cells(表頭(9)).Value = CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value.ToString) * 匯率A
                ElseIf 合約_dgv.Rows(i).Cells("幣別").Value.ToString = "美金" Then
                    '-----不需要轉換--------------------------------------------------
                End If
            End If

            If 合約_dgv.Rows(i).Cells(表頭(9)).Value < 0 Then
                If 深色風格 = False Then
                    合約_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
                Else
                    合約_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkRed
                End If

            End If
            工資成本 += CLng(合約_dgv.Rows(i).Cells(表頭(1)).Value) : 材料成本 += CLng(合約_dgv.Rows(i).Cells(表頭(4)).Value) : 工資利潤 += CLng(合約_dgv.Rows(i).Cells(表頭(2)).Value)
            材料利潤 += CLng(合約_dgv.Rows(i).Cells(表頭(5)).Value) : 預估利潤 += CLng(合約_dgv.Rows(i).Cells(表頭(9)).Value)
        Next

        預估工資總成本_tb.Text = Strings.Format(工資成本, "#,##0") : 預估材料總成本_tb.Text = Strings.Format(材料成本, "#,##0") : 預估工資總報價_tb.Text = Strings.Format(工資利潤, "#,##0")
        預估材料總報價_tb.Text = Strings.Format(材料利潤, "#,##0") : 預估利潤_tb.Text = Strings.Format(預估利潤, "#,##0") : 總報價_tb.Text = Strings.Format(工資利潤 + 材料利潤, "#,##0")
        總成本_tb.Text = Strings.Format(工資成本 + 材料成本, "#,##0") : 累計折讓_tb.Text = Strings.Format(預估利潤 - ((工資利潤 + 材料利潤) - (工資成本 + 材料成本)), "#,##0")
        總折讓 = 預估利潤 - ((工資利潤 + 材料利潤) - (工資成本 + 材料成本))
        If 工資利潤 = 0 Then : 利潤比1_tb.Text = "0 %" : Else : 利潤比1_tb.Text = Strings.Format((1 - ((工資成本) / (工資利潤))) * 100, "#,##0") & " %" : End If
        If 材料利潤 = 0 Then : 利潤比2_tb.Text = "0 %" : Else : 利潤比2_tb.Text = Strings.Format((1 - ((材料成本) / (材料利潤))) * 100, "#,##0") & " %" : End If
        If (材料利潤 + 工資利潤) = 0 Then : 利潤比3_tb.Text = "0 %" : Else : 利潤比3_tb.Text = Strings.Format((1 - ((材料成本 + 工資成本) / (材料利潤 + 工資利潤))) * 100, "#,##0") & " %" : End If
        If (材料利潤 + 工資利潤) = 0 Then : 利潤比4_tb.Text = "0 %" : Else : 利潤比4_tb.Text = Strings.Format((1 - ((材料成本 + 工資成本) / (材料利潤 + 工資利潤 + 總折讓))) * 100, "#,##0") & " %"
        End If
    End Sub
    Private Sub Set_進度條顯示1()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 55,
            .DataPropertyName = "利潤比"
        }
        Col.HeaderText = 表頭(10) : Col.Name = "容量" : Col.DataPropertyName = 表頭(3) : 合約_dgv.Columns.Insert(5, Col)
    End Sub
    Private Sub Set_進度條顯示2()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 55,
            .DataPropertyName = "利潤比"
        }
        Col.HeaderText = 表頭(11) : Col.Name = "容量" : Col.DataPropertyName = 表頭(6) : 合約_dgv.Columns.Insert(8, Col)
    End Sub
    Private Sub Set_進度條顯示3()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 55,
            .DataPropertyName = "利潤比"
        }
        Col.HeaderText = 表頭(12) : Col.Name = "容量" : Col.DataPropertyName = "利潤比1" : 合約_dgv.Columns.Insert(11, Col)
    End Sub
    Private Sub Set_進度條顯示4()
        Dim Col As New DataGridViewProgressColumn With {
            .FillWeight = 55,
            .DataPropertyName = "利潤比"
        }
        Col.HeaderText = 表頭(13) : Col.Name = "容量" : Col.DataPropertyName = "利潤比2" : 合約_dgv.Columns.Insert(13, Col)
    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 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-121-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        搜尋_lb.Text = 系統語言字典("H110-117-" & 語言) : 甲方_lb.Text = 系統語言字典("H110-118-" & 語言)
        美金_ch.Text = 系統語言字典("H105-100-" & 語言) : 台幣_ch.Text = 系統語言字典("H105-101-" & 語言) : 人民幣_ch.Text = 系統語言字典("H105-102-" & 語言)
        印尼盾_ch.Text = 系統語言字典("H105-103-" & 語言) : 工資總成本_lb.Text = 系統語言字典("H105-104-" & 語言) : 材料總成本_lb.Text = 系統語言字典("H105-105-" & 語言)
        工資總報價_lb.Text = 系統語言字典("H105-106-" & 語言) : 材料總報價_lb.Text = 系統語言字典("H105-107-" & 語言)
        利潤比1_lb.Text = 系統語言字典("H105-108-" & 語言) : 利潤比2_lb.Text = 系統語言字典("H105-108-" & 語言)
        累計成本_lb.Text = 系統語言字典("H105-109-" & 語言) : 累計折讓_lb.Text = 系統語言字典("H105-110-" & 語言) : 累計報價_lb.Text = 系統語言字典("H105-111-" & 語言)
        預估利潤_lb.Text = 系統語言字典("H105-112-" & 語言) : 含折讓_lb.Text = 系統語言字典("H105-113-" & 語言) : 不含折讓_lb.Text = 系統語言字典("H105-114-" & 語言)
        表頭(0) = 系統語言字典("H501-152-" & 語言) : 表頭(1) = 系統語言字典("H105-115-" & 語言) : 表頭(2) = 系統語言字典("H105-116-" & 語言)
        表頭(3) = 系統語言字典("H105-117-" & 語言) : 表頭(4) = 系統語言字典("H105-118-" & 語言) : 表頭(5) = 系統語言字典("H105-119-" & 語言)
        表頭(6) = 系統語言字典("H105-120-" & 語言) : 表頭(7) = 系統語言字典("H105-121-" & 語言) : 表頭(8) = 系統語言字典("H105-122-" & 語言)
        表頭(9) = 系統語言字典("H105-123-" & 語言) : 表頭(10) = 系統語言字典("H105-124-" & 語言) : 表頭(11) = 系統語言字典("H105-125-" & 語言)
        表頭(12) = 系統語言字典("H105-126-" & 語言) : 表頭(13) = 系統語言字典("H105-127-" & 語言)
    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 合約利潤預估表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(105) = True : 介面 = "H105" : 語言轉換讀取() : Panel1.SendToBack() : 顯示說明(999, False)
        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        預估工資總成本_tb.Text = "0" : 預估材料總成本_tb.Text = "0" : 預估工資總報價_tb.Text = "0" : 預估材料總報價_tb.Text = "0" : 預估利潤_tb.Text = "0"
        總成本_tb.Text = "0" : 總報價_tb.Text = "0" : 利潤比1_tb.Text = "0 %" : 利潤比2_tb.Text = "0 %" : 利潤比3_tb.Text = "0 %" : 利潤比4_tb.Text = "0 %"
    End Sub
    Private Sub 合約利潤預估表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方條件下拉清單讀取() : Set_合約清單()
    End Sub
    Private Sub 工程日報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(105) = 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 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H105" : 語言轉換讀取() : Set_合約清單()
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單()
    End Sub
    Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
        CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 美金_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 美金_ch.Click
        美金_ch.Checked = True : 人民幣_ch.Checked = False : 台幣_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 : 印尼盾_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 : 印尼盾_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 = False : 印尼盾_ch.Checked = True : Set_合約清單()
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control

            搜尋_lb.ForeColor = Color.Black : 美金_ch.ForeColor = Color.Black : 人民幣_ch.ForeColor = Color.Black : 台幣_ch.ForeColor = Color.Black
            印尼盾_ch.ForeColor = Color.Black
            工資總成本_lb.ForeColor = Color.Red : 材料總成本_lb.ForeColor = Color.Red : 累計成本_lb.ForeColor = Color.Red : 累計折讓_lb.ForeColor = Color.Red
            工資總報價_lb.ForeColor = Color.Green : 材料總報價_lb.ForeColor = Color.Green : 累計報價_lb.ForeColor = Color.Green
            甲方_lb.ForeColor = Color.Blue : 利潤比1_lb.ForeColor = Color.Blue : 利潤比2_lb.ForeColor = Color.Blue : 預估利潤_lb.ForeColor = Color.Blue
            不含折讓_lb.ForeColor = Color.Blue : 含折讓_lb.ForeColor = Color.Blue

            關鍵字搜尋_tb.BackColor = Color.White : 預估工資總成本_tb.ForeColor = Color.Black : 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.FromArgb(0, 0, 192)
            預估工資總成本_tb.BackColor = Color.White : 預估工資總成本_tb.ForeColor = Color.Black : 預估材料總成本_tb.BackColor = Color.White : 預估材料總成本_tb.ForeColor = Color.Black
            預估工資總報價_tb.BackColor = Color.White : 預估工資總報價_tb.ForeColor = Color.Black : 預估材料總報價_tb.BackColor = Color.White : 預估材料總報價_tb.ForeColor = Color.Black
            利潤比1_tb.BackColor = Color.White : 利潤比1_tb.ForeColor = Color.Black : 利潤比2_tb.BackColor = Color.White : 利潤比2_tb.ForeColor = Color.Black
            總成本_tb.BackColor = Color.White : 總成本_tb.ForeColor = Color.Black : 累計折讓_tb.BackColor = Color.White : 累計折讓_tb.ForeColor = Color.Black
            總報價_tb.BackColor = Color.White : 總報價_tb.ForeColor = Color.Black : 預估利潤_tb.BackColor = Color.White : 預估利潤_tb.ForeColor = Color.Black
            利潤比3_tb.BackColor = Color.White : 利潤比3_tb.ForeColor = Color.Black : 利潤比4_tb.BackColor = Color.White : 利潤比4_tb.ForeColor = Color.Black
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black

            查詢_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.White : 美金_ch.ForeColor = Color.White : 人民幣_ch.ForeColor = Color.White : 台幣_ch.ForeColor = Color.White
            印尼盾_ch.ForeColor = Color.White
            工資總成本_lb.ForeColor = Color.LightPink : 材料總成本_lb.ForeColor = Color.LightPink : 累計成本_lb.ForeColor = Color.LightPink : 累計折讓_lb.ForeColor = Color.LightPink
            工資總報價_lb.ForeColor = Color.LightGreen : 材料總報價_lb.ForeColor = Color.LightGreen : 累計報價_lb.ForeColor = Color.LightGreen
            甲方_lb.ForeColor = Color.LightBlue : 利潤比1_lb.ForeColor = Color.LightBlue : 利潤比2_lb.ForeColor = Color.LightBlue : 預估利潤_lb.ForeColor = Color.LightBlue
            不含折讓_lb.ForeColor = Color.LightBlue : 含折讓_lb.ForeColor = Color.LightBlue

            關鍵字搜尋_tb.BackColor = Color.DimGray : 預估工資總成本_tb.ForeColor = Color.White : 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.LightBlue
            預估工資總成本_tb.BackColor = Color.DimGray : 預估工資總成本_tb.ForeColor = Color.White : 預估材料總成本_tb.BackColor = Color.DimGray : 預估材料總成本_tb.ForeColor = Color.White
            預估工資總報價_tb.BackColor = Color.DimGray : 預估工資總報價_tb.ForeColor = Color.White : 預估材料總報價_tb.BackColor = Color.DimGray : 預估材料總報價_tb.ForeColor = Color.White
            利潤比1_tb.BackColor = Color.DimGray : 利潤比1_tb.ForeColor = Color.White : 利潤比2_tb.BackColor = Color.DimGray : 利潤比2_tb.ForeColor = Color.White
            總成本_tb.BackColor = Color.DimGray : 總成本_tb.ForeColor = Color.White : 累計折讓_tb.BackColor = Color.DimGray : 累計折讓_tb.ForeColor = Color.White
            總報價_tb.BackColor = Color.DimGray : 總報價_tb.ForeColor = Color.White : 預估利潤_tb.BackColor = Color.DimGray : 預估利潤_tb.ForeColor = Color.White
            利潤比3_tb.BackColor = Color.DimGray : 利潤比3_tb.ForeColor = Color.White : 利潤比4_tb.BackColor = Color.DimGray : 利潤比4_tb.ForeColor = Color.White
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White

            查詢_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