應收帳款設計，未完成

Signed-off-by: B70340 <b70340@gmail.com>

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -899,7 +899,7 @@ Module SQL_Module
         ConnOpen() : SQL1 = "SELECT 會計科目 FROM 會計科目 WHERE (層級 LIKE '1') AND (停用 IS NULL OR 停用 = 0) ORDER BY  會計科目" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支_決算表_彙總借貸()
-        ConnOpen() : SQL1 = "SELECT 抵銷科目 FROM dbo.會計科目 WHERE (層級 LIKE 1) AND (會計科目 LIKE '" & PA1 & "')" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 抵銷科目 FROM 會計科目 WHERE (層級 LIKE 1) AND (會計科目 LIKE '" & PA1 & "')" : CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單_對帳表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支_決算表_清單()
@@ -2114,4 +2114,24 @@ Module SQL_Module
     Friend Sub SQL_系統通用變數管理刪除()
         SQL1 = "DELETE FROM 通用預設值管理表一 WHERE (流水號 = N'" & PA1 & "')"
     End Sub
+    '---------------------應收帳款控制表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_應收賬款清單()
+        If 應收帳款控制表.CheckBox3.Checked = False Then
+            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
+        ElseIf 應收帳款控制表.CheckBox3.Checked = True Then
+            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
+                            (倉儲明細表.應收立帳 IS NULL OR 倉儲明細表.應收立帳 = 0)"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 
+                            物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 倉儲明細表.出庫, 
+                            倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 
+                            倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.收款狀態 
+                FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 LEFT OUTER JOIN
+                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "
+                ORDER BY    倉儲明細表.單據編號, 倉儲明細表.出庫日期"
+        CmdSet_For_DGV()
+    End Sub
 End Module

MaoOrange-Hongji/財務系統管理/應收帳款控制表.Designer.vb

@@ -22,8 +22,9 @@ Partial Class 應收帳款控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
@@ -31,17 +32,68 @@ Partial Class 應收帳款控制表
         Me.Label4 = New System.Windows.Forms.Label()
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
+        'DataGridView1
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(7, 82)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(1234, 517)
+        Me.DataGridView1.TabIndex = 1116
+        '
         'Button1
         '
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(333, 6)
+        Me.Button1.Location = New System.Drawing.Point(7, 54)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(64, 23)
+        Me.Button1.Size = New System.Drawing.Size(87, 23)
         Me.Button1.TabIndex = 1120
         Me.Button1.Text = "上個月"
         Me.Button1.UseVisualStyleBackColor = True
@@ -49,7 +101,7 @@ Partial Class 應收帳款控制表
         '一般月
         '
         Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(270, 8)
+        Me.一般月.Location = New System.Drawing.Point(130, 31)
         Me.一般月.Name = "一般月"
         Me.一般月.Size = New System.Drawing.Size(63, 20)
         Me.一般月.TabIndex = 1123
@@ -61,7 +113,7 @@ Partial Class 應收帳款控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(211, 8)
+        Me.會計月.Location = New System.Drawing.Point(20, 31)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
         Me.會計月.TabIndex = 1122
@@ -72,9 +124,9 @@ Partial Class 應收帳款控制表
         '
         Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(398, 6)
+        Me.Button2.Location = New System.Drawing.Point(117, 55)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(64, 23)
+        Me.Button2.Size = New System.Drawing.Size(87, 23)
         Me.Button2.TabIndex = 1121
         Me.Button2.Text = "下個月"
         Me.Button2.UseVisualStyleBackColor = True
@@ -82,7 +134,7 @@ Partial Class 應收帳款控制表
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(99, 10)
+        Me.Label4.Location = New System.Drawing.Point(96, 8)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 1119
@@ -92,7 +144,7 @@ Partial Class 應收帳款控制表
         '
         Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(121, 6)
+        Me.DateTimePicker2.Location = New System.Drawing.Point(117, 4)
         Me.DateTimePicker2.Name = "DateTimePicker2"
         Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
         Me.DateTimePicker2.TabIndex = 1118
@@ -100,35 +152,354 @@ Partial Class 應收帳款控制表
         'DateTimePicker1
         '
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(10, 6)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(7, 4)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
         Me.DateTimePicker1.TabIndex = 1117
         '
-        'DataGridView1
+        'TextBox5
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(14, 59)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1225, 545)
-        Me.DataGridView1.TabIndex = 1116
+        Me.TextBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox5.Location = New System.Drawing.Point(657, 365)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(190, 23)
+        Me.TextBox5.TabIndex = 1195
+        '
+        'TextBox4
+        '
+        Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox4.Location = New System.Drawing.Point(657, 336)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(190, 23)
+        Me.TextBox4.TabIndex = 1193
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.ForeColor = System.Drawing.Color.Red
+        Me.Label8.Location = New System.Drawing.Point(852, 48)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(385, 32)
+        Me.Label8.TabIndex = 1191
+        Me.Label8.Text = "選擇銷售單號執行開立傳票時實收金額會自動以會計科目-應收帳款立帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "未收餘額如果不為零則需要手動選擇會計科目。推薦使用-應收賬款折讓" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox1.Location = New System.Drawing.Point(657, 307)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(190, 23)
+        Me.TextBox1.TabIndex = 1190
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label7.Location = New System.Drawing.Point(390, 57)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.TabIndex = 1189
+        Me.Label7.Text = "未收餘額"
+        '
+        'NumericUpDown2
+        '
+        Me.NumericUpDown2.Location = New System.Drawing.Point(446, 55)
+        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NumericUpDown2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NumericUpDown2.Name = "NumericUpDown2"
+        Me.NumericUpDown2.Size = New System.Drawing.Size(100, 23)
+        Me.NumericUpDown2.TabIndex = 1188
+        Me.NumericUpDown2.ThousandsSeparator = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(390, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1187
+        Me.Label2.Text = "實收金額"
+        '
+        'NumericUpDown1
+        '
+        Me.NumericUpDown1.Location = New System.Drawing.Point(446, 29)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NumericUpDown1.Name = "NumericUpDown1"
+        Me.NumericUpDown1.Size = New System.Drawing.Size(100, 23)
+        Me.NumericUpDown1.TabIndex = 1186
+        Me.NumericUpDown1.ThousandsSeparator = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(390, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1185
+        Me.Label1.Text = "應收金額"
+        '
+        'Button6
+        '
+        Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button6.ForeColor = System.Drawing.Color.Olive
+        Me.Button6.Location = New System.Drawing.Point(1087, 2)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(82, 47)
+        Me.Button6.TabIndex = 1184
+        Me.Button6.Text = "依據單號取消立帳選擇"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox2.Location = New System.Drawing.Point(446, 4)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox2.TabIndex = 1183
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.Location = New System.Drawing.Point(351, 29)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
+        Me.CheckBox1.TabIndex = 1182
+        Me.CheckBox1.Text = "補"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(262, 28)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(85, 23)
+        Me.DateTimePicker3.TabIndex = 1180
+        '
+        'Button5
+        '
+        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button5.Location = New System.Drawing.Point(1004, 2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(82, 47)
+        Me.Button5.TabIndex = 1179
+        Me.Button5.Text = "列印帳款清單"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button4.Location = New System.Drawing.Point(282, 55)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(109, 23)
+        Me.Button4.TabIndex = 1178
+        Me.Button4.Text = "開立收支單(傳票)"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'ComboBox7
+        '
+        Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox7.FormattingEnabled = True
+        Me.ComboBox7.Location = New System.Drawing.Point(657, 55)
+        Me.ComboBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox7.Name = "ComboBox7"
+        Me.ComboBox7.Size = New System.Drawing.Size(190, 24)
+        Me.ComboBox7.TabIndex = 1177
+        '
+        'TextBox9
+        '
+        Me.TextBox9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox9.Location = New System.Drawing.Point(549, 55)
+        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(105, 23)
+        Me.TextBox9.TabIndex = 1176
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        Me.ComboBox4.Location = New System.Drawing.Point(769, 29)
+        Me.ComboBox4.Name = "ComboBox4"
+        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
+        Me.ComboBox4.TabIndex = 1175
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(657, 29)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(109, 24)
+        Me.ComboBox3.TabIndex = 1174
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(769, 3)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(78, 24)
+        Me.ComboBox1.TabIndex = 1173
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        Me.ComboBox5.Location = New System.Drawing.Point(657, 3)
+        Me.ComboBox5.Name = "ComboBox5"
+        Me.ComboBox5.Size = New System.Drawing.Size(109, 24)
+        Me.ComboBox5.TabIndex = 1172
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        Me.ComboBox6.Location = New System.Drawing.Point(657, 276)
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox6.Name = "ComboBox6"
+        Me.ComboBox6.Size = New System.Drawing.Size(190, 24)
+        Me.ComboBox6.TabIndex = 1170
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(550, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(104, 48)
+        Me.Label5.TabIndex = 1171
+        Me.Label5.Text = "未收餘額不為零時" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "需要選擇未收餘額" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "立帳的會計科目"
+        '
+        'Button12
+        '
+        Me.Button12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button12.ForeColor = System.Drawing.Color.Olive
+        Me.Button12.Location = New System.Drawing.Point(1170, 26)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(74, 23)
+        Me.Button12.TabIndex = 1169
+        Me.Button12.Text = "全部取消"
+        Me.Button12.UseVisualStyleBackColor = True
+        '
+        'Button13
+        '
+        Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button13.ForeColor = System.Drawing.Color.Olive
+        Me.Button13.Location = New System.Drawing.Point(1170, 2)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(74, 23)
+        Me.Button13.TabIndex = 1168
+        Me.Button13.Text = "全部選擇"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
+        'TextBox3
+        '
+        Me.TextBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox3.Location = New System.Drawing.Point(262, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(126, 23)
+        Me.TextBox3.TabIndex = 1166
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(206, 7)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
+        Me.Label3.TabIndex = 1167
+        Me.Label3.Text = "單據號碼"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label6.Location = New System.Drawing.Point(207, 31)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1181
+        Me.Label6.Text = "立帳日期"
+        '
+        'CheckBox2
+        '
+        Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(887, 5)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
+        Me.CheckBox2.TabIndex = 1192
+        Me.CheckBox2.Text = "列印多單選擇"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'CheckBox3
+        '
+        Me.CheckBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(887, 25)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
+        Me.CheckBox3.TabIndex = 1194
+        Me.CheckBox3.Text = "已立帳資料隱藏"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Items.AddRange(New Object() {"", "收現", "收票", "託收"})
+        Me.ComboBox2.Location = New System.Drawing.Point(210, 54)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(66, 24)
+        Me.ComboBox2.TabIndex = 1196
         '
         '應收帳款控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.NumericUpDown2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.ComboBox7)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.ComboBox4)
+        Me.Controls.Add(Me.ComboBox3)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.ComboBox5)
+        Me.Controls.Add(Me.ComboBox6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Button12)
+        Me.Controls.Add(Me.Button13)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.CheckBox2)
+        Me.Controls.Add(Me.CheckBox3)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
@@ -142,11 +513,13 @@ Partial Class 應收帳款控制表
         Me.Name = "應收帳款控制表"
         Me.Text = "應收帳款控制表"
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-
+    Friend WithEvents DataGridView1 As DataGridView
     Friend WithEvents Button1 As Button
     Friend WithEvents 一般月 As CheckBox
     Friend WithEvents 會計月 As CheckBox
@@ -154,5 +527,35 @@ Partial Class 應收帳款控制表
     Friend WithEvents Label4 As Label
     Friend WithEvents DateTimePicker2 As DateTimePicker
     Friend WithEvents DateTimePicker1 As DateTimePicker
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents NumericUpDown2 As NumericUpDown
+    Friend WithEvents Label2 As Label
+    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button6 As Button
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents ComboBox7 As ComboBox
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents ComboBox6 As ComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Button13 As Button
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents ComboBox2 As ComboBox
 End Class

MaoOrange-Hongji/財務系統管理/應收帳款控制表.vb

@@ -1,6 +1,355 @@
 Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports Microsoft.Office.Interop.Excel
 Public Class 應收帳款控制表
+    ReadOnly ds As New DataSet
+    Dim N1 As Integer : Dim 新項次 As String
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
+    Private Sub Set_賬款清單()
+        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
+        DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
+        SQL_應收賬款清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).FillWeight = 150 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).FillWeight = 100 : DataGridView1.Columns(3).Visible = False
+        DataGridView1.Columns(4).FillWeight = 80 : DataGridView1.Columns(5).FillWeight = 300 : DataGridView1.Columns(6).FillWeight = 80 : DataGridView1.Columns(7).FillWeight = 80
+        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 100 : DataGridView1.Columns(11).FillWeight = 100
+        DataGridView1.Columns(12).FillWeight = 150 : DataGridView1.Columns(13).FillWeight = 60 : DataGridView1.Columns(14).FillWeight = 50 : DataGridView1.Columns(15).Visible = False
+        DataGridView1.Columns(16).FillWeight = 50
+
+        DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.000"
+        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For I As Integer = 0 To 12 : DataGridView1.Columns(I).ReadOnly = True : Next : DataGridView1.Columns(14).ReadOnly = True
+        For I As Integer = 0 To DataGridView1.Rows.Count - 1
+            If DataGridView1.Rows(I).Cells("應收立帳").Value.ToString = "" Then : DataGridView1.Rows(I).Cells("應收立帳").Value = False : End If
+            DataGridView1.Rows(I).Cells("選擇").Value = False
+        Next
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_會計科目_第一階()
+        ComboBox5.Items.Clear() : ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox1.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        PA = ComboBox1.Text : SQL_會計科目_第二階()
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
+    End Sub
+    Private Sub ComboBox6下拉表單資料載入()
+        PA = ComboBox4.Text : SQL_會計科目_第三階()
+        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub 日期格式()
+        If 會計月.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+        End If
+    End Sub
+    Private Sub 預設關鍵字()
+        關鍵字編號 = "DV003" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
+    End Sub
     Private Sub 應收帳款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False
+        TextBox1.Text = "0" : TextBox2.Text = "0"
+        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : 日期格式() : Set_賬款清單()
+        預設關鍵字()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_賬款清單()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : Set_賬款清單()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
+        會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_賬款清單()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
+        會計月.Checked = False : 一般月.Checked = True : 日期格式() : Set_賬款清單()
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox1.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
+        ComboBox5.SelectedIndex = ComboBox1.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox6下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox6下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
+        ComboBox6.SelectedIndex = ComboBox7.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
+    End Sub
+    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
+        PA = TextBox9.Text : SQL_會計科目_關鍵字()
+        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If : PA = ""
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("單據編號").Value : TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("客戶").Value
+            ComboBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("收款狀態").Value.ToString
+            TextBox2.Text = "0" : TextBox1.Text = "0"
+            For I As Integer = 0 To DataGridView1.Rows.Count - 1
+                If CheckBox2.Checked = False Then
+                    DataGridView1.Rows(I).Cells("選擇").Value = False
+                End If
+
+                If TextBox3.Text = DataGridView1.Rows(I).Cells("單據編號").Value Then
+                    DataGridView1.Rows(I).Cells("選擇").Value = True
+                    TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(I).Cells("金額").Value
+                    TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(I).Cells("金額").Value
+                End If
+            Next
+            TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0")
+        End If
+    End Sub
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub
+        Else
+            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = True : Next i
+    End Sub
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = False : Next i
+    End Sub
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            If TextBox3.Text = DataGridView1.Rows(i).Cells("單據編號").Value.ToString Then
+                DataGridView1.Rows(i).Cells("應收立帳").Value = False
+            End If
+        Next i
+    End Sub
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
+    End Sub
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
+        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
+    End Sub
+    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
+        Set_賬款清單()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+        If ComboBox2.Text = "收現" Then
+            關鍵字編號 = "DV003" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
+        ElseIf ComboBox2.Text = "收票" Then
+            關鍵字編號 = "DV004" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
+        ElseIf ComboBox2.Text = "" Or ComboBox2.Text = "託收" Then
+            TextBox9.Text = ""
+        End If
+    End Sub
+    Private Sub Set_日期格式轉換()
+        If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
+        Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
+    End Sub
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If ComboBox2.Text = "" Or ComboBox2.Text = "託收" Then
+            MsgBox("需要選擇收現或是收票才能運行。")
+        Else
+            If CheckBox2.Checked = True Then
+                MsgBox("開立支付單(傳票)需要一張一張來，請重新選擇。")
+                CheckBox2.Checked = False
+                For I As Integer = 0 To DataGridView1.Rows.Count - 1
+                    DataGridView1.Rows(I).Cells("選擇").Value = False
+                Next
+            Else
+                If NumericUpDown1.Value = 0 Then
+                    MsgBox("實收金額不可為零。") : Exit Sub
+                Else
+                    If NumericUpDown2.Value = 0 Then : Else
+                        If ComboBox6.Text = "" Then
+                            MsgBox("未收款金額擇讓需要會計科目。") : Exit Sub
+                        Else
+                        End If
+                    End If
+                    Dim 確認 As Boolean = False
+                    For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                        If DataGridView1.Rows(i).Cells("選擇").Value = True Then
+                            MsgBox("該採銷售已經開立過傳票，如是之前開立有誤需要從新開立，請先點擊--依據單號取消立帳選擇--按鈕。如是因銷售退貨需要開立收支單(傳票)請先勾選--已立帳資料隱藏--再行操作。")
+                            Exit Sub
+                        End If
+                    Next
+                    If 確認 = False Then : MsgBox("沒有選擇任何一筆要轉收支帳(傳票)的銷售單號。")
+                    Else
+                        Dim NUM1 As Integer : Set_日期格式轉換()
+                        For ii As Integer = 1 To 999
+                            NUM1 = 0 + ii
+                            If NUM1 < 10 Then : TextBox4.Text = "OE-" & DTP1 & "-00" & NUM1
+                            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox4.Text = "OE-" & DTP1 & "-0" & NUM1
+                            ElseIf NUM1 > 99 Then : TextBox4.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox4.Text
+                            SQL_營運成本收支單申請_支付單號流水號()
+                            If dr.Read() Then : Else : ii = 999 : End If
+                        Next
+                        SQL_營運成本控制表新增()
+
+                        SQL_營運成本明細表項次新增查詢()
+                        If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+                        If NUM1 < 10 Then : 新項次 = "0" & NUM1
+                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                        關鍵字編號 = "DV001" : SQL_通用預設值管理查詢() : If dr.Read() Then : PA3 = dr("預設值") : End If
+                        PA1 = TextBox4.Text : PA2 = 新項次 : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應收帳款"
+                        NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0
+                        SQL_營運成本明細表新增()
+
+                        If NumericUpDown2.Value = 0 Then : Else
+                            SQL_營運成本明細表項次新增查詢()
+                            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+                            If NUM1 < 10 Then : 新項次 = "0" & NUM1
+                            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+
+                            PA1 = TextBox4.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 貨款折讓"
+                            NU1 = NumericUpDown2.Value * -1 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0
+                            SQL_營運成本明細表新增()
+                        End If
+                        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+                            If DataGridView1.Rows(i).Cells("選擇").Value = True Then
+                                PA6 = DataGridView1.Rows(i).Cells("資料流水號").Value
+                                SQL_應付賬款_倉儲明細應付立帳修改()
+                            End If
+                        Next i : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("財務收支單(傳票)申請完成，請通知主管審核。") : Set_賬款清單()
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        xlApp = CType(CreateObject("Excel.Application"), Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+        N1 = 0
+        If DataGridView1.Rows.Count = 0 Then : Else
+            xlSheet = NewMethod(xlBook)
+            xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應收帳款清單"
+            xlSheet.Cells(3, 1) = "單據編號" : xlSheet.Cells(3, 2) = "客戶" : xlSheet.Cells(3, 3) = "頁碼" : xlSheet.Cells(3, 4) = "品名" : xlSheet.Cells(3, 5) = "售價" : xlSheet.Cells(3, 6) = "匯率"
+            xlSheet.Cells(3, 7) = "出庫" : xlSheet.Cells(3, 8) = "金額" : xlSheet.Cells(3, 9) = "銷售接單" : xlSheet.Cells(3, 10) = "出庫日期" : xlSheet.Cells(3, 11) = "是否立帳"
+            xlSheet.Cells(2, 7) = "合計" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,H4:H9999)"
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                If DataGridView1.Rows(i).Cells("選擇").Value = True Then
+                    xlSheet.Cells(N1 + 4, 1) = DataGridView1.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView1.Rows(i).Cells("客戶").Value
+                    xlSheet.Cells(N1 + 4, 3) = DataGridView1.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView1.Rows(i).Cells("品名").Value
+                    xlSheet.Cells(N1 + 4, 5) = DataGridView1.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView1.Rows(i).Cells("匯率").Value
+                    xlSheet.Cells(N1 + 4, 7) = DataGridView1.Rows(i).Cells("出庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView1.Rows(i).Cells("金額").Value
+                    xlSheet.Cells(N1 + 4, 9) = DataGridView1.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView1.Rows(i).Cells("出庫日期").Value
+                    If DataGridView1.Rows(i).Cells("應收立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
+                    xlSheet.Cells(N1 + 4, 11) = PA1
+                    N1 += 1
+                End If
+            Next i
+            N1 += 4
+            AA(xlApp, xlSheet)
+        End If
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 18 : xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9 : xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 30
+        xlSheet.Columns("E:H").Select : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        xlSheet.Columns("F:F").Select : myExcel.Selection.NumberFormatLocal = "#,##0.000;[紅色]-#,##0.000"
+        xlSheet.Columns("E:H").Select : myExcel.Selection.ColumnWidth = 7 : xlSheet.Columns("I:J").Select : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("K:K").Select : myExcel.Selection.ColumnWidth = 8
+
+        xlSheet.Rows("1:1").Select
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+        xlSheet.Rows("2:2").Select
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+        xlSheet.Rows("3:3").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.Rows("4:4").Select : myExcel.ActiveWindow.FreezePanes = True : xlSheet.Rows("3:3").Select : myExcel.Selection.AutoFilter
+        xlSheet.Rows("3:3").Select : myExcel.Selection.RowHeight = 25
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+
+        xlSheet.Range("H2:I2").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("G2:I2").Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        xlSheet.Range("A1:K1").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("A2:F2").Select()
+
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+
+        xlSheet.Range("L10").Select() : myExcel.ActiveWindow.DisplayGridlines = False
+
+        xlSheet.Range("G2").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("A3:K" & N1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
     End Sub
 End Class