20230319備份

TENDEN-MES-SYS/Module/SQL_成本系統管理.vb

@@ -226,6 +226,23 @@
                 GROUP BY   " & 訂單資料表(1) & ".訂單流水號 ORDER BY   " & 訂單資料表(1) & ".訂單流水號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_訂單流水號1()
+        ConnOpen()
+        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(1) & ".年份季度, 
+                       " & 訂單資料表(1) & ".形體號, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".訂單數量, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".客戶交期, 
+                       " & 訂單資料表(1) & ".工廠回復交期, " & 訂單資料表(1) & ".ProductID 
+                FROM   " & 訂單資料表(1) & " FULL OUTER JOIN " & 訂單資料表(7) & " ON " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 
+                WHERE (" & 訂單資料表(7) & ".天盾訂單號 IS NULL) AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2009') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2010') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2011') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2012') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2013') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2014') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2015') AND (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2016') AND 
+                      (LEFT(" & 訂單資料表(1) & ".客戶交期, 4) NOT LIKE '2017') AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) 
+                GROUP BY   " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".客戶訂單號, " & 訂單資料表(1) & ".年份季度, 
+                       " & 訂單資料表(1) & ".形體號, " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".訂單數量, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".客戶交期, 
+                       " & 訂單資料表(1) & ".工廠回復交期, " & 訂單資料表(1) & ".ProductID  ORDER BY   " & 訂單資料表(1) & ".訂單流水號 DESC"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_查詢最後一筆利潤表流水號()
         ConnOpen()
         SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC"

TENDEN-MES-SYS/Module/全域變數.vb

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
     Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023021801"
+    Public 版本 As String = "2023031801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------

TENDEN-MES-SYS/TENDEN_MES_SYS.Designer.vb

@@ -50,6 +50,9 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripSeparator17 = New System.Windows.Forms.ToolStripSeparator()
         Me.楦頭圖片導入資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.楦頭圖片資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
+        Me.包裝資料圖片導入資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.包裝資料圖片資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.製鞋技術資料管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.楦頭規格表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.模具控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -114,6 +117,7 @@ Partial Class TENDEN_MES_SYS
         Me.成本資料庫管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator()
         Me.訂單價格利潤明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.未指定單價查詢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.貨款匯入出款明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Report_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Report1_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -150,9 +154,7 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.包裝資料圖片導入資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.包裝資料圖片資料庫_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
@@ -322,6 +324,27 @@ Partial Class TENDEN_MES_SYS
         Me.楦頭圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
         Me.楦頭圖片資料庫_tsm.Text = "楦頭圖片資料庫"
         '
+        'ToolStripSeparator26
+        '
+        Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
+        Me.ToolStripSeparator26.Size = New System.Drawing.Size(203, 6)
+        '
+        '包裝資料圖片導入資料庫_tsm
+        '
+        Me.包裝資料圖片導入資料庫_tsm.ForeColor = System.Drawing.Color.Purple
+        Me.包裝資料圖片導入資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
+        Me.包裝資料圖片導入資料庫_tsm.Name = "包裝資料圖片導入資料庫_tsm"
+        Me.包裝資料圖片導入資料庫_tsm.Size = New System.Drawing.Size(206, 22)
+        Me.包裝資料圖片導入資料庫_tsm.Text = "包裝資料圖片導入資料庫"
+        '
+        '包裝資料圖片資料庫_tsm
+        '
+        Me.包裝資料圖片資料庫_tsm.ForeColor = System.Drawing.Color.Purple
+        Me.包裝資料圖片資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Shoebox
+        Me.包裝資料圖片資料庫_tsm.Name = "包裝資料圖片資料庫_tsm"
+        Me.包裝資料圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
+        Me.包裝資料圖片資料庫_tsm.Text = "包裝資料圖片資料庫"
+        '
         '製鞋技術資料管理_tsm
         '
         Me.製鞋技術資料管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.楦頭規格表_tsm, Me.模具控制表ToolStripMenuItem, Me.ToolStripSeparator21, Me.STYLE資料管理1_tsm, Me.STYLE資料管理2_tsm})
@@ -767,7 +790,7 @@ Partial Class TENDEN_MES_SYS
         '
         '成本管理_tsm
         '
-        Me.成本管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.成本資料庫管理_tsm, Me.ToolStripSeparator19, Me.訂單價格利潤明細表_tsm, Me.貨款匯入出款明細表_tsm})
+        Me.成本管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.成本資料庫管理_tsm, Me.ToolStripSeparator19, Me.訂單價格利潤明細表_tsm, Me.未指定單價查詢表_tsm, Me.ToolStripSeparator27, Me.貨款匯入出款明細表_tsm})
         Me.成本管理_tsm.ForeColor = System.Drawing.Color.Blue
         Me.成本管理_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Abacus
         Me.成本管理_tsm.Name = "成本管理_tsm"
@@ -795,6 +818,14 @@ Partial Class TENDEN_MES_SYS
         Me.訂單價格利潤明細表_tsm.Size = New System.Drawing.Size(187, 22)
         Me.訂單價格利潤明細表_tsm.Text = "訂單價格利潤明細表"
         '
+        '未指定單價查詢表_tsm
+        '
+        Me.未指定單價查詢表_tsm.ForeColor = System.Drawing.Color.Blue
+        Me.未指定單價查詢表_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.tests
+        Me.未指定單價查詢表_tsm.Name = "未指定單價查詢表_tsm"
+        Me.未指定單價查詢表_tsm.Size = New System.Drawing.Size(187, 22)
+        Me.未指定單價查詢表_tsm.Text = "未指定單價查詢表"
+        '
         '貨款匯入出款明細表_tsm
         '
         Me.貨款匯入出款明細表_tsm.ForeColor = System.Drawing.Color.Blue
@@ -1058,26 +1089,10 @@ Partial Class TENDEN_MES_SYS
         Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
         Me.合計_TSSL.Text = "合計 : 0"
         '
-        '包裝資料圖片導入資料庫_tsm
-        '
-        Me.包裝資料圖片導入資料庫_tsm.ForeColor = System.Drawing.Color.Purple
-        Me.包裝資料圖片導入資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.pen
-        Me.包裝資料圖片導入資料庫_tsm.Name = "包裝資料圖片導入資料庫_tsm"
-        Me.包裝資料圖片導入資料庫_tsm.Size = New System.Drawing.Size(206, 22)
-        Me.包裝資料圖片導入資料庫_tsm.Text = "包裝資料圖片導入資料庫"
-        '
-        '包裝資料圖片資料庫_tsm
-        '
-        Me.包裝資料圖片資料庫_tsm.ForeColor = System.Drawing.Color.Purple
-        Me.包裝資料圖片資料庫_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Shoebox
-        Me.包裝資料圖片資料庫_tsm.Name = "包裝資料圖片資料庫_tsm"
-        Me.包裝資料圖片資料庫_tsm.Size = New System.Drawing.Size(206, 22)
-        Me.包裝資料圖片資料庫_tsm.Text = "包裝資料圖片資料庫"
-        '
-        'ToolStripSeparator26
+        'ToolStripSeparator27
         '
-        Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
-        Me.ToolStripSeparator26.Size = New System.Drawing.Size(203, 6)
+        Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
+        Me.ToolStripSeparator27.Size = New System.Drawing.Size(184, 6)
         '
         'TENDEN_MES_SYS
         '
@@ -1232,4 +1247,6 @@ Partial Class TENDEN_MES_SYS
     Friend WithEvents ToolStripSeparator26 As ToolStripSeparator
     Friend WithEvents 包裝資料圖片導入資料庫_tsm As ToolStripMenuItem
     Friend WithEvents 包裝資料圖片資料庫_tsm As ToolStripMenuItem
+    Friend WithEvents 未指定單價查詢表_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator27 As ToolStripSeparator
 End Class

TENDEN-MES-SYS/TENDEN_MES_SYS.vb

@@ -116,6 +116,10 @@
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 訂單價格利潤明細表.Show() : 訂單價格利潤明細表.BringToFront()
     End Sub
+    Private Sub 未指定單價查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 未指定單價查詢表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 未指定單價查詢表.Show() : 未指定單價查詢表.BringToFront()
+    End Sub
     Private Sub 鞋盒訂單紀錄表_tsm_Click(sender As Object, e As EventArgs) Handles 鞋盒訂單紀錄表_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 鞋盒訂單紀錄表.Show() : 鞋盒訂單紀錄表.BringToFront()
@@ -393,4 +397,6 @@
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 包裝資料圖片資料庫.Show() : 包裝資料圖片資料庫.BringToFront()
     End Sub
+
+
 End Class

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-88fe426b9dd9ac3ae48e902a29f4ffed9aab8899
+9734928b470cf76e4c8335ad6bafd1708becf1da

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -959,3 +959,4 @@ D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.進度條視窗.resources
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品單備註圖片.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.未指定單價查詢表.resources

TENDEN-MES-SYS/天盾系統.vbproj

@@ -145,6 +145,12 @@
     <Compile Include="彙總報表管理\特殊工具\訂單分析比對工具_力威.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="成本系統管理\未指定單價查詢表.Designer.vb">
+      <DependentUpon>未指定單價查詢表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="成本系統管理\未指定單價查詢表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="樣品訂單管理\中文樣品單系統\樣品單備註圖片.Designer.vb">
       <DependentUpon>樣品單備註圖片.vb</DependentUpon>
     </Compile>
@@ -804,6 +810,9 @@
     <EmbeddedResource Include="彙總報表管理\特殊工具\訂單分析比對工具_力威.resx">
       <DependentUpon>訂單分析比對工具_力威.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="成本系統管理\未指定單價查詢表.resx">
+      <DependentUpon>未指定單價查詢表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="樣品訂單管理\中文樣品單系統\樣品單備註圖片.resx">
       <DependentUpon>樣品單備註圖片.vb</DependentUpon>
     </EmbeddedResource>

TENDEN-MES-SYS/成本系統管理/未指定單價查詢表.Designer.vb

@@ -0,0 +1,121 @@
+<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()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.訂單流水號_dgv = New System.Windows.Forms.DataGridView()
+        Me.列印成EXCEL_bt = New System.Windows.Forms.Button()
+        CType(Me.訂單流水號_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '資料庫選擇2_bt
+        '
+        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(123, 4)
+        Me.資料庫選擇2_bt.Name = "資料庫選擇2_bt"
+        Me.資料庫選擇2_bt.Size = New System.Drawing.Size(75, 30)
+        Me.資料庫選擇2_bt.TabIndex = 565
+        Me.資料庫選擇2_bt.Text = "DRS/ LIF"
+        Me.資料庫選擇2_bt.UseVisualStyleBackColor = True
+        '
+        '資料庫選擇1_bt
+        '
+        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(45, 4)
+        Me.資料庫選擇1_bt.Name = "資料庫選擇1_bt"
+        Me.資料庫選擇1_bt.Size = New System.Drawing.Size(75, 30)
+        Me.資料庫選擇1_bt.TabIndex = 564
+        Me.資料庫選擇1_bt.Text = "VIONIC"
+        Me.資料庫選擇1_bt.UseVisualStyleBackColor = True
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(2, 3)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(43, 32)
+        Me.Label20.TabIndex = 563
+        Me.Label20.Text = "選擇訂" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "單品牌"
+        '
+        '訂單流水號_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
+        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)
+        Me.訂單流水號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.訂單流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.訂單流水號_dgv.Location = New System.Drawing.Point(5, 40)
+        Me.訂單流水號_dgv.Name = "訂單流水號_dgv"
+        Me.訂單流水號_dgv.RowHeadersWidth = 5
+        Me.訂單流水號_dgv.RowTemplate.Height = 24
+        Me.訂單流水號_dgv.Size = New System.Drawing.Size(1081, 555)
+        Me.訂單流水號_dgv.TabIndex = 566
+        '
+        '列印成EXCEL_bt
+        '
+        Me.列印成EXCEL_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.列印成EXCEL_bt.Location = New System.Drawing.Point(969, 5)
+        Me.列印成EXCEL_bt.Name = "列印成EXCEL_bt"
+        Me.列印成EXCEL_bt.Size = New System.Drawing.Size(117, 30)
+        Me.列印成EXCEL_bt.TabIndex = 567
+        Me.列印成EXCEL_bt.Text = "列印成EXCEL"
+        Me.列印成EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        '未指定單價查詢表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1090, 600)
+        Me.Controls.Add(Me.列印成EXCEL_bt)
+        Me.Controls.Add(Me.訂單流水號_dgv)
+        Me.Controls.Add(Me.資料庫選擇2_bt)
+        Me.Controls.Add(Me.資料庫選擇1_bt)
+        Me.Controls.Add(Me.Label20)
+        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(4)
+        Me.Name = "未指定單價查詢表"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "未指定單價查詢表"
+        CType(Me.訂單流水號_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 資料庫選擇2_bt As Button
+    Friend WithEvents 資料庫選擇1_bt As Button
+    Friend WithEvents Label20 As Label
+    Friend WithEvents 訂單流水號_dgv As DataGridView
+    Friend WithEvents 列印成EXCEL_bt As Button
+End Class

TENDEN-MES-SYS/成本系統管理/未指定單價查詢表.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

TENDEN-MES-SYS/成本系統管理/未指定單價查詢表.vb

@@ -0,0 +1,87 @@
+Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Public Class 未指定單價查詢表
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    ReadOnly ds1 As New DataSet : Dim ND1 As Integer
+    Private Sub Set_未建檔清單()
+        訂單流水號_dgv.DataSource = Nothing : ds1.Clear()
+        訂單流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單流水號_dgv.ColumnHeadersHeight = 25
+        訂單流水號_dgv.AllowUserToAddRows = False
+        SQL_訂單流水號1()
+        da.SelectCommand.CommandTimeout = 900
+        da.Fill(ds1) : 訂單流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 未指定單價查詢表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        訂單資料庫選擇.ShowDialog() : Set_未建檔清單()
+    End Sub
+    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
+        SQL_訂單資料表選擇_VIONIC() : Set_未建檔清單()
+    End Sub
+    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
+        SQL_訂單資料表選擇_非VIONIC() : Set_未建檔清單()
+    End Sub
+    Private Sub 列印成EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+
+        xlSheet.Cells(1, 1) = "訂單流水號" : xlSheet.Cells(1, 2) = "力威訂單號" : xlSheet.Cells(1, 3) = "客戶訂單號" : xlSheet.Cells(1, 4) = "年份季度"
+        xlSheet.Cells(1, 5) = "形體" : xlSheet.Cells(1, 6) = "顏色" : xlSheet.Cells(1, 7) = "訂單數量" : xlSheet.Cells(1, 8) = "楦型" : xlSheet.Cells(1, 9) = "客戶交期"
+        xlSheet.Cells(1, 10) = "工廠回復交期" : xlSheet.Cells(1, 11) = "ProductID"
+        ND1 = 0
+        For i As Integer = 0 To 訂單流水號_dgv.Rows.Count - 1 : ND1 += 1
+            xlSheet.Cells(i + 2, 1) = 訂單流水號_dgv.Rows(i).Cells(0).Value.ToString : xlSheet.Cells(i + 2, 2) = 訂單流水號_dgv.Rows(i).Cells(1).Value.ToString
+            xlSheet.Cells(i + 2, 3) = 訂單流水號_dgv.Rows(i).Cells(2).Value.ToString : xlSheet.Cells(i + 2, 4) = 訂單流水號_dgv.Rows(i).Cells(3).Value.ToString
+            xlSheet.Cells(i + 2, 5) = 訂單流水號_dgv.Rows(i).Cells(4).Value.ToString : xlSheet.Cells(i + 2, 6) = 訂單流水號_dgv.Rows(i).Cells(5).Value.ToString
+            xlSheet.Cells(i + 2, 7) = 訂單流水號_dgv.Rows(i).Cells(6).Value.ToString : xlSheet.Cells(i + 2, 8) = 訂單流水號_dgv.Rows(i).Cells(7).Value.ToString
+            xlSheet.Cells(i + 2, 9) = 訂單流水號_dgv.Rows(i).Cells(8).Value.ToString : xlSheet.Cells(i + 2, 10) = 訂單流水號_dgv.Rows(i).Cells(9).Value.ToString
+            xlSheet.Cells(i + 2, 11) = 訂單流水號_dgv.Rows(i).Cells(10).Value.ToString
+        Next i
+        AA(xlApp, xlSheet)
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成")
+    End Sub
+    Private Sub AA(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False
+            .Subscript = False : .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1
+            .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+
+        xlSheet.Columns("A:K").Select : xlSheet.Columns("A:K").EntireColumn.AutoFit
+        xlSheet.Range("A1:K1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorLight2
+            .TintAndShade = 0.799981688894314 : .PatternTintAndShade = 0 : End With
+
+        xlSheet.Range("A1:K" & ND1 + 1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        xlSheet.Rows("2:2").Select : myExcel.ActiveWindow.FreezePanes = True
+        xlSheet.Range("L3").Select()
+    End Sub
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    End Function
+End Class

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb

@@ -1455,6 +1455,12 @@ Public Class 中文樣品單
                     SQL_修改確認樣品單明細表() : conn.Close()
                 Next i
             End If
+            If 面料1_dgv.Rows.Count > 0 Then
+                For i = 0 To 面料1_dgv.Rows.Count - 1
+                    PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
+                Next i
+            End If
             If 內裡_dgv.Rows.Count > 0 Then
                 For i = 0 To 內裡_dgv.Rows.Count - 1
                     PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
@@ -1463,6 +1469,12 @@ Public Class 中文樣品單
                     SQL_修改確認樣品單明細表4() : conn.Close()
                 Next i
             End If
+            If 內裡1_dgv.Rows.Count > 0 Then
+                For i = 0 To 內裡1_dgv.Rows.Count - 1
+                    PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
+                Next i
+            End If
             If 底部_dgv.Rows.Count > 0 Then
                 For i = 0 To 底部_dgv.Rows.Count - 1
                     PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
@@ -1471,6 +1483,12 @@ Public Class 中文樣品單
                     SQL_修改確認樣品單明細表5() : conn.Close()
                 Next i
             End If
+            If 底部1_dgv.Rows.Count > 0 Then
+                For i = 0 To 底部1_dgv.Rows.Count - 1
+                    PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
+                Next i
+            End If
             If 飾物_dgv.Rows.Count > 0 Then
                 For i = 0 To 飾物_dgv.Rows.Count - 1
                     PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
@@ -1479,6 +1497,12 @@ Public Class 中文樣品單
                     SQL_修改確認樣品單明細表6() : conn.Close()
                 Next i
             End If
+            If 飾物1_dgv.Rows.Count > 0 Then
+                For i = 0 To 飾物1_dgv.Rows.Count - 1
+                    PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
+                Next i
+            End If
         End If
     End Sub
     Private Sub Button38_Click(sender As Object, e As EventArgs) Handles 刷新資料_bt.Click

TENDEN-MES-SYS/財務系統管理/收款報表.Designer.vb

@@ -22,7 +22,7 @@ Partial Class 收款報表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.收款流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.收款開始日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.出貨開始日期_dtp = New System.Windows.Forms.DateTimePicker()
@@ -96,8 +96,8 @@ Partial Class 收款報表
         '
         '收款流水帳_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.收款流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款流水帳_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         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)
@@ -132,7 +132,7 @@ Partial Class 收款報表
         Me.收款日期_lb.AutoSize = True
         Me.收款日期_lb.Location = New System.Drawing.Point(33, 84)
         Me.收款日期_lb.Name = "收款日期_lb"
-        Me.收款日期_lb.Size = New System.Drawing.Size(56, 16)
+        Me.收款日期_lb.Size = New System.Drawing.Size(55, 16)
         Me.收款日期_lb.TabIndex = 4
         Me.收款日期_lb.Text = "收款日期"
         '
@@ -141,7 +141,7 @@ Partial Class 收款報表
         Me.出貨日期_lb.AutoSize = True
         Me.出貨日期_lb.Location = New System.Drawing.Point(260, 83)
         Me.出貨日期_lb.Name = "出貨日期_lb"
-        Me.出貨日期_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨日期_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨日期_lb.TabIndex = 5
         Me.出貨日期_lb.Text = "出貨日期"
         '
@@ -160,7 +160,7 @@ Partial Class 收款報表
         Me.出貨工廠_lb.AutoSize = True
         Me.出貨工廠_lb.Location = New System.Drawing.Point(33, 57)
         Me.出貨工廠_lb.Name = "出貨工廠_lb"
-        Me.出貨工廠_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨工廠_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨工廠_lb.TabIndex = 7
         Me.出貨工廠_lb.Text = "出貨工廠"
         '
@@ -177,7 +177,7 @@ Partial Class 收款報表
         Me.訂單號碼_lb.AutoSize = True
         Me.訂單號碼_lb.Location = New System.Drawing.Point(259, 8)
         Me.訂單號碼_lb.Name = "訂單號碼_lb"
-        Me.訂單號碼_lb.Size = New System.Drawing.Size(56, 16)
+        Me.訂單號碼_lb.Size = New System.Drawing.Size(55, 16)
         Me.訂單號碼_lb.TabIndex = 9
         Me.訂單號碼_lb.Text = "訂單號碼"
         '
@@ -193,7 +193,7 @@ Partial Class 收款報表
         Me.出貨數量_lb.AutoSize = True
         Me.出貨數量_lb.Location = New System.Drawing.Point(259, 33)
         Me.出貨數量_lb.Name = "出貨數量_lb"
-        Me.出貨數量_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨數量_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨數量_lb.TabIndex = 11
         Me.出貨數量_lb.Text = "出貨數量"
         '
@@ -202,7 +202,7 @@ Partial Class 收款報表
         Me.出貨單價_lb.AutoSize = True
         Me.出貨單價_lb.Location = New System.Drawing.Point(260, 57)
         Me.出貨單價_lb.Name = "出貨單價_lb"
-        Me.出貨單價_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨單價_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨單價_lb.TabIndex = 13
         Me.出貨單價_lb.Text = "出貨單價"
         '
@@ -218,7 +218,7 @@ Partial Class 收款報表
         Me.出貨金額_lb.AutoSize = True
         Me.出貨金額_lb.Location = New System.Drawing.Point(488, 9)
         Me.出貨金額_lb.Name = "出貨金額_lb"
-        Me.出貨金額_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨金額_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨金額_lb.TabIndex = 15
         Me.出貨金額_lb.Text = "出貨金額"
         '
@@ -227,7 +227,7 @@ Partial Class 收款報表
         Me.國外費用提單扣款_lb.AutoSize = True
         Me.國外費用提單扣款_lb.Location = New System.Drawing.Point(464, 33)
         Me.國外費用提單扣款_lb.Name = "國外費用提單扣款_lb"
-        Me.國外費用提單扣款_lb.Size = New System.Drawing.Size(104, 16)
+        Me.國外費用提單扣款_lb.Size = New System.Drawing.Size(103, 16)
         Me.國外費用提單扣款_lb.TabIndex = 16
         Me.國外費用提單扣款_lb.Text = "國外費用提單扣款"
         '
@@ -250,7 +250,7 @@ Partial Class 收款報表
         Me.實際金額_lb.AutoSize = True
         Me.實際金額_lb.Location = New System.Drawing.Point(488, 57)
         Me.實際金額_lb.Name = "實際金額_lb"
-        Me.實際金額_lb.Size = New System.Drawing.Size(56, 16)
+        Me.實際金額_lb.Size = New System.Drawing.Size(55, 16)
         Me.實際金額_lb.TabIndex = 20
         Me.實際金額_lb.Text = "實際金額"
         '
@@ -266,7 +266,7 @@ Partial Class 收款報表
         Me.匯率_lb.AutoSize = True
         Me.匯率_lb.Location = New System.Drawing.Point(489, 81)
         Me.匯率_lb.Name = "匯率_lb"
-        Me.匯率_lb.Size = New System.Drawing.Size(56, 16)
+        Me.匯率_lb.Size = New System.Drawing.Size(55, 16)
         Me.匯率_lb.TabIndex = 22
         Me.匯率_lb.Text = "匯        率"
         '
@@ -282,7 +282,7 @@ Partial Class 收款報表
         Me.人民幣金額_lb.AutoSize = True
         Me.人民幣金額_lb.Location = New System.Drawing.Point(488, 105)
         Me.人民幣金額_lb.Name = "人民幣金額_lb"
-        Me.人民幣金額_lb.Size = New System.Drawing.Size(68, 16)
+        Me.人民幣金額_lb.Size = New System.Drawing.Size(67, 16)
         Me.人民幣金額_lb.TabIndex = 24
         Me.人民幣金額_lb.Text = "人民幣金額"
         '
@@ -298,7 +298,7 @@ Partial Class 收款報表
         Me.備註_lb.AutoSize = True
         Me.備註_lb.Location = New System.Drawing.Point(693, 9)
         Me.備註_lb.Name = "備註_lb"
-        Me.備註_lb.Size = New System.Drawing.Size(53, 16)
+        Me.備註_lb.Size = New System.Drawing.Size(52, 16)
         Me.備註_lb.TabIndex = 26
         Me.備註_lb.Text = "備       註"
         '
@@ -366,7 +366,7 @@ Partial Class 收款報表
         Me.資料新增或變更_ch.AutoSize = True
         Me.資料新增或變更_ch.Location = New System.Drawing.Point(12, 128)
         Me.資料新增或變更_ch.Name = "資料新增或變更_ch"
-        Me.資料新增或變更_ch.Size = New System.Drawing.Size(111, 20)
+        Me.資料新增或變更_ch.Size = New System.Drawing.Size(110, 20)
         Me.資料新增或變更_ch.TabIndex = 169
         Me.資料新增或變更_ch.Text = "資料新增或變更"
         Me.資料新增或變更_ch.UseVisualStyleBackColor = True
@@ -423,7 +423,7 @@ Partial Class 收款報表
         Me.不使用查詢條件_cb.CheckState = System.Windows.Forms.CheckState.Checked
         Me.不使用查詢條件_cb.Location = New System.Drawing.Point(12, 6)
         Me.不使用查詢條件_cb.Name = "不使用查詢條件_cb"
-        Me.不使用查詢條件_cb.Size = New System.Drawing.Size(111, 20)
+        Me.不使用查詢條件_cb.Size = New System.Drawing.Size(110, 20)
         Me.不使用查詢條件_cb.TabIndex = 175
         Me.不使用查詢條件_cb.Text = "不使用查詢條件"
         Me.不使用查詢條件_cb.UseVisualStyleBackColor = True
@@ -451,7 +451,7 @@ Partial Class 收款報表
         Me.結帳年份_lb.AutoSize = True
         Me.結帳年份_lb.Location = New System.Drawing.Point(35, 32)
         Me.結帳年份_lb.Name = "結帳年份_lb"
-        Me.結帳年份_lb.Size = New System.Drawing.Size(56, 16)
+        Me.結帳年份_lb.Size = New System.Drawing.Size(55, 16)
         Me.結帳年份_lb.TabIndex = 184
         Me.結帳年份_lb.Text = "結帳年份"
         '
@@ -459,7 +459,7 @@ Partial Class 收款報表
         '
         Me.結帳年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.結帳年份_cb.FormattingEnabled = True
-        Me.結帳年份_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
+        Me.結帳年份_cb.Items.AddRange(New Object() {"2025", "2024", "2023", "2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
         Me.結帳年份_cb.Location = New System.Drawing.Point(121, 29)
         Me.結帳年份_cb.Name = "結帳年份_cb"
         Me.結帳年份_cb.Size = New System.Drawing.Size(111, 24)
@@ -486,7 +486,7 @@ Partial Class 收款報表
         Me.至_lb.AutoSize = True
         Me.至_lb.Location = New System.Drawing.Point(322, 107)
         Me.至_lb.Name = "至_lb"
-        Me.至_lb.Size = New System.Drawing.Size(20, 16)
+        Me.至_lb.Size = New System.Drawing.Size(19, 16)
         Me.至_lb.TabIndex = 180
         Me.至_lb.Text = "至"
         '
@@ -495,7 +495,7 @@ Partial Class 收款報表
         Me.Label16.AutoSize = True
         Me.Label16.Location = New System.Drawing.Point(95, 108)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(20, 16)
+        Me.Label16.Size = New System.Drawing.Size(19, 16)
         Me.Label16.TabIndex = 179
         Me.Label16.Text = "至"
         '
@@ -504,7 +504,7 @@ Partial Class 收款報表
         Me.由_lb.AutoSize = True
         Me.由_lb.Location = New System.Drawing.Point(322, 83)
         Me.由_lb.Name = "由_lb"
-        Me.由_lb.Size = New System.Drawing.Size(20, 16)
+        Me.由_lb.Size = New System.Drawing.Size(19, 16)
         Me.由_lb.TabIndex = 178
         Me.由_lb.Text = "由"
         '
@@ -513,7 +513,7 @@ Partial Class 收款報表
         Me.Label14.AutoSize = True
         Me.Label14.Location = New System.Drawing.Point(95, 84)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(20, 16)
+        Me.Label14.Size = New System.Drawing.Size(19, 16)
         Me.Label14.TabIndex = 177
         Me.Label14.Text = "由"
         '
@@ -523,7 +523,7 @@ Partial Class 收款報表
         Me.總出貨數量_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.總出貨數量_lb.Location = New System.Drawing.Point(900, 7)
         Me.總出貨數量_lb.Name = "總出貨數量_lb"
-        Me.總出貨數量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.總出貨數量_lb.Size = New System.Drawing.Size(67, 16)
         Me.總出貨數量_lb.TabIndex = 178
         Me.總出貨數量_lb.Text = "總出貨數量"
         '
@@ -533,7 +533,7 @@ Partial Class 收款報表
         Me.總出貨金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.總出貨金額_lb.Location = New System.Drawing.Point(900, 31)
         Me.總出貨金額_lb.Name = "總出貨金額_lb"
-        Me.總出貨金額_lb.Size = New System.Drawing.Size(68, 16)
+        Me.總出貨金額_lb.Size = New System.Drawing.Size(67, 16)
         Me.總出貨金額_lb.TabIndex = 179
         Me.總出貨金額_lb.Text = "總出貨金額"
         '
@@ -542,7 +542,7 @@ Partial Class 收款報表
         Me.結存餘額歸零_ch.AutoSize = True
         Me.結存餘額歸零_ch.Location = New System.Drawing.Point(1117, 79)
         Me.結存餘額歸零_ch.Name = "結存餘額歸零_ch"
-        Me.結存餘額歸零_ch.Size = New System.Drawing.Size(104, 20)
+        Me.結存餘額歸零_ch.Size = New System.Drawing.Size(103, 20)
         Me.結存餘額歸零_ch.TabIndex = 208
         Me.結存餘額歸零_ch.Text = "結存餘額-歸零"
         Me.結存餘額歸零_ch.UseVisualStyleBackColor = True
@@ -552,7 +552,7 @@ Partial Class 收款報表
         Me.結存日期_lb.AutoSize = True
         Me.結存日期_lb.Location = New System.Drawing.Point(1123, 107)
         Me.結存日期_lb.Name = "結存日期_lb"
-        Me.結存日期_lb.Size = New System.Drawing.Size(95, 16)
+        Me.結存日期_lb.Size = New System.Drawing.Size(94, 16)
         Me.結存日期_lb.TabIndex = 211
         Me.結存日期_lb.Text = "結     存    日    期"
         '
@@ -587,7 +587,7 @@ Partial Class 收款報表
         Me.國外費用提單總扣款_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.國外費用提單總扣款_lb.Location = New System.Drawing.Point(1100, 7)
         Me.國外費用提單總扣款_lb.Name = "國外費用提單總扣款_lb"
-        Me.國外費用提單總扣款_lb.Size = New System.Drawing.Size(116, 16)
+        Me.國外費用提單總扣款_lb.Size = New System.Drawing.Size(115, 16)
         Me.國外費用提單總扣款_lb.TabIndex = 192
         Me.國外費用提單總扣款_lb.Text = "國外費用提單總扣款"
         '
@@ -597,7 +597,7 @@ Partial Class 收款報表
         Me.人民幣平均單價_lb.ForeColor = System.Drawing.Color.Red
         Me.人民幣平均單價_lb.Location = New System.Drawing.Point(876, 105)
         Me.人民幣平均單價_lb.Name = "人民幣平均單價_lb"
-        Me.人民幣平均單價_lb.Size = New System.Drawing.Size(92, 16)
+        Me.人民幣平均單價_lb.Size = New System.Drawing.Size(91, 16)
         Me.人民幣平均單價_lb.TabIndex = 191
         Me.人民幣平均單價_lb.Text = "人民幣平均單價"
         '
@@ -623,7 +623,7 @@ Partial Class 收款報表
         Me.總人民幣金額_lb.ForeColor = System.Drawing.Color.Red
         Me.總人民幣金額_lb.Location = New System.Drawing.Point(888, 81)
         Me.總人民幣金額_lb.Name = "總人民幣金額_lb"
-        Me.總人民幣金額_lb.Size = New System.Drawing.Size(80, 16)
+        Me.總人民幣金額_lb.Size = New System.Drawing.Size(79, 16)
         Me.總人民幣金額_lb.TabIndex = 188
         Me.總人民幣金額_lb.Text = "總人民幣金額"
         '
@@ -641,7 +641,7 @@ Partial Class 收款報表
         Me.實際平均單價_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.實際平均單價_lb.Location = New System.Drawing.Point(1136, 55)
         Me.實際平均單價_lb.Name = "實際平均單價_lb"
-        Me.實際平均單價_lb.Size = New System.Drawing.Size(80, 16)
+        Me.實際平均單價_lb.Size = New System.Drawing.Size(79, 16)
         Me.實際平均單價_lb.TabIndex = 186
         Me.實際平均單價_lb.Text = "實際平均單價"
         '
@@ -659,7 +659,7 @@ Partial Class 收款報表
         Me.總實際金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.總實際金額_lb.Location = New System.Drawing.Point(1148, 31)
         Me.總實際金額_lb.Name = "總實際金額_lb"
-        Me.總實際金額_lb.Size = New System.Drawing.Size(68, 16)
+        Me.總實際金額_lb.Size = New System.Drawing.Size(67, 16)
         Me.總實際金額_lb.TabIndex = 184
         Me.總實際金額_lb.Text = "總實際金額"
         '
@@ -677,7 +677,7 @@ Partial Class 收款報表
         Me.平均單價_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.平均單價_lb.Location = New System.Drawing.Point(900, 55)
         Me.平均單價_lb.Name = "平均單價_lb"
-        Me.平均單價_lb.Size = New System.Drawing.Size(56, 16)
+        Me.平均單價_lb.Size = New System.Drawing.Size(55, 16)
         Me.平均單價_lb.TabIndex = 182
         Me.平均單價_lb.Text = "平均單價"
         '

TENDEN-MES-SYS/財務系統管理/收款報表批量輸入.Designer.vb

@@ -58,7 +58,7 @@ Partial Class 收款報表批量輸入
         '
         Me.結帳年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.結帳年份_cb.FormattingEnabled = True
-        Me.結帳年份_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
+        Me.結帳年份_cb.Items.AddRange(New Object() {"2025", "2024", "2023", "2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
         Me.結帳年份_cb.Location = New System.Drawing.Point(74, 6)
         Me.結帳年份_cb.Name = "結帳年份_cb"
         Me.結帳年份_cb.Size = New System.Drawing.Size(111, 24)

TENDEN-MES-SYS/財務系統管理/費用報表.Designer.vb

@@ -107,7 +107,7 @@ Partial Class 費用報表
         Me.資料新增或變動_cb.AutoSize = True
         Me.資料新增或變動_cb.Location = New System.Drawing.Point(715, 4)
         Me.資料新增或變動_cb.Name = "資料新增或變動_cb"
-        Me.資料新增或變動_cb.Size = New System.Drawing.Size(111, 20)
+        Me.資料新增或變動_cb.Size = New System.Drawing.Size(110, 20)
         Me.資料新增或變動_cb.TabIndex = 211
         Me.資料新增或變動_cb.Text = "資料新增或變動"
         Me.資料新增或變動_cb.UseVisualStyleBackColor = True
@@ -159,7 +159,7 @@ Partial Class 費用報表
         Me.結帳年份_lb.AutoSize = True
         Me.結帳年份_lb.Location = New System.Drawing.Point(33, 34)
         Me.結帳年份_lb.Name = "結帳年份_lb"
-        Me.結帳年份_lb.Size = New System.Drawing.Size(56, 16)
+        Me.結帳年份_lb.Size = New System.Drawing.Size(55, 16)
         Me.結帳年份_lb.TabIndex = 206
         Me.結帳年份_lb.Text = "結帳年份"
         '
@@ -167,7 +167,7 @@ Partial Class 費用報表
         '
         Me.結帳年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.結帳年份_cb.FormattingEnabled = True
-        Me.結帳年份_cb.Items.AddRange(New Object() {"2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
+        Me.結帳年份_cb.Items.AddRange(New Object() {"2025", "2024", "2023", "2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013", "2012", "2011", "2010"})
         Me.結帳年份_cb.Location = New System.Drawing.Point(129, 31)
         Me.結帳年份_cb.Name = "結帳年份_cb"
         Me.結帳年份_cb.Size = New System.Drawing.Size(137, 24)
@@ -189,7 +189,7 @@ Partial Class 費用報表
         Me.不使用查詢條件_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.不使用查詢條件_ch.Location = New System.Drawing.Point(12, 7)
         Me.不使用查詢條件_ch.Name = "不使用查詢條件_ch"
-        Me.不使用查詢條件_ch.Size = New System.Drawing.Size(111, 20)
+        Me.不使用查詢條件_ch.Size = New System.Drawing.Size(110, 20)
         Me.不使用查詢條件_ch.TabIndex = 203
         Me.不使用查詢條件_ch.Text = "不使用查詢條件"
         Me.不使用查詢條件_ch.UseVisualStyleBackColor = True
@@ -233,7 +233,7 @@ Partial Class 費用報表
         Me.匯率_lb.AutoSize = True
         Me.匯率_lb.Location = New System.Drawing.Point(484, 83)
         Me.匯率_lb.Name = "匯率_lb"
-        Me.匯率_lb.Size = New System.Drawing.Size(83, 16)
+        Me.匯率_lb.Size = New System.Drawing.Size(82, 16)
         Me.匯率_lb.TabIndex = 199
         Me.匯率_lb.Text = "匯                 率"
         '
@@ -251,7 +251,7 @@ Partial Class 費用報表
         Me.RMB支出金額_lb.ForeColor = System.Drawing.Color.Red
         Me.RMB支出金額_lb.Location = New System.Drawing.Point(484, 58)
         Me.RMB支出金額_lb.Name = "RMB支出金額_lb"
-        Me.RMB支出金額_lb.Size = New System.Drawing.Size(83, 16)
+        Me.RMB支出金額_lb.Size = New System.Drawing.Size(82, 16)
         Me.RMB支出金額_lb.TabIndex = 197
         Me.RMB支出金額_lb.Text = "RMB支出金額"
         '
@@ -269,7 +269,7 @@ Partial Class 費用報表
         Me.RMB收入金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.RMB收入金額_lb.Location = New System.Drawing.Point(484, 33)
         Me.RMB收入金額_lb.Name = "RMB收入金額_lb"
-        Me.RMB收入金額_lb.Size = New System.Drawing.Size(83, 16)
+        Me.RMB收入金額_lb.Size = New System.Drawing.Size(82, 16)
         Me.RMB收入金額_lb.TabIndex = 195
         Me.RMB收入金額_lb.Text = "RMB收入金額"
         '
@@ -287,7 +287,7 @@ Partial Class 費用報表
         Me.USD收入金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.USD收入金額_lb.Location = New System.Drawing.Point(484, 8)
         Me.USD收入金額_lb.Name = "USD收入金額_lb"
-        Me.USD收入金額_lb.Size = New System.Drawing.Size(81, 16)
+        Me.USD收入金額_lb.Size = New System.Drawing.Size(80, 16)
         Me.USD收入金額_lb.TabIndex = 193
         Me.USD收入金額_lb.Text = "USD收入金額"
         '
@@ -304,7 +304,7 @@ Partial Class 費用報表
         Me.項目_lb.AutoSize = True
         Me.項目_lb.Location = New System.Drawing.Point(282, 8)
         Me.項目_lb.Name = "項目_lb"
-        Me.項目_lb.Size = New System.Drawing.Size(53, 16)
+        Me.項目_lb.Size = New System.Drawing.Size(52, 16)
         Me.項目_lb.TabIndex = 191
         Me.項目_lb.Text = "項       目"
         '
@@ -321,7 +321,7 @@ Partial Class 費用報表
         Me.備註_lb.AutoSize = True
         Me.備註_lb.Location = New System.Drawing.Point(282, 69)
         Me.備註_lb.Name = "備註_lb"
-        Me.備註_lb.Size = New System.Drawing.Size(53, 16)
+        Me.備註_lb.Size = New System.Drawing.Size(52, 16)
         Me.備註_lb.TabIndex = 189
         Me.備註_lb.Text = "備       註"
         '
@@ -337,7 +337,7 @@ Partial Class 費用報表
         Me.Label16.AutoSize = True
         Me.Label16.Location = New System.Drawing.Point(95, 112)
         Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(20, 16)
+        Me.Label16.Size = New System.Drawing.Size(19, 16)
         Me.Label16.TabIndex = 186
         Me.Label16.Text = "至"
         '
@@ -346,7 +346,7 @@ Partial Class 費用報表
         Me.Label14.AutoSize = True
         Me.Label14.Location = New System.Drawing.Point(95, 88)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(20, 16)
+        Me.Label14.Size = New System.Drawing.Size(19, 16)
         Me.Label14.TabIndex = 185
         Me.Label14.Text = "由"
         '
@@ -362,7 +362,7 @@ Partial Class 費用報表
         Me.收款日期_lb.AutoSize = True
         Me.收款日期_lb.Location = New System.Drawing.Point(33, 88)
         Me.收款日期_lb.Name = "收款日期_lb"
-        Me.收款日期_lb.Size = New System.Drawing.Size(56, 16)
+        Me.收款日期_lb.Size = New System.Drawing.Size(55, 16)
         Me.收款日期_lb.TabIndex = 183
         Me.收款日期_lb.Text = "收款日期"
         '
@@ -390,7 +390,7 @@ Partial Class 費用報表
         Me.帳務對象_lb.AutoSize = True
         Me.帳務對象_lb.Location = New System.Drawing.Point(33, 60)
         Me.帳務對象_lb.Name = "帳務對象_lb"
-        Me.帳務對象_lb.Size = New System.Drawing.Size(56, 16)
+        Me.帳務對象_lb.Size = New System.Drawing.Size(55, 16)
         Me.帳務對象_lb.TabIndex = 172
         Me.帳務對象_lb.Text = "帳務對象"
         '
@@ -417,7 +417,7 @@ Partial Class 費用報表
         Me.總人民幣收入金額_lb.ForeColor = System.Drawing.Color.Black
         Me.總人民幣收入金額_lb.Location = New System.Drawing.Point(841, 33)
         Me.總人民幣收入金額_lb.Name = "總人民幣收入金額_lb"
-        Me.總人民幣收入金額_lb.Size = New System.Drawing.Size(104, 16)
+        Me.總人民幣收入金額_lb.Size = New System.Drawing.Size(103, 16)
         Me.總人民幣收入金額_lb.TabIndex = 211
         Me.總人民幣收入金額_lb.Text = "總人民幣收入金額"
         '
@@ -435,7 +435,7 @@ Partial Class 費用報表
         Me.總實際收入金額_lb.ForeColor = System.Drawing.Color.Black
         Me.總實際收入金額_lb.Location = New System.Drawing.Point(853, 8)
         Me.總實際收入金額_lb.Name = "總實際收入金額_lb"
-        Me.總實際收入金額_lb.Size = New System.Drawing.Size(92, 16)
+        Me.總實際收入金額_lb.Size = New System.Drawing.Size(91, 16)
         Me.總實際收入金額_lb.TabIndex = 209
         Me.總實際收入金額_lb.Text = "總實際收入金額"
         '
@@ -444,7 +444,7 @@ Partial Class 費用報表
         Me.結存_lb.AutoSize = True
         Me.結存_lb.Location = New System.Drawing.Point(1106, 5)
         Me.結存_lb.Name = "結存_lb"
-        Me.結存_lb.Size = New System.Drawing.Size(236, 16)
+        Me.結存_lb.Size = New System.Drawing.Size(235, 16)
         Me.結存_lb.TabIndex = 208
         Me.結存_lb.Text = "結存前需到收款報表處結存該年度收入資料"
         '
@@ -453,7 +453,7 @@ Partial Class 費用報表
         Me.結存餘額歸零_ch.AutoSize = True
         Me.結存餘額歸零_ch.Location = New System.Drawing.Point(1100, 50)
         Me.結存餘額歸零_ch.Name = "結存餘額歸零_ch"
-        Me.結存餘額歸零_ch.Size = New System.Drawing.Size(104, 20)
+        Me.結存餘額歸零_ch.Size = New System.Drawing.Size(103, 20)
         Me.結存餘額歸零_ch.TabIndex = 205
         Me.結存餘額歸零_ch.Text = "結存餘額-歸零"
         Me.結存餘額歸零_ch.UseVisualStyleBackColor = True
@@ -471,7 +471,7 @@ Partial Class 費用報表
         Me.結存日期_lb.AutoSize = True
         Me.結存日期_lb.Location = New System.Drawing.Point(1106, 79)
         Me.結存日期_lb.Name = "結存日期_lb"
-        Me.結存日期_lb.Size = New System.Drawing.Size(95, 16)
+        Me.結存日期_lb.Size = New System.Drawing.Size(94, 16)
         Me.結存日期_lb.TabIndex = 207
         Me.結存日期_lb.Text = "結     存    日    期"
         '
@@ -480,7 +480,7 @@ Partial Class 費用報表
         Me.RMB結餘_lb.AutoSize = True
         Me.RMB結餘_lb.Location = New System.Drawing.Point(1106, 25)
         Me.RMB結餘_lb.Name = "RMB結餘_lb"
-        Me.RMB結餘_lb.Size = New System.Drawing.Size(95, 16)
+        Me.RMB結餘_lb.Size = New System.Drawing.Size(94, 16)
         Me.RMB結餘_lb.TabIndex = 201
         Me.RMB結餘_lb.Text = "RMB   結         餘"
         '
@@ -499,7 +499,7 @@ Partial Class 費用報表
         Me.總RMB支出金額_lb.ForeColor = System.Drawing.Color.Red
         Me.總RMB支出金額_lb.Location = New System.Drawing.Point(852, 107)
         Me.總RMB支出金額_lb.Name = "總RMB支出金額_lb"
-        Me.總RMB支出金額_lb.Size = New System.Drawing.Size(95, 16)
+        Me.總RMB支出金額_lb.Size = New System.Drawing.Size(94, 16)
         Me.總RMB支出金額_lb.TabIndex = 188
         Me.總RMB支出金額_lb.Text = "總RMB支出金額"
         '
@@ -519,7 +519,7 @@ Partial Class 費用報表
         Me.總RMB收入金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.總RMB收入金額_lb.Location = New System.Drawing.Point(852, 83)
         Me.總RMB收入金額_lb.Name = "總RMB收入金額_lb"
-        Me.總RMB收入金額_lb.Size = New System.Drawing.Size(95, 16)
+        Me.總RMB收入金額_lb.Size = New System.Drawing.Size(94, 16)
         Me.總RMB收入金額_lb.TabIndex = 184
         Me.總RMB收入金額_lb.Text = "總RMB收入金額"
         '
@@ -553,7 +553,7 @@ Partial Class 費用報表
         Me.總USD收入金額_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
         Me.總USD收入金額_lb.Location = New System.Drawing.Point(852, 58)
         Me.總USD收入金額_lb.Name = "總USD收入金額_lb"
-        Me.總USD收入金額_lb.Size = New System.Drawing.Size(93, 16)
+        Me.總USD收入金額_lb.Size = New System.Drawing.Size(92, 16)
         Me.總USD收入金額_lb.TabIndex = 178
         Me.總USD收入金額_lb.Text = "總USD收入金額"
         '