GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/06、業務管理系統/合約保固書.vb

Option Strict Off
Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
Imports Microsoft.Office.Interop.Excel.Constants
Imports Microsoft.Office.Interop.Excel.XlBordersIndex
Imports Microsoft.Office.Interop.Excel.XlLineStyle
Imports Microsoft.Office.Interop.Excel.XlBorderWeight
Imports Microsoft.Office.Interop.Excel.XlThemeFont
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Imports Microsoft.Office.Interop.Excel.XlWindowState
Imports Microsoft.Office.Interop.Excel
Public Class 合約保固書
    ReadOnly ds6 As New DataSet
    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
    Dim 放大, 簽回檔 As Boolean
    Private Sub Set_合約清單()
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 40 : 合約_dgv.AllowUserToAddRows = False
        PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        SQL_合約清單_保固用()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False
        合約_dgv.Columns(4).Visible = False : 合約_dgv.Columns(5).Visible = False : 合約_dgv.Columns(6).Visible = False : 合約_dgv.Columns(7).Visible = False
        合約_dgv.Columns(8).Visible = False : 合約_dgv.Columns(9).Visible = False : 合約_dgv.Columns(10).Visible = False : 合約_dgv.Columns(11).Visible = False
        合約_dgv.Columns(12).Visible = False : 合約_dgv.Columns(13).Visible = False : 合約_dgv.Columns(14).Visible = False : 合約_dgv.Columns(15).Visible = False
        合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False
        合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False
        合約_dgv.Columns(24).Visible = False : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False
        合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns(29).FillWeight = 50 : 合約_dgv.Columns(30).Visible = False : 合約_dgv.Columns(31).Visible = False
        合約_dgv.Columns(32).FillWeight = 100 : 合約_dgv.Columns(33).FillWeight = 50 : 合約_dgv.Columns(34).Visible = False : 合約_dgv.Columns("工程名稱_中").FillWeight = 300
        合約_dgv.Columns("簽回").FillWeight = 40 : 合約_dgv.Columns("簽回檔圖庫").Visible = False
        合約_dgv.Columns(29).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        合約_dgv.Columns(33).DefaultCellStyle.Format = "#,##0" : 合約_dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1
            If IsDBNull(合約_dgv("簽回", i).Value) = True Then : 合約_dgv("簽回", i).Value = False : End If
        Next
        If 放大 = True Then
            合約_dgv.Columns("工程名稱_中").Visible = True
        Else
            合約_dgv.Columns("工程名稱_中").Visible = False
        End If
    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
        甲方條件下拉清單讀取() : Set_合約清單() : 合約報價單_Siz()
    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 合約報價單_Siz()
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 放大 = True Then : 縮放2_bt.PerformClick() : End If
            圖片庫 = 合約_dgv("簽回檔圖庫", e.RowIndex).Value.ToString : 簽回檔 = 合約_dgv("簽回", e.RowIndex).Value
            客戶名稱_tb.Text = 合約_dgv("客戶名稱", e.RowIndex).Value.ToString : 合約編號_tb.Text = 合約_dgv("合約編號", e.RowIndex).Value.ToString
            工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", e.RowIndex).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", e.RowIndex).Value.ToString
            保固_cb.Text = 合約_dgv("保固期限", e.RowIndex).Value.ToString : 驗收完成_dtp.Value = 合約_dgv("驗收完成日期", e.RowIndex).Value.ToString
            If 合約_dgv("保固地址", e.RowIndex).Value.ToString <> "" Then : 保固地址_tb.Text = 合約_dgv("保固地址", e.RowIndex).Value.ToString : Else
                保固地址_tb.Text = "Jl . kawasan Industri Terpadu Indonesia China (KITIC) Kav . 42 , Nagasari , Serang Baru , Kabupaten Bekasi 17330( I )"
            End If
        End If
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 工程期1_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工程期1_ch.SelectedIndexChanged
        PA = 關鍵字搜尋_tb.Text : 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("Tidak ada dokumen penandatanganan kutipan kontrak!!") : End If : Else
                PA1 = 合約編號_tb.Text : PA2 = "保固" : 文件查閱視窗.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 保固_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 保固_cb.SelectedIndexChanged
        保固1_cb.SelectedIndex = 保固_cb.SelectedIndex
        保固完成_dtp.Value = 驗收完成_dtp.Value.AddMonths(CInt(保固_cb.Text))
    End Sub
    Private Sub 驗收完成_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 驗收完成_dtp.ValueChanged
        保固完成_dtp.Value = 驗收完成_dtp.Value.AddMonths(CInt(保固_cb.Text))
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
        If 放大 = True Then
            合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False : 合約_dgv.Columns("工程名稱_中").Visible = False
        Else
            合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True : 合約_dgv.Columns("工程名稱_中").Visible = True
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        PA = 合約編號_tb.Text : PA1 = 保固_cb.Text : PA2 = 保固地址_tb.Text : SQL_控制表_保固修改()
        If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Arsip selesai!!") : End If : PA = "" : 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("Tidak ada kontrak yang dipilih, tidak dapat mencetak!!") : End If : Else
            PA = 合約編號_tb.Text : PA1 = 保固_cb.Text : PA2 = 保固地址_tb.Text : SQL_控制表_保固修改()
            '----------------------------------------------------------------------------------------------------------------------
            xlApp = CType(CreateObject("Excel.Application"), Application)
            xlApp.Visible = True
            xlApp.DisplayAlerts = True
            xlApp.Application.WindowState = xlMaximized
            xlBook = xlApp.Workbooks.Add
            '----------------------------------------------------------------------------------------------------------------------
            xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select : xlApp.Sheets(1).Name = "保固證書"
            xlBook.Activate() : xlSheet.Activate()

            Dim BF As String
            If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : BF = "PT HONG XHE INDUSTRIAL" : Else : BF = "PT PUNCAK GEMILANG SEMESTA" : End If
            xlSheet.Cells(2, 1) = "保 固 證 書" : xlSheet.Cells(3, 1) = "Warranty Certificate" : xlSheet.Cells(5, 1) = "工程名稱            : " & 工程名稱_中_tb.Text
            xlSheet.Cells(6, 1) = "Project Name  :  " & 工程名稱_英_tb.Text : xlSheet.Cells(8, 1) = "合約編號                 ：" & 合約編號_tb.Text
            xlSheet.Cells(9, 1) = "Contract Number : " & 合約編號_tb.Text : xlSheet.Cells(11, 1) = "保固期間                       ：自驗收合格日起保固 " & 保固_cb.Text & " 個月。"
            xlSheet.Cells(12, 1) = "Maintenance  Period : Warranty for " & 保固1_cb.Text & " months from the date of acceptance."
            xlSheet.Cells(13, 2) = "(從 " & Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") & " 到 " & Strings.Format(保固完成_dtp.Value, "yyyy/MM/dd") & ")"
            xlSheet.Cells(14, 2) = "(From " & Strings.Format(驗收完成_dtp.Value, "yyyy/MM/dd") & " To " & Strings.Format(保固完成_dtp.Value, "yyyy/MM/dd") & ")"
            xlSheet.Cells(16, 1) = "本公司保證於保固期間內，產品若有故障或狀況不良之情形，願負免費檢查並維修至完好狀態之責.惟屬天災，不可抗力或人為操作不當所造成之損壞，不在本公司保固範圍。"
            xlSheet.Cells(17, 1) = "We guarantee the warranty period, if the product is faulty or poor condition take a free inspection and repair to the intact state responsibility. Only a natural disaster, force majeure or man-made damage caused by improper operation, outside the scope of our warranty."
            xlSheet.Cells(19, 1) = "此致" : xlSheet.Cells(20, 1) = "Yours sincerely," : xlSheet.Cells(22, 1) = 客戶名稱_tb.Text : xlSheet.Cells(22, 3) = BF
            xlSheet.Cells(24, 1) = "負責人姓名：  (蓋章)" : xlSheet.Cells(24, 3) = "負責人姓名：  (蓋章)" : xlSheet.Cells(26, 1) = "Address ：" & 保固地址_tb.Text

            AA(xlApp, xlSheet)
            If Strings.Left(合約編號_tb.Text, 2) = "HX" Then : CC(xlApp, xlSheet) : Else : DD(xlApp, xlSheet) : End If : FF(xlApp, xlSheet)

            xlApp.Sheets(2).Delete
            xlSheet.PageSetup.PrintArea = ""
            xlApp.Cells.Select()
            xlApp.Application.WindowState = xlMinimized
            If 系統語言 = "繁體中文" Then : MsgBox("列印完成!!") : Else : MsgBox("Cetak selesai!!") : End If : PA = "" : Set_合約清單()
        End If
    End Sub
    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
        Return CType(xlBook.Worksheets.Add, Worksheet)
    End Function
    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        xlSheet.Cells.Select()
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Columns("A:C").Select : myExcel.Selection.ColumnWidth = 43
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 95
        xlSheet.Rows("2:3").Select
        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
        xlSheet.Rows("2:3").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Range("A2:C2").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        xlSheet.Range("A3:C3").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        myExcel.Selection.Font.Underline = xlUnderlineStyleSingle
        xlSheet.Rows("4:15").Select : myExcel.Selection.RowHeight = 25 : xlSheet.Rows("16:16").Select : myExcel.Selection.RowHeight = 50
        xlSheet.Range("A16:C16").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Rows("17:17").Select : myExcel.Selection.RowHeight = 60
        xlSheet.Range("A17:C17").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Rows("18:20").Select : myExcel.Selection.RowHeight = 25 : xlSheet.Rows("21:21").Select : myExcel.Selection.RowHeight = 50
        xlSheet.Rows("23:23").Select : myExcel.Selection.RowHeight = 180 : xlSheet.Rows("26:26").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Range("A26:C26").Select()
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
        xlSheet.Range("E6").Select() : myExcel.ActiveWindow.DisplayGridlines = False
    End Sub
    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox1.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        Clipboard.SetDataObject(PictureBox2.Image)
        xlSheet.Range("A1").Select()
        myExcel.ActiveSheet.Pictures.Paste.Select
        myExcel.Selection.ShapeRange.Height = 93
        myExcel.Selection.ShapeRange.IncrementLeft(0)
        myExcel.Selection.ShapeRange.IncrementTop(0)
    End Sub
    Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
        myExcel.Application.PrintCommunication = False : With myExcel.ActiveSheet.PageSetup : .PrintTitleRows = "" : .PrintTitleColumns = "" : End With
        myExcel.Application.PrintCommunication = True : myExcel.ActiveSheet.PageSetup.PrintArea = "" : myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup : .LeftHeader = "" : .CenterHeader = "" : .RightHeader = "" : .LeftFooter = "" : .CenterFooter = "第 &P 頁，共 &N 頁" : .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.236220472440945) : .RightMargin = myExcel.Application.InchesToPoints(0.236220472440945)
            .TopMargin = myExcel.Application.InchesToPoints(0.748031496062992) : .BottomMargin = myExcel.Application.InchesToPoints(0.748031496062992)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.31496062992126) : .FooterMargin = myExcel.Application.InchesToPoints(0.31496062992126)
            .PrintHeadings = False : .PrintGridlines = False : .CenterHorizontally = True : .CenterVertically = False : .Draft = False
            .FirstPageNumber = xlAutomatic : .BlackAndWhite = False : .Zoom = False : .FitToPagesWide = 1 : .FitToPagesTall = False : .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False : .ScaleWithDocHeaderFooter = True : .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = "" : .EvenPage.CenterHeader.Text = "" : .EvenPage.RightHeader.Text = "" : .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = "" : .EvenPage.RightFooter.Text = "" : .FirstPage.LeftHeader.Text = "" : .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = "" : .FirstPage.LeftFooter.Text = "" : .FirstPage.CenterFooter.Text = "" : .FirstPage.RightFooter.Text = ""
        End With : myExcel.Application.PrintCommunication = True
    End Sub
End Class