123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394 |
- Option Strict Off
- Imports System.Data.SqlClient
- Public Class 營運成本收支單申請
- ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : Dim ds4 As New DataSet
- Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
- Dim NUM1 As Integer : Dim 匯率1 As Double : ReadOnly 對話框(4) As String
- Private Sub Set_清單1()
- 營運收支單_dgv.DataSource = Nothing : ds1.Clear()
- 營運收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 營運收支單_dgv.ColumnHeadersHeight = 25
- 營運收支單_dgv.AllowUserToAddRows = False
-
- If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
- If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = False Then
- SQL_營運成本收支單申請_審核人1()
- ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True And 已核准的營運成本收支單_rb.Checked = False Then
- SQL_營運成本收支單申請_審核人2()
- ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = True Then
- SQL_營運成本收支單申請_審核人3()
- End If
- SQL_營運成本收支單申請_查詢財務收支控制表()
- da.Fill(ds1) : 營運收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
- 營運收支單_dgv.Columns(0).FillWeight = 160 : 營運收支單_dgv.Columns(1).FillWeight = 100 : 營運收支單_dgv.Columns(2).FillWeight = 100 : 營運收支單_dgv.Columns(3).Visible = False
- End Sub
- Private Sub Set_費用清單()
- 單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
- 單一筆收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 單一筆收支單_dgv.ColumnHeadersHeight = 25
- 單一筆收支單_dgv.AllowUserToAddRows = False
- 單一筆收支單_dgv.RowTemplate.Height = 35
- SQL_營運成本收支單申請_查詢費用清單() : da.Fill(ds) : 單一筆收支單_dgv.DataSource = ds.Tables(0) : conn.Close()
-
- 單一筆收支單_dgv.Columns(0).Visible = False : 單一筆收支單_dgv.Columns(1).FillWeight = 80 : 單一筆收支單_dgv.Columns(2).FillWeight = 300 : 單一筆收支單_dgv.Columns(3).FillWeight = 500
- 單一筆收支單_dgv.Columns(4).FillWeight = 140 : 單一筆收支單_dgv.Columns(5).FillWeight = 140 : 單一筆收支單_dgv.Columns(6).FillWeight = 140 : 單一筆收支單_dgv.Columns(7).FillWeight = 140
- 單一筆收支單_dgv.Columns(8).FillWeight = 140 : 單一筆收支單_dgv.Columns(9).FillWeight = 140 : 單一筆收支單_dgv.Columns(10).FillWeight = 140 : 單一筆收支單_dgv.Columns(11).Visible = False
- 單一筆收支單_dgv.Columns(12).Visible = False
-
- 單一筆收支單_dgv.Columns(1).ReadOnly = True : 單一筆收支單_dgv.Columns(2).ReadOnly = True : 單一筆收支單_dgv.Columns(9).ReadOnly = True : 單一筆收支單_dgv.Columns(10).ReadOnly = True
-
- 單一筆收支單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 單一筆收支單_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
- 單一筆收支單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
- 單一筆收支單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 單一筆收支單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
- 單一筆收支單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
- 單一筆收支單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
- 單一筆收支單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
-
- 現金_tb.Text = "0.00" : 支出_tb.Text = "0.00" : 現金餘額_tb.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
- For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
- 現金_tb.Text = Val(現金_tb.Text) + Val(單一筆收支單_dgv.Rows(i).Cells(表頭(39)).Value) : 支出_tb.Text = Val(支出_tb.Text) + Val(單一筆收支單_dgv.Rows(i).Cells(表頭(112)).Value)
- 零用金_tb.Text = Val(零用金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(110)).Value : 支票_tb.Text = Val(支票_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(111)).Value
- Next i
- 現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
- If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
- 現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
- 零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
- End Sub
- Private Sub ComboBox1下拉表單資料載入()
- conn.Close()
- SQL_營運成本收支單申請_查詢財務收支控制表會計科目() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear()
- While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
- If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
- End Sub
- Private Sub ComboBox2下拉表單資料載入()
- conn.Close()
- SQL_營運成本收支單申請_查詢最後一筆財務收支控制表會計科目() : ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
- While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
- End Sub
- Private Sub ComboBox3下拉表單資料載入()
- conn.Close()
- SQL_營運成本收支單申請_查詢最左邊財務收支控制表會計科目() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
- While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
- End Sub
- Private Sub 匯率()
- SQL_營運成本收支單申請_查詢匯率()
- If dr.Read() Then
- 人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼盾").ToString
- conn.Close() : dr.Close()
- Else
- conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront()
- End If
- End Sub
- Private Sub Set_切換格式()
- 單一筆收支單_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
- 選擇項次_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
- 零用金_tb.Text = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
- End Sub
- Private Sub Set_語言()
- 語言_dgv.DataSource = Nothing : ds4.Clear()
- 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 語言_dgv.ColumnHeadersHeight = 25
- 語言_dgv.AllowUserToAddRows = False
- SQL_系統語言導入()
- da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
- End Sub
- Private Sub 語言轉換讀取()
- Set_語言() : conn.Close()
- For i As Integer = 0 To 語言_dgv.Rows.Count - 1
- If 語言_dgv("控件", i).Value.ToString = "營運成本收支單申請" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "未核准的營運成本收支單_rb" Then : 未核准的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "作廢的營運成本收支單_rb" Then : 作廢的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "已核准的營運成本收支單_rb" Then : 已核准的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運成本收支單號" Then : 申請完成_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "申請人_lb" Then : 申請人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "日期_lb" Then : 日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "補單_cb" Then : 補單_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "開立營運成本收支單_bt" Then : 開立營運成本收支單_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "刪除選中的營運成本收支單_bt" Then : 刪除選中的營運成本收支單_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "複製歷史單據重新開立_bt" Then : 複製歷史單據重新開立_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "零用金_lb" Then : 零用金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支票_lb" Then : 支票_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "現金_lb" Then : 現金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "支出_lb" Then : 支出_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "未核准的營運成本收支單_rb" Then : 未核准的營運成本收支單_rb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "選擇_lb" Then : 選擇_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "項次_lb" Then : 項次_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "會計科目_lb" Then : 會計科目_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "關鍵_lb" Then : 關鍵_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "收支單中新增一筆空白資料_bt" Then : 收支單中新增一筆空白資料_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "刪除選中的一筆資料_bt" Then : 刪除選中的一筆資料_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "資料尚未存檔_lb" Then : 資料尚未存檔_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "申請完成_bt" Then : 申請完成_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "營運成本收支單號_lb" Then : 營運成本收支單號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "現金餘額_lb" Then : 現金餘額_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_收支單號" Then : 表頭(107) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_審核日期" Then : 表頭(108) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_項次" Then : 表頭(11) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計科目" Then : 表頭(98) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_用途" Then : 表頭(109) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_零用金" Then : 表頭(110) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支票" Then : 表頭(111) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_現金" Then : 表頭(39) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支出" Then : 表頭(112) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_票期" Then : 表頭(113) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_匯率" Then : 表頭(114) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "清單_dgv_幣別" Then : 表頭(115) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
- Next
- End Sub
- Private Sub 營運成本收支單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 介面 = "H301" : Set_語言() : 語言轉換讀取()
- Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
- 未核准的營運成本收支單_rb.Checked = True : 日期_dtp.Visible = False : 複製歷史單據重新開立_bt.Enabled = False : ComboBox6.Visible = False
- 營運收支單_dgv.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
- 匯率()
- End Sub
- Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
- ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
- End Sub
- Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
- ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
- End Sub
- Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
- ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
- End Sub
- Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
- ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
- ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
- End Sub
- Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
- ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
- End Sub
- Private Sub 關鍵字查詢會計科目_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字查詢會計科目_tb.TextChanged
- conn.Close()
- SQL_營運成本收支單申請_營運成本會計科目查詢() : conn.Close()
- If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
- End Sub
- Private Sub 單一筆收支單_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 單一筆收支單_dgv.CellEndEdit
- 現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
- For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
- 現金_tb.Text = Val(現金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(39)).Value : 支出_tb.Text = Val(支出_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(112)).Value
- 零用金_tb.Text = Val(零用金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(110)).Value : 支票_tb.Text = Val(支票_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells(表頭(111)).Value
- Next i
- 現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
- If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
- 現金_tb.Text = Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0")
- 零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
- Dim EU As String
- EU = 單一筆收支單_dgv(表頭(113), e.RowIndex).Value.ToString
- If EU = "" Then
- Else
- 日期_dtp.Text = EU
- 單一筆收支單_dgv.Rows(e.RowIndex).Cells(表頭(113)).Value = Format(日期_dtp.Value, "yyyy/MM/dd")
- End If
- End Sub
- Private Sub 營運收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 營運收支單_dgv.CellClick
- If e.RowIndex = -1 Then : Else
- 營運成本收支單號_tb.Text = 營運收支單_dgv(0, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 營運收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
- 申請人_tb.Text = 營運收支單_dgv(3, e.RowIndex).Value.ToString
- End If
- End Sub
- Private Sub 單一筆收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單一筆收支單_dgv.CellClick
- If e.RowIndex = -1 Then : Else
- 選擇項次_tb.Text = 單一筆收支單_dgv(1, e.RowIndex).Value.ToString
- End If
- End Sub
-
- Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
- 未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False
- 申請完成_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = False
- 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
- 刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
- End Sub
- Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
- 未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False
- 申請完成_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = False
- 開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
- 刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
- End Sub
- Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准的營運成本收支單_rb.Click
- If CC(28) = False Then
- 未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
- 申請完成_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = True
- 開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
- 刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
- Else
- 未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
- 申請完成_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = True
- 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
- 刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
- End If
- End Sub
- Private Sub 存檔()
- For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
- 資料數 = 單一筆收支單_dgv.Rows.Count : MyModule1.進度條()
- PA1 = 單一筆收支單_dgv.Rows(i).Cells(表頭(109)).Value : PA2 = 單一筆收支單_dgv.Rows(i).Cells(表頭(112)).Value : PA3 = 單一筆收支單_dgv.Rows(i).Cells(表頭(113)).Value
- PA4 = 單一筆收支單_dgv.Rows(i).Cells("類別").Value : PA5 = 單一筆收支單_dgv.Rows(i).Cells(表頭(39)).Value : PA6 = 單一筆收支單_dgv.Rows(i).Cells(表頭(110)).Value
- PA7 = 單一筆收支單_dgv.Rows(i).Cells(表頭(111)).Value : PA8 = 單一筆收支單_dgv.Rows(i).Cells(表頭(114)).Value : PA9 = 單一筆收支單_dgv.Rows(i).Cells(表頭(11)).Value
- SQL_會計科目管理_修改收支單申請表() : conn.Close()
- Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
- End Sub
-
- Private Sub Set_流水號()
- conn.Close() : dr.Close()
- Dim NUM1 As Integer
- For NUM1 = 0 To 99
- Dim d As String : Dim f As String : Dim g As Integer = 1
- If Month(Now) < 10 Then : d = "0" & CStr(Month(Now))
- Else : d = CStr(Month(Now))
- End If
- If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
- Else : f = CStr(Now.Day())
- End If
- If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
- Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
- End If : PA19 = 新流水1
- SQL_營運成本收支單申請_查詢收支單公帳流水號()
- If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
- Next
- End Sub
-
- Private Sub 複製歷史單據重新開立_bt_Click(sender As Object, e As EventArgs) Handles 複製歷史單據重新開立_bt.Click
- 開立零用金支付單()
- 開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False : 作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
- 營運收支單_dgv.Enabled = False : 未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 申請完成_bt.Enabled = True
- 複製歷史單據重新開立_bt.Enabled = False : 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
- 刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True
- Set_清單1()
- For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
- Set_流水號()
- SQL_會計科目管理_開立零用金支付單()
- Next
- Set_費用清單() : MsgBox(對話框(0))
- End Sub
- Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged
- 匯率()
- End Sub
- Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
- Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
- 開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
- 營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
- 存檔() : Set_清單1()
- MsgBox(對話框(1))
- End Sub
-
- Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
- If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
- MsgBox(對話框(2))
- Else
- If 營運成本收支單號_tb.Text = "" Then
- 開立零用金支付單()
- End If
- Set_日期格式轉換() : Set_流水號()
- 存檔()
- SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
- If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
- NUM1 = Double.Parse(新項次) + 1
- If NUM1 < 10 Then : 新項次 = "0" & NUM1
- ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
- End If
- If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-
- If 幣別_cb.Text = "台幣現金" Then
- 匯率1 = 1
- ElseIf 幣別_cb.Text = "人民幣現金" Then
- 匯率1 = 人民幣匯率_tb.Text
- ElseIf 幣別_cb.Text = "美金" Then
- 匯率1 = 美金匯率_tb.Text
- ElseIf 幣別_cb.Text = "印尼盾" Then
- 匯率1 = 印尼匯率_tb.Text
- End If
- PA16 = 匯率1
- PA15 = 新項次
- SQL_營運成本收支單申請_新增財務收支明細表資料() : conn.Close()
- Set_費用清單()
- End If
- End Sub
- Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
- If 選擇項次_tb.Text = "" Then
- MsgBox(對話框(3))
- Else
- 存檔()
- SQL_營運成本收支單申請_刪除財務收支明細表支付單號() : conn.Close()
- Set_費用清單()
- Dim NUM1 As Integer = 0
- For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
- PA17 = 單一筆收支單_dgv.Rows(i).Cells(表頭(11)).Value
- NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
- PA18 = 新項次
- SQL_營運成本收支單申請_修改財務收支明細表支付單號() : conn.Close()
- Next
- Set_費用清單()
- End If
- End Sub
- Private Sub Set_日期格式轉換()
- If 補單_cb.Checked = False Then
- DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
- Else
- DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Format(申請日期_dtp.Value, "yyyy/MM/dd")
- End If
- End Sub
- Private Sub 開立零用金支付單()
- Dim NUM1 As Integer : Timer1.Enabled = True
- Set_日期格式轉換()
- For i As Integer = 1 To 999
- NUM1 = 0 + i
- If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
- ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
- ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & NUM1
- End If
- conn.Close()
- SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
- If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
- Next
- SQL_營運成本收支單申請_新增一筆財務收支控制表() : conn.Close()
- 申請人_tb.Text = gUserName
- Set_清單1()
- End Sub
- Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
- 開立零用金支付單()
- 開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False
- 作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
- 營運收支單_dgv.Enabled = False
- 單一筆收支單_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
- Set_清單1()
- End Sub
- Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
- Dim aa As MsgBoxResult
- aa = MsgBox(對話框(4), MsgBoxStyle.OkCancel)
- If aa = MsgBoxResult.Ok Then
- SQL_營運成本收支單申請_刪除財務收支控制表() : conn.Close()
- SQL_營運成本收支單申請_刪除財務收支明細表() : conn.Close()
- 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 選擇項次_tb.Text = ""
- 單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
- Set_清單1()
- End If
- End Sub
-
- '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
- Set_清單1()
- End Sub
- End Class
|