20221015備份

YD-ERP-SYS/Module/SQL_採購系統管理.vb

@@ -79,7 +79,7 @@
                                         備註1 = N'" & 供應商資料表.備註1_tb.Text & "', 備註2 = N'" & 供應商資料表.備註2_tb.Text & "', 登入日期 = N'" & 供應商資料表.登入日期_dtp.Value & "', 
                                         結算日 = N'" & 供應商資料表.結算日_nud.Value & "', KR1 = N'" & 供應商資料表.KR1_nud.Value & "', KR2 = N'" & 供應商資料表.KR2_nud.Value & "', 
                                         KR3 = N'" & 供應商資料表.KR3_nud.Value & "', PEC = N'" & 供應商資料表.PEC_cb.Text & "', 停用 = N'" & 供應商資料表.停用_ch.Checked & "', 
-                                        票期 = N'" & 供應商資料表.票期_nud.Value & "', 支票_私人 = N'" & 供應商資料表.私人支票_tb.Text & "', 支票_公司 = N'" & 供應商資料表.公司支票_tb.Text & "', 
+                                        票期 = N'" & 供應商資料表.票期_cb.Text & "', 支票_私人 = N'" & 供應商資料表.私人支票_tb.Text & "', 支票_公司 = N'" & 供應商資料表.公司支票_tb.Text & "', 
                                         稅金倍率 = N'" & 供應商資料表.稅金倍率_tb.Text & "', 廣告費倍率 = N'" & 供應商資料表.廣告費倍率_tb.Text & "' 
                 WHERE (編號 = N'" & 供應商資料表.編號_tb.Text & "')"
         CmdSet_For_dr()

YD-ERP-SYS/Module/SQL_業務系統管理.vb

@@ -493,6 +493,12 @@
                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_應收帳款已收_查詢最左邊公帳控制表會計科目1()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 銷售單申請.會科碼1_ch.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目()
         ConnOpen()
         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
@@ -503,4 +509,9 @@
         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款已收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_應收帳款已收_查詢公帳控制表會計科目1()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 銷售單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
 End Module

YD-ERP-SYS/Module/全域變數.vb

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022081001"
+    Public 版本 As String = "2022100401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/YD-ERP-SYS.vbproj

@@ -80,6 +80,9 @@
       <EmbedInteropTypes>True</EmbedInteropTypes>
       <HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
     <Reference Include="OFFICE, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <EmbedInteropTypes>True</EmbedInteropTypes>

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-6fb3fca42b6bd1f05d37328ddc7b52edd1ee8f66
+21ef17a105a508ce8a3a3be640e5be9a4573ffdb

YD-ERP-SYS/倉儲系統管理/單據狀態查詢.Designer.vb

@@ -88,6 +88,7 @@ Partial Class 單據狀態查詢
         Me.已入庫_ch = New System.Windows.Forms.CheckBox()
         Me.已出貨_ch = New System.Windows.Forms.CheckBox()
         Me.銷售單進出庫狀態_bt = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -134,7 +135,7 @@ Partial Class 單據狀態查詢
         Me.未審核_lb.AutoSize = True
         Me.未審核_lb.Location = New System.Drawing.Point(13, 10)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(32, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(31, 16)
         Me.未審核_lb.TabIndex = 1256
         Me.未審核_lb.Text = "業務"
         '
@@ -162,7 +163,7 @@ Partial Class 單據狀態查詢
         Me.大間距_ch.AutoSize = True
         Me.大間距_ch.Location = New System.Drawing.Point(1021, 6)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1340
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
@@ -172,7 +173,7 @@ Partial Class 單據狀態查詢
         Me.中間距_ch.AutoSize = True
         Me.中間距_ch.Location = New System.Drawing.Point(952, 6)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1339
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
@@ -182,7 +183,7 @@ Partial Class 單據狀態查詢
         Me.小間距_ch.AutoSize = True
         Me.小間距_ch.Location = New System.Drawing.Point(883, 6)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1338
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
@@ -200,7 +201,7 @@ Partial Class 單據狀態查詢
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(3, 5)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1342
         Me.Label1.Text = "銷售單"
         '
@@ -273,7 +274,7 @@ Partial Class 單據狀態查詢
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label13.Location = New System.Drawing.Point(556, 5)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 1360
         Me.Label13.Text = "工廠品共"
         '
@@ -284,7 +285,7 @@ Partial Class 單據狀態查詢
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(764, 5)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(44, 16)
+        Me.Label4.Size = New System.Drawing.Size(43, 16)
         Me.Label4.TabIndex = 1359
         Me.Label4.Text = "筆資料"
         '
@@ -316,7 +317,7 @@ Partial Class 單據狀態查詢
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label12.Location = New System.Drawing.Point(655, 5)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(68, 16)
+        Me.Label12.Size = New System.Drawing.Size(67, 16)
         Me.Label12.TabIndex = 1362
         Me.Label12.Text = "筆資料，共"
         '
@@ -382,7 +383,7 @@ Partial Class 單據狀態查詢
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(762, 5)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.Size = New System.Drawing.Size(43, 16)
         Me.Label9.TabIndex = 1356
         Me.Label9.Text = "筆資料"
         '
@@ -403,7 +404,7 @@ Partial Class 單據狀態查詢
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(698, 5)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.Size = New System.Drawing.Size(19, 16)
         Me.Label10.TabIndex = 1354
         Me.Label10.Text = "共"
         '
@@ -412,7 +413,7 @@ Partial Class 單據狀態查詢
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(3, 5)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(44, 16)
+        Me.Label2.Size = New System.Drawing.Size(43, 16)
         Me.Label2.TabIndex = 1343
         Me.Label2.Text = "採購單"
         '
@@ -464,7 +465,7 @@ Partial Class 單據狀態查詢
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label6.Location = New System.Drawing.Point(762, 4)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(44, 16)
+        Me.Label6.Size = New System.Drawing.Size(43, 16)
         Me.Label6.TabIndex = 1359
         Me.Label6.Text = "筆資料"
         '
@@ -473,7 +474,7 @@ Partial Class 單據狀態查詢
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(1, 4)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1344
         Me.Label3.Text = "出庫單"
         '
@@ -494,7 +495,7 @@ Partial Class 單據狀態查詢
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label7.Location = New System.Drawing.Point(698, 4)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(20, 16)
+        Me.Label7.Size = New System.Drawing.Size(19, 16)
         Me.Label7.TabIndex = 1357
         Me.Label7.Text = "共"
         '
@@ -556,7 +557,7 @@ Partial Class 單據狀態查詢
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label8.Location = New System.Drawing.Point(472, 36)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(44, 16)
+        Me.Label8.Size = New System.Drawing.Size(43, 16)
         Me.Label8.TabIndex = 1362
         Me.Label8.Text = "筆資料"
         '
@@ -575,7 +576,7 @@ Partial Class 單據狀態查詢
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label11.Location = New System.Drawing.Point(408, 36)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(20, 16)
+        Me.Label11.Size = New System.Drawing.Size(19, 16)
         Me.Label11.TabIndex = 1360
         Me.Label11.Text = "共"
         '
@@ -738,7 +739,7 @@ Partial Class 單據狀態查詢
         Me.轉採購_ch.AutoSize = True
         Me.轉採購_ch.Location = New System.Drawing.Point(185, 240)
         Me.轉採購_ch.Name = "轉採購_ch"
-        Me.轉採購_ch.Size = New System.Drawing.Size(63, 20)
+        Me.轉採購_ch.Size = New System.Drawing.Size(62, 20)
         Me.轉採購_ch.TabIndex = 1507
         Me.轉採購_ch.Text = "轉採購"
         Me.轉採購_ch.UseVisualStyleBackColor = True
@@ -749,7 +750,7 @@ Partial Class 單據狀態查詢
         Me.已入庫_ch.AutoSize = True
         Me.已入庫_ch.Location = New System.Drawing.Point(185, 214)
         Me.已入庫_ch.Name = "已入庫_ch"
-        Me.已入庫_ch.Size = New System.Drawing.Size(63, 20)
+        Me.已入庫_ch.Size = New System.Drawing.Size(62, 20)
         Me.已入庫_ch.TabIndex = 1508
         Me.已入庫_ch.Text = "已入庫"
         Me.已入庫_ch.UseVisualStyleBackColor = True
@@ -760,7 +761,7 @@ Partial Class 單據狀態查詢
         Me.已出貨_ch.AutoSize = True
         Me.已出貨_ch.Location = New System.Drawing.Point(185, 188)
         Me.已出貨_ch.Name = "已出貨_ch"
-        Me.已出貨_ch.Size = New System.Drawing.Size(63, 20)
+        Me.已出貨_ch.Size = New System.Drawing.Size(62, 20)
         Me.已出貨_ch.TabIndex = 1509
         Me.已出貨_ch.Text = "已出貨"
         Me.已出貨_ch.UseVisualStyleBackColor = True
@@ -777,11 +778,23 @@ Partial Class 單據狀態查詢
         Me.銷售單進出庫狀態_bt.Text = "銷售單進出庫狀態"
         Me.銷售單進出庫狀態_bt.UseVisualStyleBackColor = True
         '
+        '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.Purple
+        Me.Button1.Location = New System.Drawing.Point(1117, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(103, 25)
+        Me.Button1.TabIndex = 1511
+        Me.Button1.Text = "銷售單強制結單"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
         '單據狀態查詢
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1344, 681)
+        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.銷售單進出庫狀態_bt)
         Me.Controls.Add(Me.已出貨_ch)
         Me.Controls.Add(Me.已入庫_ch)
@@ -900,4 +913,5 @@ Partial Class 單據狀態查詢
     Friend WithEvents 出庫單退回_批量_bt As Button
     Friend WithEvents 採購單退回_批量_bt As Button
     Friend WithEvents 驗證計算_bt As Button
+    Friend WithEvents Button1 As Button
 End Class

YD-ERP-SYS/採購系統管理/供應商資料表.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 供應商資料表
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.供應商_dgv = New System.Windows.Forms.DataGridView()
         Me.地區編碼_cb = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -108,6 +108,7 @@ Partial Class 供應商資料表
         Me.批量存檔_bt = New System.Windows.Forms.Button()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.票期_cb = New System.Windows.Forms.ComboBox()
         CType(Me.供應商_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.結算日_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.KR1_nud, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -120,8 +121,8 @@ Partial Class 供應商資料表
         '
         '供應商_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.供應商_dgv.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)
@@ -149,7 +150,7 @@ Partial Class 供應商資料表
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(6, 33)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(50, 16)
+        Me.Label1.Size = New System.Drawing.Size(49, 16)
         Me.Label1.TabIndex = 1008
         Me.Label1.Text = "編      碼"
         '
@@ -159,7 +160,7 @@ Partial Class 供應商資料表
         Me.Label2.ForeColor = System.Drawing.Color.Red
         Me.Label2.Location = New System.Drawing.Point(6, 7)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(50, 16)
+        Me.Label2.Size = New System.Drawing.Size(49, 16)
         Me.Label2.TabIndex = 1007
         Me.Label2.Text = "地      區"
         '
@@ -180,7 +181,7 @@ Partial Class 供應商資料表
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label3.Location = New System.Drawing.Point(1198, 158)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1014
         Me.Label3.Text = "筆資料"
         '
@@ -200,7 +201,7 @@ Partial Class 供應商資料表
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(1111, 158)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
         Me.Label4.TabIndex = 1012
         Me.Label4.Text = "共"
         '
@@ -217,7 +218,7 @@ Partial Class 供應商資料表
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label5.Location = New System.Drawing.Point(5, 58)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(50, 16)
+        Me.Label5.Size = New System.Drawing.Size(49, 16)
         Me.Label5.TabIndex = 1023
         Me.Label5.Text = "編      號"
         '
@@ -235,7 +236,7 @@ Partial Class 供應商資料表
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label6.Location = New System.Drawing.Point(5, 108)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(50, 16)
+        Me.Label6.Size = New System.Drawing.Size(49, 16)
         Me.Label6.TabIndex = 1025
         Me.Label6.Text = "供 應 商"
         '
@@ -253,7 +254,7 @@ Partial Class 供應商資料表
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label7.Location = New System.Drawing.Point(185, 7)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
         Me.Label7.TabIndex = 1027
         Me.Label7.Text = "公司地址"
         '
@@ -271,7 +272,7 @@ Partial Class 供應商資料表
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label8.Location = New System.Drawing.Point(185, 33)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(63, 16)
+        Me.Label8.Size = New System.Drawing.Size(62, 16)
         Me.Label8.TabIndex = 1029
         Me.Label8.Text = "公司電話1"
         '
@@ -288,7 +289,7 @@ Partial Class 供應商資料表
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(185, 58)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(63, 16)
+        Me.Label9.Size = New System.Drawing.Size(62, 16)
         Me.Label9.TabIndex = 1031
         Me.Label9.Text = "公司電話2"
         '
@@ -305,7 +306,7 @@ Partial Class 供應商資料表
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(376, 33)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(63, 16)
+        Me.Label10.Size = New System.Drawing.Size(62, 16)
         Me.Label10.TabIndex = 1033
         Me.Label10.Text = "公司電話3"
         '
@@ -322,7 +323,7 @@ Partial Class 供應商資料表
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label11.Location = New System.Drawing.Point(376, 58)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(63, 16)
+        Me.Label11.Size = New System.Drawing.Size(62, 16)
         Me.Label11.TabIndex = 1035
         Me.Label11.Text = "公司電話4"
         '
@@ -339,7 +340,7 @@ Partial Class 供應商資料表
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label12.Location = New System.Drawing.Point(569, 8)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1037
         Me.Label12.Text = "店面地址"
         '
@@ -356,7 +357,7 @@ Partial Class 供應商資料表
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label13.Location = New System.Drawing.Point(186, 108)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 1039
         Me.Label13.Text = "店面電話"
         '
@@ -374,7 +375,7 @@ Partial Class 供應商資料表
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label14.Location = New System.Drawing.Point(4, 83)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(50, 16)
+        Me.Label14.Size = New System.Drawing.Size(49, 16)
         Me.Label14.TabIndex = 1041
         Me.Label14.Text = "簡      稱"
         '
@@ -391,7 +392,7 @@ Partial Class 供應商資料表
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label15.Location = New System.Drawing.Point(569, 33)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(56, 16)
+        Me.Label15.Size = New System.Drawing.Size(55, 16)
         Me.Label15.TabIndex = 1043
         Me.Label15.Text = "工廠地址"
         '
@@ -409,7 +410,7 @@ Partial Class 供應商資料表
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label16.Location = New System.Drawing.Point(4, 133)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(51, 16)
+        Me.Label16.Size = New System.Drawing.Size(50, 16)
         Me.Label16.TabIndex = 1045
         Me.Label16.Text = "聯繫人1"
         '
@@ -426,7 +427,7 @@ Partial Class 供應商資料表
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label17.Location = New System.Drawing.Point(3, 158)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(51, 16)
+        Me.Label17.Size = New System.Drawing.Size(50, 16)
         Me.Label17.TabIndex = 1047
         Me.Label17.Text = "聯繫人2"
         '
@@ -443,7 +444,7 @@ Partial Class 供應商資料表
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label18.Location = New System.Drawing.Point(376, 83)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(62, 16)
+        Me.Label18.Size = New System.Drawing.Size(61, 16)
         Me.Label18.TabIndex = 1049
         Me.Label18.Text = "傳          真"
         '
@@ -460,7 +461,7 @@ Partial Class 供應商資料表
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label19.Location = New System.Drawing.Point(185, 82)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(62, 16)
+        Me.Label19.Size = New System.Drawing.Size(61, 16)
         Me.Label19.TabIndex = 1051
         Me.Label19.Text = "手          機"
         '
@@ -477,7 +478,7 @@ Partial Class 供應商資料表
         Me.Label20.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label20.Location = New System.Drawing.Point(876, 133)
         Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(32, 16)
+        Me.Label20.Size = New System.Drawing.Size(31, 16)
         Me.Label20.TabIndex = 1053
         Me.Label20.Text = "POS"
         '
@@ -494,7 +495,7 @@ Partial Class 供應商資料表
         Me.Label21.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label21.Location = New System.Drawing.Point(569, 58)
         Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(60, 16)
+        Me.Label21.Size = New System.Drawing.Size(59, 16)
         Me.Label21.TabIndex = 1055
         Me.Label21.Text = "備       註1"
         '
@@ -511,7 +512,7 @@ Partial Class 供應商資料表
         Me.Label22.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label22.Location = New System.Drawing.Point(569, 83)
         Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(60, 16)
+        Me.Label22.Size = New System.Drawing.Size(59, 16)
         Me.Label22.TabIndex = 1057
         Me.Label22.Text = "備       註2"
         '
@@ -528,7 +529,7 @@ Partial Class 供應商資料表
         Me.Label23.AutoSize = True
         Me.Label23.Location = New System.Drawing.Point(379, 108)
         Me.Label23.Name = "Label23"
-        Me.Label23.Size = New System.Drawing.Size(56, 16)
+        Me.Label23.Size = New System.Drawing.Size(55, 16)
         Me.Label23.TabIndex = 1059
         Me.Label23.Text = "登入日期"
         '
@@ -546,7 +547,7 @@ Partial Class 供應商資料表
         Me.Label24.AutoSize = True
         Me.Label24.Location = New System.Drawing.Point(867, 108)
         Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(44, 16)
+        Me.Label24.Size = New System.Drawing.Size(43, 16)
         Me.Label24.TabIndex = 1062
         Me.Label24.Text = "結算日"
         '
@@ -555,7 +556,7 @@ Partial Class 供應商資料表
         Me.Label25.AutoSize = True
         Me.Label25.Location = New System.Drawing.Point(569, 108)
         Me.Label25.Name = "Label25"
-        Me.Label25.Size = New System.Drawing.Size(30, 16)
+        Me.Label25.Size = New System.Drawing.Size(29, 16)
         Me.Label25.TabIndex = 1064
         Me.Label25.Text = "KR1"
         '
@@ -574,7 +575,7 @@ Partial Class 供應商資料表
         Me.Label26.AutoSize = True
         Me.Label26.Location = New System.Drawing.Point(668, 108)
         Me.Label26.Name = "Label26"
-        Me.Label26.Size = New System.Drawing.Size(30, 16)
+        Me.Label26.Size = New System.Drawing.Size(29, 16)
         Me.Label26.TabIndex = 1066
         Me.Label26.Text = "KR2"
         '
@@ -593,7 +594,7 @@ Partial Class 供應商資料表
         Me.Label27.AutoSize = True
         Me.Label27.Location = New System.Drawing.Point(768, 108)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(30, 16)
+        Me.Label27.Size = New System.Drawing.Size(29, 16)
         Me.Label27.TabIndex = 1068
         Me.Label27.Text = "KR3"
         '
@@ -697,7 +698,7 @@ Partial Class 供應商資料表
         Me.停用_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.停用_ch.Location = New System.Drawing.Point(875, 157)
         Me.停用_ch.Name = "停用_ch"
-        Me.停用_ch.Size = New System.Drawing.Size(75, 20)
+        Me.停用_ch.Size = New System.Drawing.Size(74, 20)
         Me.停用_ch.TabIndex = 1073
         Me.停用_ch.Text = "停        用"
         Me.停用_ch.UseVisualStyleBackColor = True
@@ -717,7 +718,7 @@ Partial Class 供應商資料表
         Me.Label28.AutoSize = True
         Me.Label28.Location = New System.Drawing.Point(768, 159)
         Me.Label28.Name = "Label28"
-        Me.Label28.Size = New System.Drawing.Size(30, 16)
+        Me.Label28.Size = New System.Drawing.Size(29, 16)
         Me.Label28.TabIndex = 1074
         Me.Label28.Text = "PEC"
         '
@@ -727,7 +728,7 @@ Partial Class 供應商資料表
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label29.Location = New System.Drawing.Point(952, 159)
         Me.Label29.Name = "Label29"
-        Me.Label29.Size = New System.Drawing.Size(68, 16)
+        Me.Label29.Size = New System.Drawing.Size(67, 16)
         Me.Label29.TabIndex = 1077
         Me.Label29.Text = "關鍵字查詢"
         '
@@ -757,7 +758,7 @@ Partial Class 供應商資料表
         Me.精準查詢_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.精準查詢_ch.Location = New System.Drawing.Point(114, 4)
         Me.精準查詢_ch.Name = "精準查詢_ch"
-        Me.精準查詢_ch.Size = New System.Drawing.Size(75, 20)
+        Me.精準查詢_ch.Size = New System.Drawing.Size(74, 20)
         Me.精準查詢_ch.TabIndex = 1134
         Me.精準查詢_ch.Text = "精準查詢"
         Me.精準查詢_ch.UseVisualStyleBackColor = True
@@ -767,13 +768,13 @@ Partial Class 供應商資料表
         Me.Label30.AutoSize = True
         Me.Label30.Location = New System.Drawing.Point(767, 133)
         Me.Label30.Name = "Label30"
-        Me.Label30.Size = New System.Drawing.Size(32, 16)
+        Me.Label30.Size = New System.Drawing.Size(31, 16)
         Me.Label30.TabIndex = 1135
         Me.Label30.Text = "票期"
         '
         '票期_nud
         '
-        Me.票期_nud.Location = New System.Drawing.Point(797, 130)
+        Me.票期_nud.Location = New System.Drawing.Point(1174, 4)
         Me.票期_nud.Maximum = New Decimal(New Integer() {31, 0, 0, 0})
         Me.票期_nud.Name = "票期_nud"
         Me.票期_nud.Size = New System.Drawing.Size(68, 23)
@@ -786,7 +787,7 @@ Partial Class 供應商資料表
         Me.Label31.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label31.Location = New System.Drawing.Point(190, 134)
         Me.Label31.Name = "Label31"
-        Me.Label31.Size = New System.Drawing.Size(56, 16)
+        Me.Label31.Size = New System.Drawing.Size(55, 16)
         Me.Label31.TabIndex = 1137
         Me.Label31.Text = "私人支票"
         '
@@ -810,7 +811,7 @@ Partial Class 供應商資料表
         Me.Label32.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label32.Location = New System.Drawing.Point(190, 161)
         Me.Label32.Name = "Label32"
-        Me.Label32.Size = New System.Drawing.Size(56, 16)
+        Me.Label32.Size = New System.Drawing.Size(55, 16)
         Me.Label32.TabIndex = 1139
         Me.Label32.Text = "公司支票"
         '
@@ -827,7 +828,7 @@ Partial Class 供應商資料表
         Me.Label33.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label33.Location = New System.Drawing.Point(569, 133)
         Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(56, 16)
+        Me.Label33.Size = New System.Drawing.Size(55, 16)
         Me.Label33.TabIndex = 1142
         Me.Label33.Text = "稅金倍率"
         '
@@ -844,7 +845,7 @@ Partial Class 供應商資料表
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label34.Location = New System.Drawing.Point(569, 158)
         Me.Label34.Name = "Label34"
-        Me.Label34.Size = New System.Drawing.Size(56, 16)
+        Me.Label34.Size = New System.Drawing.Size(55, 16)
         Me.Label34.TabIndex = 1144
         Me.Label34.Text = "廣告倍率"
         '
@@ -886,12 +887,22 @@ Partial Class 供應商資料表
         Me.字體_NUD.TabIndex = 1345
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
+        '票期_cb
+        '
+        Me.票期_cb.FormattingEnabled = True
+        Me.票期_cb.Items.AddRange(New Object() {"0", "1", "5", "15", "30", "31", "35", "45", "60", "61", "65", "75", "90"})
+        Me.票期_cb.Location = New System.Drawing.Point(797, 129)
+        Me.票期_cb.Name = "票期_cb"
+        Me.票期_cb.Size = New System.Drawing.Size(68, 24)
+        Me.票期_cb.TabIndex = 1347
+        '
         '供應商資料表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1248, 691)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.票期_cb)
         Me.Controls.Add(Me.查詢_tb)
         Me.Controls.Add(Me.批量存檔_bt)
         Me.Controls.Add(Me.廣告費倍率_tb)
@@ -1071,4 +1082,5 @@ Partial Class 供應商資料表
     Friend WithEvents 批量存檔_bt As Button
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 票期_cb As ComboBox
 End Class

YD-ERP-SYS/採購系統管理/供應商資料表.vb

@@ -88,7 +88,7 @@ Public Class 供應商資料表
                     登入日期_dtp.Value = 供應商_dgv("登入日期", e.RowIndex).Value : 結算日_nud.Value = 供應商_dgv("結算日", e.RowIndex).Value
                     KR1_nud.Value = 供應商_dgv("KR1", e.RowIndex).Value : KR2_nud.Value = 供應商_dgv("KR2", e.RowIndex).Value
                     KR3_nud.Value = 供應商_dgv("KR3", e.RowIndex).Value : PEC_cb.Text = 供應商_dgv("PEC", e.RowIndex).Value.ToString
-                    停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value : 票期_nud.Value = 供應商_dgv("票期", e.RowIndex).Value
+                    停用_ch.Checked = 供應商_dgv("停用", e.RowIndex).Value : 票期_cb.Text = 供應商_dgv("票期", e.RowIndex).Value
                     私人支票_tb.Text = 供應商_dgv("支票_私人", e.RowIndex).Value.ToString : 公司支票_tb.Text = 供應商_dgv("支票_公司", e.RowIndex).Value.ToString
                     稅金倍率_tb.Text = 供應商_dgv("稅金倍率", e.RowIndex).Value.ToString : 廣告費倍率_tb.Text = 供應商_dgv("廣告費倍率", e.RowIndex).Value.ToString
                 End If
@@ -127,7 +127,7 @@ Public Class 供應商資料表
                 工廠地址_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 手機_tb.Text = "" : 傳真_tb.Text = ""
                 POS_tb.Text = "" : 備註1_tb.Text = "" : 備註2_tb.Text = "" : 登入日期_dtp.Value = Today() : 結算日_nud.Value = 25
                 KR1_nud.Value = 0 : KR2_nud.Value = 0 : KR3_nud.Value = 0 : PEC_cb.Text = "0" : 停用_ch.Checked = False
-                查詢_tb.Text = "" : 票期_nud.Value = 15 : 私人支票_tb.Text = "" : 公司支票_tb.Text = "" : 稅金倍率_tb.Text = "" : 廣告費倍率_tb.Text = ""
+                查詢_tb.Text = "" : 票期_cb.Text = "45" : 私人支票_tb.Text = "" : 公司支票_tb.Text = "" : 稅金倍率_tb.Text = "" : 廣告費倍率_tb.Text = ""
                 資料新增判斷 = True '--------------------目前的編輯狀態
                 狀態_lb.Text = "編輯狀態"
                 供應商_dgv.Enabled = False : 查詢_tb.Enabled = False '--------------------關閉DGV與關鍵字查詢控件的點選控制功能

YD-ERP-SYS/採購系統管理/採購應付帳款.Designer.vb

@@ -22,12 +22,12 @@ 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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 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.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
@@ -130,7 +130,7 @@ Partial Class 採購應付帳款
         Me.一般月_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.一般月_ch.Location = New System.Drawing.Point(67, 31)
         Me.一般月_ch.Name = "一般月_ch"
-        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.Size = New System.Drawing.Size(62, 20)
         Me.一般月_ch.TabIndex = 1174
         Me.一般月_ch.Text = "一般月"
         Me.一般月_ch.UseVisualStyleBackColor = True
@@ -143,7 +143,7 @@ Partial Class 採購應付帳款
         Me.會計月_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.會計月_ch.Location = New System.Drawing.Point(8, 31)
         Me.會計月_ch.Name = "會計月_ch"
-        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.Size = New System.Drawing.Size(62, 20)
         Me.會計月_ch.TabIndex = 1173
         Me.會計月_ch.Text = "會計月"
         Me.會計月_ch.UseVisualStyleBackColor = True
@@ -178,7 +178,7 @@ Partial Class 採購應付帳款
         Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
         Me.Label4.Location = New System.Drawing.Point(114, 8)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
         Me.Label4.TabIndex = 1170
         Me.Label4.Text = "到"
         '
@@ -205,8 +205,8 @@ Partial Class 採購應付帳款
         '
         '供應商_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Lavender
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Lavender
+        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.供應商_dgv.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)
@@ -216,9 +216,9 @@ Partial Class 採購應付帳款
         Me.供應商_dgv.Location = New System.Drawing.Point(247, 81)
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.供應商_dgv.RowTemplate.Height = 24
         Me.供應商_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.供應商_dgv.TabIndex = 1439
@@ -230,7 +230,7 @@ Partial Class 採購應付帳款
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(197, 404)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.Size = New System.Drawing.Size(43, 16)
         Me.Label9.TabIndex = 1442
         Me.Label9.Text = "筆資料"
         '
@@ -250,14 +250,14 @@ Partial Class 採購應付帳款
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(6, 404)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(80, 16)
+        Me.Label10.Size = New System.Drawing.Size(79, 16)
         Me.Label10.TabIndex = 1440
         Me.Label10.Text = "應付賬款，共"
         '
         '採購清單_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.採購清單_dgv.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)
@@ -267,9 +267,9 @@ Partial Class 採購應付帳款
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 81)
         Me.採購清單_dgv.Name = "採購清單_dgv"
         Me.採購清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.採購清單_dgv.RowTemplate.Height = 24
         Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.採購清單_dgv.TabIndex = 1443
@@ -282,7 +282,7 @@ Partial Class 採購應付帳款
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label1.Location = New System.Drawing.Point(197, 380)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1446
         Me.Label1.Text = "筆資料"
         '
@@ -302,7 +302,7 @@ Partial Class 採購應付帳款
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label2.Location = New System.Drawing.Point(5, 380)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(80, 16)
+        Me.Label2.Size = New System.Drawing.Size(79, 16)
         Me.Label2.TabIndex = 1444
         Me.Label2.Text = "採購明細，共"
         '
@@ -312,7 +312,7 @@ Partial Class 採購應付帳款
         Me.大間距_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.大間距_ch.Location = New System.Drawing.Point(389, 32)
         Me.大間距_ch.Name = "大間距_ch"
-        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.大間距_ch.TabIndex = 1449
         Me.大間距_ch.Text = "大間距"
         Me.大間距_ch.UseVisualStyleBackColor = True
@@ -323,7 +323,7 @@ Partial Class 採購應付帳款
         Me.中間距_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.中間距_ch.Location = New System.Drawing.Point(320, 32)
         Me.中間距_ch.Name = "中間距_ch"
-        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.中間距_ch.TabIndex = 1448
         Me.中間距_ch.Text = "中間距"
         Me.中間距_ch.UseVisualStyleBackColor = True
@@ -334,7 +334,7 @@ Partial Class 採購應付帳款
         Me.小間距_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.小間距_ch.Location = New System.Drawing.Point(251, 32)
         Me.小間距_ch.Name = "小間距_ch"
-        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.Size = New System.Drawing.Size(62, 20)
         Me.小間距_ch.TabIndex = 1447
         Me.小間距_ch.Text = "小間距"
         Me.小間距_ch.UseVisualStyleBackColor = True
@@ -356,7 +356,7 @@ Partial Class 採購應付帳款
         Me.Label6.ForeColor = System.Drawing.Color.Green
         Me.Label6.Location = New System.Drawing.Point(624, 33)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 1455
         Me.Label6.Text = "採購金額"
         '
@@ -377,7 +377,7 @@ Partial Class 採購應付帳款
         Me.Label3.ForeColor = System.Drawing.Color.Green
         Me.Label3.Location = New System.Drawing.Point(458, 32)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1453
         Me.Label3.Text = "供應商"
         '
@@ -398,7 +398,7 @@ Partial Class 採購應付帳款
         Me.Label16.ForeColor = System.Drawing.Color.Blue
         Me.Label16.Location = New System.Drawing.Point(8, 211)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(56, 16)
+        Me.Label16.Size = New System.Drawing.Size(55, 16)
         Me.Label16.TabIndex = 1451
         Me.Label16.Text = "當月貨款"
         '
@@ -549,7 +549,7 @@ Partial Class 採購應付帳款
         Me.Label5.ForeColor = System.Drawing.Color.Blue
         Me.Label5.Location = New System.Drawing.Point(8, 355)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1467
         Me.Label5.Text = "個人實付"
         '
@@ -570,7 +570,7 @@ Partial Class 採購應付帳款
         Me.Label7.ForeColor = System.Drawing.Color.Blue
         Me.Label7.Location = New System.Drawing.Point(8, 331)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
         Me.Label7.TabIndex = 1469
         Me.Label7.Text = "公司實付"
         '
@@ -591,7 +591,7 @@ Partial Class 採購應付帳款
         Me.Label8.ForeColor = System.Drawing.Color.Blue
         Me.Label8.Location = New System.Drawing.Point(8, 307)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(56, 16)
+        Me.Label8.Size = New System.Drawing.Size(55, 16)
         Me.Label8.TabIndex = 1471
         Me.Label8.Text = "實付金額"
         '
@@ -612,7 +612,7 @@ Partial Class 採購應付帳款
         Me.Label11.ForeColor = System.Drawing.Color.Blue
         Me.Label11.Location = New System.Drawing.Point(8, 283)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1473
         Me.Label11.Text = "其他扣款"
         '
@@ -633,7 +633,7 @@ Partial Class 採購應付帳款
         Me.Label12.ForeColor = System.Drawing.Color.Blue
         Me.Label12.Location = New System.Drawing.Point(8, 259)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1475
         Me.Label12.Text = "廣  告  費"
         '
@@ -654,14 +654,14 @@ Partial Class 採購應付帳款
         Me.Label13.ForeColor = System.Drawing.Color.Blue
         Me.Label13.Location = New System.Drawing.Point(8, 235)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(55, 16)
         Me.Label13.TabIndex = 1477
         Me.Label13.Text = "稅        金"
         '
         '合計_dgv
         '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -670,9 +670,9 @@ Partial Class 採購應付帳款
         Me.合計_dgv.Location = New System.Drawing.Point(4, 428)
         Me.合計_dgv.Name = "合計_dgv"
         Me.合計_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.合計_dgv.RowTemplate.Height = 24
         Me.合計_dgv.Size = New System.Drawing.Size(237, 153)
         Me.合計_dgv.TabIndex = 1479
@@ -769,7 +769,7 @@ Partial Class 採購應付帳款
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label14.Location = New System.Drawing.Point(247, 59)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(56, 16)
+        Me.Label14.Size = New System.Drawing.Size(55, 16)
         Me.Label14.TabIndex = 1496
         Me.Label14.Text = "會計科目"
         '
@@ -855,7 +855,7 @@ Partial Class 採購應付帳款
         Me.Label15.AutoSize = True
         Me.Label15.Location = New System.Drawing.Point(827, 359)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(104, 16)
+        Me.Label15.Size = New System.Drawing.Size(103, 16)
         Me.Label15.TabIndex = 1510
         Me.Label15.Text = "營運成本收支單號"
         Me.Label15.Visible = False
@@ -875,7 +875,7 @@ Partial Class 採購應付帳款
         Me.Label17.AutoSize = True
         Me.Label17.Location = New System.Drawing.Point(887, 389)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(44, 16)
+        Me.Label17.Size = New System.Drawing.Size(43, 16)
         Me.Label17.TabIndex = 1512
         Me.Label17.Text = "申請人"
         Me.Label17.Visible = False
@@ -895,7 +895,7 @@ Partial Class 採購應付帳款
         Me.備註_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.備註_ch.Location = New System.Drawing.Point(1023, 30)
         Me.備註_ch.Name = "備註_ch"
-        Me.備註_ch.Size = New System.Drawing.Size(87, 20)
+        Me.備註_ch.Size = New System.Drawing.Size(86, 20)
         Me.備註_ch.TabIndex = 1514
         Me.備註_ch.Text = "狀態與備註"
         Me.備註_ch.UseVisualStyleBackColor = True
@@ -906,7 +906,7 @@ Partial Class 採購應付帳款
         Me.申請與採購日期_ch.Cursor = System.Windows.Forms.Cursors.Default
         Me.申請與採購日期_ch.Location = New System.Drawing.Point(1112, 30)
         Me.申請與採購日期_ch.Name = "申請與採購日期_ch"
-        Me.申請與採購日期_ch.Size = New System.Drawing.Size(111, 20)
+        Me.申請與採購日期_ch.Size = New System.Drawing.Size(110, 20)
         Me.申請與採購日期_ch.TabIndex = 1515
         Me.申請與採購日期_ch.Text = "申請與採購日期"
         Me.申請與採購日期_ch.UseVisualStyleBackColor = True
@@ -916,7 +916,7 @@ Partial Class 採購應付帳款
         Me.Label18.AutoSize = True
         Me.Label18.Location = New System.Drawing.Point(1007, 59)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(80, 16)
+        Me.Label18.Size = New System.Drawing.Size(79, 16)
         Me.Label18.TabIndex = 1516
         Me.Label18.Text = "財務單據日期"
         '
@@ -948,7 +948,7 @@ Partial Class 採購應付帳款
         Me.Label19.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label19.Location = New System.Drawing.Point(1059, 8)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(56, 16)
+        Me.Label19.Size = New System.Drawing.Size(55, 16)
         Me.Label19.TabIndex = 1520
         Me.Label19.Text = "過帳日期"
         '
@@ -1050,10 +1050,10 @@ Partial Class 採購應付帳款
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
-        Me.Controls.Add(Me.採購清單_dgv)
         Me.Controls.Add(Me.供應商_dgv)
         Me.Controls.Add(Me.字體大小調整_lb)
         Me.Controls.Add(Me.提示_lb)
+        Me.Controls.Add(Me.採購清單_dgv)
         Me.Cursor = System.Windows.Forms.Cursors.Default
         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)

YD-ERP-SYS/採購系統管理/採購應付帳款.vb

@@ -7,12 +7,12 @@ 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 System.Data.SqlClient
+Imports Microsoft.Office.Interop.Excel
 Public Class 採購應付帳款
     ReadOnly ds, ds1, da2 As New DataSet
-    Dim xlApp As Microsoft.Office.Interop.Excel.Application
-    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
-    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim xlApp As Application
+    Dim xlBook As Workbook
+    Dim xlSheet As Worksheet
     Dim 新流水1 As String : Dim 新項次 As String : Dim 新支付單號 As String
     Dim NUM1, N1, N2 As Integer : Dim 匯率1 As Double : Dim 狀態 As String
     Dim 首次開啟 As Boolean = False : Dim 首次 As Boolean = False
@@ -38,10 +38,8 @@ Public Class 採購應付帳款
             供應商_dgv.Columns(16).ReadOnly = True
 
             資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-            供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
-            供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
-            供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
-            供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
+            供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose : 供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
+            供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose : 供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
             供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
 
             稅金_tb.Text = "0" : 廣告費_tb.Text = "0" : 其他扣款_tb.Text = "0" : 實付金額_tb.Text = "0" : 公司實付_tb.Text = "0" : 個人實付_tb.Text = "0"
@@ -66,23 +64,9 @@ Public Class 採購應付帳款
                 公司實付_tb.Text = Val(公司實付_tb.Text) + 供應商_dgv("公司", i).Value
                 個人實付_tb.Text = Val(個人實付_tb.Text) + 供應商_dgv("個人", i).Value
 
-                If 供應商_dgv("票期1", i).Value = "0" Then
-                    供應商_dgv("票期1", i).Value = "1"
-                End If
-
+                PA21 = 供應商_dgv("票期1", i).Value.ToString : Set_票期計算()
                 If 供應商_dgv("票期", i).Value.ToString = "" Then
-                    If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
-                        If 供應商_dgv("票期1", i).Value.ToString = "30" Then
-                            供應商_dgv("票期1", i).Value = "28"
-                        End If
-                    End If
-                    DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
-                    If 供應商_dgv("票期1", i).Value < 10 Then
-                        PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
-                    Else
-                        PA16 = 供應商_dgv("票期1", i).Value.ToString
-                    End If
-                    供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
+                    供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA22
                 End If
             Next
 
@@ -130,6 +114,50 @@ Public Class 採購應付帳款
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub Set_票期計算()
+        If PA21 = "0" Then : DTP1.Value = 結束日期_dtp.Value
+            If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
+               Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
+            ElseIf Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
+                   Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
+            ElseIf Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
+        ElseIf PA21 = "1" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
+        ElseIf PA21 = "5" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
+        ElseIf PA21 = "15" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
+        ElseIf PA21 = "30" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(1)
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
+        ElseIf PA21 = "31" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+        ElseIf PA21 = "35" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+        ElseIf PA21 = "45" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+        ElseIf PA21 = "60" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
+        ElseIf PA21 = "61" Then : PA22 = "01" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
+        ElseIf PA21 = "65" Then : PA22 = "05" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
+        ElseIf PA21 = "75" Then : PA22 = "15" : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
+        ElseIf PA21 = "90" Then : DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(3)
+            If Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "01" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "03" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "05" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "07" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "08" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "10" Or
+               Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "12" Then : PA22 = "31"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "04" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "06" Or
+                   Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "09" Or Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "11" Then : PA22 = "30"
+            ElseIf Strings.Mid(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 6, 2) = "02" Then : PA22 = "28" : End If
+        End If
+    End Sub
     Private Sub Set_清單2()
         Try
             採購清單_dgv.DataSource = Nothing : ds.Clear()
@@ -776,9 +804,9 @@ Public Class 採購應付帳款
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
     End Sub
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
-        供應商_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-        合計_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
-        採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        供應商_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        合計_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        採購清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
     Private Sub 應負帳款退回_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款退回_bt.Click
         Try

YD-ERP-SYS/業務系統管理/應收帳款已收.Designer.vb

@@ -23,14 +23,15 @@ Partial Class 應收帳款已收
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 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()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.流水號2_bt = New System.Windows.Forms.TextBox()
         Me.財務單據退回_bt = New System.Windows.Forms.Button()
         Me.衍生運費_dgv = New System.Windows.Forms.DataGridView()
         Me.其他費用_dgv = New System.Windows.Forms.DataGridView()
@@ -105,7 +106,6 @@ Partial Class 應收帳款已收
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         Me.項次3_tb = New System.Windows.Forms.TextBox()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
-        Me.流水號2_bt = New System.Windows.Forms.TextBox()
         Me.Panel1.SuspendLayout()
         CType(Me.衍生運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.其他費用_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -122,8 +122,6 @@ Partial Class 應收帳款已收
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.Controls.Add(Me.流水號2_bt)
         Me.Panel1.Controls.Add(Me.財務單據退回_bt)
-        Me.Panel1.Controls.Add(Me.衍生運費_dgv)
-        Me.Panel1.Controls.Add(Me.其他費用_dgv)
         Me.Panel1.Controls.Add(Me.其他費用_bt)
         Me.Panel1.Controls.Add(Me.衍生運費_bt)
         Me.Panel1.Controls.Add(Me.銷售收款_bt)
@@ -175,17 +173,28 @@ Partial Class 應收帳款已收
         Me.Panel1.Controls.Add(Me.Label12)
         Me.Panel1.Controls.Add(Me.業務_cb)
         Me.Panel1.Controls.Add(Me.Label13)
-        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
         Me.Panel1.Controls.Add(Me.項次2_tb)
         Me.Panel1.Controls.Add(Me.收款事項_dgv)
         Me.Panel1.Controls.Add(Me.Label14)
         Me.Panel1.Controls.Add(Me.Label10)
         Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
+        Me.Panel1.Controls.Add(Me.衍生運費_dgv)
+        Me.Panel1.Controls.Add(Me.其他費用_dgv)
         Me.Panel1.Location = New System.Drawing.Point(2, 2)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(1236, 624)
         Me.Panel1.TabIndex = 1
         '
+        '流水號2_bt
+        '
+        Me.流水號2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.流水號2_bt.Enabled = False
+        Me.流水號2_bt.Location = New System.Drawing.Point(967, 425)
+        Me.流水號2_bt.Name = "流水號2_bt"
+        Me.流水號2_bt.Size = New System.Drawing.Size(120, 23)
+        Me.流水號2_bt.TabIndex = 1556
+        '
         '財務單據退回_bt
         '
         Me.財務單據退回_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -201,8 +210,8 @@ Partial Class 應收帳款已收
         '
         '衍生運費_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -210,17 +219,17 @@ Partial Class 應收帳款已收
         Me.衍生運費_dgv.Location = New System.Drawing.Point(6, 451)
         Me.衍生運費_dgv.Name = "衍生運費_dgv"
         Me.衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.衍生運費_dgv.RowTemplate.Height = 24
         Me.衍生運費_dgv.Size = New System.Drawing.Size(1224, 170)
         Me.衍生運費_dgv.TabIndex = 1554
         '
         '其他費用_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.其他費用_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.其他費用_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.其他費用_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.其他費用_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -228,9 +237,9 @@ Partial Class 應收帳款已收
         Me.其他費用_dgv.Location = New System.Drawing.Point(6, 451)
         Me.其他費用_dgv.Name = "其他費用_dgv"
         Me.其他費用_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.其他費用_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.其他費用_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.其他費用_dgv.RowTemplate.Height = 24
         Me.其他費用_dgv.Size = New System.Drawing.Size(1224, 170)
         Me.其他費用_dgv.TabIndex = 1553
@@ -317,9 +326,9 @@ Partial Class 應收帳款已收
         '
         Me.RadioButton3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.RadioButton3.AutoSize = True
-        Me.RadioButton3.Location = New System.Drawing.Point(1120, 5)
+        Me.RadioButton3.Location = New System.Drawing.Point(1121, 5)
         Me.RadioButton3.Name = "RadioButton3"
-        Me.RadioButton3.Size = New System.Drawing.Size(110, 20)
+        Me.RadioButton3.Size = New System.Drawing.Size(109, 20)
         Me.RadioButton3.TabIndex = 1537
         Me.RadioButton3.Text = "未有資料轉財務"
         Me.RadioButton3.UseVisualStyleBackColor = True
@@ -328,9 +337,9 @@ Partial Class 應收帳款已收
         '
         Me.RadioButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.RadioButton2.AutoSize = True
-        Me.RadioButton2.Location = New System.Drawing.Point(996, 5)
+        Me.RadioButton2.Location = New System.Drawing.Point(997, 5)
         Me.RadioButton2.Name = "RadioButton2"
-        Me.RadioButton2.Size = New System.Drawing.Size(110, 20)
+        Me.RadioButton2.Size = New System.Drawing.Size(109, 20)
         Me.RadioButton2.TabIndex = 1536
         Me.RadioButton2.Text = "已有資料轉財務"
         Me.RadioButton2.UseVisualStyleBackColor = True
@@ -340,9 +349,9 @@ Partial Class 應收帳款已收
         Me.RadioButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.RadioButton1.AutoSize = True
         Me.RadioButton1.Checked = True
-        Me.RadioButton1.Location = New System.Drawing.Point(906, 5)
+        Me.RadioButton1.Location = New System.Drawing.Point(907, 5)
         Me.RadioButton1.Name = "RadioButton1"
-        Me.RadioButton1.Size = New System.Drawing.Size(74, 20)
+        Me.RadioButton1.Size = New System.Drawing.Size(73, 20)
         Me.RadioButton1.TabIndex = 1535
         Me.RadioButton1.TabStop = True
         Me.RadioButton1.Text = "全部資料"
@@ -382,7 +391,7 @@ Partial Class 應收帳款已收
         Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label16.Location = New System.Drawing.Point(305, 377)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(44, 16)
+        Me.Label16.Size = New System.Drawing.Size(43, 16)
         Me.Label16.TabIndex = 1521
         Me.Label16.Text = "申請人"
         '
@@ -411,7 +420,7 @@ Partial Class 應收帳款已收
         Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label18.Location = New System.Drawing.Point(294, 402)
         Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(56, 16)
+        Me.Label18.Size = New System.Drawing.Size(55, 16)
         Me.Label18.TabIndex = 1518
         Me.Label18.Text = "財務單號"
         '
@@ -496,7 +505,7 @@ Partial Class 應收帳款已收
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label6.Location = New System.Drawing.Point(4, 351)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
         Me.Label6.TabIndex = 1519
         Me.Label6.Text = "會計科目"
         '
@@ -508,7 +517,7 @@ Partial Class 應收帳款已收
         Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label17.Location = New System.Drawing.Point(58, 402)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(80, 16)
+        Me.Label17.Size = New System.Drawing.Size(79, 16)
         Me.Label17.TabIndex = 1517
         Me.Label17.Text = "財務單據日期"
         '
@@ -541,7 +550,7 @@ Partial Class 應收帳款已收
         Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label34.Location = New System.Drawing.Point(1149, 376)
         Me.Label34.Name = "Label34"
-        Me.Label34.Size = New System.Drawing.Size(86, 16)
+        Me.Label34.Size = New System.Drawing.Size(85, 16)
         Me.Label34.TabIndex = 1505
         Me.Label34.Text = "銷    售   合   計"
         '
@@ -553,7 +562,7 @@ Partial Class 應收帳款已收
         Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label2.Location = New System.Drawing.Point(470, 376)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 1489
         Me.Label2.Text = "單號"
         '
@@ -565,7 +574,7 @@ Partial Class 應收帳款已收
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(470, 403)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1490
         Me.Label4.Text = "客戶"
         '
@@ -576,7 +585,7 @@ Partial Class 應收帳款已收
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label8.Location = New System.Drawing.Point(775, 403)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(39, 16)
+        Me.Label8.Size = New System.Drawing.Size(38, 16)
         Me.Label8.TabIndex = 1492
         Me.Label8.Text = "電話2"
         '
@@ -615,7 +624,7 @@ Partial Class 應收帳款已收
         Me.含稅_ch.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.含稅_ch.Location = New System.Drawing.Point(1096, 401)
         Me.含稅_ch.Name = "含稅_ch"
-        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.含稅_ch.TabIndex = 1504
         Me.含稅_ch.Text = "含稅"
         Me.含稅_ch.UseVisualStyleBackColor = True
@@ -656,7 +665,7 @@ Partial Class 應收帳款已收
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label9.Location = New System.Drawing.Point(628, 401)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
         Me.Label9.TabIndex = 1502
         Me.Label9.Text = "交貨日期"
         '
@@ -668,7 +677,7 @@ Partial Class 應收帳款已收
         Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label11.Location = New System.Drawing.Point(937, 401)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
         Me.Label11.TabIndex = 1499
         Me.Label11.Text = "統編"
         '
@@ -690,7 +699,7 @@ Partial Class 應收帳款已收
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label5.Location = New System.Drawing.Point(628, 376)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(55, 16)
         Me.Label5.TabIndex = 1500
         Me.Label5.Text = "開單日期"
         '
@@ -702,7 +711,7 @@ Partial Class 應收帳款已收
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label7.Location = New System.Drawing.Point(775, 376)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.Size = New System.Drawing.Size(38, 16)
         Me.Label7.TabIndex = 1491
         Me.Label7.Text = "電話1"
         '
@@ -733,7 +742,7 @@ Partial Class 應收帳款已收
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(11, 378)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 1304
         Me.Label1.Text = "項次"
         '
@@ -754,7 +763,7 @@ Partial Class 應收帳款已收
         Me.未審核_lb.AutoSize = True
         Me.未審核_lb.Location = New System.Drawing.Point(5, 8)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(68, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(67, 16)
         Me.未審核_lb.TabIndex = 1340
         Me.未審核_lb.Text = "業務銷售單"
         '
@@ -773,7 +782,7 @@ Partial Class 應收帳款已收
         Me.Label12.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label12.Location = New System.Drawing.Point(118, 8)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1342
         Me.Label12.Text = "客戶資料"
         '
@@ -808,9 +817,9 @@ Partial Class 應收帳款已收
         Me.銷售單據_dgv.Location = New System.Drawing.Point(7, 29)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.銷售單據_dgv.RowTemplate.Height = 24
         Me.銷售單據_dgv.Size = New System.Drawing.Size(1224, 310)
         Me.銷售單據_dgv.TabIndex = 1339
@@ -826,8 +835,8 @@ Partial Class 應收帳款已收
         '
         '收款事項_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -835,9 +844,9 @@ Partial Class 應收帳款已收
         Me.收款事項_dgv.Location = New System.Drawing.Point(6, 451)
         Me.收款事項_dgv.Name = "收款事項_dgv"
         Me.收款事項_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.收款事項_dgv.RowTemplate.Height = 24
         Me.收款事項_dgv.Size = New System.Drawing.Size(1224, 170)
         Me.收款事項_dgv.TabIndex = 1288
@@ -849,7 +858,7 @@ Partial Class 應收帳款已收
         Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label14.Location = New System.Drawing.Point(768, 351)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(121, 16)
+        Me.Label14.Size = New System.Drawing.Size(120, 16)
         Me.Label14.TabIndex = 1526
         Me.Label14.Text = "關鍵字查詢-會計科目"
         '
@@ -861,7 +870,7 @@ Partial Class 應收帳款已收
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label10.Location = New System.Drawing.Point(936, 376)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1496
         Me.Label10.Text = "公司"
         '
@@ -909,7 +918,7 @@ Partial Class 應收帳款已收
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(56, 9)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(39, 16)
+        Me.Label3.Size = New System.Drawing.Size(38, 16)
         Me.Label3.TabIndex = 1305
         Me.Label3.Text = "項次3"
         Me.Label3.Visible = False
@@ -929,7 +938,7 @@ Partial Class 應收帳款已收
         Me.銷售收款流水號.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.銷售收款流水號.Location = New System.Drawing.Point(3, 34)
         Me.銷售收款流水號.Name = "銷售收款流水號"
-        Me.銷售收款流水號.Size = New System.Drawing.Size(92, 16)
+        Me.銷售收款流水號.Size = New System.Drawing.Size(91, 16)
         Me.銷售收款流水號.TabIndex = 1301
         Me.銷售收款流水號.Text = "銷售資料流水號"
         Me.銷售收款流水號.Visible = False
@@ -949,7 +958,7 @@ Partial Class 應收帳款已收
         Me.銷售合計.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.銷售合計.Location = New System.Drawing.Point(39, 59)
         Me.銷售合計.Name = "銷售合計"
-        Me.銷售合計.Size = New System.Drawing.Size(56, 16)
+        Me.銷售合計.Size = New System.Drawing.Size(55, 16)
         Me.銷售合計.TabIndex = 1303
         Me.銷售合計.Text = "銷售合計"
         Me.銷售合計.Visible = False
@@ -993,7 +1002,7 @@ Partial Class 應收帳款已收
         Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label15.Location = New System.Drawing.Point(15, 84)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(85, 16)
+        Me.Label15.Size = New System.Drawing.Size(84, 16)
         Me.Label15.TabIndex = 1507
         Me.Label15.Text = "明細-售價小計"
         Me.Label15.Visible = False
@@ -1021,15 +1030,6 @@ Partial Class 應收帳款已收
         '
         Me.Timer1.Interval = 500
         '
-        '流水號2_bt
-        '
-        Me.流水號2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.流水號2_bt.Enabled = False
-        Me.流水號2_bt.Location = New System.Drawing.Point(967, 425)
-        Me.流水號2_bt.Name = "流水號2_bt"
-        Me.流水號2_bt.Size = New System.Drawing.Size(120, 23)
-        Me.流水號2_bt.TabIndex = 1556
-        '
         '應收帳款已收
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)

YD-ERP-SYS/業務系統管理/應收帳款已收.vb

@@ -1,7 +1,7 @@
 Public Class 應收帳款已收
     ReadOnly ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet
     Dim EDR As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False : Dim 刪除狀態 As Boolean
-    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String : Dim NUM1 As Integer : Dim 匯率1 As Double
+    Dim 新項次, 新流水1, 新流水2 As String : Dim NUM1 As Integer : Dim 匯率1 As Double
     Private Sub Set_清單1()
         Try
             銷售單據_dgv.DataSource = Nothing : ds1.Clear()
@@ -576,9 +576,8 @@
             If 營運成本收支單號_tb.Text = "" Then
                 MsgBox("沒有選擇要退回的資料，無法操作")
             Else
-                PA = 營運成本收支單號_tb.Text
-                SQL_營運成本收支單申請_刪除公帳控制表_應收用() : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
-                PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單2() : Set_清單3() : Set_清單4()
+                PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
+                PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單2() : Set_清單3() : Set_清單4() : MsgBox("退單完成!!")
             End If
         Catch ex As Exception
             MsgBox(ex.Message)

YD-ERP-SYS/業務系統管理/銷售單申請.vb

@@ -9,7 +9,8 @@ Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Public Class 銷售單申請
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet
-    Dim ESTR, ESTR1, 變數 As String
+    Dim 匯率1 As Double
+    Dim 新項次, ESTR, ESTR1, 變數, 新流水1 As String
     Dim 運費, 稅金存檔, 選取位置, NUM1, EDR, EDR1, N1, N2, N3, N4 As Integer
     Dim 刷卡控制, 首次開啟 As Boolean
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
@@ -257,9 +258,8 @@ Public Class 銷售單申請
 
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
                 收款事項_dgv("項次", i).Value = i + 1
-                If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then
-                    收款事項_dgv("含稅", i).Value = False
-                End If
+                If IsDBNull(收款事項_dgv("含稅", i).Value) = True Then : 收款事項_dgv("含稅", i).Value = False : End If
+                If IsDBNull(收款事項_dgv("轉財務", i).Value) = True Then : 收款事項_dgv("轉財務", i).Value = False : End If
             Next
             收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
             Set_合記計算()
@@ -324,6 +324,7 @@ Public Class 銷售單申請
     End Sub
     Private Sub Set_日期格式轉換()
         DTP = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Strings.Format(交貨日期_dtp.Value, "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
+        DTP3 = Strings.Format(申請日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(申請日期_dtp.Value, "yyyy/MM/dd")
     End Sub
     Private Sub Set_合記計算()
         Try
@@ -460,25 +461,54 @@ Public Class 銷售單申請
         業務_cb.Items.Clear() : 業務_cb.Items.Clear()
         While (dr.Read()) : 業務_cb.Items.Add(dr("業務號")) : End While : conn.Close()
     End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款已收_查詢公帳控制表會計科目1() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear()
+        While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目() : 會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = ""
+        While (dr.Read()) : 會科1_ch.Items.Add(dr("第一階")) : 會科碼1_ch.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款已收_查詢最左邊公帳控制表會計科目1() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
+        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 匯率()
+        PA1 = Strings.Left(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
+        PA2 = Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2)
+        SQL_營運成本收支單申請_查詢匯率()
+        If dr.Read() Then
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront()
+        End If
+    End Sub
     Private Sub 銷售單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            顯示_bt.Enabled = False : 隱藏_bt.Enabled = True : 業務_cb_下拉表單資料載入()
-            If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
-            If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
-            料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
-
-            指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
-            首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
-
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
+        會科1_ch.Items.Clear() : 會科碼1_ch.Items.Clear() : 會科1_ch.Text = "" : 會科碼1_ch.Text = ""
+
+        ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
+        會科1_ch.SelectedIndex = 1 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0
+        申請人_tb.Text = gUserName : 申請日期_dtp.Value = Today() : 匯率()
+
+        顯示_bt.Enabled = False : 隱藏_bt.Enabled = True : 業務_cb_下拉表單資料載入()
+        If 登入人級別 <= 3 Then : 已審核資料_ch.Enabled = True : Else : 已審核資料_ch.Enabled = False : End If
+        If CC(37) = False Then : 已審核資料_ch.Checked = False : Else : 已審核資料_ch.Checked = True : End If
+        料號_tb.Enabled = False : 供應商編碼_tb.Visible = False : 中間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 送貨地點_cb_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單1() : 業務_cb.Text = 業務號碼 : 首次開啟 = True '--------------------資料讀取
+
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
     End Sub
     Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         If 開立庫存調整單_bt.Enabled = False Then
@@ -510,6 +540,7 @@ Public Class 銷售單申請
     Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString : 項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
+            營運成本收支單號_tb.Text = 收款事項_dgv("收支單號", e.RowIndex).Value.ToString : 流水號2_bt.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString
             項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
         End If
     End Sub
@@ -696,6 +727,25 @@ Public Class 銷售單申請
         小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
         存檔1() : Set_清單4()
     End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科1_ch.TextChanged
+        會科碼1_ch.SelectedIndex = 會科1_ch.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 會科碼1_ch.TextChanged
+        會科1_ch.SelectedIndex = 會科碼1_ch.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
+    End Sub
+
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
         If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
             供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
@@ -1302,6 +1352,107 @@ Public Class 銷售單申請
             MsgBox(ex.Message)
         End Try
     End Sub
+    Private Sub 財務單據退回_bt_Click(sender As Object, e As EventArgs) Handles 財務單據退回_bt.Click
+        If 營運成本收支單號_tb.Text = "" Then
+            MsgBox("沒有選擇要退回的資料，無法操作")
+        Else
+            PA = 營運成本收支單號_tb.Text : SQL_營運成本收支單申請_刪除公帳流水帳_應收用()
+            PA12 = 流水號2_bt.Text : SQL_應收帳款未收_轉財務_退回() : conn.Close() : Set_清單6()
+            MsgBox("退單完成!!")
+        End If
+    End Sub
+    Private Sub Set_流水號()
+        conn.Close() : dr.Close()
+        Dim NUM1 As Integer
+        For NUM1 = 0 To 99
+            Dim d As String : Dim f As String : Dim g As Integer = 1
+            If Month(申請日期_dtp.Value) < 10 Then : d = "0" & CStr(Month(申請日期_dtp.Value))
+            Else : d = CStr(Month(申請日期_dtp.Value))
+            End If
+            If Val(Strings.Right(申請日期_dtp.Value, 2)) < 10 Then : f = "0" & Val(Strings.Right(申請日期_dtp.Value, 2))
+            Else : f = Val(Strings.Right(申請日期_dtp.Value, 2))
+            End If
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & "0" & NUM1
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(申請日期_dtp.Value)), 2) & d & f & NUM1
+            End If : PA19 = 新流水1
+            SQL_營運成本收支單申請_查詢收支單公帳流水號()
+            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
+        Next
+    End Sub
+    Private Sub 轉財務系統_bt_Click(sender As Object, e As EventArgs) Handles 轉財務系統_bt.Click
+        SQL_應收帳款未收_轉財務Null為False()
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+            PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+            NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value : PA12 = 收款事項_dgv.Rows(i).Cells("含稅").Value
+            SQL_銷售收款事項_修改() : conn.Close()
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+        Dim AA As Boolean = True
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False Then
+                AA = False
+                Exit For
+            End If
+        Next
+        If AA = False Then
+            Dim NUM1 As Integer
+            Set_日期格式轉換()
+            For i As Integer = 1 To 999
+                NUM1 = 0 + i
+                If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-00" & NUM1
+                ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-0" & NUM1
+                ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-" & NUM1
+                End If
+                conn.Close()
+                PA = 營運成本收支單號_tb.Text
+                SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
+                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+            Next
+            PA = 營運成本收支單號_tb.Text
+            SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close()
+
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then
+                    If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
+                        MsgBox("沒有選擇會計科目或幣別。")
+                    Else
+                        Set_日期格式轉換() : Set_流水號()
+                        PA = 營運成本收支單號_tb.Text
+                        SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
+                        If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
+                        NUM1 = Double.Parse(新項次) + 1
+                        If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
+
+                        If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1
+                        ElseIf 幣別_cb.Text = "人民幣現金" Then : 匯率1 = 人民幣匯率_tb.Text
+                        ElseIf 幣別_cb.Text = "美金" Then : 匯率1 = 美金匯率_tb.Text : End If
+
+                        Dim RR As String
+                        If Len(客戶_tb.Text & 收款事項_dgv.Rows(i).Cells("內容").Value) <= 21 Then
+                            RR = 收款事項_dgv.Rows(i).Cells("內容").Value
+                        Else
+                            RR = Strings.Left(收款事項_dgv.Rows(i).Cells("內容").Value, 21 - Len(客戶_tb.Text))
+                        End If
+                        PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & RR & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
+
+                        PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                        PA21 = 收款事項_dgv.Rows(i).Cells("含稅").Value : PA22 = "0"
+                        SQL_應收轉財務_新增公帳流水帳資料()
+
+                        PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                        SQL_應收帳款未收_轉財務()
+
+                        conn.Close() : Set_清單6()
+                    End If
+                End If
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1() : MsgBox("收款資料轉財務單完成!!!")
+        Else
+            MsgBox("沒有滿足可以轉財務的需求!!!")
+        End If
+    End Sub
     Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
         Try
             If 流水號_tb.Text = "" Then