20220917備份

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

@@ -1794,13 +1794,13 @@ FROM 流水帳"
     Friend Sub SQL_後台彙總讀取()
         ConnOpen_子SQL()
         SQL1 = "SELECT  項次, 網址, 商品, 系統, 帳號, 虛量, 實量, 退水, 中獎, 輸贏, 貢獻額, 大總監, 移轉, 調退實佔, 排序
-                FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "'"
+                FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "' AND 排序 <> 0"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_後台彙總讀取1()
         ConnOpen_子SQL()
         SQL1 = "SELECT  項次, 網址, 商品, 系統, 帳號, 虛量, 實量, 退水, 中獎, 輸贏, 貢獻額, 大總監 AS 結果, 移轉, 排序, 調退實佔
-                FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "'"
+                FROM    後台彙總存檔 WHERE 週日月 LIKE '" & PA15 & "' AND 開始日期 LIKE '" & PA16 & "' AND 結束日期 LIKE '" & PA17 & "' AND 排序 <> 0"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_後台彙總讀取2()
@@ -1964,6 +1964,7 @@ FROM 流水帳"
     End Sub
     Friend Sub SQL_後台流水帳同日期清除()
         ConnOpen_子SQL() : SQL1 = "DELETE  後台流水帳 WHERE  (開始日期 LIKE N'" & PA1 & "') AND (日周月 IS NULL OR 日周月 LIKE '" & 天周月 & "')" : CmdSet_For_dr()
+        ConnOpen_子SQL() : SQL1 = "DELETE  後台外埔報表 WHERE  (開始日期 LIKE N'" & PA1 & "') AND (周日月 IS NULL OR 周日月 LIKE '" & 天周月 & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_後台查詢日期寫入()
         ConnOpen_子SQL() : SQL1 = "INSERT INTO 查詢時間 (開始, 結束, 是否全導) VALUES (N'" & PA1 & "', N'" & PA2 & "', '0')" : CmdSet_For_dr()

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

@@ -7,7 +7,7 @@
     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022090202"
+    Public 版本 As String = "2022091001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入 As Boolean

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

@@ -315,7 +315,7 @@ Public Class 電板帳務明細查詢表
         流水帳_dgv.Columns("水差").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         流水帳_dgv.Columns("核帳").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        For i As Integer = 19 To 62 : 流水帳_dgv.Columns(i).Visible = False : Next
+        For i As Integer = 20 To 63 : 流水帳_dgv.Columns(i).Visible = False : Next
 
         If 是否計算 = True Then
             資料數 = 流水帳_dgv.Rows.Count : 進度條視窗.Show()

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

@@ -165,13 +165,13 @@ Public Class 後台帳務明細查詢表
             Next
             For ii As Integer = 0 To 外埔_dgv.Rows.Count - 1
                 If 彙總1_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 外埔_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
+                    彙總1_dgv.Rows(i).Cells("大總監").Value = CLng(彙總1_dgv.Rows(i).Cells("大總監").Value.ToString) + CLng(外埔_dgv.Rows(ii).Cells("小計").Value.ToString)
                     彙總1_dgv.Rows(i).Cells("移轉").Value = CLng(彙總1_dgv.Rows(i).Cells("移轉").Value.ToString) + CLng(外埔_dgv.Rows(ii).Cells("小計").Value.ToString)
+                    彙總1_dgv.Rows(i).Cells("排序").Value = CLng(彙總1_dgv.Rows(i).Cells("排序").Value.ToString) + CLng(外埔_dgv.Rows(ii).Cells("小計").Value.ToString)
                 End If
             Next
             彙總1_dgv.Rows(i).Cells("實量").Value = CLng(彙總1_dgv.Rows(i).Cells("虛量").Value.ToString) - CLng(彙總1_dgv.Rows(i).Cells("退水").Value.ToString)
         Next
-
-        Set_上下層核帳_計算2()
     End Sub
     Private Sub Set_上下層核帳_計算2()
         虛量_tb.Text = "0" : 實量_tb.Text = "0" : 退水_tb.Text = "0" : 中獎_tb.Text = "0" : 輸贏_tb.Text = "0" : 貢獻額_tb.Text = "0" : 大總監_tb.Text = "0" : 移轉_tb.Text = "0"
@@ -454,7 +454,7 @@ Public Class 後台帳務明細查詢表
             Next
             所選商品_tb.Text = ""
         End If
-        Set_流水帳清單2() : Set_流水帳清單3() : Panel1.Visible = False ': Panel2.Visible = False
+        Set_流水帳清單2() : Me.Enabled = True : Set_流水帳清單3() : Panel1.Visible = False ': Panel2.Visible = False
         MyModule1.計算顯示3() : 結果存檔_bt.PerformClick()
     End Sub
     Private Sub 流水帳_dgv上層算出()
@@ -1033,7 +1033,7 @@ Public Class 後台帳務明細查詢表
                 PA13 = 彙總1_dgv.Rows(i).Cells("大總監").Value.ToString : PA14 = 彙總1_dgv.Rows(i).Cells("移轉").Value.ToString : PA18 = 彙總1_dgv.Rows(i).Cells("調退實佔").Value.ToString
                 SQL_後台彙總_新增()
             Next
-            MyModule1.計算顯示3()
+            MyModule1.計算顯示3() : Set_明細日期清單() : Me.BringToFront()
         End If
     End Sub
     Private Sub 存檔()
@@ -1171,8 +1171,8 @@ Public Class 後台帳務明細查詢表
                 Else
                     MsgBox("沒有需要重新導入的網址與帳號!!") : Me.Enabled = True
                 End If
-            End If : Me.Enabled = True
-        End If : Me.Enabled = True
+            End If ': Me.Enabled = True
+        End If ': Me.Enabled = True
     End Sub
     Private Sub 自動導入_bt_Click(sender As Object, e As EventArgs) Handles 自動導入_bt.Click
         減輕計算 = False
@@ -1215,7 +1215,7 @@ Public Class 後台帳務明細查詢表
         SQL_自動導入判斷()
         If dr.Read() Then
             If dr("正在自動導入中").ToString = "NO" Or dr("正在自動導入中").ToString = "No" Or dr("正在自動導入中").ToString = "no" Then
-                Timer1.Enabled = False
+                Timer1.Enabled = False : SQL_後台LOG_刪除1()
                 後台LOG檔.ShowDialog() : SQL_SQL_後台自動導入判斷_關閉() : SQL_後台查詢日期清空() : SQL_後台商客資料暫存檔_刪除() : Set_日期清單()
                 存檔()
 
@@ -1223,7 +1223,7 @@ Public Class 後台帳務明細查詢表
                 SQL_後台LOG流水()
                 If dr.Read() Then : SS = dr("項") : Else : SS = 0 : End If
                 SS += 1 : PA13 = SS : PA12 = Strings.Format(開始日期_dtp.Value, "yyyy-MM-dd") & " / " & Strings.Format(結束日期_dtp.Value, "yyyy-MM-dd")
-                有無資料判斷() : Me.Enabled = True
+                有無資料判斷() ': Me.Enabled = True
             End If : conn.Close()
         End If
     End Sub

GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb

@@ -39,11 +39,11 @@ Partial Class 系統公告
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(2, 126)
+        Me.TextBox1.Location = New System.Drawing.Point(2, 90)
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.TextBox1.Size = New System.Drawing.Size(680, 418)
+        Me.TextBox1.Size = New System.Drawing.Size(680, 454)
         Me.TextBox1.TabIndex = 0
         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
         '
@@ -65,8 +65,7 @@ Partial Class 系統公告
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 514)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022090201" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、電板明細清單中的客戶 (資料欄位) 去除後方 ( ) 內的資料，只留下客戶名稱。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、電板明細中設定" &
-    "計算、所得、同帳都關閉的資料將不再顯示出來。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、後台帳務抓取加入抓取調退實佔的資料，並新增可列印成EXCEL的功能。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2022091001" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、後台帳務系統抓取帳務流程優化。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '

GA-ERP-SYS/特殊操作功能/系統公告.resx

@@ -118,7 +118,13 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022082901
+    <value>版本號 : 2022090201
+更新內容如下 :
+1、電板明細清單中的客戶 (資料欄位) 去除後方 ( ) 內的資料，只留下客戶名稱。
+2、電板明細中設定計算、所得、同帳都關閉的資料將不再顯示出來。
+3、後台帳務抓取加入抓取調退實佔的資料，並新增可列印成EXCEL的功能。
+
+版本號 : 2022082901
 更新內容如下 :
 1、系統更名為  致富網
 2、修正報表系統管理操作選項的布置(請參考下圖。