|
@@ -116,9 +116,15 @@ Public Class 拆帳制薪資試算表
|
116
|
116
|
PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶()
|
117
|
117
|
da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close()
|
118
|
118
|
Dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
119
|
+ If 轉場198_ch.Checked = True Then
|
|
120
|
+ 最低薪資_lb.Text = "198"
|
|
121
|
+ ElseIf 轉場200_ch.Checked = True Then
|
|
122
|
+ 最低薪資_lb.Text = "190"
|
|
123
|
+ End If
|
|
124
|
+
|
119
|
125
|
SQL_查最低薪資()
|
120
|
|
- If dr.Read Then : 最低薪資_lb.Text = Strings.Format(CDbl(dr("最低薪資").ToString), "#,##0") : 扣除狀態_ch.Checked = dr("AA扣除")
|
121
|
|
- Else : 最低薪資_lb.Text = "183" : 扣除狀態_ch.Checked = True : SQL_最低薪資新增() : End If
|
|
126
|
+ If dr.Read Then : 扣除狀態_ch.Checked = dr("AA扣除")
|
|
127
|
+ Else : 扣除狀態_ch.Checked = True : SQL_最低薪資新增() : End If
|
122
|
128
|
|
123
|
129
|
Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
124
|
130
|
Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
@@ -341,12 +347,12 @@ Public Class 拆帳制薪資試算表
|
341
|
347
|
Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) / 60
|
342
|
348
|
Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) / 60
|
343
|
349
|
|
344
|
|
- Dgv.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value.ToString) * 198
|
345
|
|
- Dgv.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34
|
346
|
|
- Dgv.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67
|
347
|
|
- Dgv.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34
|
348
|
|
- Dgv.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67
|
349
|
|
- Dgv.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 2
|
|
350
|
+ Dgv.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value.ToString) * CInt(最低薪資_lb.Text)
|
|
351
|
+ Dgv.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value.ToString) * CInt(最低薪資_lb.Text) * 1.34
|
|
352
|
+ Dgv.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value.ToString) * CInt(最低薪資_lb.Text) * 1.67
|
|
353
|
+ Dgv.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value.ToString) * CInt(最低薪資_lb.Text) * 1.34
|
|
354
|
+ Dgv.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value.ToString) * CInt(最低薪資_lb.Text) * 1.67
|
|
355
|
+ Dgv.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value.ToString) * CInt(最低薪資_lb.Text) * 2
|
350
|
356
|
Next
|
351
|
357
|
Set_薪資計算()
|
352
|
358
|
End Sub
|
|
@@ -794,7 +800,7 @@ Public Class 拆帳制薪資試算表
|
794
|
800
|
Dgv.Rows(i).Cells("修正後月薪+A+津貼").Value = CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) +
|
795
|
801
|
CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString)
|
796
|
802
|
Dgv.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+A+津貼").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
|
797
|
|
- If CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv.Rows(i).Cells("加班費計算時薪標準").Value = "200" : End If
|
|
803
|
+ If CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv.Rows(i).Cells("加班費計算時薪標準").Value = "190" : End If
|
798
|
804
|
Dgv.Rows(i).Cells("加班費").Value = ((CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) * 1.34) +
|
799
|
805
|
(CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +
|
800
|
806
|
(CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) * 1.34) +
|
|
@@ -1629,7 +1635,7 @@ Public Class 拆帳制薪資試算表
|
1629
|
1635
|
Dgv1.Rows(i).Cells("修正後月薪+A+津貼").Value = CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString) +
|
1630
|
1636
|
CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString)
|
1631
|
1637
|
Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv1.Rows(i).Cells("修正後月薪+A+津貼").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
|
1632
|
|
- If CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = "200" : End If
|
|
1638
|
+ If CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = "190" : End If
|
1633
|
1639
|
Dgv1.Rows(i).Cells("加班費").Value = ((CDbl(Dgv1.Rows(i).Cells("平9-10").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +
|
1634
|
1640
|
(CDbl(Dgv1.Rows(i).Cells("休0-2").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("休3-8").Value.ToString) * 1.67) +
|
1635
|
1641
|
(CDbl(Dgv1.Rows(i).Cells("國0-2").Value.ToString) * 2) + (CDbl(Dgv1.Rows(i).Cells("國3-8").Value.ToString) * 2)) *
|
|
@@ -2189,100 +2195,103 @@ Public Class 拆帳制薪資試算表
|
2189
|
2195
|
End If
|
2190
|
2196
|
End Sub
|
2191
|
2197
|
Private Sub 寫入薪資條()
|
2192
|
|
- 服務津貼1_lb.Text = Strings.Format(CDbl(Dgv("服務津貼", 位置).Value.ToString), "#,##0")
|
2193
|
|
- If CDbl(服務津貼1_lb.Text) > 0 Then : 服務津貼_lb.Text = "服務津貼" : Else : 服務津貼_lb.Text = "" : End If
|
2194
|
|
- 轉場津貼1_lb.Text = Strings.Format(CDbl(Dgv("轉場津貼", 位置).Value.ToString), "#,##0")
|
2195
|
|
- If CDbl(轉場津貼1_lb.Text) > 0 Then : 轉場津貼_lb.Text = "轉場津貼" : Else : 轉場津貼_lb.Text = "" : End If
|
2196
|
|
- 平時新_lb.Text = Strings.Format(CDbl(Dgv("加班費計算時薪標準", 位置).Value.ToString), "#,##0")
|
2197
|
|
- D01_alb.Text = Strings.Format(CDbl(Dgv(77, 位置).Value.ToString), "#,##0") : If CDbl(D01_alb.Text) > 0 Then : D01_clb.Text = D01_lb.Text : Else : D01_clb.Text = "" : End If
|
2198
|
|
- D02_alb.Text = Strings.Format(CDbl(Dgv(78, 位置).Value.ToString), "#,##0") : If CDbl(D02_alb.Text) > 0 Then : D02_clb.Text = D02_lb.Text : Else : D02_clb.Text = "" : End If
|
2199
|
|
- D03_alb.Text = Strings.Format(CDbl(Dgv(79, 位置).Value.ToString), "#,##0") : If CDbl(D03_alb.Text) > 0 Then : D03_clb.Text = D03_lb.Text : Else : D03_clb.Text = "" : End If
|
2200
|
|
- D04_alb.Text = Strings.Format(CDbl(Dgv(80, 位置).Value.ToString), "#,##0") : If CDbl(D04_alb.Text) > 0 Then : D04_clb.Text = D04_lb.Text : Else : D04_clb.Text = "" : End If
|
2201
|
|
- D05_alb.Text = Strings.Format(CDbl(Dgv(81, 位置).Value.ToString), "#,##0") : If CDbl(D05_alb.Text) > 0 Then : D05_clb.Text = D05_lb.Text : Else : D05_clb.Text = "" : End If
|
2202
|
|
- D06_alb.Text = Strings.Format(CDbl(Dgv(82, 位置).Value.ToString), "#,##0") : If CDbl(D06_alb.Text) > 0 Then : D06_clb.Text = D06_lb.Text : Else : D06_clb.Text = "" : End If
|
2203
|
|
- D07_alb.Text = Strings.Format(CDbl(Dgv(83, 位置).Value.ToString), "#,##0") : If CDbl(D07_alb.Text) > 0 Then : D07_clb.Text = D07_lb.Text : Else : D07_clb.Text = "" : End If
|
2204
|
|
- D08_alb.Text = Strings.Format(CDbl(Dgv(84, 位置).Value.ToString), "#,##0") : If CDbl(D08_alb.Text) > 0 Then : D08_clb.Text = D08_lb.Text : Else : D08_clb.Text = "" : End If
|
2205
|
|
- D09_alb.Text = Strings.Format(CDbl(Dgv(85, 位置).Value.ToString), "#,##0") : If CDbl(D09_alb.Text) > 0 Then : D09_clb.Text = D09_lb.Text : Else : D09_clb.Text = "" : End If
|
2206
|
|
- D10_alb.Text = Strings.Format(CDbl(Dgv(86, 位置).Value.ToString), "#,##0") : If CDbl(D10_alb.Text) > 0 Then : D10_clb.Text = D10_lb.Text : Else : D10_clb.Text = "" : End If
|
2207
|
|
- D11_alb.Text = Strings.Format(CDbl(Dgv(87, 位置).Value.ToString), "#,##0") : If CDbl(D11_alb.Text) > 0 Then : D11_clb.Text = D11_lb.Text : Else : D11_clb.Text = "" : End If
|
2208
|
|
- D12_alb.Text = Strings.Format(CDbl(Dgv(88, 位置).Value.ToString), "#,##0") : If CDbl(D12_alb.Text) > 0 Then : D12_clb.Text = D12_lb.Text : Else : D12_clb.Text = "" : End If
|
2209
|
|
- 小4_lb.Text = Strings.Format(CDbl(Dgv(89, 位置).Value.ToString), "#,##0") + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text)
|
2210
|
|
- 小41_lb.Text = 小4_lb.Text : 小42_lb.Text = 小4_lb.Text
|
2211
|
|
-
|
2212
|
|
- 姓名_lb.Text = Dgv("姓名", 位置).Value.ToString
|
2213
|
|
- 正常_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
|
2214
|
|
- 正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
|
2215
|
|
- 加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")
|
2216
|
|
- AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")
|
2217
|
|
-
|
2218
|
|
-
|
2219
|
|
- 轉時1_lb.Text = Strings.Format(CDbl(Dgv("平加班1.34", 位置).Value.ToString), "#,##0.000") : 轉時2_lb.Text = Strings.Format(CDbl(Dgv("休加班1.34", 位置).Value.ToString), "#,##0.000")
|
2220
|
|
- 轉時3_lb.Text = Strings.Format(CDbl(Dgv("平加班1.67", 位置).Value.ToString), "#,##0.000") : 轉時4_lb.Text = Strings.Format(CDbl(Dgv("休加班1.67", 位置).Value.ToString), "#,##0.000")
|
2221
|
|
- 轉時5_lb.Text = Strings.Format(CDbl(Dgv("國加班2.00", 位置).Value.ToString), "#,##0.000")
|
2222
|
|
- 轉薪1_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪2_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
2223
|
|
- 轉薪3_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪4_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
2224
|
|
- 轉薪5_lb.Text = Strings.Format(2 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
2225
|
|
- If CDbl(最低薪資_lb.Text) = 0 Then
|
2226
|
|
- 轉費1_tb.Text = "0.0" : 轉費2_tb.Text = "0.0" : 轉費3_tb.Text = "0.0" : 轉費4_tb.Text = "0.0" : 轉費5_tb.Text = "0.0" : 正常轉時_lb.Text = "0.000" : 轉正常_lb.Text = "0.0"
|
2227
|
|
- Else
|
2228
|
|
- 正常轉時_lb.Text = Strings.Format(CDbl(Dgv("正常班轉場", 位置).Value.ToString), "#,##0.000")
|
2229
|
|
- 轉正常_lb.Text = Strings.Format(CDbl(Dgv("轉場薪資", 位置).Value.ToString), "#,##0.0")
|
2230
|
|
- 轉費1_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.34").Value.ToString), "#,##0.0")
|
2231
|
|
- 轉費2_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.34").Value.ToString), "#,##0.0")
|
2232
|
|
- 轉費3_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.67").Value.ToString), "#,##0.0")
|
2233
|
|
- 轉費4_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.67").Value.ToString), "#,##0.0")
|
2234
|
|
- 轉費5_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("國薪資2.00").Value.ToString), "#,##0.0")
|
|
2198
|
+ If Dgv.Rows.Count > 0 Then
|
|
2199
|
+ If Dgv.Rows.Count <= 位置 Then : 位置 = 0 : End If
|
|
2200
|
+ 服務津貼1_lb.Text = Strings.Format(CDbl(Dgv("服務津貼", 位置).Value.ToString), "#,##0")
|
|
2201
|
+ If CDbl(服務津貼1_lb.Text) > 0 Then : 服務津貼_lb.Text = "服務津貼" : Else : 服務津貼_lb.Text = "" : End If
|
|
2202
|
+ 轉場津貼1_lb.Text = Strings.Format(CDbl(Dgv("轉場津貼", 位置).Value.ToString), "#,##0")
|
|
2203
|
+ If CDbl(轉場津貼1_lb.Text) > 0 Then : 轉場津貼_lb.Text = "轉場津貼" : Else : 轉場津貼_lb.Text = "" : End If
|
|
2204
|
+ 平時新_lb.Text = Strings.Format(CDbl(Dgv("加班費計算時薪標準", 位置).Value.ToString), "#,##0")
|
|
2205
|
+ D01_alb.Text = Strings.Format(CDbl(Dgv(77, 位置).Value.ToString), "#,##0") : If CDbl(D01_alb.Text) > 0 Then : D01_clb.Text = D01_lb.Text : Else : D01_clb.Text = "" : End If
|
|
2206
|
+ D02_alb.Text = Strings.Format(CDbl(Dgv(78, 位置).Value.ToString), "#,##0") : If CDbl(D02_alb.Text) > 0 Then : D02_clb.Text = D02_lb.Text : Else : D02_clb.Text = "" : End If
|
|
2207
|
+ D03_alb.Text = Strings.Format(CDbl(Dgv(79, 位置).Value.ToString), "#,##0") : If CDbl(D03_alb.Text) > 0 Then : D03_clb.Text = D03_lb.Text : Else : D03_clb.Text = "" : End If
|
|
2208
|
+ D04_alb.Text = Strings.Format(CDbl(Dgv(80, 位置).Value.ToString), "#,##0") : If CDbl(D04_alb.Text) > 0 Then : D04_clb.Text = D04_lb.Text : Else : D04_clb.Text = "" : End If
|
|
2209
|
+ D05_alb.Text = Strings.Format(CDbl(Dgv(81, 位置).Value.ToString), "#,##0") : If CDbl(D05_alb.Text) > 0 Then : D05_clb.Text = D05_lb.Text : Else : D05_clb.Text = "" : End If
|
|
2210
|
+ D06_alb.Text = Strings.Format(CDbl(Dgv(82, 位置).Value.ToString), "#,##0") : If CDbl(D06_alb.Text) > 0 Then : D06_clb.Text = D06_lb.Text : Else : D06_clb.Text = "" : End If
|
|
2211
|
+ D07_alb.Text = Strings.Format(CDbl(Dgv(83, 位置).Value.ToString), "#,##0") : If CDbl(D07_alb.Text) > 0 Then : D07_clb.Text = D07_lb.Text : Else : D07_clb.Text = "" : End If
|
|
2212
|
+ D08_alb.Text = Strings.Format(CDbl(Dgv(84, 位置).Value.ToString), "#,##0") : If CDbl(D08_alb.Text) > 0 Then : D08_clb.Text = D08_lb.Text : Else : D08_clb.Text = "" : End If
|
|
2213
|
+ D09_alb.Text = Strings.Format(CDbl(Dgv(85, 位置).Value.ToString), "#,##0") : If CDbl(D09_alb.Text) > 0 Then : D09_clb.Text = D09_lb.Text : Else : D09_clb.Text = "" : End If
|
|
2214
|
+ D10_alb.Text = Strings.Format(CDbl(Dgv(86, 位置).Value.ToString), "#,##0") : If CDbl(D10_alb.Text) > 0 Then : D10_clb.Text = D10_lb.Text : Else : D10_clb.Text = "" : End If
|
|
2215
|
+ D11_alb.Text = Strings.Format(CDbl(Dgv(87, 位置).Value.ToString), "#,##0") : If CDbl(D11_alb.Text) > 0 Then : D11_clb.Text = D11_lb.Text : Else : D11_clb.Text = "" : End If
|
|
2216
|
+ D12_alb.Text = Strings.Format(CDbl(Dgv(88, 位置).Value.ToString), "#,##0") : If CDbl(D12_alb.Text) > 0 Then : D12_clb.Text = D12_lb.Text : Else : D12_clb.Text = "" : End If
|
|
2217
|
+ 小4_lb.Text = Strings.Format(CDbl(Dgv(89, 位置).Value.ToString), "#,##0") + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text)
|
|
2218
|
+ 小41_lb.Text = 小4_lb.Text : 小42_lb.Text = 小4_lb.Text
|
|
2219
|
+
|
|
2220
|
+ 姓名_lb.Text = Dgv("姓名", 位置).Value.ToString
|
|
2221
|
+ 正常_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
|
|
2222
|
+ 正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
|
|
2223
|
+ 加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")
|
|
2224
|
+ AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")
|
|
2225
|
+
|
|
2226
|
+
|
|
2227
|
+ 轉時1_lb.Text = Strings.Format(CDbl(Dgv("平加班1.34", 位置).Value.ToString), "#,##0.000") : 轉時2_lb.Text = Strings.Format(CDbl(Dgv("休加班1.34", 位置).Value.ToString), "#,##0.000")
|
|
2228
|
+ 轉時3_lb.Text = Strings.Format(CDbl(Dgv("平加班1.67", 位置).Value.ToString), "#,##0.000") : 轉時4_lb.Text = Strings.Format(CDbl(Dgv("休加班1.67", 位置).Value.ToString), "#,##0.000")
|
|
2229
|
+ 轉時5_lb.Text = Strings.Format(CDbl(Dgv("國加班2.00", 位置).Value.ToString), "#,##0.000")
|
|
2230
|
+ 轉薪1_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪2_lb.Text = Strings.Format(1.34 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
|
2231
|
+ 轉薪3_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0") : 轉薪4_lb.Text = Strings.Format(1.67 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
|
2232
|
+ 轉薪5_lb.Text = Strings.Format(2 * CDbl(最低薪資_lb.Text), "#,##0.0")
|
|
2233
|
+ If CDbl(最低薪資_lb.Text) = 0 Then
|
|
2234
|
+ 轉費1_tb.Text = "0.0" : 轉費2_tb.Text = "0.0" : 轉費3_tb.Text = "0.0" : 轉費4_tb.Text = "0.0" : 轉費5_tb.Text = "0.0" : 正常轉時_lb.Text = "0.000" : 轉正常_lb.Text = "0.0"
|
|
2235
|
+ Else
|
|
2236
|
+ 正常轉時_lb.Text = Strings.Format(CDbl(Dgv("正常班轉場", 位置).Value.ToString), "#,##0.000")
|
|
2237
|
+ 轉正常_lb.Text = Strings.Format(CDbl(Dgv("轉場薪資", 位置).Value.ToString), "#,##0.0")
|
|
2238
|
+ 轉費1_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.34").Value.ToString), "#,##0.0")
|
|
2239
|
+ 轉費2_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.34").Value.ToString), "#,##0.0")
|
|
2240
|
+ 轉費3_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("平薪資1.67").Value.ToString), "#,##0.0")
|
|
2241
|
+ 轉費4_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("休薪資1.67").Value.ToString), "#,##0.0")
|
|
2242
|
+ 轉費5_tb.Text = Strings.Format(CDbl(Dgv.Rows(位置).Cells("國薪資2.00").Value.ToString), "#,##0.0")
|
|
2243
|
+ End If
|
|
2244
|
+ 小5_lb.Text = Strings.Format(CDbl(轉費1_tb.Text) + CDbl(轉費2_tb.Text) + CDbl(轉費3_tb.Text) + CDbl(轉費4_tb.Text) + CDbl(轉費5_tb.Text), "#,##0.0")
|
|
2245
|
+ 小51_lb.Text = 小5_lb.Text
|
|
2246
|
+
|
|
2247
|
+ 時1_lb.Text = Strings.Format(CDbl(Dgv("平9-10", 位置).Value.ToString), "#,##0.000") : 時2_lb.Text = Strings.Format(CDbl(Dgv("休0-2", 位置).Value.ToString), "#,##0.000")
|
|
2248
|
+ 時3_lb.Text = Strings.Format(CDbl(Dgv("平11-12", 位置).Value.ToString), "#,##0.000") : 時4_lb.Text = Strings.Format(CDbl(Dgv("休3-8", 位置).Value.ToString), "#,##0.000")
|
|
2249
|
+ 時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.000")
|
|
2250
|
+ 正常工_lb.Text = Strings.Format(CDbl(Dgv("平0-8", 位置).Value.ToString), "#,##0.0") : 特休_lb.Text = Strings.Format(CDbl(Dgv(50, 位置).Value.ToString), "#,##0.0")
|
|
2251
|
+ 平日轉_lb.Text = Strings.Format(CDbl(Dgv("平日轉場", 位置).Value.ToString), "#,##0.0")
|
|
2252
|
+ 薪1_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
|
2253
|
+ 薪2_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
|
2254
|
+ 薪3_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
|
2255
|
+ 薪4_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
|
2256
|
+ 薪5_lb.Text = Strings.Format(2 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
|
2257
|
+ 費1_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平9-10").Value.ToString) * CDbl(薪1_lb.Text)), "#,##0")
|
|
2258
|
+ 費2_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休0-2").Value.ToString) * CDbl(薪2_lb.Text)), "#,##0")
|
|
2259
|
+ 費3_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平11-12").Value.ToString) * CDbl(薪3_lb.Text)), "#,##0")
|
|
2260
|
+ 費4_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休3-8").Value.ToString) * CDbl(薪4_lb.Text)), "#,##0")
|
|
2261
|
+ 費5_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("國0-2").Value.ToString + CDbl(Dgv.Rows(位置).Cells("國3-8").Value.ToString))) * CDbl(薪5_lb.Text), "#,##0")
|
|
2262
|
+ 小1_lb.Text = Strings.Format((CDbl(費1_tb.Text) + CDbl(費2_tb.Text) + CDbl(費3_tb.Text) + CDbl(費4_tb.Text) + CDbl(費5_tb.Text)), "#,##0")
|
|
2263
|
+ 合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.Text) + CDbl(小51_lb.Text) + CDbl(轉正常_lb.Text)), "#,##0")
|
|
2264
|
+ A01_alb.Text = Strings.Format(CDbl(Dgv(24, 位置).Value.ToString), "#,##0") : If CDbl(A01_alb.Text) > 0 Then : A01_clb.Text = A01_lb.Text : Else : A01_clb.Text = "" : End If
|
|
2265
|
+ A02_alb.Text = Strings.Format(CDbl(Dgv(25, 位置).Value.ToString), "#,##0") : If CDbl(A02_alb.Text) > 0 Then : A02_clb.Text = A02_lb.Text : Else : A02_clb.Text = "" : End If
|
|
2266
|
+ A03_alb.Text = Strings.Format(CDbl(Dgv(26, 位置).Value.ToString), "#,##0") : If CDbl(A03_alb.Text) > 0 Then : A03_clb.Text = A03_lb.Text : Else : A03_clb.Text = "" : End If
|
|
2267
|
+ A04_alb.Text = Strings.Format(CDbl(Dgv(27, 位置).Value.ToString), "#,##0") : If CDbl(A04_alb.Text) > 0 Then : A04_clb.Text = A04_lb.Text : Else : A04_clb.Text = "" : End If
|
|
2268
|
+ A05_alb.Text = Strings.Format(CDbl(Dgv(28, 位置).Value.ToString), "#,##0") : If CDbl(A05_alb.Text) > 0 Then : A05_clb.Text = A05_lb.Text : Else : A05_clb.Text = "" : End If
|
|
2269
|
+ A06_alb.Text = Strings.Format(CDbl(Dgv(29, 位置).Value.ToString), "#,##0") : If CDbl(A06_alb.Text) > 0 Then : A06_clb.Text = A06_lb.Text : Else : A06_clb.Text = "" : End If
|
|
2270
|
+ A07_alb.Text = Strings.Format(CDbl(Dgv(30, 位置).Value.ToString), "#,##0") : If CDbl(A07_alb.Text) > 0 Then : A07_clb.Text = A07_lb.Text : Else : A07_clb.Text = "" : End If
|
|
2271
|
+ A08_alb.Text = Strings.Format(CDbl(Dgv(31, 位置).Value.ToString), "#,##0") : If CDbl(A08_alb.Text) > 0 Then : A08_clb.Text = A08_lb.Text : Else : A08_clb.Text = "" : End If
|
|
2272
|
+ A09_alb.Text = Strings.Format(CDbl(Dgv(32, 位置).Value.ToString), "#,##0") : If CDbl(A09_alb.Text) > 0 Then : A09_clb.Text = A09_lb.Text : Else : A09_clb.Text = "" : End If
|
|
2273
|
+ A10_alb.Text = Strings.Format(CDbl(Dgv(33, 位置).Value.ToString), "#,##0") : If CDbl(A10_alb.Text) > 0 Then : A10_clb.Text = A10_lb.Text : Else : A10_clb.Text = "" : End If
|
|
2274
|
+ A11_alb.Text = Strings.Format(CDbl(Dgv(34, 位置).Value.ToString), "#,##0") : If CDbl(A11_alb.Text) > 0 Then : A11_clb.Text = A11_lb.Text : Else : A11_clb.Text = "" : End If
|
|
2275
|
+ A12_alb.Text = Strings.Format(CDbl(Dgv(35, 位置).Value.ToString), "#,##0") : If CDbl(A12_alb.Text) > 0 Then : A12_clb.Text = A12_lb.Text : Else : A12_clb.Text = "" : End If
|
|
2276
|
+ 小2_lb.Text = Strings.Format((CDbl(A01_alb.Text) + CDbl(A02_alb.Text) + CDbl(A03_alb.Text) + CDbl(A04_alb.Text) + CDbl(A05_alb.Text) + CDbl(A06_alb.Text) + CDbl(A07_alb.Text) +
|
|
2277
|
+ CDbl(A08_alb.Text) + CDbl(A09_alb.Text) + CDbl(A10_alb.Text) + CDbl(A11_alb.Text) + CDbl(A12_alb.Text)), "#,##0")
|
|
2278
|
+ 小21_lb.Text = 小2_lb.Text
|
|
2279
|
+ B01_alb.Text = Strings.Format(CDbl(Dgv(37, 位置).Value.ToString), "#,##0") : If CDbl(B01_alb.Text) > 0 Then : B01_clb.Text = B01_lb.Text : Else : B01_clb.Text = "" : End If
|
|
2280
|
+ B02_alb.Text = Strings.Format(CDbl(Dgv(38, 位置).Value.ToString), "#,##0") : If CDbl(B02_alb.Text) > 0 Then : B02_clb.Text = B02_lb.Text : Else : B02_clb.Text = "" : End If
|
|
2281
|
+ B03_alb.Text = Strings.Format(CDbl(Dgv(39, 位置).Value.ToString), "#,##0") : If CDbl(B03_alb.Text) > 0 Then : B03_clb.Text = B03_lb.Text : Else : B03_clb.Text = "" : End If
|
|
2282
|
+ B04_alb.Text = Strings.Format(CDbl(Dgv(40, 位置).Value.ToString), "#,##0") : If CDbl(B04_alb.Text) > 0 Then : B04_clb.Text = B04_lb.Text : Else : B04_clb.Text = "" : End If
|
|
2283
|
+ B05_alb.Text = Strings.Format(CDbl(Dgv(41, 位置).Value.ToString), "#,##0") : If CDbl(B05_alb.Text) > 0 Then : B05_clb.Text = B05_lb.Text : Else : B05_clb.Text = "" : End If
|
|
2284
|
+ B06_alb.Text = Strings.Format(CDbl(Dgv(42, 位置).Value.ToString), "#,##0") : If CDbl(B06_alb.Text) > 0 Then : B06_clb.Text = B06_lb.Text : Else : B06_clb.Text = "" : End If
|
|
2285
|
+ B07_alb.Text = Strings.Format(CDbl(Dgv(43, 位置).Value.ToString), "#,##0") : If CDbl(B07_alb.Text) > 0 Then : B07_clb.Text = B07_lb.Text : Else : B07_clb.Text = "" : End If
|
|
2286
|
+ B08_alb.Text = Strings.Format(CDbl(Dgv(44, 位置).Value.ToString), "#,##0") : If CDbl(B08_alb.Text) > 0 Then : B08_clb.Text = B08_lb.Text : Else : B08_clb.Text = "" : End If
|
|
2287
|
+ B09_alb.Text = Strings.Format(CDbl(Dgv(45, 位置).Value.ToString), "#,##0") : If CDbl(B09_alb.Text) > 0 Then : B09_clb.Text = B09_lb.Text : Else : B09_clb.Text = "" : End If
|
|
2288
|
+ B10_alb.Text = Strings.Format(CDbl(Dgv(46, 位置).Value.ToString), "#,##0") : If CDbl(B10_alb.Text) > 0 Then : B10_clb.Text = B10_lb.Text : Else : B10_clb.Text = "" : End If
|
|
2289
|
+ B11_alb.Text = Strings.Format(CDbl(Dgv(47, 位置).Value.ToString), "#,##0") : If CDbl(B11_alb.Text) > 0 Then : B11_clb.Text = B11_lb.Text : Else : B11_clb.Text = "" : End If
|
|
2290
|
+ B12_alb.Text = Strings.Format(CDbl(Dgv(48, 位置).Value.ToString), "#,##0") : If CDbl(B12_alb.Text) > 0 Then : B12_clb.Text = B12_lb.Text : Else : B12_clb.Text = "" : End If
|
|
2291
|
+ 小3_lb.Text = Strings.Format((CDbl(B01_alb.Text) + CDbl(B02_alb.Text) + CDbl(B03_alb.Text) + CDbl(B04_alb.Text) + CDbl(B05_alb.Text) + CDbl(B06_alb.Text) + CDbl(B07_alb.Text) +
|
|
2292
|
+ CDbl(B08_alb.Text) + CDbl(B09_alb.Text) + CDbl(B10_alb.Text) + CDbl(B11_alb.Text) + CDbl(B12_alb.Text)), "#,##0")
|
|
2293
|
+ 小31_lb.Text = 小3_lb.Text : 實領_lb.Text = Strings.Format((CDbl(合1_lb.Text) + CDbl(特休_lb.Text) - CDbl(小2_lb.Text) + CDbl(小3_lb.Text)), "#,##0")
|
2235
|
2294
|
End If
|
2236
|
|
- 小5_lb.Text = Strings.Format(CDbl(轉費1_tb.Text) + CDbl(轉費2_tb.Text) + CDbl(轉費3_tb.Text) + CDbl(轉費4_tb.Text) + CDbl(轉費5_tb.Text), "#,##0.0")
|
2237
|
|
- 小51_lb.Text = 小5_lb.Text
|
2238
|
|
-
|
2239
|
|
- 時1_lb.Text = Strings.Format(CDbl(Dgv("平9-10", 位置).Value.ToString), "#,##0.000") : 時2_lb.Text = Strings.Format(CDbl(Dgv("休0-2", 位置).Value.ToString), "#,##0.000")
|
2240
|
|
- 時3_lb.Text = Strings.Format(CDbl(Dgv("平11-12", 位置).Value.ToString), "#,##0.000") : 時4_lb.Text = Strings.Format(CDbl(Dgv("休3-8", 位置).Value.ToString), "#,##0.000")
|
2241
|
|
- 時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.000")
|
2242
|
|
- 正常工_lb.Text = Strings.Format(CDbl(Dgv("平0-8", 位置).Value.ToString), "#,##0.0") : 特休_lb.Text = Strings.Format(CDbl(Dgv(50, 位置).Value.ToString), "#,##0.0")
|
2243
|
|
- 平日轉_lb.Text = Strings.Format(CDbl(Dgv("平日轉場", 位置).Value.ToString), "#,##0.0")
|
2244
|
|
- 薪1_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
2245
|
|
- 薪2_lb.Text = Strings.Format(1.34 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
2246
|
|
- 薪3_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
2247
|
|
- 薪4_lb.Text = Strings.Format(1.67 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
2248
|
|
- 薪5_lb.Text = Strings.Format(2 * CDbl(Dgv.Rows(位置).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")
|
2249
|
|
- 費1_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平9-10").Value.ToString) * CDbl(薪1_lb.Text)), "#,##0")
|
2250
|
|
- 費2_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休0-2").Value.ToString) * CDbl(薪2_lb.Text)), "#,##0")
|
2251
|
|
- 費3_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("平11-12").Value.ToString) * CDbl(薪3_lb.Text)), "#,##0")
|
2252
|
|
- 費4_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休3-8").Value.ToString) * CDbl(薪4_lb.Text)), "#,##0")
|
2253
|
|
- 費5_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("國0-2").Value.ToString + CDbl(Dgv.Rows(位置).Cells("國3-8").Value.ToString))) * CDbl(薪5_lb.Text), "#,##0")
|
2254
|
|
- 小1_lb.Text = Strings.Format((CDbl(費1_tb.Text) + CDbl(費2_tb.Text) + CDbl(費3_tb.Text) + CDbl(費4_tb.Text) + CDbl(費5_tb.Text)), "#,##0")
|
2255
|
|
- 合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.Text) + CDbl(小51_lb.Text) + CDbl(轉正常_lb.Text)), "#,##0")
|
2256
|
|
- A01_alb.Text = Strings.Format(CDbl(Dgv(24, 位置).Value.ToString), "#,##0") : If CDbl(A01_alb.Text) > 0 Then : A01_clb.Text = A01_lb.Text : Else : A01_clb.Text = "" : End If
|
2257
|
|
- A02_alb.Text = Strings.Format(CDbl(Dgv(25, 位置).Value.ToString), "#,##0") : If CDbl(A02_alb.Text) > 0 Then : A02_clb.Text = A02_lb.Text : Else : A02_clb.Text = "" : End If
|
2258
|
|
- A03_alb.Text = Strings.Format(CDbl(Dgv(26, 位置).Value.ToString), "#,##0") : If CDbl(A03_alb.Text) > 0 Then : A03_clb.Text = A03_lb.Text : Else : A03_clb.Text = "" : End If
|
2259
|
|
- A04_alb.Text = Strings.Format(CDbl(Dgv(27, 位置).Value.ToString), "#,##0") : If CDbl(A04_alb.Text) > 0 Then : A04_clb.Text = A04_lb.Text : Else : A04_clb.Text = "" : End If
|
2260
|
|
- A05_alb.Text = Strings.Format(CDbl(Dgv(28, 位置).Value.ToString), "#,##0") : If CDbl(A05_alb.Text) > 0 Then : A05_clb.Text = A05_lb.Text : Else : A05_clb.Text = "" : End If
|
2261
|
|
- A06_alb.Text = Strings.Format(CDbl(Dgv(29, 位置).Value.ToString), "#,##0") : If CDbl(A06_alb.Text) > 0 Then : A06_clb.Text = A06_lb.Text : Else : A06_clb.Text = "" : End If
|
2262
|
|
- A07_alb.Text = Strings.Format(CDbl(Dgv(30, 位置).Value.ToString), "#,##0") : If CDbl(A07_alb.Text) > 0 Then : A07_clb.Text = A07_lb.Text : Else : A07_clb.Text = "" : End If
|
2263
|
|
- A08_alb.Text = Strings.Format(CDbl(Dgv(31, 位置).Value.ToString), "#,##0") : If CDbl(A08_alb.Text) > 0 Then : A08_clb.Text = A08_lb.Text : Else : A08_clb.Text = "" : End If
|
2264
|
|
- A09_alb.Text = Strings.Format(CDbl(Dgv(32, 位置).Value.ToString), "#,##0") : If CDbl(A09_alb.Text) > 0 Then : A09_clb.Text = A09_lb.Text : Else : A09_clb.Text = "" : End If
|
2265
|
|
- A10_alb.Text = Strings.Format(CDbl(Dgv(33, 位置).Value.ToString), "#,##0") : If CDbl(A10_alb.Text) > 0 Then : A10_clb.Text = A10_lb.Text : Else : A10_clb.Text = "" : End If
|
2266
|
|
- A11_alb.Text = Strings.Format(CDbl(Dgv(34, 位置).Value.ToString), "#,##0") : If CDbl(A11_alb.Text) > 0 Then : A11_clb.Text = A11_lb.Text : Else : A11_clb.Text = "" : End If
|
2267
|
|
- A12_alb.Text = Strings.Format(CDbl(Dgv(35, 位置).Value.ToString), "#,##0") : If CDbl(A12_alb.Text) > 0 Then : A12_clb.Text = A12_lb.Text : Else : A12_clb.Text = "" : End If
|
2268
|
|
- 小2_lb.Text = Strings.Format((CDbl(A01_alb.Text) + CDbl(A02_alb.Text) + CDbl(A03_alb.Text) + CDbl(A04_alb.Text) + CDbl(A05_alb.Text) + CDbl(A06_alb.Text) + CDbl(A07_alb.Text) +
|
2269
|
|
- CDbl(A08_alb.Text) + CDbl(A09_alb.Text) + CDbl(A10_alb.Text) + CDbl(A11_alb.Text) + CDbl(A12_alb.Text)), "#,##0")
|
2270
|
|
- 小21_lb.Text = 小2_lb.Text
|
2271
|
|
- B01_alb.Text = Strings.Format(CDbl(Dgv(37, 位置).Value.ToString), "#,##0") : If CDbl(B01_alb.Text) > 0 Then : B01_clb.Text = B01_lb.Text : Else : B01_clb.Text = "" : End If
|
2272
|
|
- B02_alb.Text = Strings.Format(CDbl(Dgv(38, 位置).Value.ToString), "#,##0") : If CDbl(B02_alb.Text) > 0 Then : B02_clb.Text = B02_lb.Text : Else : B02_clb.Text = "" : End If
|
2273
|
|
- B03_alb.Text = Strings.Format(CDbl(Dgv(39, 位置).Value.ToString), "#,##0") : If CDbl(B03_alb.Text) > 0 Then : B03_clb.Text = B03_lb.Text : Else : B03_clb.Text = "" : End If
|
2274
|
|
- B04_alb.Text = Strings.Format(CDbl(Dgv(40, 位置).Value.ToString), "#,##0") : If CDbl(B04_alb.Text) > 0 Then : B04_clb.Text = B04_lb.Text : Else : B04_clb.Text = "" : End If
|
2275
|
|
- B05_alb.Text = Strings.Format(CDbl(Dgv(41, 位置).Value.ToString), "#,##0") : If CDbl(B05_alb.Text) > 0 Then : B05_clb.Text = B05_lb.Text : Else : B05_clb.Text = "" : End If
|
2276
|
|
- B06_alb.Text = Strings.Format(CDbl(Dgv(42, 位置).Value.ToString), "#,##0") : If CDbl(B06_alb.Text) > 0 Then : B06_clb.Text = B06_lb.Text : Else : B06_clb.Text = "" : End If
|
2277
|
|
- B07_alb.Text = Strings.Format(CDbl(Dgv(43, 位置).Value.ToString), "#,##0") : If CDbl(B07_alb.Text) > 0 Then : B07_clb.Text = B07_lb.Text : Else : B07_clb.Text = "" : End If
|
2278
|
|
- B08_alb.Text = Strings.Format(CDbl(Dgv(44, 位置).Value.ToString), "#,##0") : If CDbl(B08_alb.Text) > 0 Then : B08_clb.Text = B08_lb.Text : Else : B08_clb.Text = "" : End If
|
2279
|
|
- B09_alb.Text = Strings.Format(CDbl(Dgv(45, 位置).Value.ToString), "#,##0") : If CDbl(B09_alb.Text) > 0 Then : B09_clb.Text = B09_lb.Text : Else : B09_clb.Text = "" : End If
|
2280
|
|
- B10_alb.Text = Strings.Format(CDbl(Dgv(46, 位置).Value.ToString), "#,##0") : If CDbl(B10_alb.Text) > 0 Then : B10_clb.Text = B10_lb.Text : Else : B10_clb.Text = "" : End If
|
2281
|
|
- B11_alb.Text = Strings.Format(CDbl(Dgv(47, 位置).Value.ToString), "#,##0") : If CDbl(B11_alb.Text) > 0 Then : B11_clb.Text = B11_lb.Text : Else : B11_clb.Text = "" : End If
|
2282
|
|
- B12_alb.Text = Strings.Format(CDbl(Dgv(48, 位置).Value.ToString), "#,##0") : If CDbl(B12_alb.Text) > 0 Then : B12_clb.Text = B12_lb.Text : Else : B12_clb.Text = "" : End If
|
2283
|
|
- 小3_lb.Text = Strings.Format((CDbl(B01_alb.Text) + CDbl(B02_alb.Text) + CDbl(B03_alb.Text) + CDbl(B04_alb.Text) + CDbl(B05_alb.Text) + CDbl(B06_alb.Text) + CDbl(B07_alb.Text) +
|
2284
|
|
- CDbl(B08_alb.Text) + CDbl(B09_alb.Text) + CDbl(B10_alb.Text) + CDbl(B11_alb.Text) + CDbl(B12_alb.Text)), "#,##0")
|
2285
|
|
- 小31_lb.Text = 小3_lb.Text : 實領_lb.Text = Strings.Format((CDbl(合1_lb.Text) + CDbl(特休_lb.Text) - CDbl(小2_lb.Text) + CDbl(小3_lb.Text)), "#,##0")
|
2286
|
2295
|
End Sub
|
2287
|
2296
|
Private Sub 存檔3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔3_bt.MouseEnter
|
2288
|
2297
|
ToolTip1.SetToolTip(Me.存檔3_bt, "存檔")
|
|
@@ -2336,13 +2345,37 @@ Public Class 拆帳制薪資試算表
|
2336
|
2345
|
分流計算.Enabled = True
|
2337
|
2346
|
End Sub
|
2338
|
2347
|
Private Sub 分流計算_Tick(sender As Object, e As EventArgs) Handles 分流計算.Tick
|
|
2348
|
+ If 年份_cb.Text = "2024" Then
|
|
2349
|
+ 最低薪資_lb.Text = "198" : 轉場198_ch.Checked = True : 轉場200_ch.Checked = False
|
|
2350
|
+ ElseIf 年份_cb.Text = "2025" Or 年份_cb.Text = "2026" Then
|
|
2351
|
+ 最低薪資_lb.Text = "190" : 轉場198_ch.Checked = False : 轉場200_ch.Checked = True
|
|
2352
|
+ Else : MsgBox("請通知系統管理員新增年度!!") : Me.Close() : End If
|
2339
|
2353
|
Set_服務人員() : 首次開啟 = False : 分流計算.Enabled = False
|
2340
|
2354
|
End Sub
|
2341
|
2355
|
Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
|
2342
|
|
- If 首次開啟 = False Then : Set_服務人員() : End If
|
|
2356
|
+ If 首次開啟 = False Then
|
|
2357
|
+ If 年份_cb.Text = "2024" Then
|
|
2358
|
+ 最低薪資_lb.Text = "198" : 轉場198_ch.Checked = True : 轉場200_ch.Checked = False
|
|
2359
|
+ ElseIf 年份_cb.Text = "2025" Or 年份_cb.Text = "2026" Then
|
|
2360
|
+ 最低薪資_lb.Text = "190" : 轉場198_ch.Checked = False : 轉場200_ch.Checked = True
|
|
2361
|
+ Else : MsgBox("請通知系統管理員新增年度!!") : Me.Close() : End If
|
|
2362
|
+ End If
|
2343
|
2363
|
End Sub
|
2344
|
2364
|
Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
|
2345
|
|
- If 首次開啟 = False Then : Set_服務人員() : End If
|
|
2365
|
+ If 首次開啟 = False Then
|
|
2366
|
+ If 年份_cb.Text = "2024" Then
|
|
2367
|
+ 最低薪資_lb.Text = "198" : 轉場198_ch.Checked = True : 轉場200_ch.Checked = False
|
|
2368
|
+ ElseIf 年份_cb.Text = "2025" Or 年份_cb.Text = "2026" Then
|
|
2369
|
+ 最低薪資_lb.Text = "190" : 轉場198_ch.Checked = False : 轉場200_ch.Checked = True
|
|
2370
|
+ Else : MsgBox("請通知系統管理員新增年度!!") : Me.Close() : End If
|
|
2371
|
+ Set_服務人員()
|
|
2372
|
+ End If
|
|
2373
|
+ End Sub
|
|
2374
|
+ Private Sub 轉場183_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 轉場198_ch.Click
|
|
2375
|
+ 轉場198_ch.Checked = True : 轉場200_ch.Checked = False : Set_服務人員() : 寫入薪資條()
|
|
2376
|
+ End Sub
|
|
2377
|
+ Private Sub 轉場200_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 轉場200_ch.Click
|
|
2378
|
+ 轉場198_ch.Checked = False : 轉場200_ch.Checked = True : Set_服務人員() : 寫入薪資條()
|
2346
|
2379
|
End Sub
|
2347
|
2380
|
Private Sub 比對前_bt_Click(sender As Object, e As EventArgs) Handles 比對前_bt.Click
|
2348
|
2381
|
Dgv.BringToFront() : Set_薪資計算() : Set_分頁()
|
|
@@ -2516,8 +2549,15 @@ Public Class 拆帳制薪資試算表
|
2516
|
2549
|
If 位置 = Dgv.Rows.Count - 1 Then : 寫入薪資條() : Exit Sub : End If
|
2517
|
2550
|
End Sub
|
2518
|
2551
|
Private Sub 列印_tb_Click(sender As Object, e As EventArgs) Handles 列印_tb.Click
|
2519
|
|
- PrintDocument1.DefaultPageSettings.Landscape = True : Dim printDialog As New PrintDialog() : printDialog.Document = PrintDocument1
|
2520
|
|
- If printDialog.ShowDialog() = DialogResult.OK Then : PrintDocument1.Print() : MsgBox("列印完成!!") : End If
|
|
2552
|
+ Dim 可以列印 As Boolean = False
|
|
2553
|
+ If (年份_cb.Text = "2024" And 轉場198_ch.Checked = True) Or (年份_cb.Text = "2025" And 轉場200_ch.Checked = True) Or
|
|
2554
|
+ (年份_cb.Text = "2026" And 轉場200_ch.Checked = True) Then
|
|
2555
|
+ 可以列印 = True
|
|
2556
|
+ End If
|
|
2557
|
+ If 可以列印 = True Then
|
|
2558
|
+ PrintDocument1.DefaultPageSettings.Landscape = True : Dim printDialog As New PrintDialog() : printDialog.Document = PrintDocument1
|
|
2559
|
+ If printDialog.ShowDialog() = DialogResult.OK Then : PrintDocument1.Print() : MsgBox("列印完成!!") : End If
|
|
2560
|
+ Else : MsgBox("你的轉場最低薪資與年度沒有匹配,請重新選擇正確的轉場薪資!!") : End If
|
2521
|
2561
|
End Sub
|
2522
|
2562
|
Private Sub printDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
|
2523
|
2563
|
Dim panelImage As New Bitmap(Panel4.Width, Panel4.Height)
|