20230319備份

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 = "2023022001"
+    Public 版本 As String = "2023031601"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/採購系統管理/採購對帳單.vb

         採購清單_dgv.Columns(24).FillWeight = 80 : 採購清單_dgv.Columns(25).FillWeight = 80 : 採購清單_dgv.Columns(26).FillWeight = 80 : 採購清單_dgv.Columns(27).FillWeight = 45
         採購清單_dgv.Columns(28).FillWeight = 45 : 採購清單_dgv.Columns(29).Visible = False
 
-        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+        採購清單_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 採購清單_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0.0"
         採購清單_dgv.Columns("金額").DefaultCellStyle.Format = "#,##0"
         採購清單_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         採購清單_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

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

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
         '
         '供應商_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Lavender
-        Me.供應商_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.Lavender
+        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.Location = New System.Drawing.Point(247, 81)
         Me.供應商_dgv.Name = "供應商_dgv"
         Me.供應商_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
         Me.供應商_dgv.RowTemplate.Height = 24
         Me.供應商_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.供應商_dgv.TabIndex = 1439
         '
         '採購清單_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.採購清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.採購清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.採購清單_dgv.Location = New System.Drawing.Point(247, 81)
         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
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.採購清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.採購清單_dgv.RowTemplate.Height = 24
         Me.採購清單_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.採購清單_dgv.TabIndex = 1443
         '
         '合計_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.合計_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.合計_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.合計_dgv.Location = New System.Drawing.Point(4, 428)
         Me.合計_dgv.Name = "合計_dgv"
         Me.合計_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15
         Me.合計_dgv.RowTemplate.Height = 24
         Me.合計_dgv.Size = New System.Drawing.Size(237, 153)
         Me.合計_dgv.TabIndex = 1479
         Me.外埔報表_dgv.Location = New System.Drawing.Point(247, 81)
         Me.外埔報表_dgv.Name = "外埔報表_dgv"
         Me.外埔報表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.外埔報表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.外埔報表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.外埔報表_dgv.RowTemplate.Height = 24
         Me.外埔報表_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.外埔報表_dgv.TabIndex = 1523
         '
         '供應商1_dgv
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.Lavender
-        Me.供應商1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.Lavender
+        Me.供應商1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.供應商1_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.供應商1_dgv.Location = New System.Drawing.Point(247, 81)
         Me.供應商1_dgv.Name = "供應商1_dgv"
         Me.供應商1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.供應商1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.供應商1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.供應商1_dgv.RowTemplate.Height = 24
         Me.供應商1_dgv.Size = New System.Drawing.Size(1092, 607)
         Me.供應商1_dgv.TabIndex = 1525

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

         供應商_dgv.Columns(13).DefaultCellStyle.BackColor = Color.MistyRose
 
         For i As Integer = 0 To 供應商_dgv.Rows.Count - 1
+            Dim DD As String = 供應商_dgv("編號", i).Value.ToString
             If 供應商_dgv("編號", i).Value.ToString = "" Then
                 供應商_dgv("編號", i).Value = 供應商_dgv("廠商編碼", i).Value.ToString : 供應商_dgv("稅金1", i).Value = "0"
                 供應商_dgv("廣告1", i).Value = "0" : 供應商_dgv("當月貨款", i).Value = "0"
         採購明細_bt.Enabled = False : 應負帳款_bt.Enabled = True : 補充備註_bt.Enabled = True : 採購清單_dgv.Visible = True : 供應商1_dgv.Visible = False : 外埔報表_dgv.Visible = False
         應負帳款退回_bt.Enabled = True : 提示_lb.Text = "要將採購明細資料退回時，請點選採購明細中要退回的資料後點選左邊的應負帳款退回"
         轉財務系統_bt.Enabled = False : 主會科_cb.Enabled = False : 主會科編號_cb.Enabled = False : 副會科_cb.Enabled = False : 副會科編號_cb.Enabled = False
-        子會科_cb.Enabled = False : 幣別_cb.Enabled = False : 應負帳款退回_bt.Text = "應付帳款退回"
+        子會科_cb.Enabled = False : 幣別_cb.Enabled = False : 應負帳款退回_bt.Text = "應付帳款退回" : Panel1.SendToBack()
     End Sub
     Private Sub 應負帳款_bt_Click(sender As Object, e As EventArgs) Handles 應負帳款_bt.Click
         採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = False : 補充備註_bt.Enabled = True : 採購清單_dgv.Visible = False : 供應商1_dgv.Visible = True : 外埔報表_dgv.Visible = False
         應負帳款退回_bt.Enabled = False : 提示_lb.Text = "目前呈現表單為應付帳款，若要退回採購明細資料請點選下方採購明細"
         轉財務系統_bt.Enabled = True : 主會科_cb.Enabled = True : 主會科編號_cb.Enabled = True : 副會科_cb.Enabled = True : 副會科編號_cb.Enabled = True
-        子會科_cb.Enabled = True : 幣別_cb.Enabled = True : 應負帳款退回_bt.Text = "應付帳款退回"
+        子會科_cb.Enabled = True : 幣別_cb.Enabled = True : 應負帳款退回_bt.Text = "應付帳款退回" : Panel1.SendToBack()
     End Sub
     Private Sub 補充備註_bt_Click(sender As Object, e As EventArgs) Handles 補充備註_bt.Click
         採購明細_bt.Enabled = True : 應負帳款_bt.Enabled = True : 補充備註_bt.Enabled = False : 採購清單_dgv.Visible = False : 供應商1_dgv.Visible = False : 外埔報表_dgv.Visible = True
         應負帳款退回_bt.Enabled = True : 提示_lb.Text = "要將備註資料退回時，請點選備註明細中要退回的資料後點選左邊的備註過帳退回"
         轉財務系統_bt.Enabled = False : 主會科_cb.Enabled = False : 主會科編號_cb.Enabled = False : 副會科_cb.Enabled = False : 副會科編號_cb.Enabled = False
-        子會科_cb.Enabled = False : 幣別_cb.Enabled = False : 應負帳款退回_bt.Text = "備註過帳退回"
+        子會科_cb.Enabled = False : 幣別_cb.Enabled = False : 應負帳款退回_bt.Text = "備註過帳退回" : Panel1.SendToBack()
     End Sub
     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
         Set_清單4() : Set_清單1() : Set_清單2()