應付帳款見面基本功能完成

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

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -2068,18 +2068,27 @@ Module SQL_Module
     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      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 物料資料庫.料號, 
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 
                             物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 
                             倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 
                             倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 
                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號
                 FROM        倉儲明細表 LEFT OUTER JOIN
                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
-                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
-                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                           (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "
                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = 1 WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
+    End Sub
 End Module

MaoOrange-Hongji/財務系統管理/應付賬款.Designer.vb

@@ -22,8 +22,8 @@ Partial Class 應付賬款
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
@@ -57,9 +57,11 @@ Partial Class 應付賬款
         Me.Label7 = New System.Windows.Forms.Label()
         Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Button3 = New System.Windows.Forms.Button()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -137,8 +139,8 @@ Partial Class 應付賬款
         '
         'DataGridView1
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         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)
@@ -148,8 +150,8 @@ Partial Class 應付賬款
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(1225, 518)
         Me.DataGridView1.TabIndex = 1108
@@ -177,9 +179,9 @@ Partial Class 應付賬款
         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(1001, 3)
+        Me.Button6.Location = New System.Drawing.Point(1087, 3)
         Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(86, 47)
+        Me.Button6.Size = New System.Drawing.Size(82, 47)
         Me.Button6.TabIndex = 1149
         Me.Button6.Text = "依據單號取消立帳選擇"
         Me.Button6.UseVisualStyleBackColor = True
@@ -227,9 +229,9 @@ Partial Class 應付賬款
         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(849, 3)
+        Me.Button5.Location = New System.Drawing.Point(1004, 3)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(75, 47)
+        Me.Button5.Size = New System.Drawing.Size(82, 47)
         Me.Button5.TabIndex = 1144
         Me.Button5.Text = "列印帳款清單"
         Me.Button5.UseVisualStyleBackColor = True
@@ -325,7 +327,7 @@ Partial Class 應付賬款
         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(1165, 27)
+        Me.Button12.Location = New System.Drawing.Point(1170, 27)
         Me.Button12.Name = "Button12"
         Me.Button12.Size = New System.Drawing.Size(74, 23)
         Me.Button12.TabIndex = 1133
@@ -337,7 +339,7 @@ Partial Class 應付賬款
         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(1165, 3)
+        Me.Button13.Location = New System.Drawing.Point(1170, 3)
         Me.Button13.Name = "Button13"
         Me.Button13.Size = New System.Drawing.Size(74, 23)
         Me.Button13.TabIndex = 1132
@@ -358,6 +360,7 @@ Partial Class 應付賬款
         '
         Me.NumericUpDown1.Location = New System.Drawing.Point(446, 30)
         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 = 1151
@@ -387,6 +390,7 @@ Partial Class 應付賬款
         '
         Me.NumericUpDown2.Location = New System.Drawing.Point(446, 56)
         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 = 1153
@@ -397,21 +401,9 @@ Partial Class 應付賬款
         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, 119)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox1.Size = New System.Drawing.Size(190, 23)
         Me.TextBox1.TabIndex = 1155
         '
-        'Button3
-        '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button3.Location = New System.Drawing.Point(925, 3)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(75, 47)
-        Me.Button3.TabIndex = 1156
-        Me.Button3.Text = "列印帳款對帳單"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
         'Label8
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -427,20 +419,48 @@ Partial Class 應付賬款
         '
         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(1093, 5)
+        Me.CheckBox2.Location = New System.Drawing.Point(887, 6)
         Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(75, 20)
+        Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
         Me.CheckBox2.TabIndex = 1158
-        Me.CheckBox2.Text = "多重選擇"
+        Me.CheckBox2.Text = "列印多單選擇"
         Me.CheckBox2.UseVisualStyleBackColor = True
         '
+        '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, 148)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(190, 23)
+        Me.TextBox4.TabIndex = 1163
+        '
+        '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, 26)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
+        Me.CheckBox3.TabIndex = 1164
+        Me.CheckBox3.Text = "已立帳資料隱藏"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'TextBox5
+        '
+        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, 177)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(190, 23)
+        Me.TextBox5.TabIndex = 1165
+        '
         '應付賬款
         '
         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.TextBox5)
+        Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.NumericUpDown2)
@@ -472,9 +492,10 @@ Partial Class 應付賬款
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.DateTimePicker2)
         Me.Controls.Add(Me.DateTimePicker1)
-        Me.Controls.Add(Me.DataGridView1)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.CheckBox2)
+        Me.Controls.Add(Me.CheckBox3)
+        Me.Controls.Add(Me.DataGridView1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "應付賬款"
@@ -520,7 +541,9 @@ Partial Class 應付賬款
     Friend WithEvents Label7 As Label
     Friend WithEvents NumericUpDown2 As NumericUpDown
     Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Button3 As Button
     Friend WithEvents Label8 As Label
     Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents TextBox5 As TextBox
 End Class

MaoOrange-Hongji/財務系統管理/應付賬款.vb

@@ -1,6 +1,17 @@
 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
@@ -62,7 +73,8 @@ Public Class 應付賬款
     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
+        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
@@ -102,19 +114,17 @@ Public Class 應付賬款
     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
+            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("單據編號").Value : TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商").Value
             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 DataGridView1.Rows(I).Cells("應付立帳").Value = False Then
-                    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
+                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")
@@ -145,7 +155,181 @@ Public Class 應付賬款
             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 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 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("該採購單已經開立過傳票，如是之前開立有誤需要從新開立，請先點擊--依據單號取消立帳選擇--按鈕。如是因採購退貨需要開立收支單(傳票)請先勾選--已立帳資料隱藏--再行操作。")
+                        確認 = True : 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
+
+                    PA1 = TextBox4.Text : PA2 = 新項次 : PA3 = "B-02-02-02" : 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 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

MaoOrange-Hongji/資料庫系統管理/列印_產品標籤介面.vb

@@ -54,20 +54,20 @@ Public Class 列印_產品標籤介面
                 N1 = 0
                 For II As Integer = 1 To Val(TextBox1.Text)
                     xlSheet.Cells(1 + N1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2 + N1, 1) = PA1
-                    xlSheet.Cells(3 + N1, 1) = "系統單號" : xlSheet.Cells(3 + N1, 2) = DataGridView1.Rows(I).Cells("單據編號").Value : xlSheet.Cells(3 + N1, 3) = "單據數量"
-                    xlSheet.Cells(4 + N1, 1) = "系統料號" : xlSheet.Cells(4 + N1, 2) = DataGridView1.Rows(I).Cells("料號").Value : xlSheet.Cells(4 + N1, 3) = TextBox1.Text
-                    xlSheet.Cells(5 + N1, 1) = "產品頁碼" : xlSheet.Cells(5 + N1, 2) = DataGridView1.Rows(I).Cells("頁碼").Value
-                    xlSheet.Cells(6 + N1, 1) = "產品名稱" : xlSheet.Cells(6 + N1, 2) = DataGridView1.Rows(I).Cells("品名").Value
+                    xlSheet.Cells(3 + N1, 1) = "系統單號 : " : xlSheet.Cells(3 + N1, 2) = DataGridView1.Rows(I).Cells("單據編號").Value : xlSheet.Cells(3 + N1, 3) = "單據數量"
+                    xlSheet.Cells(4 + N1, 1) = "系統料號 : " : xlSheet.Cells(4 + N1, 2) = DataGridView1.Rows(I).Cells("料號").Value : xlSheet.Cells(4 + N1, 3) = TextBox1.Text
+                    xlSheet.Cells(5 + N1, 1) = "產品頁碼 : " : xlSheet.Cells(5 + N1, 2) = DataGridView1.Rows(I).Cells("頁碼").Value
+                    xlSheet.Cells(6 + N1, 1) = "產品名稱 : " : xlSheet.Cells(6 + N1, 2) = DataGridView1.Rows(I).Cells("品名").Value
                     xlSheet.Cells(7 + N1, 1) = "產品件數 : 共 (                    )"
                     BB(xlApp, xlSheet)
                     N1 += 8
                 Next
             Else
                 xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = PA1
-                xlSheet.Cells(3, 1) = "系統單號" : xlSheet.Cells(3, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(6, 3) = "單據數量"
-                xlSheet.Cells(4, 1) = "系統料號" : xlSheet.Cells(4, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(4, 3) = TextBox1.Text
-                xlSheet.Cells(5, 1) = "產品頁碼" : xlSheet.Cells(5, 2) = DataGridView1.Rows(I).Cells("項次").Value
-                xlSheet.Cells(6, 1) = "產品名稱" : xlSheet.Cells(6, 2) = DataGridView1.Rows(I).Cells("項次").Value
+                xlSheet.Cells(3, 1) = "系統單號 : " : xlSheet.Cells(3, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(6, 3) = "單據數量"
+                xlSheet.Cells(4, 1) = "系統料號 : " : xlSheet.Cells(4, 2) = DataGridView1.Rows(I).Cells("項次").Value : xlSheet.Cells(4, 3) = TextBox1.Text
+                xlSheet.Cells(5, 1) = "產品頁碼 : " : xlSheet.Cells(5, 2) = DataGridView1.Rows(I).Cells("項次").Value
+                xlSheet.Cells(6, 1) = "產品名稱 : " : xlSheet.Cells(6, 2) = DataGridView1.Rows(I).Cells("項次").Value
                 xlSheet.Cells(7, 1) = "產品件數 : 共 (                    )"
                 BB(xlApp, xlSheet)
             End If