20210117備份

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

@@ -58,6 +58,9 @@
                 FROM   銷售控制表 " & SQL2 & " ORDER BY 單號 DESC"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL料號查詢簡稱()
+        ConnOpen() : SQL1 = "SELECT  簡稱  FROM 供應商資料表 WHERE (編號 LIKE N'" & PA30 & "')" : CmdSet_For_dr()
+    End Sub
     '---------------------銷售單審核-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_銷售控制表_審核()
         If 銷售單審核.已審核資料_ch.Checked = True Then

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

@@ -242,7 +242,7 @@
         SQL1 = "SELECT      銷售明細表.資料流水號, 銷售明細表.資料流水號 AS 項次, 銷售明細表.料號, 物料資料庫.品名, 倉儲分區控制表.倉名, 
                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 
                             銷售明細表.含稅, 銷售明細表.售價 AS 金額, 銷售明細表.狀態 AS 倉儲情況, 銷售明細表.資料流水號 AS 倉儲流水號, 
-                            銷售明細表.倉儲狀態, 銷售明細表.訂製狀態, 銷售明細表.物料狀態
+                            銷售明細表.倉儲狀態, 銷售明細表.訂製狀態,銷售明細表.物料狀態
                 FROM        銷售明細表 INNER JOIN
                             倉儲狀態 ON 銷售明細表.物料狀態 = 倉儲狀態.編碼 INNER JOIN
                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN
@@ -259,7 +259,7 @@
     End Sub
     Friend Sub SQL_銷售備註表()
         ConnOpen()
-        SQL1 = "SELECT 資料流水號, 資料流水號 AS 項次, 備註, 收入, 支出 FROM 銷售備註表 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 資料流水號"
+        SQL1 = "SELECT 資料流水號, 資料流水號 AS 項次, 備註, 收入,支出 FROM 銷售備註表 WHERE (單號 LIKE '" & PA2 & "') ORDER BY 資料流水號"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_銷售衍生費用()

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

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

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

@@ -1 +1 @@
-dc937bf29d1a895513a99985f75be88c433744c0
+281927094792df26f73e0c80a4672f1e2ea02d0a

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

@@ -396,13 +396,9 @@ D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resour
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款未收.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.應收帳款已收.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應負帳款.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
@@ -417,11 +413,7 @@ D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯入EXCEL.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽表.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單審核.resources
-D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單申請.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
@@ -572,3 +564,15 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般申請_採購單.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售申請_採購單.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購應付帳款.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務獎金計算基礎.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績單據完單設定.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績獎金彙總表.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績運費明細表.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_決算表.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單一覽表.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單審核.resources
+D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單申請.resources

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核_倉儲調整.resx

@@ -0,0 +1,126 @@
+<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>24, 10</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>38</value>
+  </metadata>
+</root>

YD-ERP-SYS/倉儲系統管理/盤盈盤損審核_倉儲調整.vb

@@ -0,0 +1,457 @@
+Option Strict Off
+Public Class 盤盈盤損審核_倉儲調整
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim NUM1 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+        調庫單據_dgv.RowTemplate.Height = 35
+        調庫明細_dgv.RowTemplate.Height = 35
+        區域庫存_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_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
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
+                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
+                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
+                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
+                End If
+            End If
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單2()
+        調庫單據_dgv.DataSource = Nothing : ds2.Clear()
+        調庫單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫單據_dgv.ColumnHeadersHeight = 25
+        調庫單據_dgv.AllowUserToAddRows = False
+        調庫單據_dgv.RowTemplate.Height = 25
+
+        SQL_盤盈盤損申請_單據()
+        da.Fill(ds2) : 調庫單據_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        調庫單據_dgv.Columns(0).FillWeight = 200 : 調庫單據_dgv.Columns(1).Visible = False : 調庫單據_dgv.Columns(2).Visible = False
+        調庫單據_dgv.Columns(0).ReadOnly = True : 調庫單據_dgv.Columns(1).ReadOnly = True : 調庫單據_dgv.Columns(2).ReadOnly = True
+    End Sub
+    Private Sub Set_清單1()
+        調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+        調庫明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        調庫明細_dgv.ColumnHeadersHeight = 40
+        調庫明細_dgv.AllowUserToAddRows = False
+        調庫明細_dgv.RowTemplate.Height = 35
+
+        PA20 = 調庫單號_tb.Text
+        SQL_盤盈盤損申請_明細()
+        da.Fill(ds1) : 調庫明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        調庫明細_dgv.Columns(0).Visible = False : 調庫明細_dgv.Columns(1).FillWeight = 100 : 調庫明細_dgv.Columns(2).FillWeight = 100 : 調庫明細_dgv.Columns(3).FillWeight = 75
+        調庫明細_dgv.Columns(4).FillWeight = 200 : 調庫明細_dgv.Columns(5).FillWeight = 100 : 調庫明細_dgv.Columns(6).FillWeight = 100 : 調庫明細_dgv.Columns(7).FillWeight = 50
+        調庫明細_dgv.Columns(8).FillWeight = 50 : 調庫明細_dgv.Columns(9).FillWeight = 75 : 調庫明細_dgv.Columns(10).FillWeight = 100 : 調庫明細_dgv.Columns(11).FillWeight = 35
+
+        調庫明細_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
+
+        調庫明細_dgv.Columns(1).ReadOnly = True : 調庫明細_dgv.Columns(2).ReadOnly = True : 調庫明細_dgv.Columns(3).ReadOnly = True : 調庫明細_dgv.Columns(4).ReadOnly = True
+        調庫明細_dgv.Columns(5).ReadOnly = True : 調庫明細_dgv.Columns(6).ReadOnly = True : 調庫明細_dgv.Columns(9).ReadOnly = True : 調庫明細_dgv.Columns(11).ReadOnly = True
+
+        調庫明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 調庫明細_dgv.Rows.Count
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = ""
+        If 地區_cb.Text = "" Then : PA3 = ""
+        ElseIf 地區_cb.Text = "北部" Then : PA3 = "2"
+        ElseIf 地區_cb.Text = "南部" Then : PA3 = "3"
+        ElseIf 地區_cb.Text = "材料" Then : PA3 = "9"
+        ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y"
+        End If
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 盤盈盤損確認_倉儲調整_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        料號_tb.Enabled = False : 供應商編碼_tb.Visible = False '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單2() : 首次開啟 = True '--------------------資料讀取
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        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.Rows(e.RowIndex).Cells("執行單號").Value : 申請人_tb.Text = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請人").Value
+            申請日期_dtp.Value = 調庫單據_dgv.Rows(e.RowIndex).Cells("申請日期").Value
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 調庫明細_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 調庫明細_dgv.CellEndEdit
+        If (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) = 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) = 0) Or
+             (Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤盈").Value) <> 0 And Val(調庫明細_dgv.Rows(e.RowIndex).Cells("盤損").Value) <> 0) Then
+            MsgBox("盤營與盤損不能同時為零或同時有數量")
+            Set_清單1()
+            Exit Sub
+        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(0, e.RowIndex).Value.ToString
+            物料圖1_pb.Image = Nothing : PA1 = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 調庫明細_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = 物料清單_dgv("供應商", e.RowIndex).Value.ToString
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
+            供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+        ElseIf 地區_cb.Text = "" Then
+            查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        ElseIf 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商_下拉表單資料載入()
+        End If
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        If 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+        End If
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        If 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+        End If
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        查詢_tb.Text = "" : 地區_cb.Text = ""
+    End Sub
+    Private Sub 查詢_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+            PA = 查詢_tb.Text : Set_清單() : 地區_cb.Text = ""
+        End If
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub 盤損數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤損數_nud.ValueChanged
+        If 盤損數_nud.Value > 0 Then
+            盤盈數_nud.Value = 0
+            If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                MsgBox("盤損數量不可能大於目前的庫存量!!")
+                盤損數_nud.Value = 0
+            End If
+        End If
+    End Sub
+    Private Sub 盤盈數_nud_ValueChanged(sender As Object, e As EventArgs) Handles 盤盈數_nud.ValueChanged
+        If 盤盈數_nud.Value > 0 Then
+            盤損數_nud.Value = 0
+        End If
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("請先選擇未審核的庫存調整單!!")
+        Else
+            If 料號_tb.Text = "" Then
+                MsgBox("請選擇物料，調整庫存需要指定物料!!")
+            Else
+                If 儲態編號_cb.Text = "" Then
+                    MsgBox("倉儲狀態是一定要選擇的!!")
+                Else
+                    If 訂製狀態_cb.Text = "" Then
+                        MsgBox("物品的訂製狀態也是一定要選擇的!!")
+                    Else
+                        If 盤損數_nud.Value > Val(庫存量_tb.Text) Then
+                            MsgBox("盤損數量不可能小於庫存數量!!")
+                            盤損數_nud.Value = 0
+                        Else
+                            If 盤損數_nud.Value = 0 And 盤盈數_nud.Value = 0 Then
+                                MsgBox("盤盈盤損最少選一種，兩者都為零是不容許的!!")
+                            Else
+                                PA1 = 調庫單號_tb.Text : PA2 = 料號_tb.Text : PA3 = 倉庫編號_tb.Text
+                                SQL_倉儲明細表_確認單據是否申請()
+                                If dr.Read() Then
+                                    conn.Close() : 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 = "WH" & "00000000" & EDR
+                                    ElseIf EDR > 9 And EDR < 100 Then : ESTR = "WH" & "0000000" & EDR
+                                    ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "WH" & "000000" & EDR
+                                    ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "WH" & "00000" & EDR
+                                    ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "WH" & "0000" & EDR
+                                    ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "WH" & "000" & EDR
+                                    ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "WH" & "00" & EDR
+                                    ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "WH" & "0" & EDR
+                                    ElseIf EDR > 99999999 Then : ESTR = "WH" & EDR : End If
+
+                                    PA3 = ESTR : PA4 = 調庫單號_tb.Text : PA5 = 倉庫級別_tb.Text : PA6 = 倉庫編號_tb.Text : NU1 = 盤盈數_nud.Value : NU2 = 盤損數_nud.Value
+                                    PA7 = 儲態編號_cb.Text : PA8 = 訂製編碼_cb.Text
+                                    If 盤盈數_nud.Value = 0 And 盤損數_nud.Value > 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤損出庫新增()
+                                    ElseIf 盤盈數_nud.Value > 0 And 盤損數_nud.Value = 0 Then
+                                        SQL_盤盈盤損申請_倉儲明細表_盤盈入庫新增()
+                                    End If : conn.Close()
+                                    Set_清單1() : Set_清單2() : Set_清單()
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        If 調庫單號_tb.Text = "" Or 料號_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 : NU2 = 調庫明細_dgv.Rows(i).Cells("盤損").Value
+                SQL_倉儲明細表_出入庫及修改() : conn.Close()
+            Next
+            MsgBox("存檔完成!!") : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+            Set_清單1() : 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 項次_tb.Text = "" Then
+                MsgBox("沒有選擇要刪除的明細!!")
+            Else
+                Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這筆資料?", MsgBoxStyle.OkCancel)
+                If aa1 = MsgBoxResult.Ok Then
+                    PA1 = 項次_tb.Text : SQL_倉儲明細表_刪除二() : conn.Close()
+                    Set_清單1()
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        Dim aa1 As MsgBoxResult = MsgBox("你確定要刪除這張庫存調整單?", MsgBoxStyle.OkCancel)
+        If aa1 = MsgBoxResult.Ok Then
+            PA1 = 調庫單號_tb.Text : SQL_倉儲明細表_刪除() : SQL_倉儲明細執行單號_刪除() : conn.Close()
+            調庫單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
+            調庫明細_dgv.DataSource = Nothing : ds1.Clear()
+            Set_清單2()
+        End If
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            Set_日期格式轉換() : PA10 = gUserName : PA9 = gUserName : PA11 = 調庫單號_tb.Text : DTP2 = DTP
+            SQL_倉儲明細表_盤盈盤損審核() : Set_清單2() : Set_清單1() : conn.Close()
+            MsgBox("單據 " & 調庫單號_tb.Text & " 審核完成!!") : 申請人_tb.Text = "" : 申請日期_dtp.Value = Today() : 調庫單號_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 調庫單號_tb.Text = "" Then
+            MsgBox("沒有選擇庫存調整單據!!")
+        Else
+            Set_日期格式轉換() : PA10 = "作廢 - " & gUserName : PA9 = "" : PA11 = 調庫單號_tb.Text : DTP2 = ""
+            SQL_倉儲明細表_盤盈盤損審核() : Set_清單2() : Set_清單1() : conn.Close()
+            MsgBox("單據 " & 調庫單號_tb.Text & " 已作廢!!") : 申請人_tb.Text = "" : 申請日期_dtp.Value = Today() : 調庫單號_tb.Text = ""
+        End If
+    End Sub
+    Private Sub 需要全部庫存區域清單_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 需要全部庫存區域清單_ch.CheckedChanged
+        指定倉庫_cb_下拉表單資料載入()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新整理_tsm_Click(sender As Object, e As EventArgs) Handles 重新整理_tsm.Click
+        清空_bt.PerformClick() : Set_清單2() : Set_清單1()
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_tsm_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_tsm.Click
+        選定內容加入庫存調整申請單_bt.PerformClick()
+    End Sub
+    Private Sub 存檔_tsm_Click(sender As Object, e As EventArgs) Handles 存檔_tsm.Click
+        存檔_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據上點選的資料_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據上點選的資料_tsm.Click
+        刪除單據上點選的資料_bt.PerformClick()
+    End Sub
+    Private Sub 刪除庫存調整單據_tsm_Click(sender As Object, e As EventArgs) Handles 刪除庫存調整單據_tsm.Click
+        刪除_bt.PerformClick()
+    End Sub
+    Private Sub 審核通過_tsm_Click(sender As Object, e As EventArgs) Handles 審核通過_tsm.Click
+        審核通過_bt.PerformClick()
+    End Sub
+    Private Sub 單據作廢_tsm_Click(sender As Object, e As EventArgs) Handles 單據作廢_tsm.Click
+        單據作廢_tsm.PerformClick()
+    End Sub
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        物料清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        調庫單據_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        調庫明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        區域庫存_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+End Class

YD-ERP-SYS/採購系統管理/一般性申請採購單.resx

@@ -0,0 +1,132 @@
+<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>16, 6</value>
+  </metadata>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>198, 8</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>378, 8</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>30</value>
+  </metadata>
+</root>

YD-ERP-SYS/採購系統管理/一般性申請採購單.vb

@@ -0,0 +1,697 @@
+Option Strict Off
+Public Class 一般性申請採購單
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet
+    Dim 首次開啟 As Boolean = False : Dim NUM1 As Integer : Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字 As Boolean
+    Private Sub Set_清單()
+        物料清單_dgv.DataSource = Nothing : ds.Clear()
+        物料清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料清單_dgv.ColumnHeadersHeight = 40
+        物料清單_dgv.AllowUserToAddRows = False
+        物料清單_dgv.RowTemplate.Height = 35
+
+        PA1 = "" : PA2 = "" : PA2 = 供應商編碼_cb.Text : PA1 = 查詢_tb.Text
+        SQL_盤盈盤損申請_物料清單()
+        da.Fill(ds) : 物料清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        物料清單_dgv.Columns(0).FillWeight = 80 : 物料清單_dgv.Columns(1).FillWeight = 80 : 物料清單_dgv.Columns(2).FillWeight = 100
+        物料清單_dgv.Columns(3).FillWeight = 200 : 物料清單_dgv.Columns(4).FillWeight = 80 : 物料清單_dgv.Columns(5).FillWeight = 80 : 物料清單_dgv.Columns(6).FillWeight = 50
+        物料清單_dgv.Columns(7).FillWeight = 50 : 物料清單_dgv.Columns(8).FillWeight = 50 : 物料清單_dgv.Columns(9).FillWeight = 50 : 物料清單_dgv.Columns(10).Visible = False
+        物料清單_dgv.Columns(11).Visible = False : 物料清單_dgv.Columns(12).Visible = False : 物料清單_dgv.Columns(13).Visible = False
+
+        物料清單_dgv.Columns(1).ReadOnly = True : 物料清單_dgv.Columns(2).ReadOnly = True : 物料清單_dgv.Columns(3).ReadOnly = True : 物料清單_dgv.Columns(4).ReadOnly = True
+        物料清單_dgv.Columns(5).ReadOnly = True : 物料清單_dgv.Columns(6).ReadOnly = True : 物料清單_dgv.Columns(7).ReadOnly = True : 物料清單_dgv.Columns(8).ReadOnly = True
+        物料清單_dgv.Columns(9).ReadOnly = True : 物料清單_dgv.Columns(0).ReadOnly = True
+
+        物料清單_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 物料清單_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
+        物料清單_dgv.Columns("未出庫").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        物料清單_dgv.Columns("未出庫").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        資料筆數_tb.Text = 物料清單_dgv.Rows.Count
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            資料數 = 物料清單_dgv.Rows.Count : MyModule1.進度條()
+            If 物料清單_dgv("倉名", i).Value.ToString = "" Then
+                If 物料清單_dgv("倉名1", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名1", i).Value.ToString
+                ElseIf 物料清單_dgv("倉名2", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名2", i).Value.ToString
+                ElseIf 物料清單_dgv("倉名3", i).Value.ToString <> "" Then
+                    物料清單_dgv("倉名", i).Value = 物料清單_dgv("倉名3", i).Value.ToString
+                End If
+            End If
+            If 物料清單_dgv("庫存", i).Value.ToString = "" Then : 物料清單_dgv("庫存", i).Value = 0 : End If
+            If 物料清單_dgv("未入庫", i).Value.ToString = "" Then : 物料清單_dgv("未入庫", i).Value = 0 : End If
+            If 物料清單_dgv("未出庫", i).Value.ToString = "" Then : 物料清單_dgv("未出庫", i).Value = 0 : End If
+
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Set_清單1()
+        採購清單_dgv.DataSource = Nothing : ds1.Clear()
+        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
+            採購清單_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 25
+        End If
+
+        If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
+        PA20 = 業務1_cb.Text
+        SQL_採購控制表_未出庫()
+        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
+
+        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 70 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
+        採購清單_dgv.Columns(4).FillWeight = 65 : 採購清單_dgv.Columns(5).FillWeight = 190 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).Visible = False
+        採購清單_dgv.Columns(8).FillWeight = 70 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
+        採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 70 : 採購清單_dgv.Columns(15).FillWeight = 125
+        採購清單_dgv.Columns(16).FillWeight = 45 : 採購清單_dgv.Columns(17).FillWeight = 45 : 採購清單_dgv.Columns(18).FillWeight = 60 : 採購清單_dgv.Columns(19).FillWeight = 60
+        採購清單_dgv.Columns(20).FillWeight = 60 : 採購清單_dgv.Columns(21).FillWeight = 70 : 採購清單_dgv.Columns(22).FillWeight = 70 : 採購清單_dgv.Columns(23).FillWeight = 70
+        採購清單_dgv.Columns(24).Visible = False : 採購清單_dgv.Columns(25).Visible = False : 採購清單_dgv.Columns(26).FillWeight = 45
+
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_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
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
+        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True
+
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
+        關鍵字 = False
+        Set_合記計算()
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單1()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "倉名"
+        }
+        SQL_倉名_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
+        Col.HeaderText = "倉名" : Col.Name = "倉名"
+        採購清單_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單2()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "訂製"
+        }
+        SQL_訂製狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
+        Col.HeaderText = "訂製" : Col.Name = "訂製"
+        採購清單_dgv.Columns.Insert(11, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單3()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "狀態"
+        }
+        SQL_倉儲狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
+        Col.HeaderText = "狀態" : Col.Name = "狀態"
+        採購清單_dgv.Columns.Insert(14, Col)
+    End Sub
+    Private Sub Set_清單3()
+        區域庫存_dgv.DataSource = Nothing : ds3.Clear()
+        區域庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        區域庫存_dgv.ColumnHeadersHeight = 25
+        區域庫存_dgv.AllowUserToAddRows = False
+        區域庫存_dgv.RowTemplate.Height = 25
+
+        PA20 = 料號_tb.Text : SQL_倉名_物料分配查詢()
+        da.Fill(ds3) : 區域庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        區域庫存_dgv.Columns(0).FillWeight = 200 : 區域庫存_dgv.Columns(1).FillWeight = 80
+        區域庫存_dgv.Columns(0).ReadOnly = True : 區域庫存_dgv.Columns(1).ReadOnly = True
+
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Format = "#,##0"
+        區域庫存_dgv.Columns("可用").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        區域庫存_dgv.Columns("可用").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_清單5()
+        訂製圖檔_dgv.DataSource = Nothing : ds2.Clear()
+        訂製圖檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂製圖檔_dgv.ColumnHeadersHeight = 25
+        訂製圖檔_dgv.AllowUserToAddRows = False
+        訂製圖檔_dgv.RowTemplate.Height = 25
+
+        SQL_採購控制表_訂製圖檔清單()
+        da.Fill(ds2) : 訂製圖檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        訂製圖檔_dgv.Columns(0).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
+    End Sub
+    Private Sub 供應商_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = ""
+        If 地區_cb.Text = "" Then : PA3 = ""
+        ElseIf 地區_cb.Text = "北部" Then : PA3 = "2"
+        ElseIf 地區_cb.Text = "南部" Then : PA3 = "3"
+        ElseIf 地區_cb.Text = "材料" Then : PA3 = "9"
+        ElseIf 地區_cb.Text = "調貨" Then : PA3 = "Y"
+        End If
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        While (dr.Read()) : 供應商_cb.Items.Add(dr("簡稱")) : 供應商編碼_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 供應商1_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = ""
+        If 地區1_cb.Text = "" Then : PA3 = ""
+        ElseIf 地區1_cb.Text = "北部" Then : PA3 = "2"
+        ElseIf 地區1_cb.Text = "南部" Then : PA3 = "3"
+        ElseIf 地區1_cb.Text = "材料" Then : PA3 = "9"
+        ElseIf 地區1_cb.Text = "調貨" Then : PA3 = "Y"
+        End If
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        While (dr.Read()) : 供應商1_cb.Items.Add(dr("簡稱")) : 供應商編碼1_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub Set_合記計算()
+        採購金額_tb.Text = "0" : 採購金額1_tb.Text = "0"
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("金額", i).Value = 採購清單_dgv("數量", i).Value * 採購清單_dgv("成本", i).Value
+            採購金額_tb.Text = Val(採購金額_tb.Text) + 採購清單_dgv("金額", i).Value
+
+            If 供應商_tb.Text = 採購清單_dgv("供應商", i).Value.ToString Then
+                採購金額1_tb.Text = Val(採購金額1_tb.Text) + 採購清單_dgv("金額", i).Value
+            End If
+        Next
+        採購金額_tb.Text = Format(Val(採購金額_tb.Text), "#,##0") : 採購金額1_tb.Text = Format(Val(採購金額1_tb.Text), "#,##0")
+    End Sub
+    Private Sub 倉儲狀態_cb_下拉表單資料載入()
+        SQL_倉儲狀態_下拉清單() : 倉儲狀態_cb.Items.Clear() : 儲態編號_cb.Items.Clear()
+        While (dr.Read()) : 倉儲狀態_cb.Items.Add(dr("狀態")) : 儲態編號_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 訂製狀態_cb_下拉表單資料載入()
+        SQL_訂製狀態_下拉清單() : 訂製狀態_cb.Items.Clear() : 訂製編碼_cb.Items.Clear()
+        While (dr.Read()) : 訂製狀態_cb.Items.Add(dr("訂製")) : 訂製編碼_cb.Items.Add(dr("編碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 指定倉庫_cb_下拉表單資料載入()
+        If 需要全部庫存區域清單_ch.Checked = True Then
+            SQL_倉名_下拉清單()
+        Else
+            If 料號_tb.Text = "" Then
+                SQL_倉名_下拉清單()
+            Else
+                PA20 = 料號_tb.Text : SQL_倉名_下拉清單_有條件()
+            End If
+        End If
+        指定倉庫_cb.Items.Clear()
+        While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        If 指定倉庫_cb.Items.Count = 0 Then
+            SQL_倉名_下拉清單()
+            While (dr.Read()) : 指定倉庫_cb.Items.Add(dr("倉名")) : End While : conn.Close()
+        End If
+    End Sub
+    Private Sub 一般性申請採購單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        料號_tb.Enabled = False : 小間距_ch.Checked = True '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+        指定倉庫_cb_下拉表單資料載入() : 訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+        首次開啟 = False : Set_清單() : Set_清單1() : 首次開啟 = True '--------------------資料讀取
+
+        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
+    End Sub
+    Private Sub 區域庫存_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 區域庫存_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            指定倉庫_cb.Text = 區域庫存_dgv.Rows(e.RowIndex).Cells("倉名").Value
+        End If
+    End Sub
+    Private Sub 一般性申請採購單_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If Me.Size.Width > 1600 Then
+            物料圖1_pb.Visible = True : 物料圖1_pb.Size = New Size(280, 140)
+        Else
+            物料圖1_pb.Visible = False
+        End If
+    End Sub
+    Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
+        Set_合記計算()
+
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
+
+        Dim EU(1) As String
+        EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
+        If EU(0) = "" Then : Else
+            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+        End If
+        EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+        If EU(1) = "" Then : Else
+            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+        End If
+    End Sub
+    Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 採購清單_dgv.Rows(i).Cells("已審核").Value = True Then
+                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            Else
+                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow
+            End If
+        Next
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 採購清單_dgv("供應商", e.RowIndex).Value.ToString <> 採購清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(採購清單_dgv.RowHeadersVisible, 採購清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 採購清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 採購清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        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(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 採購清單_dgv("申請人", e.RowIndex).Value.ToString
+            版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_tb.Text = 採購清單_dgv("銷售單號", e.RowIndex).Value.ToString
+            料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
+
+            Set_合記計算()
+
+            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
+
+            物料圖1_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        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.Rows(e.RowIndex).Cells("版次").Value
+
+            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            物料圖2_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_tb.Text : SQL_採購控制表_訂製圖片()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                物料圖2_pb.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            物料圖2_pb.SizeMode = 4
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 物料清單_dgv.CellClick
+        If 首次開啟 = True Then
+            If e.RowIndex = -1 Then : Else
+                料號_tb.Text = 物料清單_dgv("料號", e.RowIndex).Value.ToString : 供應商編碼_tb.Text = Strings.Left(物料清單_dgv("料號", e.RowIndex).Value.ToString, 4)
+                品名_tb.Text = 物料清單_dgv("品名", e.RowIndex).Value.ToString : 最大庫存量_tb.Text = 物料清單_dgv("最低庫存量", e.RowIndex).Value.ToString
+                庫存量_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString)
+                可申請_tb.Text = Val(物料清單_dgv("庫存", e.RowIndex).Value.ToString) - Val(物料清單_dgv("未出庫", e.RowIndex).Value.ToString)
+
+                物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
+                If dr.Read() Then
+                    If dr("是否有圖") = True Then
+                        PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                        While dr.Read() = True
+                            Dim unused As Byte() = New Byte(-1) {}
+                            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim oStream As New MemoryStream(bytes)
+                            物料圖_pb.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close()
+                        物料圖_pb.SizeMode = 4
+                    Else
+                        物料圖_pb.Image = Nothing
+                    End If
+                End If : conn.Close()
+
+                指定倉庫_cb_下拉表單資料載入() : 指定倉庫_cb.Text = 物料清單_dgv("倉名", e.RowIndex).Value.ToString : Set_清單3()
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                End If
+
+                採購單價_nud.Value = 0
+                If 物料清單_dgv("狀態", e.RowIndex).Value.ToString = "" Then
+                    訂製狀態_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入()
+                Else
+                    倉儲狀態_cb.Text = 物料清單_dgv("狀態", e.RowIndex).Value.ToString : 訂製狀態_cb.Text = 物料清單_dgv("訂製", e.RowIndex).Value.ToString
+                    If 訂製編碼_cb.Text = "MA0001" Then
+                        PA12 = 料號_tb.Text
+                        SQL_銷售明細表_成本讀取()
+                        If dr.Read() Then : 採購單價_nud.Value = dr("成本")
+                        Else : 採購單價_nud.Value = 0
+                        End If : conn.Close()
+                    Else
+                        採購單價_nud.Value = 0
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 物料清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 物料清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 物料清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 物料清單_dgv("供應商", e.RowIndex).Value.ToString <> 物料清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(物料清單_dgv.RowHeadersVisible, 物料清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 物料清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 物料清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 物料清單_dgv.Rows.Count - 1
+            If Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) = 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf Val(物料清單_dgv("庫存", i).Value) = 0 And (Val(物料清單_dgv("未入庫", i).Value) <> 0 Or Val(物料清單_dgv("未出庫", i).Value) <> 0) Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            ElseIf Val(物料清單_dgv("庫存", i).Value) + Val(物料清單_dgv("未入庫", i).Value) - Val(物料清單_dgv("未出庫", i).Value) <> 0 Then
+                物料清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            End If
+        Next
+    End Sub
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim files As String()
+            Try
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
+                檔案名稱_tb.Text = files(files.Length - 1)
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+                Return
+            End Try
+        End If
+        Dim STR2 As Integer = 0
+        檔名讀取_tb.Text = 檔案名稱_tb.Text
+        If 檔案名稱_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To 9999
+                Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
+                If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
+                    STR1 -= 1 : STR2 += 1
+                    If STR1 = 0 Then
+                        檔名讀取_tb.Text = ""
+                        檔案名稱_tb.Text = ""
+                        i = 9999
+                    Else
+                        檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
+                    End If
+                Else
+                    檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
+                    檔案名稱_tb.Text = 檔名讀取_tb.Text
+                    i = 9999
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
+        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
+        For Each file As String In files
+            檔案名稱_tb.AppendText(file + Environment.NewLine)
+        Next
+    End Sub
+    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
+        If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
+            供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+        ElseIf 地區_cb.Text = "" Then
+            查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+        ElseIf 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商_下拉表單資料載入()
+        End If
+    End Sub
+    Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged
+        If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
+        ElseIf 地區1_cb.Text = "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        ElseIf 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
+        End If
+    End Sub
+    Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
+        If 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商編碼_cb.SelectedIndex = 供應商_cb.SelectedIndex
+        End If
+    End Sub
+    Private Sub 供應商1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商編碼1_cb.SelectedIndex = 供應商1_cb.SelectedIndex
+        End If
+    End Sub
+    Private Sub 供應商編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼_cb.SelectedIndexChanged
+        If 地區_cb.Text <> "" Then
+            查詢_tb.Text = "" : 供應商_cb.SelectedIndex = 供應商編碼_cb.SelectedIndex : 供應商編碼_tb.Text = 供應商編碼_cb.Text : Set_清單()
+        End If
+    End Sub
+    Private Sub 供應商編碼1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.SelectedIndex = 供應商編碼1_cb.SelectedIndex : 供應商編碼1_tb.Text = 供應商編碼1_cb.Text : Set_清單1()
+        End If
+    End Sub
+    Private Sub 查詢_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 查詢_tb.KeyPress
+        If e.KeyChar = Chr(13) Then
+            供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+            PA = 查詢_tb.Text : Set_清單() : 地區_cb.Text = ""
+        End If
+    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
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+            關鍵字 = True : PA = 查詢1_tb.Text : Set_清單() : 地區1_cb.Text = ""
+        End If
+    End Sub
+    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
+        查詢_tb.Text = "" : 地區_cb.Text = ""
+    End Sub
+    Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
+        業務1_cb.Text = "" : 查詢1_tb.Text = "" : 地區1_cb.Text = ""
+    End Sub
+    Private Sub 指定倉庫_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 指定倉庫_cb.SelectedIndexChanged
+        PA6 = 指定倉庫_cb.Text : SQL_指定倉儲_資料讀取()
+        If dr.Read() Then : 倉庫級別_tb.Text = dr("倉級") : 倉庫編號_tb.Text = dr("倉名編號") : End If : conn.Close()
+    End Sub
+    Private Sub 倉儲狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 倉儲狀態_cb.SelectedIndexChanged
+        儲態編號_cb.SelectedIndex = 倉儲狀態_cb.SelectedIndex
+    End Sub
+    Private Sub 儲態編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 儲態編號_cb.SelectedIndexChanged
+        倉儲狀態_cb.SelectedIndex = 儲態編號_cb.SelectedIndex
+    End Sub
+    Private Sub 訂製狀態_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製狀態_cb.SelectedIndexChanged
+        訂製編碼_cb.SelectedIndex = 訂製狀態_cb.SelectedIndex
+        If 訂製編碼_cb.Text = "MA0001" Then
+            PA12 = 料號_tb.Text
+            SQL_銷售明細表_成本讀取()
+            If dr.Read() Then : 採購單價_nud.Value = dr("成本")
+            Else : 採購單價_nud.Value = 0
+            End If : conn.Close()
+        Else
+            採購單價_nud.Value = 0
+        End If
+    End Sub
+    Private Sub 訂製編碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 訂製編碼_cb.SelectedIndexChanged
+        訂製狀態_cb.SelectedIndex = 訂製編碼_cb.SelectedIndex
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+    End Sub
+    Private Sub 選定內容加入庫存調整申請單_bt_Click(sender As Object, e As EventArgs) Handles 選定內容加入庫存調整申請單_bt.Click
+        If 料號_tb.Text = "" Then
+            MsgBox("請選擇物料，調整庫存需要指定物料!!")
+        Else
+            If 儲態編號_cb.Text = "" Then
+                MsgBox("倉儲狀態是一定要選擇的!!")
+            Else
+                If 指定倉庫_cb.Text = "" Then
+                    MsgBox("指定倉庫是一定要選擇的!!")
+                Else
+                    If 訂製狀態_cb.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 = "PU" & "00000000" & EDR
+                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PU" & "0000000" & EDR
+                        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PU" & "000000" & EDR
+                        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PU" & "00000" & EDR
+                        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PU" & "0000" & EDR
+                        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PU" & "000" & EDR
+                        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PU" & "00" & EDR
+                        ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "PU" & "0" & EDR
+                        ElseIf EDR > 99999999 Then : ESTR = "PU" & EDR : End If
+
+                        PA1 = ESTR : PA2 = "" : PA3 = 供應商編碼_tb.Text : PA4 = 料號_tb.Text : PA5 = 儲態編號_cb.Text : PA6 = 訂製編碼_cb.Text : PA7 = 倉庫編號_tb.Text : PA8 = ""
+                        NU1 = 採購數量_nud.Value : NU2 = 採購單價_nud.Value : NU3 = NU1 * NU2 : PA9 = gUserName : PA10 = Format(Today(), "yyyy/MM/dd") : PA11 = "" : PA12 = ""
+                        BL1 = False
+                        SQL_採購控制表_新增() : Set_清單1()
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
+        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 存檔1()
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
+            If gUserName <> 採購清單_dgv("申請人", i).Value And Val(登入人級別) >= 3 Then
+            Else
+                PA = 採購清單_dgv("資料流水號", i).Value : PA1 = 採購清單_dgv("物料狀態", i).Value : PA2 = 採購清單_dgv("訂製狀態", i).Value : PA3 = 採購清單_dgv("倉儲狀態", i).Value
+                PA4 = 採購清單_dgv("備註", i).Value.ToString : PA5 = 採購清單_dgv("採購日期", i).Value.ToString : PA6 = 採購清單_dgv("預計進廠日", i).Value.ToString
+                NU1 = 採購清單_dgv("數量", i).Value : NU2 = 採購清單_dgv("成本", i).Value : NU3 = NU1 * NU2
+                SQL_採購控制表_存檔()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔1() : MsgBox("修改完成。")
+    End Sub
+    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If gUserName <> 申請人_tb.Text And Val(登入人級別) >= 3 Then
+            MsgBox("不能修改其他申請人的資料")
+        Else
+            PA = 項次_tb.Text : SQL_採購控制表_刪除()
+        End If
+        Set_清單1() : MsgBox("已刪除選中的資料")
+    End Sub
+    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+    End Sub
+    Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
+        If 項次_tb.Text = "" Then : MsgBox("請先選擇要指定訂製圖檔的採購資料!!")
+        Else
+            If 檔案名稱_tb.Text <> "" Then
+                Dim 驗證 As String : Dim 取變數 As String
+                取變數 = Strings.StrReverse(檔案名稱_tb.Text)
+                For i As Integer = 1 To 10
+                    If i = 1 Then
+                        驗證 = Strings.Left(取變數, i)
+                    Else
+                        If Strings.Mid(取變數, i, 1) = "." Then
+                            驗證 = Strings.StrReverse(驗證) : Exit For
+                        Else
+                            驗證 = 驗證 & Strings.Mid(取變數, i, 1)
+                        End If
+                    End If
+                Next
+
+                If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
+                    Dim 進版 As Integer
+                    If 版次_tb.Text = "" Then
+                        版次_tb.Text = "V01"
+                    Else
+                        進版 = Strings.Right(版次_tb.Text, 2) : 進版 += 1
+                        If 進版 < 10 Then : 版次_tb.Text = "V" & "0" & 進版
+                        Else : 版次_tb.Text = "V" & EDR : End If
+                    End If
+
+                    PA1 = 項次_tb.Text : PA2 = 單號1_tb.Text : PA3 = 版次_tb.Text : PA4 = 檔案名稱_tb.Text
+                    SQL_採購控制表_圖片新增() : SQL_採購控制表_修改() : conn.Close()
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    物料圖2_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_tb.Text : SQL_採購控制表_訂製圖片()
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖2_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖2_pb.SizeMode = 4
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    存檔1() : Set_清單5() : Set_清單1() : 檔案名稱_tb.Text = ""
+                Else
+                    MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    檔案名稱_tb.Text = ""
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
+        If 物料圖1_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。")
+        Else
+            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
+            SaveFileDialog1.FileName = 單號1_tb.Text & "-" & 料號_tb.Text & "-" & 版次_tb.Text & ".jpg"
+            Dim result As DialogResult = SaveFileDialog1.ShowDialog()
+            下載檔名_tb.Text = SaveFileDialog1.FileName
+            If result = System.Windows.Forms.DialogResult.Cancel Then
+                Exit Sub
+            End If
+
+            PA15 = 項次_tb.Text : PA16 = 版次_tb.Text
+            ds3.Clear() : SQL_採購控制表_訂製圖片下載() : da.Fill(ds3)
+            If ds3.Tables(0).Rows.Count > 0 Then
+                Dim imgData() As Byte
+                imgData = ds3.Tables(0).Rows(0).Item("圖片")
+                Dim fs As FileStream
+                fs = File.Create(下載檔名_tb.Text, imgData.Length - 1)
+                fs.Write(imgData, 0, imgData.Length - 1)
+                fs.Close()
+            End If : conn.Close() : MsgBox("下載完成")
+        End If
+    End Sub
+    Private Sub 大圖預覽_bt_Click(sender As Object, e As EventArgs) Handles 大圖預覽_bt.Click
+        If 項次_tb.Text = "" Or 版次_tb.Text = "" Then
+            MsgBox("沒有訂製圖或是沒有決哲訂製圖")
+        Else
+            採購訂製大圖.ShowDialog()
+        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)
+        區域庫存_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+End Class

YD-ERP-SYS/採購系統管理/一般申請_採購單.vb

@@ -444,22 +444,30 @@ Public Class 一般申請_採購單
         Set_清單1()
     End Sub
     Private Sub 地區_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區_cb.SelectedIndexChanged
-        If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
-            供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
-        ElseIf 地區_cb.Text = "" Then
-            查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
-        ElseIf 地區_cb.Text <> "" Then
-            查詢_tb.Text = "" : 供應商_下拉表單資料載入()
-        End If
+        Try
+            If 地區_cb.Text = "" And 查詢_tb.Text = "" Then
+                供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear() : Set_清單()
+            ElseIf 地區_cb.Text = "" Then
+                查詢_tb.Text = "" : 供應商_cb.Items.Clear() : 供應商編碼_cb.Items.Clear()
+            ElseIf 地區_cb.Text <> "" Then
+                查詢_tb.Text = "" : 供應商_下拉表單資料載入()
+            End If
+        Catch ex As Exception
+            MsgBox("麻煩截圖，回傳給工程師。描述操作流程")
+        End Try
     End Sub
     Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged
-        If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
-            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
-        ElseIf 地區1_cb.Text = "" Then
-            查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
-        ElseIf 地區1_cb.Text <> "" Then
-            查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
-        End If
+        Try
+            If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
+                供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
+            ElseIf 地區1_cb.Text = "" Then
+                查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+            ElseIf 地區1_cb.Text <> "" Then
+                查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
+            End If
+        Catch ex As Exception
+            MsgBox("麻煩截圖，回傳給工程師。描述操作流程")
+        End Try
     End Sub
     Private Sub 供應商_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商_cb.SelectedIndexChanged
         If 地區_cb.Text <> "" Then

YD-ERP-SYS/採購系統管理/依銷售申請採購單.Designer.vb

@@ -0,0 +1,938 @@
+<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 DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(依銷售申請採購單))
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
+        Me.業務_cb = New System.Windows.Forms.ComboBox()
+        Me.採購金額_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.小間距_ch = New System.Windows.Forms.CheckBox()
+        Me.清空1_bt = New System.Windows.Forms.Button()
+        Me.供應商編碼1_tb = New System.Windows.Forms.TextBox()
+        Me.查詢1_tb = New System.Windows.Forms.TextBox()
+        Me.地區1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.供應商1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.供應商編碼1_cb = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.刪除單據上點選的資料_bt = New System.Windows.Forms.Button()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.資料筆數1_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.項次_tb = New System.Windows.Forms.TextBox()
+        Me.選擇_lb = New System.Windows.Forms.Label()
+        Me.採購清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.銷售單顯示_ch = New System.Windows.Forms.CheckBox()
+        Me.銷售明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.單號_tb = New System.Windows.Forms.TextBox()
+        Me.窄間距1_ch = New System.Windows.Forms.CheckBox()
+        Me.轉採購_bt = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.業務1_cb = New System.Windows.Forms.ComboBox()
+        Me.日期2_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.大間距_ch = New System.Windows.Forms.CheckBox()
+        Me.中間距_ch = New System.Windows.Forms.CheckBox()
+        Me.檔名讀取_tb = New System.Windows.Forms.TextBox()
+        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
+        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
+        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.下載圖檔_bt = New System.Windows.Forms.Button()
+        Me.圖檔入系統_bt = New System.Windows.Forms.Button()
+        Me.訂製圖檔_dgv = New System.Windows.Forms.DataGridView()
+        Me.版次_tb = New System.Windows.Forms.TextBox()
+        Me.大圖預覽_bt = New System.Windows.Forms.Button()
+        Me.單號1_tb = New System.Windows.Forms.TextBox()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.料號_tb = New System.Windows.Forms.TextBox()
+        Me.下載檔名_tb = New System.Windows.Forms.TextBox()
+        Me.物料圖1_pb = New System.Windows.Forms.PictureBox()
+        Me.採購金額1_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.供應商_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.採購日期_tb = New System.Windows.Forms.TextBox()
+        Me.交貨日期_tb = New System.Windows.Forms.TextBox()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.訂製圖檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '銷售單據_dgv
+        '
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        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(5, 123)
+        Me.銷售單據_dgv.Name = "銷售單據_dgv"
+        Me.銷售單據_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.銷售單據_dgv.RowTemplate.Height = 24
+        Me.銷售單據_dgv.Size = New System.Drawing.Size(81, 552)
+        Me.銷售單據_dgv.TabIndex = 1159
+        '
+        '業務_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(5, 21)
+        Me.業務_cb.Name = "業務_cb"
+        Me.業務_cb.Size = New System.Drawing.Size(81, 24)
+        Me.業務_cb.TabIndex = 1256
+        '
+        '採購金額_tb
+        '
+        Me.採購金額_tb.ForeColor = System.Drawing.Color.Blue
+        Me.採購金額_tb.Location = New System.Drawing.Point(362, 62)
+        Me.採購金額_tb.Name = "採購金額_tb"
+        Me.採購金額_tb.Size = New System.Drawing.Size(130, 23)
+        Me.採購金額_tb.TabIndex = 1305
+        Me.採購金額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Blue
+        Me.Label16.Location = New System.Drawing.Point(306, 65)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(56, 16)
+        Me.Label16.TabIndex = 1304
+        Me.Label16.Text = "採購金額"
+        '
+        '小間距_ch
+        '
+        Me.小間距_ch.AutoSize = True
+        Me.小間距_ch.Location = New System.Drawing.Point(92, 64)
+        Me.小間距_ch.Name = "小間距_ch"
+        Me.小間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.小間距_ch.TabIndex = 1303
+        Me.小間距_ch.Text = "小間距"
+        Me.小間距_ch.UseVisualStyleBackColor = True
+        '
+        '清空1_bt
+        '
+        Me.清空1_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.清空1_bt.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.清空1_bt.Location = New System.Drawing.Point(445, 2)
+        Me.清空1_bt.Name = "清空1_bt"
+        Me.清空1_bt.Size = New System.Drawing.Size(90, 52)
+        Me.清空1_bt.TabIndex = 1301
+        Me.清空1_bt.Text = "清除查詢條件"
+        Me.清空1_bt.UseVisualStyleBackColor = True
+        '
+        '供應商編碼1_tb
+        '
+        Me.供應商編碼1_tb.Location = New System.Drawing.Point(827, 239)
+        Me.供應商編碼1_tb.Name = "供應商編碼1_tb"
+        Me.供應商編碼1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.供應商編碼1_tb.TabIndex = 1300
+        Me.供應商編碼1_tb.Visible = False
+        '
+        '查詢1_tb
+        '
+        Me.查詢1_tb.Location = New System.Drawing.Point(263, 3)
+        Me.查詢1_tb.Name = "查詢1_tb"
+        Me.查詢1_tb.Size = New System.Drawing.Size(134, 23)
+        Me.查詢1_tb.TabIndex = 1298
+        '
+        '地區1_cb
+        '
+        Me.地區1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.地區1_cb.FormattingEnabled = True
+        Me.地區1_cb.Items.AddRange(New Object() {"", "北部", "南部", "材料", "調貨"})
+        Me.地區1_cb.Location = New System.Drawing.Point(144, 2)
+        Me.地區1_cb.Name = "地區1_cb"
+        Me.地區1_cb.Size = New System.Drawing.Size(76, 24)
+        Me.地區1_cb.TabIndex = 1297
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.Red
+        Me.Label14.Location = New System.Drawing.Point(89, 7)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 1296
+        Me.Label14.Text = "地區"
+        '
+        '供應商1_cb
+        '
+        Me.供應商1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.供應商1_cb.FormattingEnabled = True
+        Me.供應商1_cb.Location = New System.Drawing.Point(263, 29)
+        Me.供應商1_cb.Name = "供應商1_cb"
+        Me.供應商1_cb.Size = New System.Drawing.Size(134, 24)
+        Me.供應商1_cb.TabIndex = 1295
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(222, 33)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(44, 16)
+        Me.Label13.TabIndex = 1294
+        Me.Label13.Text = "供應商"
+        '
+        '供應商編碼1_cb
+        '
+        Me.供應商編碼1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.供應商編碼1_cb.FormattingEnabled = True
+        Me.供應商編碼1_cb.Location = New System.Drawing.Point(144, 29)
+        Me.供應商編碼1_cb.Name = "供應商編碼1_cb"
+        Me.供應商編碼1_cb.Size = New System.Drawing.Size(76, 24)
+        Me.供應商編碼1_cb.TabIndex = 1293
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Red
+        Me.Label1.Location = New System.Drawing.Point(89, 33)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1292
+        Me.Label1.Text = "廠商編碼"
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔_bt.Location = New System.Drawing.Point(557, 2)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(90, 52)
+        Me.存檔_bt.TabIndex = 1285
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '刪除單據上點選的資料_bt
+        '
+        Me.刪除單據上點選的資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除單據上點選的資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除單據上點選的資料_bt.Location = New System.Drawing.Point(857, 3)
+        Me.刪除單據上點選的資料_bt.Name = "刪除單據上點選的資料_bt"
+        Me.刪除單據上點選的資料_bt.Size = New System.Drawing.Size(102, 50)
+        Me.刪除單據上點選的資料_bt.TabIndex = 1286
+        Me.刪除單據上點選的資料_bt.Text = "刪除採購單據上點選的資料"
+        Me.刪除單據上點選的資料_bt.UseVisualStyleBackColor = True
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label9.Location = New System.Drawing.Point(1075, 65)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(44, 16)
+        Me.Label9.TabIndex = 1289
+        Me.Label9.Text = "筆資料"
+        '
+        '資料筆數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.Location = New System.Drawing.Point(1033, 62)
+        Me.資料筆數1_tb.Name = "資料筆數1_tb"
+        Me.資料筆數1_tb.Size = New System.Drawing.Size(39, 23)
+        Me.資料筆數1_tb.TabIndex = 1288
+        Me.資料筆數1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label10.Location = New System.Drawing.Point(1011, 65)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(20, 16)
+        Me.Label10.TabIndex = 1287
+        Me.Label10.Text = "共"
+        '
+        '項次_tb
+        '
+        Me.項次_tb.Enabled = False
+        Me.項次_tb.Location = New System.Drawing.Point(721, 3)
+        Me.項次_tb.Name = "項次_tb"
+        Me.項次_tb.Size = New System.Drawing.Size(130, 23)
+        Me.項次_tb.TabIndex = 1284
+        '
+        '選擇_lb
+        '
+        Me.選擇_lb.AutoSize = True
+        Me.選擇_lb.Location = New System.Drawing.Point(653, 6)
+        Me.選擇_lb.Name = "選擇_lb"
+        Me.選擇_lb.Size = New System.Drawing.Size(68, 16)
+        Me.選擇_lb.TabIndex = 1283
+        Me.選擇_lb.Text = "資料流水號"
+        '
+        '採購清單_dgv
+        '
+        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
+        Me.採購清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.採購清單_dgv.Location = New System.Drawing.Point(89, 90)
+        Me.採購清單_dgv.Name = "採購清單_dgv"
+        Me.採購清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.採購清單_dgv.RowTemplate.Height = 24
+        Me.採購清單_dgv.Size = New System.Drawing.Size(1030, 585)
+        Me.採購清單_dgv.TabIndex = 1235
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.Label15.Location = New System.Drawing.Point(222, 6)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(44, 16)
+        Me.Label15.TabIndex = 1299
+        Me.Label15.Text = "關鍵字"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(87, 49)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(1513, 16)
+        Me.Label17.TabIndex = 1302
+        Me.Label17.Text = resources.GetString("Label17.Text")
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(2, 3)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 16)
+        Me.Label2.TabIndex = 1306
+        Me.Label2.Text = "未轉換銷售單"
+        '
+        '銷售單顯示_ch
+        '
+        Me.銷售單顯示_ch.AutoSize = True
+        Me.銷售單顯示_ch.Location = New System.Drawing.Point(5, 68)
+        Me.銷售單顯示_ch.Name = "銷售單顯示_ch"
+        Me.銷售單顯示_ch.Size = New System.Drawing.Size(87, 20)
+        Me.銷售單顯示_ch.TabIndex = 1307
+        Me.銷售單顯示_ch.Text = "銷售單顯示"
+        Me.銷售單顯示_ch.UseVisualStyleBackColor = True
+        '
+        '銷售明細_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        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
+        Me.銷售明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷售明細_dgv.Location = New System.Drawing.Point(88, 2)
+        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(1031, 673)
+        Me.銷售明細_dgv.TabIndex = 1308
+        '
+        '單號_tb
+        '
+        Me.單號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.單號_tb.Enabled = False
+        Me.單號_tb.Location = New System.Drawing.Point(987, 123)
+        Me.單號_tb.Name = "單號_tb"
+        Me.單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.單號_tb.TabIndex = 1309
+        Me.單號_tb.Visible = False
+        '
+        '窄間距1_ch
+        '
+        Me.窄間距1_ch.AutoSize = True
+        Me.窄間距1_ch.Location = New System.Drawing.Point(5, 48)
+        Me.窄間距1_ch.Name = "窄間距1_ch"
+        Me.窄間距1_ch.Size = New System.Drawing.Size(63, 20)
+        Me.窄間距1_ch.TabIndex = 1310
+        Me.窄間距1_ch.Text = "窄間距"
+        Me.窄間距1_ch.UseVisualStyleBackColor = True
+        '
+        '轉採購_bt
+        '
+        Me.轉採購_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.轉採購_bt.ForeColor = System.Drawing.Color.Green
+        Me.轉採購_bt.Location = New System.Drawing.Point(5, 90)
+        Me.轉採購_bt.Name = "轉採購_bt"
+        Me.轉採購_bt.Size = New System.Drawing.Size(81, 31)
+        Me.轉採購_bt.TabIndex = 1311
+        Me.轉採購_bt.Text = "轉採購"
+        Me.轉採購_bt.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(403, 7)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.TabIndex = 1313
+        Me.Label3.Text = "業務"
+        '
+        '業務1_cb
+        '
+        Me.業務1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.業務1_cb.FormattingEnabled = True
+        Me.業務1_cb.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5", "6", "7", "8", "9", "B", "Y"})
+        Me.業務1_cb.Location = New System.Drawing.Point(400, 29)
+        Me.業務1_cb.Name = "業務1_cb"
+        Me.業務1_cb.Size = New System.Drawing.Size(42, 24)
+        Me.業務1_cb.TabIndex = 1312
+        '
+        '日期2_dtp
+        '
+        Me.日期2_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期2_dtp.Enabled = False
+        Me.日期2_dtp.Location = New System.Drawing.Point(987, 181)
+        Me.日期2_dtp.Name = "日期2_dtp"
+        Me.日期2_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.日期2_dtp.TabIndex = 1315
+        Me.日期2_dtp.Visible = False
+        '
+        '日期1_dtp
+        '
+        Me.日期1_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期1_dtp.Enabled = False
+        Me.日期1_dtp.Location = New System.Drawing.Point(987, 152)
+        Me.日期1_dtp.Name = "日期1_dtp"
+        Me.日期1_dtp.Size = New System.Drawing.Size(122, 23)
+        Me.日期1_dtp.TabIndex = 1314
+        Me.日期1_dtp.Visible = False
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Enabled = False
+        Me.申請人_tb.Location = New System.Drawing.Point(721, 29)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(130, 23)
+        Me.申請人_tb.TabIndex = 1323
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(671, 32)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.TabIndex = 1322
+        Me.Label19.Text = "申請人"
+        '
+        '大間距_ch
+        '
+        Me.大間距_ch.AutoSize = True
+        Me.大間距_ch.Location = New System.Drawing.Point(230, 64)
+        Me.大間距_ch.Name = "大間距_ch"
+        Me.大間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.大間距_ch.TabIndex = 1328
+        Me.大間距_ch.Text = "大間距"
+        Me.大間距_ch.UseVisualStyleBackColor = True
+        '
+        '中間距_ch
+        '
+        Me.中間距_ch.AutoSize = True
+        Me.中間距_ch.Location = New System.Drawing.Point(161, 64)
+        Me.中間距_ch.Name = "中間距_ch"
+        Me.中間距_ch.Size = New System.Drawing.Size(63, 20)
+        Me.中間距_ch.TabIndex = 1327
+        Me.中間距_ch.Text = "中間距"
+        Me.中間距_ch.UseVisualStyleBackColor = True
+        '
+        '檔名讀取_tb
+        '
+        Me.檔名讀取_tb.AllowDrop = True
+        Me.檔名讀取_tb.ForeColor = System.Drawing.Color.Black
+        Me.檔名讀取_tb.Location = New System.Drawing.Point(827, 210)
+        Me.檔名讀取_tb.Multiline = True
+        Me.檔名讀取_tb.Name = "檔名讀取_tb"
+        Me.檔名讀取_tb.Size = New System.Drawing.Size(122, 23)
+        Me.檔名讀取_tb.TabIndex = 1337
+        Me.檔名讀取_tb.Visible = False
+        '
+        '檔案名稱_tb
+        '
+        Me.檔案名稱_tb.AllowDrop = True
+        Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(1267, 480)
+        Me.檔案名稱_tb.Name = "檔案名稱_tb"
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
+        Me.檔案名稱_tb.TabIndex = 1335
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label12.Location = New System.Drawing.Point(1215, 506)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(108, 17)
+        Me.Label12.TabIndex = 1333
+        Me.Label12.Text = "伺服器FTP文件夾"
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label4.Location = New System.Drawing.Point(1217, 298)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.TabIndex = 1332
+        Me.Label4.Text = "我的電腦"
+        '
+        '讀取資料夾路徑_bt
+        '
+        Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1122, 269)
+        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
+        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(89, 24)
+        Me.讀取資料夾路徑_bt.TabIndex = 1331
+        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
+        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
+        '
+        '本機資料夾_wb
+        '
+        Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(1216, 354)
+        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.本機資料夾_wb.Name = "本機資料夾_wb"
+        Me.本機資料夾_wb.Size = New System.Drawing.Size(287, 122)
+        Me.本機資料夾_wb.TabIndex = 1330
+        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        'FTP資料夾_wb
+        '
+        Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1216, 523)
+        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
+        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
+        Me.FTP資料夾_wb.Size = New System.Drawing.Size(282, 152)
+        Me.FTP資料夾_wb.TabIndex = 1329
+        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.Red
+        Me.Label11.Location = New System.Drawing.Point(1224, 319)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(244, 32)
+        Me.Label11.TabIndex = 1334
+        Me.Label11.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "檔案名稱不要帶有中文字或是符號"
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(1213, 483)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1336
+        Me.Label5.Text = "檔案名稱"
+        '
+        '下載圖檔_bt
+        '
+        Me.下載圖檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.下載圖檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下載圖檔_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下載圖檔_bt.Location = New System.Drawing.Point(1386, 269)
+        Me.下載圖檔_bt.Name = "下載圖檔_bt"
+        Me.下載圖檔_bt.Size = New System.Drawing.Size(94, 24)
+        Me.下載圖檔_bt.TabIndex = 1339
+        Me.下載圖檔_bt.Text = "下載圖片"
+        Me.下載圖檔_bt.UseVisualStyleBackColor = True
+        '
+        '圖檔入系統_bt
+        '
+        Me.圖檔入系統_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.圖檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.圖檔入系統_bt.ForeColor = System.Drawing.Color.Green
+        Me.圖檔入系統_bt.Location = New System.Drawing.Point(1212, 269)
+        Me.圖檔入系統_bt.Name = "圖檔入系統_bt"
+        Me.圖檔入系統_bt.Size = New System.Drawing.Size(173, 24)
+        Me.圖檔入系統_bt.TabIndex = 1338
+        Me.圖檔入系統_bt.Text = "圖檔入系統 或 圖片修改存檔"
+        Me.圖檔入系統_bt.UseVisualStyleBackColor = True
+        '
+        '訂製圖檔_dgv
+        '
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.訂製圖檔_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.訂製圖檔_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            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(1121, 321)
+        Me.訂製圖檔_dgv.Name = "訂製圖檔_dgv"
+        Me.訂製圖檔_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂製圖檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.訂製圖檔_dgv.RowTemplate.Height = 24
+        Me.訂製圖檔_dgv.Size = New System.Drawing.Size(90, 354)
+        Me.訂製圖檔_dgv.TabIndex = 1340
+        '
+        '版次_tb
+        '
+        Me.版次_tb.Location = New System.Drawing.Point(827, 268)
+        Me.版次_tb.Name = "版次_tb"
+        Me.版次_tb.Size = New System.Drawing.Size(122, 23)
+        Me.版次_tb.TabIndex = 1341
+        Me.版次_tb.Visible = False
+        '
+        '大圖預覽_bt
+        '
+        Me.大圖預覽_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.大圖預覽_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.大圖預覽_bt.ForeColor = System.Drawing.Color.Blue
+        Me.大圖預覽_bt.Location = New System.Drawing.Point(1122, 295)
+        Me.大圖預覽_bt.Name = "大圖預覽_bt"
+        Me.大圖預覽_bt.Size = New System.Drawing.Size(89, 24)
+        Me.大圖預覽_bt.TabIndex = 1342
+        Me.大圖預覽_bt.Text = "大圖預覽"
+        Me.大圖預覽_bt.UseVisualStyleBackColor = True
+        '
+        '單號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.Enabled = False
+        Me.單號1_tb.Location = New System.Drawing.Point(987, 296)
+        Me.單號1_tb.Name = "單號1_tb"
+        Me.單號1_tb.Size = New System.Drawing.Size(122, 23)
+        Me.單號1_tb.TabIndex = 1343
+        Me.單號1_tb.Visible = False
+        '
+        'SaveFileDialog1
+        '
+        Me.SaveFileDialog1.DefaultExt = "jpg"
+        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
+        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
+        '
+        '料號_tb
+        '
+        Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.料號_tb.Enabled = False
+        Me.料號_tb.Location = New System.Drawing.Point(987, 325)
+        Me.料號_tb.Name = "料號_tb"
+        Me.料號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.料號_tb.TabIndex = 1344
+        Me.料號_tb.Visible = False
+        '
+        '下載檔名_tb
+        '
+        Me.下載檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(827, 354)
+        Me.下載檔名_tb.Name = "下載檔名_tb"
+        Me.下載檔名_tb.Size = New System.Drawing.Size(122, 23)
+        Me.下載檔名_tb.TabIndex = 1345
+        Me.下載檔名_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.下載檔名_tb.Visible = False
+        '
+        '物料圖1_pb
+        '
+        Me.物料圖1_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.物料圖1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.物料圖1_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料圖1_pb.Location = New System.Drawing.Point(1125, 4)
+        Me.物料圖1_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料圖1_pb.Name = "物料圖1_pb"
+        Me.物料圖1_pb.Size = New System.Drawing.Size(373, 262)
+        Me.物料圖1_pb.TabIndex = 1290
+        Me.物料圖1_pb.TabStop = False
+        '
+        '採購金額1_tb
+        '
+        Me.採購金額1_tb.ForeColor = System.Drawing.Color.Green
+        Me.採購金額1_tb.Location = New System.Drawing.Point(703, 62)
+        Me.採購金額1_tb.Name = "採購金額1_tb"
+        Me.採購金額1_tb.Size = New System.Drawing.Size(117, 23)
+        Me.採購金額1_tb.TabIndex = 1458
+        Me.採購金額1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(636, 65)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1457
+        Me.Label6.Text = "採購金額"
+        '
+        '供應商_tb
+        '
+        Me.供應商_tb.ForeColor = System.Drawing.Color.Green
+        Me.供應商_tb.Location = New System.Drawing.Point(542, 62)
+        Me.供應商_tb.Name = "供應商_tb"
+        Me.供應商_tb.Size = New System.Drawing.Size(88, 23)
+        Me.供應商_tb.TabIndex = 1456
+        Me.供應商_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.ForeColor = System.Drawing.Color.Green
+        Me.Label7.Location = New System.Drawing.Point(498, 65)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(44, 16)
+        Me.Label7.TabIndex = 1455
+        Me.Label7.Text = "供應商"
+        '
+        '採購日期_tb
+        '
+        Me.採購日期_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(827, 383)
+        Me.採購日期_tb.Name = "採購日期_tb"
+        Me.採購日期_tb.Size = New System.Drawing.Size(122, 23)
+        Me.採購日期_tb.TabIndex = 1459
+        Me.採購日期_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.採購日期_tb.Visible = False
+        '
+        '交貨日期_tb
+        '
+        Me.交貨日期_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(827, 412)
+        Me.交貨日期_tb.Name = "交貨日期_tb"
+        Me.交貨日期_tb.Size = New System.Drawing.Size(122, 23)
+        Me.交貨日期_tb.TabIndex = 1460
+        Me.交貨日期_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.交貨日期_tb.Visible = False
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.DarkRed
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(979, 32)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.TabIndex = 1462
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Location = New System.Drawing.Point(1050, 31)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {14, 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(65, 23)
+        Me.字體_NUD.TabIndex = 1461
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '依銷售申請採購單
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1504, 681)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.交貨日期_tb)
+        Me.Controls.Add(Me.採購日期_tb)
+        Me.Controls.Add(Me.採購金額1_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.供應商_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.下載檔名_tb)
+        Me.Controls.Add(Me.料號_tb)
+        Me.Controls.Add(Me.單號1_tb)
+        Me.Controls.Add(Me.大圖預覽_bt)
+        Me.Controls.Add(Me.版次_tb)
+        Me.Controls.Add(Me.訂製圖檔_dgv)
+        Me.Controls.Add(Me.下載圖檔_bt)
+        Me.Controls.Add(Me.圖檔入系統_bt)
+        Me.Controls.Add(Me.檔名讀取_tb)
+        Me.Controls.Add(Me.檔案名稱_tb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.讀取資料夾路徑_bt)
+        Me.Controls.Add(Me.本機資料夾_wb)
+        Me.Controls.Add(Me.FTP資料夾_wb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.大間距_ch)
+        Me.Controls.Add(Me.中間距_ch)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.日期2_dtp)
+        Me.Controls.Add(Me.日期1_dtp)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.業務1_cb)
+        Me.Controls.Add(Me.轉採購_bt)
+        Me.Controls.Add(Me.窄間距1_ch)
+        Me.Controls.Add(Me.單號_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.採購金額_tb)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.小間距_ch)
+        Me.Controls.Add(Me.物料圖1_pb)
+        Me.Controls.Add(Me.清空1_bt)
+        Me.Controls.Add(Me.供應商編碼1_tb)
+        Me.Controls.Add(Me.查詢1_tb)
+        Me.Controls.Add(Me.地區1_cb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.供應商1_cb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.供應商編碼1_cb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.存檔_bt)
+        Me.Controls.Add(Me.刪除單據上點選的資料_bt)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.資料筆數1_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.項次_tb)
+        Me.Controls.Add(Me.選擇_lb)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.業務_cb)
+        Me.Controls.Add(Me.銷售單據_dgv)
+        Me.Controls.Add(Me.銷售單顯示_ch)
+        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 = "依銷售申請採購單"
+        Me.Text = "依銷售申請採購單"
+        CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.採購清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.訂製圖檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.物料圖1_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents 銷售單據_dgv As DataGridView
+    Friend WithEvents 業務_cb As ComboBox
+    Friend WithEvents 採購金額_tb As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 小間距_ch As CheckBox
+    Friend WithEvents 物料圖1_pb As PictureBox
+    Friend WithEvents 清空1_bt As Button
+    Friend WithEvents 供應商編碼1_tb As TextBox
+    Friend WithEvents 查詢1_tb As TextBox
+    Friend WithEvents 地區1_cb As ComboBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 供應商1_cb As ComboBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 供應商編碼1_cb As ComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents 刪除單據上點選的資料_bt As Button
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 資料筆數1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 項次_tb As TextBox
+    Friend WithEvents 選擇_lb As Label
+    Friend WithEvents 採購清單_dgv As DataGridView
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 銷售單顯示_ch As CheckBox
+    Friend WithEvents 銷售明細_dgv As DataGridView
+    Friend WithEvents 單號_tb As TextBox
+    Friend WithEvents 窄間距1_ch As CheckBox
+    Friend WithEvents 轉採購_bt As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 業務1_cb As ComboBox
+    Friend WithEvents 日期2_dtp As DateTimePicker
+    Friend WithEvents 日期1_dtp As DateTimePicker
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 大間距_ch As CheckBox
+    Friend WithEvents 中間距_ch As CheckBox
+    Friend WithEvents 檔名讀取_tb As TextBox
+    Friend WithEvents 檔案名稱_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 讀取資料夾路徑_bt As Button
+    Friend WithEvents 本機資料夾_wb As WebBrowser
+    Friend WithEvents FTP資料夾_wb As WebBrowser
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents 下載圖檔_bt As Button
+    Friend WithEvents 圖檔入系統_bt As Button
+    Friend WithEvents 訂製圖檔_dgv As DataGridView
+    Friend WithEvents 版次_tb As TextBox
+    Friend WithEvents 大圖預覽_bt As Button
+    Friend WithEvents 單號1_tb As TextBox
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+    Friend WithEvents 料號_tb As TextBox
+    Friend WithEvents 下載檔名_tb As TextBox
+    Friend WithEvents 採購金額1_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 供應商_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 採購日期_tb As TextBox
+    Friend WithEvents 交貨日期_tb As TextBox
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+End Class

YD-ERP-SYS/採購系統管理/依銷售申請採購單.resx

@@ -0,0 +1,132 @@
+<?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>
+  <data name="Label17.Text" xml:space="preserve">
+    <value>-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------</value>
+  </data>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>18, 8</value>
+  </metadata>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>182, 10</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>36</value>
+  </metadata>
+</root>

YD-ERP-SYS/採購系統管理/依銷售申請採購單.vb

@@ -0,0 +1,556 @@
+Option Strict Off
+Public Class 依銷售申請採購單
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    Dim EDR As Integer = 0 : Dim ESTR As String : Dim 關鍵字 As Boolean
+    Private Sub Set_清單()
+        銷售單據_dgv.DataSource = Nothing : ds.Clear()
+        銷售單據_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售單據_dgv.ColumnHeadersHeight = 25
+        銷售單據_dgv.AllowUserToAddRows = False
+        銷售單據_dgv.RowTemplate.Height = 25
+
+
+
+        PA19 = 業務_cb.Text
+        SQL_銷售控制表_轉採購()
+        da.Fill(ds) : 銷售單據_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        銷售單據_dgv.Columns(0).Visible = False : 銷售單據_dgv.Columns(1).FillWeight = 100 : 銷售單據_dgv.Columns(2).Visible = False : 銷售單據_dgv.Columns(3).Visible = False
+        銷售單據_dgv.Columns(4).Visible = False : 銷售單據_dgv.Columns(5).Visible = False : 銷售單據_dgv.Columns(6).Visible = False : 銷售單據_dgv.Columns(7).Visible = False
+        銷售單據_dgv.Columns(8).Visible = False : 銷售單據_dgv.Columns(9).Visible = False : 銷售單據_dgv.Columns(10).Visible = False
+    End Sub
+    Private Sub Set_清單1()
+        採購清單_dgv.DataSource = Nothing : ds1.Clear()
+        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
+            採購清單_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 25
+        End If
+
+        If 關鍵字 = True Then : Else : PA = 供應商編碼1_cb.Text : End If
+        PA20 = 業務1_cb.Text
+        SQL_採購控制表_未出庫()
+        da.Fill(ds1) : 採購清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Set_採購清單_dgv_下拉式清單1() : Set_採購清單_dgv_下拉式清單2() : Set_採購清單_dgv_下拉式清單3()
+
+        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).Visible = False
+        採購清單_dgv.Columns(8).FillWeight = 100 : 採購清單_dgv.Columns(9).Visible = False : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 160
+        採購清單_dgv.Columns(12).Visible = False : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 95 : 採購清單_dgv.Columns(15).FillWeight = 145
+        採購清單_dgv.Columns(16).FillWeight = 45 : 採購清單_dgv.Columns(17).FillWeight = 45 : 採購清單_dgv.Columns(18).FillWeight = 80 : 採購清單_dgv.Columns(19).FillWeight = 80
+        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 80 : 採購清單_dgv.Columns(22).FillWeight = 80 : 採購清單_dgv.Columns(23).FillWeight = 80
+        採購清單_dgv.Columns(24).Visible = False : 採購清單_dgv.Columns(25).Visible = False : 採購清單_dgv.Columns(26).FillWeight = 45
+
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_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
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
+        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True
+
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter : 資料筆數1_tb.Text = 採購清單_dgv.Rows.Count
+        關鍵字 = False
+        Set_合記計算()
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單1()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "倉名"
+        }
+        SQL_倉名_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("倉名")) : End While : conn.Close()
+        Col.HeaderText = "倉名" : Col.Name = "倉名"
+        採購清單_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單2()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "訂製"
+        }
+        SQL_訂製狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("訂製")) : End While : conn.Close()
+        Col.HeaderText = "訂製" : Col.Name = "訂製"
+        採購清單_dgv.Columns.Insert(11, Col)
+    End Sub
+    Private Sub Set_採購清單_dgv_下拉式清單3()
+        Dim Col As New DataGridViewComboBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "狀態"
+        }
+        SQL_倉儲狀態_下拉清單()
+        Col.Items.Clear()
+        While (dr.Read()) : Col.Items.Add(dr("狀態")) : End While : conn.Close()
+        Col.HeaderText = "狀態" : Col.Name = "狀態"
+        採購清單_dgv.Columns.Insert(14, Col)
+    End Sub
+    Private Sub Set_合記計算()
+        採購金額_tb.Text = "0" : 採購金額1_tb.Text = "0"
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("金額", i).Value = 採購清單_dgv("數量", i).Value * 採購清單_dgv("成本", i).Value
+            採購金額_tb.Text = Val(採購金額_tb.Text) + 採購清單_dgv("金額", i).Value
+
+            If 供應商_tb.Text = 採購清單_dgv("供應商", i).Value.ToString Then
+                採購金額1_tb.Text = Val(採購金額1_tb.Text) + 採購清單_dgv("金額", i).Value
+            End If
+        Next
+        採購金額_tb.Text = Format(Val(採購金額_tb.Text), "#,##0") : 採購金額1_tb.Text = Format(Val(採購金額1_tb.Text), "#,##0")
+    End Sub
+    Private Sub Set_清單4()
+        If 銷售明細_dgv.Columns.Count.ToString > 18 Then
+            銷售明細_dgv.Columns.Remove("選擇")
+        End If
+
+        銷售明細_dgv.DataSource = Nothing : ds4.Clear()
+        銷售明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷售明細_dgv.ColumnHeadersHeight = 40
+        銷售明細_dgv.AllowUserToAddRows = False
+        If 窄間距1_ch.Checked = False Then
+            銷售明細_dgv.RowTemplate.Height = 95
+        Else
+            銷售明細_dgv.RowTemplate.Height = 25
+        End If
+
+        PA2 = "" : PA2 = 單號_tb.Text
+        SQL_銷售明細表_轉採購()
+        da.Fill(ds4) : 銷售明細_dgv.DataSource = ds4.Tables(0) : conn.Close()
+        Set_銷售明細_dgv_下拉式清單()
+
+        銷售明細_dgv.Columns(0).Visible = False : 銷售明細_dgv.Columns(1).FillWeight = 40 : 銷售明細_dgv.Columns(2).FillWeight = 110 : 銷售明細_dgv.Columns(3).FillWeight = 200
+        銷售明細_dgv.Columns(4).FillWeight = 120 : 銷售明細_dgv.Columns(5).FillWeight = 120 : 銷售明細_dgv.Columns(6).FillWeight = 120 : 銷售明細_dgv.Columns(7).FillWeight = 190
+        銷售明細_dgv.Columns(8).FillWeight = 80 : 銷售明細_dgv.Columns(9).FillWeight = 80 : 銷售明細_dgv.Columns(10).Visible = False : 銷售明細_dgv.Columns(11).Visible = False
+        銷售明細_dgv.Columns(12).FillWeight = 80 : 銷售明細_dgv.Columns(13).FillWeight = 80 : 銷售明細_dgv.Columns(14).Visible = False : 銷售明細_dgv.Columns(15).Visible = False
+        銷售明細_dgv.Columns(16).Visible = False : 銷售明細_dgv.Columns(17).Visible = False : 銷售明細_dgv.Columns(18).FillWeight = 50
+
+        銷售明細_dgv.Columns(1).ReadOnly = True : 銷售明細_dgv.Columns(2).ReadOnly = True : 銷售明細_dgv.Columns(3).ReadOnly = True : 銷售明細_dgv.Columns(4).ReadOnly = True
+        銷售明細_dgv.Columns(5).ReadOnly = True : 銷售明細_dgv.Columns(6).ReadOnly = True : 銷售明細_dgv.Columns(8).ReadOnly = True : 銷售明細_dgv.Columns(12).ReadOnly = True
+        銷售明細_dgv.Columns(13).ReadOnly = True
+
+        銷售明細_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 銷售明細_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        銷售明細_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0.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
+        銷售明細_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
+        銷售明細_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
+        銷售明細_dgv.Columns("料號").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        銷售明細_dgv.Columns("料號").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            銷售明細_dgv("金額", i).Value = 銷售明細_dgv("數量", i).Value * 銷售明細_dgv("成本", i).Value : 銷售明細_dgv("項次", i).Value = i + 1
+
+            If 銷售明細_dgv("倉名", i).Value.ToString = "工廠品" Then
+                銷售明細_dgv("選擇", i).Value = True
+            Else
+                銷售明細_dgv("選擇", i).Value = False
+            End If
+
+            If 銷售明細_dgv("選擇", i).Value = True Then
+                銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            Else
+                銷售明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            End If
+        Next
+        銷售明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+    End Sub
+    Private Sub Set_銷售明細_dgv_下拉式清單()
+        Dim Col As New DataGridViewCheckBoxColumn With {
+            .FillWeight = 130,
+            .DataPropertyName = "選擇"
+        }
+        Col.HeaderText = "選擇" : Col.Name = "選擇"
+        銷售明細_dgv.Columns.Insert(18, Col)
+    End Sub
+    Private Sub Set_清單5()
+        訂製圖檔_dgv.DataSource = Nothing : ds2.Clear()
+        訂製圖檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂製圖檔_dgv.ColumnHeadersHeight = 25
+        訂製圖檔_dgv.AllowUserToAddRows = False
+        訂製圖檔_dgv.RowTemplate.Height = 25
+
+        SQL_採購控制表_訂製圖檔清單()
+        da.Fill(ds2) : 訂製圖檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        訂製圖檔_dgv.Columns(0).Visible = False : 訂製圖檔_dgv.Columns(1).Visible = False : 訂製圖檔_dgv.Columns(2).FillWeight = 100
+    End Sub
+    Private Sub 供應商1_下拉表單資料載入()
+        BL1 = False : PA3 = "" : PA4 = ""
+        If 地區1_cb.Text = "" Then : PA3 = ""
+        ElseIf 地區1_cb.Text = "北部" Then : PA3 = "2"
+        ElseIf 地區1_cb.Text = "南部" Then : PA3 = "3"
+        ElseIf 地區1_cb.Text = "材料" Then : PA3 = "9"
+        ElseIf 地區1_cb.Text = "調貨" Then : PA3 = "Y"
+        End If
+        SQL_盤盈盤損申請_供應商_下拉清單() : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        While (dr.Read()) : 供應商1_cb.Items.Add(dr("簡稱")) : 供應商編碼1_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 依銷售申請採購單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        小間距_ch.Checked = True : 銷售明細_dgv.Visible = False : 銷售明細_dgv.BringToFront()
+        業務_cb.Text = 業務號碼 : 業務1_cb.Text = 業務號碼 '--------------------控件隱藏、操作許可設定與其他基本顯示設定
+
+        Set_清單() : Set_清單1()
+        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
+    End Sub
+    Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            If 採購清單_dgv.Rows(i).Cells("已審核").Value = True Then
+                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+            Else
+                採購清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow
+            End If
+        Next
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 採購清單_dgv("供應商", e.RowIndex).Value.ToString <> 採購清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(採購清單_dgv.RowHeadersVisible, 採購清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 採購清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 採購清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
+        Set_合記計算()
+
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
+
+        Dim EU(1) As String
+        EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
+        If EU(0) = "" Then : Else
+            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Format(日期1_dtp.Value, "yyyy/MM/dd")
+        End If
+        EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+        If EU(1) = "" Then : Else
+            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Format(日期2_dtp.Value, "yyyy/MM/dd")
+        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(0, e.RowIndex).Value.ToString : 申請人_tb.Text = 採購清單_dgv("申請人", e.RowIndex).Value.ToString
+            版次_tb.Text = 採購清單_dgv("訂製圖號", e.RowIndex).Value.ToString : 單號1_tb.Text = 採購清單_dgv("銷售單號", e.RowIndex).Value.ToString
+            料號_tb.Text = 採購清單_dgv("料號", e.RowIndex).Value.ToString : 供應商_tb.Text = 採購清單_dgv("供應商", e.RowIndex).Value.ToString
+
+            Set_合記計算()
+
+            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString : Set_清單5()
+
+            物料圖1_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        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.Rows(e.RowIndex).Cells("版次").Value
+
+            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+            物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_tb.Text : SQL_採購控制表_訂製圖片()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                物料圖1_pb.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            物料圖1_pb.SizeMode = 4
+        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.Rows(e.RowIndex).Cells("單號").Value
+            採購日期_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("審核日期").Value.ToString
+            交貨日期_tb.Text = 銷售單據_dgv.Rows(e.RowIndex).Cells("交貨日期").Value.ToString
+            業務_cb.Text = Strings.Left(銷售單據_dgv.Rows(e.RowIndex).Cells("單號").Value, 1)
+            Set_清單4()
+            銷售單顯示_ch.Checked = True
+        End If
+    End Sub
+    Private Sub 地區1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 地區1_cb.SelectedIndexChanged
+        If 地區1_cb.Text = "" And 查詢1_tb.Text = "" Then
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear() : Set_清單1()
+        ElseIf 地區1_cb.Text = "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+        ElseIf 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_下拉表單資料載入()
+        End If
+    End Sub
+    Private Sub 供應商1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商編碼1_cb.SelectedIndex = 供應商1_cb.SelectedIndex
+        End If
+    End Sub
+    Private Sub 供應商編碼1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 供應商編碼1_cb.SelectedIndexChanged
+        If 地區1_cb.Text <> "" Then
+            查詢1_tb.Text = "" : 供應商1_cb.SelectedIndex = 供應商編碼1_cb.SelectedIndex : 供應商編碼1_tb.Text = 供應商編碼1_cb.Text : Set_清單1()
+        End If
+    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
+            供應商1_cb.Items.Clear() : 供應商編碼1_cb.Items.Clear()
+            關鍵字 = True : PA = 查詢1_tb.Text : Set_清單1() : 地區1_cb.Text = ""
+        End If
+    End Sub
+    Private Sub 清空1_bt_Click(sender As Object, e As EventArgs) Handles 清空1_bt.Click
+        業務1_cb.Text = "" : 查詢1_tb.Text = "" : 地區1_cb.Text = ""
+    End Sub
+    Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
+        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
+        存檔1() : Set_清單1()
+    End Sub
+    Private Sub 銷售單顯示_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 銷售單顯示_ch.CheckedChanged
+        If 銷售單顯示_ch.Checked = True Then : 銷售明細_dgv.Visible = True
+        Else : 銷售明細_dgv.Visible = False : End If
+    End Sub
+    Private Sub 業務1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務1_cb.SelectedIndexChanged
+        Set_清單1()
+    End Sub
+    Private Sub 業務_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 業務_cb.SelectedIndexChanged
+        Set_清單()
+    End Sub
+    Private Sub 窄間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 窄間距1_ch.CheckedChanged
+        If 窄間距1_ch.Checked = False Then : 銷售明細_dgv.RowTemplate.Height = 95
+        Else : 銷售明細_dgv.RowTemplate.Height = 25 : End If : Set_清單4()
+    End Sub
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim files As String()
+            Try
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
+                檔案名稱_tb.Text = files(files.Length - 1)
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+                Return
+            End Try
+        End If
+        Dim STR2 As Integer = 0
+        檔名讀取_tb.Text = 檔案名稱_tb.Text
+        If 檔案名稱_tb.Text = "" Then
+        Else
+            For i As Integer = 0 To 9999
+                Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
+                If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
+                    STR1 -= 1 : STR2 += 1
+                    If STR1 = 0 Then
+                        檔名讀取_tb.Text = ""
+                        檔案名稱_tb.Text = ""
+                        i = 9999
+                    Else
+                        檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
+                    End If
+                Else
+                    檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
+                    檔案名稱_tb.Text = 檔名讀取_tb.Text
+                    i = 9999
+                End If
+            Next
+        End If
+    End Sub
+    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
+        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
+        For Each file As String In files
+            檔案名稱_tb.AppendText(file + Environment.NewLine)
+        Next
+    End Sub
+    Private Sub 轉採購_bt_Click(sender As Object, e As EventArgs) Handles 轉採購_bt.Click
+        PA = 單號_tb.Text : SQL_銷售控制表_轉採購修改()
+        For i As Integer = 0 To 銷售明細_dgv.Rows.Count - 1
+            If 銷售明細_dgv("選擇", i).Value = True Then
+                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 = "PU" & "00000000" & EDR
+                ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PU" & "0000000" & EDR
+                ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PU" & "000000" & EDR
+                ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PU" & "00000" & EDR
+                ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PU" & "0000" & EDR
+                ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PU" & "000" & EDR
+                ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PU" & "00" & EDR
+                ElseIf EDR > 9999999 And EDR < 10000000 Then : ESTR = "PU" & "0" & EDR
+                ElseIf EDR > 99999999 Then : ESTR = "PU" & EDR : End If
+
+                PA1 = ESTR : PA2 = 單號_tb.Text : PA3 = Strings.Left(銷售明細_dgv.Rows(i).Cells("料號").Value, 4) : PA4 = 銷售明細_dgv.Rows(i).Cells("料號").Value
+                PA5 = 銷售明細_dgv.Rows(i).Cells("物料狀態").Value : PA6 = 銷售明細_dgv.Rows(i).Cells("訂製狀態").Value : PA7 = 銷售明細_dgv.Rows(i).Cells("倉儲狀態").Value
+                PA8 = 銷售明細_dgv.Rows(i).Cells("備註").Value : NU1 = 銷售明細_dgv.Rows(i).Cells("數量").Value : NU2 = 銷售明細_dgv.Rows(i).Cells("成本").Value
+                NU3 = NU1 * NU2 : PA9 = gUserName : PA10 = Format(Today(), "yyyy/MM/dd") : PA11 = 採購日期_tb.Text : PA12 = 交貨日期_tb.Text : BL1 = True
+                PA13 = 銷售明細_dgv.Rows(i).Cells("資料流水號").Value
+                SQL_採購控制表_新增()
+            End If
+        Next
+        銷售單顯示_ch.Checked = False : Set_清單() : Set_清單1() : MsgBox("轉採購單成功")
+    End Sub
+    Private Sub 刪除單據上點選的資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除單據上點選的資料_bt.Click
+        If gUserName <> 申請人_tb.Text And Val(登入人級別) >= 3 Then
+            MsgBox("不能修改其他申請人的資料")
+        Else
+            PA = 項次_tb.Text : SQL_採購控制表_刪除()
+        End If
+        Set_清單1() : MsgBox("已刪除選中的資料")
+    End Sub
+    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
+    End Sub
+    Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
+        If 項次_tb.Text = "" Then : MsgBox("請先選擇要指定訂製圖檔的採購資料!!")
+        Else
+            If 檔案名稱_tb.Text <> "" Then
+                Dim 驗證 As String : Dim 取變數 As String
+                取變數 = Strings.StrReverse(檔案名稱_tb.Text)
+                For i As Integer = 1 To 10
+                    If i = 1 Then
+                        驗證 = Strings.Left(取變數, i)
+                    Else
+                        If Strings.Mid(取變數, i, 1) = "." Then
+                            驗證 = Strings.StrReverse(驗證) : Exit For
+                        Else
+                            驗證 = 驗證 & Strings.Mid(取變數, i, 1)
+                        End If
+                    End If
+                Next
+
+                If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
+                    Dim 進版 As Integer
+                    If 版次_tb.Text = "" Then
+                        版次_tb.Text = "V01"
+                    Else
+                        進版 = Strings.Right(版次_tb.Text, 2) : 進版 += 1
+                        If 進版 < 10 Then : 版次_tb.Text = "V" & "0" & 進版
+                        Else : 版次_tb.Text = "V" & EDR : End If
+                    End If
+
+                    PA1 = 項次_tb.Text : PA2 = 單號1_tb.Text : PA3 = 版次_tb.Text : PA4 = 檔案名稱_tb.Text
+                    SQL_採購控制表_圖片新增() : SQL_採購控制表_修改() : conn.Close()
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    物料圖1_pb.Image = Nothing : PA15 = 項次_tb.Text : PA16 = 版次_tb.Text : SQL_採購控制表_訂製圖片()
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                    '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    存檔1() : Set_清單5() : Set_清單1() : 檔案名稱_tb.Text = ""
+                Else
+                    MsgBox("上傳文件並非常用圖片格式，文件已自動刪除，請專換成常用圖片檔案再行操作。")
+                    '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+                    Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
+                    frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
+                    fcr = New NetworkCredential(FTP帳號, FTP密碼)
+                    frq.Credentials = fcr
+                    frq.Method = WebRequestMethods.Ftp.DeleteFile
+                    frq.UseBinary = True
+                    frp = CType(frq.GetResponse, FtpWebResponse)
+                    frp.Close()
+                    FTP資料夾_wb.Refresh()
+                    檔案名稱_tb.Text = ""
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click
+        If 物料圖1_pb.Image Is Nothing Then : MsgBox("所選擇的資料沒有圖片檔案，無法下載。")
+        Else
+            With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With
+            SaveFileDialog1.FileName = 單號1_tb.Text & "-" & 料號_tb.Text & "-" & 版次_tb.Text & ".jpg"
+            Dim result As DialogResult = SaveFileDialog1.ShowDialog()
+            下載檔名_tb.Text = SaveFileDialog1.FileName
+            If result = System.Windows.Forms.DialogResult.Cancel Then
+                Exit Sub
+            End If
+
+            PA15 = 項次_tb.Text : PA16 = 版次_tb.Text
+            ds3.Clear() : SQL_採購控制表_訂製圖片下載() : da.Fill(ds3)
+            If ds3.Tables(0).Rows.Count > 0 Then
+                Dim imgData() As Byte
+                imgData = ds3.Tables(0).Rows(0).Item("圖片")
+                Dim fs As FileStream
+                fs = File.Create(下載檔名_tb.Text, imgData.Length - 1)
+                fs.Write(imgData, 0, imgData.Length - 1)
+                fs.Close()
+            End If : conn.Close() : MsgBox("下載完成")
+        End If
+    End Sub
+    Private Sub 大圖預覽_bt_Click(sender As Object, e As EventArgs) Handles 大圖預覽_bt.Click
+        If 項次_tb.Text = "" Or 版次_tb.Text = "" Then
+            MsgBox("沒有訂製圖或是沒有決哲訂製圖")
+        Else
+            採購訂製大圖.ShowDialog()
+        End If
+    End Sub
+    Private Sub 存檔1()
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            資料數 = 採購清單_dgv.Rows.Count : MyModule1.進度條()
+            If gUserName <> 採購清單_dgv("申請人", i).Value And Val(登入人級別) >= 3 Then
+            Else
+                PA = 採購清單_dgv("資料流水號", i).Value : PA1 = 採購清單_dgv("物料狀態", i).Value : PA2 = 採購清單_dgv("訂製狀態", i).Value : PA3 = 採購清單_dgv("倉儲狀態", i).Value
+                PA4 = 採購清單_dgv("備註", i).Value.ToString : PA5 = 採購清單_dgv("採購日期", i).Value.ToString : PA6 = 採購清單_dgv("預計進廠日", i).Value.ToString
+                NU1 = 採購清單_dgv("數量", i).Value : NU2 = 採購清單_dgv("成本", i).Value : NU3 = NU1 * NU2
+                SQL_採購控制表_存檔()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        存檔1() : MsgBox("修改完成。")
+    End Sub
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        銷售明細_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        銷售單據_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        訂製圖檔_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+End Class

YD-ERP-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>

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

@@ -0,0 +1,955 @@
+Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports System.Data.SqlClient
+Public Class 採購應負帳款
+    ReadOnly ds, ds1, da2 As New DataSet
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim N2 As Integer : Dim 新流水1 As String : Dim 新項次 As String : Dim 新支付單號 As String
+    Dim N1 As Integer : Dim NUM1 As Integer : Dim 匯率1 As Double : Dim 狀態 As String
+    Dim 首次 As Boolean
+    Private Sub Set_清單1()
+        供應商_dgv.DataSource = Nothing : ds1.Clear()
+        供應商_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        供應商_dgv.ColumnHeadersHeight = 40
+        供應商_dgv.AllowUserToAddRows = False
+        供應商_dgv.RowTemplate.Height = 30
+
+        合計_dgv.RowTemplate.Height = 30
+
+        SQL_採購對帳單_總表()
+        da.Fill(ds1) : 供應商_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        供應商_dgv.Columns(0).FillWeight = 50 : 供應商_dgv.Columns(1).FillWeight = 120 : 供應商_dgv.Columns(2).FillWeight = 70 : 供應商_dgv.Columns(3).Visible = False
+        供應商_dgv.Columns(4).FillWeight = 50 : 供應商_dgv.Columns(5).FillWeight = 80 : 供應商_dgv.Columns(6).Visible = False : 供應商_dgv.Columns(7).FillWeight = 50
+        供應商_dgv.Columns(8).FillWeight = 80 : 供應商_dgv.Columns(9).FillWeight = 80 : 供應商_dgv.Columns(10).FillWeight = 80 : 供應商_dgv.Columns(11).Visible = False
+        供應商_dgv.Columns(12).FillWeight = 80 : 供應商_dgv.Columns(13).FillWeight = 50 : 供應商_dgv.Columns(14).FillWeight = 50 : 供應商_dgv.Columns(15).FillWeight = 100
+        供應商_dgv.Columns(16).FillWeight = 100 : 供應商_dgv.Columns(17).FillWeight = 150 : 供應商_dgv.Columns(18).FillWeight = 70
+
+        供應商_dgv.Columns(0).ReadOnly = True : 供應商_dgv.Columns(1).ReadOnly = True : 供應商_dgv.Columns(2).ReadOnly = True : 供應商_dgv.Columns(5).ReadOnly = True
+        供應商_dgv.Columns(8).ReadOnly = True : 供應商_dgv.Columns(10).ReadOnly = True : 供應商_dgv.Columns(14).ReadOnly = True : 供應商_dgv.Columns(15).ReadOnly = True
+        供應商_dgv.Columns(16).ReadOnly = True
+
+        資料筆數1_tb.Text = 供應商_dgv.Rows.Count : 供應商_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        供應商_dgv.Columns(4).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(7).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(9).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(12).DefaultCellStyle.BackColor = Color.MistyRose
+        供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
+
+        稅金_tb.Text = "0" : 廣告費_tb.Text = "0" : 其他扣款_tb.Text = "0" : 實付金額_tb.Text = "0" : 公司實付_tb.Text = "0" : 個人實付_tb.Text = "0"
+
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            稅金_tb.Text = Val(稅金_tb.Text) + 供應商_dgv("稅金", i).Value
+            廣告費_tb.Text = Val(廣告費_tb.Text) + 供應商_dgv("廣告", i).Value
+            其他扣款_tb.Text = Val(其他扣款_tb.Text) + 供應商_dgv("其他扣款", i).Value
+            實付金額_tb.Text = Val(實付金額_tb.Text) + 供應商_dgv("實付金額", i).Value
+            公司實付_tb.Text = Val(公司實付_tb.Text) + 供應商_dgv("公司", i).Value
+            個人實付_tb.Text = Val(個人實付_tb.Text) + 供應商_dgv("個人", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                If 供應商_dgv("票期1", i).Value < 10 Then
+                    PA16 = "0" & 供應商_dgv("票期1", i).Value.ToString
+                Else
+                    PA16 = 供應商_dgv("票期1", i).Value.ToString
+                End If
+                供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & PA16
+            End If
+        Next
+
+        供應商_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("公司%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("公司%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("個人%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("個人%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("實付金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("實付金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("其他扣款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("其他扣款").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("廣告").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("廣告%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("廣告%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("稅金").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Format = "#,##0.00"
+        供應商_dgv.Columns("稅金%").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("稅金%").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Format = "#,##0"
+        供應商_dgv.Columns("當月貨款").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        供應商_dgv.Columns("當月貨款").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_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
+        供應商_dgv.Columns("票期").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        供應商_dgv.Columns("票期").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        If 首次 = True Then : Else : Set_清單3() : End If
+    End Sub
+    Private Sub Set_清單2()
+        採購清單_dgv.DataSource = Nothing : ds.Clear()
+        採購清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        採購清單_dgv.ColumnHeadersHeight = 40
+        採購清單_dgv.AllowUserToAddRows = False
+
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
+            採購清單_dgv.RowTemplate.Height = 95
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 60
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
+            採購清單_dgv.RowTemplate.Height = 25
+        End If
+
+        SQL_採購對帳單_明細()
+        da.Fill(ds) : 採購清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        採購清單_dgv.Columns(0).Visible = False : 採購清單_dgv.Columns(1).FillWeight = 80 : 採購清單_dgv.Columns(2).Visible = False : 採購清單_dgv.Columns(3).FillWeight = 80
+        採購清單_dgv.Columns(4).FillWeight = 80 : 採購清單_dgv.Columns(5).FillWeight = 200 : 採購清單_dgv.Columns(6).Visible = False : 採購清單_dgv.Columns(7).FillWeight = 100
+        採購清單_dgv.Columns(8).Visible = False : 採購清單_dgv.Columns(9).FillWeight = 160 : 採購清單_dgv.Columns(10).Visible = False : 採購清單_dgv.Columns(11).FillWeight = 95
+        採購清單_dgv.Columns(12).FillWeight = 145 : 採購清單_dgv.Columns(13).Visible = False : 採購清單_dgv.Columns(14).FillWeight = 45 : 採購清單_dgv.Columns(15).FillWeight = 95
+        採購清單_dgv.Columns(16).FillWeight = 80 : 採購清單_dgv.Columns(17).Visible = False : 採購清單_dgv.Columns(18).FillWeight = 70 : 採購清單_dgv.Columns(19).FillWeight = 70
+        採購清單_dgv.Columns(20).FillWeight = 70 : 採購清單_dgv.Columns(21).FillWeight = 70 : 採購清單_dgv.Columns(22).FillWeight = 70 : 採購清單_dgv.Columns(23).FillWeight = 45
+        採購清單_dgv.Columns(24).FillWeight = 45
+
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_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
+        採購清單_dgv.Columns("金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        採購清單_dgv.Columns("金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        採購清單_dgv.Columns(1).ReadOnly = True : 採購清單_dgv.Columns(3).ReadOnly = True : 採購清單_dgv.Columns(4).ReadOnly = True : 採購清單_dgv.Columns(5).ReadOnly = True
+        採購清單_dgv.Columns(7).ReadOnly = True : 採購清單_dgv.Columns(9).ReadOnly = True : 採購清單_dgv.Columns(11).ReadOnly = True : 採購清單_dgv.Columns(12).ReadOnly = True
+        採購清單_dgv.Columns(13).ReadOnly = True : 採購清單_dgv.Columns(14).ReadOnly = True : 採購清單_dgv.Columns(15).ReadOnly = True : 採購清單_dgv.Columns(16).ReadOnly = True
+        採購清單_dgv.Columns(17).ReadOnly = True : 採購清單_dgv.Columns(18).ReadOnly = True : 採購清單_dgv.Columns(19).ReadOnly = True : 採購清單_dgv.Columns(20).ReadOnly = True
+        採購清單_dgv.Columns(21).ReadOnly = True : 採購清單_dgv.Columns(22).ReadOnly = True : 採購清單_dgv.Columns(23).ReadOnly = True
+
+        採購清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        資料筆數_tb.Text = 採購清單_dgv.Rows.Count
+        Set_合記計算()
+    End Sub
+    Private Sub Set_清單3()
+        合計_dgv.DataSource = Nothing : da2.Clear()
+        合計_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計_dgv.ColumnHeadersHeight = 25
+        合計_dgv.AllowUserToAddRows = False
+
+        SQL_採購對帳單_合計()
+        da.Fill(da2) : 合計_dgv.DataSource = da2.Tables(0) : conn.Close()
+
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            合計_dgv("個人", i).Value = "0" : 合計_dgv("公司", i).Value = "0"
+        Next
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            For ii As Integer = 0 To 供應商_dgv.Rows.Count - 1
+                If 供應商_dgv("票期", ii).Value.ToString = 合計_dgv("票期", i).Value.ToString Then
+                    合計_dgv("公司", i).Value = Val(合計_dgv("公司", i).Value.ToString) + Val(供應商_dgv("公司", ii).Value)
+                    合計_dgv("個人", i).Value = Val(合計_dgv("個人", i).Value.ToString) + Val(供應商_dgv("個人", ii).Value)
+                End If
+            Next
+        Next
+        合計_dgv.Columns("公司").DefaultCellStyle.Format = "#,##0"
+        合計_dgv.Columns("公司").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計_dgv.Columns("公司").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        合計_dgv.Columns("個人").DefaultCellStyle.Format = "#,##0"
+        合計_dgv.Columns("個人").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計_dgv.Columns("個人").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub Set_合記計算()
+        當月貨款_tb.Text = "0" : 採購金額1_tb.Text = "0"
+        For i As Integer = 0 To 採購清單_dgv.Rows.Count - 1
+            採購清單_dgv("金額", i).Value = 採購清單_dgv("數量", i).Value * 採購清單_dgv("成本", i).Value
+            當月貨款_tb.Text = Val(當月貨款_tb.Text) + 採購清單_dgv("金額", i).Value
+            If 供應商_tb.Text = 採購清單_dgv("供應商", i).Value.ToString Then
+                採購金額1_tb.Text = Val(採購金額1_tb.Text) + 採購清單_dgv("金額", i).Value
+            End If
+        Next
+        當月貨款_tb.Text = Strings.Format(Val(當月貨款_tb.Text), "#,##0")
+        採購金額1_tb.Text = Strings.Format(Val(採購金額1_tb.Text), "#,##0") : 稅金_tb.Text = Strings.Format(Val(稅金_tb.Text), "#,##0")
+        廣告費_tb.Text = Strings.Format(Val(廣告費_tb.Text), "#,##0") : 其他扣款_tb.Text = Strings.Format(Val(其他扣款_tb.Text), "#,##0") : 實付金額_tb.Text = Strings.Format(Val(實付金額_tb.Text), "#,##0")
+        公司實付_tb.Text = Strings.Format(Val(公司實付_tb.Text), "#,##0") : 個人實付_tb.Text = Strings.Format(Val(個人實付_tb.Text), "#,##0")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    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 採購對帳單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        小間距_ch.Checked = True : 供應商_dgv.Visible = False : 供應商_dgv.Visible = True : 應負帳款退回_bt.Visible = False
+        提示_lb.Text = "目前呈現表單為應付帳款，若要退回採購明細資料請點選下方採購明細"
+        首次 = True : 日期格式() : 首次 = False : Set_清單3()
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
+        ComboBox6.Visible = False
+        ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
+        ComboBox5.SelectedIndex = 0 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 5 : ComboBox2.SelectedIndex = 0 : ComboBox4.SelectedIndex = 1
+    End Sub
+    Private Sub 供應商_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 供應商_dgv.CellEndEdit
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            If 供應商_dgv("稅金%", i).Value.ToString = "" Then : 供應商_dgv("稅金%", i).Value = 供應商_dgv("稅金1", i).Value.ToString : End If
+            供應商_dgv("稅金", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("稅金%", i).Value
+            If 供應商_dgv("廣告%", i).Value.ToString = "" Then : 供應商_dgv("廣告%", i).Value = 供應商_dgv("廣告1", i).Value.ToString : End If
+            供應商_dgv("廣告", i).Value = 供應商_dgv("當月貨款", i).Value / 100 * 供應商_dgv("廣告%", i).Value
+            If 供應商_dgv("其他扣款", i).Value.ToString = "" Then : 供應商_dgv("其他扣款", i).Value = "0" : End If
+            供應商_dgv("實付金額", i).Value = 供應商_dgv("當月貨款", i).Value - 供應商_dgv("稅金", i).Value - 供應商_dgv("廣告", i).Value - 供應商_dgv("其他扣款", i).Value
+            If 供應商_dgv("公司%", i).Value.ToString = "" Then : 供應商_dgv("公司%", i).Value = "0" : End If
+            If 供應商_dgv("個人%", i).Value.ToString = "" Then : 供應商_dgv("個人%", i).Value = "0" : End If
+            供應商_dgv("個人%", i).Value = 100 - 供應商_dgv("公司%", i).Value
+            供應商_dgv("公司", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("公司%", i).Value
+            供應商_dgv("個人", i).Value = 供應商_dgv("實付金額", i).Value / 100 * 供應商_dgv("個人%", i).Value
+
+            If 供應商_dgv("票期", i).Value.ToString = "" Then
+                If Strings.Mid(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 6, 2) = "12" Then
+                    If 供應商_dgv("票期1", i).Value.ToString = "30" Then
+                        供應商_dgv("票期1", i).Value = "28"
+                    End If
+                End If
+                DTP1.Value = 結束日期_dtp.Value : DTP1.Value = DTP1.Value.AddMonths(2)
+                供應商_dgv("票期", i).Value = Strings.Left(Strings.Format(DTP1.Value, "yyyy/MM/dd"), 7) & "/" & 供應商_dgv("票期1", i).Value.ToString
+            End If
+        Next
+
+        Dim EU As String
+        EU = 供應商_dgv("票期", e.RowIndex).Value.ToString
+        If EU = "" Then : Else
+            If IsDate(EU) Then
+                DTP2.Text = EU : 供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = Strings.Format(DTP2.Value, "yyyy/MM/dd")
+            Else
+                供應商_dgv.Rows(e.RowIndex).Cells("票期").Value = ""
+            End If
+        End If
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            合計_dgv("個人", i).Value = "0" : 合計_dgv("公司", i).Value = "0"
+        Next
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            For ii As Integer = 0 To 供應商_dgv.Rows.Count - 1
+                If 供應商_dgv("票期", ii).Value.ToString = 合計_dgv("票期", i).Value.ToString Then
+                    合計_dgv("公司", i).Value = Val(合計_dgv("公司", i).Value.ToString) + Val(供應商_dgv("公司", ii).Value)
+                    合計_dgv("個人", i).Value = Val(合計_dgv("個人", i).Value.ToString) + Val(供應商_dgv("個人", ii).Value)
+                End If
+            Next
+        Next
+    End Sub
+    Private Sub 採購清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 採購清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 採購清單_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 採購清單_dgv("供應商", e.RowIndex).Value.ToString <> 採購清單_dgv("供應商", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(採購清單_dgv.RowHeadersVisible, 採購清單_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 採購清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 採購清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 採購清單_dgv_CellEndEdit(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購清單_dgv.CellEndEdit
+        PA20 = 採購清單_dgv(8, e.RowIndex).Value : SQL_銷售明細_改倉名()
+        If dr.Read() Then : 採購清單_dgv("倉儲狀態", e.RowIndex).Value = dr("倉名編號") : End If
+        PA19 = 採購清單_dgv(11, e.RowIndex).Value : SQL_銷售明細_改物料訂製狀態()
+        If dr.Read() Then : 採購清單_dgv("訂製狀態", e.RowIndex).Value = dr("編碼") : End If
+        PA18 = 採購清單_dgv(14, e.RowIndex).Value : SQL_銷售明細_倉儲狀態()
+        If dr.Read() Then : 採購清單_dgv("物料狀態", e.RowIndex).Value = dr("編碼") : End If : conn.Close()
+
+        Dim EU(1) As String
+        EU(0) = 採購清單_dgv("採購日期", e.RowIndex).Value.ToString
+        If EU(0) = "" Then : Else
+            日期1_dtp.Text = EU(0) : 採購清單_dgv.Rows(e.RowIndex).Cells("採購日期").Value = Strings.Format(日期1_dtp.Value, "yyyy/MM/dd")
+        End If
+        EU(1) = 採購清單_dgv("預計進廠日", e.RowIndex).Value.ToString
+        If EU(1) = "" Then : Else
+            日期2_dtp.Text = EU(1) : 採購清單_dgv.Rows(e.RowIndex).Cells("預計進廠日").Value = Strings.Format(日期2_dtp.Value, "yyyy/MM/dd")
+        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
+            資料流水號_tb.Text = 採購清單_dgv.Rows(e.RowIndex).Cells("資料流水號").Value.ToString
+            PA15 = 採購清單_dgv(0, e.RowIndex).Value.ToString
+            採購金額1_tb.Text = 採購清單_dgv.Rows(e.RowIndex).Cells("金額").Value
+            採購金額1_tb.Text = Strings.Format(Val(採購金額1_tb.Text), "#,##0")
+            物料圖1_pb.Image = Nothing : PA1 = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料檔案_是否有圖()
+            If dr.Read() Then
+                If dr("是否有圖") = True Then
+                    PA = 採購清單_dgv.Rows(e.RowIndex).Cells("料號").Value : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
+                    While dr.Read() = True
+                        Dim unused As Byte() = New Byte(-1) {}
+                        Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                        Dim oStream As New MemoryStream(bytes)
+                        物料圖1_pb.Image = Bitmap.FromStream(oStream)
+                    End While
+                    conn.Close()
+                    物料圖1_pb.SizeMode = 4
+                Else
+                    物料圖1_pb.Image = Nothing
+                End If
+            End If : conn.Close()
+        End If
+
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub 窄間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
+        小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False
+        Set_清單2()
+    End Sub
+    Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
+        Set_清單2()
+    End Sub
+    Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
+        小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True
+        Set_清單2()
+    End Sub
+    Private Sub 採購明細_bt_Click(sender As Object, e As EventArgs) Handles 採購明細_bt.Click
+        採購明細_bt.Enabled = False : 應負帳款_bt.Enabled = True : 採購清單_dgv.Visible = True : 供應商_dgv.Visible = False
+        應負帳款退回_bt.Visible = True : 提示_lb.Text = "要將採購明細資料退回時，請點選採購明細中要退回的資料後點選左邊的應負帳款退回"
+        刪除_bt.Enabled = False : ComboBox5.Enabled = False : ComboBox2.Enabled = False : ComboBox3.Enabled = False : ComboBox4.Enabled = False
+        ComboBox1.Enabled = False : 幣別_cb.Enabled = False
+    End Sub
+    Private Sub 應負帳款_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款_bt.Click
+        採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = False : 採購清單_dgv.Visible = False : 供應商_dgv.Visible = True
+        應負帳款退回_bt.Visible = False : 提示_lb.Text = "目前呈現表單為應付帳款，若要退回採購明細資料請點選下方採購明細"
+        刪除_bt.Enabled = True : ComboBox5.Enabled = True : ComboBox2.Enabled = True : ComboBox3.Enabled = True : ComboBox4.Enabled = True
+        ComboBox1.Enabled = True : 幣別_cb.Enabled = True
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        Set_清單1() : Set_清單2()
+    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
+    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)
+        xlApp.Visible = True
+        xlApp.DisplayAlerts = True
+        xlApp.Application.WindowState = xlMaximized
+        xlBook = xlApp.Workbooks.Add
+        xlSheet = NewMethod(xlBook)
+        xlBook.Activate()
+        xlSheet.Activate()
+
+        xlSheet.Cells(1, 1) = "雅邸家具有限公司-採購應付帳款 - " & Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7)
+        xlSheet.Cells(2, 1) = "編號 "
+        xlSheet.Cells(2, 2) = "供應商"
+        xlSheet.Cells(2, 3) = "當月貨款"
+        xlSheet.Cells(2, 4) = "稅金"
+        xlSheet.Cells(2, 5) = "廣告"
+        xlSheet.Cells(2, 6) = "其他扣款"
+        xlSheet.Cells(2, 7) = "實付金額"
+        xlSheet.Cells(2, 8) = "票期"
+        xlSheet.Cells(2, 9) = "公司"
+        xlSheet.Cells(2, 10) = "個人"
+        xlSheet.Cells(2, 11) = "支票_公司"
+        xlSheet.Cells(2, 12) = "支票_私人"
+
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 3, 1) = 供應商_dgv.Rows(i).Cells("編號").Value
+            xlSheet.Cells(i + 3, 2) = 供應商_dgv.Rows(i).Cells("供應商").Value
+            xlSheet.Cells(i + 3, 3) = 供應商_dgv.Rows(i).Cells("當月貨款").Value
+            xlSheet.Cells(i + 3, 4) = 供應商_dgv.Rows(i).Cells("稅金").Value
+            xlSheet.Cells(i + 3, 5) = 供應商_dgv.Rows(i).Cells("廣告").Value
+            xlSheet.Cells(i + 3, 6) = 供應商_dgv.Rows(i).Cells("其他扣款").Value
+            xlSheet.Cells(i + 3, 7) = 供應商_dgv.Rows(i).Cells("實付金額").Value
+            xlSheet.Cells(i + 3, 8) = 供應商_dgv.Rows(i).Cells("票期").Value
+            xlSheet.Cells(i + 3, 9) = 供應商_dgv.Rows(i).Cells("公司").Value
+            xlSheet.Cells(i + 3, 10) = 供應商_dgv.Rows(i).Cells("個人").Value
+            xlSheet.Cells(i + 3, 11) = 供應商_dgv.Rows(i).Cells("支票_公司").Value
+            xlSheet.Cells(i + 3, 12) = 供應商_dgv.Rows(i).Cells("支票_私人").Value
+            N2 = i + 3
+        Next i
+
+        xlSheet.Cells(N2 + 1, 1) = "合計"
+        xlSheet.Cells(N2 + 1, 3) = "=SUM(C3:C" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 4) = "=SUM(D3:D" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 5) = "=SUM(E3:E" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 6) = "=SUM(F3:F" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 7) = "=SUM(G3:G" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
+        BB(xlApp, xlSheet)
+
+        xlSheet.Cells(N2 + 4, 8) = "票期"
+        xlSheet.Cells(N2 + 4, 9) = "公司"
+        xlSheet.Cells(N2 + 4, 10) = "個人"
+
+        For i As Integer = 0 To 合計_dgv.Rows.Count - 1
+            xlSheet.Cells(i + N2 + 5, 8) = 合計_dgv.Rows(i).Cells("票期").Value
+            xlSheet.Cells(i + N2 + 5, 9) = 合計_dgv.Rows(i).Cells("公司").Value
+            xlSheet.Cells(i + N2 + 5, 10) = 合計_dgv.Rows(i).Cells("個人").Value
+            N1 = i + N2 + 5
+        Next i
+        CC(xlApp, xlSheet)
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成!!!")
+    End Sub
+    Private Sub BB(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 = 11 : .Strikethrough = False : .Superscript = False : .Subscript = False
+            .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1
+            .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Rows("1:1").Select
+        myExcel.Selection.RowHeight = 35
+        xlSheet.Rows("2:2").Select
+        myExcel.Selection.RowHeight = 30
+        xlSheet.Rows("1:1").Select
+
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False
+            .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0
+            .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Rows("2:2").Select
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlBottom : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("A:A").Select
+        xlSheet.Range("A2").Activate()
+        myExcel.Selection.ColumnWidth = 7
+        xlSheet.Range("A3:A8").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        With myExcel.Selection
+            .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
+            .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("P47").Select()
+        xlSheet.Columns("B:B").Select : xlSheet.Range("B2").Activate() : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("C:C").Select : xlSheet.Range("C2").Activate() : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("D:D").Select : xlSheet.Range("D2").Activate() : myExcel.Selection.ColumnWidth = 8
+        xlSheet.Columns("E:E").Select : xlSheet.Range("E2").Activate() : myExcel.Selection.ColumnWidth = 8
+        xlSheet.Columns("F:F").Select : xlSheet.Range("F2").Activate() : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("G:G").Select : xlSheet.Range("G2").Activate() : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("H:H").Select : xlSheet.Range("H2").Activate() : myExcel.Selection.ColumnWidth = 12
+        xlSheet.Columns("I:I").Select : xlSheet.Range("I2").Activate() : myExcel.Selection.ColumnWidth = 8
+        xlSheet.Columns("J:J").Select : xlSheet.Range("J2").Activate() : myExcel.Selection.ColumnWidth = 10
+        xlSheet.Columns("K:K").Select : xlSheet.Range("K2").Activate() : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("L:L").Select : xlSheet.Range("L2").Activate() : myExcel.Selection.ColumnWidth = 14
+
+        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        xlSheet.Rows("3:3").Select
+        myExcel.ActiveWindow.FreezePanes = False
+        myExcel.ActiveWindow.FreezePanes = True
+        xlSheet.Range("A1:L3").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
+
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        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.Range("A3:L" & N2).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
+
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        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
+
+        myExcel.ActiveWindow.DisplayGridlines = False : xlSheet.Range("C3:G9").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("K:K").Select() : xlSheet.Range("K2").Activate() : myExcel.Selection.ColumnWidth = 35 : xlSheet.Rows("2:2").Select
+        xlSheet.Range("A1:L1").Select() : myExcel.Selection.Font.Bold = True : xlSheet.Rows("2:2").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.Range("I3:J9").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("K:K").Select : xlSheet.Range("K2").Activate()
+        myExcel.Selection.ColumnWidth = 30 : xlSheet.Rows("2:2").Select
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlGeneral : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        xlSheet.Rows("2:2").Select
+        xlSheet.Columns("A:A").Select
+        xlSheet.Range("A2").Activate()
+
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        xlSheet.Range("P6,C:G,I:J").Select() : xlSheet.Range("I2").Activate()
+        myExcel.Selection.Style = "Comma" : myExcel.Selection.Style = "Comma"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Range("A1:L1").Select()
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlBottom : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+            myExcel.Selection.Merge : xlSheet.Columns("B:B").Select
+            .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext
+        End With
+    End Sub
+    Private Sub CC(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Range("H" & N2 + 4 & ":J" & N1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlInsideVertical)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+        With myExcel.Selection.Borders(xlInsideHorizontal)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin
+        End With
+    End Sub
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        供應商_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        合計_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+        採購清單_dgv.RowsDefaultCellStyle.Font = New Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+
+    Private Sub 應負帳款退回_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款退回_bt.Click
+        If 資料流水號_tb.Text <> "" Then
+            PA = 資料流水號_tb.Text : PA2 = "0" : PA1 = ""
+            SQL_採購控制表_過帳()
+        Else
+            MsgBox("沒有選擇資料!!!")
+        End If
+        Set_清單2() : 資料流水號_tb.Text = ""
+    End Sub
+
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 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 開啟供應商資料表_bt_Click(sender As Object, e As EventArgs) Handles 開啟供應商資料表_bt.Click
+        PA = "" : 供應商資料表.Show() : 供應商資料表.BringToFront()
+    End Sub
+
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        PA = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 7)
+        SQL_採購對帳單_判斷是否有資料()
+        If dr.Read() Then : SQL_採購對帳單_刪除當天() : conn.Close() : End If : conn.Close()
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            PA1 = 供應商_dgv.Rows(i).Cells("編號").Value : PA2 = 供應商_dgv.Rows(i).Cells("稅金%").Value
+            PA3 = 供應商_dgv.Rows(i).Cells("廣告%").Value : PA4 = 供應商_dgv.Rows(i).Cells("其他扣款").Value
+            PA5 = 供應商_dgv.Rows(i).Cells("票期").Value : PA6 = 供應商_dgv.Rows(i).Cells("公司%").Value
+            PA7 = 供應商_dgv.Rows(i).Cells("個人%").Value
+            SQL_採購對帳單_存檔()
+        Next : MsgBox("存檔完成!!") : conn.Close()
+    End Sub
+    Private Sub 開單_bt_Click(sender As Object, e As EventArgs) Handles 開單_bt.Click
+        Dim aa As Integer = 0 : Dim bb As Integer = 0 : Dim cc As Integer = 0
+        PA10 = 0 : PA11 = 0
+        For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            PA10 = Val(PA10) + Val(供應商_dgv.Rows(i).Cells("公司").Value.ToString)
+            PA11 = Val(PA11) + Val(供應商_dgv.Rows(i).Cells("個人").Value.ToString)
+        Next
+
+        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
+            MsgBox("沒有選擇會計科目或幣別。")
+        Else
+            If 供應商_dgv.Rows.Count = 0 Then
+                MsgBox("沒有任何一筆資料，無法開單")
+            Else
+                If Val(PA10) + Val(PA11) = 0 Then
+                    MsgBox("總金額為0，無法開單")
+                Else
+                    '-----寫入公帳控制表-------------------------------------
+                    開立零用金支付單()
+                    '-----寫入公帳流水帳-------------------------------------
+                    For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+                        資料數 = 供應商_dgv.Rows.Count : MyModule1.進度條()
+                        If Val(供應商_dgv.Rows(i).Cells("公司").Value.ToString) = 0 Then
+                        Else
+                            PA1 = 供應商_dgv.Rows(i).Cells("供應商").Value : PA2 = 供應商_dgv.Rows(i).Cells("公司").Value : PA3 = 供應商_dgv.Rows(i).Cells("票期").Value
+                            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
+                            End If
+                            PA16 = 匯率1
+                            PA15 = 新項次
+                            SQL_採購應負帳款_新增公帳流水帳資料()
+                            aa += 1
+                            conn.Close()
+                        End If
+
+                        If Val(供應商_dgv.Rows(i).Cells("個人").Value.ToString) = 0 Then
+                        Else
+                            PA1 = 供應商_dgv.Rows(i).Cells("供應商").Value : PA2 = 供應商_dgv.Rows(i).Cells("個人").Value : PA3 = 供應商_dgv.Rows(i).Cells("票期").Value
+                            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
+                            End If
+                            PA16 = 匯率1
+                            PA15 = 新項次
+                            SQL_採購應負帳款_新增公帳流水帳資料1()
+                            bb += 1
+                            conn.Close()
+                        End If
+                    Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+                    cc = aa + bb
+                    MsgBox("單據轉完成，申請" & cc & "筆。公司" & aa & "筆、個人" & bb & "筆。")
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP3 = Strings.Format(開始日期_dtp.Value, "yyyyMMdd") : DTP4 = Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") : DTP = Strings.Format(日期_dtp.Value, "yyyy/MM/dd")
+    End Sub
+
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        SQL採購應負帳款_查詢明細()
+        If dr.Read() Then : 新支付單號 = dr("支付單號") : Else : 新支付單號 = "" : End If : conn.Close()
+        營運成本收支單號_tb.Text = 新支付單號
+        SQL採購應負帳款_查詢審核狀態()
+        If dr.Read() Then : 狀態 = Strings.Left(dr("審核人"), 2) : Else : 狀態 = "" : End If : conn.Close()
+        If (狀態 = "" Or 狀態 = "作廢") Then
+            SQL採購轉財務_刪除控制表() : SQL採購轉財務_刪除流水帳() : conn.Close()
+            開單_bt.PerformClick()
+        Else
+            MsgBox("這張單據已經被審核過")
+        End If
+    End Sub
+
+    Private Sub 開立零用金支付單()
+        Dim NUM1 As Integer
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP3 & "-" & NUM1
+            End If
+            conn.Close()
+            PA = 營運成本收支單號_tb.Text
+            SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        申請人_tb.Text = gUserName
+        SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close()
+    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
+End Class

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

@@ -22,22 +22,22 @@ Partial Class 銷售單申請
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.銷售單據_dgv = New System.Windows.Forms.DataGridView()
         Me.未審核_lb = New System.Windows.Forms.Label()
         Me.開立庫存調整單_bt = New System.Windows.Forms.Button()
@@ -201,7 +201,9 @@ Partial Class 銷售單申請
         Me.運費資料流水號_tb = New System.Windows.Forms.TextBox()
         Me.隱藏_bt = New System.Windows.Forms.Button()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.列印_bt = New System.Windows.Forms.Button()
         Me.顯示_bt = New System.Windows.Forms.Button()
+        Me.轉換_tb = New System.Windows.Forms.TextBox()
         CType(Me.銷售單據_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.銷售明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.區域庫存_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -223,16 +225,16 @@ Partial Class 銷售單申請
         '
         '銷售單據_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
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售單據_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.銷售單據_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.銷售單據_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售單據_dgv.Location = New System.Drawing.Point(2, 27)
         Me.銷售單據_dgv.Name = "銷售單據_dgv"
         Me.銷售單據_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售單據_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.銷售單據_dgv.RowTemplate.Height = 24
         Me.銷售單據_dgv.Size = New System.Drawing.Size(146, 141)
         Me.銷售單據_dgv.TabIndex = 1154
@@ -471,8 +473,8 @@ Partial Class 銷售單申請
         '
         '銷售明細_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
-        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.White
+        Me.銷售明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.銷售明細_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -480,9 +482,9 @@ Partial Class 銷售單申請
         Me.銷售明細_dgv.Location = New System.Drawing.Point(3, 29)
         Me.銷售明細_dgv.Name = "銷售明細_dgv"
         Me.銷售明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.銷售明細_dgv.RowTemplate.Height = 24
         Me.銷售明細_dgv.Size = New System.Drawing.Size(895, 360)
         Me.銷售明細_dgv.TabIndex = 1199
@@ -525,24 +527,24 @@ Partial Class 銷售單申請
         Me.存檔_bt.ForeColor = System.Drawing.Color.Green
         Me.存檔_bt.Location = New System.Drawing.Point(499, 130)
         Me.存檔_bt.Name = "存檔_bt"
-        Me.存檔_bt.Size = New System.Drawing.Size(221, 40)
+        Me.存檔_bt.Size = New System.Drawing.Size(111, 40)
         Me.存檔_bt.TabIndex = 1202
         Me.存檔_bt.Text = "存檔"
         Me.存檔_bt.UseVisualStyleBackColor = True
         '
         '區域庫存_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.區域庫存_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.區域庫存_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         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(202, 151)
         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))
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.區域庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
         Me.區域庫存_dgv.RowTemplate.Height = 24
         Me.區域庫存_dgv.Size = New System.Drawing.Size(191, 85)
         Me.區域庫存_dgv.TabIndex = 1245
@@ -898,8 +900,8 @@ Partial Class 銷售單申請
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
         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
@@ -907,9 +909,9 @@ Partial Class 銷售單申請
         Me.物料清單_dgv.Location = New System.Drawing.Point(2, 79)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(518, 326)
         Me.物料清單_dgv.TabIndex = 1205
@@ -999,6 +1001,7 @@ Partial Class 銷售單申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel1.Controls.Add(Me.轉換_tb)
         Me.Panel1.Controls.Add(Me.Reset1_bt)
         Me.Panel1.Controls.Add(Me.刪除衍生運費_bt)
         Me.Panel1.Controls.Add(Me.新增衍生運費_bt)
@@ -1646,17 +1649,17 @@ Partial Class 銷售單申請
         '
         '客戶資料_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
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.客戶資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
         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, 14874)
+        Me.客戶資料_dgv.Location = New System.Drawing.Point(17, 15422)
         Me.客戶資料_dgv.Name = "客戶資料_dgv"
         Me.客戶資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle26.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
         Me.客戶資料_dgv.RowTemplate.Height = 24
         Me.客戶資料_dgv.Size = New System.Drawing.Size(191, 92)
         Me.客戶資料_dgv.TabIndex = 1254
@@ -1664,8 +1667,8 @@ Partial Class 銷售單申請
         '
         '收款事項_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
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.收款事項_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
         Me.收款事項_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.收款事項_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1673,9 +1676,9 @@ Partial Class 銷售單申請
         Me.收款事項_dgv.Location = New System.Drawing.Point(3, 669)
         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
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.收款事項_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
         Me.收款事項_dgv.RowTemplate.Height = 24
         Me.收款事項_dgv.Size = New System.Drawing.Size(725, 102)
         Me.收款事項_dgv.TabIndex = 1282
@@ -1732,8 +1735,8 @@ Partial Class 銷售單申請
         '
         '銷售衍生運費_dgv
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售衍生運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
         Me.銷售衍生運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售衍生運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1741,17 +1744,17 @@ Partial Class 銷售單申請
         Me.銷售衍生運費_dgv.Location = New System.Drawing.Point(3, 542)
         Me.銷售衍生運費_dgv.Name = "銷售衍生運費_dgv"
         Me.銷售衍生運費_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle30.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售衍生運費_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
         Me.銷售衍生運費_dgv.RowTemplate.Height = 24
         Me.銷售衍生運費_dgv.Size = New System.Drawing.Size(725, 102)
         Me.銷售衍生運費_dgv.TabIndex = 1334
         '
         '銷售備註_dgv
         '
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.銷售備註_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
         Me.銷售備註_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售備註_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1759,9 +1762,9 @@ Partial Class 銷售單申請
         Me.銷售備註_dgv.Location = New System.Drawing.Point(3, 414)
         Me.銷售備註_dgv.Name = "銷售備註_dgv"
         Me.銷售備註_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle32.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售備註_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
         Me.銷售備註_dgv.RowTemplate.Height = 24
         Me.銷售備註_dgv.Size = New System.Drawing.Size(725, 102)
         Me.銷售備註_dgv.TabIndex = 1250
@@ -2086,6 +2089,7 @@ Partial Class 銷售單申請
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.列印_bt)
         Me.Panel3.Controls.Add(Me.顯示_bt)
         Me.Panel3.Controls.Add(Me.字體大小調整_lb)
         Me.Panel3.Controls.Add(Me.未審核_lb)
@@ -2130,6 +2134,17 @@ Partial Class 銷售單申請
         Me.Panel3.Size = New System.Drawing.Size(934, 685)
         Me.Panel3.TabIndex = 1339
         '
+        '列印_bt
+        '
+        Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印_bt.ForeColor = System.Drawing.Color.Green
+        Me.列印_bt.Location = New System.Drawing.Point(610, 130)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(111, 40)
+        Me.列印_bt.TabIndex = 1364
+        Me.列印_bt.Text = "列印"
+        Me.列印_bt.UseVisualStyleBackColor = True
+        '
         '顯示_bt
         '
         Me.顯示_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -2141,6 +2156,15 @@ Partial Class 銷售單申請
         Me.顯示_bt.Text = "顯示物料控件"
         Me.顯示_bt.UseVisualStyleBackColor = True
         '
+        '轉換_tb
+        '
+        Me.轉換_tb.Location = New System.Drawing.Point(305, 303)
+        Me.轉換_tb.Name = "轉換_tb"
+        Me.轉換_tb.Size = New System.Drawing.Size(120, 23)
+        Me.轉換_tb.TabIndex = 1369
+        Me.轉換_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.轉換_tb.Visible = False
+        '
         '銷售單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -2341,4 +2365,6 @@ Partial Class 銷售單申請
     Friend WithEvents 字體_NUD As NumericUpDown
     Friend WithEvents Reset1_bt As Button
     Friend WithEvents Label51 As Label
+    Friend WithEvents 列印_bt As Button
+    Friend WithEvents 轉換_tb As TextBox
 End Class

YD-ERP-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>

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

@@ -0,0 +1,640 @@
+<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()
+        Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.已兌現支票1_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.已兌現支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.零用金1_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.只顯示支票資料_cb = New System.Windows.Forms.CheckBox()
+        Me.隱藏作帳點交資訊_cb = New System.Windows.Forms.CheckBox()
+        Me.隱藏申請審核資訊_cb = New System.Windows.Forms.CheckBox()
+        Me.損益1_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.支出1_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.現金1_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.損益_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.現金_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.查詢日期1_cb = New System.Windows.Forms.ComboBox()
+        Me.查詢日期_cb = New System.Windows.Forms.ComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
+        Me.對帳記錄存檔_bt = New System.Windows.Forms.Button()
+        Me.清除查詢資料_bt = New System.Windows.Forms.Button()
+        Me.匯出EXCEL_bt = New System.Windows.Forms.Button()
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '未兌現支票1_tb
+        '
+        Me.未兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(285, 56)
+        Me.未兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未兌現支票1_tb.Name = "未兌現支票1_tb"
+        Me.未兌現支票1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.未兌現支票1_tb.TabIndex = 1072
+        Me.未兌現支票1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label13.Location = New System.Drawing.Point(215, 59)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(68, 16)
+        Me.Label13.TabIndex = 1071
+        Me.Label13.Text = "未兌現支票"
+        '
+        '未兌現支票_tb
+        '
+        Me.未兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.未兌現支票_tb.ForeColor = System.Drawing.Color.Green
+        Me.未兌現支票_tb.Location = New System.Drawing.Point(285, 30)
+        Me.未兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未兌現支票_tb.Name = "未兌現支票_tb"
+        Me.未兌現支票_tb.Size = New System.Drawing.Size(90, 23)
+        Me.未兌現支票_tb.TabIndex = 1070
+        Me.未兌現支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label14.ForeColor = System.Drawing.Color.Green
+        Me.Label14.Location = New System.Drawing.Point(215, 35)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(68, 16)
+        Me.Label14.TabIndex = 1069
+        Me.Label14.Text = "未兌現支票"
+        '
+        '已兌現支票1_tb
+        '
+        Me.已兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(447, 56)
+        Me.已兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.已兌現支票1_tb.Name = "已兌現支票1_tb"
+        Me.已兌現支票1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.已兌現支票1_tb.TabIndex = 1068
+        Me.已兌現支票1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label11.Location = New System.Drawing.Point(377, 60)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(68, 16)
+        Me.Label11.TabIndex = 1067
+        Me.Label11.Text = "已兌現支票"
+        '
+        '已兌現支票_tb
+        '
+        Me.已兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.已兌現支票_tb.ForeColor = System.Drawing.Color.Green
+        Me.已兌現支票_tb.Location = New System.Drawing.Point(447, 29)
+        Me.已兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.已兌現支票_tb.Name = "已兌現支票_tb"
+        Me.已兌現支票_tb.Size = New System.Drawing.Size(90, 23)
+        Me.已兌現支票_tb.TabIndex = 1066
+        Me.已兌現支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label12.ForeColor = System.Drawing.Color.Green
+        Me.Label12.Location = New System.Drawing.Point(377, 34)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(68, 16)
+        Me.Label12.TabIndex = 1065
+        Me.Label12.Text = "已兌現支票"
+        '
+        '零用金1_tb
+        '
+        Me.零用金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(585, 56)
+        Me.零用金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金1_tb.Name = "零用金1_tb"
+        Me.零用金1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金1_tb.TabIndex = 1064
+        Me.零用金1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(539, 59)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.TabIndex = 1063
+        Me.Label1.Text = "零用金"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.零用金_tb.ForeColor = System.Drawing.Color.Green
+        Me.零用金_tb.Location = New System.Drawing.Point(585, 29)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_tb.TabIndex = 1062
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Green
+        Me.Label3.Location = New System.Drawing.Point(539, 34)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 1061
+        Me.Label3.Text = "零用金"
+        '
+        '只顯示支票資料_cb
+        '
+        Me.只顯示支票資料_cb.AutoSize = True
+        Me.只顯示支票資料_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.只顯示支票資料_cb.Location = New System.Drawing.Point(504, 5)
+        Me.只顯示支票資料_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.只顯示支票資料_cb.Name = "只顯示支票資料_cb"
+        Me.只顯示支票資料_cb.Size = New System.Drawing.Size(111, 20)
+        Me.只顯示支票資料_cb.TabIndex = 1060
+        Me.只顯示支票資料_cb.Text = "只顯示支票資料"
+        Me.只顯示支票資料_cb.UseVisualStyleBackColor = True
+        '
+        '隱藏作帳點交資訊_cb
+        '
+        Me.隱藏作帳點交資訊_cb.AutoSize = True
+        Me.隱藏作帳點交資訊_cb.Checked = True
+        Me.隱藏作帳點交資訊_cb.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.隱藏作帳點交資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.隱藏作帳點交資訊_cb.Location = New System.Drawing.Point(363, 6)
+        Me.隱藏作帳點交資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.隱藏作帳點交資訊_cb.Name = "隱藏作帳點交資訊_cb"
+        Me.隱藏作帳點交資訊_cb.Size = New System.Drawing.Size(135, 20)
+        Me.隱藏作帳點交資訊_cb.TabIndex = 1059
+        Me.隱藏作帳點交資訊_cb.Text = "隱藏作帳、點交資訊"
+        Me.隱藏作帳點交資訊_cb.UseVisualStyleBackColor = True
+        '
+        '隱藏申請審核資訊_cb
+        '
+        Me.隱藏申請審核資訊_cb.AutoSize = True
+        Me.隱藏申請審核資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.隱藏申請審核資訊_cb.Location = New System.Drawing.Point(222, 6)
+        Me.隱藏申請審核資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.隱藏申請審核資訊_cb.Name = "隱藏申請審核資訊_cb"
+        Me.隱藏申請審核資訊_cb.Size = New System.Drawing.Size(135, 20)
+        Me.隱藏申請審核資訊_cb.TabIndex = 1058
+        Me.隱藏申請審核資訊_cb.Text = "隱藏申請、審核資訊"
+        Me.隱藏申請審核資訊_cb.UseVisualStyleBackColor = True
+        '
+        '損益1_tb
+        '
+        Me.損益1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(964, 56)
+        Me.損益1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.損益1_tb.Name = "損益1_tb"
+        Me.損益1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益1_tb.TabIndex = 1057
+        Me.損益1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label7.Location = New System.Drawing.Point(930, 59)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 1056
+        Me.Label7.Text = "損益"
+        '
+        '支出1_tb
+        '
+        Me.支出1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(838, 56)
+        Me.支出1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出1_tb.Name = "支出1_tb"
+        Me.支出1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出1_tb.TabIndex = 1055
+        Me.支出1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label8.Location = New System.Drawing.Point(804, 60)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1054
+        Me.Label8.Text = "支出"
+        '
+        '現金1_tb
+        '
+        Me.現金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(712, 56)
+        Me.現金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.現金1_tb.Name = "現金1_tb"
+        Me.現金1_tb.Size = New System.Drawing.Size(90, 23)
+        Me.現金1_tb.TabIndex = 1053
+        Me.現金1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label10.Location = New System.Drawing.Point(677, 60)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1052
+        Me.Label10.Text = "現金"
+        '
+        '損益_tb
+        '
+        Me.損益_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.損益_tb.ForeColor = System.Drawing.Color.Green
+        Me.損益_tb.Location = New System.Drawing.Point(964, 29)
+        Me.損益_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.損益_tb.Name = "損益_tb"
+        Me.損益_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益_tb.TabIndex = 1051
+        Me.損益_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(930, 34)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.TabIndex = 1050
+        Me.Label6.Text = "損益"
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.支出_tb.ForeColor = System.Drawing.Color.Green
+        Me.支出_tb.Location = New System.Drawing.Point(838, 29)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_tb.TabIndex = 1049
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label5.ForeColor = System.Drawing.Color.Green
+        Me.Label5.Location = New System.Drawing.Point(804, 34)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1048
+        Me.Label5.Text = "支出"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.Green
+        Me.Label4.Location = New System.Drawing.Point(2, 35)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 1047
+        Me.Label4.Text = "單號"
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Green
+        Me.收支單號_tb.Location = New System.Drawing.Point(36, 31)
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(172, 23)
+        Me.收支單號_tb.TabIndex = 1046
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '現金_tb
+        '
+        Me.現金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.現金_tb.ForeColor = System.Drawing.Color.Green
+        Me.現金_tb.Location = New System.Drawing.Point(712, 29)
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.現金_tb.Name = "現金_tb"
+        Me.現金_tb.Size = New System.Drawing.Size(90, 23)
+        Me.現金_tb.TabIndex = 1045
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label9.ForeColor = System.Drawing.Color.Green
+        Me.Label9.Location = New System.Drawing.Point(677, 34)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 1044
+        Me.Label9.Text = "現金"
+        '
+        '查詢日期1_cb
+        '
+        Me.查詢日期1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.查詢日期1_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.查詢日期1_cb.FormattingEnabled = True
+        Me.查詢日期1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.查詢日期1_cb.Location = New System.Drawing.Point(153, 3)
+        Me.查詢日期1_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢日期1_cb.Name = "查詢日期1_cb"
+        Me.查詢日期1_cb.Size = New System.Drawing.Size(63, 24)
+        Me.查詢日期1_cb.TabIndex = 1043
+        '
+        '查詢日期_cb
+        '
+        Me.查詢日期_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.查詢日期_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.查詢日期_cb.FormattingEnabled = True
+        Me.查詢日期_cb.Items.AddRange(New Object() {"2019"})
+        Me.查詢日期_cb.Location = New System.Drawing.Point(64, 3)
+        Me.查詢日期_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.查詢日期_cb.Name = "查詢日期_cb"
+        Me.查詢日期_cb.Size = New System.Drawing.Size(81, 24)
+        Me.查詢日期_cb.TabIndex = 1042
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(2, 7)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1041
+        Me.Label2.Text = "查詢日期"
+        '
+        '明細_dgv
+        '
+        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
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(6, 82)
+        Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(1050, 524)
+        Me.明細_dgv.TabIndex = 1073
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator2})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 32)
+        '
+        '重新整理ToolStripMenuItem
+        '
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(119, 6)
+        '
+        '關鍵字查詢_bt
+        '
+        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(663, 2)
+        Me.關鍵字查詢_bt.Name = "關鍵字查詢_bt"
+        Me.關鍵字查詢_bt.Size = New System.Drawing.Size(90, 26)
+        Me.關鍵字查詢_bt.TabIndex = 1076
+        Me.關鍵字查詢_bt.Text = "關鍵字查詢"
+        Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
+        '
+        '對帳記錄存檔_bt
+        '
+        Me.對帳記錄存檔_bt.ForeColor = System.Drawing.Color.Green
+        Me.對帳記錄存檔_bt.Location = New System.Drawing.Point(6, 56)
+        Me.對帳記錄存檔_bt.Name = "對帳記錄存檔_bt"
+        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(202, 23)
+        Me.對帳記錄存檔_bt.TabIndex = 1077
+        Me.對帳記錄存檔_bt.Text = "對帳記錄存檔"
+        Me.對帳記錄存檔_bt.UseVisualStyleBackColor = True
+        '
+        '清除查詢資料_bt
+        '
+        Me.清除查詢資料_bt.Location = New System.Drawing.Point(754, 2)
+        Me.清除查詢資料_bt.Name = "清除查詢資料_bt"
+        Me.清除查詢資料_bt.Size = New System.Drawing.Size(90, 26)
+        Me.清除查詢資料_bt.TabIndex = 1078
+        Me.清除查詢資料_bt.Text = "清除查詢資料"
+        Me.清除查詢資料_bt.UseVisualStyleBackColor = True
+        '
+        '匯出EXCEL_bt
+        '
+        Me.匯出EXCEL_bt.AutoSize = True
+        Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.匯出EXCEL_bt.ForeColor = System.Drawing.Color.DarkRed
+        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(845, 2)
+        Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt"
+        Me.匯出EXCEL_bt.Size = New System.Drawing.Size(90, 26)
+        Me.匯出EXCEL_bt.TabIndex = 1435
+        Me.匯出EXCEL_bt.Text = "匯出EXCEL"
+        Me.匯出EXCEL_bt.UseVisualStyleBackColor = True
+        '
+        'BBBToolStripMenuItem
+        '
+        Me.BBBToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.BBBToolStripMenuItem.Name = "BBBToolStripMenuItem"
+        Me.BBBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
+        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(941, 6)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(60, 17)
+        Me.字體大小調整_lb.TabIndex = 1495
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(1001, 4)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.TabIndex = 1494
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '營運成本收支單_對帳表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1061, 611)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.匯出EXCEL_bt)
+        Me.Controls.Add(Me.清除查詢資料_bt)
+        Me.Controls.Add(Me.對帳記錄存檔_bt)
+        Me.Controls.Add(Me.關鍵字查詢_bt)
+        Me.Controls.Add(Me.未兌現支票1_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.未兌現支票_tb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.已兌現支票1_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.已兌現支票_tb)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.零用金1_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.只顯示支票資料_cb)
+        Me.Controls.Add(Me.隱藏作帳點交資訊_cb)
+        Me.Controls.Add(Me.隱藏申請審核資訊_cb)
+        Me.Controls.Add(Me.損益1_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.支出1_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.現金1_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.損益_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.現金_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.查詢日期1_cb)
+        Me.Controls.Add(Me.查詢日期_cb)
+        Me.Controls.Add(Me.Label2)
+        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 = "營運成本收支單_對帳表"
+        Me.Text = "營運成本收支單___對帳表"
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 未兌現支票1_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 未兌現支票_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 已兌現支票1_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 已兌現支票_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 零用金1_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 只顯示支票資料_cb As CheckBox
+    Friend WithEvents 隱藏作帳點交資訊_cb As CheckBox
+    Friend WithEvents 隱藏申請審核資訊_cb As CheckBox
+    Friend WithEvents 損益1_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 支出1_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 現金1_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 損益_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents 現金_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 查詢日期1_cb As ComboBox
+    Friend WithEvents 查詢日期_cb As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 明細_dgv As DataGridView
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents 關鍵字查詢_bt As Button
+    Friend WithEvents 對帳記錄存檔_bt As Button
+    Friend WithEvents 清除查詢資料_bt As Button
+    Friend WithEvents 匯出EXCEL_bt As Button
+    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+End Class

YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.resx

@@ -0,0 +1,126 @@
+<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>55</value>
+  </metadata>
+</root>

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

@@ -0,0 +1,452 @@
+Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports System.Data.SqlClient
+Public Class 營運成本收支單_對帳表
+    ReadOnly conn1 As New SqlConnection
+    ReadOnly cmd As New SqlCommand : ReadOnly cmd1 As New SqlCommand
+    ReadOnly ds As New DataSet
+    Dim N2 As Integer
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Dim 位置1 As String
+    Private Sub Set_清單1()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 30
+        SQL_營運成本收支單對帳表_查詢最後一筆清單()
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+    End Sub
+    Private Sub Set_grid()
+        明細_dgv.Columns(0).FillWeight = 120 : 明細_dgv.Columns(1).FillWeight = 60 : 明細_dgv.Columns(2).FillWeight = 80 : 明細_dgv.Columns(3).FillWeight = 60
+        明細_dgv.Columns(4).FillWeight = 80 : 明細_dgv.Columns(5).FillWeight = 50 : 明細_dgv.Columns(6).FillWeight = 150 : 明細_dgv.Columns(7).FillWeight = 300
+        明細_dgv.Columns(8).FillWeight = 70 : 明細_dgv.Columns(9).FillWeight = 70 : 明細_dgv.Columns(10).FillWeight = 70 : 明細_dgv.Columns(11).FillWeight = 70
+        明細_dgv.Columns(12).FillWeight = 70 : 明細_dgv.Columns(13).FillWeight = 50 : 明細_dgv.Columns(14).FillWeight = 70 : 明細_dgv.Columns(15).FillWeight = 50
+        明細_dgv.Columns(16).FillWeight = 70 : 明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False : 明細_dgv.Columns(19).Visible = False
+        明細_dgv.Columns(20).Visible = False : 明細_dgv.Columns(21).FillWeight = 50 : 明細_dgv.Columns(22).FillWeight = 50
+
+        If 隱藏申請審核資訊_cb.Checked = False Then
+            明細_dgv.Columns(1).Visible = True : 明細_dgv.Columns(2).Visible = True : 明細_dgv.Columns(3).Visible = True : 明細_dgv.Columns(4).Visible = True
+        Else
+            明細_dgv.Columns(1).Visible = False : 明細_dgv.Columns(2).Visible = False : 明細_dgv.Columns(3).Visible = False : 明細_dgv.Columns(4).Visible = False
+        End If
+
+        If 隱藏作帳點交資訊_cb.Checked = False Then
+            明細_dgv.Columns(13).Visible = True : 明細_dgv.Columns(14).Visible = True : 明細_dgv.Columns(15).Visible = True : 明細_dgv.Columns(16).Visible = True
+        Else
+            明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False : 明細_dgv.Columns(16).Visible = False
+        End If
+
+        明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        明細_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
+        明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        支出1_tb.Text = "0" : 現金1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            現金1_tb.Text = Val(現金1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支出1_tb.Text = Val(支出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            零用金1_tb.Text = Val(零用金1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
+                已兌現支票1_tb.Text = Val(已兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
+                未兌現支票1_tb.Text = Val(未兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            End If
+            If 明細_dgv("幣別", i).Value = "台幣現金" Then : 明細_dgv("幣別", i).Value = "台幣" : Else : 明細_dgv("幣別", i).Value = "人民幣" : End If
+        Next i
+        損益1_tb.Text = Val(已兌現支票1_tb.Text) + Val(零用金1_tb.Text) + Val(現金1_tb.Text) - Val(支出1_tb.Text)
+        If Val(損益1_tb.Text) > 0 Then : 損益1_tb.ForeColor = Color.Blue : Else : 損益1_tb.ForeColor = Color.Red : End If
+
+        支出1_tb.Text = Strings.Format(Val(支出1_tb.Text), "#,##0")
+        損益1_tb.Text = Strings.Format(Val(損益1_tb.Text), "#,##0")
+        現金1_tb.Text = Strings.Format(Val(現金1_tb.Text), "#,##0")
+        零用金1_tb.Text = Strings.Format(Val(零用金1_tb.Text), "#,##0")
+        已兌現支票1_tb.Text = Strings.Format(Val(已兌現支票1_tb.Text), "#,##0")
+        未兌現支票1_tb.Text = Strings.Format(Val(未兌現支票1_tb.Text), "#,##0")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        SQL_營運成本收支單對帳表_查詢最後一筆年份清單() : 查詢日期_cb.Items.Clear()
+        While (dr.Read()) : 查詢日期_cb.Items.Add(dr("年份")) : End While
+        conn.Close()
+    End Sub
+    Private Sub 營運成本收支單_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
+        現金1_tb.Text = "0" : 支出1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
+        SQL_營運成本收支單對帳表_修改會計() : conn.Close()
+        SQL_營運成本收支單對帳表_修改出納() : conn.Close()
+        SQL_營運成本收支單對帳表_修改現金() : conn.Close()
+        SQL_營運成本收支單對帳表_修改備用金() : conn.Close()
+        SQL_營運成本收支單對帳表_修改公帳() : conn.Close()
+        SQL_營運成本收支單對帳表_修改支票() : conn.Close()
+        SQL_營運成本收支單對帳表_修改日期() : conn.Close()
+        SQL_營運成本收支單對帳表_修改出納日期() : conn.Close()
+
+        ComboBox1下拉表單資料載入()
+        查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
+        PA20 = "" : PA19 = "" : PA18 = "" : PA17 = 查詢日期_cb.Text : PA16 = 查詢日期1_cb.Text
+        PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True
+        End If
+    End Sub
+    Private Sub 營運成本收支單_對帳表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True
+        End If
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 清除查詢資料_bt.Click
+        ComboBox1下拉表單資料載入()
+        查詢日期1_cb.Items.Clear()
+        查詢日期1_cb.Items.Add("01") : 查詢日期1_cb.Items.Add("02") : 查詢日期1_cb.Items.Add("03") : 查詢日期1_cb.Items.Add("04") : 查詢日期1_cb.Items.Add("05") : 查詢日期1_cb.Items.Add("06")
+        查詢日期1_cb.Items.Add("07") : 查詢日期1_cb.Items.Add("08") : 查詢日期1_cb.Items.Add("09") : 查詢日期1_cb.Items.Add("10") : 查詢日期1_cb.Items.Add("11") : 查詢日期1_cb.Items.Add("12")
+        PA17 = "" : PA16 = "" : PA20 = ""
+        明細_dgv.DataSource = Nothing : ds.Clear()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
+
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            PA15 = 明細_dgv.Rows(i).Cells("現金點交").Value
+            PA14 = 明細_dgv.Rows(i).Cells("零用金點交").Value
+            PA13 = 明細_dgv.Rows(i).Cells("支出點交").Value
+            PA12 = 明細_dgv.Rows(i).Cells("支票兌現").Value
+            PA11 = 明細_dgv.Rows(i).Cells("收支單號").Value
+            PA10 = 明細_dgv.Rows(i).Cells("項次").Value
+            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
+            SQL_營運成本收支單對帳表_修改對帳記錄存檔() : conn1.Close()
+        Next
+        MsgBox("存檔完成。") : Set_清單1() : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 總金額計算()
+        Dim FFGG As Integer = 0 : Dim GGHH As Integer = 0 : Dim HHJJ As Integer = 0 : Dim JJKK As Integer = 0 : Dim KKLL As Integer = 0
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(i).Cells("收支單號").Value = 收支單號_tb.Text Then
+                FFGG = Val(FFGG) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                GGHH = Val(GGHH) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                HHJJ = Val(HHJJ) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
+                    JJKK = Val(JJKK) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
+                    KKLL = Val(KKLL) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                End If
+            End If
+        Next i
+        現金_tb.Text = FFGG : 支出_tb.Text = GGHH : 零用金_tb.Text = HHJJ : 已兌現支票_tb.Text = JJKK : 未兌現支票_tb.Text = KKLL
+        損益_tb.Text = JJKK + HHJJ + FFGG - GGHH
+        If Val(損益_tb.Text) > 0 Then : 損益_tb.ForeColor = Color.Blue : Else : 損益_tb.ForeColor = Color.Red : End If
+        現金_tb.Text = Strings.Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Strings.Format(Val(支出_tb.Text), "#,##0") : 損益_tb.Text = Strings.Format(Val(損益_tb.Text), "#,##0")
+        零用金_tb.Text = Strings.Format(Val(零用金_tb.Text), "#,##0") : 已兌現支票_tb.Text = Strings.Format(Val(已兌現支票_tb.Text), "#,##0") : 未兌現支票_tb.Text = Strings.Format(Val(未兌現支票_tb.Text), "#,##0")
+    End Sub
+    Private Sub DataGridView1_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
+            總金額計算()
+        End If
+    End Sub
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 明細_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 明細_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 明細_dgv(0, e.RowIndex).Value.ToString <> 明細_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(明細_dgv.RowHeadersVisible, 明細_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 明細_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 明細_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
+                明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
+                明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            End If
+        Next
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期_cb.SelectedIndexChanged
+        PA17 = 查詢日期_cb.Text
+        If PA17 = "" Or PA16 = "" Then
+        Else
+            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期1_cb.SelectedIndexChanged
+        PA16 = 查詢日期1_cb.Text
+        If PA17 = "" Or PA16 = "" Then
+        Else
+            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_cb.Click
+        If 只顯示支票資料_cb.Checked = False Then
+            PA19 = ""
+            Set_清單1()
+        Else
+            PA19 = " AND (公帳流水帳.支票數 <> 0) "
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請審核資訊_cb.Click
+        Set_grid()
+    End Sub
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏作帳點交資訊_cb.Click
+        Set_grid()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BBBToolStripMenuItem.Click
+        MsgBox("待開發。")
+        '列印_零用金支付明細.ShowDialog()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
+        PA = InputBox("請輸入要查詢的關鍵字。")
+        PA18 = " AND (公帳控制表.支付單號 LIKE N'%" & PA & "%' OR 公帳控制表.申請人 LIKE N'%" & PA & "%' OR 公帳控制表.審核人 LIKE N'%" & PA &
+                 "%' OR 公帳流水帳.明細 LIKE N'%" & PA & "%' OR 公帳控制表.備註 LIKE N'%" & PA & "%' OR 公帳流水帳.備註 LIKE N'%" & PA & "%')" : Set_清單1()
+        PA18 = "" : PA = ""
+    End Sub
+
+    '-----------------------------EXCEL--------------------------------------------------------------------------------------------------------------------------------------
+    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
+    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)
+        xlApp.Visible = True
+        xlApp.DisplayAlerts = True
+        xlApp.Application.WindowState = xlMaximized
+        xlBook = xlApp.Workbooks.Add
+        xlSheet = NewMethod(xlBook)
+        xlBook.Activate()
+        xlSheet.Activate()
+
+        xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表"
+        xlSheet.Cells(2, 1) = "收支單號 "
+        xlSheet.Cells(2, 2) = "申請人"
+        xlSheet.Cells(2, 3) = "申請日期 "
+        xlSheet.Cells(2, 4) = "審核人"
+        xlSheet.Cells(2, 5) = "審核日期"
+        xlSheet.Cells(2, 6) = "項次"
+        xlSheet.Cells(2, 7) = "會計科目 "
+        xlSheet.Cells(2, 8) = "用途與內容"
+        xlSheet.Cells(2, 9) = "零用金"
+        xlSheet.Cells(2, 10) = "支票"
+        xlSheet.Cells(2, 11) = "現金"
+        xlSheet.Cells(2, 12) = "支出"
+
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 3, 1) = 明細_dgv.Rows(i).Cells("收支單號").Value
+            xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("申請人").Value
+            xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("申請日期").Value
+            xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("審核人").Value
+            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("審核日期").Value
+            xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("項次").Value
+            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("會計科目").Value
+            xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells("用途與內容").Value
+            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("零用金").Value
+            xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells("支票").Value
+            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells("現金").Value
+            xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells("支出").Value
+            N2 = i + 3
+        Next i
+
+        xlSheet.Cells(N2 + 1, 8) = "合計"
+        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 11) = "=SUM(K3:K" & N2 & ")"
+        xlSheet.Cells(N2 + 1, 12) = "=SUM(L3:L" & N2 & ")"
+
+        '--------------------------------------彙總-----------------------------
+        xlSheet.Cells(N2 + 2, 8) = "彙總"
+        xlSheet.Cells(N2 + 2, 9) = "=I" & N2 + 1 & "+J" & N2 + 1 & "+K" & N2 + 1 & "-L" & N2 + 1 & ""
+
+        BB(xlApp, xlSheet)
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成!!!")
+        'Me.Close()
+    End Sub
+    Private Sub BB(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 = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 15
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9
+        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 5
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 35
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("I:L").Select : myExcel.Selection.ColumnWidth = 9 : myExcel.Selection.Style = "Comma"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
+        myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
+        With myExcel.Selection : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
+            .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        myExcel.Selection.AutoFilter
+        xlSheet.Rows("1:1").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A1:L1").Select()
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        myExcel.Selection.Merge
+        xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True : xlSheet.Range("A1:L2").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
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        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.Range("A3:L" & N2).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
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
+        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeTop)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeBottom)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        End With
+        With myExcel.Selection.Borders(xlEdgeRight)
+            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
+        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.Range("L2").Select() : myExcel.Selection.ClearContents
+        xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents
+
+        xlSheet.Range("A2:L2").Select()
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體"
+            .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False : .Underline = xlUnderlineStyleNone
+            .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+        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
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : .PatternTintAndShade = 0
+        End With
+        xlSheet.Range("A1:L1").Select() : myExcel.Selection.Font.Size = 11
+        With myExcel.Selection.Font
+            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+    End Sub
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+End Class

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

@@ -0,0 +1,800 @@
+<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 DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.下個月_bt = New System.Windows.Forms.Button()
+        Me.上個月_bt = New System.Windows.Forms.Button()
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.人民幣零用金_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣零用金_ = New System.Windows.Forms.Label()
+        Me.人民幣支票_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣現金餘額_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.人民幣支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.人民幣現金_tb = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
+        Me.驗證碼_tb = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
+        Me.彙總_rb = New System.Windows.Forms.RadioButton()
+        Me.明細_rb = New System.Windows.Forms.RadioButton()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.台幣零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.台幣支票_tb = New System.Windows.Forms.TextBox()
+        Me.台幣現金餘額_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.台幣支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.當月_bt = New System.Windows.Forms.Button()
+        Me.當日_bt = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.台幣現金_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.支付單列印成EXCEL = New System.Windows.Forms.Button()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.審核日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.審核人_tb = New System.Windows.Forms.TextBox()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.單據彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.財務彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.財務彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '會計月_ch
+        '
+        Me.會計月_ch.AutoSize = True
+        Me.會計月_ch.Checked = True
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月_ch.Location = New System.Drawing.Point(43, 58)
+        Me.會計月_ch.Name = "會計月_ch"
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.TabIndex = 1222
+        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.UseVisualStyleBackColor = True
+        '
+        '下個月_bt
+        '
+        Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.下個月_bt.Location = New System.Drawing.Point(274, 56)
+        Me.下個月_bt.Name = "下個月_bt"
+        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下個月_bt.TabIndex = 1221
+        Me.下個月_bt.Text = "下個月"
+        Me.下個月_bt.UseVisualStyleBackColor = True
+        '
+        '上個月_bt
+        '
+        Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.上個月_bt.Location = New System.Drawing.Point(216, 56)
+        Me.上個月_bt.Name = "上個月_bt"
+        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上個月_bt.TabIndex = 1220
+        Me.上個月_bt.Text = "上個月"
+        Me.上個月_bt.UseVisualStyleBackColor = True
+        '
+        '中間日期_dtp
+        '
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.中間日期_dtp.Location = New System.Drawing.Point(39, 100)
+        Me.中間日期_dtp.Name = "中間日期_dtp"
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
+        Me.中間日期_dtp.TabIndex = 1219
+        Me.中間日期_dtp.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        '一般月_ch
+        '
+        Me.一般月_ch.AutoSize = True
+        Me.一般月_ch.Location = New System.Drawing.Point(135, 58)
+        Me.一般月_ch.Name = "一般月_ch"
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.TabIndex = 1223
+        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Red
+        Me.Label2.Location = New System.Drawing.Point(525, 59)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.TabIndex = 1217
+        Me.Label2.Text = "支票"
+        '
+        '人民幣零用金_tb
+        '
+        Me.人民幣零用金_tb.ForeColor = System.Drawing.Color.Red
+        Me.人民幣零用金_tb.Location = New System.Drawing.Point(420, 56)
+        Me.人民幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣零用金_tb.Name = "人民幣零用金_tb"
+        Me.人民幣零用金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣零用金_tb.TabIndex = 1216
+        Me.人民幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '人民幣零用金_
+        '
+        Me.人民幣零用金_.AutoSize = True
+        Me.人民幣零用金_.ForeColor = System.Drawing.Color.Red
+        Me.人民幣零用金_.Location = New System.Drawing.Point(333, 60)
+        Me.人民幣零用金_.Name = "人民幣零用金_"
+        Me.人民幣零用金_.Size = New System.Drawing.Size(85, 16)
+        Me.人民幣零用金_.TabIndex = 1215
+        Me.人民幣零用金_.Text = "人民幣-零用金"
+        '
+        '人民幣支票_tb
+        '
+        Me.人民幣支票_tb.ForeColor = System.Drawing.Color.Red
+        Me.人民幣支票_tb.Location = New System.Drawing.Point(559, 56)
+        Me.人民幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣支票_tb.Name = "人民幣支票_tb"
+        Me.人民幣支票_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣支票_tb.TabIndex = 1218
+        Me.人民幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '人民幣現金餘額_tb
+        '
+        Me.人民幣現金餘額_tb.ForeColor = System.Drawing.Color.Red
+        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(1000, 56)
+        Me.人民幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣現金餘額_tb.Name = "人民幣現金餘額_tb"
+        Me.人民幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
+        Me.人民幣現金餘額_tb.TabIndex = 1214
+        Me.人民幣現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Red
+        Me.Label13.Location = New System.Drawing.Point(942, 60)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.TabIndex = 1213
+        Me.Label13.Text = "現金餘額"
+        '
+        '人民幣支出_tb
+        '
+        Me.人民幣支出_tb.ForeColor = System.Drawing.Color.Red
+        Me.人民幣支出_tb.Location = New System.Drawing.Point(837, 56)
+        Me.人民幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣支出_tb.Name = "人民幣支出_tb"
+        Me.人民幣支出_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣支出_tb.TabIndex = 1212
+        Me.人民幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Red
+        Me.Label16.Location = New System.Drawing.Point(803, 59)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(32, 16)
+        Me.Label16.TabIndex = 1211
+        Me.Label16.Text = "支出"
+        '
+        '人民幣現金_tb
+        '
+        Me.人民幣現金_tb.ForeColor = System.Drawing.Color.Red
+        Me.人民幣現金_tb.Location = New System.Drawing.Point(698, 56)
+        Me.人民幣現金_tb.Name = "人民幣現金_tb"
+        Me.人民幣現金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.人民幣現金_tb.TabIndex = 1210
+        Me.人民幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.ForeColor = System.Drawing.Color.Red
+        Me.Label17.Location = New System.Drawing.Point(664, 59)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(32, 16)
+        Me.Label17.TabIndex = 1209
+        Me.Label17.Text = "現金"
+        '
+        '圖片編碼_tb
+        '
+        Me.圖片編碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.圖片編碼_tb.ForeColor = System.Drawing.Color.Blue
+        Me.圖片編碼_tb.Location = New System.Drawing.Point(203, 596)
+        Me.圖片編碼_tb.Name = "圖片編碼_tb"
+        Me.圖片編碼_tb.Size = New System.Drawing.Size(128, 23)
+        Me.圖片編碼_tb.TabIndex = 1208
+        Me.圖片編碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '驗證碼_tb
+        '
+        Me.驗證碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.驗證碼_tb.ForeColor = System.Drawing.Color.Blue
+        Me.驗證碼_tb.Location = New System.Drawing.Point(204, 572)
+        Me.驗證碼_tb.Name = "驗證碼_tb"
+        Me.驗證碼_tb.Size = New System.Drawing.Size(127, 23)
+        Me.驗證碼_tb.TabIndex = 1207
+        Me.驗證碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
+        Me.Label20.Location = New System.Drawing.Point(147, 599)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 1206
+        Me.Label20.Text = "圖片編碼"
+        '
+        'Label19
+        '
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
+        Me.Label19.Location = New System.Drawing.Point(147, 575)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.TabIndex = 1205
+        Me.Label19.Text = "驗證碼"
+        '
+        '簽名圖_pb
+        '
+        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.簽名圖_pb.Location = New System.Drawing.Point(15, 572)
+        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.簽名圖_pb.Name = "簽名圖_pb"
+        Me.簽名圖_pb.Size = New System.Drawing.Size(129, 47)
+        Me.簽名圖_pb.TabIndex = 1204
+        Me.簽名圖_pb.TabStop = False
+        '
+        '彙總_rb
+        '
+        Me.彙總_rb.AutoSize = True
+        Me.彙總_rb.Location = New System.Drawing.Point(278, 7)
+        Me.彙總_rb.Name = "彙總_rb"
+        Me.彙總_rb.Size = New System.Drawing.Size(50, 20)
+        Me.彙總_rb.TabIndex = 1203
+        Me.彙總_rb.TabStop = True
+        Me.彙總_rb.Text = "彙總"
+        Me.彙總_rb.UseVisualStyleBackColor = True
+        '
+        '明細_rb
+        '
+        Me.明細_rb.AutoSize = True
+        Me.明細_rb.Location = New System.Drawing.Point(222, 7)
+        Me.明細_rb.Name = "明細_rb"
+        Me.明細_rb.Size = New System.Drawing.Size(50, 20)
+        Me.明細_rb.TabIndex = 1202
+        Me.明細_rb.TabStop = True
+        Me.明細_rb.Text = "明細"
+        Me.明細_rb.UseVisualStyleBackColor = True
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.Green
+        Me.Label14.Location = New System.Drawing.Point(525, 33)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 1200
+        Me.Label14.Text = "支票"
+        '
+        '台幣零用金_tb
+        '
+        Me.台幣零用金_tb.ForeColor = System.Drawing.Color.Green
+        Me.台幣零用金_tb.Location = New System.Drawing.Point(420, 30)
+        Me.台幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.台幣零用金_tb.Name = "台幣零用金_tb"
+        Me.台幣零用金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣零用金_tb.TabIndex = 1199
+        Me.台幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.Green
+        Me.Label15.Location = New System.Drawing.Point(339, 34)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(79, 16)
+        Me.Label15.TabIndex = 1198
+        Me.Label15.Text = "台幣 - 零用金"
+        '
+        '台幣支票_tb
+        '
+        Me.台幣支票_tb.ForeColor = System.Drawing.Color.Green
+        Me.台幣支票_tb.Location = New System.Drawing.Point(559, 30)
+        Me.台幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.台幣支票_tb.Name = "台幣支票_tb"
+        Me.台幣支票_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣支票_tb.TabIndex = 1201
+        Me.台幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '台幣現金餘額_tb
+        '
+        Me.台幣現金餘額_tb.ForeColor = System.Drawing.Color.Green
+        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(1000, 30)
+        Me.台幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.台幣現金餘額_tb.Name = "台幣現金餘額_tb"
+        Me.台幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
+        Me.台幣現金餘額_tb.TabIndex = 1197
+        Me.台幣現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Green
+        Me.Label9.Location = New System.Drawing.Point(942, 34)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 1196
+        Me.Label9.Text = "現金餘額"
+        '
+        '台幣支出_tb
+        '
+        Me.台幣支出_tb.ForeColor = System.Drawing.Color.Green
+        Me.台幣支出_tb.Location = New System.Drawing.Point(837, 30)
+        Me.台幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.台幣支出_tb.Name = "台幣支出_tb"
+        Me.台幣支出_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣支出_tb.TabIndex = 1195
+        Me.台幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.ForeColor = System.Drawing.Color.Green
+        Me.Label11.Location = New System.Drawing.Point(803, 33)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1194
+        Me.Label11.Text = "支出"
+        '
+        '當月_bt
+        '
+        Me.當月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.當月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.當月_bt.Location = New System.Drawing.Point(286, 29)
+        Me.當月_bt.Name = "當月_bt"
+        Me.當月_bt.Size = New System.Drawing.Size(45, 25)
+        Me.當月_bt.TabIndex = 1193
+        Me.當月_bt.Text = "當月"
+        Me.當月_bt.UseVisualStyleBackColor = True
+        '
+        '當日_bt
+        '
+        Me.當日_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.當日_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.當日_bt.Location = New System.Drawing.Point(232, 29)
+        Me.當日_bt.Name = "當日_bt"
+        Me.當日_bt.Size = New System.Drawing.Size(45, 25)
+        Me.當日_bt.TabIndex = 1192
+        Me.當日_bt.Text = "當日"
+        Me.當日_bt.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(112, 34)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1191
+        Me.Label4.Text = "到"
+        '
+        '結束日期_dtp
+        '
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.結束日期_dtp.Location = New System.Drawing.Point(135, 30)
+        Me.結束日期_dtp.Name = "結束日期_dtp"
+        Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.結束日期_dtp.TabIndex = 1190
+        '
+        '開始日期_dtp
+        '
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.開始日期_dtp.Location = New System.Drawing.Point(15, 30)
+        Me.開始日期_dtp.Name = "開始日期_dtp"
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
+        Me.開始日期_dtp.TabIndex = 1189
+        '
+        '台幣現金_tb
+        '
+        Me.台幣現金_tb.ForeColor = System.Drawing.Color.Green
+        Me.台幣現金_tb.Location = New System.Drawing.Point(698, 30)
+        Me.台幣現金_tb.Name = "台幣現金_tb"
+        Me.台幣現金_tb.Size = New System.Drawing.Size(99, 23)
+        Me.台幣現金_tb.TabIndex = 1188
+        Me.台幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.ForeColor = System.Drawing.Color.Green
+        Me.Label10.Location = New System.Drawing.Point(664, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1187
+        Me.Label10.Text = "現金"
+        '
+        '支付單列印成EXCEL
+        '
+        Me.支付單列印成EXCEL.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.支付單列印成EXCEL.ForeColor = System.Drawing.Color.Blue
+        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1119, 3)
+        Me.支付單列印成EXCEL.Name = "支付單列印成EXCEL"
+        Me.支付單列印成EXCEL.Size = New System.Drawing.Size(130, 45)
+        Me.支付單列印成EXCEL.TabIndex = 1186
+        Me.支付單列印成EXCEL.Text = "支付單列印成EXCEL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.支付單列印成EXCEL.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.ForeColor = System.Drawing.Color.Blue
+        Me.Label8.Location = New System.Drawing.Point(980, 7)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1185
+        Me.Label8.Text = "日期"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.ForeColor = System.Drawing.Color.Blue
+        Me.Label7.Location = New System.Drawing.Point(715, 7)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 1184
+        Me.Label7.Text = "日期"
+        '
+        '審核日期_dtp
+        '
+        Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.審核日期_dtp.Location = New System.Drawing.Point(1014, 4)
+        Me.審核日期_dtp.Name = "審核日期_dtp"
+        Me.審核日期_dtp.Size = New System.Drawing.Size(99, 23)
+        Me.審核日期_dtp.TabIndex = 1183
+        '
+        '申請日期_dtp
+        '
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.申請日期_dtp.Location = New System.Drawing.Point(750, 4)
+        Me.申請日期_dtp.Name = "申請日期_dtp"
+        Me.申請日期_dtp.Size = New System.Drawing.Size(99, 23)
+        Me.申請日期_dtp.TabIndex = 1182
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Blue
+        Me.Label5.Location = New System.Drawing.Point(859, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 16)
+        Me.Label5.TabIndex = 1181
+        Me.Label5.Text = "審核人"
+        '
+        '審核人_tb
+        '
+        Me.審核人_tb.ForeColor = System.Drawing.Color.Blue
+        Me.審核人_tb.Location = New System.Drawing.Point(904, 4)
+        Me.審核人_tb.Name = "審核人_tb"
+        Me.審核人_tb.Size = New System.Drawing.Size(74, 23)
+        Me.審核人_tb.TabIndex = 1180
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.ForeColor = System.Drawing.Color.Blue
+        Me.申請人_tb.Location = New System.Drawing.Point(639, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(74, 23)
+        Me.申請人_tb.TabIndex = 1177
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Blue
+        Me.收支單號_tb.Location = New System.Drawing.Point(438, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(150, 23)
+        Me.收支單號_tb.TabIndex = 1175
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(12, 9)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(140, 16)
+        Me.Label6.TabIndex = 1174
+        Me.Label6.Text = "已核准的營運成本收支單"
+        '
+        '單據彙總_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.單據彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        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(16, 82)
+        Me.單據彙總_dgv.Name = "單據彙總_dgv"
+        Me.單據彙總_dgv.RowHeadersWidth = 5
+        Me.單據彙總_dgv.RowTemplate.Height = 24
+        Me.單據彙總_dgv.Size = New System.Drawing.Size(315, 483)
+        Me.單據彙總_dgv.TabIndex = 1173
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.Blue
+        Me.Label1.Location = New System.Drawing.Point(334, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.TabIndex = 1176
+        Me.Label1.Text = "營運成本收支單號"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Blue
+        Me.Label3.Location = New System.Drawing.Point(594, 7)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 1178
+        Me.Label3.Text = "申請人"
+        '
+        '明細_dgv
+        '
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
+        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
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(342, 82)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(1045, 537)
+        Me.明細_dgv.TabIndex = 1179
+        '
+        '財務彙總_dgv
+        '
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.財務彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        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
+        Me.財務彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.財務彙總_dgv.Location = New System.Drawing.Point(342, 82)
+        Me.財務彙總_dgv.Name = "財務彙總_dgv"
+        Me.財務彙總_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.財務彙總_dgv.RowTemplate.Height = 24
+        Me.財務彙總_dgv.Size = New System.Drawing.Size(1045, 537)
+        Me.財務彙總_dgv.TabIndex = 1224
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        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(1123, 55)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
+        Me.字體大小調整_lb.TabIndex = 1495
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.Location = New System.Drawing.Point(1192, 54)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 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(52, 23)
+        Me.字體_NUD.TabIndex = 1494
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '營運成本收支單一覽表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1399, 631)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.下個月_bt)
+        Me.Controls.Add(Me.上個月_bt)
+        Me.Controls.Add(Me.中間日期_dtp)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.人民幣零用金_tb)
+        Me.Controls.Add(Me.人民幣零用金_)
+        Me.Controls.Add(Me.人民幣支票_tb)
+        Me.Controls.Add(Me.人民幣現金餘額_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.人民幣支出_tb)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.人民幣現金_tb)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.圖片編碼_tb)
+        Me.Controls.Add(Me.驗證碼_tb)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.簽名圖_pb)
+        Me.Controls.Add(Me.彙總_rb)
+        Me.Controls.Add(Me.明細_rb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.台幣零用金_tb)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.台幣支票_tb)
+        Me.Controls.Add(Me.台幣現金餘額_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.台幣支出_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.當月_bt)
+        Me.Controls.Add(Me.當日_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.結束日期_dtp)
+        Me.Controls.Add(Me.開始日期_dtp)
+        Me.Controls.Add(Me.台幣現金_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.支付單列印成EXCEL)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.審核日期_dtp)
+        Me.Controls.Add(Me.申請日期_dtp)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.審核人_tb)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label3)
+        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.ForeColor = System.Drawing.Color.CornflowerBlue
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Name = "營運成本收支單一覽表"
+        Me.Text = "營運成本收支單一覽表"
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.財務彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents 下個月_bt As Button
+    Friend WithEvents 上個月_bt As Button
+    Friend WithEvents 中間日期_dtp As DateTimePicker
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 一般月_ch As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 人民幣零用金_tb As TextBox
+    Friend WithEvents 人民幣零用金_ As Label
+    Friend WithEvents 人民幣支票_tb As TextBox
+    Friend WithEvents 人民幣現金餘額_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 人民幣支出_tb As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 人民幣現金_tb As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 圖片編碼_tb As TextBox
+    Friend WithEvents 驗證碼_tb As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 簽名圖_pb As PictureBox
+    Friend WithEvents 彙總_rb As RadioButton
+    Friend WithEvents 明細_rb As RadioButton
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 台幣零用金_tb As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 台幣支票_tb As TextBox
+    Friend WithEvents 台幣現金餘額_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 台幣支出_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 當月_bt As Button
+    Friend WithEvents 當日_bt As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 結束日期_dtp As DateTimePicker
+    Friend WithEvents 開始日期_dtp As DateTimePicker
+    Friend WithEvents 台幣現金_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 支付單列印成EXCEL As Button
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 審核日期_dtp As DateTimePicker
+    Friend WithEvents 申請日期_dtp As DateTimePicker
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 審核人_tb As TextBox
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 單據彙總_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 明細_dgv As DataGridView
+    Friend WithEvents 財務彙總_dgv As DataGridView
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+End Class

YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.resx

@@ -0,0 +1,126 @@
+<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>36</value>
+  </metadata>
+</root>

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

@@ -0,0 +1,461 @@
+Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports Microsoft.Office.Interop.Excel
+Public Class 營運成本收支單一覽表
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer
+    Dim xlApp As Application
+    Dim xlBook As Workbook
+    Dim xlSheet As Worksheet
+    Private Sub Set_清單1()
+        單據彙總_dgv.DataSource = Nothing : ds1.Clear()
+        單據彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        單據彙總_dgv.ColumnHeadersHeight = 25
+        單據彙總_dgv.AllowUserToAddRows = False
+        SQL_營運成本收支單一覽表_查詢清單() : da.Fill(ds1) : 單據彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        單據彙總_dgv.RowTemplate.Height = 30
+        財務彙總_dgv.RowTemplate.Height = 30
+        明細_dgv.RowTemplate.Height = 30
+
+        單據彙總_dgv.Columns(0).FillWeight = 160 : 單據彙總_dgv.Columns(1).Visible = False : 單據彙總_dgv.Columns(2).FillWeight = 100 : 單據彙總_dgv.Columns(3).Visible = False
+        單據彙總_dgv.Columns(4).FillWeight = 100 : 單據彙總_dgv.Columns(5).Visible = False : 單據彙總_dgv.Columns(6).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        財務彙總_dgv.DataSource = Nothing : ds2.Clear()
+        財務彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        財務彙總_dgv.ColumnHeadersHeight = 25
+        財務彙總_dgv.AllowUserToAddRows = False
+        SQL_營運成本收支單一覽表_查詢清單2() : da.Fill(ds2) : 財務彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        財務彙總_dgv.Columns(0).FillWeight = 100 : 財務彙總_dgv.Columns(1).FillWeight = 140 : 財務彙總_dgv.Columns(2).FillWeight = 140 : 財務彙總_dgv.Columns(3).FillWeight = 140
+        財務彙總_dgv.Columns(4).FillWeight = 100 : 財務彙總_dgv.Columns(5).FillWeight = 100 : 財務彙總_dgv.Columns(6).FillWeight = 100 : 財務彙總_dgv.Columns(7).FillWeight = 100
+        財務彙總_dgv.Columns(8).FillWeight = 100 : 財務彙總_dgv.Columns(9).FillWeight = 100
+        財務彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 財務彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 財務彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        財務彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
+        財務彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        財務彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        財務彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        財務彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        財務彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 財務彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        財務彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 財務彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        財務彙總_dgv.Columns(0).ReadOnly = True : 財務彙總_dgv.Columns(1).ReadOnly = True : 財務彙總_dgv.Columns(2).ReadOnly = True : 財務彙總_dgv.Columns(3).ReadOnly = True
+        財務彙總_dgv.Columns(4).ReadOnly = True : 財務彙總_dgv.Columns(5).ReadOnly = True : 財務彙總_dgv.Columns(6).ReadOnly = True : 財務彙總_dgv.Columns(7).ReadOnly = True
+    End Sub
+    Private Sub Set_費用清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+        SQL_營運成本收支單一覽表_查詢費用清單() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False
+
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
+
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
+        台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00"
+        人民幣零用金_tb.Text = "0.00" : 人民幣支票_tb.Text = "0.00" : 人民幣現金_tb.Text = "0.00" : 人民幣支出_tb.Text = "0.00" : 人民幣現金餘額_tb.Text = "0.00"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                台幣現金_tb.Text = Val(台幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                台幣支出_tb.Text = Val(台幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                台幣支票_tb.Text = Val(台幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+
+                人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+        Next i
+        台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
+        If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
+        If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
+        台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
+        台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
+        人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
+        人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 營運成本收支單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+        日期格式() : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True
+    End Sub
+    Private Sub 單據彙總_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            收支單號_tb.Text = 單據彙總_dgv(0, e.RowIndex).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, e.RowIndex).Value.ToString
+            申請人_tb.Text = 單據彙總_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 單據彙總_dgv(2, e.RowIndex).Value.ToString
+            審核人_tb.Text = 單據彙總_dgv(3, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 單據彙總_dgv(4, e.RowIndex).Value.ToString
+            圖片編碼_tb.Text = 單據彙總_dgv(5, e.RowIndex).Value.ToString
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub 財務彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 財務彙總_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)
+        If e.RowIndex = 財務彙總_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 財務彙總_dgv(0, e.RowIndex).Value.ToString <> 財務彙總_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+            If 財務彙總_dgv(8, e.RowIndex).Value.ToString <> 財務彙總_dgv(8, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen2, startX, startY, endX, startY)
+                Exit Sub
+            End If
+            If 財務彙總_dgv(1, e.RowIndex).Value.ToString <> 財務彙總_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 當日_bt.Click
+        DTP = Strings.Format(Today(), "yyyy/MM/dd")
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 當月_bt.Click
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+    End Sub
+    Private Sub 彙總計算()
+        If 明細_rb.Checked = False And 彙總_rb.Checked = True Then
+            台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00"
+            人民幣零用金_tb.Text = "0.00" : 人民幣支票_tb.Text = "0.00" : 人民幣現金_tb.Text = "0.00" : 人民幣支出_tb.Text = "0.00" : 人民幣現金餘額_tb.Text = "0.00"
+            For i As Integer = 0 To 財務彙總_dgv.Rows.Count - 1
+                If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                    台幣現金_tb.Text = Val(台幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("現金").Value
+                    台幣支出_tb.Text = Val(台幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value
+                    台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value
+                    台幣支票_tb.Text = Val(台幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value
+                End If
+                If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                    If 財務彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("現金").Value
+                        人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value
+                        人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value
+                        人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+            Next i
+            台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
+            If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
+            If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
+            台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
+            台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
+            人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
+            人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
+        End If
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 明細_rb.Click
+        明細_dgv.Visible = True : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True : 彙總_rb.Checked = False
+        台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00" : 單據彙總_dgv.Enabled = True
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總_rb.Click
+        明細_dgv.Visible = False : 財務彙總_dgv.Visible = True : 明細_rb.Checked = False : 彙總_rb.Checked = True
+        收支單號_tb.Text = "" : 申請人_tb.Text = "" : 審核人_tb.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : 單據彙總_dgv.Enabled = False
+        彙總計算()
+    End Sub
+    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles 圖片編碼_tb.TextChanged
+        SQL_營運成本收支單一覽表_查詢簽名檔圖片()
+        While dr.Read() = True
+            Dim unused As Byte() = New Byte(-1) {}
+            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+            Dim oStream As New MemoryStream(bytes)
+            簽名圖_pb.Image = Bitmap.FromStream(oStream)
+        End While
+        conn.Close()
+        簽名圖_pb.SizeMode = 4
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 支付單列印成EXCEL.Click
+        xlApp = CType(CreateObject("Excel.Application"), 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) = Year(Today) - 1911
+        If 明細_rb.Checked = True And 彙總_rb.Checked = False Then
+            xlSheet.Cells(1, 3) = "雅邸家居-營運費用收支明細表"
+            xlSheet.Cells(2, 1) = "收款日期" : xlSheet.Cells(2, 2) = "會計科目" : xlSheet.Cells(2, 3) = "客戶或用途"
+            xlSheet.Cells(2, 4) = "零用金" : xlSheet.Cells(2, 5) = "支票" : xlSheet.Cells(2, 6) = "現金" : xlSheet.Cells(2, 7) = "支出" : xlSheet.Cells(2, 8) = "現金餘額" : xlSheet.Cells(2, 9) = "票期"
+
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 申請日期_dtp.Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("會計科目").Value
+                xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("零用金").Value
+                xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("票期").Value
+                If i = 0 Then
+                    xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
+                Else
+                    xlSheet.Cells(i + 3, 8) = "=H" & i + 2 & "+D" & i + 3 & "+F" & i + 3 & "-G" & i + 3 & ""
+                End If
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i + 3 : N2 = i + 3
+            Next i
+            xlSheet.Cells(N1 + 1, 3) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核(點交)" : xlSheet.Cells(N1 + 3, 7) = "製表 : " & 申請人_tb.Text & " - " & 申請日期_dtp.Value
+            xlSheet.Cells(N1 + 2, 4) = "=SUM(D3:D" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")"
+            xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 8) = "=H" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
+
+            AA(xlApp, xlSheet) : BB(xlApp, xlSheet)
+        ElseIf 明細_rb.Checked = False And 彙總_rb.Checked = True Then
+            xlSheet.Cells(1, 3) = "雅邸家居-營運費用收支彙總簡表"
+            xlSheet.Cells(2, 1) = "日期" : xlSheet.Cells(2, 2) = "主項" : xlSheet.Cells(2, 3) = "子項" : xlSheet.Cells(2, 4) = "子細項" : xlSheet.Cells(2, 5) = "零用金"
+            xlSheet.Cells(2, 6) = "支票" : xlSheet.Cells(2, 7) = "現金" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"
+
+            For i As Integer = 0 To 財務彙總_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 財務彙總_dgv.Rows(i).Cells("日期").Value
+                xlSheet.Cells(i + 3, 2) = 財務彙總_dgv.Rows(i).Cells("主項").Value
+                xlSheet.Cells(i + 3, 3) = 財務彙總_dgv.Rows(i).Cells("子項").Value
+                xlSheet.Cells(i + 3, 4) = 財務彙總_dgv.Rows(i).Cells("子細項").Value
+                xlSheet.Cells(i + 3, 5) = 財務彙總_dgv.Rows(i).Cells("零用金").Value
+                xlSheet.Cells(i + 3, 6) = 財務彙總_dgv.Rows(i).Cells("支票").Value
+                xlSheet.Cells(i + 3, 7) = 財務彙總_dgv.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 8) = 財務彙總_dgv.Rows(i).Cells("支出").Value
+                If i = 0 Then
+                    xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
+                Else
+                    xlSheet.Cells(i + 3, 9) = "=I" & i + 2 & "+E" & i + 3 & "+G" & i + 3 & "-H" & i + 3 & ""
+                End If
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i + 3 : N2 = i + 3
+            Next i
+            xlSheet.Cells(N1 + 1, 2) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核" : xlSheet.Cells(N1 + 3, 5) = "製表 : " & gUserName & " - " & Today()
+            xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")"
+            xlSheet.Cells(N1 + 2, 8) = "=SUM(H3:H" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 9) = "=I" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
+
+            CC(xlApp, xlSheet)
+        End If
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
+        xlApp.ActiveSheet.EnableSelection = 1
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.NumberFormatLocal = "m/d;@"
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("B1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 25
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30
+        xlSheet.Columns("D:H").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "[$-zh-TW]e/m/d;@"
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
+
+        xlSheet.Range("A2:I2").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A2:I" & N1 + 2).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
+        myExcel.ActiveWindow.DisplayGridlines = False
+
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
+
+        xlSheet.Columns("I:I").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A" & N1 + 2 & ":C" & N1 + 2).Select() : myExcel.Selection.Merge
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
+        End With
+
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+    End Sub
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        Clipboard.SetDataObject(簽名圖_pb.Image)
+        xlSheet.Range("B" & N2 + 3).Select()
+        myExcel.ActiveSheet.Pictures.Paste.Select
+        myExcel.Selection.ShapeRange.Height = 43
+        myExcel.Selection.ShapeRange.IncrementTop(3)
+    End Sub
+    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 8
+        xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 15
+        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("E:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
+
+        xlSheet.Rows("2:2").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("B1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Rows("1:1").Select
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Range("A2:I" & N1 + 2).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.Range("A" & N1 + 2 & ":D" & N1 + 2).Select() : myExcel.Selection.Merge
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
+        End With
+
+        xlSheet.Columns("E:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"
+        myExcel.ActiveWindow.DisplayGridlines = False
+    End Sub
+
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        單據彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        財務彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+End Class

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

@@ -0,0 +1,577 @@
+<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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
+        Me.驗證碼_tb = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.簽名清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.現金餘額_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.審核日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
+        Me.單據作廢ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.現金_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.單據作廢_bt = New System.Windows.Forms.Button()
+        Me.審核通過_bt = New System.Windows.Forms.Button()
+        Me.作廢的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.審核通過ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.字體大小調整_lb = New System.Windows.Forms.Label()
+        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.備註_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.批量審核_bt = New System.Windows.Forms.Button()
+        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
+        CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '圖片編碼_tb
+        '
+        Me.圖片編碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.圖片編碼_tb.ForeColor = System.Drawing.Color.Blue
+        Me.圖片編碼_tb.Location = New System.Drawing.Point(255, 503)
+        Me.圖片編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.圖片編碼_tb.Name = "圖片編碼_tb"
+        Me.圖片編碼_tb.Size = New System.Drawing.Size(115, 23)
+        Me.圖片編碼_tb.TabIndex = 993
+        Me.圖片編碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '驗證碼_tb
+        '
+        Me.驗證碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.驗證碼_tb.ForeColor = System.Drawing.Color.Blue
+        Me.驗證碼_tb.Location = New System.Drawing.Point(51, 503)
+        Me.驗證碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.驗證碼_tb.Name = "驗證碼_tb"
+        Me.驗證碼_tb.Size = New System.Drawing.Size(139, 23)
+        Me.驗證碼_tb.TabIndex = 992
+        Me.驗證碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
+        Me.Label20.Location = New System.Drawing.Point(192, 507)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 991
+        Me.Label20.Text = "圖片編碼"
+        '
+        'Label19
+        '
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
+        Me.Label19.Location = New System.Drawing.Point(2, 507)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.TabIndex = 990
+        Me.Label19.Text = "驗證碼"
+        '
+        '簽名清單_dgv
+        '
+        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(5, 528)
+        Me.簽名清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.簽名清單_dgv.Name = "簽名清單_dgv"
+        Me.簽名清單_dgv.RowHeadersWidth = 5
+        Me.簽名清單_dgv.RowTemplate.Height = 24
+        Me.簽名清單_dgv.Size = New System.Drawing.Size(185, 70)
+        Me.簽名清單_dgv.TabIndex = 988
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label11.Location = New System.Drawing.Point(566, 32)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(44, 16)
+        Me.Label11.TabIndex = 986
+        Me.Label11.Text = "支    票"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Location = New System.Drawing.Point(432, 28)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(131, 23)
+        Me.零用金_tb.TabIndex = 985
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label10.Location = New System.Drawing.Point(378, 32)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.TabIndex = 984
+        Me.Label10.Text = "零用金"
+        '
+        '現金餘額_tb
+        '
+        Me.現金餘額_tb.Location = New System.Drawing.Point(913, 53)
+        Me.現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.現金餘額_tb.Name = "現金餘額_tb"
+        Me.現金餘額_tb.Size = New System.Drawing.Size(111, 23)
+        Me.現金餘額_tb.TabIndex = 983
+        Me.現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label9.Location = New System.Drawing.Point(879, 56)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 982
+        Me.Label9.Text = "總和"
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Location = New System.Drawing.Point(913, 28)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(111, 23)
+        Me.支出_tb.TabIndex = 981
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label6.Location = New System.Drawing.Point(879, 31)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.TabIndex = 980
+        Me.Label6.Text = "支出"
+        '
+        '非當天日期_ch
+        '
+        Me.非當天日期_ch.AutoSize = True
+        Me.非當天日期_ch.Checked = True
+        Me.非當天日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.非當天日期_ch.Location = New System.Drawing.Point(838, 5)
+        Me.非當天日期_ch.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.非當天日期_ch.Name = "非當天日期_ch"
+        Me.非當天日期_ch.Size = New System.Drawing.Size(39, 20)
+        Me.非當天日期_ch.TabIndex = 979
+        Me.非當天日期_ch.Text = "補"
+        Me.非當天日期_ch.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.Blue
+        Me.Label2.Location = New System.Drawing.Point(717, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.TabIndex = 978
+        Me.Label2.Text = "日期"
+        '
+        '審核日期_dtp
+        '
+        Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.審核日期_dtp.Location = New System.Drawing.Point(748, 3)
+        Me.審核日期_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.審核日期_dtp.Name = "審核日期_dtp"
+        Me.審核日期_dtp.Size = New System.Drawing.Size(88, 23)
+        Me.審核日期_dtp.TabIndex = 977
+        '
+        '支票_tb
+        '
+        Me.支票_tb.Location = New System.Drawing.Point(609, 28)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(107, 23)
+        Me.支票_tb.TabIndex = 987
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '單據作廢ToolStripMenuItem
+        '
+        Me.單據作廢ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.單據作廢ToolStripMenuItem.Name = "單據作廢ToolStripMenuItem"
+        Me.單據作廢ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.單據作廢ToolStripMenuItem.Text = "單據作廢"
+        '
+        '現金_tb
+        '
+        Me.現金_tb.Location = New System.Drawing.Point(748, 28)
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.現金_tb.Name = "現金_tb"
+        Me.現金_tb.Size = New System.Drawing.Size(129, 23)
+        Me.現金_tb.TabIndex = 976
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label8.Location = New System.Drawing.Point(718, 32)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 975
+        Me.Label8.Text = "現金"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.Location = New System.Drawing.Point(565, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 974
+        Me.Label3.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(609, 3)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(107, 23)
+        Me.申請人_tb.TabIndex = 973
+        '
+        '營運成本收支單號_tb
+        '
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(433, 3)
+        Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
+        Me.營運成本收支單號_tb.Size = New System.Drawing.Size(130, 23)
+        Me.營運成本收支單號_tb.TabIndex = 971
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(377, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 972
+        Me.Label1.Text = "財務單號"
+        '
+        '單據作廢_bt
+        '
+        Me.單據作廢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.單據作廢_bt.ForeColor = System.Drawing.Color.Red
+        Me.單據作廢_bt.Location = New System.Drawing.Point(1191, 3)
+        Me.單據作廢_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.單據作廢_bt.Name = "單據作廢_bt"
+        Me.單據作廢_bt.Size = New System.Drawing.Size(80, 73)
+        Me.單據作廢_bt.TabIndex = 970
+        Me.單據作廢_bt.Text = "單據作廢"
+        Me.單據作廢_bt.UseVisualStyleBackColor = True
+        '
+        '審核通過_bt
+        '
+        Me.審核通過_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.審核通過_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.審核通過_bt.Location = New System.Drawing.Point(1110, 3)
+        Me.審核通過_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.審核通過_bt.Name = "審核通過_bt"
+        Me.審核通過_bt.Size = New System.Drawing.Size(80, 73)
+        Me.審核通過_bt.TabIndex = 969
+        Me.審核通過_bt.Text = "審核通過"
+        Me.審核通過_bt.UseVisualStyleBackColor = True
+        '
+        '作廢的營運成本收支單_rb
+        '
+        Me.作廢的營運成本收支單_rb.AutoSize = True
+        Me.作廢的營運成本收支單_rb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(167, 2)
+        Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
+        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(146, 20)
+        Me.作廢的營運成本收支單_rb.TabIndex = 967
+        Me.作廢的營運成本收支單_rb.TabStop = True
+        Me.作廢的營運成本收支單_rb.Text = "作廢的營運成本收支單"
+        Me.作廢的營運成本收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的營運成本收支單_rb
+        '
+        Me.未核准的營運成本收支單_rb.AutoSize = True
+        Me.未核准的營運成本收支單_rb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.未核准的營運成本收支單_rb.Location = New System.Drawing.Point(3, 2)
+        Me.未核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未核准的營運成本收支單_rb.Name = "未核准的營運成本收支單_rb"
+        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
+        Me.未核准的營運成本收支單_rb.TabIndex = 966
+        Me.未核准的營運成本收支單_rb.TabStop = True
+        Me.未核准的營運成本收支單_rb.Text = "未核准的營運成本收支單"
+        Me.未核准的營運成本收支單_rb.UseVisualStyleBackColor = True
+        '
+        '彙總_dgv
+        '
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        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(5, 22)
+        Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.彙總_dgv.Name = "彙總_dgv"
+        Me.彙總_dgv.RowHeadersWidth = 5
+        Me.彙總_dgv.RowTemplate.Height = 24
+        Me.彙總_dgv.Size = New System.Drawing.Size(367, 479)
+        Me.彙總_dgv.TabIndex = 965
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(119, 6)
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem, Me.ToolStripSeparator6, Me.審核通過ToolStripMenuItem, Me.單據作廢ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 76)
+        '
+        '審核通過ToolStripMenuItem
+        '
+        Me.審核通過ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.審核通過ToolStripMenuItem.Name = "審核通過ToolStripMenuItem"
+        Me.審核通過ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.審核通過ToolStripMenuItem.Text = "審核通過"
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, 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(916, 7)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.TabIndex = 1499
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(972, 4)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        Me.字體_NUD.TabIndex = 1498
+        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
+        '
+        '明細_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            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(381, 76)
+        Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(896, 520)
+        Me.明細_dgv.TabIndex = 968
+        '
+        '備註_tb
+        '
+        Me.備註_tb.Location = New System.Drawing.Point(432, 53)
+        Me.備註_tb.Multiline = True
+        Me.備註_tb.Name = "備註_tb"
+        Me.備註_tb.Size = New System.Drawing.Size(445, 22)
+        Me.備註_tb.TabIndex = 1500
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(377, 56)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.TabIndex = 1501
+        Me.Label4.Text = "作廢原因"
+        '
+        '批量審核_bt
+        '
+        Me.批量審核_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.批量審核_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.批量審核_bt.Location = New System.Drawing.Point(1028, 3)
+        Me.批量審核_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.批量審核_bt.Name = "批量審核_bt"
+        Me.批量審核_bt.Size = New System.Drawing.Size(80, 73)
+        Me.批量審核_bt.TabIndex = 1502
+        Me.批量審核_bt.Text = "批量審核"
+        Me.批量審核_bt.UseVisualStyleBackColor = True
+        '
+        '簽名圖_pb
+        '
+        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.簽名圖_pb.Location = New System.Drawing.Point(196, 528)
+        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
+        Me.簽名圖_pb.Name = "簽名圖_pb"
+        Me.簽名圖_pb.Size = New System.Drawing.Size(176, 70)
+        Me.簽名圖_pb.TabIndex = 989
+        Me.簽名圖_pb.TabStop = False
+        '
+        '營運成本收支單審核
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1276, 603)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.批量審核_bt)
+        Me.Controls.Add(Me.備註_tb)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.圖片編碼_tb)
+        Me.Controls.Add(Me.驗證碼_tb)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.簽名清單_dgv)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.現金餘額_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.非當天日期_ch)
+        Me.Controls.Add(Me.審核日期_dtp)
+        Me.Controls.Add(Me.支票_tb)
+        Me.Controls.Add(Me.簽名圖_pb)
+        Me.Controls.Add(Me.現金_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.營運成本收支單號_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.單據作廢_bt)
+        Me.Controls.Add(Me.審核通過_bt)
+        Me.Controls.Add(Me.作廢的營運成本收支單_rb)
+        Me.Controls.Add(Me.未核准的營運成本收支單_rb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label11)
+        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 = "營運成本收支單審核"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
+        Me.Text = "營運成本收支單審核"
+        CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 圖片編碼_tb As TextBox
+    Friend WithEvents 驗證碼_tb As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents Label19 As Label
+    Friend WithEvents 簽名清單_dgv As DataGridView
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 現金餘額_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 非當天日期_ch As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 審核日期_dtp As DateTimePicker
+    Friend WithEvents 支票_tb As TextBox
+    Friend WithEvents 單據作廢ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 簽名圖_pb As PictureBox
+    Friend WithEvents 現金_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 營運成本收支單號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 單據作廢_bt As Button
+    Friend WithEvents 審核通過_bt As Button
+    Friend WithEvents 作廢的營運成本收支單_rb As RadioButton
+    Friend WithEvents 未核准的營運成本收支單_rb As RadioButton
+    Friend WithEvents 彙總_dgv As DataGridView
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 審核通過ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 字體大小調整_lb As Label
+    Friend WithEvents 字體_NUD As NumericUpDown
+    Friend WithEvents 明細_dgv As DataGridView
+    Friend WithEvents 備註_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 批量審核_bt As Button
+End Class

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

@@ -0,0 +1,126 @@
+<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 5</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>47</value>
+  </metadata>
+</root>

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

@@ -0,0 +1,297 @@
+Option Strict Off
+Public Class 營運成本收支單審核
+    ReadOnly ds, ds1, ds2 As New DataSet
+    'Dim dr As SqlDataReader
+    Private ReadOnly QQW(11) As String
+    Dim WWEE As String : Private II As Integer
+    Private Sub Set_清單1()
+        彙總_dgv.DataSource = Nothing : ds1.Clear()
+        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總_dgv.ColumnHeadersHeight = 25
+        彙總_dgv.AllowUserToAddRows = False
+        彙總_dgv.RowTemplate.Height = 30
+
+        If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False Then
+            SQL_營運成本收支單審核_審核人1()
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True Then
+            SQL_營運成本收支單審核_審核人2()
+        End If
+        SQL_營運成本收支單審核_查詢收支單審核()
+        da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        彙總_dgv.Columns(0).FillWeight = 160 : 彙總_dgv.Columns(1).FillWeight = 100 : 彙總_dgv.Columns(2).FillWeight = 100 : 彙總_dgv.Columns(3).Visible = False
+        彙總_dgv.Columns(4).Visible = False
+    End Sub
+    Private Sub Set_費用清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+        SQL_營運成本收支單審核_查詢費用清單() : da.SelectCommand = cmd : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False
+
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
+
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            現金_tb.Text = Val(現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value : 支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+        Next i
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
+    End Sub
+    Private Sub Set_清單()
+        簽名清單_dgv.DataSource = Nothing : ds2.Clear()
+        簽名清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簽名清單_dgv.ColumnHeadersHeight = 25
+        簽名清單_dgv.AllowUserToAddRows = False
+        簽名清單_dgv.RowTemplate.Height = 23
+        SQL_營運成本收支單審核_查詢圖片流水號() : da.Fill(ds2) : 簽名清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        簽名清單_dgv.Columns(0).FillWeight = 173 : 簽名清單_dgv.Columns(1).Visible = False
+        If 簽名清單_dgv.Rows.Count = 0 Then : Else
+            圖片編碼_tb.Text = 簽名清單_dgv(0, 0).Value.ToString
+            SQL_營運成本收支單審核_查詢簽名檔圖片()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                簽名圖_pb.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            簽名圖_pb.SizeMode = 4
+            For QAZ = 0 To 999
+                QQW(0) = Strings.Right(簽名清單_dgv(0, 0).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
+                For RT = 4 To 11
+                    Delay(3)
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
+                Next
+
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
+
+                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
+
+                SQL_營運成本收支單審核_查詢簽名編碼()
+                If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
+            Next
+        End If
+    End Sub
+    Private Sub 轉換()
+        If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"
+        ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"
+        ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J"
+        End If
+    End Sub
+    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
+        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
+    End Sub
+    Private Sub 營運成本收支單審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        未核准的營運成本收支單_rb.Checked = True
+        Set_清單1() : Set_清單()
+
+        If CC(49) = False Then : 批量審核_bt.Enabled = False : End If
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
+    End Sub
+    Private Sub 營運成本收支單審核_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 8
+        End If
+    End Sub
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            營運成本收支單號_tb.Text = 彙總_dgv(0, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 彙總_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 彙總_dgv(3, e.RowIndex).Value.ToString : 備註_tb.Text = 彙總_dgv(4, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            圖片編碼_tb.Text = 簽名清單_dgv(0, e.RowIndex).Value.ToString
+            SQL_營運成本收支單審核_查詢簽名檔圖片()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                簽名圖_pb.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            簽名圖_pb.SizeMode = 4
+            For QAZ = 0 To 999
+                QQW(0) = Strings.Right(簽名清單_dgv(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
+                For RT = 4 To 11
+                    Delay(3)
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
+                Next
+
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
+
+                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
+
+                SQL_營運成本收支單審核_查詢簽名編碼()
+                If dr.Read() Then : Else : QAZ = 999 : End If : conn.Close()
+            Next
+        End If
+    End Sub
+    Private Sub Set_切換格式()
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : Set_清單1()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
+        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
+        審核通過_bt.Enabled = True : 單據作廢_bt.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
+        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
+        審核通過_bt.Enabled = False : 單據作廢_bt.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd")
+    End Sub
+    Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
+        If 營運成本收支單號_tb.Text = "" Then
+            MsgBox("請選擇需要審核的單據。")
+        Else
+            If 非當天日期_ch.Checked = False Then
+                Set_日期格式轉換()
+            Else
+                DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
+            End If
+            conn.Close()
+
+            If gUserName = "呂苡瑄" Then : PA = gUserName
+            Else : PA = "呂宜嫺" : End If
+
+            SQL_營運成本收支單審核_修改公帳控制表()
+            SQL_營運成本收支單審核_修改公帳流水帳() : conn.Close()
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+                PA1 = 明細_dgv.Rows(i).Cells("項次").Value
+                If 明細_dgv.Rows(i).Cells("零用金").Value <> 0 Then
+                    SQL_營運成本收支單審核_修改公帳流水帳備用金() : conn.Close()
+                ElseIf 明細_dgv.Rows(i).Cells("現金").Value <> 0 Then
+                    SQL_營運成本收支單審核_修改公帳流水帳現金() : conn.Close()
+                ElseIf 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then
+                    SQL_營運成本收支單審核_修改公帳流水帳支出() : conn.Close()
+                End If
+            Next
+            MsgBox("審核完畢。")
+            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+            明細_dgv.DataSource = Nothing : ds.Clear()
+            Set_清單1() : Set_清單()
+        End If
+    End Sub
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 營運成本收支單號_tb.Text = "" Then
+            MsgBox("請選擇需要審核的單據。")
+        Else
+            PA = InputBox("請輸入作廢原因。")
+            If PA = "" Then
+                MsgBox("請輸入作廢原因,不可空白。")
+            Else
+                If 非當天日期_ch.Checked = False Then
+                    Set_日期格式轉換()
+                Else
+                    DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
+                End If
+                conn.Close()
+                SQL_營運成本收支單審核_審核人3() : conn.Close()
+                MsgBox("審核完畢。")
+                PA = ""
+                營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+                明細_dgv.DataSource = Nothing : ds.Clear()
+                Set_清單1()
+            End If
+        End If
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        簽名清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+    Private Sub 批量審核_bt_Click_1(sender As Object, e As EventArgs) Handles 批量審核_bt.Click
+        Dim NN1 As Integer = 0 : 資料數 = 彙總_dgv.Rows.Count
+        For I As Integer = 0 To 彙總_dgv.Rows.Count - 1
+            MyModule1.進度條()
+            NN1 += 1
+            營運成本收支單號_tb.Text = 彙總_dgv(0, I).Value.ToString : 審核日期_dtp.Value = 彙總_dgv(1, I).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 彙總_dgv(3, I).Value.ToString : 備註_tb.Text = 彙總_dgv(4, I).Value.ToString
+
+            If 營運成本收支單號_tb.Text = "" Then
+                MsgBox("請選擇需要審核的單據。")
+            Else
+                If 非當天日期_ch.Checked = False Then
+                    Set_日期格式轉換()
+                Else
+                    DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
+                End If
+                conn.Close()
+
+                If gUserName = "呂苡瑄" Then : PA = gUserName
+                Else : PA = "呂宜嫺" : End If
+
+                SQL_營運成本收支單審核_修改公帳控制表()
+                SQL_營運成本收支單審核_修改公帳流水帳() : conn.Close()
+                For ii As Integer = 0 To 明細_dgv.Rows.Count - 1
+                    PA1 = 明細_dgv.Rows(ii).Cells("項次").Value
+                    If 明細_dgv.Rows(ii).Cells("零用金").Value <> 0 Then
+                        SQL_營運成本收支單審核_修改公帳流水帳備用金() : conn.Close()
+                    ElseIf 明細_dgv.Rows(ii).Cells("現金").Value <> 0 Then
+                        SQL_營運成本收支單審核_修改公帳流水帳現金() : conn.Close()
+                    ElseIf 明細_dgv.Rows(ii).Cells("支出").Value <> 0 Then
+                        SQL_營運成本收支單審核_修改公帳流水帳支出() : conn.Close()
+                    End If
+                Next
+                營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+                明細_dgv.DataSource = Nothing : ds.Clear()
+                Set_清單()
+            End If
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+        Set_清單1() : MsgBox("審核完畢，共自動審核了 [ " & NN1 & " ] 筆財務收支單。")
+    End Sub
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1()
+    End Sub
+    Private Sub 審核通過ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 審核通過ToolStripMenuItem.Click
+        Me.審核通過_bt.PerformClick()
+    End Sub
+    Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
+        Me.單據作廢_bt.PerformClick()
+    End Sub
+End Class

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

@@ -0,0 +1,783 @@
+<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 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.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.複製歷史單據重新開立_bt = New System.Windows.Forms.Button()
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.已核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.現金餘額_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.補單_cb = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.現金_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.資料尚未存檔_lb = New System.Windows.Forms.Label()
+        Me.選擇項次_tb = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.作廢的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.營運收支單_dgv = New System.Windows.Forms.DataGridView()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.申請_bt = New System.Windows.Forms.Button()
+        Me.開立營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.刪除選中的營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.刪除選中的一筆資料_bt = New System.Windows.Forms.Button()
+        Me.收支單中新增一筆空白資料_bt = New System.Windows.Forms.Button()
+        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()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(699, 373)
+        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 = 941
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(699, 342)
+        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 = 940
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金"})
+        Me.幣別_cb.Location = New System.Drawing.Point(964, 79)
+        Me.幣別_cb.Name = "幣別_cb"
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
+        Me.幣別_cb.TabIndex = 939
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        Me.ComboBox6.Location = New System.Drawing.Point(699, 310)
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox6.Name = "ComboBox6"
+        Me.ComboBox6.Size = New System.Drawing.Size(175, 24)
+        Me.ComboBox6.TabIndex = 937
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        Me.ComboBox4.Location = New System.Drawing.Point(692, 79)
+        Me.ComboBox4.Name = "ComboBox4"
+        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
+        Me.ComboBox4.TabIndex = 935
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(568, 79)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(121, 24)
+        Me.ComboBox3.TabIndex = 934
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Location = New System.Drawing.Point(504, 79)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(61, 24)
+        Me.ComboBox2.TabIndex = 933
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        Me.ComboBox5.Location = New System.Drawing.Point(380, 79)
+        Me.ComboBox5.Name = "ComboBox5"
+        Me.ComboBox5.Size = New System.Drawing.Size(121, 24)
+        Me.ComboBox5.TabIndex = 932
+        '
+        '複製歷史單據重新開立_bt
+        '
+        Me.複製歷史單據重新開立_bt.ForeColor = System.Drawing.Color.Green
+        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(1014, 22)
+        Me.複製歷史單據重新開立_bt.Name = "複製歷史單據重新開立_bt"
+        Me.複製歷史單據重新開立_bt.Size = New System.Drawing.Size(115, 25)
+        Me.複製歷史單據重新開立_bt.TabIndex = 931
+        Me.複製歷史單據重新開立_bt.Text = "複製歷史單據"
+        Me.複製歷史單據重新開立_bt.UseVisualStyleBackColor = True
+        '
+        '日期_dtp
+        '
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(697, 403)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(177, 23)
+        Me.日期_dtp.TabIndex = 930
+        '
+        '已核准的營運成本收支單_rb
+        '
+        Me.已核准的營運成本收支單_rb.AutoSize = True
+        Me.已核准的營運成本收支單_rb.Location = New System.Drawing.Point(9, 26)
+        Me.已核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.已核准的營運成本收支單_rb.Name = "已核准的營運成本收支單_rb"
+        Me.已核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
+        Me.已核准的營運成本收支單_rb.TabIndex = 929
+        Me.已核准的營運成本收支單_rb.TabStop = True
+        Me.已核准的營運成本收支單_rb.Text = "已核准的營運成本收支單"
+        Me.已核准的營運成本收支單_rb.UseVisualStyleBackColor = True
+        '
+        '支票_tb
+        '
+        Me.支票_tb.Location = New System.Drawing.Point(622, 110)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支票_tb.TabIndex = 928
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(590, 113)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 927
+        Me.Label11.Text = "支票"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Location = New System.Drawing.Point(498, 110)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_tb.TabIndex = 926
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(455, 113)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.TabIndex = 925
+        Me.Label10.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(993, 110)
+        Me.現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.現金餘額_tb.Name = "現金餘額_tb"
+        Me.現金餘額_tb.Size = New System.Drawing.Size(90, 23)
+        Me.現金餘額_tb.TabIndex = 924
+        Me.現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(961, 113)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 923
+        Me.Label9.Text = "合計"
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Location = New System.Drawing.Point(869, 110)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_tb.TabIndex = 922
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(838, 113)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 921
+        Me.Label5.Text = "支出"
+        '
+        '補單_cb
+        '
+        Me.補單_cb.AutoSize = True
+        Me.補單_cb.Checked = True
+        Me.補單_cb.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.補單_cb.Location = New System.Drawing.Point(739, 26)
+        Me.補單_cb.Name = "補單_cb"
+        Me.補單_cb.Size = New System.Drawing.Size(39, 20)
+        Me.補單_cb.TabIndex = 920
+        Me.補單_cb.Text = "補"
+        Me.補單_cb.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Blue
+        Me.Label4.Location = New System.Drawing.Point(613, 26)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 919
+        Me.Label4.Text = "日期"
+        '
+        '申請日期_dtp
+        '
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.申請日期_dtp.Location = New System.Drawing.Point(644, 23)
+        Me.申請日期_dtp.Name = "申請日期_dtp"
+        Me.申請日期_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.申請日期_dtp.TabIndex = 918
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(773, 79)
+        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 = 915
+        '
+        '現金_tb
+        '
+        Me.現金_tb.Location = New System.Drawing.Point(746, 110)
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.現金_tb.Name = "現金_tb"
+        Me.現金_tb.Size = New System.Drawing.Size(90, 23)
+        Me.現金_tb.TabIndex = 914
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(714, 113)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 913
+        Me.Label8.Text = "現金"
+        '
+        '資料尚未存檔_lb
+        '
+        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.資料尚未存檔_lb.ForeColor = System.Drawing.Color.Red
+        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(1136, 2)
+        Me.資料尚未存檔_lb.Name = "資料尚未存檔_lb"
+        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(113, 20)
+        Me.資料尚未存檔_lb.TabIndex = 912
+        Me.資料尚未存檔_lb.Text = "資  料  尚  未  存  檔"
+        Me.資料尚未存檔_lb.Visible = False
+        '
+        '選擇項次_tb
+        '
+        Me.選擇項次_tb.Location = New System.Drawing.Point(353, 110)
+        Me.選擇項次_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.選擇項次_tb.Name = "選擇項次_tb"
+        Me.選擇項次_tb.Size = New System.Drawing.Size(34, 23)
+        Me.選擇項次_tb.TabIndex = 911
+        Me.選擇項次_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(387, 114)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(44, 16)
+        Me.Label28.TabIndex = 910
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(322, 114)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(32, 16)
+        Me.Label27.TabIndex = 909
+        Me.Label27.Text = "選擇"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(501, 26)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 907
+        Me.Label3.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(545, 23)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(65, 23)
+        Me.申請人_tb.TabIndex = 906
+        Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '營運成本收支單號_tb
+        '
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(378, 23)
+        Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
+        Me.營運成本收支單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.營運成本收支單號_tb.TabIndex = 904
+        Me.營運成本收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(321, 27)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 905
+        Me.Label1.Text = "收支單號"
+        '
+        '作廢的營運成本收支單_rb
+        '
+        Me.作廢的營運成本收支單_rb.AutoSize = True
+        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(173, 3)
+        Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
+        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(146, 20)
+        Me.作廢的營運成本收支單_rb.TabIndex = 903
+        Me.作廢的營運成本收支單_rb.TabStop = True
+        Me.作廢的營運成本收支單_rb.Text = "作廢的營運成本收支單"
+        Me.作廢的營運成本收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的營運成本收支單_rb
+        '
+        Me.未核准的營運成本收支單_rb.AutoSize = True
+        Me.未核准的營運成本收支單_rb.ImageAlign = System.Drawing.ContentAlignment.BottomRight
+        Me.未核准的營運成本收支單_rb.Location = New System.Drawing.Point(9, 3)
+        Me.未核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未核准的營運成本收支單_rb.Name = "未核准的營運成本收支單_rb"
+        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
+        Me.未核准的營運成本收支單_rb.TabIndex = 902
+        Me.未核准的營運成本收支單_rb.TabStop = True
+        Me.未核准的營運成本收支單_rb.Text = "未核准的營運成本收支單"
+        Me.未核准的營運成本收支單_rb.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(322, 83)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 917
+        Me.Label2.Text = "會計科目"
+        '
+        '營運收支單_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), 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(4, 48)
+        Me.營運收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.營運收支單_dgv.Name = "營運收支單_dgv"
+        Me.營運收支單_dgv.RowHeadersWidth = 5
+        Me.營運收支單_dgv.RowTemplate.Height = 24
+        Me.營運收支單_dgv.Size = New System.Drawing.Size(315, 559)
+        Me.營運收支單_dgv.TabIndex = 901
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        '明細表_dgv
+        '
+        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)
+        Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細表_dgv.Location = New System.Drawing.Point(322, 136)
+        Me.明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細表_dgv.Name = "明細表_dgv"
+        Me.明細表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.明細表_dgv.RowTemplate.Height = 24
+        Me.明細表_dgv.Size = New System.Drawing.Size(927, 471)
+        Me.明細表_dgv.TabIndex = 908
+        '
+        '申請_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.Location = New System.Drawing.Point(1089, 109)
+        Me.申請_bt.Name = "申請_bt"
+        Me.申請_bt.Size = New System.Drawing.Size(160, 25)
+        Me.申請_bt.TabIndex = 942
+        Me.申請_bt.Text = "申請完成"
+        Me.申請_bt.UseVisualStyleBackColor = True
+        '
+        '開立營運成本收支單_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.Location = New System.Drawing.Point(896, 22)
+        Me.開立營運成本收支單_bt.Name = "開立營運成本收支單_bt"
+        Me.開立營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.開立營運成本收支單_bt.TabIndex = 943
+        Me.開立營運成本收支單_bt.Text = "開立財務收支單"
+        Me.開立營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        '刪除選中的營運成本收支單_bt
+        '
+        Me.刪除選中的營運成本收支單_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(1132, 22)
+        Me.刪除選中的營運成本收支單_bt.Name = "刪除選中的營運成本收支單_bt"
+        Me.刪除選中的營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.刪除選中的營運成本收支單_bt.TabIndex = 944
+        Me.刪除選中的營運成本收支單_bt.Text = "刪除選中的財務單"
+        Me.刪除選中的營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        '刪除選中的一筆資料_bt
+        '
+        Me.刪除選中的一筆資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的一筆資料_bt.Location = New System.Drawing.Point(1089, 78)
+        Me.刪除選中的一筆資料_bt.Name = "刪除選中的一筆資料_bt"
+        Me.刪除選中的一筆資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.刪除選中的一筆資料_bt.TabIndex = 946
+        Me.刪除選中的一筆資料_bt.Text = "刪除選中的一筆資料"
+        Me.刪除選中的一筆資料_bt.UseVisualStyleBackColor = True
+        '
+        '收支單中新增一筆空白資料_bt
+        '
+        Me.收支單中新增一筆空白資料_bt.ForeColor = System.Drawing.Color.Green
+        Me.收支單中新增一筆空白資料_bt.Location = New System.Drawing.Point(1089, 53)
+        Me.收支單中新增一筆空白資料_bt.Name = "收支單中新增一筆空白資料_bt"
+        Me.收支單中新增一筆空白資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.收支單中新增一筆空白資料_bt.TabIndex = 945
+        Me.收支單中新增一筆空白資料_bt.Text = "收支單中新增一筆空白資料"
+        Me.收支單中新增一筆空白資料_bt.UseVisualStyleBackColor = True
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(321, 37)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(873, 16)
+        Me.Label7.TabIndex = 948
+        Me.Label7.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(378, 37)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(873, 16)
+        Me.Label12.TabIndex = 949
+        Me.Label12.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        '字體大小調整_lb
+        '
+        Me.字體大小調整_lb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體大小調整_lb.AutoSize = True
+        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, 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(209, 25)
+        Me.字體大小調整_lb.Name = "字體大小調整_lb"
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.TabIndex = 1497
+        Me.字體大小調整_lb.Text = "字體調整"
+        '
+        '字體_NUD
+        '
+        Me.字體_NUD.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.字體_NUD.DecimalPlaces = 1
+        Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
+        Me.字體_NUD.Location = New System.Drawing.Point(267, 22)
+        Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
+        Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
+        Me.字體_NUD.Name = "字體_NUD"
+        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
+        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(969, 54)
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(115, 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(851, 58)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(121, 16)
+        Me.Label6.TabIndex = 947
+        Me.Label6.Text = "關鍵字查詢-會計科目"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label13.Location = New System.Drawing.Point(325, 56)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(219, 16)
+        Me.Label13.TabIndex = 1498
+        Me.Label13.Text = "2、選擇會計科目後再新增一筆空白資料"
+        '
+        'Label14
+        '
+        Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(379, 93)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(873, 16)
+        Me.Label14.TabIndex = 1500
+        Me.Label14.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(317, 93)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(873, 16)
+        Me.Label15.TabIndex = 1499
+        Me.Label15.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label16.Location = New System.Drawing.Point(325, 6)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(219, 16)
+        Me.Label16.TabIndex = 1501
+        Me.Label16.Text = "1、先開立財務收支單，在選會計科目。"
+        '
+        '營運成本收支單申請
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1254, 611)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.字體大小調整_lb)
+        Me.Controls.Add(Me.字體_NUD)
+        Me.Controls.Add(Me.刪除選中的一筆資料_bt)
+        Me.Controls.Add(Me.收支單中新增一筆空白資料_bt)
+        Me.Controls.Add(Me.刪除選中的營運成本收支單_bt)
+        Me.Controls.Add(Me.開立營運成本收支單_bt)
+        Me.Controls.Add(Me.申請_bt)
+        Me.Controls.Add(Me.美金匯率_tb)
+        Me.Controls.Add(Me.人民幣匯率_tb)
+        Me.Controls.Add(Me.幣別_cb)
+        Me.Controls.Add(Me.ComboBox6)
+        Me.Controls.Add(Me.關鍵字查詢會計科目_tb)
+        Me.Controls.Add(Me.ComboBox4)
+        Me.Controls.Add(Me.ComboBox3)
+        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.ComboBox5)
+        Me.Controls.Add(Me.複製歷史單據重新開立_bt)
+        Me.Controls.Add(Me.日期_dtp)
+        Me.Controls.Add(Me.已核准的營運成本收支單_rb)
+        Me.Controls.Add(Me.支票_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.現金餘額_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.補單_cb)
+        Me.Controls.Add(Me.申請日期_dtp)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.現金_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.選擇項次_tb)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.營運成本收支單號_tb)
+        Me.Controls.Add(Me.Label1)
+        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.Label14)
+        Me.Controls.Add(Me.資料尚未存檔_lb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label6)
+        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.Manual
+        Me.Text = "營運成本收支單申請"
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents ComboBox6 As ComboBox
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents 複製歷史單據重新開立_bt As Button
+    Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 已核准的營運成本收支單_rb As RadioButton
+    Friend WithEvents 支票_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 現金餘額_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 補單_cb As CheckBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 申請日期_dtp As DateTimePicker
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents 現金_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 資料尚未存檔_lb As Label
+    Friend WithEvents 選擇項次_tb As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 營運成本收支單號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 作廢的營運成本收支單_rb As RadioButton
+    Friend WithEvents 未核准的營運成本收支單_rb As RadioButton
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 營運收支單_dgv As DataGridView
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 明細表_dgv As DataGridView
+    Friend WithEvents 申請_bt As Button
+    Friend WithEvents 開立營運成本收支單_bt As Button
+    Friend WithEvents 刪除選中的營運成本收支單_bt As Button
+    Friend WithEvents 刪除選中的一筆資料_bt As Button
+    Friend WithEvents 收支單中新增一筆空白資料_bt As Button
+    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
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label16 As Label
+End Class

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

@@ -0,0 +1,135 @@
+<?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>271, 8</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>363, 8</value>
+  </metadata>
+  <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>528, 8</value>
+  </metadata>
+  <metadata name="BackgroundWorker2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>700, 8</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>28</value>
+  </metadata>
+</root>

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

@@ -0,0 +1,362 @@
+Option Strict Off
+Imports System.Data.SqlClient
+Public Class 營運成本收支單申請
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    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 = 30
+        營運收支單_dgv.RowTemplate.Height = 30
+
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
+        If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = False Then
+            SQL_營運成本收支單申請_審核人1()
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True And 已核准的營運成本收支單_rb.Checked = False Then
+            SQL_營運成本收支單申請_審核人2()
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = True Then
+            SQL_營運成本收支單申請_審核人3()
+        End If
+        SQL_營運成本收支單申請_查詢公帳控制表()
+        da.Fill(ds1) : 營運收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        營運收支單_dgv.Columns(0).FillWeight = 160 : 營運收支單_dgv.Columns(1).FillWeight = 100 : 營運收支單_dgv.Columns(2).FillWeight = 100 : 營運收支單_dgv.Columns(3).Visible = False
+    End Sub
+    Private Sub Set_費用清單()
+        明細表_dgv.DataSource = Nothing : ds.Clear()
+        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細表_dgv.ColumnHeadersHeight = 25
+        明細表_dgv.AllowUserToAddRows = False
+        明細表_dgv.RowTemplate.Height = 35
+        SQL_營運成本收支單申請_查詢費用清單() : da.Fill(ds) : 明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 80 : 明細表_dgv.Columns(2).FillWeight = 300 : 明細表_dgv.Columns(3).FillWeight = 500
+        明細表_dgv.Columns(4).FillWeight = 140 : 明細表_dgv.Columns(5).FillWeight = 140 : 明細表_dgv.Columns(6).FillWeight = 140 : 明細表_dgv.Columns(7).FillWeight = 140
+        明細表_dgv.Columns(8).FillWeight = 140 : 明細表_dgv.Columns(9).FillWeight = 140 : 明細表_dgv.Columns(10).FillWeight = 140 : 明細表_dgv.Columns(11).Visible = False
+        明細表_dgv.Columns(12).Visible = False
+
+        明細表_dgv.Columns(1).ReadOnly = True : 明細表_dgv.Columns(2).ReadOnly = True : 明細表_dgv.Columns(9).ReadOnly = True : 明細表_dgv.Columns(10).ReadOnly = True
+
+        明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
+        明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
+        現金_tb.Text = "0.00" : 支出_tb.Text = "0.00" : 現金餘額_tb.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            現金_tb.Text = Val(現金_tb.Text) + Val(明細表_dgv.Rows(i).Cells("現金").Value) : 支出_tb.Text = Val(支出_tb.Text) + Val(明細表_dgv.Rows(i).Cells("支出").Value)
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").Value
+        Next i
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
+    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 匯率()
+        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 Set_切換格式()
+        明細表_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
+        選擇項次_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
+    End Sub
+    Private Sub 營運成本收支單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        未核准的營運成本收支單_rb.Checked = True : 日期_dtp.Visible = False : 複製歷史單據重新開立_bt.Enabled = False : ComboBox6.Visible = False
+        營運收支單_dgv.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
+        匯率()
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
+    End Sub
+    Private Sub 營運成本收支單申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 8
+        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 關鍵字查詢會計科目_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字查詢會計科目_tb.TextChanged
+        conn.Close()
+        SQL_營運成本收支單申請_營運成本會計科目查詢() : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
+    End Sub
+    Private Sub 單一筆收支單_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 明細表_dgv.CellEndEdit
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            現金_tb.Text = Val(現金_tb.Text) + 明細表_dgv.Rows(i).Cells("現金").Value : 支出_tb.Text = Val(支出_tb.Text) + 明細表_dgv.Rows(i).Cells("支出").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").Value
+        Next i
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
+        Dim EU As String
+        EU = 明細表_dgv("票期", e.RowIndex).Value.ToString
+        If EU = "" Then
+        Else
+            日期_dtp.Text = EU
+            明細表_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(日期_dtp.Value, "yyyy/MM/dd")
+        End If
+
+    End Sub
+    Private Sub 營運收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 營運收支單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            營運成本收支單號_tb.Text = 營運收支單_dgv(0, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 營運收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 營運收支單_dgv(3, e.RowIndex).Value.ToString
+            Dim NUM1 As Integer = 0
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                PA17 = 明細表_dgv.Rows(i).Cells("項次").Value
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
+                明細表_dgv.Rows(i).Cells("項次").Value = 新項次
+            Next
+        End If
+    End Sub
+    Private Sub 單一筆收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            選擇項次_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString
+        End If
+    End Sub
+
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
+        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False
+        申請_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = False
+        開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
+        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
+        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False
+        申請_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = False
+        開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
+        刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
+    End Sub
+    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准的營運成本收支單_rb.Click
+        If CC(28) = False Then
+            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
+            申請_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = True
+            開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
+            刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
+        Else
+            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
+            申請_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = True
+            開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
+            刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
+        End If
+    End Sub
+    Private Sub 存檔()
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            資料數 = 明細表_dgv.Rows.Count : MyModule1.進度條()
+            PA1 = 明細表_dgv.Rows(i).Cells("用途").Value : PA2 = 明細表_dgv.Rows(i).Cells("支出").Value : PA3 = 明細表_dgv.Rows(i).Cells("票期").Value
+            PA4 = 明細表_dgv.Rows(i).Cells("類別").Value : PA5 = 明細表_dgv.Rows(i).Cells("現金").Value : PA6 = 明細表_dgv.Rows(i).Cells("零用金").Value
+            PA7 = 明細表_dgv.Rows(i).Cells("支票").Value : PA8 = 明細表_dgv.Rows(i).Cells("匯率").Value : PA9 = 明細表_dgv.Rows(i).Cells("項次").Value
+            BL1 = 明細表_dgv.Rows(i).Cells("含稅").Value : PA10 = 明細表_dgv.Rows(i).Cells("流水號").Value
+            SQL_會計科目管理_修改收支單申請表() : conn.Close()
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    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 複製歷史單據重新開立_bt_Click(sender As Object, e As EventArgs) Handles 複製歷史單據重新開立_bt.Click
+        開立零用金支付單()
+        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False : 作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
+        營運收支單_dgv.Enabled = False : 未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 申請_bt.Enabled = True
+        複製歷史單據重新開立_bt.Enabled = False : 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
+        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True
+        Set_清單1()
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            Set_流水號()
+            SQL_會計科目管理_開立零用金支付單()
+        Next
+        Set_費用清單() : MsgBox("複製單據開立完成。")
+    End Sub
+    Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged
+        匯率()
+    End Sub
+    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
+        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
+        開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
+        營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
+        存檔() : Set_清單1()
+        MsgBox("申請完成,請通知主管審核。")
+        明細表_dgv.DataSource = Nothing : ds.Clear()
+    End Sub
+
+    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
+        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
+            MsgBox("沒有選擇會計科目或幣別。")
+        Else
+            If 營運成本收支單號_tb.Text = "" Then
+                開立零用金支付單()
+            End If
+            Set_日期格式轉換() : Set_流水號()
+            存檔() : PA = 營運成本收支單號_tb.Text
+            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號() : PA = ""
+            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
+            NUM1 = Double.Parse(新項次) + 1
+            If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
+            If 幣別_cb.Text = "台幣現金" Then
+                匯率1 = 1
+            ElseIf 幣別_cb.Text = "人民幣現金" Then
+                匯率1 = 人民幣匯率_tb.Text
+            ElseIf 幣別_cb.Text = "美金" Then
+                匯率1 = 美金匯率_tb.Text
+            End If
+            PA16 = 匯率1
+            PA15 = 新項次
+            SQL_營運成本收支單申請_新增公帳流水帳資料() : conn.Close()
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
+        If 選擇項次_tb.Text = "" Then
+            MsgBox("未選擇需要刪除的資料。")
+        Else
+            存檔()
+            SQL_營運成本收支單申請_刪除公帳流水帳支付單號() : conn.Close()
+            Set_費用清單()
+            Dim NUM1 As Integer = 0
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                PA17 = 明細表_dgv.Rows(i).Cells("項次").Value
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
+                PA18 = 新項次
+                SQL_營運成本收支單申請_修改公帳流水帳支付單號() : conn.Close()
+            Next
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
+        明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+        營運收支單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
+    End Sub
+    Private Sub Set_日期格式轉換()
+        If 補單_cb.Checked = False Then
+            DTP4 = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+        Else
+            DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP4 = Format(申請日期_dtp.Value, "yyyy/MM/dd")
+        End If
+    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()
+        申請人_tb.Text = gUserName
+        Set_清單1() : PA = ""
+    End Sub
+    Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
+        開立零用金支付單()
+        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False
+        作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
+        營運收支單_dgv.Enabled = False
+        明細表_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
+        現金_tb.Text = "" : 現金餘額_tb.Text = ""
+        Set_清單1()
+    End Sub
+    Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
+        Dim aa As MsgBoxResult
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            SQL_營運成本收支單申請_刪除公帳控制表() : conn.Close()
+            SQL_營運成本收支單申請_刪除公帳流水帳() : conn.Close()
+            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 選擇項次_tb.Text = ""
+            明細表_dgv.DataSource = Nothing : ds.Clear()
+            Set_清單1()
+        End If
+    End Sub
+
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1()
+    End Sub
+End Class