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