|
|
@@ -4,7 +4,7 @@ Public Class 拆帳制薪資試算表
|
|
4
|
4
|
Dim 是否有差額 As Boolean
|
|
5
|
5
|
Private Sub Set_服務人員()
|
|
6
|
6
|
年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text
|
|
7
|
|
- Set_加班計算() : Set_階級加給()
|
|
|
7
|
+ Set_加班計算() : Set_階級加給() : Set_轉場計算()
|
|
8
|
8
|
If 月份_cb.Text = "01" Then : PA10 = CInt(年份_cb.Text) - 1 & "12"
|
|
9
|
9
|
Else : If CInt(月份_cb.Text) < 11 Then : PA10 = 年份_cb.Text & "0" & CInt(月份_cb.Text) - 1 : Else : PA10 = 年份_cb.Text & CInt(月份_cb.Text) - 1 : End If : End If
|
|
10
|
10
|
SQL_查差額() : If dr.Read Then : 是否有差額 = True : SQL_讀差額() : Set_差額() : Else : 是否有差額 = False : SQL_放差額() : Set_差額() : End If
|
|
|
@@ -116,6 +116,9 @@ 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
|
+ 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
|
|
119
|
122
|
|
|
120
|
123
|
Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
121
|
124
|
Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
@@ -218,12 +221,42 @@ Public Class 拆帳制薪資試算表
|
|
218
|
221
|
Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
219
|
222
|
Dgv.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
220
|
223
|
Dgv.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
221
|
|
-
|
|
222
|
|
- Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"
|
|
223
|
|
- Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
|
|
224
|
|
- Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"
|
|
225
|
|
- Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0"
|
|
226
|
|
- Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0"
|
|
|
224
|
+ Dgv.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
225
|
+ Dgv.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
226
|
+ Dgv.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
227
|
+ Dgv.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
228
|
+ Dgv.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
229
|
+ Dgv.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
230
|
+ Dgv.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
231
|
+ Dgv.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
232
|
+ Dgv.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
233
|
+ Dgv.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
234
|
+ Dgv.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
235
|
+ Dgv.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
236
|
+ Dgv.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
237
|
+ Dgv.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
238
|
+ Dgv.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
239
|
+ Dgv.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
240
|
+ Dgv.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
241
|
+ Dgv.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
242
|
+ Dgv.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
243
|
+ Dgv.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
244
|
+ Dgv.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
245
|
+ Dgv.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
246
|
+ Dgv.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
247
|
+ Dgv.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
248
|
+ Dgv.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
249
|
+ Dgv.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
250
|
+
|
|
|
251
|
+ Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
|
|
|
252
|
+ Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
|
|
|
253
|
+ Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
|
|
|
254
|
+ Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
|
|
|
255
|
+ Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
|
|
|
256
|
+ Dgv.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
|
|
|
257
|
+ Dgv.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
|
|
|
258
|
+ Dgv.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
|
|
|
259
|
+ Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(103).DefaultCellStyle.Format = "#,##0.0"
|
|
227
|
260
|
Dgv.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(28).DefaultCellStyle.Format = "#,##0.0"
|
|
228
|
261
|
Dgv.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(31).DefaultCellStyle.Format = "#,##0.0"
|
|
229
|
262
|
Dgv.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(34).DefaultCellStyle.Format = "#,##0.0"
|
|
|
@@ -241,17 +274,19 @@ Public Class 拆帳制薪資試算表
|
|
241
|
274
|
Dgv.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(96).DefaultCellStyle.Format = "#,##0.0"
|
|
242
|
275
|
Dgv.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(99).DefaultCellStyle.Format = "#,##0.0"
|
|
243
|
276
|
Dgv.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(102).DefaultCellStyle.Format = "#,##0.0"
|
|
244
|
|
- Dgv.Columns(103).DefaultCellStyle.Format = "#,##0.0"
|
|
|
277
|
+
|
|
245
|
278
|
Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False
|
|
246
|
279
|
Set_分頁()
|
|
247
|
280
|
|
|
248
|
281
|
For i As Integer = 0 To 73 : Dgv.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv.Columns(i).ReadOnly = False : Next
|
|
249
|
282
|
For i As Integer = 77 To 88 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv.Columns(i).ReadOnly = False : Next
|
|
250
|
|
- For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
|
|
251
|
|
-
|
|
|
283
|
+ For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv.Columns(i).ReadOnly = True : Next
|
|
|
284
|
+ Dgv.Columns("服務轉場比").ReadOnly = False : Dgv.Columns("總服務時數").ReadOnly = False : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False
|
|
|
285
|
+ Dgv.Columns("總轉場時數").ReadOnly = False : Dgv.Columns("公司負擔總計").ReadOnly = True : Dgv.Columns("薪資加項總計").ReadOnly = True
|
|
|
286
|
+ Dgv.Columns("總服務時數").ReadOnly = True : Dgv.Columns("總轉場時數").ReadOnly = True : Dgv.Columns("服務轉場比").ReadOnly = True : Dgv.Columns("實際總薪資").ReadOnly = True
|
|
252
|
287
|
Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
|
|
253
|
288
|
Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
|
|
254
|
|
- Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose
|
|
|
289
|
+ Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
|
|
255
|
290
|
Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
|
|
256
|
291
|
For i As Integer = 0 To Dgv.Rows.Count - 1 : 新增 = False
|
|
257
|
292
|
If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
|
|
|
@@ -274,6 +309,45 @@ Public Class 拆帳制薪資試算表
|
|
274
|
309
|
SQL_BA比_新增() : 重讀 = True
|
|
275
|
310
|
End If
|
|
276
|
311
|
Next : If 重讀 = True Then : Set_BA比2() : End If
|
|
|
312
|
+ For i As Integer = 0 To Dgv.Rows.Count - 1
|
|
|
313
|
+ Dgv.Rows(i).Cells("正常班轉場").Value = "0" : Dgv.Rows(i).Cells("平加班1.34").Value = "0" : Dgv.Rows(i).Cells("平加班1.67").Value = "0"
|
|
|
314
|
+ Dgv.Rows(i).Cells("休加班1.34").Value = "0" : Dgv.Rows(i).Cells("休加班1.67").Value = "0" : Dgv.Rows(i).Cells("國加班2.00").Value = "0"
|
|
|
315
|
+ For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
|
|
|
316
|
+ If Dgv.Rows(i).Cells("姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
|
|
|
317
|
+ If 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
|
|
|
318
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
|
|
|
319
|
+ Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
320
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
|
|
|
321
|
+ Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
322
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
|
|
|
323
|
+ Dgv.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
324
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
|
|
|
325
|
+ Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
326
|
+ End If
|
|
|
327
|
+ ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
|
|
|
328
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
|
|
|
329
|
+ Dgv.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
330
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
|
|
|
331
|
+ Dgv.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
332
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 2 Then
|
|
|
333
|
+ Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
334
|
+ End If
|
|
|
335
|
+ ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
|
|
|
336
|
+ Dgv.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
337
|
+ End If
|
|
|
338
|
+ End If
|
|
|
339
|
+ Next
|
|
|
340
|
+ Dgv.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv.Rows(i).Cells("平加班1.34").Value) / 60
|
|
|
341
|
+ 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
|
+ 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
|
+
|
|
|
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
|
+ Next
|
|
277
|
351
|
Set_薪資計算()
|
|
278
|
352
|
End Sub
|
|
279
|
353
|
Private Sub Set_分頁()
|
|
|
@@ -290,7 +364,7 @@ Public Class 拆帳制薪資試算表
|
|
290
|
364
|
|
|
291
|
365
|
Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True
|
|
292
|
366
|
Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True
|
|
293
|
|
- Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True
|
|
|
367
|
+ Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True : Dgv.Columns("實際總薪資").Visible = True
|
|
294
|
368
|
Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True
|
|
295
|
369
|
Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True
|
|
296
|
370
|
Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
|
|
|
@@ -312,6 +386,10 @@ Public Class 拆帳制薪資試算表
|
|
312
|
386
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
313
|
387
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
314
|
388
|
|
|
|
389
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
390
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
391
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
392
|
+
|
|
315
|
393
|
Dgv.Columns(50).Visible = False
|
|
316
|
394
|
|
|
317
|
395
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
|
@@ -329,7 +407,7 @@ Public Class 拆帳制薪資試算表
|
|
329
|
407
|
|
|
330
|
408
|
Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
|
|
331
|
409
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
332
|
|
- Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
|
|
|
410
|
+ Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
|
|
333
|
411
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
334
|
412
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
335
|
413
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
|
|
|
@@ -351,6 +429,10 @@ Public Class 拆帳制薪資試算表
|
|
351
|
429
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
352
|
430
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
353
|
431
|
|
|
|
432
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
433
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
434
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
435
|
+
|
|
354
|
436
|
Dgv.Columns(50).Visible = True
|
|
355
|
437
|
|
|
356
|
438
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
|
@@ -368,7 +450,7 @@ Public Class 拆帳制薪資試算表
|
|
368
|
450
|
|
|
369
|
451
|
Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
|
|
370
|
452
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
371
|
|
- Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
|
|
|
453
|
+ Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
|
|
372
|
454
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
373
|
455
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
374
|
456
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
|
|
|
@@ -390,6 +472,10 @@ Public Class 拆帳制薪資試算表
|
|
390
|
472
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
391
|
473
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
392
|
474
|
|
|
|
475
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
476
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
477
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
478
|
+
|
|
393
|
479
|
Dgv.Columns(50).Visible = True
|
|
394
|
480
|
|
|
395
|
481
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
|
@@ -407,7 +493,7 @@ Public Class 拆帳制薪資試算表
|
|
407
|
493
|
|
|
408
|
494
|
Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
|
|
409
|
495
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
410
|
|
- Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
|
|
|
496
|
+ Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
|
|
411
|
497
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
412
|
498
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
413
|
499
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
|
|
|
@@ -429,6 +515,10 @@ Public Class 拆帳制薪資試算表
|
|
429
|
515
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
430
|
516
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
431
|
517
|
|
|
|
518
|
+ Dgv.Columns(106).Visible = True : Dgv.Columns(107).Visible = True : Dgv.Columns(108).Visible = True : Dgv.Columns(109).Visible = True : Dgv.Columns(110).Visible = True
|
|
|
519
|
+ Dgv.Columns(111).Visible = True : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
520
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
521
|
+
|
|
432
|
522
|
Dgv.Columns(50).Visible = False
|
|
433
|
523
|
|
|
434
|
524
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
|
@@ -446,7 +536,7 @@ Public Class 拆帳制薪資試算表
|
|
446
|
536
|
|
|
447
|
537
|
Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False
|
|
448
|
538
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
449
|
|
- Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False
|
|
|
539
|
+ Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = True
|
|
450
|
540
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
451
|
541
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
452
|
542
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True
|
|
|
@@ -468,6 +558,10 @@ Public Class 拆帳制薪資試算表
|
|
468
|
558
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
469
|
559
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
470
|
560
|
|
|
|
561
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
562
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
563
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
564
|
+
|
|
471
|
565
|
Dgv.Columns(50).Visible = False
|
|
472
|
566
|
|
|
473
|
567
|
Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+GA+AA_總額").Visible = True : Dgv.Columns("餘額").Visible = True
|
|
|
@@ -485,7 +579,7 @@ Public Class 拆帳制薪資試算表
|
|
485
|
579
|
|
|
486
|
580
|
Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
|
|
487
|
581
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
488
|
|
- Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
|
|
|
582
|
+ Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
|
|
489
|
583
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
490
|
584
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
491
|
585
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
|
|
|
@@ -507,6 +601,10 @@ Public Class 拆帳制薪資試算表
|
|
507
|
601
|
Dgv.Columns(96).Visible = False : Dgv.Columns(97).Visible = False : Dgv.Columns(98).Visible = False : Dgv.Columns(99).Visible = False : Dgv.Columns(100).Visible = False
|
|
508
|
602
|
Dgv.Columns(101).Visible = False : Dgv.Columns(102).Visible = False : Dgv.Columns(103).Visible = False
|
|
509
|
603
|
|
|
|
604
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
605
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = False : Dgv.Columns(113).Visible = False : Dgv.Columns(114).Visible = False : Dgv.Columns(115).Visible = False
|
|
|
606
|
+ Dgv.Columns(116).Visible = False : Dgv.Columns(117).Visible = False
|
|
|
607
|
+
|
|
510
|
608
|
Dgv.Columns(50).Visible = False
|
|
511
|
609
|
|
|
512
|
610
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
|
@@ -524,7 +622,7 @@ Public Class 拆帳制薪資試算表
|
|
524
|
622
|
|
|
525
|
623
|
Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False
|
|
526
|
624
|
Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False
|
|
527
|
|
- Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False
|
|
|
625
|
+ Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("實際總薪資").Visible = False
|
|
528
|
626
|
Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False
|
|
529
|
627
|
Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False
|
|
530
|
628
|
Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False
|
|
|
@@ -546,15 +644,20 @@ Public Class 拆帳制薪資試算表
|
|
546
|
644
|
Dgv.Columns(96).Visible = True : Dgv.Columns(97).Visible = True : Dgv.Columns(98).Visible = True : Dgv.Columns(99).Visible = True : Dgv.Columns(100).Visible = True
|
|
547
|
645
|
Dgv.Columns(101).Visible = True : Dgv.Columns(102).Visible = True : Dgv.Columns(103).Visible = True
|
|
548
|
646
|
|
|
|
647
|
+ Dgv.Columns(106).Visible = False : Dgv.Columns(107).Visible = False : Dgv.Columns(108).Visible = False : Dgv.Columns(109).Visible = False : Dgv.Columns(110).Visible = False
|
|
|
648
|
+ Dgv.Columns(111).Visible = False : Dgv.Columns(112).Visible = True : Dgv.Columns(113).Visible = True : Dgv.Columns(114).Visible = True : Dgv.Columns(115).Visible = True
|
|
|
649
|
+ Dgv.Columns(116).Visible = True : Dgv.Columns(117).Visible = True
|
|
|
650
|
+
|
|
549
|
651
|
Dgv.Columns(50).Visible = False
|
|
550
|
652
|
|
|
551
|
653
|
Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+GA+AA_總額").Visible = False : Dgv.Columns("餘額").Visible = False
|
|
552
|
654
|
Dgv.Columns("餘額比").Visible = False : Dgv.Columns("服務轉場比").Visible = False
|
|
553
|
655
|
End If
|
|
554
|
|
- Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False
|
|
|
656
|
+ Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False : Dgv.Columns("總薪").Visible = False : Dgv.Columns("AA剃除").Visible = False
|
|
555
|
657
|
Dgv.Columns("正常班平均時薪").Visible = False : Dgv.Columns("副薪").Visible = False : Dgv.Columns("平日工時").Visible = False
|
|
556
|
658
|
Dgv.Columns("平日平均時薪/含平日加班").Visible = False : Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False
|
|
557
|
659
|
Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv.Columns("AA07").Visible = False : Dgv.Columns("AA09").Visible = False
|
|
|
660
|
+ Dgv.Columns("BAORSC").Visible = False : Dgv.Columns("AA長短").Visible = False : Dgv.Columns("BAORSC仁").Visible = False : Dgv.Columns("AA長短仁").Visible = False
|
|
558
|
661
|
End Sub
|
|
559
|
662
|
Private Sub Set_薪資計算()
|
|
560
|
663
|
Dim 分子(8), 分母(8) As Double
|
|
|
@@ -567,7 +670,7 @@ Public Class 拆帳制薪資試算表
|
|
567
|
670
|
BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
|
|
568
|
671
|
D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
|
|
569
|
672
|
E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
|
|
570
|
|
- E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"
|
|
|
673
|
+ E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
|
|
571
|
674
|
If 是否有差額 = True Then
|
|
572
|
675
|
For i As Integer = 0 To Dgv.Rows.Count - 1
|
|
573
|
676
|
For II As Integer = 0 To 差異_dgv.Rows.Count - 1
|
|
|
@@ -621,13 +724,14 @@ Public Class 拆帳制薪資試算表
|
|
621
|
724
|
Dgv.Rows(i).Cells("平日加班扣除額").Value = "0" : Dgv.Rows(i).Cells("轉場津貼").Value = "0" : Dgv.Rows(i).Cells("總轉場時數").Value = "0"
|
|
622
|
725
|
Dgv.Rows(i).Cells("正常班平均時薪").Value = "0" : Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("服務津貼").Value = "0"
|
|
623
|
726
|
Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv.Rows(i).Cells("總薪資").Value = "0"
|
|
624
|
|
- Dgv.Rows(i).Cells("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0"
|
|
|
727
|
+ Dgv.Rows(i).Cells("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0" : Dgv.Rows(i).Cells("實際總薪資").Value = "0"
|
|
625
|
728
|
Dgv.Rows(i).Cells(89).Value = Dgv.Rows(i).Cells(77).Value + Dgv.Rows(i).Cells(78).Value + Dgv.Rows(i).Cells(79).Value + Dgv.Rows(i).Cells(80).Value + Dgv.Rows(i).Cells(81).Value +
|
|
626
|
729
|
Dgv.Rows(i).Cells(82).Value + Dgv.Rows(i).Cells(83).Value + Dgv.Rows(i).Cells(84).Value + Dgv.Rows(i).Cells(85).Value + Dgv.Rows(i).Cells(86).Value +
|
|
627
|
730
|
Dgv.Rows(i).Cells(87).Value + Dgv.Rows(i).Cells(88).Value
|
|
628
|
731
|
Dgv.Rows(i).Cells(103).Value = Dgv.Rows(i).Cells(91).Value + Dgv.Rows(i).Cells(92).Value + Dgv.Rows(i).Cells(93).Value + Dgv.Rows(i).Cells(94).Value + Dgv.Rows(i).Cells(95).Value +
|
|
629
|
732
|
Dgv.Rows(i).Cells(96).Value + Dgv.Rows(i).Cells(97).Value + Dgv.Rows(i).Cells(98).Value + Dgv.Rows(i).Cells(99).Value + Dgv.Rows(i).Cells(100).Value +
|
|
630
|
|
- Dgv.Rows(i).Cells(101).Value + Dgv.Rows(i).Cells(102).Value
|
|
|
733
|
+ Dgv.Rows(i).Cells(101).Value + Dgv.Rows(i).Cells(102).Value + Dgv.Rows(i).Cells("國薪資2.00").Value + Dgv.Rows(i).Cells("轉場薪資").Value +
|
|
|
734
|
+ Dgv.Rows(i).Cells("平薪資1.34").Value + Dgv.Rows(i).Cells("平薪資1.67").Value + Dgv.Rows(i).Cells("休薪資1.34").Value + Dgv.Rows(i).Cells("休薪資1.67").Value
|
|
631
|
735
|
If IsDBNull(Dgv.Rows(i).Cells("BA").Value) = True Then : Dgv.Rows(i).Cells("BA").Value = 0 : End If
|
|
632
|
736
|
If IsDBNull(Dgv.Rows(i).Cells("GA").Value) = True Then : Dgv.Rows(i).Cells("GA").Value = 0 : End If
|
|
633
|
737
|
If IsDBNull(Dgv.Rows(i).Cells("GAM1").Value) = True Then : Dgv.Rows(i).Cells("GAM1").Value = 0 : End If
|
|
|
@@ -650,6 +754,14 @@ Public Class 拆帳制薪資試算表
|
|
650
|
754
|
CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) +
|
|
651
|
755
|
CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) +
|
|
652
|
756
|
CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString)
|
|
|
757
|
+ Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
|
|
|
758
|
+ For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
|
|
|
759
|
+ If Dgv.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
|
|
|
760
|
+ 剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
|
|
|
761
|
+ End If
|
|
|
762
|
+ Next : Dgv.Rows(i).Cells("AA剃除").Value = 剃除總額
|
|
|
763
|
+ If 開啟扣除 = True Then : Dgv.Rows(i).Cells("AA").Value = CDbl(Dgv.Rows(i).Cells("AA").Value) - 剃除總額 : End If
|
|
|
764
|
+ If CDbl(Dgv.Rows(i).Cells("AA").Value) < 0 Then : Dgv.Rows(i).Cells("AA").Value = 0 : Dgv.Rows(i).Cells("AA剃除").Value = "0" : End If
|
|
653
|
765
|
|
|
654
|
766
|
Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)
|
|
655
|
767
|
For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
|
|
|
@@ -700,12 +812,24 @@ Public Class 拆帳制薪資試算表
|
|
700
|
812
|
Dgv.Rows(i).Cells(47).Value + Dgv.Rows(i).Cells(48).Value
|
|
701
|
813
|
Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)
|
|
702
|
814
|
Dgv.Rows(i).Cells("平均時薪").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString)
|
|
703
|
|
- Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) +
|
|
704
|
|
- CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) +
|
|
705
|
|
- CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) +
|
|
706
|
|
- CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString) +
|
|
707
|
|
- CDbl(Dgv.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA09").Value.ToString)) +
|
|
708
|
|
- CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString)
|
|
|
815
|
+ If CDbl(最低薪資_lb.Text) = 0 Then
|
|
|
816
|
+ Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString)
|
|
|
817
|
+ Else
|
|
|
818
|
+ Dgv.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休薪資1.67").Value.ToString) +
|
|
|
819
|
+ CDbl(Dgv.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場薪資").Value.ToString) +
|
|
|
820
|
+ CDbl(Dgv.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平薪資1.67").Value.ToString) +
|
|
|
821
|
+ CDbl(Dgv.Rows(i).Cells("休薪資1.34").Value.ToString)
|
|
|
822
|
+ End If
|
|
|
823
|
+
|
|
|
824
|
+ If IsDBNull(Dgv.Rows(i).Cells("BAORSC").Value) = True Then : Dgv.Rows(i).Cells("BAORSC").Value = 0 : End If
|
|
|
825
|
+ If IsDBNull(Dgv.Rows(i).Cells("AA長短").Value) = True Then : Dgv.Rows(i).Cells("AA長短").Value = 0 : End If
|
|
|
826
|
+ If IsDBNull(Dgv.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv.Rows(i).Cells("BAORSC仁").Value = 0 : End If
|
|
|
827
|
+ If IsDBNull(Dgv.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv.Rows(i).Cells("AA長短仁").Value = 0 : End If
|
|
|
828
|
+ If CDbl(Dgv.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv.Rows(i).Cells("AA長短").Value) = 0 Then
|
|
|
829
|
+ Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv.Rows(i).Cells("AA長短仁").Value)
|
|
|
830
|
+ Else
|
|
|
831
|
+ Dgv.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv.Rows(i).Cells("AA長短").Value)
|
|
|
832
|
+ End If
|
|
709
|
833
|
Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) -
|
|
710
|
834
|
CDbl(Dgv.Rows(i).Cells(103).Value.ToString)
|
|
711
|
835
|
Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)
|
|
|
@@ -730,6 +854,8 @@ Public Class 拆帳制薪資試算表
|
|
730
|
854
|
加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
|
|
731
|
855
|
總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
|
|
732
|
856
|
總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
|
|
|
857
|
+ 實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
|
|
|
858
|
+ 實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
|
|
733
|
859
|
A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")
|
|
734
|
860
|
A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")
|
|
735
|
861
|
A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")
|
|
|
@@ -947,12 +1073,44 @@ Public Class 拆帳制薪資試算表
|
|
947
|
1073
|
Dgv1.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
948
|
1074
|
Dgv1.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
949
|
1075
|
Dgv1.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
950
|
|
-
|
|
951
|
|
- Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"
|
|
952
|
|
- Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
|
|
953
|
|
- Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"
|
|
954
|
|
- Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0"
|
|
955
|
|
- Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0"
|
|
|
1076
|
+ Dgv1.Columns("服務轉場比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1077
|
+ Dgv1.Columns("服務轉場比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1078
|
+ Dgv1.Columns("正常班轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1079
|
+ Dgv1.Columns("正常班轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1080
|
+ Dgv1.Columns("平加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1081
|
+ Dgv1.Columns("平加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1082
|
+ Dgv1.Columns("平加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1083
|
+ Dgv1.Columns("平加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1084
|
+ Dgv1.Columns("休加班1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1085
|
+ Dgv1.Columns("休加班1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1086
|
+ Dgv1.Columns("休加班1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1087
|
+ Dgv1.Columns("休加班1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1088
|
+ Dgv1.Columns("國加班2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1089
|
+ Dgv1.Columns("國加班2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1090
|
+ Dgv1.Columns("轉場薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1091
|
+ Dgv1.Columns("轉場薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1092
|
+ Dgv1.Columns("平薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1093
|
+ Dgv1.Columns("平薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1094
|
+ Dgv1.Columns("平薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1095
|
+ Dgv1.Columns("平薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1096
|
+ Dgv1.Columns("休薪資1.34").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1097
|
+ Dgv1.Columns("休薪資1.34").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1098
|
+ Dgv1.Columns("休薪資1.67").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1099
|
+ Dgv1.Columns("休薪資1.67").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1100
|
+ Dgv1.Columns("國薪資2.00").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1101
|
+ Dgv1.Columns("國薪資2.00").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1102
|
+ Dgv1.Columns("實際總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
|
|
1103
|
+ Dgv1.Columns("實際總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
1104
|
+
|
|
|
1105
|
+ Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"
|
|
|
1106
|
+ Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休加班1.34").DefaultCellStyle.Format = "#,##0.000"
|
|
|
1107
|
+ Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("正常班轉場").DefaultCellStyle.Format = "#,##0.000"
|
|
|
1108
|
+ Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.34").DefaultCellStyle.Format = "#,##0.000"
|
|
|
1109
|
+ Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("平加班1.67").DefaultCellStyle.Format = "#,##0.000"
|
|
|
1110
|
+ Dgv1.Columns("轉場薪資").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("平薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休加班1.67").DefaultCellStyle.Format = "#,##0.000"
|
|
|
1111
|
+ Dgv1.Columns("平薪資1.67").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.34").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("休薪資1.67").DefaultCellStyle.Format = "#,##0"
|
|
|
1112
|
+ Dgv1.Columns("國薪資2.00").DefaultCellStyle.Format = "#,##0" : Dgv1.Columns("國加班2.00").DefaultCellStyle.Format = "#,##0.000" : Dgv1.Columns("實際總薪資").DefaultCellStyle.Format = "#,##0.0"
|
|
|
1113
|
+ Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(103).DefaultCellStyle.Format = "#,##0.0"
|
|
956
|
1114
|
Dgv1.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(28).DefaultCellStyle.Format = "#,##0.0"
|
|
957
|
1115
|
Dgv1.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(31).DefaultCellStyle.Format = "#,##0.0"
|
|
958
|
1116
|
Dgv1.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(34).DefaultCellStyle.Format = "#,##0.0"
|
|
|
@@ -970,17 +1128,19 @@ Public Class 拆帳制薪資試算表
|
|
970
|
1128
|
Dgv1.Columns(94).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(95).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(96).DefaultCellStyle.Format = "#,##0.0"
|
|
971
|
1129
|
Dgv1.Columns(97).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(98).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(99).DefaultCellStyle.Format = "#,##0.0"
|
|
972
|
1130
|
Dgv1.Columns(100).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(101).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(102).DefaultCellStyle.Format = "#,##0.0"
|
|
973
|
|
- Dgv1.Columns(103).DefaultCellStyle.Format = "#,##0.0"
|
|
|
1131
|
+
|
|
974
|
1132
|
Dgv1.Columns("GAM1").Visible = False : Dgv1.Columns("GAM2").Visible = False : Dgv1.Columns("BA").Visible = False : Dgv1.Columns("GA").Visible = False
|
|
975
|
1133
|
Set_分頁1()
|
|
976
|
1134
|
|
|
977
|
1135
|
For i As Integer = 0 To 73 : Dgv1.Columns(i).ReadOnly = True : Next : For i As Integer = 24 To 35 : Dgv1.Columns(i).ReadOnly = False : Next
|
|
978
|
1136
|
For i As Integer = 77 To 88 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 90 To 102 : Dgv1.Columns(i).ReadOnly = False : Next
|
|
979
|
|
- For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False
|
|
980
|
|
-
|
|
|
1137
|
+ For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : For i As Integer = 106 To 117 : Dgv1.Columns(i).ReadOnly = True : Next
|
|
|
1138
|
+ Dgv1.Columns("服務轉場比").ReadOnly = False : Dgv1.Columns("總服務時數").ReadOnly = False : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False
|
|
|
1139
|
+ Dgv1.Columns("總轉場時數").ReadOnly = False : Dgv1.Columns("公司負擔總計").ReadOnly = True : Dgv1.Columns("薪資加項總計").ReadOnly = True
|
|
|
1140
|
+ Dgv1.Columns("總服務時數").ReadOnly = True : Dgv1.Columns("總轉場時數").ReadOnly = True : Dgv1.Columns("服務轉場比").ReadOnly = True : Dgv1.Columns("實際總薪資").ReadOnly = True
|
|
981
|
1141
|
Dgv1.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose
|
|
982
|
1142
|
Dgv1.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(89).DefaultCellStyle.BackColor = Color.MistyRose
|
|
983
|
|
- Dgv.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose
|
|
|
1143
|
+ Dgv1.Columns(103).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("實際總薪資").DefaultCellStyle.BackColor = Color.MistyRose
|
|
984
|
1144
|
Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean
|
|
985
|
1145
|
For i As Integer = 0 To Dgv1.Rows.Count - 1 : 新增 = False
|
|
986
|
1146
|
If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If
|
|
|
@@ -1003,6 +1163,41 @@ Public Class 拆帳制薪資試算表
|
|
1003
|
1163
|
SQL_BA比_新增() : 重讀 = True
|
|
1004
|
1164
|
End If
|
|
1005
|
1165
|
Next : If 重讀 = True Then : Set_BA比2() : End If
|
|
|
1166
|
+ For i As Integer = 0 To Dgv1.Rows.Count - 1
|
|
|
1167
|
+ Dgv1.Rows(i).Cells("正常班轉場").Value = "0" : Dgv1.Rows(i).Cells("平加班1.34").Value = "0" : Dgv1.Rows(i).Cells("平加班1.67").Value = "0"
|
|
|
1168
|
+ Dgv1.Rows(i).Cells("休加班1.34").Value = "0" : Dgv1.Rows(i).Cells("休加班1.67").Value = "0" : Dgv1.Rows(i).Cells("國加班2.00").Value = "0"
|
|
|
1169
|
+ For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
|
|
|
1170
|
+ If Dgv1.Rows(i).Cells("姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
|
|
|
1171
|
+ If 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期日" And 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString <> "星期六" Then
|
|
|
1172
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1 Then
|
|
|
1173
|
+ Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1174
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
|
|
|
1175
|
+ Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1176
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
|
|
|
1177
|
+ Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1178
|
+ End If
|
|
|
1179
|
+ ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期六" Then
|
|
|
1180
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.34 Then
|
|
|
1181
|
+ Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1182
|
+ ElseIf CDbl(轉場加班_dgv.Rows(ii).Cells("加班時段").Value.ToString) = 1.67 Then
|
|
|
1183
|
+ Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1184
|
+ End If
|
|
|
1185
|
+ ElseIf 轉場加班_dgv.Rows(ii).Cells("星期").Value.ToString = "星期日" Then
|
|
|
1186
|
+ Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) + CDbl(轉場加班_dgv.Rows(ii).Cells("排班轉場時間_分").Value)
|
|
|
1187
|
+ End If
|
|
|
1188
|
+ End If
|
|
|
1189
|
+ Next
|
|
|
1190
|
+ Dgv1.Rows(i).Cells("正常班轉場").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value) / 60 : Dgv1.Rows(i).Cells("平加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value) / 60
|
|
|
1191
|
+ Dgv1.Rows(i).Cells("平加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("休加班1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value) / 60
|
|
|
1192
|
+ Dgv1.Rows(i).Cells("休加班1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value) / 60 : Dgv1.Rows(i).Cells("國加班2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value) / 60
|
|
|
1193
|
+
|
|
|
1194
|
+ Dgv1.Rows(i).Cells("轉場薪資").Value = CDbl(Dgv1.Rows(i).Cells("正常班轉場").Value.ToString) * 198
|
|
|
1195
|
+ Dgv1.Rows(i).Cells("平薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.34").Value.ToString) * 198 * 1.34
|
|
|
1196
|
+ Dgv1.Rows(i).Cells("平薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("平加班1.67").Value.ToString) * 198 * 1.67
|
|
|
1197
|
+ Dgv1.Rows(i).Cells("休薪資1.34").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.34").Value.ToString) * 198 * 1.34
|
|
|
1198
|
+ Dgv1.Rows(i).Cells("休薪資1.67").Value = CDbl(Dgv1.Rows(i).Cells("休加班1.67").Value.ToString) * 198 * 1.67
|
|
|
1199
|
+ Dgv1.Rows(i).Cells("國薪資2.00").Value = CDbl(Dgv1.Rows(i).Cells("國加班2.00").Value.ToString) * 198 * 2
|
|
|
1200
|
+ Next
|
|
1006
|
1201
|
Set_薪資計算1()
|
|
1007
|
1202
|
End Sub
|
|
1008
|
1203
|
Private Sub Set_分頁1()
|
|
|
@@ -1035,12 +1230,16 @@ Public Class 拆帳制薪資試算表
|
|
1035
|
1230
|
|
|
1036
|
1231
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1037
|
1232
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1038
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1233
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1039
|
1234
|
|
|
1040
|
1235
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1041
|
1236
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1042
|
1237
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1043
|
1238
|
|
|
|
1239
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1240
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1241
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1242
|
+
|
|
1044
|
1243
|
Dgv1.Columns(50).Visible = False
|
|
1045
|
1244
|
|
|
1046
|
1245
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
|
@@ -1074,12 +1273,16 @@ Public Class 拆帳制薪資試算表
|
|
1074
|
1273
|
|
|
1075
|
1274
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1076
|
1275
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1077
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1276
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1078
|
1277
|
|
|
1079
|
1278
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1080
|
1279
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1081
|
1280
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1082
|
1281
|
|
|
|
1282
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1283
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1284
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1285
|
+
|
|
1083
|
1286
|
Dgv1.Columns(50).Visible = True
|
|
1084
|
1287
|
|
|
1085
|
1288
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
|
@@ -1113,12 +1316,16 @@ Public Class 拆帳制薪資試算表
|
|
1113
|
1316
|
|
|
1114
|
1317
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1115
|
1318
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1116
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1319
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1117
|
1320
|
|
|
1118
|
1321
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1119
|
1322
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1120
|
1323
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1121
|
1324
|
|
|
|
1325
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1326
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1327
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1328
|
+
|
|
1122
|
1329
|
Dgv1.Columns(50).Visible = True
|
|
1123
|
1330
|
|
|
1124
|
1331
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
|
@@ -1152,16 +1359,20 @@ Public Class 拆帳制薪資試算表
|
|
1152
|
1359
|
|
|
1153
|
1360
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1154
|
1361
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1155
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1362
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1156
|
1363
|
|
|
1157
|
1364
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1158
|
1365
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1159
|
1366
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1160
|
1367
|
|
|
|
1368
|
+ Dgv1.Columns(106).Visible = True : Dgv1.Columns(107).Visible = True : Dgv1.Columns(108).Visible = True : Dgv1.Columns(109).Visible = True : Dgv1.Columns(110).Visible = True
|
|
|
1369
|
+ Dgv1.Columns(111).Visible = True : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1370
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1371
|
+
|
|
1161
|
1372
|
Dgv1.Columns(50).Visible = False
|
|
1162
|
1373
|
|
|
1163
|
1374
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
1164
|
|
- Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
|
|
|
1375
|
+ Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = True
|
|
1165
|
1376
|
ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True And
|
|
1166
|
1377
|
薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = False Then
|
|
1167
|
1378
|
Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
|
|
|
@@ -1191,16 +1402,20 @@ Public Class 拆帳制薪資試算表
|
|
1191
|
1402
|
|
|
1192
|
1403
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1193
|
1404
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1194
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1405
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1195
|
1406
|
|
|
1196
|
1407
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1197
|
1408
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1198
|
1409
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1199
|
1410
|
|
|
|
1411
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1412
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1413
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1414
|
+
|
|
1200
|
1415
|
Dgv1.Columns(50).Visible = False
|
|
1201
|
1416
|
|
|
1202
|
1417
|
Dgv1.Columns("總時數").Visible = True : Dgv1.Columns("平均時薪").Visible = True : Dgv1.Columns("BA+GA+AA_總額").Visible = True : Dgv1.Columns("餘額").Visible = True
|
|
1203
|
|
- Dgv1.Columns("餘額比").Visible = True : Dgv1.Columns("服務轉場比").Visible = True
|
|
|
1418
|
+ Dgv1.Columns("餘額比").Visible = True : Dgv1.Columns("服務轉場比").Visible = False
|
|
1204
|
1419
|
ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
|
|
1205
|
1420
|
薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
|
|
1206
|
1421
|
Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
|
|
|
@@ -1230,18 +1445,22 @@ Public Class 拆帳制薪資試算表
|
|
1230
|
1445
|
|
|
1231
|
1446
|
Dgv1.Columns(77).Visible = True : Dgv1.Columns(78).Visible = True : Dgv1.Columns(79).Visible = True : Dgv1.Columns(80).Visible = True : Dgv1.Columns(81).Visible = True
|
|
1232
|
1447
|
Dgv1.Columns(82).Visible = True : Dgv1.Columns(83).Visible = True : Dgv1.Columns(84).Visible = True : Dgv1.Columns(85).Visible = True : Dgv1.Columns(86).Visible = True
|
|
1233
|
|
- Dgv1.Columns(87).Visible = True : Dgv1.Columns(88).Visible = True : Dgv1.Columns(89).Visible = True
|
|
|
1448
|
+ Dgv1.Columns(87).Visible = True : Dgv1.Columns(88).Visible = True : Dgv1.Columns(89).Visible = True : Dgv1.Columns(90).Visible = True
|
|
1234
|
1449
|
|
|
1235
|
1450
|
Dgv1.Columns(91).Visible = False : Dgv1.Columns(92).Visible = False : Dgv1.Columns(93).Visible = False : Dgv1.Columns(94).Visible = False : Dgv1.Columns(95).Visible = False
|
|
1236
|
1451
|
Dgv1.Columns(96).Visible = False : Dgv1.Columns(97).Visible = False : Dgv1.Columns(98).Visible = False : Dgv1.Columns(99).Visible = False : Dgv1.Columns(100).Visible = False
|
|
1237
|
1452
|
Dgv1.Columns(101).Visible = False : Dgv1.Columns(102).Visible = False : Dgv1.Columns(103).Visible = False
|
|
1238
|
1453
|
|
|
|
1454
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1455
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = False : Dgv1.Columns(113).Visible = False : Dgv1.Columns(114).Visible = False : Dgv1.Columns(115).Visible = False
|
|
|
1456
|
+ Dgv1.Columns(116).Visible = False : Dgv1.Columns(117).Visible = False
|
|
|
1457
|
+
|
|
1239
|
1458
|
Dgv1.Columns(50).Visible = False
|
|
1240
|
1459
|
|
|
1241
|
1460
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
1242
|
1461
|
Dgv1.Columns("餘額比").Visible = False : Dgv1.Columns("服務轉場比").Visible = False
|
|
1243
|
1462
|
ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False And
|
|
1244
|
|
- 薪資加項_ch.Checked = True And 公司負擔成本_ch.Checked = False Then
|
|
|
1463
|
+ 薪資加項_ch.Checked = False And 公司負擔成本_ch.Checked = True Then
|
|
1245
|
1464
|
Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False
|
|
1246
|
1465
|
Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False
|
|
1247
|
1466
|
Dgv1.Columns("AA11").Visible = False
|
|
|
@@ -1269,12 +1488,16 @@ Public Class 拆帳制薪資試算表
|
|
1269
|
1488
|
|
|
1270
|
1489
|
Dgv1.Columns(77).Visible = False : Dgv1.Columns(78).Visible = False : Dgv1.Columns(79).Visible = False : Dgv1.Columns(80).Visible = False : Dgv1.Columns(81).Visible = False
|
|
1271
|
1490
|
Dgv1.Columns(82).Visible = False : Dgv1.Columns(83).Visible = False : Dgv1.Columns(84).Visible = False : Dgv1.Columns(85).Visible = False : Dgv1.Columns(86).Visible = False
|
|
1272
|
|
- Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False
|
|
|
1491
|
+ Dgv1.Columns(87).Visible = False : Dgv1.Columns(88).Visible = False : Dgv1.Columns(89).Visible = False : Dgv1.Columns(90).Visible = False
|
|
1273
|
1492
|
|
|
1274
|
1493
|
Dgv1.Columns(91).Visible = True : Dgv1.Columns(92).Visible = True : Dgv1.Columns(93).Visible = True : Dgv1.Columns(94).Visible = True : Dgv1.Columns(95).Visible = True
|
|
1275
|
1494
|
Dgv1.Columns(96).Visible = True : Dgv1.Columns(97).Visible = True : Dgv1.Columns(98).Visible = True : Dgv1.Columns(99).Visible = True : Dgv1.Columns(100).Visible = True
|
|
1276
|
1495
|
Dgv1.Columns(101).Visible = True : Dgv1.Columns(102).Visible = True : Dgv1.Columns(103).Visible = True
|
|
1277
|
1496
|
|
|
|
1497
|
+ Dgv1.Columns(106).Visible = False : Dgv1.Columns(107).Visible = False : Dgv1.Columns(108).Visible = False : Dgv1.Columns(109).Visible = False : Dgv1.Columns(110).Visible = False
|
|
|
1498
|
+ Dgv1.Columns(111).Visible = False : Dgv1.Columns(112).Visible = True : Dgv1.Columns(113).Visible = True : Dgv1.Columns(114).Visible = True : Dgv1.Columns(115).Visible = True
|
|
|
1499
|
+ Dgv1.Columns(116).Visible = True : Dgv1.Columns(117).Visible = True
|
|
|
1500
|
+
|
|
1278
|
1501
|
Dgv1.Columns(50).Visible = False
|
|
1279
|
1502
|
|
|
1280
|
1503
|
Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+GA+AA_總額").Visible = False : Dgv1.Columns("餘額").Visible = False
|
|
|
@@ -1284,6 +1507,7 @@ Public Class 拆帳制薪資試算表
|
|
1284
|
1507
|
Dgv1.Columns("正常班平均時薪").Visible = False : Dgv1.Columns("副薪").Visible = False : Dgv1.Columns("平日工時").Visible = False
|
|
1285
|
1508
|
Dgv1.Columns("平日平均時薪/含平日加班").Visible = False : Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False
|
|
1286
|
1509
|
Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False : Dgv1.Columns("AA07").Visible = False : Dgv1.Columns("AA09").Visible = False
|
|
|
1510
|
+ Dgv1.Columns("BAORSC").Visible = False : Dgv1.Columns("AA長短").Visible = False : Dgv1.Columns("BAORSC仁").Visible = False : Dgv1.Columns("AA長短仁").Visible = False
|
|
1287
|
1511
|
End Sub
|
|
1288
|
1512
|
Private Sub Set_薪資計算1()
|
|
1289
|
1513
|
BA正_tb.Text = "0" : GA正_tb.Text = "0" : GA加_tb.Text = "0" : 其他_tb.Text = "0" : 主薪_tb.Text = "0" : AA_tb.Text = "0" : 副薪_tb.Text = "0" : 總薪_tb.Text = "0"
|
|
|
@@ -1295,7 +1519,7 @@ Public Class 拆帳制薪資試算表
|
|
1295
|
1519
|
BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0" : D01_tb.Text = "0" : D02_tb.Text = "0" : D03_tb.Text = "0" : D04_tb.Text = "0" : D05_tb.Text = "0" : D06_tb.Text = "0"
|
|
1296
|
1520
|
D07_tb.Text = "0" : D08_tb.Text = "0" : D09_tb.Text = "0" : D10_tb.Text = "0" : D11_tb.Text = "0" : D12_tb.Text = "0" : 薪資加項總計_tb.Text = "0" : E01_tb.Text = "0" : E02_tb.Text = "0"
|
|
1297
|
1521
|
E03_tb.Text = "0" : E04_tb.Text = "0" : E05_tb.Text = "0" : E06_tb.Text = "0" : E07_tb.Text = "0" : E08_tb.Text = "0" : E09_tb.Text = "0" : E10_tb.Text = "0" : E11_tb.Text = "0"
|
|
1298
|
|
- E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0"
|
|
|
1522
|
+ E12_tb.Text = "0" : 公司負擔總計_tb.Text = "0" : 實際薪資1_tb.Text = "0" : 實際薪資_tb.Text = "0"
|
|
1299
|
1523
|
For i As Integer = 0 To Dgv1.Rows.Count - 1
|
|
1300
|
1524
|
For ii As Integer = 0 To BA比_dgv.Rows.Count - 1
|
|
1301
|
1525
|
If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then
|
|
|
@@ -1342,7 +1566,8 @@ Public Class 拆帳制薪資試算表
|
|
1342
|
1566
|
Dgv1.Rows(i).Cells(87).Value + Dgv1.Rows(i).Cells(88).Value
|
|
1343
|
1567
|
Dgv1.Rows(i).Cells(103).Value = Dgv1.Rows(i).Cells(91).Value + Dgv1.Rows(i).Cells(92).Value + Dgv1.Rows(i).Cells(93).Value + Dgv1.Rows(i).Cells(94).Value + Dgv1.Rows(i).Cells(95).Value +
|
|
1344
|
1568
|
Dgv1.Rows(i).Cells(96).Value + Dgv1.Rows(i).Cells(97).Value + Dgv1.Rows(i).Cells(98).Value + Dgv1.Rows(i).Cells(99).Value + Dgv1.Rows(i).Cells(100).Value +
|
|
1345
|
|
- Dgv1.Rows(i).Cells(101).Value + Dgv1.Rows(i).Cells(102).Value
|
|
|
1569
|
+ Dgv1.Rows(i).Cells(101).Value + Dgv1.Rows(i).Cells(102).Value + Dgv1.Rows(i).Cells("國薪資2.00").Value + Dgv1.Rows(i).Cells("轉場薪資").Value +
|
|
|
1570
|
+ Dgv1.Rows(i).Cells("平薪資1.34").Value + Dgv1.Rows(i).Cells("平薪資1.67").Value + Dgv1.Rows(i).Cells("休薪資1.34").Value + Dgv1.Rows(i).Cells("休薪資1.67").Value
|
|
1346
|
1571
|
If IsDBNull(Dgv1.Rows(i).Cells("BA").Value) = True Then : Dgv1.Rows(i).Cells("BA").Value = 0 : End If
|
|
1347
|
1572
|
If IsDBNull(Dgv1.Rows(i).Cells("GA").Value) = True Then : Dgv1.Rows(i).Cells("GA").Value = 0 : End If
|
|
1348
|
1573
|
If IsDBNull(Dgv1.Rows(i).Cells("GAM1").Value) = True Then : Dgv1.Rows(i).Cells("GAM1").Value = 0 : End If
|
|
|
@@ -1365,6 +1590,14 @@ Public Class 拆帳制薪資試算表
|
|
1365
|
1590
|
CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) +
|
|
1366
|
1591
|
CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) +
|
|
1367
|
1592
|
CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString)
|
|
|
1593
|
+ Dim 開啟扣除 As Boolean = 扣除狀態_ch.Checked : Dim 剃除總額 As Double = 0
|
|
|
1594
|
+ For K As Integer = 0 To AA剃除_dgv.Rows.Count - 1
|
|
|
1595
|
+ If Dgv1.Rows(i).Cells("姓名").Value.ToString = AA剃除_dgv.Rows(K).Cells("居服員姓名").Value.ToString Then
|
|
|
1596
|
+ 剃除總額 += CDbl(AA剃除_dgv.Rows(K).Cells("剃除金額").Value.ToString)
|
|
|
1597
|
+ End If
|
|
|
1598
|
+ Next : Dgv1.Rows(i).Cells("AA剃除").Value = 剃除總額
|
|
|
1599
|
+ If 開啟扣除 = True Then : Dgv1.Rows(i).Cells("AA").Value = CDbl(Dgv1.Rows(i).Cells("AA").Value) - 剃除總額 : End If
|
|
|
1600
|
+ If CDbl(Dgv1.Rows(i).Cells("AA").Value) < 0 Then : Dgv1.Rows(i).Cells("AA").Value = 0 : Dgv1.Rows(i).Cells("AA剃除").Value = "0" : End If
|
|
1368
|
1601
|
|
|
1369
|
1602
|
Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)
|
|
1370
|
1603
|
For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1
|
|
|
@@ -1412,12 +1645,20 @@ Public Class 拆帳制薪資試算表
|
|
1412
|
1645
|
Dgv1.Rows(i).Cells(47).Value + Dgv1.Rows(i).Cells(48).Value
|
|
1413
|
1646
|
Dgv1.Rows(i).Cells("總時數").Value = CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString)
|
|
1414
|
1647
|
Dgv1.Rows(i).Cells("平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString)
|
|
1415
|
|
- Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv1.Rows(i).Cells("AA03").Value.ToString) +
|
|
1416
|
|
- CDbl(Dgv1.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) +
|
|
1417
|
|
- CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) +
|
|
1418
|
|
- CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString) +
|
|
1419
|
|
- CDbl(Dgv1.Rows(i).Cells("AA07").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString)) +
|
|
1420
|
|
- CDbl(Dgv1.Rows(i).Cells("GA").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString)
|
|
|
1648
|
+ Dgv1.Rows(i).Cells("實際總薪資").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("休薪資1.67").Value.ToString) +
|
|
|
1649
|
+ CDbl(Dgv1.Rows(i).Cells("國薪資2.00").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場薪資").Value.ToString) +
|
|
|
1650
|
+ CDbl(Dgv1.Rows(i).Cells("平薪資1.34").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("平薪資1.67").Value.ToString) +
|
|
|
1651
|
+ CDbl(Dgv1.Rows(i).Cells("休薪資1.34").Value.ToString)
|
|
|
1652
|
+
|
|
|
1653
|
+ If IsDBNull(Dgv1.Rows(i).Cells("BAORSC").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC").Value = 0 : End If
|
|
|
1654
|
+ If IsDBNull(Dgv1.Rows(i).Cells("AA長短").Value) = True Then : Dgv1.Rows(i).Cells("AA長短").Value = 0 : End If
|
|
|
1655
|
+ If IsDBNull(Dgv1.Rows(i).Cells("BAORSC仁").Value) = True Then : Dgv1.Rows(i).Cells("BAORSC仁").Value = 0 : End If
|
|
|
1656
|
+ If IsDBNull(Dgv1.Rows(i).Cells("AA長短仁").Value) = True Then : Dgv1.Rows(i).Cells("AA長短仁").Value = 0 : End If
|
|
|
1657
|
+ If CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) = 0 And CDbl(Dgv1.Rows(i).Cells("AA長短").Value) = 0 Then
|
|
|
1658
|
+ Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC仁").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短仁").Value)
|
|
|
1659
|
+ Else
|
|
|
1660
|
+ Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value = CDbl(Dgv1.Rows(i).Cells("BAORSC").Value) + CDbl(Dgv1.Rows(i).Cells("AA長短").Value)
|
|
|
1661
|
+ End If
|
|
1421
|
1662
|
Dgv1.Rows(i).Cells("餘額").Value = CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) -
|
|
1422
|
1663
|
CDbl(Dgv1.Rows(i).Cells(103).Value.ToString)
|
|
1423
|
1664
|
Dgv1.Rows(i).Cells("餘額比").Value = CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("BA+GA+AA_總額").Value.ToString)
|
|
|
@@ -1442,6 +1683,8 @@ Public Class 拆帳制薪資試算表
|
|
1442
|
1683
|
加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")
|
|
1443
|
1684
|
總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
|
|
1444
|
1685
|
總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")
|
|
|
1686
|
+ 實際薪資_tb.Text = Strings.Format(CDbl(實際薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
|
|
|
1687
|
+ 實際薪資1_tb.Text = Strings.Format(CDbl(實際薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("實際總薪資").Value.ToString), "#,##0.0")
|
|
1445
|
1688
|
A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(24).Value.ToString), "#,##0.0")
|
|
1446
|
1689
|
A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(25).Value.ToString), "#,##0.0")
|
|
1447
|
1690
|
A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(26).Value.ToString), "#,##0.0")
|
|
|
@@ -1807,6 +2050,110 @@ Public Class 拆帳制薪資試算表
|
|
1807
|
2050
|
da.Fill(ds) : 表頭_dgv.DataSource = ds.Tables(0) : conn.Close()
|
|
1808
|
2051
|
表頭_dgv.Columns(0).FillWeight = 40 : 表頭_dgv.Columns(0).ReadOnly = False : 表頭_dgv.EditMode = DataGridViewEditMode.EditOnEnter
|
|
1809
|
2052
|
End Sub
|
|
|
2053
|
+ Private Sub Set_轉場計算()
|
|
|
2054
|
+ Dim ds As New DataSet : 轉場加班_dgv.DataSource = Nothing : ds.Clear()
|
|
|
2055
|
+ 轉場加班_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
2056
|
+ 轉場加班_dgv.ColumnHeadersHeight = 40 : 轉場加班_dgv.AllowUserToAddRows = False : 轉場加班_dgv.RowTemplate.Height = 25
|
|
|
2057
|
+ SQL_轉場計算()
|
|
|
2058
|
+ da.Fill(ds) : 轉場加班_dgv.DataSource = ds.Tables(0) : conn.Close()
|
|
|
2059
|
+ For i As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
|
|
|
2060
|
+ 轉場加班_dgv.Rows(i).Cells(4).Value = "0" : 轉場加班_dgv.Rows(i).Cells(5).Value = "0"
|
|
|
2061
|
+ If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" : Else
|
|
|
2062
|
+ If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
|
|
|
2063
|
+ 轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) + CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) +
|
|
|
2064
|
+ CDbl(轉場加班_dgv.Rows(i).Cells(2).Value.ToString)
|
|
|
2065
|
+ If 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "正常班" Then
|
|
|
2066
|
+ If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 480 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
|
|
|
2067
|
+ ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.34"
|
|
|
2068
|
+ ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 600 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
|
|
|
2069
|
+ ElseIf 轉場加班_dgv.Rows(i).Cells(6).Value.ToString = "國定假日" Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "2"
|
|
|
2070
|
+ Else
|
|
|
2071
|
+ If CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 120 Then : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.34"
|
|
|
2072
|
+ ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) <= 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67"
|
|
|
2073
|
+ ElseIf CDbl(轉場加班_dgv.Rows(i - 1).Cells(4).Value.ToString) > 240 Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = "1.67" : End If
|
|
|
2074
|
+ End If
|
|
|
2075
|
+ Else
|
|
|
2076
|
+ If 轉場加班_dgv.Rows(i - 1).Cells(5).Value.ToString = "0" Then : 轉場加班_dgv.Rows(i - 1).Cells(5).Value = 轉場加班_dgv.Rows(i - 2).Cells(5).Value.ToString : End If
|
|
|
2077
|
+ 轉場加班_dgv.Rows(i).Cells(4).Value = CDbl(轉場加班_dgv.Rows(i).Cells(3).Value.ToString) : 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00"
|
|
|
2078
|
+ End If
|
|
|
2079
|
+ End If
|
|
|
2080
|
+ Dim dateValue As DateTime = DateTime.Parse(轉場加班_dgv.Rows(i).Cells(1).Value.ToString)
|
|
|
2081
|
+ Select Case dateValue.DayOfWeek
|
|
|
2082
|
+ Case DayOfWeek.Sunday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" : Case DayOfWeek.Monday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期一"
|
|
|
2083
|
+ Case DayOfWeek.Tuesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期二" : Case DayOfWeek.Wednesday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期三"
|
|
|
2084
|
+ Case DayOfWeek.Thursday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期四" : Case DayOfWeek.Friday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期五"
|
|
|
2085
|
+ Case DayOfWeek.Saturday : 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六"
|
|
|
2086
|
+ End Select
|
|
|
2087
|
+ If 轉場加班_dgv.Rows(i).Cells(7).Value = "星期日" Or 轉場加班_dgv.Rows(i).Cells(7).Value = "星期六" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : Else
|
|
|
2088
|
+ If 轉場加班_dgv.Rows(i).Cells(5).Value = "1.00" Then : 轉場加班_dgv.Rows(i).Cells(8).Value = 轉場加班_dgv.Rows(i).Cells(2).Value.ToString
|
|
|
2089
|
+ Else : 轉場加班_dgv.Rows(i).Cells(8).Value = "0" : End If
|
|
|
2090
|
+ End If
|
|
|
2091
|
+ If i = 0 Then : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : Else
|
|
|
2092
|
+ If 轉場加班_dgv.Rows(i - 1).Cells(1).Value.ToString = 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
|
|
|
2093
|
+ 轉場加班_dgv.Rows(i).Cells(9).Value = CDbl(轉場加班_dgv.Rows(i).Cells(8).Value.ToString) + CDbl(轉場加班_dgv.Rows(i - 1).Cells(9).Value.ToString)
|
|
|
2094
|
+ Else : 轉場加班_dgv.Rows(i).Cells(9).Value = 轉場加班_dgv.Rows(i).Cells(8).Value.ToString : End If
|
|
|
2095
|
+ End If
|
|
|
2096
|
+ If i = 轉場加班_dgv.Rows.Count - 1 Then : 轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else
|
|
|
2097
|
+ If 轉場加班_dgv.Rows(i + 1).Cells(1).Value.ToString <> 轉場加班_dgv.Rows(i).Cells(1).Value.ToString Then
|
|
|
2098
|
+ 轉場加班_dgv.Rows(i).Cells(10).Value = 轉場加班_dgv.Rows(i).Cells(9).Value : Else : 轉場加班_dgv.Rows(i).Cells(10).Value = "0"
|
|
|
2099
|
+ End If
|
|
|
2100
|
+ End If
|
|
|
2101
|
+ Next
|
|
|
2102
|
+ Dim ds1 As New DataSet : AA剃除_dgv.DataSource = Nothing : ds1.Clear()
|
|
|
2103
|
+ AA剃除_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
2104
|
+ AA剃除_dgv.ColumnHeadersHeight = 40 : AA剃除_dgv.AllowUserToAddRows = False : AA剃除_dgv.RowTemplate.Height = 25
|
|
|
2105
|
+ SQL_AA剔除計算()
|
|
|
2106
|
+ da.Fill(ds1) : AA剃除_dgv.DataSource = ds1.Tables(0) : conn.Close()
|
|
|
2107
|
+ For i As Integer = 0 To AA剃除_dgv.Rows.Count - 1
|
|
|
2108
|
+ AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = "0"
|
|
|
2109
|
+ If i = 0 Then
|
|
|
2110
|
+ For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
|
|
|
2111
|
+ If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
|
|
|
2112
|
+ If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
|
|
|
2113
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
|
|
|
2114
|
+ AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
|
|
|
2115
|
+ End If
|
|
|
2116
|
+ End If
|
|
|
2117
|
+ End If
|
|
|
2118
|
+ Next
|
|
|
2119
|
+ Else
|
|
|
2120
|
+ If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString = AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then : Else
|
|
|
2121
|
+ For ii As Integer = 0 To 轉場加班_dgv.Rows.Count - 1
|
|
|
2122
|
+ If AA剃除_dgv.Rows(i).Cells("居服員姓名").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("姓名").Value.ToString Then
|
|
|
2123
|
+ If AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString = 轉場加班_dgv.Rows(ii).Cells("日期").Value.ToString Then
|
|
|
2124
|
+ If CDbl(轉場加班_dgv.Rows(ii).Cells(10).Value.ToString) > 0 Then
|
|
|
2125
|
+ AA剃除_dgv.Rows(i).Cells("正常班轉場").Value = 轉場加班_dgv.Rows(ii).Cells(10).Value.ToString : Exit For
|
|
|
2126
|
+ End If
|
|
|
2127
|
+ End If
|
|
|
2128
|
+ End If
|
|
|
2129
|
+ Next
|
|
|
2130
|
+ End If
|
|
|
2131
|
+ End If
|
|
|
2132
|
+ If i = 0 Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) : Else
|
|
|
2133
|
+ If AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then : AA剃除_dgv.Rows(i).Cells("累計時間").Value = AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString : Else
|
|
|
2134
|
+ If AA剃除_dgv.Rows(i - 1).Cells("服務日期").Value.ToString <> AA剃除_dgv.Rows(i).Cells("服務日期").Value.ToString Then
|
|
|
2135
|
+ AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString)
|
|
|
2136
|
+ Else
|
|
|
2137
|
+ AA剃除_dgv.Rows(i).Cells("累計時間").Value = CDbl(AA剃除_dgv.Rows(i).Cells("正常班轉場").Value.ToString) + CDbl(AA剃除_dgv.Rows(i).Cells("排班時間長度").Value.ToString) +
|
|
|
2138
|
+ CDbl(AA剃除_dgv.Rows(i - 1).Cells("累計時間").Value.ToString)
|
|
|
2139
|
+ End If
|
|
|
2140
|
+ End If
|
|
|
2141
|
+ End If
|
|
|
2142
|
+ If AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
|
|
|
2143
|
+ AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
|
|
|
2144
|
+ ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
|
|
|
2145
|
+ AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString = "AA" Then
|
|
|
2146
|
+ AA剃除_dgv.Rows(i).Cells("剃除金額").Value = AA剃除_dgv.Rows(i).Cells("申報費用").Value
|
|
|
2147
|
+ ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) > 480 And
|
|
|
2148
|
+ AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
|
|
|
2149
|
+ AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
|
|
|
2150
|
+ ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString <> "正常班" And AA剃除_dgv.Rows(i).Cells("代碼").Value.ToString <> "AA" Then
|
|
|
2151
|
+ AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
|
|
|
2152
|
+ ElseIf AA剃除_dgv.Rows(i).Cells("加班類型").Value.ToString = "正常班" And CDbl(AA剃除_dgv.Rows(i).Cells("累計時間").Value.ToString) <= 480 Then
|
|
|
2153
|
+ AA剃除_dgv.Rows(i).Cells("剃除金額").Value = "0"
|
|
|
2154
|
+ End If
|
|
|
2155
|
+ Next
|
|
|
2156
|
+ End Sub
|
|
1810
|
2157
|
Private Sub Set_差額()
|
|
1811
|
2158
|
Dim ds As New DataSet : 差異_dgv.DataSource = Nothing : ds.Clear()
|
|
1812
|
2159
|
差異_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
|
|
|
@@ -1867,8 +2214,28 @@ Public Class 拆帳制薪資試算表
|
|
1867
|
2214
|
正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString) + CDbl(服務津貼1_lb.Text) + CDbl(轉場津貼1_lb.Text) - CDbl(小41_lb.Text), "#,##0")
|
|
1868
|
2215
|
加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")
|
|
1869
|
2216
|
AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")
|
|
1870
|
|
- '平時新_lb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(位置).Cells("AA").Value.ToString) -
|
|
1871
|
|
- ' CDbl(Dgv.Rows(位置).Cells("平日加班扣除額").Value.ToString)) / CDbl(Dgv.Rows(位置).Cells("平日工時").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")
|
|
|
2235
|
+ 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
|
+
|
|
1872
|
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")
|
|
1873
|
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")
|
|
1874
|
2241
|
時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.000")
|
|
|
@@ -1885,7 +2252,7 @@ Public Class 拆帳制薪資試算表
|
|
1885
|
2252
|
費4_tb.Text = Strings.Format((CDbl(Dgv.Rows(位置).Cells("休3-8").Value.ToString) * CDbl(薪4_lb.Text)), "#,##0")
|
|
1886
|
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")
|
|
1887
|
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")
|
|
1888
|
|
- 合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(小41_lb.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")
|
|
1889
|
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
|
|
1890
|
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
|
|
1891
|
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
|
|
|
@@ -1942,10 +2309,11 @@ Public Class 拆帳制薪資試算表
|
|
1942
|
2309
|
ToolTip1.SetToolTip(Me.設定1_bt, "系統設定")
|
|
1943
|
2310
|
End Sub
|
|
1944
|
2311
|
Private Sub 拆帳制薪資試算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
1945
|
|
- Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
|
|
1946
|
|
- Panel1.Visible = False : Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)
|
|
|
2312
|
+ Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : Panel1.Visible = False
|
|
|
2313
|
+ Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront() : 其它_ch.Visible = CC(61)
|
|
1947
|
2314
|
服務津貼_cb.Visible = CC(61) : 轉場津貼_cb.Visible = CC(61) : 服務津貼_cb.Checked = CC(15) : 轉場津貼_cb.Checked = CC(16)
|
|
1948
|
|
- If gUserName = "李協叡" Then : 重讀2_bt.Visible = True : 查詢_bt.Visible = True : Else : 重讀2_bt.Visible = False : 查詢_bt.Visible = False : End If
|
|
|
2315
|
+ If gUserName = "李協叡" Then : 重讀2_bt.Visible = True : 查詢_bt.Visible = True : 扣除狀態_ch.Enabled = True
|
|
|
2316
|
+ Else : 重讀2_bt.Visible = False : 查詢_bt.Visible = False : 扣除狀態_ch.Enabled = False : End If
|
|
1949
|
2317
|
Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
|
|
1950
|
2318
|
Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
|
|
1951
|
2319
|
階級津貼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
|
|
|
@@ -1980,10 +2348,10 @@ Public Class 拆帳制薪資試算表
|
|
1980
|
2348
|
Dgv.BringToFront() : Set_薪資計算() : Set_分頁()
|
|
1981
|
2349
|
End Sub
|
|
1982
|
2350
|
Private Sub 比對後_bt_Click(sender As Object, e As EventArgs) Handles 比對後_bt.Click
|
|
1983
|
|
- SQL_確認A碼長照()
|
|
1984
|
|
- If dr.Read Then
|
|
1985
|
|
- Dgv1.BringToFront() : Set_服務人員1() : 算差額()
|
|
1986
|
|
- Else : MsgBox("系統內無長照所A碼資料!!") : End If
|
|
|
2351
|
+ SQL_確認BA碼長照() : If dr.Read Then
|
|
|
2352
|
+ SQL_確認A碼長照() : If dr.Read Then : Dgv1.BringToFront() : Set_服務人員1() : 算差額()
|
|
|
2353
|
+ Else : MsgBox("系統內無長照所A碼資料!!") : End If
|
|
|
2354
|
+ Else : MsgBox("系統內無長照所BA或SC碼資料!!") : End If
|
|
1987
|
2355
|
End Sub
|
|
1988
|
2356
|
Private Sub 算差額()
|
|
1989
|
2357
|
差異_tb.Text = "0" : SQL2 = "" : SQL_差額刪除()
|
|
|
@@ -2038,7 +2406,7 @@ Public Class 拆帳制薪資試算表
|
|
2038
|
2406
|
Next : MsgBox("係數修改完畢!!") : Set_服務人員()
|
|
2039
|
2407
|
End Sub
|
|
2040
|
2408
|
Private Sub 存檔3_bt_Click(sender As Object, e As EventArgs) Handles 存檔3_bt.Click
|
|
2041
|
|
- PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If
|
|
|
2409
|
+ PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If : SQL_彙總表_刪除()
|
|
2042
|
2410
|
For i As Integer = 0 To Dgv.Rows.Count - 1
|
|
2043
|
2411
|
If 需要新增 = True Then
|
|
2044
|
2412
|
SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells(24).Value & "',
|
|
|
@@ -2077,6 +2445,17 @@ Public Class 拆帳制薪資試算表
|
|
2077
|
2445
|
WHERE 流水號 LIKE N'" & PA1 & "' AND 姓名 LIKE N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "'"
|
|
2078
|
2446
|
SQL_其他表_修改()
|
|
2079
|
2447
|
End If
|
|
|
2448
|
+ SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells("BA正常").Value & "',
|
|
|
2449
|
+ N'" & Dgv.Rows(i).Cells("GA正常").Value & "',N'" & Dgv.Rows(i).Cells("GA加給").Value & "',N'" & Dgv.Rows(i).Cells("AA").Value & "',
|
|
|
2450
|
+ N'" & Dgv.Rows(i).Cells("服務津貼").Value & "',N'" & Dgv.Rows(i).Cells("轉場津貼").Value & "',N'" & Dgv.Rows(i).Cells("薪資加項總計").Value & "',
|
|
|
2451
|
+ N'" & Dgv.Rows(i).Cells("加班費").Value & "',N'" & Dgv.Rows(i).Cells("加項總計").Value & "',N'" & Dgv.Rows(i).Cells("減項總計").Value & "',
|
|
|
2452
|
+ N'" & Dgv.Rows(i).Cells("轉場薪資").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("平薪資1.67").Value & "',
|
|
|
2453
|
+ N'" & Dgv.Rows(i).Cells("休薪資1.34").Value & "',N'" & Dgv.Rows(i).Cells("休薪資1.67").Value & "',N'" & Dgv.Rows(i).Cells("國薪資2.00").Value & "',
|
|
|
2454
|
+ N'" & Dgv.Rows(i).Cells("公司負擔總計").Value & "',N'" & Dgv.Rows(i).Cells("AA剃除").Value & "',N'" & Dgv.Rows(i).Cells("實際總薪資").Value & "',
|
|
|
2455
|
+ N'" & Dgv.Rows(i).Cells("BAORSC仁").Value & "', N'" & Dgv.Rows(i).Cells("AA長短仁").Value & "',N'" & Dgv.Rows(i).Cells("BAORSC").Value & "',
|
|
|
2456
|
+ N'" & Dgv.Rows(i).Cells("AA長短").Value & "',N'" & Dgv.Rows(i).Cells("餘額").Value & "',N'" & Dgv.Rows(i).Cells("總服務時數").Value & "',
|
|
|
2457
|
+ N'" & Dgv.Rows(i).Cells("總轉場時數").Value & "')"
|
|
|
2458
|
+ SQL_彙總表_新增()
|
|
2080
|
2459
|
Next : MsgBox("薪資表修改完畢!!")
|
|
2081
|
2460
|
End Sub
|
|
2082
|
2461
|
Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
|
