20230930備份

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

@@ -993,3 +993,33 @@ ERROR: Couldn't read tbsCertificate as SEQUENCE
 ERROR: Failed parsing Certificate
 
 [0829/232834.565:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)
+[0904/150430.546:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0904/150433.627: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
+
+[0904/150435.135:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)
+[0904/150740.509:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0904/150741.979: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
+
+[0904/150742.640:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)
+[0905/143753.613:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0905/143757.185: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
+
+[0905/143758.912:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)
+[0910/194810.375:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0910/194812.919: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
+
+[0910/194814.328:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)
+[0915/110046.322:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0915/110050.574: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
+
+[0915/110052.147:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydjMEOgjAQRP/Gk6XBYMUD8VtK2dgl7VJ3F4h/bw8Y7yaTvJnDvL0YpJDWCcTONa8V+H3AZHyyV2gyUjPLeS8mLKRAajVCrg/Y6jCinq0XARWbcGRfDVFzukrE7df+0TBIWWj68lA88tC63l36+811pzAO7QfYmUoU (2)

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

@@ -1,3 +0,0 @@
-Traceback (most recent call last):
-  File "D-F.py", line 2806, in <module>
-ValueError: not enough values to unpack (expected 4, got 0)

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

@@ -1,16 +0,0 @@
-2023-08-29 23:28:55,657 INFO: info message
-Traceback (most recent call last):
-  File "D-F.py", line 2806, in <module>
-ValueError: not enough values to unpack (expected 4, got 0)
-2023-08-29 23:28:55,658 WARNING: warning message
-Traceback (most recent call last):
-  File "D-F.py", line 2806, in <module>
-ValueError: not enough values to unpack (expected 4, got 0)
-2023-08-29 23:28:55,659 ERROR: error message
-Traceback (most recent call last):
-  File "D-F.py", line 2806, in <module>
-ValueError: not enough values to unpack (expected 4, got 0)
-2023-08-29 23:28:55,660 CRITICAL: critical message
-Traceback (most recent call last):
-  File "D-F.py", line 2806, in <module>
-ValueError: not enough values to unpack (expected 4, got 0)

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

@@ -9,13 +9,10 @@ Imports Microsoft.Office.Interop.Excel.XlBorderWeight
 Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
-Imports 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, file_name As String : Dim 本周周一 As Date
+    Dim GPP As String : Dim 本周周一 As Date
     Dim 暫不計算, 是否明細, 是否子明細, 上繳反轉, 紙帳存檔, 其他控制 As Boolean
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
@@ -1043,11 +1040,9 @@ Public Class 電板帳務彙總計算表
         Next
         For I As Integer = 0 To 所得合帳1_dgv.Rows.Count - 1
             If Val(所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString) <> 0 Then
-                If 所得合帳_dgv.Rows.Count > 0 Then ': MN1 += 1
-                End If
                 商品(MN1) = 所得合帳1_dgv.Rows(I).Cells("商品").Value.ToString : 帳號(MN1) = 所得合帳1_dgv.Rows(I).Cells("帳號").Value.ToString
                 客戶(MN1) = 所得合帳1_dgv.Rows(I).Cells("客戶").Value.ToString : 所得(MN1) = 所得合帳1_dgv.Rows(I).Cells("所得").Value.ToString
-                If 所得合帳_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : NN6 += 1
+                If 所得合帳1_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : MN1 += 1 : NN6 += 1
             End If
         Next
 
@@ -1073,8 +1068,27 @@ Public Class 電板帳務彙總計算表
         所得合帳2_dgv.Columns("所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         For i As Integer = 0 To 所得合帳2_dgv.Rows.Count - 1
-            所得合帳2_dgv.Rows(i).Cells("項次").Value = i + 1 : 所得合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i) : 所得合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
-            所得合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i) : 所得合帳2_dgv.Rows(i).Cells("所得.").Value = 所得(i) : 所得合帳2_dgv.Rows(i).Cells("所得").Value = 所得(i)
+            所得合帳2_dgv.Rows(i).Cells("項次").Value = i + 1
+            If IsNothing(商品(i)) = False Then
+                所得合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i)
+            Else
+                所得合帳2_dgv.Rows(i).Cells("商品").Value = ""
+            End If
+            If IsNothing(帳號(i)) = False Then
+                所得合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
+            Else
+                所得合帳2_dgv.Rows(i).Cells("帳號").Value = ""
+            End If
+            If IsNothing(客戶(i)) = False Then
+                所得合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i)
+            Else
+                所得合帳2_dgv.Rows(i).Cells("客戶").Value = ""
+            End If
+            If IsNothing(所得(i)) = False Then
+                所得合帳2_dgv.Rows(i).Cells("所得.").Value = 所得(i) : 所得合帳2_dgv.Rows(i).Cells("所得").Value = 所得(i)
+            Else
+                所得合帳2_dgv.Rows(i).Cells("所得.").Value = "" : 所得合帳2_dgv.Rows(i).Cells("所得").Value = ""
+            End If
             所得合帳2_dgv.Rows(i).Cells("所得.").Value = Strings.Format(Val(所得合帳2_dgv.Rows(i).Cells("所得.").Value), "#,##0")
         Next
     End Sub
@@ -1227,22 +1241,12 @@ Public Class 電板帳務彙總計算表
         Next
         For I As Integer = 0 To 水差合帳1_dgv.Rows.Count - 1
             If Val(水差合帳1_dgv.Rows(I).Cells("水差").Value.ToString) <> 0 Then
-                If 水差合帳_dgv.Rows.Count > 0 Then : MN1 += 1 : End If
-                商品(MN1) = 水差合帳1_dgv.Rows(I).Cells("商品").Value.ToString
-                水差(MN1) = 水差合帳1_dgv.Rows(I).Cells("水差").Value.ToString
-                If 水差合帳1_dgv.Columns.Count = 4 Then
-                    帳號(MN1) = ""
-                Else
-                    帳號(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value.ToString
-                End If
-                If 水差合帳1_dgv.Columns.Count = 4 Then
-                    客戶(MN1) = ""
-                ElseIf 水差合帳1_dgv.Columns.Count = 5 Then
-                    客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value
-                ElseIf 水差合帳1_dgv.Columns.Count = 6 Then
-                    客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("客戶").Value
-                End If
-                If 水差合帳_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : NN6 += 1
+                商品(MN1) = 水差合帳1_dgv.Rows(I).Cells("商品").Value.ToString : 水差(MN1) = 水差合帳1_dgv.Rows(I).Cells("水差").Value.ToString
+                If 水差合帳1_dgv.Columns.Count = 4 Then : 帳號(MN1) = "" : Else : 帳號(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value.ToString : End If
+                If 水差合帳1_dgv.Columns.Count = 4 Then : 客戶(MN1) = ""
+                ElseIf 水差合帳1_dgv.Columns.Count = 5 Then : 客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("帳號").Value
+                ElseIf 水差合帳1_dgv.Columns.Count = 6 Then : 客戶(MN1) = 水差合帳1_dgv.Rows(I).Cells("客戶").Value : End If
+                If 水差合帳1_dgv.Rows.Count = 0 Then : MN1 += 1 : End If : MN1 += 1 : NN6 += 1
             End If
         Next
 
@@ -1269,8 +1273,26 @@ Public Class 電板帳務彙總計算表
         水差合帳2_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
         For i As Integer = 0 To 水差合帳2_dgv.Rows.Count - 1
-            水差合帳2_dgv.Rows(i).Cells("項次").Value = i + 1 : 水差合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i) : 水差合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
-            水差合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i) : 水差合帳2_dgv.Rows(i).Cells("水差.").Value = 水差(i) : 水差合帳2_dgv.Rows(i).Cells("水差").Value = 水差(i)
+            If IsNothing(商品(i)) = False Then
+                水差合帳2_dgv.Rows(i).Cells("商品").Value = 商品(i)
+            Else
+                水差合帳2_dgv.Rows(i).Cells("商品").Value = ""
+            End If
+            If IsNothing(帳號(i)) = False Then
+                水差合帳2_dgv.Rows(i).Cells("帳號").Value = 帳號(i)
+            Else
+                水差合帳2_dgv.Rows(i).Cells("帳號").Value = ""
+            End If
+            If IsNothing(客戶(i)) = False Then
+                水差合帳2_dgv.Rows(i).Cells("客戶").Value = 客戶(i)
+            Else
+                水差合帳2_dgv.Rows(i).Cells("客戶").Value = ""
+            End If
+            If IsNothing(水差(i)) = False Then
+                水差合帳2_dgv.Rows(i).Cells("水差.").Value = 水差(i) : 水差合帳2_dgv.Rows(i).Cells("水差").Value = 水差(i)
+            Else
+                水差合帳2_dgv.Rows(i).Cells("水差.").Value = "" : 水差合帳2_dgv.Rows(i).Cells("水差").Value = ""
+            End If
             水差合帳2_dgv.Rows(i).Cells("水差.").Value = Strings.Format(Val(水差合帳2_dgv.Rows(i).Cells("水差.").Value), "#,##0")
         Next
     End Sub
@@ -2662,26 +2684,40 @@ Public Class 電板帳務彙總計算表
                     End If
                 End If
             Next
-
+            Dim 水差加總 As Boolean = False
             For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                     If 合帳_dgv("所反", 選擇記憶).Value = False Then
                         合帳_dgv("水差", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("水差1", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString
+                        合帳_dgv("水差1", 選擇記憶).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                     Else
                         合帳_dgv("水差", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("水差1", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                        合帳_dgv("水差1", 選擇記憶).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                     End If
                 End If
             Next
             For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                 If 合帳_dgv("客戶", 選擇記憶).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                     If 合帳_dgv("所反", 選擇記憶).Value = False Then
-                        合帳_dgv("水差", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
-                        合帳_dgv("水差1", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                        If 水差加總 = False Then
+                            合帳_dgv("水差", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("水差1", 選擇記憶).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                        Else
+                            If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
+                            If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
+                            合帳_dgv("水差", 選擇記憶).Value = CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                            合帳_dgv("水差1", 選擇記憶).Value = CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                        End If
                     Else
-                        合帳_dgv("水差", 選擇記憶).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1
-                        合帳_dgv("水差1", 選擇記憶).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                        If 水差加總 = False Then
+                            合帳_dgv("水差", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("水差1", 選擇記憶).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                        Else
+                            If 合帳_dgv("水差", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差", 選擇記憶).Value = "0" : End If
+                            If 合帳_dgv("水差1", 選擇記憶).Value.ToString = "" Then : 合帳_dgv("水差1", 選擇記憶).Value = "0" : End If
+                            合帳_dgv("水差", 選擇記憶).Value = (CInt(合帳_dgv("水差", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                            合帳_dgv("水差1", 選擇記憶).Value = (CInt(合帳_dgv("水差1", 選擇記憶).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                        End If
                     End If
                 End If
             Next
@@ -2913,21 +2949,40 @@ Public Class 電板帳務彙總計算表
                     End If
                 Next
 
+                Dim 水差加總 As Boolean = False
                 For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                         If 合帳_dgv("所反", I).Value = False Then
-                            合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString
+                            合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                         Else
-                            合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                            合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                         End If
                     End If
                 Next
                 For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                     If 合帳_dgv("客戶", I).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                         If 合帳_dgv("所反", I).Value = False Then
-                            合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                            If 水差加總 = False Then
+                                合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                                合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                            Else
+                                If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
+                                If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
+                                合帳_dgv("水差", I).Value = CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                                合帳_dgv("水差1", I).Value = CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                            End If
                         Else
-                            合帳_dgv("水差", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                            If 水差加總 = False Then
+                                合帳_dgv("水差", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                                合帳_dgv("水差1", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                            Else
+                                If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
+                                If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
+                                合帳_dgv("水差", I).Value = (CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                                合帳_dgv("水差1", I).Value = (CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                            End If
                         End If
                     End If
                 Next
@@ -3033,21 +3088,40 @@ Public Class 電板帳務彙總計算表
                         End If
                     Next
 
+                    Dim 水差加總 As Boolean = False
                     For II As Integer = 0 To 水差名_dgv.Rows.Count - 1
                         If 合帳_dgv("客戶", I).Value.ToString = 水差名_dgv("水差", II).Value.ToString Then
                             If 合帳_dgv("所反", I).Value = False Then
-                                合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString
+                                合帳_dgv("水差", I).Value = 水差名_dgv("交割金額", II).Value.ToString
+                                合帳_dgv("水差1", I).Value = 水差名_dgv("交割金額", II).Value.ToString : 水差加總 = True
                             Else
-                                合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                                合帳_dgv("水差", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1
+                                合帳_dgv("水差1", I).Value = Val(水差名_dgv("交割金額", II).Value.ToString) * -1 : 水差加總 = True
                             End If
                         End If
                     Next
                     For II As Integer = 0 To 水差名1_dgv.Rows.Count - 1
                         If 合帳_dgv("客戶", I).Value.ToString = 水差名1_dgv("水差", II).Value.ToString Then
                             If 合帳_dgv("所反", I).Value = False Then
-                                合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString : 合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                                If 水差加總 = False Then
+                                    合帳_dgv("水差", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                                    合帳_dgv("水差1", I).Value = 水差名1_dgv("交割金額", II).Value.ToString
+                                Else
+                                    If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
+                                    If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
+                                    合帳_dgv("水差", I).Value = CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                                    合帳_dgv("水差1", I).Value = CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)
+                                End If
                             Else
-                                合帳_dgv("水差", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1 : 合帳_dgv("水差1", I).Value = Val(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                                If 水差加總 = False Then
+                                    合帳_dgv("水差", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                                    合帳_dgv("水差1", I).Value = CInt(水差名1_dgv("交割金額", II).Value.ToString) * -1
+                                Else
+                                    If 合帳_dgv("水差", I).Value.ToString = "" Then : 合帳_dgv("水差", I).Value = "0" : End If
+                                    If 合帳_dgv("水差1", I).Value.ToString = "" Then : 合帳_dgv("水差1", I).Value = "0" : End If
+                                    合帳_dgv("水差", I).Value = (CInt(合帳_dgv("水差", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                                    合帳_dgv("水差1", I).Value = (CInt(合帳_dgv("水差1", I).Value.ToString) + CInt(水差名1_dgv("交割金額", II).Value.ToString)) * -1
+                                End If
                             End If
                         End If
                     Next
@@ -3151,11 +3225,7 @@ Public Class 電板帳務彙總計算表
         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((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設定()
+        If 其他控制 = False Then : 視窗4_pl.Location = New System.Drawing.Point(150, 300) : 視窗4_pl.BringToFront() : 其他控制 = True : Else : 視窗4_pl.SendToBack() : 其他控制 = False : End If
     End Sub
     Private Sub 自動正負反_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 自動正負反_ch.Click
         If 自動正負反_ch.Checked = True Then
@@ -3557,106 +3627,6 @@ Public Class 電板帳務彙總計算表
         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

@@ -23,12 +23,12 @@ Partial Class 電板帳務明細查詢表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(電板帳務明細查詢表))
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.日期_dgv = New System.Windows.Forms.DataGridView()
@@ -103,9 +103,9 @@ Partial Class 電板帳務明細查詢表
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.開始日期2_dtp = New System.Windows.Forms.DateTimePicker()
         Me.結束日期2_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
         Me.迦納彩_ch = New System.Windows.Forms.CheckBox()
         Me.加州彩_ch = New System.Windows.Forms.CheckBox()
-        Me.網址修正_dgv = New System.Windows.Forms.DataGridView()
         Me.四星彩_ch = New System.Windows.Forms.CheckBox()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.三星彩_ch = New System.Windows.Forms.CheckBox()
@@ -189,8 +189,8 @@ Partial Class 電板帳務明細查詢表
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.客戶下_dgv.Location = New System.Drawing.Point(7, 6)
         Me.客戶下_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -202,8 +202,8 @@ Partial Class 電板帳務明細查詢表
         '
         '日期_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.日期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.日期_dgv.Location = New System.Drawing.Point(7, 127)
         Me.日期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -714,8 +714,8 @@ Partial Class 電板帳務明細查詢表
         Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(653, 578)
         Me.彙總_dgv.TabIndex = 1522
@@ -731,8 +731,8 @@ Partial Class 電板帳務明細查詢表
         Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總1_dgv.Name = "彙總1_dgv"
         Me.彙總1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總1_dgv.RowTemplate.Height = 24
         Me.彙總1_dgv.Size = New System.Drawing.Size(653, 578)
         Me.彙總1_dgv.TabIndex = 1675
@@ -964,6 +964,23 @@ Partial Class 電板帳務明細查詢表
         Me.結束日期2_dtp.Size = New System.Drawing.Size(86, 23)
         Me.結束日期2_dtp.TabIndex = 1675
         '
+        '網址修正_dgv
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.網址修正_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.網址修正_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        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(382, 70)
+        Me.網址修正_dgv.TabIndex = 1701
+        Me.網址修正_dgv.Visible = False
+        '
         '迦納彩_ch
         '
         Me.迦納彩_ch.AutoSize = True
@@ -984,23 +1001,6 @@ Partial Class 電板帳務明細查詢表
         Me.加州彩_ch.Text = "加州彩"
         Me.加州彩_ch.UseVisualStyleBackColor = True
         '
-        '網址修正_dgv
-        '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
-        Me.網址修正_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.網址修正_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        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(382, 70)
-        Me.網址修正_dgv.TabIndex = 1701
-        Me.網址修正_dgv.Visible = False
-        '
         '四星彩_ch
         '
         Me.四星彩_ch.AutoSize = True