20230722備份

GA-ERP-SYS/GA-ERP-SYS.vb

                 PA1 = 商品(I) : PA2 = 系統(I) : PA3 = 層級(I) : PA4 = 網址(I) : SQL_網址同步2_寫入()
             Next
         End If
+
         BL1 = True : BL2 = True : BL3 = True : BL4 = True : BL5 = True : BL6 = True : BL7 = True : BL8 = True : BL9 = True
         SQL_帳務總累預設()
 
         If 剩餘天數 <= 10 Then : MsgBox("您的使用天數還有 " & 剩餘天數 & " 天，請記得續費!!") : End If
         Timer3.Enabled = True
+
+        '--------新帳號基本資料新增---------------------------------------------------------------------------------------------------
+        SQL_上行清單讀取() : If dr.Read() Then : Else : SQL_基數資料表_新增() : End If
+        SQL_自動正負反() : If dr.Read() Then : Else : SQL_SQL_自動導入判斷_新增() : End If
+        SQL_下拉資料清單讀取() : If dr.Read() Then : Else : SQL_SQL_自動導入判斷_新增() : End If
     End Sub
     Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
         If 系統公告 Is Nothing OrElse 系統公告.IsDisposed Then : Else : 系統公告.BringToFront() : End If
         MyModule1.驗證單一登入() : PA = "" : 後台股東紅利設定.Show() : 後台股東紅利設定.BringToFront()
     End Sub
     Private Sub 後台帳務彙總計算表_tsm_Click(sender As Object, e As EventArgs) Handles 後台帳務彙總計算表_tsm.Click
-        後台帳務彙總結算表.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60)
+        視窗減項 = 38 : 後台帳務彙總結算表.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 視窗減項)
         MyModule1.驗證單一登入() : PA = "" : 後台帳務彙總結算表.Show() : 後台帳務彙總結算表.BringToFront()
     End Sub
     Private Sub 後台帳務明細查詢表_tsm_Click(sender As Object, e As EventArgs) Handles 後台帳務明細查詢表_tsm.Click

GA-ERP-SYS/GA-ERP-SYS.vbproj

     <Reference Include="itextsharp">
       <HintPath>Module\itextsharp.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.IO.RecyclableMemoryStream, Version=1.4.1.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.IO.RecyclableMemoryStream.1.4.1\lib\net46\Microsoft.IO.RecyclableMemoryStream.dll</HintPath>
+    </Reference>
+    <Reference Include="PresentationCore" />
     <Reference Include="System" />
+    <Reference Include="System.configuration" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Management" />
+    <Reference Include="System.Security" />
+    <Reference Include="System.Threading.Tasks" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />

GA-ERP-SYS/Module/SQL_子系統管理.vb

         CmdSet_For_dr()
     End Sub
     '--------------------------基本資料管理---------------------------------------------------------------------------------------------------------------------------------------------------
+
     Friend Sub SQL_自動正負反()
         ConnOpen_子SQL() : SQL1 = "SELECT 自動, 依電板, 依球板 FROM 自動導入判斷" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_基數資料表()
         ConnOpen_子SQL() : SQL1 = "SELECT 基數 FROM 基數資料表 ORDER BY 基數" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_基數資料表_新增()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 基數資料表 (基數) VALUES ('會員'), ('代理'), ('總代理'), ('股東'), ('大股東'), ('上缴金额'), ('總監')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_長短板資料表()
         ConnOpen_子SQL() : SQL1 = "SELECT 資料 FROM 長短版資料表 ORDER BY 資料" : CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_長短板資料表_新增()
+        ConnOpen_子SQL()
+        SQL1 = "INSERT INTO 長短版資料表 (資料) 
+                VALUES ('短版(會員)'), ('短版(代理)'), ('短版(總代理)'), ('短版(股東)'), ('短版(大股東)'), ('短版(總監)'), 
+                       ('長板(會員)'), ('長板(代理)'), ('長板(總代理)'), ('長板(股東)'), ('長板(大股東)'), ('長板(總監)')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_基本資料_客戶下資料表()
         ConnOpen_子SQL()
         SQL1 = "SELECT     商品資料表.商品, 下行客戶.網址, 下行客戶.帳號 AS 老闆帳號, 下行客戶.客戶下 AS 客戶帳號, 
     Friend Sub SQL_SQL_自動導入判斷_開啟()
         ConnOpen_子SQL() : SQL1 = "UPDATE 自動導入判斷 Set 正在自動導入中 = N'YES'" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_SQL_自動導入判斷_新增()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO 自動導入判斷 (正在自動導入中, 自動, 依電板, 依球板) VALUES (N'NO', '0', '0')" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_LOG_刪除1()
         ConnOpen_子SQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 LIKE N'" & PA1 & "-" & PA2 & "'" : CmdSet_For_dr()
     End Sub

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

     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean
-    Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30 : Public 剩餘天數 As Integer
+    Public timeExit, timeExit2, timeNow, timeNow2 As Integer : Public 密碼時限 As Integer = 30 : Public 剩餘天數, 視窗減項 As Integer
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 設定異常表0, 設定異常表1, 設定異常表2, 進度條後墜, 網址01, 主帳號01, 天周月, 開始D, 結束D, 表頭(3), 公告項目 As String
     Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9, NN10 As Integer

GA-ERP-SYS/bin/Debug/debug.log

 
 [0617/213220.324:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
 [0617/213234.227:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0717/135228.863:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/135234.667:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/135236.536:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/135419.402:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/135421.830:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/135423.699:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/135436.289:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/150145.792:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/150148.349:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/150150.179:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/150205.027:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/151813.231:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/151815.708:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/151817.907:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/151830.851:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/152344.368:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/152345.642:ERROR:block_files.cc(448)] Failed to open GPUCache\data_1
+[0717/152345.675:ERROR:cache_util_win.cc(20)] Unable to move the cache: ¦s¨ú³Q©Ú¡C (0x5)
+[0717/152345.679:ERROR:disk_cache.cc(205)] Unable to create cache
+[0717/152345.680:ERROR:gpu_disk_cache.cc(673)] Gpu Cache Creation failed: -2
+[0717/152346.835:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/152348.671:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/152401.977:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/152827.901:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/152830.444:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/152831.607:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/152844.923:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/154118.523:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/154121.188:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/154123.023:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/154138.177:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/164131.760:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/164134.400:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/164136.442:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/164150.195:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/172007.516:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/172008.828:ERROR:block_files.cc(448)] Failed to open GPUCache\data_3
+[0717/172010.084:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/172012.046:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/172026.270:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/174524.657:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/174527.335:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/174529.690:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/174542.238:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/175201.168:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/175203.766:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/175205.999:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/175219.850:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/180503.267:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/180505.732:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/180507.589:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/180520.746:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/180901.098:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0717/211135.395:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/211137.268:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/211138.879:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/211151.918:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/211712.901:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/211714.338:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/211716.048:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/211727.334:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/213655.977:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/213657.333:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/213659.193:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/213710.504:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/213851.620:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/213854.798:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/213855.718:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/213906.307:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/214209.565:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/214214.805:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/214216.326:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/214227.063:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/215242.329:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/215243.682:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/215245.400:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/215256.414:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/215727.703:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/215729.199:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/215730.054:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/215741.537:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/220912.291:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/220919.250:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/220921.267:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/220931.125:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/221841.440:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/221847.192:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/221849.682:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/221858.682:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/224109.039:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0717/224112.738:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0717/224113.519:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0717/224124.553:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/170452.431:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/170501.985:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/170505.450:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/183715.317:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/183724.228:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/183726.001:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/184332.876:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/184336.165:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/184337.849:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/185702.256:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0720/185938.033:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/185939.434:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/185941.000:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/185951.649:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/190412.076:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/190413.280:ERROR:block_files.cc(448)] Failed to open GPUCache\data_3
+[0720/190413.426:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/190414.332:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/190425.878:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/205050.264:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/205100.282:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/205108.281:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/215621.408:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/215628.553:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/215630.786:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/215803.565:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/215806.224:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/215808.096:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/223052.182:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/223054.379:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/223055.445:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/223111.857:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/223217.008:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/223220.322:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/223221.631:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/224956.936:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/224958.483:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/225000.645:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/225013.580:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0720/225420.504:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0720/225423.281:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0720/225424.719:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/000146.934:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/000158.915:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/000201.094:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/000559.960:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/000602.620:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/000603.769:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/000800.896:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0721/003407.073:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/003408.581:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/003410.594:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/003425.179:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/120945.276:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/120953.307:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/120955.211:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/121006.226:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/140037.954:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/140040.775:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/140042.626:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/140058.598:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/143447.245:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/143450.785:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/143453.140:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/143512.136:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/162543.570:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/162546.436:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/162547.557:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/162601.862:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/195015.753:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/195022.534:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/195024.297:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/195157.350:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0721/195209.721:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0721/195211.240:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0721/195212.519:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0721/195223.479:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)

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

-f6e9a247a032dfaf51e9a3e2ee0fa2107d0fa3f8
+4763b4c73e467b05d5d06bf3b61254378640d3e8

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

 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\Microsoft.IO.RecyclableMemoryStream.dll
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\Microsoft.IO.RecyclableMemoryStream.xml

GA-ERP-SYS/packages.config

   <package id="CefSharp.Common" version="113.1.40" targetFramework="net48" />
   <package id="CefSharp.WinForms" version="113.1.40" targetFramework="net48" />
   <package id="DocumentFormat.OpenXml" version="2.13.0" targetFramework="net45" />
+  <package id="Microsoft.IO.RecyclableMemoryStream" version="1.4.1" targetFramework="net48" />
 </packages>

GA-ERP-SYS/基本資料管理/前台/電板基本資料.vb

                             SQL_商品寫入() : PA1 = "" : PA = "" : PA16 = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : MsgBox("新增完成!!")
                             新增1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True : 備用網址_tb.Enabled = False
                             系統_cb.Enabled = True : GroupBox7.Enabled = True : GroupBox5.Enabled = True
+
+                            存檔_bt.Enabled = False : 取消_bt.Enabled = False
+                            備用365寫入_bt.Enabled = False
                         End If
                     End If
                 End If
                 PA1 = "" : PA = "" : PA16 = "" : Set_商品清單() : Set_商品下拉讀取() : Set_客戶下清單() : Set_商客清單() : MsgBox("儲存完成!!")
                 修正1_bt.Enabled = True : 商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 商品_dgv.Enabled = True : 備用網址_tb.Enabled = False
                 系統_cb.Enabled = True : GroupBox7.Enabled = True : GroupBox5.Enabled = True
+
+                存檔_bt.Enabled = False : 取消_bt.Enabled = False
+                備用365寫入_bt.Enabled = False
             Else
                 MsgBox("請先確定您要新增還是修改，再來按儲存!!!!")
             End If
         End If
-        存檔_bt.Enabled = False : 取消_bt.Enabled = False
-        備用365寫入_bt.Enabled = False
+
     End Sub
     Private Sub 取消_bt_Click(sender As Object, e As EventArgs) Handles 取消_bt.Click
         編號_tb.Text = "" : 商品_tb.Text = "" : 網址2_tb.Text = "" : 備用網址_tb.Text = "" : 存檔_bt.Enabled = False : 備用365寫入_bt.Enabled = False

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb

         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 DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.資料_cb = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.所得名_dgv = New System.Windows.Forms.DataGridView()
         Me.水差名_dgv = New System.Windows.Forms.DataGridView()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.紙帳總表_dgv = New System.Windows.Forms.DataGridView()
         Me.水差名1_dgv = New System.Windows.Forms.DataGridView()
         Me.紅利分表_dgv = New System.Windows.Forms.DataGridView()
         Me.所得名1_dgv = New System.Windows.Forms.DataGridView()
         Me.Label56 = New System.Windows.Forms.Label()
         Me.CanceL4_bt = New System.Windows.Forms.Button()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.EXB4 = New System.Windows.Forms.ComboBox()
+        Me.EXB3 = New System.Windows.Forms.ComboBox()
+        Me.EXB2 = New System.Windows.Forms.ComboBox()
+        Me.EXB1 = New System.Windows.Forms.ComboBox()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.Label35 = New System.Windows.Forms.Label()
+        Me.EXA4 = New System.Windows.Forms.ComboBox()
+        Me.EXA3 = New System.Windows.Forms.ComboBox()
+        Me.EXA2 = New System.Windows.Forms.ComboBox()
+        Me.EXA1 = New System.Windows.Forms.ComboBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.EX4 = New System.Windows.Forms.TextBox()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.EX3 = New System.Windows.Forms.TextBox()
+        Me.Label26 = New System.Windows.Forms.Label()
+        Me.EX2 = New System.Windows.Forms.TextBox()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.EX1 = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.導出到EXCEL_bt = New System.Windows.Forms.Button()
         Me.紙帳計算_bt = New System.Windows.Forms.Button()
         Me.自動調整存檔_bt = New System.Windows.Forms.Button()
         Me.依球版習慣_ch = New System.Windows.Forms.CheckBox()
         Me.股東紅利設定_bt = New System.Windows.Forms.Button()
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.Label36 = New System.Windows.Forms.Label()
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
         Me.Label23 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.紙帳總表_dgv = New System.Windows.Forms.DataGridView()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.所得名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.水差名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.水差名1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紅利分表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.所得名1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer4.Panel2.SuspendLayout()
         Me.SplitContainer4.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '流水帳_dgv
         Me.Panel1.Size = New System.Drawing.Size(737, 913)
         Me.Panel1.TabIndex = 1681
         '
+        '紙帳總表_dgv
+        '
+        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
+        Me.紙帳總表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.紙帳總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.紙帳總表_dgv.Location = New System.Drawing.Point(524, 337)
+        Me.紙帳總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.紙帳總表_dgv.Name = "紙帳總表_dgv"
+        Me.紙帳總表_dgv.RowHeadersWidth = 4
+        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.紙帳總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
+        Me.紙帳總表_dgv.RowTemplate.Height = 24
+        Me.紙帳總表_dgv.Size = New System.Drawing.Size(210, 107)
+        Me.紙帳總表_dgv.TabIndex = 1685
+        '
         '水差名1_dgv
         '
         Me.水差名1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.視窗4_pl.Controls.Add(Me.Panel4)
         Me.視窗4_pl.Location = New System.Drawing.Point(190, 214)
         Me.視窗4_pl.Name = "視窗4_pl"
-        Me.視窗4_pl.Size = New System.Drawing.Size(396, 159)
+        Me.視窗4_pl.Size = New System.Drawing.Size(396, 367)
         Me.視窗4_pl.TabIndex = 1715
         '
         'Label56
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel4.Controls.Add(Me.EXB4)
+        Me.Panel4.Controls.Add(Me.EXB3)
+        Me.Panel4.Controls.Add(Me.EXB2)
+        Me.Panel4.Controls.Add(Me.EXB1)
+        Me.Panel4.Controls.Add(Me.Label32)
+        Me.Panel4.Controls.Add(Me.Label33)
+        Me.Panel4.Controls.Add(Me.Label34)
+        Me.Panel4.Controls.Add(Me.Label35)
+        Me.Panel4.Controls.Add(Me.EXA4)
+        Me.Panel4.Controls.Add(Me.EXA3)
+        Me.Panel4.Controls.Add(Me.EXA2)
+        Me.Panel4.Controls.Add(Me.EXA1)
+        Me.Panel4.Controls.Add(Me.Label28)
+        Me.Panel4.Controls.Add(Me.Label29)
+        Me.Panel4.Controls.Add(Me.Label30)
+        Me.Panel4.Controls.Add(Me.Label31)
+        Me.Panel4.Controls.Add(Me.EX4)
+        Me.Panel4.Controls.Add(Me.Label27)
+        Me.Panel4.Controls.Add(Me.EX3)
+        Me.Panel4.Controls.Add(Me.Label26)
+        Me.Panel4.Controls.Add(Me.EX2)
+        Me.Panel4.Controls.Add(Me.Label25)
+        Me.Panel4.Controls.Add(Me.EX1)
+        Me.Panel4.Controls.Add(Me.Label24)
+        Me.Panel4.Controls.Add(Me.導出到EXCEL_bt)
         Me.Panel4.Controls.Add(Me.紙帳計算_bt)
         Me.Panel4.Controls.Add(Me.自動調整存檔_bt)
         Me.Panel4.Controls.Add(Me.依球版習慣_ch)
         Me.Panel4.Controls.Add(Me.股東紅利設定_bt)
         Me.Panel4.Controls.Add(Me.核帳0_tb)
         Me.Panel4.Controls.Add(Me.Label20)
+        Me.Panel4.Controls.Add(Me.Label21)
+        Me.Panel4.Controls.Add(Me.Label36)
         Me.Panel4.Location = New System.Drawing.Point(3, 27)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(388, 128)
+        Me.Panel4.Size = New System.Drawing.Size(388, 336)
         Me.Panel4.TabIndex = 1713
         '
+        'EXB4
+        '
+        Me.EXB4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXB4.FormattingEnabled = True
+        Me.EXB4.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXB4.Location = New System.Drawing.Point(331, 278)
+        Me.EXB4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXB4.Name = "EXB4"
+        Me.EXB4.Size = New System.Drawing.Size(49, 24)
+        Me.EXB4.TabIndex = 1745
+        '
+        'EXB3
+        '
+        Me.EXB3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXB3.FormattingEnabled = True
+        Me.EXB3.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXB3.Location = New System.Drawing.Point(331, 253)
+        Me.EXB3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXB3.Name = "EXB3"
+        Me.EXB3.Size = New System.Drawing.Size(49, 24)
+        Me.EXB3.TabIndex = 1744
+        '
+        'EXB2
+        '
+        Me.EXB2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXB2.FormattingEnabled = True
+        Me.EXB2.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXB2.Location = New System.Drawing.Point(331, 227)
+        Me.EXB2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXB2.Name = "EXB2"
+        Me.EXB2.Size = New System.Drawing.Size(49, 24)
+        Me.EXB2.TabIndex = 1743
+        '
+        'EXB1
+        '
+        Me.EXB1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXB1.FormattingEnabled = True
+        Me.EXB1.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXB1.Location = New System.Drawing.Point(331, 202)
+        Me.EXB1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXB1.Name = "EXB1"
+        Me.EXB1.Size = New System.Drawing.Size(49, 24)
+        Me.EXB1.TabIndex = 1742
+        '
+        'Label32
+        '
+        Me.Label32.AutoSize = True
+        Me.Label32.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label32.ForeColor = System.Drawing.Color.Black
+        Me.Label32.Location = New System.Drawing.Point(275, 282)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(55, 16)
+        Me.Label32.TabIndex = 1741
+        Me.Label32.Text = "資料位置"
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label33.ForeColor = System.Drawing.Color.Black
+        Me.Label33.Location = New System.Drawing.Point(275, 256)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(55, 16)
+        Me.Label33.TabIndex = 1740
+        Me.Label33.Text = "資料位置"
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label34.ForeColor = System.Drawing.Color.Black
+        Me.Label34.Location = New System.Drawing.Point(275, 231)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(55, 16)
+        Me.Label34.TabIndex = 1739
+        Me.Label34.Text = "資料位置"
+        '
+        'Label35
+        '
+        Me.Label35.AutoSize = True
+        Me.Label35.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label35.ForeColor = System.Drawing.Color.Black
+        Me.Label35.Location = New System.Drawing.Point(275, 206)
+        Me.Label35.Name = "Label35"
+        Me.Label35.Size = New System.Drawing.Size(55, 16)
+        Me.Label35.TabIndex = 1738
+        Me.Label35.Text = "資料位置"
+        '
+        'EXA4
+        '
+        Me.EXA4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXA4.FormattingEnabled = True
+        Me.EXA4.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXA4.Location = New System.Drawing.Point(223, 278)
+        Me.EXA4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXA4.Name = "EXA4"
+        Me.EXA4.Size = New System.Drawing.Size(49, 24)
+        Me.EXA4.TabIndex = 1737
+        '
+        'EXA3
+        '
+        Me.EXA3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXA3.FormattingEnabled = True
+        Me.EXA3.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXA3.Location = New System.Drawing.Point(223, 253)
+        Me.EXA3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXA3.Name = "EXA3"
+        Me.EXA3.Size = New System.Drawing.Size(49, 24)
+        Me.EXA3.TabIndex = 1736
+        '
+        'EXA2
+        '
+        Me.EXA2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXA2.FormattingEnabled = True
+        Me.EXA2.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXA2.Location = New System.Drawing.Point(223, 227)
+        Me.EXA2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXA2.Name = "EXA2"
+        Me.EXA2.Size = New System.Drawing.Size(49, 24)
+        Me.EXA2.TabIndex = 1735
+        '
+        'EXA1
+        '
+        Me.EXA1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.EXA1.FormattingEnabled = True
+        Me.EXA1.Items.AddRange(New Object() {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
+        Me.EXA1.Location = New System.Drawing.Point(223, 202)
+        Me.EXA1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EXA1.Name = "EXA1"
+        Me.EXA1.Size = New System.Drawing.Size(49, 24)
+        Me.EXA1.TabIndex = 1734
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label28.ForeColor = System.Drawing.Color.Black
+        Me.Label28.Location = New System.Drawing.Point(142, 282)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(79, 16)
+        Me.Label28.TabIndex = 1733
+        Me.Label28.Text = "客戶名稱位置"
+        '
+        'Label29
+        '
+        Me.Label29.AutoSize = True
+        Me.Label29.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label29.ForeColor = System.Drawing.Color.Black
+        Me.Label29.Location = New System.Drawing.Point(142, 256)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(79, 16)
+        Me.Label29.TabIndex = 1731
+        Me.Label29.Text = "客戶名稱位置"
+        '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label30.ForeColor = System.Drawing.Color.Black
+        Me.Label30.Location = New System.Drawing.Point(142, 231)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(79, 16)
+        Me.Label30.TabIndex = 1729
+        Me.Label30.Text = "客戶名稱位置"
+        '
+        'Label31
+        '
+        Me.Label31.AutoSize = True
+        Me.Label31.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label31.ForeColor = System.Drawing.Color.Black
+        Me.Label31.Location = New System.Drawing.Point(142, 206)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(79, 16)
+        Me.Label31.TabIndex = 1727
+        Me.Label31.Text = "客戶名稱位置"
+        '
+        'EX4
+        '
+        Me.EX4.ForeColor = System.Drawing.Color.Black
+        Me.EX4.Location = New System.Drawing.Point(58, 279)
+        Me.EX4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EX4.Name = "EX4"
+        Me.EX4.Size = New System.Drawing.Size(78, 23)
+        Me.EX4.TabIndex = 1724
+        Me.EX4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label27.ForeColor = System.Drawing.Color.Black
+        Me.Label27.Location = New System.Drawing.Point(4, 282)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(50, 16)
+        Me.Label27.TabIndex = 1725
+        Me.Label27.Text = "活頁簿4"
+        '
+        'EX3
+        '
+        Me.EX3.ForeColor = System.Drawing.Color.Black
+        Me.EX3.Location = New System.Drawing.Point(58, 253)
+        Me.EX3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EX3.Name = "EX3"
+        Me.EX3.Size = New System.Drawing.Size(78, 23)
+        Me.EX3.TabIndex = 1722
+        Me.EX3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label26.ForeColor = System.Drawing.Color.Black
+        Me.Label26.Location = New System.Drawing.Point(4, 256)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(50, 16)
+        Me.Label26.TabIndex = 1723
+        Me.Label26.Text = "活頁簿3"
+        '
+        'EX2
+        '
+        Me.EX2.ForeColor = System.Drawing.Color.Black
+        Me.EX2.Location = New System.Drawing.Point(58, 228)
+        Me.EX2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EX2.Name = "EX2"
+        Me.EX2.Size = New System.Drawing.Size(78, 23)
+        Me.EX2.TabIndex = 1720
+        Me.EX2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label25.ForeColor = System.Drawing.Color.Black
+        Me.Label25.Location = New System.Drawing.Point(4, 231)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(50, 16)
+        Me.Label25.TabIndex = 1721
+        Me.Label25.Text = "活頁簿2"
+        '
+        'EX1
+        '
+        Me.EX1.ForeColor = System.Drawing.Color.Black
+        Me.EX1.Location = New System.Drawing.Point(58, 203)
+        Me.EX1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.EX1.Name = "EX1"
+        Me.EX1.Size = New System.Drawing.Size(78, 23)
+        Me.EX1.TabIndex = 1718
+        Me.EX1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label24.ForeColor = System.Drawing.Color.Black
+        Me.Label24.Location = New System.Drawing.Point(4, 206)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(50, 16)
+        Me.Label24.TabIndex = 1719
+        Me.Label24.Text = "活頁簿1"
+        '
+        '導出到EXCEL_bt
+        '
+        Me.導出到EXCEL_bt.ForeColor = System.Drawing.Color.Green
+        Me.導出到EXCEL_bt.Location = New System.Drawing.Point(4, 303)
+        Me.導出到EXCEL_bt.Name = "導出到EXCEL_bt"
+        Me.導出到EXCEL_bt.Size = New System.Drawing.Size(377, 26)
+        Me.導出到EXCEL_bt.TabIndex = 1716
+        Me.導出到EXCEL_bt.Text = "彙總表合計導出到EXCEL"
+        Me.導出到EXCEL_bt.UseVisualStyleBackColor = True
+        '
         '紙帳計算_bt
         '
         Me.紙帳計算_bt.Location = New System.Drawing.Point(1, 80)
         Me.Label20.TabIndex = 1704
         Me.Label20.Text = "請注意，自動判斷正負反的功能不一定適合使用者的習慣，請斟酌使用。"
         '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label21.ForeColor = System.Drawing.Color.Green
+        Me.Label21.Location = New System.Drawing.Point(5, 127)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(364, 75)
+        Me.Label21.TabIndex = 1717
+        Me.Label21.Text = "1、將要導出的EXCEL資料的對應設定設置在下方，系統將會依照設定尋找" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "       到對應的位置。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、如果沒有設定，導出到EXCEL的活頁度要放在EXCE" &
+    "L檔案的第一個。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、如果沒有設定，A欄位要放客戶名稱，B欄位適合技數導出的資料。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "4、如果客戶欄位有連續5個空白就會結束導出程序。"
+        '
+        'Label36
+        '
+        Me.Label36.AutoSize = True
+        Me.Label36.Location = New System.Drawing.Point(-2, 110)
+        Me.Label36.Name = "Label36"
+        Me.Label36.Size = New System.Drawing.Size(387, 16)
+        Me.Label36.TabIndex = 1746
+        Me.Label36.Text = "____________________________________________________________________________"
+        '
         'SplitContainer4
         '
         Me.SplitContainer4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.PictureBox1.TabIndex = 1619
         Me.PictureBox1.TabStop = False
         '
-        '紙帳總表_dgv
+        'OpenFileDialog1
         '
-        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
-        Me.紙帳總表_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.紙帳總表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.紙帳總表_dgv.Location = New System.Drawing.Point(524, 337)
-        Me.紙帳總表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.紙帳總表_dgv.Name = "紙帳總表_dgv"
-        Me.紙帳總表_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle25.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.紙帳總表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle25
-        Me.紙帳總表_dgv.RowTemplate.Height = 24
-        Me.紙帳總表_dgv.Size = New System.Drawing.Size(210, 107)
-        Me.紙帳總表_dgv.TabIndex = 1685
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
         '
         '電板帳務彙總計算表
         '
         Me.Controls.Add(Me.彙總1_dgv)
         Me.Controls.Add(Me.客戶下_dgv)
         Me.Controls.Add(Me.L50)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.月_ch)
         Me.Controls.Add(Me.周_ch)
         Me.Controls.Add(Me.SplitContainer4)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        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 = "電板帳務彙總計算表"
         CType(Me.所得名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.水差名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
+        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.水差名1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.紅利分表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.所得名1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer4.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.紙帳總表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents Label22 As Label
     Friend WithEvents Label23 As Label
     Friend WithEvents 紙帳總表_dgv As DataGridView
+    Friend WithEvents Label21 As Label
+    Friend WithEvents 導出到EXCEL_bt As Button
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents EXB4 As ComboBox
+    Friend WithEvents EXB3 As ComboBox
+    Friend WithEvents EXB2 As ComboBox
+    Friend WithEvents EXB1 As ComboBox
+    Friend WithEvents Label32 As Label
+    Friend WithEvents Label33 As Label
+    Friend WithEvents Label34 As Label
+    Friend WithEvents Label35 As Label
+    Friend WithEvents EXA4 As ComboBox
+    Friend WithEvents EXA3 As ComboBox
+    Friend WithEvents EXA2 As ComboBox
+    Friend WithEvents EXA1 As ComboBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label29 As Label
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label31 As Label
+    Friend WithEvents EX4 As TextBox
+    Friend WithEvents Label27 As Label
+    Friend WithEvents EX3 As TextBox
+    Friend WithEvents Label26 As Label
+    Friend WithEvents EX2 As TextBox
+    Friend WithEvents Label25 As Label
+    Friend WithEvents EX1 As TextBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents Label36 As Label
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.resx

   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>206, 6</value>
   </metadata>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>393, 5</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>25</value>
   </metadata>

GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb

 Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
+Imports CefSharp
+Imports Org.BouncyCastle.Bcpg
+
 Public Class 電板帳務彙總計算表
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10, ds15, ds16, ds17, ds18, ds19, ds20, ds21 As New DataSet
     Dim GP As Integer = 0 : Dim NH1, 批次, 選擇記憶 As Integer
-    Dim GPP As String : Dim 本周周一 As Date
+    Dim GPP, file_name As String : Dim 本周周一 As Date
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
         If 合帳_dgv.Rows.Count > 0 Then : 控制隱藏讀取() : End If
     End Sub
     Private Sub 其他操作功能_bt_Click(sender As Object, e As EventArgs) Handles 其他操作功能_bt.Click
-        If 其他控制 = False Then : 視窗4_pl.Location = New System.Drawing.Point(150, 300) : 視窗4_pl.BringToFront() : 其他控制 = True : Else : 視窗4_pl.SendToBack() : 其他控制 = False : End If
+        If 其他控制 = False Then
+            視窗4_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗4_pl.Size.Width) / 2, (Me.Size.Height - 視窗4_pl.Size.Height) / 2)
+            視窗4_pl.BringToFront() : 其他控制 = True : Else : 視窗4_pl.SendToBack() : 其他控制 = False
+        End If
+        導出到EXCEL設定()
     End Sub
     Private Sub 自動正負反_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動正負反_ch.Click
         If 自動正負反_ch.Checked = True Then
         Finally : GC.Collect()
         End Try
     End Sub
+    Private Sub 導出到EXCEL設定()
+        If File.Exists(Str + "\EXLSTE.csv") Then    ' 讀取 CSV 檔案並將資料帶回控件
+            If EX1.Text = "" And EX2.Text = "" And EX3.Text = "" And EX4.Text = "" Then
+                ReadCSVFile(Str + "\EXLSTE.csv")
+            Else
+                If File.Exists(Str & "\EXLSTE.csv") Then : File.Delete(Str & "\EXLSTE.csv") : End If
+                WriteCSVFile(Str & "\EXLSTE.csv")
+            End If
+        Else
+            If EX1.Text = "" And EX2.Text = "" And EX3.Text = "" And EX4.Text = "" Then : Else
+                If File.Exists(Str & "\EXLSTE.csv") Then : File.Delete(Str & "\EXLSTE.csv") : End If
+                WriteCSVFile(Str & "\EXLSTE.csv")
+            End If
+        End If
+    End Sub
+    Private Sub 導出到EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 導出到EXCEL_bt.Click
+        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
+            file_name = OpenFileDialog1.FileName
+
+            xlApp = CreateObject("Excel.Application")
+            xlApp.DisplayAlerts = False
+            xlApp.Visible = True
+            xlApp.Workbooks.Open(file_name)
+
+            If EX1.Text = "" And EX2.Text = "" And EX3.Text = "" And EX4.Text = "" Then
+                xlSheet = xlApp.Worksheets(1)
+                xlSheet.Activate()
+
+                Dim 空白(5) As Boolean : Dim DN As Integer = 0 : Dim Sttr As String
+                For I As Integer = 1 To 999
+                    If xlSheet.Cells(I, 1).value <> "" Then
+                        Sttr = xlSheet.Cells(I, 1).value
+                        For ii As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                            If Sttr = 合帳_dgv.Rows(ii).Cells("客戶").Value.ToString Then
+                                xlSheet.Cells(I, 2) = 合帳_dgv.Rows(ii).Cells("交收合計").Value.ToString : Exit For
+                            End If
+                        Next
+                    Else : 空白(DN) = True : DN += 1 : End If
+                    If 空白(0) = True And 空白(1) = True And 空白(2) = True And 空白(3) = True And 空白(4) = True And 空白(5) = True Then
+                        Exit For
+                    End If
+                Next : MsgBox("資料導出完成!!")
+            Else
+                Dim xlWorkbook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Open(file_name)
+                Dim sheetNames As New List(Of String)()
+                For Each sheet As Microsoft.Office.Interop.Excel.Worksheet In xlWorkbook.Sheets : sheetNames.Add(sheet.Name) : Next
+
+                For X As Integer = 1 To 4
+                    Dim index As Integer : Dim 可執行 As Boolean = False
+                    If X = 1 And EX1.Text <> "" And EXA1.Text <> "" And EXB1.Text <> "" Then : index = sheetNames.IndexOf(EX1.Text) : 可執行 = True : End If
+                    If X = 2 And EX2.Text <> "" And EXA2.Text <> "" And EXB2.Text <> "" Then : index = sheetNames.IndexOf(EX2.Text) : 可執行 = True : End If
+                    If X = 3 And EX3.Text <> "" And EXA3.Text <> "" And EXB3.Text <> "" Then : index = sheetNames.IndexOf(EX3.Text) : 可執行 = True : End If
+                    If X = 4 And EX4.Text <> "" And EXA4.Text <> "" And EXB4.Text <> "" Then : index = sheetNames.IndexOf(EX4.Text) : 可執行 = True : End If
+
+                    If 可執行 = True Then
+                        xlSheet = xlApp.Worksheets(index + 1) : xlSheet.Activate()
+                        Dim 空白(5) As Boolean : Dim DN As Integer = 0 : Dim Sttr As String : Dim XXZ, XXC As Integer
+                        Dim letterDict As New Dictionary(Of String, Integer)()
+                        letterDict.Add("A", 1) : letterDict.Add("B", 2) : letterDict.Add("C", 3) : letterDict.Add("D", 4) : letterDict.Add("E", 5) : letterDict.Add("F", 6)
+                        letterDict.Add("G", 7) : letterDict.Add("H", 8) : letterDict.Add("I", 9) : letterDict.Add("J", 10) : letterDict.Add("K", 11) : letterDict.Add("L", 12)
+                        letterDict.Add("M", 13) : letterDict.Add("N", 14) : letterDict.Add("O", 15) : letterDict.Add("P", 16) : letterDict.Add("Q", 17) : letterDict.Add("R", 18)
+                        letterDict.Add("S", 19) : letterDict.Add("T", 20) : letterDict.Add("U", 21) : letterDict.Add("V", 22) : letterDict.Add("W", 23) : letterDict.Add("X", 24)
+                        letterDict.Add("Y", 25) : letterDict.Add("Z", 26)
+                        Dim EXA As ComboBox = CType(Me.Controls.Find("EXA" + X.ToString(), True)(0), ComboBox)
+                        Dim EXB As ComboBox = CType(Me.Controls.Find("EXB" + X.ToString(), True)(0), ComboBox)
+                        XXZ = letterDict(EXA.Text.ToUpper()) : XXC = letterDict(EXB.Text.ToUpper())
+                        For I As Integer = 1 To 999
+                            If xlSheet.Cells(I, XXZ).value <> "" Then
+                                Sttr = xlSheet.Cells(I, XXZ).value
+                                For ii As Integer = 0 To 合帳_dgv.Rows.Count - 1
+                                    If Sttr = 合帳_dgv.Rows(ii).Cells("客戶").Value.ToString Then
+                                        xlSheet.Cells(I, XXC) = 合帳_dgv.Rows(ii).Cells("交收合計").Value.ToString : Exit For
+                                    End If
+                                Next
+                            Else : 空白(DN) = True : DN += 1 : End If
+                            If 空白(0) = True And 空白(1) = True And 空白(2) = True And 空白(3) = True And 空白(4) = True And 空白(5) = True Then
+                                Exit For
+                            End If
+                        Next
+                    End If
+                Next : MsgBox("資料導出完成!!")
+            End If
+        End If
+    End Sub
+    Private Sub WriteCSVFile(fileName As String)
+        Using sw As New StreamWriter(fileName)     ' 將控件的資料寫入 CSV 檔案
+            sw.WriteLine($"{EX1.Text},{EXA1.Text},{EXB1.Text}") : sw.WriteLine($"{EX2.Text},{EXA2.Text},{EXB2.Text}")
+            sw.WriteLine($"{EX3.Text},{EXA3.Text},{EXB3.Text}") : sw.WriteLine($"{EX4.Text},{EXA4.Text},{EXB4.Text}")
+        End Using
+    End Sub
+    Private Sub ReadCSVFile(fileName As String)
+        Using sr As New StreamReader(fileName)      ' 讀取 CSV 檔案並將資料帶回控件
+            Dim line As String : Dim lineParts As String()
+            line = sr.ReadLine() : If line IsNot Nothing Then : lineParts = line.Split(","c) : EX1.Text = lineParts(0) : EXA1.Text = lineParts(1) : EXB1.Text = lineParts(2) : End If
+            line = sr.ReadLine() : If line IsNot Nothing Then : lineParts = line.Split(","c) : EX2.Text = lineParts(0) : EXA2.Text = lineParts(1) : EXB2.Text = lineParts(2) : End If
+            line = sr.ReadLine() : If line IsNot Nothing Then : lineParts = line.Split(","c) : EX3.Text = lineParts(0) : EXA3.Text = lineParts(1) : EXB3.Text = lineParts(2) : End If
+            line = sr.ReadLine() : If line IsNot Nothing Then : lineParts = line.Split(","c) : EX4.Text = lineParts(0) : EXA4.Text = lineParts(1) : EXB4.Text = lineParts(2) : End If
+        End Using
+    End Sub
+
     Dim OldX, OldY As Long : Dim drag As Boolean
     Private Sub CanceL4_bt_Click(sender As Object, e As EventArgs) Handles CanceL4_bt.Click
         If 其他控制 = True Then : 視窗4_pl.SendToBack() : 其他控制 = False : End If

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.Designer.vb

         Me.正負反設定_bt = New System.Windows.Forms.Button()
         Me.視窗2_pl = New System.Windows.Forms.Panel()
         Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.存檔1_bt = New System.Windows.Forms.Button()
         Me.商品反轉_dgv = New System.Windows.Forms.DataGridView()
         Me.高級編輯_lb = New System.Windows.Forms.Label()
         Me.CanceL2_bt = New System.Windows.Forms.Button()
-        Me.存檔1_bt = New System.Windows.Forms.Button()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.Controls.Add(Me.開始日期2_dtp)
         Me.Panel3.Controls.Add(Me.結束日期2_dtp)
         Me.Panel3.Controls.Add(Me.客戶下_dgv)
+        Me.Panel3.Controls.Add(Me.迦納彩_ch)
         Me.Panel3.Controls.Add(Me.日期_dgv)
+        Me.Panel3.Controls.Add(Me.加州彩_ch)
         Me.Panel3.Controls.Add(Me.開始日期1_dtp)
         Me.Panel3.Controls.Add(Me.結束日期1_dtp)
-        Me.Panel3.Location = New System.Drawing.Point(840, 176)
+        Me.Panel3.Controls.Add(Me.網址修正_dgv)
+        Me.Panel3.Controls.Add(Me.四星彩_ch)
+        Me.Panel3.Controls.Add(Me.Label21)
+        Me.Panel3.Controls.Add(Me.三星彩_ch)
+        Me.Panel3.Controls.Add(Me.六合彩_ch)
+        Me.Panel3.Controls.Add(Me.大樂透_ch)
+        Me.Panel3.Controls.Add(Me.GA539_ch)
+        Me.Panel3.Controls.Add(Me.威力彩_ch)
+        Me.Panel3.Controls.Add(Me.天天樂_ch)
+        Me.Panel3.Location = New System.Drawing.Point(663, 176)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(190, 262)
+        Me.Panel3.Size = New System.Drawing.Size(638, 262)
         Me.Panel3.TabIndex = 1675
         '
         '開始日期2_dtp
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.網址修正_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.網址修正_dgv.Location = New System.Drawing.Point(732, 118)
+        Me.網址修正_dgv.Location = New System.Drawing.Point(191, 6)
         Me.網址修正_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.網址修正_dgv.Name = "網址修正_dgv"
         Me.網址修正_dgv.RowHeadersWidth = 4
         Me.網址修正_dgv.RowTemplate.Height = 24
-        Me.網址修正_dgv.Size = New System.Drawing.Size(111, 70)
+        Me.網址修正_dgv.Size = New System.Drawing.Size(382, 70)
         Me.網址修正_dgv.TabIndex = 1701
         Me.網址修正_dgv.Visible = False
         '
         '四星彩_ch
         '
         Me.四星彩_ch.AutoSize = True
-        Me.四星彩_ch.Location = New System.Drawing.Point(5, 64)
+        Me.四星彩_ch.Location = New System.Drawing.Point(191, 83)
         Me.四星彩_ch.Name = "四星彩_ch"
         Me.四星彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.四星彩_ch.TabIndex = 1704
         '三星彩_ch
         '
         Me.三星彩_ch.AutoSize = True
-        Me.三星彩_ch.Location = New System.Drawing.Point(63, 64)
+        Me.三星彩_ch.Location = New System.Drawing.Point(249, 83)
         Me.三星彩_ch.Name = "三星彩_ch"
         Me.三星彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.三星彩_ch.TabIndex = 1705
         '六合彩_ch
         '
         Me.六合彩_ch.AutoSize = True
-        Me.六合彩_ch.Location = New System.Drawing.Point(121, 64)
+        Me.六合彩_ch.Location = New System.Drawing.Point(307, 83)
         Me.六合彩_ch.Name = "六合彩_ch"
         Me.六合彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.六合彩_ch.TabIndex = 1706
         '加州彩_ch
         '
         Me.加州彩_ch.AutoSize = True
-        Me.加州彩_ch.Location = New System.Drawing.Point(398, 64)
+        Me.加州彩_ch.Location = New System.Drawing.Point(410, 105)
         Me.加州彩_ch.Name = "加州彩_ch"
         Me.加州彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.加州彩_ch.TabIndex = 1707
         '大樂透_ch
         '
         Me.大樂透_ch.AutoSize = True
-        Me.大樂透_ch.Location = New System.Drawing.Point(179, 64)
+        Me.大樂透_ch.Location = New System.Drawing.Point(191, 105)
         Me.大樂透_ch.Name = "大樂透_ch"
         Me.大樂透_ch.Size = New System.Drawing.Size(62, 20)
         Me.大樂透_ch.TabIndex = 1708
         'GA539_ch
         '
         Me.GA539_ch.AutoSize = True
-        Me.GA539_ch.Location = New System.Drawing.Point(238, 64)
+        Me.GA539_ch.Location = New System.Drawing.Point(250, 105)
         Me.GA539_ch.Name = "GA539_ch"
         Me.GA539_ch.Size = New System.Drawing.Size(47, 20)
         Me.GA539_ch.TabIndex = 1709
         '威力彩_ch
         '
         Me.威力彩_ch.AutoSize = True
-        Me.威力彩_ch.Location = New System.Drawing.Point(281, 64)
+        Me.威力彩_ch.Location = New System.Drawing.Point(293, 105)
         Me.威力彩_ch.Name = "威力彩_ch"
         Me.威力彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.威力彩_ch.TabIndex = 1710
         '天天樂_ch
         '
         Me.天天樂_ch.AutoSize = True
-        Me.天天樂_ch.Location = New System.Drawing.Point(339, 64)
+        Me.天天樂_ch.Location = New System.Drawing.Point(351, 105)
         Me.天天樂_ch.Name = "天天樂_ch"
         Me.天天樂_ch.Size = New System.Drawing.Size(62, 20)
         Me.天天樂_ch.TabIndex = 1711
         '
         Me.Label21.AutoSize = True
         Me.Label21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label21.Location = New System.Drawing.Point(518, 65)
+        Me.Label21.Location = New System.Drawing.Point(375, 83)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(255, 16)
         Me.Label21.TabIndex = 1712
         '迦納彩_ch
         '
         Me.迦納彩_ch.AutoSize = True
-        Me.迦納彩_ch.Location = New System.Drawing.Point(456, 64)
+        Me.迦納彩_ch.Location = New System.Drawing.Point(468, 105)
         Me.迦納彩_ch.Name = "迦納彩_ch"
         Me.迦納彩_ch.Size = New System.Drawing.Size(62, 20)
         Me.迦納彩_ch.TabIndex = 1713
         Me.Panel5.Size = New System.Drawing.Size(173, 507)
         Me.Panel5.TabIndex = 1367
         '
+        '存檔1_bt
+        '
+        Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
+        Me.存檔1_bt.Location = New System.Drawing.Point(3, 0)
+        Me.存檔1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.存檔1_bt.Name = "存檔1_bt"
+        Me.存檔1_bt.Size = New System.Drawing.Size(163, 24)
+        Me.存檔1_bt.TabIndex = 1722
+        Me.存檔1_bt.Text = "存檔"
+        Me.存檔1_bt.UseVisualStyleBackColor = True
+        '
         '商品反轉_dgv
         '
         Me.商品反轉_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.CanceL2_bt.Text = "X"
         Me.CanceL2_bt.UseVisualStyleBackColor = False
         '
-        '存檔1_bt
-        '
-        Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
-        Me.存檔1_bt.Location = New System.Drawing.Point(3, 0)
-        Me.存檔1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.存檔1_bt.Name = "存檔1_bt"
-        Me.存檔1_bt.Size = New System.Drawing.Size(163, 24)
-        Me.存檔1_bt.TabIndex = 1722
-        Me.存檔1_bt.Text = "存檔"
-        Me.存檔1_bt.UseVisualStyleBackColor = True
-        '
         '電板帳務明細查詢表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.ClientSize = New System.Drawing.Size(1350, 701)
         Me.Controls.Add(Me.視窗2_pl)
         Me.Controls.Add(Me.正負反設定_bt)
-        Me.Controls.Add(Me.迦納彩_ch)
-        Me.Controls.Add(Me.加州彩_ch)
         Me.Controls.Add(Me.說明_bt)
         Me.Controls.Add(Me.導入到自己的報表_bt)
         Me.Controls.Add(Me.控制隱藏_ch)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label23)
         Me.Controls.Add(Me.Label22)
-        Me.Controls.Add(Me.Label21)
-        Me.Controls.Add(Me.天天樂_ch)
-        Me.Controls.Add(Me.威力彩_ch)
-        Me.Controls.Add(Me.GA539_ch)
-        Me.Controls.Add(Me.大樂透_ch)
-        Me.Controls.Add(Me.六合彩_ch)
-        Me.Controls.Add(Me.三星彩_ch)
-        Me.Controls.Add(Me.四星彩_ch)
         Me.Controls.Add(Me.LOG檔開啟_bt)
         Me.Controls.Add(Me.下拉3_bt)
         Me.Controls.Add(Me.下拉2_bt)
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.流水帳_dgv)
         Me.Controls.Add(Me.Panel3)
-        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 = "電板帳務明細查詢表"
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
         Me.Panel4.ResumeLayout(False)
         Me.Panel4.PerformLayout()
         CType(Me.網址修正_dgv, System.ComponentModel.ISupportInitialize).EndInit()

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb

         Me.結果_tb = New System.Windows.Forms.TextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.廣告_tb = New System.Windows.Forms.TextBox()
         Me.A4_P = New System.Windows.Forms.Panel()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.本周周一_dtp = New System.Windows.Forms.DateTimePicker()
         Me.結果1_tb = New System.Windows.Forms.TextBox()
         Me.A1_P = New System.Windows.Forms.Panel()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         Me.彙總5_dgv = New System.Windows.Forms.DataGridView()
         Me.彙總3_dgv = New System.Windows.Forms.DataGridView()
         Me.周1_ch = New System.Windows.Forms.CheckBox()
         Me.顯周_ch = New System.Windows.Forms.CheckBox()
         Me.顯月_ch = New System.Windows.Forms.CheckBox()
         Me.顯年_ch = New System.Windows.Forms.CheckBox()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         CType(Me.日期清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.A4_P.SuspendLayout()
         Me.A3_P.SuspendLayout()
         Me.A2_P.SuspendLayout()
         Me.A1_P.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總5_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總3_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總4_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '日期清單_dgv
         '結果_tb
         '
         Me.結果_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果_tb.Location = New System.Drawing.Point(49, 27)
+        Me.結果_tb.Location = New System.Drawing.Point(49, 25)
         Me.結果_tb.Name = "結果_tb"
         Me.結果_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果_tb.TabIndex = 1782
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(3, 31)
+        Me.Label26.Location = New System.Drawing.Point(3, 29)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(43, 16)
         Me.Label26.TabIndex = 1781
         Me.Panel1.Size = New System.Drawing.Size(918, 651)
         Me.Panel1.TabIndex = 1783
         '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.S__20029698
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(146, 1)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(50, 50)
+        Me.PictureBox1.TabIndex = 1825
+        Me.PictureBox1.TabStop = False
+        '
         '廣告_tb
         '
         Me.廣告_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
         Me.廣告_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.廣告_tb.ForeColor = System.Drawing.Color.Blue
-        Me.廣告_tb.Location = New System.Drawing.Point(3, 610)
+        Me.廣告_tb.Location = New System.Drawing.Point(3, 611)
         Me.廣告_tb.Multiline = True
         Me.廣告_tb.Name = "廣告_tb"
         Me.廣告_tb.Size = New System.Drawing.Size(912, 38)
         Me.A4_P.Controls.Add(Me.Label15)
         Me.A4_P.Location = New System.Drawing.Point(761, 2)
         Me.A4_P.Name = "A4_P"
-        Me.A4_P.Size = New System.Drawing.Size(153, 52)
+        Me.A4_P.Size = New System.Drawing.Size(153, 50)
         Me.A4_P.TabIndex = 1822
         '
         'Label18
         '
         Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(3, 31)
+        Me.Label18.Location = New System.Drawing.Point(3, 29)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(43, 16)
         Me.Label18.TabIndex = 1815
         '結果2_tb
         '
         Me.結果2_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果2_tb.Location = New System.Drawing.Point(48, 27)
+        Me.結果2_tb.Location = New System.Drawing.Point(48, 25)
         Me.結果2_tb.Name = "結果2_tb"
         Me.結果2_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果2_tb.TabIndex = 1816
         Me.A3_P.Controls.Add(Me.結果3_tb)
         Me.A3_P.Location = New System.Drawing.Point(579, 2)
         Me.A3_P.Name = "A3_P"
-        Me.A3_P.Size = New System.Drawing.Size(153, 52)
+        Me.A3_P.Size = New System.Drawing.Size(153, 50)
         Me.A3_P.TabIndex = 1821
         '
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(3, 30)
+        Me.Label3.Location = New System.Drawing.Point(3, 28)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1783
         '結果3_tb
         '
         Me.結果3_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果3_tb.Location = New System.Drawing.Point(47, 27)
+        Me.結果3_tb.Location = New System.Drawing.Point(47, 25)
         Me.結果3_tb.Name = "結果3_tb"
         Me.結果3_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果3_tb.TabIndex = 1784
         Me.A2_P.Controls.Add(Me.結果1_tb)
         Me.A2_P.Location = New System.Drawing.Point(397, 2)
         Me.A2_P.Name = "A2_P"
-        Me.A2_P.Size = New System.Drawing.Size(153, 52)
+        Me.A2_P.Size = New System.Drawing.Size(153, 50)
         Me.A2_P.TabIndex = 1820
         '
         'Label4
         'Label14
         '
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(3, 32)
+        Me.Label14.Location = New System.Drawing.Point(3, 30)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(43, 16)
         Me.Label14.TabIndex = 1811
         '結果1_tb
         '
         Me.結果1_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果1_tb.Location = New System.Drawing.Point(48, 27)
+        Me.結果1_tb.Location = New System.Drawing.Point(48, 25)
         Me.結果1_tb.Name = "結果1_tb"
         Me.結果1_tb.Size = New System.Drawing.Size(100, 23)
         Me.結果1_tb.TabIndex = 1812
         Me.A1_P.Controls.Add(Me.結果_tb)
         Me.A1_P.Location = New System.Drawing.Point(215, 2)
         Me.A1_P.Name = "A1_P"
-        Me.A1_P.Size = New System.Drawing.Size(153, 52)
+        Me.A1_P.Size = New System.Drawing.Size(153, 50)
         Me.A1_P.TabIndex = 1819
         '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._9f4d0b564d950c8de255241c1b6c560
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(3, 2)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(139, 50)
+        Me.PictureBox2.TabIndex = 1769
+        Me.PictureBox2.TabStop = False
+        '
         '彙總5_dgv
         '
         Me.彙總5_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
         Me.彙總5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.彙總5_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.彙總5_dgv.Location = New System.Drawing.Point(3, 55)
+        Me.彙總5_dgv.Location = New System.Drawing.Point(3, 52)
         Me.彙總5_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總5_dgv.Name = "彙總5_dgv"
         Me.彙總5_dgv.RowHeadersWidth = 4
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.彙總5_dgv.RowTemplate.Height = 24
-        Me.彙總5_dgv.Size = New System.Drawing.Size(911, 555)
+        Me.彙總5_dgv.Size = New System.Drawing.Size(911, 559)
         Me.彙總5_dgv.TabIndex = 1813
         '
         '彙總3_dgv
         Me.顯年_ch.Text = "年"
         Me.顯年_ch.UseVisualStyleBackColor = True
         '
-        'PictureBox1
-        '
-        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.S__20029698
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(146, 2)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(52, 52)
-        Me.PictureBox1.TabIndex = 1825
-        Me.PictureBox1.TabStop = False
-        '
-        'PictureBox2
-        '
-        Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._9f4d0b564d950c8de255241c1b6c560
-        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox2.Location = New System.Drawing.Point(3, 3)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(139, 50)
-        Me.PictureBox2.TabIndex = 1769
-        Me.PictureBox2.TabStop = False
-        '
         '後台帳務彙總結算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.A4_P.ResumeLayout(False)
         Me.A4_P.PerformLayout()
         Me.A3_P.ResumeLayout(False)
         Me.A2_P.PerformLayout()
         Me.A1_P.ResumeLayout(False)
         Me.A1_P.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總5_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總3_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總4_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.PerformLayout()
         CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb

-Public Class 後台帳務彙總結算表
+Imports System.IO
+Public Class 後台帳務彙總結算表
     Dim 本周周一 As Date
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application : Dim xlBook As Microsoft.Office.Interop.Excel.Workbook : Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Private Sub Set_明細日期清單()
         Dim ds6 As New DataSet
         日期清單_dgv.DataSource = Nothing : ds6.Clear() : 日期清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         '--------總--------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Dim ds9 As New DataSet
         彙總5_dgv.DataSource = Nothing : ds9.Clear() : 彙總5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        彙總5_dgv.ColumnHeadersHeight = 25 : 彙總5_dgv.AllowUserToAddRows = False : 彙總5_dgv.RowTemplate.Height = 22
+        彙總5_dgv.ColumnHeadersHeight = 25 : 彙總5_dgv.AllowUserToAddRows = False ': 
         PA16 = Strings.Format(年初_dtp.Value, "yyyy-MM-dd") : PA17 = Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
         If 股東帳_Ch.Checked = True Then : SQL2 = " And (後台商客基本資料表.自訂 = 1)" : Else : SQL2 = "" : End If
         SQL_後台彙總讀取5()
 
         da.Fill(ds9) : 彙總5_dgv.DataSource = ds9.Tables(0) : conn.Close()
 
+        If 股東帳_Ch.Checked = False Then
+            Dim FDS As Double = 彙總5_dgv.Rows.Count
+            If FDS Mod 2 = 0 Then
+                FDS = (彙總5_dgv.Size.Height - 25) / 彙總5_dgv.Rows.Count
+            Else
+                FDS = (彙總5_dgv.Size.Height - 40) / 彙總5_dgv.Rows.Count
+            End If
+            彙總5_dgv.RowTemplate.Height = FDS
+        Else
+            彙總5_dgv.RowTemplate.Height = 25
+        End If
+
         彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品 (元)").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
         彙總5_dgv.Columns("貢獻度-日").FillWeight = 80 : 彙總5_dgv.Columns("結果-日").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 80
         彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 80 : 彙總5_dgv.Columns("結果-月").FillWeight = 80
             彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-日").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-日1").Value = "0"
             彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-周").Value = "0 元"
             彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-月").Value = "0 元"
-            彙總5_dgv.Rows(i).Cells("貢獻度-年").Value = Format(彙總5_dgv.Rows(i).Cells("貢獻度-年1").Value / 10000, "#,##0")
-            彙總5_dgv.Rows(i).Cells("結果-年").Value = Format(彙總5_dgv.Rows(i).Cells("結果-年1").Value / 10000, "#,##0")
+            彙總5_dgv.Rows(i).Cells("貢獻度-年").Value = Strings.Format(彙總5_dgv.Rows(i).Cells("貢獻度-年1").Value / 10000, "#,##0")
+            彙總5_dgv.Rows(i).Cells("結果-年").Value = Strings.Format(彙總5_dgv.Rows(i).Cells("結果-年1").Value / 10000, "#,##0")
             For ii As Integer = 0 To 彙總3_dgv.Rows.Count - 1
                 If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總3_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
-                    彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = Format(CDbl(彙總3_dgv.Rows(ii).Cells("總量-日").Value) / 10000, "#,##0")
-                    彙總5_dgv.Rows(i).Cells("結果-日").Value = Format(CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = Strings.Format(CDbl(彙總3_dgv.Rows(ii).Cells("總量-日").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("結果-日").Value = Strings.Format(CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value) / 10000, "#,##0")
                     彙總5_dgv.Rows(i).Cells("結果-日1").Value = CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value)
                 End If
             Next
             For ii As Integer = 0 To 彙總4_dgv.Rows.Count - 1
                 If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總4_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
-                    彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = Format(CDbl(彙總4_dgv.Rows(ii).Cells("總量-周").Value) / 10000, "#,##0")
-                    彙總5_dgv.Rows(i).Cells("結果-周").Value = Format(CDbl(彙總4_dgv.Rows(ii).Cells("結果-周").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = Strings.Format(CDbl(彙總4_dgv.Rows(ii).Cells("總量-周").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("結果-周").Value = Strings.Format(CDbl(彙總4_dgv.Rows(ii).Cells("結果-周").Value) / 10000, "#,##0")
                 End If
             Next
             For ii As Integer = 0 To 彙總7_dgv.Rows.Count - 1
                 If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總7_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
-                    彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = Format(CDbl(彙總7_dgv.Rows(ii).Cells("總量-月").Value) / 10000, "#,##0")
-                    彙總5_dgv.Rows(i).Cells("結果-月").Value = Format(CDbl(彙總7_dgv.Rows(ii).Cells("結果-月").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = Strings.Format(CDbl(彙總7_dgv.Rows(ii).Cells("總量-月").Value) / 10000, "#,##0")
+                    彙總5_dgv.Rows(i).Cells("結果-月").Value = Strings.Format(CDbl(彙總7_dgv.Rows(ii).Cells("結果-月").Value) / 10000, "#,##0")
                 End If
             Next
             結果2_tb.Text = CLng(結果2_tb.Text) + (CLng(彙總5_dgv.Rows(i).Cells("結果-年1").Value.ToString) / 10000)
         For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1 : 彙總5_dgv.Rows(i).Cells("項次").Value = i + 1 : Next : 顯示()
     End Sub
     Private Sub 後台帳務彙總結算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        'Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60)
         SQL_後台帳務存檔寫入預設() : 年初_dtp.Value = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4) & "/01/01"
         天_ch.Checked = True : 周_ch.Checked = False : 月_ch.Checked = False
         If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then : 天周月 = "天"
         日期清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
     Private Sub 後台帳務彙總結算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
-        Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
-        A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
+        Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項)
+
+        A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+        A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
         周1_ch.Checked = True
         結束日期1_dtp.Value = Today() : 月初_dtp.Value = Today() : 月初_dtp.Value = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期1_dtp.Value : oldWeekDay = Weekday(oldDate)
         End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
         Set_明細日期清單()
         If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-            廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+            廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
         ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-            廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+            廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
         ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-            廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+            廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
         ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-            廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+            廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
         End If
     End Sub
     Private Sub 彙總3_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總3_dgv.CellFormatting
             月初_dtp.Value = Strings.Left(日期清單_dgv("開始日期", e.RowIndex).Value.ToString, 8) & "01"
             PA15 = 天周月 : Set_流水帳清單3()
             If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             End If
         End If
     End Sub
     Private Sub 顯示()
         If 彙總5_dgv.Rows.Count > 0 Then
             If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
-                A1_P.Location = New Point(215, 2)
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
-                A2_P.Location = New Point(215, 2)
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+                A2_P.Location = New System.Drawing.Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
-                A3_P.Location = New Point(215, 2)
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+                A3_P.Location = New System.Drawing.Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
-                A4_P.Location = New Point(215, 2)
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+                A4_P.Location = New System.Drawing.Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
-                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
-                A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
-                A1_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
-                A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+                A2_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
-                A2_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+                A2_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
-                A3_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+                A3_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
-                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2)
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2) : A3_P.Location = New System.Drawing.Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
-                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
-                A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
-                A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+                A2_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
-                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2) : A4_P.Location = New Point(761, 2)
+                Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
+                A3_P.Location = New System.Drawing.Point(579, 2) : A4_P.Location = New System.Drawing.Point(761, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
-                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+                廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             End If
         End If
     End Sub

GA-ERP-SYS/報表系統管理/後台/後台帳務明細查詢表.vb

                 SS += 1 : PA13 = SS : PA12 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
                 SQL_後台外埔表指定周日月()
                 減輕計算 = True : 有無資料判斷() : 暫不計算 = False : 選取1_ch.Checked = False : Set_明細日期清單()
-                減輕計算 = True : 有無資料判斷() : 暫不計算 = False : 選取1_ch.Checked = False : Set_明細日期清單()
             End If : conn.Close()
         End If
     End Sub