HX-PGS-ERP-SYS-LEEHSIEHJUI/10、背景程式與對話�.../桌面倉儲領料導入.vb

Imports System.IO

Public Class 桌面倉儲領料導入
    Private Sub Set_清單2()
        Dim ds1 As New DataSet : 出庫明細_dgv.DataSource = Nothing : ds1.Clear()
        出庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        出庫明細_dgv.ColumnHeadersHeight = 40 : 出庫明細_dgv.AllowUserToAddRows = False : 出庫明細_dgv.RowTemplate.Height = 45
        PA49 = "%%" : SQL2 = "TOP(" & CInt(NU1) & ")" : SQL_倉儲領料申請_明細_桌面()
        da.Fill(ds1) : 出庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()

        If 出庫明細_dgv.Columns.Count = 15 Then : 出庫明細_dgv.Columns(14).Visible = False : End If
        出庫明細_dgv.Columns(0).Visible = False : 出庫明細_dgv.Columns(1).FillWeight = 252 : 出庫明細_dgv.Columns(2).FillWeight = 252 : 出庫明細_dgv.Columns(3).FillWeight = 80
        出庫明細_dgv.Columns(4).FillWeight = 80 : 出庫明細_dgv.Columns(5).FillWeight = 90 : 出庫明細_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(13).Visible = False : 出庫明細_dgv.Columns("State").FillWeight = 85 : 出庫明細_dgv.Columns("State").Visible = False
        出庫明細_dgv.Columns("No").Visible = False
        出庫明細_dgv.Columns(3).DefaultCellStyle.Format = "#,##0" : 出庫明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
        出庫明細_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        出庫明細_dgv.Columns(1).ReadOnly = True : 出庫明細_dgv.Columns(2).ReadOnly = True : 出庫明細_dgv.Columns(3).ReadOnly = True : 出庫明細_dgv.Columns(4).ReadOnly = False
        出庫明細_dgv.Columns(5).ReadOnly = True : 出庫明細_dgv.Columns(9).ReadOnly = True : 出庫明細_dgv.Columns(11).ReadOnly = True : 出庫明細_dgv.Columns(12).ReadOnly = True
        出庫明細_dgv.Columns("State").ReadOnly = True
        出庫明細_dgv.Columns(表頭(77)).Visible = False
        出庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        If 低網速模式 = False Then
            出庫明細_dgv.Columns(15).FillWeight = 60 : 出庫明細_dgv.Columns(15).Visible = True
            Dim mycol As DataGridViewImageColumn = 出庫明細_dgv.Columns("Image")
            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
        Else
            If 出庫明細_dgv.Columns.Count = 16 Then : 出庫明細_dgv.Columns(15).Visible = False : End If
        End If
        '------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1
            出庫明細_dgv.Rows(i).Cells(0).Value = "" : 出庫明細_dgv.Rows(i).Cells(1).Value = "" : 出庫明細_dgv.Rows(i).Cells(2).Value = ""
            出庫明細_dgv.Rows(i).Cells(3).Value = "0" : 出庫明細_dgv.Rows(i).Cells(4).Value = "0" : 出庫明細_dgv.Rows(i).Cells(5).Value = ""
            出庫明細_dgv.Rows(i).Cells(6).Value = "" : 出庫明細_dgv.Rows(i).Cells(7).Value = "" : 出庫明細_dgv.Rows(i).Cells(8).Value = ""
            出庫明細_dgv.Rows(i).Cells(9).Value = "" : 出庫明細_dgv.Rows(i).Cells(10).Value = "" : 出庫明細_dgv.Rows(i).Cells(11).Value = ""
            出庫明細_dgv.Rows(i).Cells(12).Value = "" : 出庫明細_dgv.Rows(i).Cells(13).Value = "" : 出庫明細_dgv.Rows(i).Cells(14).Value = ""
        Next : Dim DC As Integer = 0
        For i As Integer = 0 To HX_PGS_ERP_SYS.庫存查詢_dgv.Rows.Count - 1
            If HX_PGS_ERP_SYS.庫存查詢_dgv("選擇", i).Value = True Then
                出庫明細_dgv.Rows(DC).Cells(1).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("品名", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(2).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("規格", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(3).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("庫存", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(5).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("單位", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(7).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("料號原則", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(9).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("料號", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(13).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("倉名編號", i).Value.ToString
                出庫明細_dgv.Rows(DC).Cells(14).Value = HX_PGS_ERP_SYS.庫存查詢_dgv("倉級", i).Value.ToString
                If 低網速模式 = False Then
                    出庫明細_dgv.Rows(DC).Cells("Image").Value = Nothing : PA2 = 出庫明細_dgv.Rows(DC).Cells(7).Value : SQL_物料圖庫_圖檔讀取一()
                    While dr.Read() = True
                        Dim unused As Byte() = New Byte(-1) {}
                        Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
                        Dim oStream As New MemoryStream(bytes)
                        出庫明細_dgv.Rows(DC).Cells("Image").Value = Bitmap.FromStream(oStream)
                    End While : conn.Close()
                End If : DC += 1
            End If
        Next
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        表頭(12) = 系統語言字典("H506-115-" & 語言) : 表頭(13) = 系統語言字典("H506-120-" & 語言) : 表頭(45) = 系統語言字典("H506-118-" & 語言)
        表頭(46) = 系統語言字典("H506-109-" & 語言) : 表頭(16) = 系統語言字典("H506-123-" & 語言) : 表頭(14) = 系統語言字典("H506-121-" & 語言)
        表頭(77) = 系統語言字典("H506-119-" & 語言) : 表頭(86) = 系統語言字典("H506-114-" & 語言) : 表頭(48) = 系統語言字典("H506-116-" & 語言)
    End Sub
    Private Sub 桌面倉儲領料導入_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 桌面倉儲領料導入_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        語言轉換讀取() : 出庫明細_dgv.BringToFront() : Set_清單2()
    End Sub
    Private Sub 出庫明細_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 出庫明細_dgv.CellEnter
        For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1
            If Not IsNumeric(出庫明細_dgv.Rows(i).Cells(4).Value) Then
                出庫明細_dgv.Rows(i).Cells(4).Value = "0"
            Else
                If CDbl(出庫明細_dgv.Rows(i).Cells(3).Value) >= CDbl(出庫明細_dgv.Rows(i).Cells(4).Value.ToString) Then
                    出庫明細_dgv.Rows(i).Cells(4).Value = Strings.Format(CDbl(出庫明細_dgv.Rows(i).Cells(4).Value.ToString), "#,##0")
                Else
                    出庫明細_dgv.Rows(i).Cells(4).Value = "0"
                End If
            End If
        Next
    End Sub
    Private Sub 備註修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 備註修改存檔_bt.Click
        Dim DF As Integer : For i As Integer = 0 To 出庫明細_dgv.Rows.Count - 1 : DF += CDbl(出庫明細_dgv.Rows(i).Cells(4).Value.ToString) : Next
        If DF = 0 Then : MGB("No Quantity!!", 1) : Else : BL10 = True : HX_PGS_ERP_SYS.倉儲領料申請_tsm.PerformClick() : End If
    End Sub
End Class