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 Public Class 銷售單申請 ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet Dim 匯率1 As Double Dim 新項次, ESTR, ESTR1, 變數, 新流水1 As String Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1, N1, N2, N3, N4 As Integer Dim 刷卡控制, 首次開啟, 稅金另算有資料 As Boolean Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet Private Sub Set_清單() 物料清單_dgv.DataSource = Nothing : ds.Clear() 物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 物料清單_dgv.ColumnHeadersHeight = 40 : 物料清單_dgv.AllowUserToAddRows = False : 物料清單_dgv.RowTemplate.Height = 25 PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text : SQL_盤盈盤損申請_物料清單() da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close() 物料清單_dgv.Columns(0).FillWeight = 90 : 物料清單_dgv.Columns(1).FillWeight = 100 : 物料清單_dgv.Columns(2).FillWeight = 250 物料清單_dgv.Columns(3).FillWeight = 60 : 物料清單_dgv.Columns(4).Visible = False 物料清單_dgv.Columns(5).FillWeight = 40 : 物料清單_dgv.Columns(6).Visible = False 物料清單_dgv.Columns(0).ReadOnly = True : 物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True : 物料清單_dgv.Columns(5).ReadOnly = True 物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" 物料清單_dgv.Columns("庫存").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 物料清單_dgv.Columns("庫存").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 資料筆數_tb.Text = 物料清單_dgv.Rows.Count For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1 資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條() If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub Set_清單1() 銷售單據_dgv.DataSource = Nothing : ds1.Clear() 銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 銷售單據_dgv.ColumnHeadersHeight = 25 : 銷售單據_dgv.AllowUserToAddRows = False : 銷售單據_dgv.RowTemplate.Height = 25 PA19 = 業務_cb.Text : SQL_銷售控制表() da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close() 銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_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).FillWeight = 45 : 銷售單據_dgv.Columns(13).FillWeight = 45 : 銷售單據_dgv.Columns(14).Visible = False For I As Integer = 0 To 銷售單據_dgv.Rows.Count - 1 If IsDBNull(銷售單據_dgv("轉高層", I).Value) = True Then : 銷售單據_dgv("轉高層", I).Value = False : End If Next End Sub Private Sub Set_清單2() 客戶資料_dgv.DataSource = Nothing : ds2.Clear() 客戶資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 客戶資料_dgv.ColumnHeadersHeight = 25 : 客戶資料_dgv.AllowUserToAddRows = False : 客戶資料_dgv.RowTemplate.Height = 25 PA16 = 客戶_tb.Text : SQL_銷售單申請_客戶資料驗證() da.Fill(ds2) : 客戶資料_dgv.DataSource = ds2.Tables(0) : conn.Close() End Sub Private Sub Set_清單3() 區域庫存_dgv.DataSource = Nothing : ds3.Clear() 區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 區域庫存_dgv.ColumnHeadersHeight = 25 : 區域庫存_dgv.AllowUserToAddRows = False : 區域庫存_dgv.RowTemplate.Height = 25 PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢() da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close() 區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80 區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True 區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0" 區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter End Sub Private Sub Set_清單4() 銷售明細_dgv.DataSource = Nothing : ds4.Clear() 銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 銷售明細_dgv.ColumnHeadersHeight = 40 : 銷售明細_dgv.AllowUserToAddRows = False If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 銷售明細_dgv.RowTemplate.Height = 95 ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 銷售明細_dgv.RowTemplate.Height = 60 ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 銷售明細_dgv.RowTemplate.Height = 25 : End If PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售明細表() da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close() Set_銷售明細_dgv_下拉式清單1() : Set_銷售明細_dgv_下拉式清單2() : Set_銷售明細_dgv_下拉式清單3() 銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200 銷售明細_dgv.Columns(4).Visible = False : 銷售明細_dgv.Columns(5).FillWeight = 130 : 銷售明細_dgv.Columns(6).Visible = False : 銷售明細_dgv.Columns(7).FillWeight = 130 銷售明細_dgv.Columns(8).Visible = False : 銷售明細_dgv.Columns(9).FillWeight = 130 : 銷售明細_dgv.Columns(10).FillWeight = 150 : 銷售明細_dgv.Columns(11).FillWeight = 80 銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).FillWeight = 50 : 銷售明細_dgv.Columns(15).FillWeight = 80 銷售明細_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).FillWeight = 50 銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True 銷售明細_dgv.Columns(11).ReadOnly = True : 銷售明細_dgv.Columns(13).ReadOnly = True : 銷售明細_dgv.Columns(16).ReadOnly = True 銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0" 銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0.0" : 銷售明細_dgv.Columns("售價").DefaultCellStyle.Format = "#,##0" 銷售明細_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("售價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("售價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("倉儲情況").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("倉儲情況").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 If 銷售明細_dgv("含稅", i).Value = False Then 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value ElseIf 銷售明細_dgv("含稅", i).Value = True Then 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05 End If 銷售明細_dgv("項次", i).Value = i + 1 Next 銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter End Sub Private Sub Set_銷售明細_dgv_下拉式清單1() Dim Col As New DataGridViewComboBoxColumn With { .FillWeight = 130, .DataPropertyName = "倉名" } SQL_倉名_下拉清單() Col.Items.Clear() While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close() Col.HeaderText = "倉名" : Col.Name = "倉名" 銷售明細_dgv.Columns.Insert(5, Col) End Sub Private Sub Set_銷售明細_dgv_下拉式清單2() Dim Col As New DataGridViewComboBoxColumn With { .FillWeight = 130, .DataPropertyName = "訂製" } SQL_訂製狀態_下拉清單() Col.Items.Clear() While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close() Col.HeaderText = "訂製" : Col.Name = "訂製" 銷售明細_dgv.Columns.Insert(7, Col) End Sub Private Sub Set_銷售明細_dgv_下拉式清單3() Dim Col As New DataGridViewComboBoxColumn With { .FillWeight = 130, .DataPropertyName = "狀態" } SQL_倉儲狀態_下拉清單() Col.Items.Clear() While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close() Col.HeaderText = "狀態" : Col.Name = "狀態" 銷售明細_dgv.Columns.Insert(9, Col) End Sub Private Sub Set_料號轉簡稱() SQL料號查詢簡稱() : 轉換_tb.Clear() While (dr.Read()) : 轉換_tb.Text = dr("簡稱").ToString : End While : conn.Close() End Sub Private Sub Set_清單5() 銷售備註_dgv.DataSource = Nothing : ds5.Clear() 銷售備註_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 銷售備註_dgv.ColumnHeadersHeight = 25 銷售備註_dgv.AllowUserToAddRows = False 銷售備註_dgv.RowTemplate.Height = 45 PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售備註表() da.Fill(ds5) : 銷售備註_dgv.DataSource = ds5.Tables(0) : conn.Close() 銷售備註_dgv.Columns(0).Visible = False : 銷售備註_dgv.Columns(1).FillWeight = 110 : 銷售備註_dgv.Columns(2).FillWeight = 800 : 銷售備註_dgv.Columns(3).FillWeight = 120 銷售備註_dgv.Columns(4).FillWeight = 120 : 銷售備註_dgv.Columns(5).FillWeight = 280 : 銷售備註_dgv.Columns(6).FillWeight = 100 : 銷售備註_dgv.Columns(7).FillWeight = 100 銷售備註_dgv.Columns(0).ReadOnly = True : 銷售備註_dgv.Columns(1).ReadOnly = True 銷售備註_dgv.Columns("收入").DefaultCellStyle.Format = "#,##0" : 銷售備註_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0" 銷售備註_dgv.Columns("收入").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售備註_dgv.Columns("收入").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售備註_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售備註_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售備註_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售備註_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 銷售備註_dgv("項次", i).Value = i + 1 Next 銷售備註_dgv.EditMode = DataGridViewEditMode.EditOnEnter Set_合記計算() End Sub Private Sub Set_清單6() 收款事項_dgv.DataSource = Nothing : ds6.Clear() 收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 收款事項_dgv.ColumnHeadersHeight = 25 收款事項_dgv.AllowUserToAddRows = False 收款事項_dgv.RowTemplate.Height = 25 PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項() da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close() 收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 100 收款事項_dgv.Columns(4).FillWeight = 700 : 收款事項_dgv.Columns(5).FillWeight = 150 : 收款事項_dgv.Columns(6).FillWeight = 250 : 收款事項_dgv.Columns(7).FillWeight = 90 收款事項_dgv.Columns(8).FillWeight = 90 收款事項_dgv.Columns(2).ReadOnly = True 收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0" 收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 收款事項_dgv("項次", i).Value = i + 1 If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then : 收款事項_dgv("含稅", i).Value = False : End If If IsDBNull(收款事項_dgv("轉財務", i).Value) = True Then : 收款事項_dgv("轉財務", i).Value = False : End If Next 收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter Set_合記計算() End Sub Private Sub Set_清單7() 銷售衍生運費_dgv.DataSource = Nothing : ds7.Clear() 銷售衍生運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 銷售衍生運費_dgv.ColumnHeadersHeight = 25 銷售衍生運費_dgv.AllowUserToAddRows = False 銷售衍生運費_dgv.RowTemplate.Height = 45 PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售衍生費用() da.Fill(ds7) : 銷售衍生運費_dgv.DataSource = ds7.Tables(0) : conn.Close() 銷售衍生運費_dgv.Columns(0).Visible = False : 銷售衍生運費_dgv.Columns(1).FillWeight = 25 : 銷售衍生運費_dgv.Columns(2).Visible = False : 銷售衍生運費_dgv.Columns(3).FillWeight = 150 銷售衍生運費_dgv.Columns(4).FillWeight = 30 : 銷售衍生運費_dgv.Columns(5).FillWeight = 60 : 銷售衍生運費_dgv.Columns(6).FillWeight = 20 : 銷售衍生運費_dgv.Columns(7).FillWeight = 20 銷售衍生運費_dgv.Columns(0).ReadOnly = True : 銷售衍生運費_dgv.Columns(1).ReadOnly = True 銷售衍生運費_dgv.Columns("支出").DefaultCellStyle.Format = "#,##0" 銷售衍生運費_dgv.Columns("支出").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售衍生運費_dgv.Columns("支出").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售衍生運費_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 銷售衍生運費_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 銷售衍生運費_dgv("項次", i).Value = i + 1 Next : 銷售衍生運費_dgv.EditMode = DataGridViewEditMode.EditOnEnter : Set_合記計算() End Sub Private Sub 供應商_下拉表單資料載入() BL1 = False : PA3 = "" : PA4 = "" If 地區_cb.Text = "" Then : PA3 = "" ElseIf 地區_cb.Text = "北部" Then : PA3 = "2" ElseIf 地區_cb.Text = "南部" Then : PA3 = "3" ElseIf 地區_cb.Text = "材料" Then : PA3 = "9" ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y" ElseIf 地區_cb.Text = "其他" Then : PA3 = "1" End If SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close() End Sub Private Sub 送貨地點_cb_下拉表單資料載入() SQL_送貨地點_下拉清單() : 送貨地點_cb.Items.Clear() : 最低運費_cb.Items.Clear() : 最低售價_cb.Items.Clear() : 司機運費_tb.Text = "0" While (dr.Read()) : 送貨地點_cb.Items.Add(dr("地區")) : 最低運費_cb.Items.Add(dr("起車")) : 最低售價_cb.Items.Add(dr("最低售額")) : End While : conn.Close() End Sub Private Sub 倉儲狀態_cb_下拉表單資料載入() SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear() While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close() End Sub Private Sub 訂製狀態_cb_下拉表單資料載入() SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear() While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close() End Sub Private Sub Set_日期格式轉換() DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd") DTP3 = Strings.Format(申請日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd") End Sub Private Sub Set_合記計算() Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer 售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0" 司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" If 稅金另算有資料 = False Then : 稅金25_tb.Text = "0" : End If '-------001----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value End If Next 刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(刷卡總和_tb.Text) * 0.02) '-------002----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value 售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value) If 銷售明細_dgv("無管銷", i).Value = False Then If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) End If End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value End If If 銷售明細_dgv("含稅", i).Value = True Then 稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)) End If Next 管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料 If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then 通知_lb.Text = "無稅金" ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then 通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" 稅金_tb.Text = CLng(刷卡總和_tb.Text) / 21 : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金" ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。" End If If 稅金存檔 <> CLng(稅金_tb.Text) Then 稅金_tb.Text = 稅金存檔 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) 銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text) ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then 稅金_tb.Text = 稅金存檔 銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text) 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) End If If 稅金另算有資料 = False Then '稅金25_tb.Text = CLng(稅金_tb.Text) / 2 End If '-------003----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value 支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value Next 額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text) '-------004----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Dim 金額 As Integer = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString <> "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then 收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額 End If Next '-------005----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then 司機運費_tb.Text = "0" Else If 運費 = 0 Then If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_cb.Text) Then 司機運費_tb.Text = 最低運費_cb.Text ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then 司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3 End If Else 司機運費_tb.Text = 運費 End If End If '-------006----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) - CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + CLng(稅金25_tb.Text) If 銷售衍生運費_dgv.Rows.Count > 0 Then For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value Next End If '-------007----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0") 收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0") 司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0") 物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0") 刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0") End Sub Private Sub 指定倉庫_cb_下拉表單資料載入() If 需要全部庫存區域清單_ch.Checked = True Then SQL_倉名_下拉清單() Else If 料號_tb.Text = "" Then SQL_倉名_下拉清單() Else PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件() End If End If 指定倉庫_cb.Items.Clear() While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close() If 指定倉庫_cb.Items.Count = 0 Then SQL_倉名_下拉清單() While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close() End If End Sub Private Sub 業務_cb_下拉表單資料載入() SQL_業務編號_下拉清單() 業務_cb.Items.Clear() : 業務_cb.Items.Clear() While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close() End Sub Private Sub ComboBox1下拉表單資料載入() conn.Close() SQL_應收帳款已收_查詢公帳控制表會計科目1() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear() While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close() If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If End Sub Private Sub ComboBox2下拉表單資料載入() conn.Close() SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目() : 會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = "" While (dr.Read()) : 會科1_ch.Items.Add(dr("第一階")) : 會科碼1_ch.Items.Add(dr("編號")) : End While : conn.Close() End Sub Private Sub ComboBox3下拉表單資料載入() conn.Close() SQL_應收帳款已收_查詢最左邊公帳控制表會計科目1() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = "" While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() End Sub Private Sub 匯率() PA1 = Strings.Left(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 4) PA2 = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2) SQL_營運成本收支單申請_查詢匯率() If dr.Read() Then 人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close() Else conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront() End If End Sub Private Sub 銷售單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = "" 會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = "" ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0 會科1_ch.SelectedIndex = 1 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0 申請人_tb.Text = gUserName : 申請日期_dtp.Value = Today() : 匯率() 顯示_bt.Enabled = False : 隱藏_bt.Enabled = True : 業務_cb_下拉表單資料載入() If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If 料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定 指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入() 首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取 If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then 字體_NUD.Value = 9 ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then 字體_NUD.Value = 7.6 End If End Sub Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed If 開立庫存調整單_bt.Enabled = False Then Dim aa1 As MsgBoxResult = MsgBox("目前的系統狀況關閉會刪除銷售單並連同該單據串連的採購，倉儲等聯繫單據都一同刪除，請再次確定是否刪除該單據?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then Dim SSA As String SSA = InputBox("確定刪除資料請輸入 [YES] !") If SSA = "YES" Then PA = 單號_tb.Text SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除() : conn.Close() PA = "" End If End If End If End Sub Private Sub 銷售單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged If 單號_tb.Text = "" Then : Else Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() End If If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then 字體_NUD.Value = 9 ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then 字體_NUD.Value = 8 End If End Sub Private Sub 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit Set_合記計算() 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("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString 營運成本收支單號_tb.Text = 收款事項_dgv("收支單號", e.RowIndex).Value.ToString : 流水號2_bt.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString 項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString End If End Sub Private Sub 銷售備註_dgvCellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售備註_dgv.CellEndEdit If (CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("收入").Value) <> 0 And CLng(銷售備註_dgv.Rows(e.RowIndex).Cells("支出").Value) <> 0) Then MsgBox("支出與收入不能同時有金額") Set_清單5() Exit Sub End If Set_合記計算() 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("資料流水號", e.RowIndex).Value.ToString : 項次1_tb.Text = 銷售備註_dgv("項次", e.RowIndex).Value.ToString End If End Sub Private Sub 銷售衍生運費_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售衍生運費_dgv.CellEndEdit Set_合記計算() 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("資料流水號", e.RowIndex).Value.ToString : 項次4_tb.Text = 銷售衍生運費_dgv("項次", e.RowIndex).Value.ToString End If End Sub Private Sub 銷售明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售明細_dgv.CellEndEdit If e.RowIndex = -1 Then : Else For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 If 銷售明細_dgv("含稅", i).Value = False Then If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If 銷售明細_dgv("單價", i).Value = 銷售明細_dgv("售價", i).Value / 銷售明細_dgv("數量", i).Value ElseIf 銷售明細_dgv("含稅", i).Value = True Then If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If 銷售明細_dgv("單價", i).Value = (銷售明細_dgv("售價", i).Value / 1.05) / 銷售明細_dgv("數量", i).Value End If If 銷售明細_dgv("倉儲情況", i).Value <> "已有貨" Then PA20 = 銷售明細_dgv(5, i).Value : PA19 = 銷售明細_dgv(7, i).Value : PA18 = 銷售明細_dgv(9, i).Value SQL_銷售明細_改倉名() If dr.Read() Then 銷售明細_dgv("倉儲狀態", i).Value = dr("倉名編號") End If SQL_銷售明細_改物料訂製狀態() If dr.Read() Then 銷售明細_dgv("訂製狀態", i).Value = dr("編碼") End If SQL_銷售明細_倉儲狀態() If dr.Read() Then 銷售明細_dgv("物料狀態", i).Value = dr("編碼") End If : conn.Close() End If Next Set_合記計算() End If 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("資料流水號", e.RowIndex).Value.ToString : 倉儲資料流水號_tb.Text = 銷售明細_dgv("倉儲流水號", e.RowIndex).Value.ToString 項次_tb.Text = 銷售明細_dgv("項次", e.RowIndex).Value.ToString 物料圖1_pb.Image = Nothing : PA1 = 銷售明細_dgv("料號", e.RowIndex).Value : SQL_物料檔案_是否有圖() If dr.Read() Then If dr("是否有圖") = True Then 物料圖1_pb.BackgroundImage = Nothing PA = 銷售明細_dgv("料號", e.RowIndex).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) 物料圖1_pb.Image = Bitmap.FromStream(oStream) End While conn.Close() 物料圖1_pb.SizeMode = 4 Else 物料圖1_pb.BackgroundImage = My.Resources.底圖1 : 物料圖1_pb.BackgroundImageLayout = 3 物料圖1_pb.Image = Nothing End If End If : conn.Close() End If End Sub Private Sub 銷售單據_讀取() If 選取位置 = -1 Then : Else 稅金存檔 = 銷售單據_dgv.Rows(選取位置).Cells("稅金").Value 流水號_tb.Text = 銷售單據_dgv.Rows(選取位置).Cells("流水號").Value : 單號_tb.Text = 銷售單據_dgv.Rows(選取位置).Cells("單號").Value 開單日期_dtp.Value = 銷售單據_dgv.Rows(選取位置).Cells("開單日期").Value : 客戶編號_tb.Text = 銷售單據_dgv.Rows(選取位置).Cells("客戶編號").Value 交貨日期_dtp.Value = 銷售單據_dgv.Rows(選取位置).Cells("交貨日期").Value : 含稅_ch.Checked = 銷售單據_dgv.Rows(選取位置).Cells("含稅").Value 送貨地點_cb_下拉表單資料載入() : 送貨地點_cb.Text = 銷售單據_dgv.Rows(選取位置).Cells("送貨地點").Value.ToString 轉高層_cb.Checked = 銷售單據_dgv.Rows(選取位置).Cells("轉高層").Value 運費 = 銷售單據_dgv.Rows(選取位置).Cells("運費").Value.ToString : 客戶流水_tb.Text = "" 業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(選取位置).Cells("單號").Value, 1) If 銷售單據_dgv.Rows(選取位置).Cells("稅金另扣").Value.ToString <> "" Then 稅金另算有資料 = True : 稅金25_tb.Text = 銷售單據_dgv.Rows(選取位置).Cells("稅金另扣").Value.ToString 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0") Else : 稅金另算有資料 = False : 稅金25_tb.Text = "" : End If Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() PA = 單號_tb.Text : SQL_銷售單號串聯倉儲表取得倉儲單號() If dr.Read() Then : 調庫單號_tb.Text = dr("執行單號") : Else : 調庫單號_tb.Text = "" : End If End If End Sub Private Sub 銷售單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick 選取位置 = e.RowIndex 銷售單據_讀取() End Sub Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick If e.RowIndex = -1 Then : Else 指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value End If End Sub Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick If 首次開啟 = True Then If e.RowIndex = -1 Then : Else 料號_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 庫存量_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString) 可申請_tb.Text = CLng(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - CLng(物料清單_dgv("未出庫", e.RowIndex).Value.ToString) 物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖() If dr.Read() Then If dr("是否有圖") = True Then 物料圖_pb.BackgroundImage = Nothing PA = 料號_tb.Text : 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) 物料圖_pb.Image = Bitmap.FromStream(oStream) End While conn.Close() 物料圖_pb.SizeMode = 4 Else 物料圖_pb.BackgroundImage = My.Resources.底圖1 : 物料圖_pb.BackgroundImageLayout = 3 物料圖_pb.Image = Nothing End If End If : conn.Close() 指定倉庫_cb_下拉表單資料載入() 成本_nud.Value = 0 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() PA12 = 料號_tb.Text SQL_銷售明細表_成本讀取() If dr.Read() Then : 成本_nud.Value = dr("成本") Else : 成本_nud.Value = 0 End If : conn.Close() End If End If End Sub Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub 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 存檔1() : Set_清單4() End Sub Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False 存檔1() : Set_清單4() End Sub Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True 存檔1() : Set_清單4() End Sub Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科1_ch.TextChanged 會科碼1_ch.SelectedIndex = 會科1_ch.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入() End Sub Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科碼1_ch.TextChanged 會科1_ch.SelectedIndex = 會科碼1_ch.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入() End Sub Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入() End Sub Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入() End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged ComboBox6.SelectedIndex = ComboBox1.SelectedIndex End Sub Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged ComboBox1.SelectedIndex = ComboBox6.SelectedIndex End Sub Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged If 地區_cb.Text = "" And 查詢_tb.Text = "" Then 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單() ElseIf 地區_cb.Text = "" Then 查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() ElseIf 地區_cb.Text <> "" Then 查詢_tb.Text = "" : 供應商_下拉表單資料載入() End If End Sub Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged If 地區_cb.Text <> "" Then 查詢_tb.Text = "" : 供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex End If End Sub Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged If 地區_cb.Text <> "" Then 查詢_tb.Text = "" : 供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單() End If End Sub Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click 查詢_tb.Text = "" : 地區_cb.Text = "" End Sub Private Sub 查詢_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢_tb.KeyPress If e.KeyChar = Chr(13) Then 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() PA = 查詢_tb.Text : Set_清單() : 地區_cb.Text = "" End If End Sub Private Sub 稅金_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 稅金_tb.KeyPress If e.KeyChar = Chr(13) Then 稅金存檔 = 稅金_tb.Text Set_合記計算() End If End Sub Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取() If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close() End Sub Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged 儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex End Sub Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged 倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex End Sub Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged 訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex If 訂製編碼_cb.Text = "MA0001" Then PA12 = 料號_tb.Text SQL_銷售明細表_成本讀取() If dr.Read() Then : 成本_nud.Value = dr("成本") Else : 成本_nud.Value = 0 End If : conn.Close() Else 成本_nud.Value = 0 End If End Sub Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged 訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex End Sub Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged Set_清單1() End Sub Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged 指定倉庫_cb_下拉表單資料載入() End Sub Private Sub 送貨地點_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 送貨地點_cb.SelectedIndexChanged 最低運費_cb.SelectedIndex = 送貨地點_cb.SelectedIndex : 最低售價_cb.SelectedIndex = 送貨地點_cb.SelectedIndex : Set_合記計算() End Sub Private Sub 最低運費_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 最低運費_cb.SelectedIndexChanged 送貨地點_cb.SelectedIndex = 最低運費_cb.SelectedIndex : 最低售價_cb.SelectedIndex = 最低運費_cb.SelectedIndex End Sub Private Sub 最低售價_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 最低售價_cb.SelectedIndexChanged 送貨地點_cb.SelectedIndex = 最低售價_cb.SelectedIndex : 最低運費_cb.SelectedIndex = 最低售價_cb.SelectedIndex End Sub Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.CheckedChanged If 刷卡控制 = False Then For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 If 含稅_ch.Checked = False Then : 銷售明細_dgv("含稅", i).Value = False ElseIf 含稅_ch.Checked = True Then : 銷售明細_dgv("含稅", i).Value = True End If If 銷售明細_dgv("含稅", i).Value = False Then If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value ElseIf 銷售明細_dgv("含稅", i).Value = True Then If IsDBNull(銷售明細_dgv("售價", i).Value) = True Then : 銷售明細_dgv("售價", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If 銷售明細_dgv("售價", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05 End If Next Set_合記計算() End If End Sub Private Sub 客戶編號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶編號_tb.TextChanged PA15 = 客戶編號_tb.Text SQL_銷售單申請_客戶資料() If dr.Read() Then 客戶_tb.Text = dr("名稱") : 公司_tb.Text = dr("公司名稱") : 統編_tb.Text = dr("統編") : 住址_tb.Text = dr("地址") : 電話1_tb.Text = dr("電話1") : 電話2_tb.Text = dr("電話2") Else 客戶_tb.Text = "" : 公司_tb.Text = "" : 統編_tb.Text = "" : 住址_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = "" End If End Sub Private Sub 客戶資料查詢_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料查詢_bt.Click If 流水號_tb.Text = "" Then MsgBox("指定客戶前要先有銷售單號，請新增單號或是挑選歷史資料!!") Else PA30 = 客戶_tb.Text : 客戶資料強制對話框模式 = True : 客戶資料表.Close() : 客戶資料表.ShowDialog() : 客戶編號_tb.Text = PA15 : 客戶資料強制對話框模式 = False : 客戶資料表.Close() End If End Sub Private Sub 開立庫存調整單_bt_Click(sender As Object, e As EventArgs) Handles 開立庫存調整單_bt.Click If 業務_cb.Text = "" Then '--------------------設定條件讓業務控件不為空 MsgBox("沒有選擇業務編號。") Else PA = InputBox("請輸入銷售單號。") If PA = "" Then MsgBox("沒有輸入修改內容。") Else SQL_銷售控制表_單號是否重複() ' If dr.Read() Then MsgBox("輸入的銷售單號重複。") Else If IsNumeric(Strings.Mid(PA, 2, 6)) = True Then If PA.Length = 7 Or PA.Length = 9 Then 開立庫存調整單_bt.Enabled = False : 銷售單據_dgv.Enabled = False 單號_tb.Text = PA : 調庫單號_tb.Text = "" : 客戶編號_tb.Text = "" : 運費 = 0 : 客戶流水_tb.Text = "" SQL_銷售控制表_最後一筆資料() '--------------------自動取得新編號 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 4)) : Else : EDR = 1 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "PO" & "0000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PO" & "000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PO" & "00000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PO" & "0000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PO" & "000" & EDR ElseIf EDR > 99999 And EDR < 1000000 Then : ESTR = "PO" & "00" & EDR ElseIf EDR > 999999 And EDR < 10000000 Then : ESTR = "PO" & "0" & EDR ElseIf EDR > 10000000 Then : ESTR = "PO" & EDR End If : 流水號_tb.Text = ESTR : PA1 = ESTR Set_日期格式轉換() '----------------------------------判斷是否需要經過審核------------------------------------------- If CC(37) = False Then SQL_銷售控制表_新增() Else SQL_銷售控制表_新增_無須審核() End If 稅金存檔 = 0 SQL_銷售收款事項_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If PA1 = ESTR SQL_銷售收款事項_新增() : conn.Close() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : 送貨地點_cb_下拉表單資料載入() 司機運費_tb.Text = "0" : 預估利潤_tb.Text = "0" : 客戶編號_tb.Text = "" : 客戶_tb.Text = "" : 公司_tb.Text = "" : 電話1_tb.Text = "" : 電話2_tb.Text = "" 統編_tb.Text = "" : 住址_tb.Text = "" : 含稅_ch.Checked = False Else MsgBox("輸入的單號需要完整七位數或是九位數。") End If Else MsgBox("單號除了開頭第一位其他都必須是數字。") End If End If End If End If End Sub Private Sub 客戶資料驗證_bt_Click(sender As Object, e As EventArgs) Handles 客戶資料驗證_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else Set_清單2() If 客戶資料_dgv.Rows.Count = 1 Then 客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value ElseIf 客戶資料_dgv.Rows.Count > 1 Then MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。") PA30 = 客戶_tb.Text : PA29 = 住址_tb.Text : PA28 = 電話1_tb.Text : PA27 = 電話2_tb.Text : PA26 = 公司_tb.Text : PA25 = 統編_tb.Text 客戶資料查詢_bt.PerformClick() ElseIf 客戶資料_dgv.Rows.Count = 0 Then Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then SQL_客戶資料表_流水號_最後一筆資料() '--------------------自動取得新流水號 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "CL" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR PA18 = 業務_cb.Text SQL_客戶資料表_編號_最後一筆資料() '--------------------自動取得新編號 If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If conn.Close() : EDR1 += 1 If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1 ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1 ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1 ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1 End If : PA17 = ESTR1 SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料 PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改 客戶編號_tb.Text = ESTR1 MsgBox("客戶資料新增完畢，請記得存檔。") End If End If End If End Sub Private Sub 存檔1() If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text SQL_客戶資料表_修改() '--------------------資料修改 DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "'" SQL_銷售控制表_修改() '--------------------資料修改 For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value SQL_銷售明細表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value SQL_銷售備註表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 資料數 = 銷售衍生運費_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value : PA11 = 銷售衍生運費_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value SQL_銷售衍生運費_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單1() End If End If End Sub Private Sub 存檔2() If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else Set_清單2() If 客戶資料_dgv.Rows.Count = 1 Then 客戶編號_tb.Text = 客戶資料_dgv.Rows(0).Cells("舊編").Value ElseIf 客戶資料_dgv.Rows.Count > 1 Then Dim aa1 As MsgBoxResult = MsgBox("系統查詢到該客戶有多筆客戶資料，你是否已經確定單據上顯示的客戶資料正確?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then : Else MsgBox("即將幫您打開客戶資料表，請在客戶資料表中查詢，選取您確認的正確訊息，並指定到銷售申請單。") 客戶資料查詢_bt.PerformClick() MsgBox("指定客戶後請寄的再次存檔。") Exit Sub End If ElseIf 客戶資料_dgv.Rows.Count = 0 Then Dim aa1 As MsgBoxResult = MsgBox("資料庫中查詢不到該客戶資料，是否依照目前資料新增客戶資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then SQL_客戶資料表_流水號_最後一筆資料() '--------------------自動取得新流水號 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "CL" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CL" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CL" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CL" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CL" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CL" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CL" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "CL" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "CL" & EDR End If : 客戶流水_tb.Text = ESTR : PA16 = ESTR PA18 = 業務_cb.Text SQL_客戶資料表_編號_最後一筆資料() '--------------------自動取得新編號 If dr.Read() Then : EDR1 = Double.Parse(Strings.Right(dr("舊編").ToString, 4)) : Else : EDR1 = 0 : End If conn.Close() : EDR1 += 1 If EDR1 < 10 Then : ESTR1 = 業務_cb.Text & "000" & EDR1 ElseIf EDR1 > 9 And EDR1 < 100 Then : ESTR1 = 業務_cb.Text & "00" & EDR1 ElseIf EDR1 > 99 And EDR1 < 1000 Then : ESTR1 = 業務_cb.Text & "0" & EDR1 ElseIf EDR1 > 999 And EDR1 < 10000 Then : ESTR1 = 業務_cb.Text & EDR1 End If : PA17 = ESTR1 SQL_客戶資料表_新增() '--------------------人事資料表中寫入一筆資料 PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text SQL_客戶資料表_修改() : conn.Close() '--------------------資料修改 客戶編號_tb.Text = ESTR1 End If End If If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text SQL_客戶資料表_修改() '--------------------資料修改 DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'" SQL_銷售控制表_修改() '--------------------資料修改 For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value SQL_銷售明細表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value SQL_銷售備註表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 資料數 = 銷售衍生運費_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value : PA11 = 銷售衍生運費_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value SQL_銷售衍生運費_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 MsgBox("存檔完成。") 開立庫存調整單_bt.Enabled = True : Set_清單1() : 銷售單據_dgv.Enabled = True End If End If End Sub Private Sub 存檔3() If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else PA14 = 客戶_tb.Text : PA13 = 電話1_tb.Text : PA12 = 電話2_tb.Text : PA11 = 住址_tb.Text PA10 = 公司_tb.Text : PA9 = 統編_tb.Text : PA8 = 客戶流水_tb.Text SQL_客戶資料表_修改() '--------------------資料修改 DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "'" SQL_銷售控制表_修改() '--------------------資料修改 For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售明細_dgv.Rows(i).Cells("備註").Value.ToString : PA11 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value : PA9 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value NU1 = 銷售明細_dgv.Rows(i).Cells("成本").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("單價").Value : PA8 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value BL5 = 銷售明細_dgv.Rows(i).Cells("含稅").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : BL6 = 銷售明細_dgv.Rows(i).Cells("無管銷").Value SQL_銷售明細表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value SQL_銷售備註表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 資料數 = 銷售衍生運費_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value : PA11 = 銷售衍生運費_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value SQL_銷售衍生運費_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 開立庫存調整單_bt.Enabled = True : Set_清單1() : 銷售單據_dgv.Enabled = True End If End If End Sub Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click 存檔2() End Sub Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 銷售明細_dgv.Rows.Count = 0 Then 存檔2() Else 存檔3() End If If 料號_tb.Text = "" Then MsgBox("請選擇物料，調整庫存需要指定物料!!") Else If 儲態編號_cb.Text = "" Then MsgBox("倉儲狀態是一定要選擇的!!") Else If 訂製狀態_cb.Text = "" Then MsgBox("物品的訂製狀態也是一定要選擇的!!") Else If 訂購數量_nud.Value = 0 Then MsgBox("訂購數量為零是不容許的!!") Else PA1 = 單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text SQL_銷售明細表_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "SA" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SA" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SA" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SA" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SA" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SA" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SA" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SA" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "SA" & EDR : End If Set_日期格式轉換() PA3 = ESTR : PA4 = 單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 訂購數量_nud.Value : NU2 = 成本_nud.Value : NU3 = 售價_nud.Value PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text : BL2 = 含稅_ch.Checked : PA10 = 倉庫編號_tb.Text : PA9 = "未有貨" Dim 排序 As Integer SQL_銷售明細表_排序() If dr.Read() Then : 排序 = CLng(dr("排序")) + 1 : Else : 排序 = 1 : End If : PA11 = 排序 SQL_銷售單申請_銷售明細表_新增() : conn.Close() Set_清單4() : Set_清單() PA = 單號_tb.Text : SQL_銷售控制表_驗證解除() End If End If End If End If End If End Sub Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then PA = 銷售資料流水號_tb.Text : PA1 = 倉儲資料流水號_tb.Text SQL_銷售明細表_單筆刪除() : SQL_倉儲控制表_依銷售單號單筆刪除() : Set_清單() : Set_清單4() PA = 單號_tb.Text : SQL_銷售控制表_驗證解除() : PA = "" : PA1 = "" End If End If End If End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If CLng(Strings.Left(單號_tb.Text, 1)) = CLng(業務號碼) Or CLng(登入人級別) <= 1 Then Dim aa1 As MsgBoxResult = MsgBox("刪除銷售單會連同該單據串連的採購，倉儲等聯繫單據都依同刪除，請再次確定是否刪除該單據?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then Dim SSA As String SSA = InputBox("確定刪除資料請輸入 [YES] !") If SSA = "YES" Then PA = 單號_tb.Text SQL_銷售控制表_刪除() : SQL_銷售明細表_整體刪除() : SQL_銷售備註表_整體刪除() : SQL_倉儲控制表_依銷售單號刪除() : SQL_銷售收款事項_整體刪除() Set_清單() : Set_清單1() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() conn.Close() End If End If Else MsgBox("只能刪除屬於自己的單據。") End If End If End Sub Private Sub 銷售備註_bt_Click(sender As Object, e As EventArgs) Handles 銷售備註_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else PA = 單號_tb.Text SQL_銷售備註表_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "SR" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SR" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SR" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SR" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SR" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SR" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SR" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SR" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If PA1 = ESTR SQL_銷售備註表_新增() For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 資料數 = 銷售備註_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售備註_dgv.Rows(i).Cells("備註").Value : PA11 = 銷售備註_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售備註_dgv.Rows(i).Cells("收入").Value : NU2 = 銷售備註_dgv.Rows(i).Cells("支出").Value SQL_銷售備註表_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單5() End If End If End Sub Private Sub 刪除備註_bt_Click(sender As Object, e As EventArgs) Handles 刪除備註_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then PA = 銷售備註流水號_tb.Text SQL_銷售備註表_刪除() : Set_清單5() End If End If End If End Sub Private Sub 稅金25_tb_TextChanged(sender As Object, e As EventArgs) Handles 稅金25_tb.TextChanged If 售價小計_tb.Text <> "" And 額外收支_tb.Text <> "" And 其他成本_tb.Text <> "" And 物料成本_tb.Text <> "" And 司機運費_tb.Text <> "" And 管銷費用_tb.Text <> "" And 刷卡傭金_tb.Text <> "" And 稅金25_tb.Text <> "" Then 預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) - CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + CLng(稅金25_tb.Text) If 銷售衍生運費_dgv.Rows.Count > 0 Then For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value Next End If 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0") End If End Sub Private Sub 財務單據退回_bt_Click(sender As Object, e As EventArgs) Handles 財務單據退回_bt.Click If 營運成本收支單號_tb.Text = "" Then MsgBox("沒有選擇要退回的資料，無法操作") Else PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用() PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單6() MsgBox("退單完成!!") For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value <> 0 Then 轉高層_cb.Checked = False DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'" SQL_銷售控制表_修改() : Exit For '--------------------資料修改 End If Next : Set_清單1() End If End Sub Private Sub Set_流水號() conn.Close() : dr.Close() Dim NUM1 As Integer For NUM1 = 0 To 99 Dim d As String : Dim f As String : Dim g As Integer = 1 If Month(申請日期_dtp.Value) < 10 Then : d = "0" & CStr(Month(申請日期_dtp.Value)) Else : d = CStr(Month(申請日期_dtp.Value)) End If If CLng(Strings.Right(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 2)) < 10 Then : f = "0" & CLng(Strings.Right(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 2)) Else : f = CLng(Strings.Right(Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd"), 2)) End If If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & "0" & NUM1 Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & NUM1 End If : PA19 = 新流水1 SQL_營運成本收支單申請_查詢收支單公帳流水號() If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If Next End Sub Private Sub 轉財務系統_bt_Click(sender As Object, e As EventArgs) Handles 轉財務系統_bt.Click SQL_應收帳款未收_轉財務Null為False() For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Dim AA As Boolean = True For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False Then AA = False Exit For End If Next If AA = False Then Dim NUM1 As Integer Set_日期格式轉換() For i As Integer = 1 To 999 NUM1 = 0 + i If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-00" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-0" & NUM1 ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-" & NUM1 End If conn.Close() PA = 營運成本收支單號_tb.Text SQL_營運成本收支單申請_查詢第一筆公帳支付單號() If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close() Next PA = 營運成本收支單號_tb.Text SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close() For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then MsgBox("沒有選擇會計科目或幣別。") Else Set_日期格式轉換() : Set_流水號() PA = 營運成本收支單號_tb.Text SQL_營運成本收支單申請_查詢最後一筆公帳支付單號() If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() NUM1 = Double.Parse(新項次) + 1 If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1 ElseIf 幣別_cb.Text = "人民幣現金" Then : 匯率1 = 人民幣匯率_tb.Text ElseIf 幣別_cb.Text = "美金" Then : 匯率1 = 美金匯率_tb.Text : End If Dim RR As String If Len(客戶_tb.Text & 收款事項_dgv.Rows(i).Cells("內容").Value) <= 21 Then RR = 收款事項_dgv.Rows(i).Cells("內容").Value Else RR = Strings.Left(收款事項_dgv.Rows(i).Cells("內容").Value, 21 - Len(客戶_tb.Text)) End If PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & RR & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]" PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value PA21 = 收款事項_dgv.Rows(i).Cells("含稅").Value : PA22 = "0" SQL_應收轉財務_新增公帳流水帳資料() PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value SQL_應收帳款未收_轉財務() conn.Close() : Set_清單6() End If End If Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單1() : MsgBox("收款資料轉財務單完成!!!") Else MsgBox("沒有滿足可以轉財務的需求!!!") End If For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" And 收款事項_dgv.Rows(i).Cells("金額").Value = 0 Then 轉高層_cb.Checked = True : 交貨日期_dtp.Value = 申請日期_dtp.Value DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : BL1 = 含稅_ch.Checked : 運費 = 司機運費_tb.Text PA1 = 流水號_tb.Text : PA2 = 單號_tb.Text : PA3 = 客戶編號_tb.Text : PA4 = 流水號_tb.Text : PA5 = 送貨地點_cb.Text : NU1 = 司機運費_tb.Text : NU2 = 管銷費用_tb.Text NU3 = 稅金_tb.Text : NU4 = 刷卡傭金_tb.Text : NU5 = 銷售合計_tb.Text : BL7 = 轉高層_cb.Checked : SQL5 = ", 轉高層 = N'" & BL7 & "', 稅金另扣 = N'" & 稅金25_tb.Text & "'" SQL_銷售控制表_修改() : Exit For '--------------------資料修改 End If Next : Set_清單1() End Sub Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else If 項次3_tb.Text = "" Then MsgBox("沒有選擇收款事項，無法作業。") Else If 刷卡可刪除_ch.Checked = False Then If 項次3_tb.Text = "0" Then MsgBox("不能刪除 [未收餘額] 或 [刷卡] 選項!!") Else Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then PA = 銷售收款流水號_tb.Text SQL_銷售收款事項_刪除() : Set_清單6() End If End If ElseIf 刷卡可刪除_ch.Checked = True Then Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then PA = 銷售收款流水號_tb.Text SQL_銷售收款事項_刪除() : Set_清單6() End If End If 刷卡可刪除_ch.Checked = False End If End If End If End Sub Private Sub 刷卡收款_bt_Click(sender As Object, e As EventArgs) Handles 刷卡收款_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else SQL_銷售收款事項_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If PA1 = ESTR PA = 單號_tb.Text SQL_銷售收款事項_最後一筆項次() If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If PA2 = ESTR SQL_銷售收款事項_新增3() For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單6() 刷卡控制 = True : 含稅_ch.Checked = True : 刷卡控制 = False End If End Sub Private Sub 新增一筆收款事項_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆收款事項_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else SQL_銷售收款事項_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If PA1 = ESTR SQL_銷售收款事項_最後一筆項次() If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If PA2 = ESTR : PA = 單號_tb.Text SQL_銷售收款事項_新增2() For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條() PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value SQL_銷售收款事項_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單6() End If End If End Sub Private Sub 讀取標準成本_bt_Click(sender As Object, e As EventArgs) Handles 讀取標準成本_bt.Click For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 資料數 = 銷售明細_dgv.Rows.Count : MyModule1.進度條() PA12 = 銷售明細_dgv.Rows(i).Cells("料號").Value SQL_銷售明細表_成本讀取() If dr.Read() Then : 銷售明細_dgv.Rows(i).Cells("成本").Value = dr("成本") Else : 銷售明細_dgv.Rows(i).Cells("成本").Value = 0 End If : conn.Close() : Set_合記計算() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 End Sub Private Sub 轉財務3_bt_Click(sender As Object, e As EventArgs) Handles 轉財務3_bt.Click Dim 開啟選擇 As Boolean For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then If 收款事項_dgv("金額", i).Value.ToString = "0" Then 開啟選擇 = True : Exit For Else 開啟選擇 = False : Exit For End If End If Next If 收款事項_dgv.Rows.Count > 0 Then If 開啟選擇 = True Then : 應收帳款已收.ShowDialog() : Else : 應收帳款未收.ShowDialog() : End If End If End Sub Private Sub Reset_bt_Click(sender As Object, e As EventArgs) Handles Reset_bt.Click Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer 售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0" 司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" If 稅金另算有資料 = False Then : 稅金25_tb.Text = "0" : End If '-------001----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value End If Next 刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.02)) '-------002----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value 售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value) If 銷售明細_dgv("無管銷", i).Value = False Then If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) End If End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value End If If 銷售明細_dgv("含稅", i).Value = True Then 稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)) End If Next 管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料 If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then 通知_lb.Text = "無稅金" ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then 通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" 稅金_tb.Text = CLng(刷卡總和_tb.Text) / 21 : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金" ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。" End If If 稅金存檔 <> CLng(稅金_tb.Text) Then 稅金_tb.Text = 稅金存檔 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) 銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text) ElseIf 稅金存檔 = CLng(稅金_tb.Text) Then 稅金_tb.Text = 稅金存檔 銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text) 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) End If If 稅金另算有資料 = False Then '稅金25_tb.Text = CLng(稅金_tb.Text) / 2 : End If '-------003----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value 支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value Next 額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text) '-------004----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Dim 金額 As Integer = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString <> "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then 收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額 End If Next '-------005----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then 司機運費_tb.Text = "0" Else If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_cb.Text) Then 司機運費_tb.Text = 最低運費_cb.Text ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then 司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3 End If End If 存檔1() '-------006----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) - CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + CLng(稅金25_tb.Text) If 銷售衍生運費_dgv.Rows.Count > 0 Then For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value Next End If '-------007----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0") 收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0") 司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0") 物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0") 刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0") End Sub Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged 銷售單據_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 銷售明細_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 銷售衍生運費_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 區域庫存_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 收款事項_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 銷售備註_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) 物料清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value) End Sub Private Sub Reset1_bt_Click(sender As Object, e As EventArgs) Handles Reset1_bt.Click Dim 不含1類銷售小記 As Integer : Dim 金額1 As Integer = 0 : Dim 無管物料 As Integer 稅金另算有資料 = False 售價小計_tb.Text = "0" : 稅金_tb.Text = "0" : 銷售合計_tb.Text = "0" : 收入小計_tb.Text = "0" : 支出小計_tb.Text = "0" : 額外收支_tb.Text = "0" : 物料成本_tb.Text = "0" 司機運費_tb.Text = "0" : 管銷費用_tb.Text = "0" : 其他成本_tb.Text = "0" : 刷卡總和_tb.Text = "0" : 刷卡稅金_tb.Text = "0" : 刷卡傭金_tb.Text = "0" If 稅金另算有資料 = False Then : 稅金25_tb.Text = "0" : End If '-------001----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 刷卡總和_tb.Text = CLng(刷卡總和_tb.Text) + 收款事項_dgv("金額", i).Value End If Next 刷卡稅金_tb.Text = CInt(CLng(CLng(刷卡總和_tb.Text) * 0.05)) : 刷卡傭金_tb.Text = CInt(CLng(刷卡總和_tb.Text) * 0.02) '-------002----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 銷售合計_tb.Text = CLng(銷售合計_tb.Text) + 銷售明細_dgv("售價", i).Value 售價小計_tb.Text = CLng(售價小計_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value) If 銷售明細_dgv("無管銷", i).Value = False Then If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 無管物料 = 無管物料 + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) End If End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) <> "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 物料成本_tb.Text = CLng(物料成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) 不含1類銷售小記 = 不含1類銷售小記 + 銷售明細_dgv("售價", i).Value End If If Strings.Left(銷售明細_dgv("料號", i).Value.ToString, 4) = "1001" Then If IsDBNull(銷售明細_dgv("數量", i).Value) = True Then : 銷售明細_dgv("數量", i).Value = "0" : End If If IsDBNull(銷售明細_dgv("成本", i).Value) = True Then : 銷售明細_dgv("成本", i).Value = "0" : End If 其他成本_tb.Text = CLng(其他成本_tb.Text) + (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value) '不含1類銷售小記 = 不含1類銷售小記 - 銷售明細_dgv("成本", i).Value End If If 銷售明細_dgv("含稅", i).Value = True Then 稅金_tb.Text = CLng(稅金_tb.Text) + ((銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value * 1.05) - (銷售明細_dgv("數量", i).Value * 銷售明細_dgv("單價", i).Value)) End If Next 管銷費用_tb.Text = 無管物料 * 1.06 - 無管物料 銷售合計_tb.Text = CLng(售價小計_tb.Text) + CLng(稅金_tb.Text) If CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) = 0 Then 通知_lb.Text = "無稅金" ElseIf CLng(稅金_tb.Text) = 0 And CLng(刷卡稅金_tb.Text) <> 0 Then 通知_lb.Text = "因清單中沒有打勾含稅，但有刷卡帶入的稅金，所以稅金以刷卡稅金為主" 稅金_tb.Text = CLng(刷卡總和_tb.Text) / 21 : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) : 售價小計_tb.Text = CLng(銷售合計_tb.Text) - CLng(稅金_tb.Text) ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) > CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "因售價稅金大於刷卡稅金，計算正常，利潤中扣除刷卡傭金" ElseIf (CLng(稅金_tb.Text) <> 0 Or CLng(刷卡稅金_tb.Text) <> 0) And CLng(稅金_tb.Text) < CLng(刷卡稅金_tb.Text) Then 通知_lb.Text = "刷卡稅金大於自動計算後的稅金，邏輯有誤，請從新拆售價。" End If 稅金存檔 = CLng(稅金_tb.Text) If 稅金另算有資料 = False Then '稅金25_tb.Text = CLng(稅金_tb.Text) / 2 End If '-------003----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 收入小計_tb.Text = CLng(收入小計_tb.Text) + 銷售備註_dgv("收入", i).Value 支出小計_tb.Text = CLng(支出小計_tb.Text) + 銷售備註_dgv("支出", i).Value Next 額外收支_tb.Text = CLng(收入小計_tb.Text) - CLng(支出小計_tb.Text) '-------004----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Dim 金額 As Integer = 0 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("真項次", i).Value.ToString <> "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then 金額 = 金額 + 收款事項_dgv("金額", i).Value ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then 收款事項_dgv("金額", i).Value = CInt(CLng(銷售合計_tb.Text)) - 金額 End If Next '-------005----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- If 送貨地點_cb.Text = "" Or 送貨地點_cb.Text = "自取" Or 最低運費_cb.Text = "" Or 最低售價_cb.Text = "" Then 司機運費_tb.Text = "0" Else If 運費 = 0 Then If (不含1類銷售小記 - CLng(其他成本_tb.Text)) <= CLng(最低售價_cb.Text) Then 司機運費_tb.Text = 最低運費_cb.Text ElseIf (不含1類銷售小記 - CLng(其他成本_tb.Text)) > CLng(最低售價_cb.Text) Then 司機運費_tb.Text = (不含1類銷售小記 - CLng(稅金_tb.Text) - CLng(刷卡傭金_tb.Text) - CLng(其他成本_tb.Text)) / 100 * 3 End If Else 司機運費_tb.Text = 運費 End If End If '-------006----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 預估利潤_tb.Text = CLng(售價小計_tb.Text) + CLng(額外收支_tb.Text) - CLng(其他成本_tb.Text) - CLng(物料成本_tb.Text) - CLng(司機運費_tb.Text) - CLng(管銷費用_tb.Text) - CLng(刷卡傭金_tb.Text) + CLng(稅金25_tb.Text) If 銷售衍生運費_dgv.Rows.Count > 0 Then For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 預估利潤_tb.Text = CLng(預估利潤_tb.Text) - 銷售衍生運費_dgv.Rows(i).Cells("支出").Value Next End If '-------007----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 售價小計_tb.Text = Strings.Format(CLng(售價小計_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(CLng(稅金_tb.Text), "#,##0") : 銷售合計_tb.Text = Strings.Format(CLng(銷售合計_tb.Text), "#,##0") 收入小計_tb.Text = Strings.Format(CLng(收入小計_tb.Text), "#,##0") : 支出小計_tb.Text = Strings.Format(CLng(支出小計_tb.Text), "#,##0") : 額外收支_tb.Text = Strings.Format(CLng(額外收支_tb.Text), "#,##0") 司機運費_tb.Text = Strings.Format(CLng(司機運費_tb.Text), "#,##0") : 管銷費用_tb.Text = Strings.Format(CLng(管銷費用_tb.Text), "#,##0") : 預估利潤_tb.Text = Strings.Format(CLng(預估利潤_tb.Text), "#,##0") 物料成本_tb.Text = Strings.Format(CLng(物料成本_tb.Text), "#,##0") : 其他成本_tb.Text = Strings.Format(CLng(其他成本_tb.Text), "#,##0") : 刷卡總和_tb.Text = Strings.Format(CLng(刷卡總和_tb.Text), "#,##0") 刷卡稅金_tb.Text = Strings.Format(CLng(刷卡稅金_tb.Text), "#,##0") : 刷卡傭金_tb.Text = Strings.Format(CLng(刷卡傭金_tb.Text), "#,##0") : 稅金25_tb.Text = Strings.Format(CLng(稅金25_tb.Text), "#,##0.0") End Sub Private Sub 司機運費_tb_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 司機運費_tb.KeyPress If e.KeyChar = Chr(13) Then 運費 = 司機運費_tb.Text 存檔1() : Set_合記計算() End If End Sub Private Sub 已審核資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核資料_ch.CheckedChanged Set_清單1() End Sub Private Sub 隱藏_bt_Click(sender As Object, e As EventArgs) Handles 隱藏_bt.Click 顯示_bt.Enabled = True : 隱藏_bt.Enabled = False Panel2.Visible = False Panel3.Location = New Point(2, 2) NU1 = Panel3.Size.Width NU2 = Panel3.Size.Height NU1 = Panel3.Size.Width + 548 Panel3.Size = New Size(NU1, NU2) End Sub Private Sub 查_bt_Click(sender As Object, e As EventArgs) Handles 查_bt.Click If 銷售單據_dgv.Rows.Count > 2999 Then MsgBox("清單數量超過3000個，清通知系統管理員修改程式!!") Else For I As Integer = 0 To 3000 : PPBB(I) = "" : Next For I As Integer = 0 To 銷售單據_dgv.Rows.Count - 1 PPBB(I) = 銷售單據_dgv("單號", I).Value.ToString : NN1 = I Next 下拉清單_1.ShowDialog() For I As Integer = 0 To 銷售單據_dgv.Rows.Count - 1 If PPAA = 銷售單據_dgv("單號", I).Value.ToString Then 選取位置 = I : Exit For End If Next : 銷售單據_讀取() End If End Sub Private Sub 顯示_bt_Click(sender As Object, e As EventArgs) Handles 顯示_bt.Click 顯示_bt.Enabled = False : 隱藏_bt.Enabled = True Panel2.Visible = True Panel3.Location = New Point(551, 2) NU1 = Panel3.Size.Width NU2 = Panel3.Size.Height NU1 = Panel3.Size.Width - 548 Panel3.Size = New Size(NU1, NU2) End Sub Private Sub Panel3_Size(sender As Object, e As EventArgs) Handles Panel3.SizeChanged If Panel3.Size.Width > 914 Then 物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(300, 167) Else 物料圖1_pb.Visible = False End If End Sub Private Sub 新增衍生運費_bt_Click(sender As Object, e As EventArgs) Handles 新增衍生運費_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else PA = 單號_tb.Text SQL_銷售衍生運費_最後一筆資料() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = "SE" & "00000000" & EDR ElseIf EDR > 9 And EDR < 100 Then : ESTR = "SE" & "0000000" & EDR ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "SE" & "000000" & EDR ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "SE" & "00000" & EDR ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "SE" & "0000" & EDR ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "SE" & "000" & EDR ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "SE" & "00" & EDR ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SE" & "0" & EDR ElseIf EDR > 99999999 Then : ESTR = "SE" & EDR : End If PA1 = ESTR SQL_銷售衍生運費_新增() For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 資料數 = 銷售衍生運費_dgv.Rows.Count : MyModule1.進度條() PA10 = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value : PA11 = 銷售衍生運費_dgv.Rows(i).Cells("資料流水號").Value NU1 = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value SQL_銷售衍生運費_修改() : conn.Close() Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 Set_清單7() End If End If End Sub Private Sub 刪除衍生運費_bt_Click(sender As Object, e As EventArgs) Handles 刪除衍生運費_bt.Click If 流水號_tb.Text = "" Then MsgBox("沒有銷售單號，無法作業。") Else If 客戶編號_tb.Text = "" Then MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下 [客戶驗證] ，系統會自動判斷客戶資訊。") Else Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel) If aa1 = MsgBoxResult.Ok Then PA = 運費資料流水號_tb.Text SQL_銷售衍生費用_刪除() : Set_清單7() End If End If End If End Sub Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0 xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application) xlApp.Visible = True xlApp.DisplayAlerts = True xlApp.Application.WindowState = xlMaximized xlBook = xlApp.Workbooks.Add '-------------------------------------------------------------------------------------------------------------------- xlSheet = NewMethod(xlBook) '-------------------------------- xlBook.Activate() xlSheet.Activate() '------------------------------------------------------------- For a As Integer = 0 To 收款事項_dgv.Rows.Count - 1 If 收款事項_dgv("內容", a).Value.ToString = "未收餘額" Then '未收餘額 N2 = 收款事項_dgv("金額", a).Value End If '----------------------------------------------------------------------------------------------------判斷出貨 If 收款事項_dgv("金額", a).Value = "0" And 收款事項_dgv("內容", a).Value.ToString = "未收餘額" Then 變數 = "Y" ElseIf 收款事項_dgv("金額", a).Value <> 0 And 收款事項_dgv("內容", a).Value.ToString = "未收餘額" Then 變數 = "N" End If Next xlSheet.Cells(1, 6) = "送貨單成本估計" : xlSheet.Cells(1, 10) = "單號:" & 單號_tb.Text xlSheet.Cells(3, 1) = "訂購日期:" : xlSheet.Cells(3, 2) = 開單日期_dtp.Value : xlSheet.Cells(3, 4) = "出貨日期" : xlSheet.Cells(3, 5) = 交貨日期_dtp.Value xlSheet.Cells(3, 7) = "出貨時間:" : xlSheet.Cells(3, 9) = "原始編號:" & 單號_tb.Text : xlSheet.Cells(3, 12) = "出貨:" xlSheet.Cells(3, 13) = 變數 : xlSheet.Cells(4, 1) = "客戶姓名:" : xlSheet.Cells(4, 2) = 客戶_tb.Text : xlSheet.Cells(4, 4) = "客戶地址:" xlSheet.Cells(4, 5) = 住址_tb.Text : xlSheet.Cells(5, 1) = "客戶電話:" : xlSheet.Cells(5, 2) = "'" + 電話1_tb.Text : xlSheet.Cells(5, 4) = "訂金:" xlSheet.Cells(5, 5) = "0" : xlSheet.Cells(5, 6) = "刷卡" : xlSheet.Cells(5, 7) = "0" : xlSheet.Cells(5, 8) = "支票:" xlSheet.Cells(5, 9) = "0" : xlSheet.Cells(5, 10) = "現金:" : xlSheet.Cells(5, 11) = "0" : xlSheet.Cells(5, 12) = "傭金:" xlSheet.Cells(5, 13) = "0" : xlSheet.Cells(6, 1) = "業務員:" : xlSheet.Cells(6, 2) = 業務_cb.Text : xlSheet.Cells(6, 4) = "稅金:" xlSheet.Cells(6, 5) = CInt(稅金_tb.Text) : xlSheet.Cells(6, 6) = "手續:" : xlSheet.Cells(6, 7) = 刷卡傭金_tb.Text : xlSheet.Cells(6, 8) = "總額:" xlSheet.Cells(6, 9) = 銷售合計_tb.Text : xlSheet.Cells(6, 10) = "餘額:" : xlSheet.Cells(6, 11) = N2 : xlSheet.Cells(8, 2) = "品號" xlSheet.Cells(8, 5) = "品名規格" : xlSheet.Cells(8, 8) = "數量" : xlSheet.Cells(8, 9) = "單價" : xlSheet.Cells(8, 11) = "金額" : xlSheet.Cells(8, 12) = "含管銷" xlSheet.Cells(8, 13) = "成本價" : xlSheet.Cells(8, 14) = "廠商名稱" If CInt(稅金25_tb.Text) = 0 Then : Else : xlSheet.Cells(7, 4) = "稅金2.5%:" : xlSheet.Cells(7, 5) = CInt(稅金25_tb.Text) : End If For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 xlSheet.Cells(i + 9, 1) = 銷售明細_dgv.Rows(i).Cells("料號").Value xlSheet.Cells(i + 9, 3) = 銷售明細_dgv.Rows(i).Cells("品名").Value & " " & 銷售明細_dgv.Rows(i).Cells("備註").Value xlSheet.Cells(i + 9, 8) = 銷售明細_dgv.Rows(i).Cells("數量").Value : xlSheet.Cells(i + 9, 9) = 銷售明細_dgv.Rows(i).Cells("單價").Value xlSheet.Cells(i + 9, 11) = 銷售明細_dgv.Rows(i).Cells("售價").Value : xlSheet.Cells(i + 9, 13) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 銷售明細_dgv.Rows(i).Cells("數量").Value xlSheet.Cells(i + 9, 12) = 銷售明細_dgv.Rows(i).Cells("成本").Value * 1.06 * 銷售明細_dgv.Rows(i).Cells("數量").Value PA30 = Strings.Left(銷售明細_dgv.Rows(i).Cells("料號").Value.ToString, 4) : Set_料號轉簡稱() : xlSheet.Cells(i + 9, 14) = 轉換_tb.Text With xlApp.Selection .Font.Bold = True End With N1 = i + 9 Next xlSheet.Cells(N1 + 3, 1) = "銷貨總額:" : xlSheet.Cells(N1 + 3, 2) = 銷售合計_tb.Text : xlSheet.Cells(N1 + 3, 4) = "成本:" : xlSheet.Cells(N1 + 3, 5) = 物料成本_tb.Text xlSheet.Cells(N1 + 3, 7) = "運費:" : xlSheet.Cells(N1 + 3, 8) = 司機運費_tb.Text : xlSheet.Cells(N1 + 3, 9) = "管銷費用:" : xlSheet.Cells(N1 + 3, 10) = 管銷費用_tb.Text xlSheet.Cells(N1 + 3, 13) = "毛利:" : xlSheet.Cells(N1 + 3, 14) = 預估利潤_tb.Text xlSheet.Cells(N1 + 6, 1) = "項次" : xlSheet.Cells(N1 + 6, 2) = "備註" : xlSheet.Cells(N1 + 6, 13) = "收入" : xlSheet.Cells(N1 + 6, 14) = "支出" For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1 xlSheet.Cells(i + N1 + 7, 1) = 銷售備註_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + N1 + 7, 2) = 銷售備註_dgv.Rows(i).Cells("備註").Value xlSheet.Cells(i + N1 + 7, 13) = 銷售備註_dgv.Rows(i).Cells("收入").Value : xlSheet.Cells(i + N1 + 7, 14) = 銷售備註_dgv.Rows(i).Cells("支出").Value N3 = i + N1 + 7 Next If N3 = 0 Then : N3 = N1 + 7 : End If xlSheet.Cells(N3 + 2, 1) = "項次" : xlSheet.Cells(N3 + 2, 2) = "衍生運費備註" : xlSheet.Cells(N3 + 2, 14) = "支出" For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1 xlSheet.Cells(i + N3 + 3, 1) = 銷售衍生運費_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + N3 + 3, 2) = 銷售衍生運費_dgv.Rows(i).Cells("運費備註").Value xlSheet.Cells(i + N3 + 3, 14) = 銷售衍生運費_dgv.Rows(i).Cells("支出").Value N4 = i + N3 + 5 Next If N4 = 0 Then : N4 = N3 + 5 : End If BB(xlApp, xlSheet) xlApp.Cells.Select() xlApp.Application.WindowState = xlMinimized MsgBox("列印完成") End Sub Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet) End Function Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet) Dim aa As Integer xlSheet.Cells.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 '------------------------------------------------------------------------------------------------------------------- myExcel.Selection.ColumnWidth = 12.5 xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 11 xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 11 xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 11 xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 11 xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 10.75 xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10.88 xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 11 xlSheet.Columns("N:N").Select : myExcel.Selection.ColumnWidth = 30.63 xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 5 xlSheet.Columns("E:F").Select : myExcel.Selection.ColumnWidth = 10 xlSheet.Columns("L:L").Select : myExcel.Selection.ColumnWidth = 12.5 '---------調數字 xlSheet.Columns("I:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 " xlSheet.Columns("K:K").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 " xlSheet.Columns("L:L").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 " xlSheet.Columns("M:M").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;[紅色]-#,##0 " '--------------------------------------------------------------------------------------------------------------------- xlSheet.Range("A8:N8").Select() '畫線 myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With xlSheet.Range("A" & N1 + 6 & ":N" & N1 + 6).Select() '畫線 myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With xlSheet.Range("A" & N3 + 2 & ":N" & N3 + 2).Select() '畫線 myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlDouble : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThick : End With myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With '---------------------------------------------------------------------------------------------------------------------------------------------------------------- xlSheet.Range("F1:K1").Select() '固定的格式 調整文字靠左、合併儲存格 With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 26 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With xlSheet.Range("F1:I1").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 = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("B3").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("B3: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 With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("B4:C4").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 xlSheet.Range("B5:C5").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 xlSheet.Range("B6:C6").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 xlSheet.Range("E3:F3").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 xlSheet.Range("E5").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("E6").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("G5").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("G6").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("I5").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("I6").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("K5").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("K6").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("M5").Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("E4:J4").Select() : myExcel.Selection.Merge : xlSheet.Range("A8:B8").Select() : myExcel.Selection.Merge With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("C8:G8").Select() : myExcel.Selection.Merge With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With xlSheet.Range("H8").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("I8").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("K8").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("M8").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("N8").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("L8").Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With '--------------------------------------------------------------------------------------------------------------------------- For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1 xlSheet.Range("A" & i + 9 & ":B" & i + 9 & "").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("C" & i + 9 & ":G" & i + 9 & "").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("N" & i + 9 & "").Select() With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With aa = i + 9 Next '--------------------------------------畫底下的線----------------------------------------------------------------------------------------------------------- xlSheet.Range("A" & aa + 3 & ":N" & aa + 3 & "").Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With myExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone xlSheet.Range("A" & N4 & ":N" & N4 & "").Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeLeft).LineStyle = xlNone With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With myExcel.Selection.Borders(xlEdgeBottom).LineStyle = xlNone : myExcel.Selection.Borders(xlEdgeRight).LineStyle = xlNone myExcel.Selection.Borders(xlInsideVertical).LineStyle = xlNone : myExcel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone xlSheet.Range("M" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("N" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("K" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("J" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("H" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("G" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("E" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("D" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("B" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Range("A" & aa + 3).Select() With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With xlSheet.Columns("A:A").Select With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 .ShrinkToFit = False : .ReadingOrder = xlContext : End With xlSheet.Columns("N:N").Select : myExcel.Columns("N:N").EntireColumn.AutoFit ''---------------------------------------格線取消----------------------------------------------------------------------------------------------------------- myExcel.ActiveWindow.DisplayGridlines = False '----------------------------------------列印規格----------------------------------------------------------------------------------------------------------- xlSheet.Columns("A:N").Select 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 = "" : .RightFooter = "" .LeftMargin = myExcel.Application.InchesToPoints(0.25) : .RightMargin = myExcel.Application.InchesToPoints(0.25) : .TopMargin = myExcel.Application.InchesToPoints(0.75) .BottomMargin = myExcel.Application.InchesToPoints(0.75) : .HeaderMargin = myExcel.Application.InchesToPoints(0.3) : .FooterMargin = myExcel.Application.InchesToPoints(0.3) .PrintHeadings = False : .PrintGridlines = False : .PrintQuality = 1200 : .CenterHorizontally = False : .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 End Sub End Class