2021061501 程式更新整合

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

@@ -264,6 +264,45 @@
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_應收帳款未收_查詢公帳控制表會計科目()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款未收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) 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 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款未收_查詢最左邊公帳控制表會計科目()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 應收帳款未收.ComboBox2.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款未收_轉財務Null為False()
+        ConnOpen()
+        SQL1 = "UPDATE  銷售收款事項 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款未收_新增公帳流水帳資料()
+        ConnOpen()
+        SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
+                            出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &
+                   "VALUES (N'" & PA19 & "', N'" & 應收帳款未收.幣別_cb.Text & "', N'" & DTP & "', N'" & 應收帳款未收.ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & 應收帳款未收.營運成本收支單號_tb.Text & "', N'" & PA15 &
+                        "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款未收_查詢最後一筆公帳支付單號()
+        ConnOpen()
+        SQL1 = "SELECT TOP(1) 項次 FROM 公帳流水帳 WHERE 支付單號 LIKE '" & 應收帳款未收.營運成本收支單號_tb.Text & "' ORDER BY 項次 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款未收_轉財務()
+        ConnOpen()
+        SQL1 = "UPDATE  銷售收款事項 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"
+        CmdSet_For_dr()
+    End Sub
     '---------------------應收帳款已收-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_應收帳款已收_訂單控制表()
         ConnOpen()
@@ -280,4 +319,30 @@
                 ORDER BY    銷售控制表.單號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_應收帳款已收_轉財務Null為False()
+        ConnOpen()
+        SQL1 = "UPDATE  銷售收款事項 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款已收_轉財務()
+        ConnOpen()
+        SQL1 = "UPDATE  銷售收款事項 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款已收_查詢最左邊公帳控制表會計科目()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 應收帳款已收.ComboBox2.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 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收帳款已收_查詢公帳控制表會計科目()
+        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/SQL_財務系統管理.vb

@@ -160,7 +160,7 @@
     Friend Sub SQL_營運成本收支單申請_查詢匯率()
         ConnOpen()
         SQL1 = "SELECT 中心匯率, 美金匯率 FROM 歷史匯率表 
-                WHERE (年 LIKE '" & Strings.Left(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
+                WHERE (年 LIKE '" & PA1 & "%') AND (月 LIKE '" & PA2 & "%')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_營運成本會計科目查詢()
@@ -183,13 +183,13 @@
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
         ConnOpen()
-        SQL1 = "SELECT TOP (1)  支付單號 FROM 公帳控制表 WHERE ( 支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
+        SQL1 = "SELECT TOP (1)  支付單號 FROM 公帳控制表 WHERE ( 支付單號 LIKE '" & PA & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_新增一筆公帳控制表()
         ConnOpen()
         SQL1 = "INSERT INTO 公帳控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) " &
-               "VALUES (N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'雅邸家具')"
+               "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'雅邸家具')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_會計科目管理_開立零用金支付單()
@@ -223,7 +223,7 @@
     End Sub
     Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
         ConnOpen()
-        SQL1 = "SELECT TOP(1) 項次 FROM 公帳流水帳 WHERE 支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' ORDER BY 項次 DESC"
+        SQL1 = "SELECT TOP(1) 項次 FROM 公帳流水帳 WHERE 支付單號 LIKE '" & PA & "' ORDER BY 項次 DESC"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單申請_新增公帳流水帳資料()
@@ -234,6 +234,14 @@
                         "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_應收轉財務_新增公帳流水帳資料()
+        ConnOpen()
+        SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
+                            出納日期, 零用金, 支票數, 匯率, 備註, 含稅) VALUES (N'" & PA19 & "', N'" & PA17 & "', N'" & DTP & "', N'" & PA18 & "', N'" & PA20 & "', 
+                            N'0', N'" & PA14 & "', N'" & gUserName & "', N'" & PA & "', N'" & PA15 & "', 
+                            N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"
+        CmdSet_For_dr()
+    End Sub
     '---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支單審核_審核人1()
         PA = "WHERE (審核人 LIKE '') "

YD-ERP-SYS/Module/SQL_跨介面共用.vb

@@ -207,7 +207,7 @@
     End Sub
     Friend Sub SQL_銷售收款事項()
         ConnOpen()
-        SQL1 = "SELECT 資料流水號, 單號, 項次 AS 真項次, 項次, 內容, 金額 FROM 銷售收款事項 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 項次 DESC, 內容 DESC"
+        SQL1 = "SELECT 資料流水號, 單號, 項次 AS 真項次, 項次, 內容, 金額, 收支單號, 轉財務  FROM 銷售收款事項 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 項次 DESC, 內容 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_銷售控制表_刪除()
@@ -348,7 +348,7 @@
         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 銷售明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售備註表_最後一筆資料()
-        ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 銷售備註表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 銷售備註表 ' ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售衍生運費_最後一筆資料()
         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 銷售衍生運費 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
@@ -357,7 +357,7 @@
         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 銷售收款事項 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售收款事項_最後一筆項次()
-        ConnOpen() : SQL1 = "SELECT TOP (1) 項次 FROM 銷售收款事項 ORDER BY 項次 DESC" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 項次 FROM 銷售收款事項 WHERE 單號 LIKE '" & PA & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_銷售明細_改倉名()
         ConnOpen() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

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

@@ -4,7 +4,7 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 業務號碼 As String
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021051302"
+    Public 版本 As String = "2021061501"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String

YD-ERP-SYS/YD-ERP-SYS.vb

@@ -185,12 +185,10 @@ Public Class YD_ERP_SYS
     Private Sub 薪資轉帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 薪資轉帳表_tsm.Click
         PA = "" : 薪資轉帳表.Show() : 薪資轉帳表.BringToFront()
     End Sub
-
     Private Sub 應收帳款未收ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 應收帳款未收_tsm.Click
-        PA = "" : 應收帳款未收.Show() : 應收帳款未收.BringToFront()
+        PA = "" : 應收帳款未收.ShowDialog() : 應收帳款未收.BringToFront()
     End Sub
-
     Private Sub 應收帳款已收_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款已收_tsm.Click
-        PA = "" : 應收帳款已收.Show() : 應收帳款已收.BringToFront()
+        PA = "" : 應收帳款已收.ShowDialog() : 應收帳款已收.BringToFront()
     End Sub
 End Class

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

@@ -203,16 +203,16 @@
     <Compile Include="採購系統管理\依銷售申請採購單.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="採購系統管理\應收帳款已收.Designer.vb">
-      <DependentUpon>應收帳款已收.vb</DependentUpon>
+    <Compile Include="業務系統管理\應收帳款未收.Designer.vb">
+      <DependentUpon>應收帳款未收.vb</DependentUpon>
     </Compile>
-    <Compile Include="採購系統管理\應收帳款已收.vb">
+    <Compile Include="業務系統管理\應收帳款未收.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="採購系統管理\應收帳款未收.Designer.vb">
-      <DependentUpon>應收帳款未收.vb</DependentUpon>
+    <Compile Include="業務系統管理\應收帳款已收.Designer.vb">
+      <DependentUpon>應收帳款已收.vb</DependentUpon>
     </Compile>
-    <Compile Include="採購系統管理\應收帳款未收.vb">
+    <Compile Include="業務系統管理\應收帳款已收.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="採購系統管理\採購單審核.Designer.vb">
@@ -460,12 +460,12 @@
     <EmbeddedResource Include="採購系統管理\依銷售申請採購單.resx">
       <DependentUpon>依銷售申請採購單.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="採購系統管理\應收帳款已收.resx">
-      <DependentUpon>應收帳款已收.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="採購系統管理\應收帳款未收.resx">
+    <EmbeddedResource Include="業務系統管理\應收帳款未收.resx">
       <DependentUpon>應收帳款未收.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="業務系統管理\應收帳款已收.resx">
+      <DependentUpon>應收帳款已收.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="採購系統管理\採購單審核.resx">
       <DependentUpon>採購單審核.vb</DependentUpon>
     </EmbeddedResource>

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

@@ -1 +1 @@
-60a1219e988220db087d64bf23fc6d950054aa15
+a1b116e571280e126e44421c890a5b5be98738bb

YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -211,8 +211,6 @@ C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ER
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
-D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
-D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
 C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
 C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
 C:\Users\陳億\Desktop\yd-erp-sys-team-austin\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
@@ -331,3 +329,5 @@ C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP
 C:\Users\user\OneDrive\桌面\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
 C:\Users\USER\Desktop\YD-ERP-SYS-Team-Austin-master\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources

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

@@ -0,0 +1,846 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 應收帳款已收
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        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()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.轉財務系統_bt = New System.Windows.Forms.Button()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.銷售合計1_tb = New System.Windows.Forms.TextBox()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.客戶_tb = New System.Windows.Forms.TextBox()
+        Me.電話1_tb = New System.Windows.Forms.TextBox()
+        Me.電話2_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.公司_tb = New System.Windows.Forms.TextBox()
+        Me.交貨日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.統編_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.開單日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.單號_tb = New System.Windows.Forms.TextBox()
+        Me.售價小計_tb = New System.Windows.Forms.TextBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.銷售合計 = New System.Windows.Forms.Label()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.銷售合計_tb = New System.Windows.Forms.TextBox()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.銷售收款流水號 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.銷售收款流水號_tb = New System.Windows.Forms.TextBox()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.項次3_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.項次2_tb = New System.Windows.Forms.TextBox()
+        Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Panel1.SuspendLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Panel1.Controls.Add(Me.ComboBox6)
+        Me.Panel1.Controls.Add(Me.美金匯率_tb)
+        Me.Panel1.Controls.Add(Me.人民幣匯率_tb)
+        Me.Panel1.Controls.Add(Me.轉財務系統_bt)
+        Me.Panel1.Controls.Add(Me.Label16)
+        Me.Panel1.Controls.Add(Me.申請人_tb)
+        Me.Panel1.Controls.Add(Me.營運成本收支單號_tb)
+        Me.Panel1.Controls.Add(Me.Label18)
+        Me.Panel1.Controls.Add(Me.Label14)
+        Me.Panel1.Controls.Add(Me.關鍵字查詢會計科目_tb)
+        Me.Panel1.Controls.Add(Me.幣別_cb)
+        Me.Panel1.Controls.Add(Me.ComboBox4)
+        Me.Panel1.Controls.Add(Me.ComboBox3)
+        Me.Panel1.Controls.Add(Me.ComboBox2)
+        Me.Panel1.Controls.Add(Me.ComboBox5)
+        Me.Panel1.Controls.Add(Me.ComboBox1)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label17)
+        Me.Panel1.Controls.Add(Me.申請日期_dtp)
+        Me.Panel1.Controls.Add(Me.Label15)
+        Me.Panel1.Controls.Add(Me.銷售合計1_tb)
+        Me.Panel1.Controls.Add(Me.Label34)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.客戶_tb)
+        Me.Panel1.Controls.Add(Me.電話1_tb)
+        Me.Panel1.Controls.Add(Me.電話2_tb)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Controls.Add(Me.含稅_ch)
+        Me.Panel1.Controls.Add(Me.公司_tb)
+        Me.Panel1.Controls.Add(Me.交貨日期_dtp)
+        Me.Panel1.Controls.Add(Me.統編_tb)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.開單日期_dtp)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Controls.Add(Me.單號_tb)
+        Me.Panel1.Controls.Add(Me.售價小計_tb)
+        Me.Panel1.Controls.Add(Me.Label30)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.字體大小調整_lb)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.字體_NUD)
+        Me.Panel1.Controls.Add(Me.銷售合計)
+        Me.Panel1.Controls.Add(Me.未審核_lb)
+        Me.Panel1.Controls.Add(Me.銷售合計_tb)
+        Me.Panel1.Controls.Add(Me.客戶1_tb)
+        Me.Panel1.Controls.Add(Me.銷售收款流水號)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.銷售收款流水號_tb)
+        Me.Panel1.Controls.Add(Me.業務_cb)
+        Me.Panel1.Controls.Add(Me.項次3_tb)
+        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.Location = New System.Drawing.Point(2, 2)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1378, 719)
+        Me.Panel1.TabIndex = 1
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        Me.ComboBox6.Location = New System.Drawing.Point(310, 607)
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox6.Name = "ComboBox6"
+        Me.ComboBox6.Size = New System.Drawing.Size(176, 24)
+        Me.ComboBox6.TabIndex = 1533
+        Me.ComboBox6.Visible = False
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(310, 576)
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.美金匯率_tb.TabIndex = 1532
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(310, 545)
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.人民幣匯率_tb.TabIndex = 1531
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
+        '轉財務系統_bt
+        '
+        Me.轉財務系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.轉財務系統_bt.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.轉財務系統_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.轉財務系統_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.轉財務系統_bt.Location = New System.Drawing.Point(61, 468)
+        Me.轉財務系統_bt.Name = "轉財務系統_bt"
+        Me.轉財務系統_bt.Size = New System.Drawing.Size(122, 48)
+        Me.轉財務系統_bt.TabIndex = 1530
+        Me.轉財務系統_bt.Text = "轉財務系統"
+        Me.轉財務系統_bt.UseVisualStyleBackColor = True
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label16.Location = New System.Drawing.Point(322, 470)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(44, 16)
+        Me.Label16.TabIndex = 1521
+        Me.Label16.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(368, 466)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(117, 23)
+        Me.申請人_tb.TabIndex = 1520
+        Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '營運成本收支單號_tb
+        '
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(368, 493)
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
+        Me.營運成本收支單號_tb.Size = New System.Drawing.Size(117, 23)
+        Me.營運成本收支單號_tb.TabIndex = 1519
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label18.Location = New System.Drawing.Point(262, 497)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(104, 16)
+        Me.Label18.TabIndex = 1518
+        Me.Label18.Text = "營運成本收支單號"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label14.Location = New System.Drawing.Point(771, 440)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(121, 16)
+        Me.Label14.TabIndex = 1526
+        Me.Label14.Text = "關鍵字查詢-會計科目"
+        '
+        '關鍵字查詢會計科目_tb
+        '
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(899, 437)
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(476, 23)
+        Me.關鍵字查詢會計科目_tb.TabIndex = 1525
+        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!)
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金"})
+        Me.幣別_cb.Location = New System.Drawing.Point(646, 437)
+        Me.幣別_cb.Name = "幣別_cb"
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
+        Me.幣別_cb.TabIndex = 1524
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        Me.ComboBox4.Location = New System.Drawing.Point(374, 437)
+        Me.ComboBox4.Name = "ComboBox4"
+        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
+        Me.ComboBox4.TabIndex = 1523
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(250, 437)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(121, 24)
+        Me.ComboBox3.TabIndex = 1522
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Location = New System.Drawing.Point(186, 437)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(61, 24)
+        Me.ComboBox2.TabIndex = 1521
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        Me.ComboBox5.Location = New System.Drawing.Point(62, 437)
+        Me.ComboBox5.Name = "ComboBox5"
+        Me.ComboBox5.Size = New System.Drawing.Size(121, 24)
+        Me.ComboBox5.TabIndex = 1520
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(455, 437)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(188, 24)
+        Me.ComboBox1.TabIndex = 1518
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label6.Location = New System.Drawing.Point(4, 442)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1519
+        Me.Label6.Text = "會計科目"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.ForeColor = System.Drawing.Color.Blue
+        Me.Label17.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label17.Location = New System.Drawing.Point(78, 548)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(32, 16)
+        Me.Label17.TabIndex = 1517
+        Me.Label17.Text = "日期"
+        Me.Label17.Visible = False
+        '
+        '申請日期_dtp
+        '
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.申請日期_dtp.Location = New System.Drawing.Point(116, 543)
+        Me.申請日期_dtp.Name = "申請日期_dtp"
+        Me.申請日期_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.申請日期_dtp.TabIndex = 1516
+        Me.申請日期_dtp.Visible = False
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.Black
+        Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label15.Location = New System.Drawing.Point(25, 663)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(85, 16)
+        Me.Label15.TabIndex = 1507
+        Me.Label15.Text = "明細-售價小計"
+        Me.Label15.Visible = False
+        '
+        '銷售合計1_tb
+        '
+        Me.銷售合計1_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.銷售合計1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售合計1_tb.Location = New System.Drawing.Point(1291, 491)
+        Me.銷售合計1_tb.Name = "銷售合計1_tb"
+        Me.銷售合計1_tb.Size = New System.Drawing.Size(84, 23)
+        Me.銷售合計1_tb.TabIndex = 1506
+        Me.銷售合計1_tb.Text = "0"
+        Me.銷售合計1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label34
+        '
+        Me.Label34.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label34.AutoSize = True
+        Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label34.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label34.Location = New System.Drawing.Point(1289, 469)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(86, 16)
+        Me.Label34.TabIndex = 1505
+        Me.Label34.Text = "銷    售   合   計"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Red
+        Me.Label2.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label2.Location = New System.Drawing.Point(492, 469)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.TabIndex = 1489
+        Me.Label2.Text = "單號"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Red
+        Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label4.Location = New System.Drawing.Point(492, 496)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 1490
+        Me.Label4.Text = "客戶"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label8.Location = New System.Drawing.Point(896, 496)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(39, 16)
+        Me.Label8.TabIndex = 1492
+        Me.Label8.Text = "電話2"
+        '
+        '客戶_tb
+        '
+        Me.客戶_tb.Enabled = False
+        Me.客戶_tb.Location = New System.Drawing.Point(529, 491)
+        Me.客戶_tb.Name = "客戶_tb"
+        Me.客戶_tb.Size = New System.Drawing.Size(169, 23)
+        Me.客戶_tb.TabIndex = 1493
+        '
+        '電話1_tb
+        '
+        Me.電話1_tb.Enabled = False
+        Me.電話1_tb.Location = New System.Drawing.Point(934, 466)
+        Me.電話1_tb.Name = "電話1_tb"
+        Me.電話1_tb.Size = New System.Drawing.Size(121, 23)
+        Me.電話1_tb.TabIndex = 1494
+        '
+        '電話2_tb
+        '
+        Me.電話2_tb.Enabled = False
+        Me.電話2_tb.Location = New System.Drawing.Point(935, 491)
+        Me.電話2_tb.Name = "電話2_tb"
+        Me.電話2_tb.Size = New System.Drawing.Size(120, 23)
+        Me.電話2_tb.TabIndex = 1495
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.ForeColor = System.Drawing.Color.Black
+        Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label10.Location = New System.Drawing.Point(1060, 469)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1496
+        Me.Label10.Text = "公司"
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Enabled = False
+        Me.含稅_ch.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.含稅_ch.Location = New System.Drawing.Point(1227, 494)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1504
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '公司_tb
+        '
+        Me.公司_tb.Enabled = False
+        Me.公司_tb.Location = New System.Drawing.Point(1098, 466)
+        Me.公司_tb.Name = "公司_tb"
+        Me.公司_tb.Size = New System.Drawing.Size(178, 23)
+        Me.公司_tb.TabIndex = 1497
+        '
+        '交貨日期_dtp
+        '
+        Me.交貨日期_dtp.Enabled = False
+        Me.交貨日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.交貨日期_dtp.Location = New System.Drawing.Point(763, 491)
+        Me.交貨日期_dtp.Name = "交貨日期_dtp"
+        Me.交貨日期_dtp.Size = New System.Drawing.Size(127, 23)
+        Me.交貨日期_dtp.TabIndex = 1503
+        '
+        '統編_tb
+        '
+        Me.統編_tb.Enabled = False
+        Me.統編_tb.Location = New System.Drawing.Point(1098, 491)
+        Me.統編_tb.Name = "統編_tb"
+        Me.統編_tb.Size = New System.Drawing.Size(120, 23)
+        Me.統編_tb.TabIndex = 1498
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Red
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(701, 494)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 1502
+        Me.Label9.Text = "交貨日期"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.Black
+        Me.Label11.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label11.Location = New System.Drawing.Point(1061, 494)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1499
+        Me.Label11.Text = "統編"
+        '
+        '開單日期_dtp
+        '
+        Me.開單日期_dtp.Enabled = False
+        Me.開單日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開單日期_dtp.Location = New System.Drawing.Point(763, 466)
+        Me.開單日期_dtp.Name = "開單日期_dtp"
+        Me.開單日期_dtp.Size = New System.Drawing.Size(127, 23)
+        Me.開單日期_dtp.TabIndex = 1501
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Red
+        Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label5.Location = New System.Drawing.Point(701, 469)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1500
+        Me.Label5.Text = "開單日期"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.ForeColor = System.Drawing.Color.Red
+        Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label7.Location = New System.Drawing.Point(896, 469)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(39, 16)
+        Me.Label7.TabIndex = 1491
+        Me.Label7.Text = "電話1"
+        '
+        '單號_tb
+        '
+        Me.單號_tb.Enabled = False
+        Me.單號_tb.Location = New System.Drawing.Point(529, 466)
+        Me.單號_tb.Name = "單號_tb"
+        Me.單號_tb.Size = New System.Drawing.Size(169, 23)
+        Me.單號_tb.TabIndex = 1488
+        '
+        '售價小計_tb
+        '
+        Me.售價小計_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.售價小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.售價小計_tb.Location = New System.Drawing.Point(116, 660)
+        Me.售價小計_tb.Name = "售價小計_tb"
+        Me.售價小計_tb.Size = New System.Drawing.Size(81, 23)
+        Me.售價小計_tb.TabIndex = 1487
+        Me.售價小計_tb.Text = "0"
+        Me.售價小計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.售價小計_tb.Visible = False
+        '
+        'Label30
+        '
+        Me.Label30.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label30.AutoSize = True
+        Me.Label30.ForeColor = System.Drawing.Color.Black
+        Me.Label30.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label30.Location = New System.Drawing.Point(-127, 663)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(85, 16)
+        Me.Label30.TabIndex = 1486
+        Me.Label30.Text = "明細-售價小計"
+        Me.Label30.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(71, 576)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(39, 16)
+        Me.Label3.TabIndex = 1305
+        Me.Label3.Text = "項次3"
+        Me.Label3.Visible = False
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(567, 5)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.TabIndex = 1457
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(8, 473)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.TabIndex = 1304
+        Me.Label1.Text = "項次"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Location = New System.Drawing.Point(637, 3)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(38, 23)
+        Me.字體_NUD.TabIndex = 1456
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '銷售合計
+        '
+        Me.銷售合計.AutoSize = True
+        Me.銷售合計.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.銷售合計.Location = New System.Drawing.Point(54, 634)
+        Me.銷售合計.Name = "銷售合計"
+        Me.銷售合計.Size = New System.Drawing.Size(56, 16)
+        Me.銷售合計.TabIndex = 1303
+        Me.銷售合計.Text = "銷售合計"
+        Me.銷售合計.Visible = False
+        '
+        '未審核_lb
+        '
+        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.TabIndex = 1340
+        Me.未審核_lb.Text = "業務銷售單"
+        '
+        '銷售合計_tb
+        '
+        Me.銷售合計_tb.Enabled = False
+        Me.銷售合計_tb.Location = New System.Drawing.Point(116, 631)
+        Me.銷售合計_tb.Name = "銷售合計_tb"
+        Me.銷售合計_tb.Size = New System.Drawing.Size(150, 23)
+        Me.銷售合計_tb.TabIndex = 1302
+        Me.銷售合計_tb.Visible = False
+        '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        Me.客戶1_tb.Location = New System.Drawing.Point(173, 3)
+        Me.客戶1_tb.Name = "客戶1_tb"
+        Me.客戶1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.客戶1_tb.TabIndex = 1343
+        '
+        '銷售收款流水號
+        '
+        Me.銷售收款流水號.AutoSize = True
+        Me.銷售收款流水號.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.銷售收款流水號.Location = New System.Drawing.Point(18, 605)
+        Me.銷售收款流水號.Name = "銷售收款流水號"
+        Me.銷售收款流水號.Size = New System.Drawing.Size(92, 16)
+        Me.銷售收款流水號.TabIndex = 1301
+        Me.銷售收款流水號.Text = "銷售資料流水號"
+        Me.銷售收款流水號.Visible = False
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Black
+        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.TabIndex = 1342
+        Me.Label12.Text = "客戶資料"
+        '
+        '銷售收款流水號_tb
+        '
+        Me.銷售收款流水號_tb.Enabled = False
+        Me.銷售收款流水號_tb.Location = New System.Drawing.Point(116, 602)
+        Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
+        Me.銷售收款流水號_tb.Size = New System.Drawing.Size(150, 23)
+        Me.銷售收款流水號_tb.TabIndex = 1300
+        Me.銷售收款流水號_tb.Visible = False
+        '
+        '業務_cb
+        '
+        Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務_cb.FormattingEnabled = True
+        Me.業務_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "B", "Y"})
+        Me.業務_cb.Location = New System.Drawing.Point(74, 3)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(40, 24)
+        Me.業務_cb.TabIndex = 1341
+        '
+        '項次3_tb
+        '
+        Me.項次3_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.項次3_tb.Enabled = False
+        Me.項次3_tb.Location = New System.Drawing.Point(-36, 573)
+        Me.項次3_tb.Name = "項次3_tb"
+        Me.項次3_tb.Size = New System.Drawing.Size(38, 23)
+        Me.項次3_tb.TabIndex = 1299
+        Me.項次3_tb.Visible = False
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(301, 9)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(260, 15)
+        Me.Label13.TabIndex = 1344
+        Me.Label13.Text = "可以使用客戶名稱，電話，地址，統編等資料作查詢"
+        '
+        '銷售單據_dgv
+        '
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        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
+        Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售單據_dgv.Location = New System.Drawing.Point(3, 29)
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        Me.銷售單據_dgv.RowHeadersWidth = 5
+        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(1372, 399)
+        Me.銷售單據_dgv.TabIndex = 1339
+        '
+        '項次2_tb
+        '
+        Me.項次2_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.項次2_tb.Enabled = False
+        Me.項次2_tb.Location = New System.Drawing.Point(4, 491)
+        Me.項次2_tb.Name = "項次2_tb"
+        Me.項次2_tb.Size = New System.Drawing.Size(39, 23)
+        Me.項次2_tb.TabIndex = 1289
+        '
+        '收款事項_dgv
+        '
+        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
+        Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收款事項_dgv.Location = New System.Drawing.Point(3, 522)
+        Me.收款事項_dgv.Name = "收款事項_dgv"
+        Me.收款事項_dgv.RowHeadersWidth = 5
+        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(1372, 194)
+        Me.收款事項_dgv.TabIndex = 1288
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        '應收帳款已收
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1382, 724)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "應收帳款已收"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "應收帳款已收"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents Label13 As Label
+    Protected WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 收款事項_dgv As DataGridView
+    Friend WithEvents 銷售收款流水號_tb As TextBox
+    Friend WithEvents 銷售收款流水號 As Label
+    Friend WithEvents 銷售合計_tb As TextBox
+    Friend WithEvents 銷售合計 As Label
+    Friend WithEvents 項次3_tb As TextBox
+    Friend WithEvents 項次2_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 售價小計_tb As TextBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 客戶_tb As TextBox
+    Friend WithEvents 電話1_tb As TextBox
+    Friend WithEvents 電話2_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 公司_tb As TextBox
+    Friend WithEvents 交貨日期_dtp As DateTimePicker
+    Friend WithEvents 統編_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 開單日期_dtp As DateTimePicker
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 單號_tb As TextBox
+    Friend WithEvents 銷售合計1_tb As TextBox
+    Friend WithEvents Label34 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 申請日期_dtp As DateTimePicker
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 轉財務系統_bt As Button
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 營運成本收支單號_tb As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents ComboBox6 As ComboBox
+End Class

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

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

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

@@ -0,0 +1,309 @@
+Public Class 應收帳款已收
+    ReadOnly ds1, ds2, ds4, ds5, ds6, ds7 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
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 35
+        收款事項_dgv.RowTemplate.Height = 30
+
+        PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text
+        SQL_應收帳款已收_訂單控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 110
+        銷售單據_dgv.Columns(4).FillWeight = 110 : 銷售單據_dgv.Columns(5).FillWeight = 100 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 85
+        銷售單據_dgv.Columns(8).FillWeight = 85 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = 85 : 銷售單據_dgv.Columns(11).Visible = 85
+        銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = 85 : 銷售單據_dgv.Columns(14).Visible = 85 : 銷售單據_dgv.Columns(15).Visible = False
+        銷售單據_dgv.Columns(16).Visible = 85 : 銷售單據_dgv.Columns(17).Visible = 85 : 銷售單據_dgv.Columns(18).Visible = False
+
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("運費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_清單2()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180 : 收款事項_dgv.Columns(6).Visible = False : 收款事項_dgv.Columns(7).FillWeight = 50
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        If 刪除狀態 = False Then
+            銷售合計1_tb.Text = "0" : 售價小計_tb.Text = "0"
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                收款事項_dgv("項次", i).Value = i + 1
+                銷售合計1_tb.Text = Val(銷售合計1_tb.Text) + 收款事項_dgv("金額", i).Value
+                售價小計_tb.Text = Val(售價小計_tb.Text) + 收款事項_dgv("金額", i).Value
+            Next
+            銷售合計1_tb.Text = Format(Val(銷售合計1_tb.Text), "#,##0")
+        Else
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                收款事項_dgv("項次", i).Value = i + 1
+            Next
+        End If
+
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款已收_查詢公帳控制表會計科目() : 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_應收帳款已收_查詢最後一筆公帳控制表會計科目() : ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
+        While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款已收_查詢最左邊公帳控制表會計科目() : 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 開立零用金支付單()
+        Dim NUM1 As Integer : Timer1.Enabled = True
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & 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()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Format(申請日期_dtp.Value, "yyyy/MM/dd")
+    End Sub
+    Private Sub Set_合記計算()
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                收款事項_dgv("金額", i).Value = CInt(Val(售價小計_tb.Text)) - 金額
+            End If
+        Next
+    End Sub
+    Private Sub 匯率()
+        PA1 = Strings.Left(Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
+        PA2 = Strings.Mid(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
+        營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+        SQL_應收帳款已收_轉財務Null為False()
+        首次開啟 = False : 業務_cb.Text = 業務號碼 : Set_清單1() : 首次開啟 = True '--------------------資料讀取
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
+        銷售合計1_tb.Enabled = False : ComboBox6.Visible = False
+        ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
+        ComboBox5.SelectedIndex = 2 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0
+        申請人_tb.Text = gUserName
+        申請日期_dtp.Value = Today() : 匯率()
+
+        If 收款事項_dgv.Rows.Count = 0 Then
+            轉財務系統_bt.Enabled = False
+        End If
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
+        ComboBox5.SelectedIndex = ComboBox2.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 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
+        Set_合記計算() : 轉財務系統可運作()
+    End Sub
+
+    Private Sub 轉財務系統_bt_Click(sender As Object, e As EventArgs) Handles 轉財務系統_bt.Click
+        存檔2()
+        SQL_應收帳款已收_轉財務Null為False()
+        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
+            開立零用金支付單()
+            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 : 新項次 = "0" & NUM1
+                        ElseIf NUM1 > 9 And NUM1 < 100 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
+
+                        PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & 收款事項_dgv.Rows(i).Cells("內容").Value & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
+                        PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                        SQL_應收轉財務_新增公帳流水帳資料()
+
+                        PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                        SQL_應收帳款已收_轉財務()
+
+                        conn.Close() : Set_清單2()
+                    End If
+                End If
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            MsgBox("收款資料轉財務單完成!!!")
+        Else
+            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(Now) < 10 Then : d = "0" & CStr(Month(Now))
+            Else : d = CStr(Month(Now))
+            End If
+            If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
+            Else : f = CStr(Now.Day())
+            End If
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 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 存檔2()
+        If 單號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                SQL_銷售收款事項_修改() : conn.Close()
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1()
+        End If
+    End Sub
+
+    Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString
+            項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
+            項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
+        End If
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                If 收款事項_dgv("項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                ElseIf 收款事項_dgv("金額", i).Value = 0 Then
+                    收款事項_dgv("轉財務", i).Value = True
+                ElseIf 收款事項_dgv("金額", i).Value <> 0 Then
+                    收款事項_dgv("轉財務", i).Value = False
+                End If
+            End If
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then
+
+            End If
+        Next
+        轉財務系統可運作()
+    End Sub
+    Private Sub 轉財務系統可運作()
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then
+                轉財務系統_bt.Enabled = True : Exit For
+            Else
+                轉財務系統_bt.Enabled = False
+            End If
+        Next
+    End Sub
+    Private Sub 銷售單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            單號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value
+            客戶_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("名稱").Value
+            電話1_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("電話1").Value
+            電話2_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("電話2").Value
+            統編_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("統編").Value
+            公司_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("公司名稱").Value
+            開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value
+            交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value
+            含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
+        End If
+        Set_清單2()
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False Then
+                轉財務系統_bt.Enabled = True
+            End If
+        Next
+        轉財務系統可運作()
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 客戶1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 客戶1_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            Set_清單1()
+        End If
+    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)
+    End Sub
+End Class

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

@@ -0,0 +1,607 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 應收帳款未收
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(應收帳款未收))
+        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()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        Me.轉財務系統_bt = New System.Windows.Forms.Button()
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.銷售合計1_tb = New System.Windows.Forms.TextBox()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.售價小計_tb = New System.Windows.Forms.TextBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.客戶_tb = New System.Windows.Forms.TextBox()
+        Me.電話1_tb = New System.Windows.Forms.TextBox()
+        Me.電話2_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.公司_tb = New System.Windows.Forms.TextBox()
+        Me.交貨日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.統編_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.開單日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.銷售收款流水號 = New System.Windows.Forms.Label()
+        Me.未審核_lb = New System.Windows.Forms.Label()
+        Me.銷售收款流水號_tb = New System.Windows.Forms.TextBox()
+        Me.客戶1_tb = New System.Windows.Forms.TextBox()
+        Me.項次3_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.單號_tb = New System.Windows.Forms.TextBox()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.刪除收款事項上點選的資料_bt = New System.Windows.Forms.Button()
+        Me.新增一筆收款事項_bt = New System.Windows.Forms.Button()
+        Me.項次2_tb = New System.Windows.Forms.TextBox()
+        Me.收款事項_dgv = New System.Windows.Forms.DataGridView()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '銷售單據_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        resources.ApplyResources(Me.銷售單據_dgv, "銷售單據_dgv")
+        Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.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
+        '
+        'Panel1
+        '
+        resources.ApplyResources(Me.Panel1, "Panel1")
+        Me.Panel1.Controls.Add(Me.美金匯率_tb)
+        Me.Panel1.Controls.Add(Me.人民幣匯率_tb)
+        Me.Panel1.Controls.Add(Me.Label17)
+        Me.Panel1.Controls.Add(Me.申請日期_dtp)
+        Me.Panel1.Controls.Add(Me.Label18)
+        Me.Panel1.Controls.Add(Me.申請人_tb)
+        Me.Panel1.Controls.Add(Me.ComboBox6)
+        Me.Panel1.Controls.Add(Me.轉財務系統_bt)
+        Me.Panel1.Controls.Add(Me.營運成本收支單號_tb)
+        Me.Panel1.Controls.Add(Me.Label16)
+        Me.Panel1.Controls.Add(Me.Label15)
+        Me.Panel1.Controls.Add(Me.Label14)
+        Me.Panel1.Controls.Add(Me.關鍵字查詢會計科目_tb)
+        Me.Panel1.Controls.Add(Me.幣別_cb)
+        Me.Panel1.Controls.Add(Me.ComboBox4)
+        Me.Panel1.Controls.Add(Me.ComboBox3)
+        Me.Panel1.Controls.Add(Me.ComboBox2)
+        Me.Panel1.Controls.Add(Me.ComboBox5)
+        Me.Panel1.Controls.Add(Me.ComboBox1)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.銷售合計1_tb)
+        Me.Panel1.Controls.Add(Me.Label34)
+        Me.Panel1.Controls.Add(Me.售價小計_tb)
+        Me.Panel1.Controls.Add(Me.Label30)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.客戶_tb)
+        Me.Panel1.Controls.Add(Me.電話1_tb)
+        Me.Panel1.Controls.Add(Me.電話2_tb)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Controls.Add(Me.含稅_ch)
+        Me.Panel1.Controls.Add(Me.公司_tb)
+        Me.Panel1.Controls.Add(Me.交貨日期_dtp)
+        Me.Panel1.Controls.Add(Me.統編_tb)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.開單日期_dtp)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Controls.Add(Me.存檔_bt)
+        Me.Panel1.Controls.Add(Me.字體大小調整_lb)
+        Me.Panel1.Controls.Add(Me.字體_NUD)
+        Me.Panel1.Controls.Add(Me.銷售收款流水號)
+        Me.Panel1.Controls.Add(Me.未審核_lb)
+        Me.Panel1.Controls.Add(Me.銷售收款流水號_tb)
+        Me.Panel1.Controls.Add(Me.客戶1_tb)
+        Me.Panel1.Controls.Add(Me.項次3_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.單號_tb)
+        Me.Panel1.Controls.Add(Me.業務_cb)
+        Me.Panel1.Controls.Add(Me.Label13)
+        Me.Panel1.Controls.Add(Me.刪除收款事項上點選的資料_bt)
+        Me.Panel1.Controls.Add(Me.新增一筆收款事項_bt)
+        Me.Panel1.Controls.Add(Me.項次2_tb)
+        Me.Panel1.Controls.Add(Me.銷售單據_dgv)
+        Me.Panel1.Controls.Add(Me.收款事項_dgv)
+        Me.Panel1.Name = "Panel1"
+        '
+        '美金匯率_tb
+        '
+        resources.ApplyResources(Me.美金匯率_tb, "美金匯率_tb")
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        '
+        '人民幣匯率_tb
+        '
+        resources.ApplyResources(Me.人民幣匯率_tb, "人民幣匯率_tb")
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        '
+        'Label17
+        '
+        resources.ApplyResources(Me.Label17, "Label17")
+        Me.Label17.ForeColor = System.Drawing.Color.Blue
+        Me.Label17.Name = "Label17"
+        '
+        '申請日期_dtp
+        '
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        resources.ApplyResources(Me.申請日期_dtp, "申請日期_dtp")
+        Me.申請日期_dtp.Name = "申請日期_dtp"
+        '
+        'Label18
+        '
+        resources.ApplyResources(Me.Label18, "Label18")
+        Me.Label18.Name = "Label18"
+        '
+        '申請人_tb
+        '
+        resources.ApplyResources(Me.申請人_tb, "申請人_tb")
+        Me.申請人_tb.Name = "申請人_tb"
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox6, "ComboBox6")
+        Me.ComboBox6.Name = "ComboBox6"
+        '
+        '轉財務系統_bt
+        '
+        resources.ApplyResources(Me.轉財務系統_bt, "轉財務系統_bt")
+        Me.轉財務系統_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.轉財務系統_bt.Name = "轉財務系統_bt"
+        Me.轉財務系統_bt.UseVisualStyleBackColor = True
+        '
+        '營運成本收支單號_tb
+        '
+        resources.ApplyResources(Me.營運成本收支單號_tb, "營運成本收支單號_tb")
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
+        '
+        'Label16
+        '
+        resources.ApplyResources(Me.Label16, "Label16")
+        Me.Label16.Name = "Label16"
+        '
+        'Label15
+        '
+        resources.ApplyResources(Me.Label15, "Label15")
+        Me.Label15.ForeColor = System.Drawing.Color.Black
+        Me.Label15.Name = "Label15"
+        '
+        'Label14
+        '
+        resources.ApplyResources(Me.Label14, "Label14")
+        Me.Label14.Name = "Label14"
+        '
+        '關鍵字查詢會計科目_tb
+        '
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        resources.ApplyResources(Me.關鍵字查詢會計科目_tb, "關鍵字查詢會計科目_tb")
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        '
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        resources.ApplyResources(Me.幣別_cb, "幣別_cb")
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {resources.GetString("幣別_cb.Items"), resources.GetString("幣別_cb.Items1"), resources.GetString("幣別_cb.Items2")})
+        Me.幣別_cb.Name = "幣別_cb"
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox4, "ComboBox4")
+        Me.ComboBox4.Name = "ComboBox4"
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox3, "ComboBox3")
+        Me.ComboBox3.Name = "ComboBox3"
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox2, "ComboBox2")
+        Me.ComboBox2.Name = "ComboBox2"
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox5, "ComboBox5")
+        Me.ComboBox5.Name = "ComboBox5"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        resources.ApplyResources(Me.ComboBox1, "ComboBox1")
+        Me.ComboBox1.Name = "ComboBox1"
+        '
+        'Label2
+        '
+        resources.ApplyResources(Me.Label2, "Label2")
+        Me.Label2.Name = "Label2"
+        '
+        '銷售合計1_tb
+        '
+        Me.銷售合計1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        resources.ApplyResources(Me.銷售合計1_tb, "銷售合計1_tb")
+        Me.銷售合計1_tb.Name = "銷售合計1_tb"
+        '
+        'Label34
+        '
+        resources.ApplyResources(Me.Label34, "Label34")
+        Me.Label34.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label34.Name = "Label34"
+        '
+        '售價小計_tb
+        '
+        resources.ApplyResources(Me.售價小計_tb, "售價小計_tb")
+        Me.售價小計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.售價小計_tb.Name = "售價小計_tb"
+        '
+        'Label30
+        '
+        resources.ApplyResources(Me.Label30, "Label30")
+        Me.Label30.ForeColor = System.Drawing.Color.Black
+        Me.Label30.Name = "Label30"
+        '
+        'Label6
+        '
+        resources.ApplyResources(Me.Label6, "Label6")
+        Me.Label6.ForeColor = System.Drawing.Color.Black
+        Me.Label6.Name = "Label6"
+        '
+        'Label5
+        '
+        resources.ApplyResources(Me.Label5, "Label5")
+        Me.Label5.ForeColor = System.Drawing.Color.Black
+        Me.Label5.Name = "Label5"
+        '
+        'Label1
+        '
+        resources.ApplyResources(Me.Label1, "Label1")
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Name = "Label1"
+        '
+        'Label3
+        '
+        resources.ApplyResources(Me.Label3, "Label3")
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Name = "Label3"
+        '
+        'Label8
+        '
+        resources.ApplyResources(Me.Label8, "Label8")
+        Me.Label8.Name = "Label8"
+        '
+        '客戶_tb
+        '
+        resources.ApplyResources(Me.客戶_tb, "客戶_tb")
+        Me.客戶_tb.Name = "客戶_tb"
+        '
+        '電話1_tb
+        '
+        resources.ApplyResources(Me.電話1_tb, "電話1_tb")
+        Me.電話1_tb.Name = "電話1_tb"
+        '
+        '電話2_tb
+        '
+        resources.ApplyResources(Me.電話2_tb, "電話2_tb")
+        Me.電話2_tb.Name = "電話2_tb"
+        '
+        'Label10
+        '
+        resources.ApplyResources(Me.Label10, "Label10")
+        Me.Label10.ForeColor = System.Drawing.Color.Black
+        Me.Label10.Name = "Label10"
+        '
+        '含稅_ch
+        '
+        resources.ApplyResources(Me.含稅_ch, "含稅_ch")
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '公司_tb
+        '
+        resources.ApplyResources(Me.公司_tb, "公司_tb")
+        Me.公司_tb.Name = "公司_tb"
+        '
+        '交貨日期_dtp
+        '
+        resources.ApplyResources(Me.交貨日期_dtp, "交貨日期_dtp")
+        Me.交貨日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.交貨日期_dtp.Name = "交貨日期_dtp"
+        '
+        '統編_tb
+        '
+        resources.ApplyResources(Me.統編_tb, "統編_tb")
+        Me.統編_tb.Name = "統編_tb"
+        '
+        'Label9
+        '
+        resources.ApplyResources(Me.Label9, "Label9")
+        Me.Label9.ForeColor = System.Drawing.Color.Red
+        Me.Label9.Name = "Label9"
+        '
+        'Label11
+        '
+        resources.ApplyResources(Me.Label11, "Label11")
+        Me.Label11.ForeColor = System.Drawing.Color.Black
+        Me.Label11.Name = "Label11"
+        '
+        '開單日期_dtp
+        '
+        resources.ApplyResources(Me.開單日期_dtp, "開單日期_dtp")
+        Me.開單日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開單日期_dtp.Name = "開單日期_dtp"
+        '
+        'Label4
+        '
+        resources.ApplyResources(Me.Label4, "Label4")
+        Me.Label4.ForeColor = System.Drawing.Color.Red
+        Me.Label4.Name = "Label4"
+        '
+        'Label7
+        '
+        resources.ApplyResources(Me.Label7, "Label7")
+        Me.Label7.ForeColor = System.Drawing.Color.Red
+        Me.Label7.Name = "Label7"
+        '
+        '存檔_bt
+        '
+        resources.ApplyResources(Me.存檔_bt, "存檔_bt")
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '字體大小調整_lb
+        '
+        resources.ApplyResources(Me.字體大小調整_lb, "字體大小調整_lb")
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        '
+        '字體_NUD
+        '
+        resources.ApplyResources(Me.字體_NUD, "字體_NUD")
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {12, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '銷售收款流水號
+        '
+        resources.ApplyResources(Me.銷售收款流水號, "銷售收款流水號")
+        Me.銷售收款流水號.Name = "銷售收款流水號"
+        '
+        '未審核_lb
+        '
+        resources.ApplyResources(Me.未審核_lb, "未審核_lb")
+        Me.未審核_lb.Name = "未審核_lb"
+        '
+        '銷售收款流水號_tb
+        '
+        resources.ApplyResources(Me.銷售收款流水號_tb, "銷售收款流水號_tb")
+        Me.銷售收款流水號_tb.Name = "銷售收款流水號_tb"
+        '
+        '客戶1_tb
+        '
+        Me.客戶1_tb.ForeColor = System.Drawing.Color.Black
+        resources.ApplyResources(Me.客戶1_tb, "客戶1_tb")
+        Me.客戶1_tb.Name = "客戶1_tb"
+        '
+        '項次3_tb
+        '
+        resources.ApplyResources(Me.項次3_tb, "項次3_tb")
+        Me.項次3_tb.Name = "項次3_tb"
+        '
+        'Label12
+        '
+        resources.ApplyResources(Me.Label12, "Label12")
+        Me.Label12.ForeColor = System.Drawing.Color.Black
+        Me.Label12.Name = "Label12"
+        '
+        '單號_tb
+        '
+        resources.ApplyResources(Me.單號_tb, "單號_tb")
+        Me.單號_tb.Name = "單號_tb"
+        '
+        '業務_cb
+        '
+        Me.業務_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務_cb.FormattingEnabled = True
+        Me.業務_cb.Items.AddRange(New Object() {resources.GetString("業務_cb.Items"), resources.GetString("業務_cb.Items1"), resources.GetString("業務_cb.Items2"), resources.GetString("業務_cb.Items3"), resources.GetString("業務_cb.Items4"), resources.GetString("業務_cb.Items5"), resources.GetString("業務_cb.Items6"), resources.GetString("業務_cb.Items7"), resources.GetString("業務_cb.Items8"), resources.GetString("業務_cb.Items9"), resources.GetString("業務_cb.Items10"), resources.GetString("業務_cb.Items11")})
+        resources.ApplyResources(Me.業務_cb, "業務_cb")
+        Me.業務_cb.Name = "業務_cb"
+        '
+        'Label13
+        '
+        resources.ApplyResources(Me.Label13, "Label13")
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Name = "Label13"
+        '
+        '刪除收款事項上點選的資料_bt
+        '
+        resources.ApplyResources(Me.刪除收款事項上點選的資料_bt, "刪除收款事項上點選的資料_bt")
+        Me.刪除收款事項上點選的資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除收款事項上點選的資料_bt.Name = "刪除收款事項上點選的資料_bt"
+        Me.刪除收款事項上點選的資料_bt.UseVisualStyleBackColor = True
+        '
+        '新增一筆收款事項_bt
+        '
+        resources.ApplyResources(Me.新增一筆收款事項_bt, "新增一筆收款事項_bt")
+        Me.新增一筆收款事項_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.新增一筆收款事項_bt.Name = "新增一筆收款事項_bt"
+        Me.新增一筆收款事項_bt.UseVisualStyleBackColor = True
+        '
+        '項次2_tb
+        '
+        resources.ApplyResources(Me.項次2_tb, "項次2_tb")
+        Me.項次2_tb.Name = "項次2_tb"
+        '
+        '收款事項_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
+        resources.ApplyResources(Me.收款事項_dgv, "收款事項_dgv")
+        Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收款事項_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收款事項_dgv.Name = "收款事項_dgv"
+        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
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        '應收帳款未收
+        '
+        resources.ApplyResources(Me, "$this")
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Panel1)
+        Me.MaximizeBox = False
+        Me.Name = "應收帳款未收"
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收款事項_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Protected WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 未審核_lb As Label
+    Friend WithEvents 客戶1_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 刪除收款事項上點選的資料_bt As Button
+    Friend WithEvents 新增一筆收款事項_bt As Button
+    Friend WithEvents 項次2_tb As TextBox
+    Friend WithEvents 項次3_tb As TextBox
+    Friend WithEvents 銷售收款流水號_tb As TextBox
+    Friend WithEvents 銷售收款流水號 As Label
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 銷售合計1_tb As TextBox
+    Friend WithEvents Label34 As Label
+    Friend WithEvents 售價小計_tb As TextBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 客戶_tb As TextBox
+    Friend WithEvents 電話1_tb As TextBox
+    Friend WithEvents 電話2_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 公司_tb As TextBox
+    Friend WithEvents 交貨日期_dtp As DateTimePicker
+    Friend WithEvents 統編_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 開單日期_dtp As DateTimePicker
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 單號_tb As TextBox
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 轉財務系統_bt As Button
+    Friend WithEvents 營運成本收支單號_tb As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents ComboBox6 As ComboBox
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 申請日期_dtp As DateTimePicker
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents 收款事項_dgv As DataGridView
+End Class

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

@@ -0,0 +1,365 @@
+Public Class 應收帳款未收
+    ReadOnly ds1, ds2, ds4, ds5, ds6, ds7 As New DataSet
+    Dim EDR As Integer : Dim ESTR As String : Dim 首次開啟 As Boolean = False : Dim ESTR1 As String : Dim EDR1 As Integer : ReadOnly ds As New DataSet
+    Dim 刪除狀態 As Boolean : Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String : Dim NUM1 As Integer : Dim 匯率1 As Double
+    Private Sub Set_清單1()
+        銷售單據_dgv.DataSource = Nothing : ds1.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 35
+        收款事項_dgv.RowTemplate.Height = 30
+
+        PA19 = 業務_cb.Text : PA20 = 客戶1_tb.Text
+        SQL_應收帳款未收_訂單控制表()
+        da.Fill(ds1) : 銷售單據_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 85 : 銷售單據_dgv.Columns(2).FillWeight = 100 : 銷售單據_dgv.Columns(3).FillWeight = 110
+        銷售單據_dgv.Columns(4).FillWeight = 110 : 銷售單據_dgv.Columns(5).FillWeight = 100 : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).FillWeight = 85
+        銷售單據_dgv.Columns(8).FillWeight = 85 : 銷售單據_dgv.Columns(9).FillWeight = 100 : 銷售單據_dgv.Columns(10).Visible = 85 : 銷售單據_dgv.Columns(11).Visible = 85
+        銷售單據_dgv.Columns(12).Visible = False : 銷售單據_dgv.Columns(13).Visible = 85 : 銷售單據_dgv.Columns(14).Visible = 85 : 銷售單據_dgv.Columns(15).Visible = False
+        銷售單據_dgv.Columns(16).Visible = 85 : 銷售單據_dgv.Columns(17).Visible = 85 : 銷售單據_dgv.Columns(18).Visible = False
+
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("運費").DefaultCellStyle.Format = "#,##0"
+        銷售單據_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("運費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售單據_dgv.Columns("運費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+    End Sub
+    Private Sub Set_清單2()
+        收款事項_dgv.DataSource = Nothing : ds6.Clear()
+        收款事項_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收款事項_dgv.ColumnHeadersHeight = 25
+        收款事項_dgv.AllowUserToAddRows = False
+        收款事項_dgv.RowTemplate.Height = 25
+
+        PA2 = "" : PA2 = 單號_tb.Text : SQL_銷售收款事項()
+        da.Fill(ds6) : 收款事項_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        收款事項_dgv.Columns(0).Visible = False : 收款事項_dgv.Columns(1).Visible = False : 收款事項_dgv.Columns(2).Visible = False : 收款事項_dgv.Columns(3).FillWeight = 120
+        收款事項_dgv.Columns(4).FillWeight = 960 : 收款事項_dgv.Columns(5).FillWeight = 180 : 收款事項_dgv.Columns(6).Visible = False : 收款事項_dgv.Columns(7).FillWeight = 50
+
+        收款事項_dgv.Columns(2).ReadOnly = True
+
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
+        收款事項_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        收款事項_dgv.Columns("項次").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        If 刪除狀態 = False Then
+            銷售合計1_tb.Text = "0" : 售價小計_tb.Text = "0"
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                收款事項_dgv("項次", i).Value = i + 1
+                銷售合計1_tb.Text = Val(銷售合計1_tb.Text) + 收款事項_dgv("金額", i).Value
+                售價小計_tb.Text = Val(售價小計_tb.Text) + 收款事項_dgv("金額", i).Value
+            Next
+            銷售合計1_tb.Text = Format(Val(銷售合計1_tb.Text), "#,##0")
+        Else
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                收款事項_dgv("項次", i).Value = i + 1
+            Next
+        End If
+
+        收款事項_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        Set_合記計算()
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款未收_查詢公帳控制表會計科目() : 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_應收帳款未收_查詢最後一筆公帳控制表會計科目() : ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
+        While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        conn.Close()
+        SQL_應收帳款未收_查詢最左邊公帳控制表會計科目() : 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 開立零用金支付單()
+        Dim NUM1 As Integer : Timer1.Enabled = True
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & 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()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Format(申請日期_dtp.Value, "yyyy/MM/dd")
+    End Sub
+    Private Sub Set_合記計算()
+        Dim 金額 As Integer = 0
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("真項次", i).Value.ToString <> "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" Then
+                金額 = 金額 + 收款事項_dgv("金額", i).Value
+            ElseIf 收款事項_dgv("真項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                收款事項_dgv("金額", i).Value = CInt(Val(售價小計_tb.Text)) - 金額
+            End If
+        Next
+    End Sub
+    Private Sub 匯率()
+        PA1 = Strings.Left(Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
+        PA2 = Strings.Mid(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
+        營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+        SQL_應收帳款未收_轉財務Null為False()
+        首次開啟 = False : 業務_cb.Text = 業務號碼 : Set_清單1() : 首次開啟 = True '--------------------資料讀取
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
+        銷售合計1_tb.Enabled = False : ComboBox6.Visible = False
+        ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
+        ComboBox5.SelectedIndex = 2 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0
+        申請人_tb.Text = gUserName
+        申請日期_dtp.Value = Today() : 匯率()
+
+        If 收款事項_dgv.Rows.Count = 0 Then
+            轉財務系統_bt.Enabled = False
+        End If
+
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
+        ComboBox5.SelectedIndex = ComboBox2.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 收款事項_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellEndEdit
+        Set_合記計算() : 轉財務系統可運作()
+    End Sub
+    Private Sub 收款事項_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 收款事項_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            銷售收款流水號_tb.Text = 收款事項_dgv("資料流水號", e.RowIndex).Value.ToString
+            項次2_tb.Text = 收款事項_dgv("項次", e.RowIndex).Value.ToString
+            項次3_tb.Text = 收款事項_dgv("真項次", e.RowIndex).Value.ToString
+        End If
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                If 收款事項_dgv("項次", i).Value.ToString = "0" And 收款事項_dgv("內容", i).Value.ToString = "未收餘額" Then
+                ElseIf 收款事項_dgv("金額", i).Value = 0 Then
+                    收款事項_dgv("轉財務", i).Value = True
+                ElseIf 收款事項_dgv("金額", i).Value <> 0 Then
+                    收款事項_dgv("轉財務", i).Value = False
+                End If
+            End If
+        Next
+        轉財務系統可運作()
+    End Sub
+    Private Sub 轉財務系統可運作()
+        For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+            If 收款事項_dgv("內容", i).Value.ToString <> "未收餘額" And 收款事項_dgv("轉財務", i).Value = False And 收款事項_dgv("金額", i).Value <> 0 Then
+                轉財務系統_bt.Enabled = True : Exit For
+            Else
+                轉財務系統_bt.Enabled = False
+            End If
+        Next
+    End Sub
+    Private Sub 銷售單據_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷售單據_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            單號_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value
+            客戶_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("名稱").Value
+            電話1_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("電話1").Value
+            電話2_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("電話2").Value
+            統編_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("統編").Value
+            公司_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("公司名稱").Value
+            開單日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("開單日期").Value
+            交貨日期_dtp.Value = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value
+            含稅_ch.Checked = 銷售單據_dgv.Rows(e.RowIndex).Cells("含稅").Value
+        End If
+        Set_清單2()
+
+        轉財務系統可運作()
+    End Sub
+    Private Sub 新增一筆收款事項_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆收款事項_bt.Click
+        If 單號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            SQL_銷售收款事項_最後一筆資料()
+            If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
+            conn.Close() : EDR += 1
+            If EDR < 10 Then : ESTR = "ST" & "00000000" & EDR
+            ElseIf EDR > 9 And EDR < 100 Then : ESTR = "ST" & "0000000" & EDR
+            ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "ST" & "000000" & EDR
+            ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "ST" & "00000" & EDR
+            ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "ST" & "0000" & EDR
+            ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "ST" & "000" & EDR
+            ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "ST" & "00" & EDR
+            ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
+            ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
+            PA1 = ESTR
+
+            PA = 單號_tb.Text
+            SQL_銷售收款事項_最後一筆項次()
+            If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
+            conn.Close() : EDR += 1
+            If EDR < 10 Then : ESTR = EDR
+            ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
+            PA2 = ESTR
+            SQL_銷售收款事項_新增2()
+
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                SQL_銷售收款事項_修改() : conn.Close()
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+
+            Set_清單2()
+        End If
+    End Sub
+    Private Sub 刪除收款事項上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除收款事項上點選的資料_bt.Click
+        If 單號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            If 項次3_tb.Text = "" Then
+                MsgBox("沒有選擇收款事項，無法作業。")
+            Else
+                If 項次3_tb.Text = "0" Then
+                    MsgBox("不能刪除 [未收餘額] 或 [刷卡] 選項!!")
+                Else
+                    Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                    If aa1 = MsgBoxResult.Ok Then
+                        刪除狀態 = True
+                        PA = 銷售收款流水號_tb.Text
+                        存檔2()
+                        SQL_銷售收款事項_刪除() : Set_清單2()
+                        刪除狀態 = False
+                        存檔2()
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 轉財務系統_bt_Click(sender As Object, e As EventArgs) Handles 轉財務系統_bt.Click
+        存檔2()
+        SQL_應收帳款未收_轉財務Null為False()
+        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
+            開立零用金支付單()
+            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 : 新項次 = "0" & NUM1
+                        ElseIf NUM1 > 9 And NUM1 < 100 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
+
+                        PA14 = 單號_tb.Text & " - " & 客戶_tb.Text & " - " & 收款事項_dgv.Rows(i).Cells("內容").Value & " - [" & 收款事項_dgv.Rows(i).Cells("資料流水號").Value & "]"
+                        PA16 = 匯率1 : PA15 = 新項次 : PA17 = 幣別_cb.Text : PA18 = ComboBox6.Text : PA20 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                        SQL_應收轉財務_新增公帳流水帳資料()
+
+                        PA12 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                        SQL_應收帳款未收_轉財務()
+
+                        conn.Close() : Set_清單2()
+                    End If
+                End If
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            MsgBox("收款資料轉財務單完成!!!")
+        Else
+            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(Now) < 10 Then : d = "0" & CStr(Month(Now))
+            Else : d = CStr(Month(Now))
+            End If
+            If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
+            Else : f = CStr(Now.Day())
+            End If
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 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 存檔2()
+        If 單號_tb.Text = "" Then
+            MsgBox("沒有銷售單號，無法作業。")
+        Else
+            For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
+                資料數 = 收款事項_dgv.Rows.Count : MyModule1.進度條()
+                PA10 = 收款事項_dgv.Rows(i).Cells("內容").Value : PA11 = 收款事項_dgv.Rows(i).Cells("資料流水號").Value
+                NU1 = 收款事項_dgv.Rows(i).Cells("金額").Value
+                SQL_銷售收款事項_修改() : conn.Close()
+            Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔2() : MsgBox("存檔完成。")
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 客戶1_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 客戶1_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            Set_清單1()
+        End If
+    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)
+    End Sub
+End Class

YD-ERP-SYS/業務系統管理/訂單控制表.Designer.vb

@@ -908,7 +908,7 @@ Partial Class 訂單控制表
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 10185)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 10896)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))

YD-ERP-SYS/業務系統管理/訂單控制表.vb

@@ -411,7 +411,6 @@ Public Class 訂單控制表
         收款事項_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
 
     End Sub
-
     Private Sub 客戶編號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶編號_tb.TextChanged
         PA15 = 客戶編號_tb.Text
         SQL_銷售單申請_客戶資料()

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

@@ -1051,6 +1051,7 @@ Public Class 銷售單審核
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
+                PA = 單號_tb.Text
                 SQL_銷售備註表_最後一筆資料()
                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
@@ -1064,7 +1065,7 @@ Public Class 銷售單審核
                 ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SR" & "0" & EDR
                 ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
 
-                PA1 = ESTR : PA = 單號_tb.Text
+                PA1 = ESTR
                 SQL_銷售備註表_新增()
 
                 For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
@@ -1124,6 +1125,7 @@ Public Class 銷售單審核
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
+                PA = 單號_tb.Text
                 SQL_銷售收款事項_最後一筆資料()
                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
@@ -1137,13 +1139,13 @@ Public Class 銷售單審核
                 ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
                 ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
                 PA1 = ESTR
-
+                PA = 單號_tb.Text
                 SQL_銷售收款事項_最後一筆項次()
                 If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
                 If EDR < 10 Then : ESTR = EDR
                 ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
-                PA2 = ESTR : PA = 單號_tb.Text
+                PA2 = ESTR
                 SQL_銷售收款事項_新增2()
 
                 For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
@@ -1401,6 +1403,7 @@ Public Class 銷售單審核
         If 流水號_tb.Text = "" Then
             MsgBox("沒有銷售單號，無法作業。")
         Else
+            PA = 單號_tb.Text
             SQL_銷售收款事項_最後一筆資料()
             If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
             conn.Close() : EDR += 1
@@ -1414,13 +1417,13 @@ Public Class 銷售單審核
             ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
             ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
             PA1 = ESTR
-
+            PA = 單號_tb.Text
             SQL_銷售收款事項_最後一筆項次()
             If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
             conn.Close() : EDR += 1
             If EDR < 10 Then : ESTR = EDR
             ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
-            PA2 = ESTR : PA = 單號_tb.Text
+            PA2 = ESTR
             SQL_銷售收款事項_新增3()
 
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
@@ -1470,6 +1473,7 @@ Public Class 銷售單審核
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
+                PA = 單號_tb.Text
                 SQL_銷售衍生運費_最後一筆資料()
                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
@@ -1483,7 +1487,7 @@ Public Class 銷售單審核
                 ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SE" & "0" & EDR
                 ElseIf EDR > 99999999 Then : ESTR = "SE" & EDR : End If
 
-                PA1 = ESTR : PA = 單號_tb.Text
+                PA1 = ESTR
                 SQL_銷售衍生運費_新增()
 
                 For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1

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

@@ -1688,7 +1688,7 @@ Partial Class 銷售單申請
         Me.客戶資料_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.客戶資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.客戶資料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 12680)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 13230)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))

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

@@ -1126,6 +1126,7 @@ Public Class 銷售單申請
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
+                PA = 單號_tb.Text
                 SQL_銷售備註表_最後一筆資料()
                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
@@ -1139,7 +1140,7 @@ Public Class 銷售單申請
                 ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SR" & "0" & EDR
                 ElseIf EDR > 99999999 Then : ESTR = "SR" & EDR : End If
 
-                PA1 = ESTR : PA = 單號_tb.Text
+                PA1 = ESTR
                 SQL_銷售備註表_新增()
 
                 For i As Integer = 0 To 銷售備註_dgv.Rows.Count - 1
@@ -1217,13 +1218,13 @@ Public Class 銷售單申請
             ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "ST" & "0" & EDR
             ElseIf EDR > 99999999 Then : ESTR = "ST" & EDR : End If
             PA1 = ESTR
-
+            PA = 單號_tb.Text
             SQL_銷售收款事項_最後一筆項次()
             If dr.Read() Then : EDR = dr("項次").ToString : Else : EDR = 0 : End If
             conn.Close() : EDR += 1
             If EDR < 10 Then : ESTR = EDR
             ElseIf EDR > 9 And EDR < 100 Then : ESTR = EDR : End If
-            PA2 = ESTR : PA = 單號_tb.Text
+            PA2 = ESTR
             SQL_銷售收款事項_新增3()
 
             For i As Integer = 0 To 收款事項_dgv.Rows.Count - 1
@@ -1531,6 +1532,7 @@ Public Class 銷售單申請
             If 客戶編號_tb.Text = "" Then
                 MsgBox("銷售單據要指定完客戶才可存檔，如你已手動輸入客戶資料請按一下  [客戶驗證]  ，系統會自動判斷客戶資訊。")
             Else
+                PA = 單號_tb.Text
                 SQL_銷售衍生運費_最後一筆資料()
                 If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("資料流水號").ToString, 9)) : Else : EDR = 0 : End If
                 conn.Close() : EDR += 1
@@ -1544,7 +1546,7 @@ Public Class 銷售單申請
                 ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "SE" & "0" & EDR
                 ElseIf EDR > 99999999 Then : ESTR = "SE" & EDR : End If
 
-                PA1 = ESTR : PA = 單號_tb.Text
+                PA1 = ESTR
                 SQL_銷售衍生運費_新增()
 
                 For i As Integer = 0 To 銷售衍生運費_dgv.Rows.Count - 1

YD-ERP-SYS/財務系統管理/營運成本收支單審核.vb

@@ -16,7 +16,6 @@ Public Class 營運成本收支單審核
         明細_dgv.RowTemplate.Height = 30
         簽名清單_dgv.RowTemplate.Height = 25
 
-        'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
         If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False Then
             SQL_營運成本收支單審核_審核人1()
         ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True Then

YD-ERP-SYS/財務系統管理/營運成本收支單申請.Designer.vb

@@ -23,15 +23,14 @@ Partial Class 營運成本收支單申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 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()
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         Me.幣別_cb = New System.Windows.Forms.ComboBox()
         Me.ComboBox6 = New System.Windows.Forms.ComboBox()
-        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
         Me.ComboBox4 = New System.Windows.Forms.ComboBox()
         Me.ComboBox3 = New System.Windows.Forms.ComboBox()
         Me.ComboBox2 = New System.Windows.Forms.ComboBox()
@@ -73,13 +72,14 @@ Partial Class 營運成本收支單申請
         Me.刪除選中的營運成本收支單_bt = New System.Windows.Forms.Button()
         Me.刪除選中的一筆資料_bt = New System.Windows.Forms.Button()
         Me.收支單中新增一筆空白資料_bt = New System.Windows.Forms.Button()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.BackgroundWorker2 = New System.ComponentModel.BackgroundWorker()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
         CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.單一筆收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -131,16 +131,6 @@ Partial Class 營運成本收支單申請
         Me.ComboBox6.Size = New System.Drawing.Size(175, 24)
         Me.ComboBox6.TabIndex = 937
         '
-        '關鍵字查詢會計科目_tb
-        '
-        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(462, 115)
-        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
-        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(458, 23)
-        Me.關鍵字查詢會計科目_tb.TabIndex = 936
-        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
         'ComboBox4
         '
         Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
@@ -449,8 +439,8 @@ Partial Class 營運成本收支單申請
         '
         '營運收支單_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        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), System.Windows.Forms.AnchorStyles)
         Me.營運收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -477,8 +467,8 @@ Partial Class 營運成本收支單申請
         '
         '單一筆收支單_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.單一筆收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, 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)
@@ -488,8 +478,8 @@ Partial Class 營運成本收支單申請
         Me.單一筆收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.單一筆收支單_dgv.Name = "單一筆收支單_dgv"
         Me.單一筆收支單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.單一筆收支單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.單一筆收支單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.單一筆收支單_dgv.RowTemplate.Height = 24
         Me.單一筆收支單_dgv.Size = New System.Drawing.Size(1039, 435)
         Me.單一筆收支單_dgv.TabIndex = 908
@@ -546,15 +536,6 @@ Partial Class 營運成本收支單申請
         Me.收支單中新增一筆空白資料_bt.Text = "收支單中新增一筆空白資料"
         Me.收支單中新增一筆空白資料_bt.UseVisualStyleBackColor = True
         '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(334, 118)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(121, 16)
-        Me.Label6.TabIndex = 947
-        Me.Label6.Text = "關鍵字查詢-會計科目"
-        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -604,6 +585,25 @@ Partial Class 營運成本收支單申請
         Me.字體_NUD.TabIndex = 1496
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
         '
+        '關鍵字查詢會計科目_tb
+        '
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(462, 115)
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(458, 23)
+        Me.關鍵字查詢會計科目_tb.TabIndex = 936
+        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(334, 118)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(121, 16)
+        Me.Label6.TabIndex = 947
+        Me.Label6.Text = "關鍵字查詢-會計科目"
+        '
         '營運成本收支單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -657,8 +657,8 @@ Partial Class 營運成本收支單申請
         Me.Controls.Add(Me.作廢的營運成本收支單_rb)
         Me.Controls.Add(Me.未核准的營運成本收支單_rb)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.單一筆收支單_dgv)
         Me.Controls.Add(Me.營運收支單_dgv)
+        Me.Controls.Add(Me.單一筆收支單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "營運成本收支單申請"
@@ -677,7 +677,6 @@ Partial Class 營運成本收支單申請
     Friend WithEvents 人民幣匯率_tb As TextBox
     Friend WithEvents 幣別_cb As ComboBox
     Friend WithEvents ComboBox6 As ComboBox
-    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
     Friend WithEvents ComboBox4 As ComboBox
     Friend WithEvents ComboBox3 As ComboBox
     Friend WithEvents ComboBox2 As ComboBox
@@ -719,11 +718,12 @@ Partial Class 營運成本收支單申請
     Friend WithEvents 刪除選中的營運成本收支單_bt As Button
     Friend WithEvents 刪除選中的一筆資料_bt As Button
     Friend WithEvents 收支單中新增一筆空白資料_bt As Button
-    Friend WithEvents Label6 As Label
     Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
     Friend WithEvents BackgroundWorker2 As System.ComponentModel.BackgroundWorker
     Friend WithEvents Label7 As Label
     Friend WithEvents Label12 As Label
     Friend WithEvents 字體大小調整_lb As Label
     Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
+    Friend WithEvents Label6 As Label
 End Class

YD-ERP-SYS/財務系統管理/營運成本收支單申請.vb

@@ -86,6 +86,8 @@ Public Class 營運成本收支單申請
         While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
     Private Sub 匯率()
+        PA1 = Strings.Left(Format(申請日期_dtp.Value, "yyyyMMdd"), 4)
+        PA2 = Strings.Mid(Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2)
         SQL_營運成本收支單申請_查詢匯率()
         If dr.Read() Then
             人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
@@ -210,7 +212,8 @@ Public Class 營運成本收支單申請
             If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
             Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
             End If : PA19 = 新流水1
-            SQL_營運成本收支單申請_查詢收支單公帳流水號() : conn.Close() : NUM1 = 99  'End If
+            SQL_營運成本收支單申請_查詢收支單公帳流水號()
+            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
         Next
     End Sub
 
@@ -247,15 +250,13 @@ Public Class 營運成本收支單申請
                 開立零用金支付單()
             End If
             Set_日期格式轉換() : Set_流水號()
-            存檔()
-            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
+            存檔() : PA = 營運成本收支單號_tb.Text
+            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號() : PA = ""
             If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
             NUM1 = Double.Parse(新項次) + 1
             If NUM1 < 10 Then : 新項次 = "0" & NUM1
             ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
             End If
-            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-
             If 幣別_cb.Text = "台幣現金" Then
                 匯率1 = 1
             ElseIf 幣別_cb.Text = "人民幣現金" Then
@@ -307,12 +308,14 @@ Public Class 營運成本收支單申請
             ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & 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()
         申請人_tb.Text = gUserName
-        Set_清單1()
+        Set_清單1() : PA = ""
     End Sub
     Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
         開立零用金支付單()