20230513備份

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

         '倉儲明細表.作業日期 LIKE '" & PA & "'
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_當日送貨1()
+        ConnOpen()
+        SQL1 = "SELECT     銷售控制表.交貨日期 AS 作業日期, 銷售控制表.單號, 客戶資料表.名稱, SUM(銷售明細表.售價 * 銷售明細表.數量) 
+                           AS 簽單金額, WWW.收入1 AS 其他應收, QQQ.收入 AS 目前已收, QQQ.收入 AS 未收餘額
+                FROM      (SELECT      SUM(CAST(收入 AS decimal(18, 2))) AS 收入, LEFT(明細, 7) AS 單號1
+                           FROM        公帳流水帳
+                           WHERE      (CAST(收入 AS decimal(18, 2)) <> 0) AND (明細 NOT LIKE '') AND (PATINDEX('%[^0-9]%', 
+                                       RIGHT(LEFT(明細, 7), 4)) = 0)
+                           GROUP BY    LEFT(明細, 7)) AS QQQ RIGHT OUTER JOIN
+                           銷售控制表 ON QQQ.單號1 = 銷售控制表.單號 LEFT OUTER JOIN
+                           銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN
+                           客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 RIGHT OUTER JOIN
+                           倉儲明細表 ON 銷售控制表.單號 = 倉儲明細表.採購單號 LEFT OUTER JOIN
+                          (SELECT      單號, SUM(收入) AS 收入1
+                           FROM        銷售備註表
+                           WHERE      (收入 <> 0)
+                           GROUP BY    單號) AS WWW ON 銷售控制表.單號 = WWW.單號
+                WHERE     (銷售控制表.交貨日期 LIKE '" & PA & "')
+                GROUP BY   銷售控制表.交貨日期, 銷售控制表.單號, 客戶資料表.名稱, WWW.收入1, QQQ.收入
+                ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 單號 DESC"
+        '倉儲明細表.作業日期 LIKE '" & PA & "'
+        CmdSet_For_DGV()
+    End Sub
     '---------------------匯率管理.------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_匯率管理_歷史匯率清單()
         ConnOpen()

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

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

YD-ERP-SYS/財務系統管理/高層客製報表.Designer.vb

         Me.未審核_lb.AutoSize = True
         Me.未審核_lb.Location = New System.Drawing.Point(125, 93)
         Me.未審核_lb.Name = "未審核_lb"
-        Me.未審核_lb.Size = New System.Drawing.Size(56, 16)
+        Me.未審核_lb.Size = New System.Drawing.Size(55, 16)
         Me.未審核_lb.TabIndex = 1536
         Me.未審核_lb.Text = "業務編號"
         '
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label4.Location = New System.Drawing.Point(224, 4)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(56, 16)
+        Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1538
         Me.Label4.Text = "報表日期"
         '
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.字體大小調整_lb.Location = New System.Drawing.Point(588, 4)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
         Me.字體大小調整_lb.TabIndex = 1544
         Me.字體大小調整_lb.Text = "字體調整"
         '
         'Label1
         '
         Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.Location = New System.Drawing.Point(61, 29)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.Size = New System.Drawing.Size(51, 15)
         Me.Label1.TabIndex = 1547
         Me.Label1.Text = "今日簽單"
         '
         'Label2
         '
         Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label2.Location = New System.Drawing.Point(61, 165)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.Size = New System.Drawing.Size(51, 15)
         Me.Label2.TabIndex = 1548
         Me.Label2.Text = "今日出單"
         '
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(-4, 14)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(988, 16)
+        Me.Label3.Size = New System.Drawing.Size(987, 16)
         Me.Label3.TabIndex = 1549
         Me.Label3.Text = "_________________________________________________________________________________" &
     "________________________________________________________________________________" &
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(60, 301)
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label5.Location = New System.Drawing.Point(60, 300)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.Size = New System.Drawing.Size(51, 15)
         Me.Label5.TabIndex = 1555
         Me.Label5.Text = "今日支出"
         '
         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(58, 316)
+        Me.今日支出_dgv.Location = New System.Drawing.Point(58, 315)
         Me.今日支出_dgv.Name = "今日支出_dgv"
         Me.今日支出_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.今日支出_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.今日支出_dgv.RowTemplate.Height = 24
-        Me.今日支出_dgv.Size = New System.Drawing.Size(691, 164)
+        Me.今日支出_dgv.Size = New System.Drawing.Size(691, 140)
         Me.今日支出_dgv.TabIndex = 1554
         '
         '刪除選中資料3_bt
         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(58, 498)
+        Me.今日結算_dgv.Location = New System.Drawing.Point(58, 471)
         Me.今日結算_dgv.Name = "今日結算_dgv"
         Me.今日結算_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.今日結算_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.今日結算_dgv.RowTemplate.Height = 24
-        Me.今日結算_dgv.Size = New System.Drawing.Size(691, 177)
+        Me.今日結算_dgv.Size = New System.Drawing.Size(691, 204)
         Me.今日結算_dgv.TabIndex = 1558
         '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(61, 483)
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label6.Location = New System.Drawing.Point(61, 456)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.Size = New System.Drawing.Size(51, 15)
         Me.Label6.TabIndex = 1559
         Me.Label6.Text = "今日結算"
         '
         Me.Label7.AutoSize = True
         Me.Label7.Location = New System.Drawing.Point(-361, 14)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(1178, 16)
+        Me.Label7.Size = New System.Drawing.Size(1177, 16)
         Me.Label7.TabIndex = 1563
         Me.Label7.Text = resources.GetString("Label7.Text")
         '
         Me.Label8.AutoSize = True
         Me.Label8.Location = New System.Drawing.Point(606, 29)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(50, 16)
+        Me.Label8.Size = New System.Drawing.Size(49, 16)
         Me.Label8.TabIndex = 1564
         Me.Label8.Text = "流水號 :"
         '
         Me.Label9.AutoSize = True
         Me.Label9.Location = New System.Drawing.Point(606, 165)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(50, 16)
+        Me.Label9.Size = New System.Drawing.Size(49, 16)
         Me.Label9.TabIndex = 1565
         Me.Label9.Text = "流水號 :"
         '
         Me.Label10.AutoSize = True
         Me.Label10.Location = New System.Drawing.Point(606, 301)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(50, 16)
+        Me.Label10.Size = New System.Drawing.Size(49, 16)
         Me.Label10.TabIndex = 1566
         Me.Label10.Text = "流水號 :"
         '
         Me.流水1_lb.AutoSize = True
         Me.流水1_lb.Location = New System.Drawing.Point(659, 29)
         Me.流水1_lb.Name = "流水1_lb"
-        Me.流水1_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水1_lb.Size = New System.Drawing.Size(37, 16)
         Me.流水1_lb.TabIndex = 1568
         Me.流水1_lb.Text = ".........."
         '
         Me.流水2_lb.AutoSize = True
         Me.流水2_lb.Location = New System.Drawing.Point(659, 165)
         Me.流水2_lb.Name = "流水2_lb"
-        Me.流水2_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水2_lb.Size = New System.Drawing.Size(37, 16)
         Me.流水2_lb.TabIndex = 1569
         Me.流水2_lb.Text = ".........."
         '
         Me.流水3_lb.AutoSize = True
         Me.流水3_lb.Location = New System.Drawing.Point(659, 301)
         Me.流水3_lb.Name = "流水3_lb"
-        Me.流水3_lb.Size = New System.Drawing.Size(38, 16)
+        Me.流水3_lb.Size = New System.Drawing.Size(37, 16)
         Me.流水3_lb.TabIndex = 1570
         Me.流水3_lb.Text = ".........."
         '
         Me.Label11.AutoSize = True
         Me.Label11.Location = New System.Drawing.Point(288, 30)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(56, 16)
+        Me.Label11.Size = New System.Drawing.Size(55, 16)
         Me.Label11.TabIndex = 1574
         Me.Label11.Text = "今日送貨"
         '
         Me.Label12.AutoSize = True
         Me.Label12.Location = New System.Drawing.Point(4, 29)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(56, 16)
+        Me.Label12.Size = New System.Drawing.Size(55, 16)
         Me.Label12.TabIndex = 1573
         Me.Label12.Text = "今日簽單"
         '
         Me.Label13.ForeColor = System.Drawing.Color.Red
         Me.Label13.Location = New System.Drawing.Point(1, 5)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(32, 16)
+        Me.Label13.Size = New System.Drawing.Size(31, 16)
         Me.Label13.TabIndex = 1576
         Me.Label13.Text = "單號"
         '
         Me.Label14.ForeColor = System.Drawing.Color.Red
         Me.Label14.Location = New System.Drawing.Point(245, 5)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(80, 16)
+        Me.Label14.Size = New System.Drawing.Size(79, 16)
         Me.Label14.TabIndex = 1580
         Me.Label14.Text = "準備帶入資料"
         '
         Me.逆向_ch.AutoSize = True
         Me.逆向_ch.Location = New System.Drawing.Point(7, 607)
         Me.逆向_ch.Name = "逆向_ch"
-        Me.逆向_ch.Size = New System.Drawing.Size(51, 52)
+        Me.逆向_ch.Size = New System.Drawing.Size(50, 52)
         Me.逆向_ch.TabIndex = 1587
         Me.逆向_ch.Text = "前帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "追朔" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "模式"
         Me.逆向_ch.UseVisualStyleBackColor = True
         Me.順向_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.順向_ch.Location = New System.Drawing.Point(7, 549)
         Me.順向_ch.Name = "順向_ch"
-        Me.順向_ch.Size = New System.Drawing.Size(51, 52)
+        Me.順向_ch.Size = New System.Drawing.Size(50, 52)
         Me.順向_ch.TabIndex = 1586
         Me.順向_ch.Text = "正常" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "作帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "模式"
         Me.順向_ch.UseVisualStyleBackColor = True
         Me.Label15.AutoSize = True
         Me.Label15.Location = New System.Drawing.Point(-3, 14)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(583, 16)
+        Me.Label15.Size = New System.Drawing.Size(582, 16)
         Me.Label15.TabIndex = 1584
         Me.Label15.Text = "_________________________________________________________________________________" &
     "__________________________________"

YD-ERP-SYS/財務系統管理/高層客製報表.vb

             Set_今日結算_dgv_計算()
         Else
             PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
-            新增資料流水1() : PA2 = "1.刷卡" : PA3 = "支票" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "2.雅邸" : PA3 = "活存" : SQL_客製表2_新增()
-            新增資料流水1() : PA2 = "3.呂苡瑄" : PA3 = "活存" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "4.中國信託" : PA3 = "活存" : SQL_客製表2_新增()
-            新增資料流水1() : PA2 = "5.EDA" : PA3 = "" : SQL_客製表2_新增() : 新增資料流水1() : PA2 = "6.合計" : PA3 = "" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "1.刷卡" : PA3 = "支票" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "2.雅邸" : PA3 = "活存" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "3.呂苡瑄" : PA3 = "活存" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "4.國泰世華" : PA3 = "活存" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "5.EDA" : PA3 = "" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "6.Doris" : PA3 = "" : SQL_客製表2_新增()
+            新增資料流水1() : PA2 = "7.合計" : PA3 = "" : SQL_客製表2_新增()
             Set_清單4()
         End If
     End Sub
             今日送貨_dgv.RowTemplate.Height = 25
 
             PA = Strings.Format(開單日期_dtp.Value, "yyyy/MM/dd")
-            SQL_當日送貨()
+            SQL_當日送貨1()
             da.Fill(ds5) : 今日送貨_dgv.DataSource = ds5.Tables(0) : conn.Close()
             今日送貨_dgv.Columns(3).Visible = False : 今日送貨_dgv.Columns(4).Visible = False : 今日送貨_dgv.Columns(5).Visible = False : 今日送貨_dgv.Columns(6).Visible = False
             今日送貨_dgv.Columns("簽單金額").DefaultCellStyle.Format = "#,##0" : 今日送貨_dgv.Columns("目前已收").DefaultCellStyle.Format = "#,##0"
     Private Sub Set_今日結算_dgv_計算()
         Dim A4, A5, A6, A7, A8, A10 As Integer
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
-            If 今日結算_dgv(2, i).Value.ToString <> "6.合計" Then
+            If 今日結算_dgv(2, i).Value.ToString <> "7.合計" Then
                 If 順向_ch.Checked = True Then
                     今日結算_dgv(10, i).Value = 今日結算_dgv(4, i).Value + 今日結算_dgv(5, i).Value + 今日結算_dgv(6, i).Value + 今日結算_dgv(7, i).Value - 今日結算_dgv(8, i).Value
                 Else
             End If
         Next
         For i As Integer = 0 To 今日結算_dgv.Rows.Count - 1
-            If 今日結算_dgv(2, i).Value.ToString = "6.合計" Then
+            If 今日結算_dgv(2, i).Value.ToString = "7.合計" Then
                 今日結算_dgv(4, i).Value = A4 : 今日結算_dgv(5, i).Value = A5 : 今日結算_dgv(6, i).Value = A6 : 今日結算_dgv(7, i).Value = A7
                 今日結算_dgv(8, i).Value = A8 : 今日結算_dgv(10, i).Value = A10
             End If