GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
Tree: 4410ee2d4a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '4410ee2d4a'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/01.人事系統管理/拆帳制薪資試算表.vb

拆帳制薪資試算表.vb 181KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605 
  1. Imports System.Drawing.Printing

  2. Public Class 拆帳制薪資試算表

  3.     Dim 位置 As Integer = 0

  4.     Dim 是否有差額 As Boolean

  5.     Private Sub Set_服務人員()

  6.         年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text

  7.         Set_加班計算() : Set_階級加給()

  8.         If 月份_cb.Text = "01" Then : PA10 = CInt(年份_cb.Text) - 1 & "12"

  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.         SQL_查差額() : If dr.Read Then : 是否有差額 = True : SQL_讀差額() : Set_差額() : Else : 是否有差額 = False : SQL_放差額() : Set_差額() : End If

  11.         For i As Integer = 0 To 11 : Ao(i) = "" : Next : For i As Integer = 0 To 11 : Bo(i) = "" : Next : Co(0) = ""

  12.         For i As Integer = 0 To 表頭_dgv.Rows.Count - 1

  13.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  14.                 Ao(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  15.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  16.                 Ao(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  17.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  18.                 Ao(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  19.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  20.                 Ao(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  21.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  22.                 Ao(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  23.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  24.                 Ao(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  25.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  26.                 Ao(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  27.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  28.                 Ao(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  29.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  30.                 Ao(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  31.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  32.                 Ao(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  33.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  34.                 Ao(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  35.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "A12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  36.                 Ao(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : A12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  37.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  38.                 Bo(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  39.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B02" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  40.                 Bo(1) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B02_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  41.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B03" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  42.                 Bo(2) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B03_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  43.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B04" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  44.                 Bo(3) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B04_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  45.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B05" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  46.                 Bo(4) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B05_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  47.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B06" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  48.                 Bo(5) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B06_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  49.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B07" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  50.                 Bo(6) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B07_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  51.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B08" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  52.                 Bo(7) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B08_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  53.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B09" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  54.                 Bo(8) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B09_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  55.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B10" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  56.                 Bo(9) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B10_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  57.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B11" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  58.                 Bo(10) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B11_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  59.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "B12" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  60.                 Bo(11) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : B12_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  61.             If 表頭_dgv.Rows(i).Cells("對應").Value.ToString = "C01" And 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString <> "" Then

  62.                 Co(0) = "AS [" & 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString & "]" : C01_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString

  63.                 C01_1_lb.Text = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : End If

  64.         Next

  65.         Dim ds As New DataSet : Dgv.DataSource = Nothing : ds.Clear()

  66.         Dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  67.         Dgv.ColumnHeadersHeight = 80 : Dgv.AllowUserToAddRows = False : Dgv.RowTemplate.Height = 25

  68.         PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目清冊" : SQL_薪資彙總表_仁寶()

  69.         da.Fill(ds) : Dgv.DataSource = ds.Tables(0) : conn.Close()

  70.         Dgv.EditMode = DataGridViewEditMode.EditOnEnter

  71. 

  72.         Dgv.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  73.         Dgv.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  74.         Dgv.Columns("BA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  75.         Dgv.Columns("BA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(25).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  76.         Dgv.Columns("GA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  77.         Dgv.Columns("GA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  78.         Dgv.Columns("GA加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  79.         Dgv.Columns("GA加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  80.         Dgv.Columns("其他").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  81.         Dgv.Columns("其他").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  82.         Dgv.Columns("主薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  83.         Dgv.Columns("主薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  84.         Dgv.Columns("AA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  85.         Dgv.Columns("AA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  86.         Dgv.Columns("AA").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  87.         Dgv.Columns("AA").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  88.         Dgv.Columns("副薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  89.         Dgv.Columns("副薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  90.         Dgv.Columns("總薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  91.         Dgv.Columns("總薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  92.         Dgv.Columns("平日工時").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  93.         Dgv.Columns("平日工時").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  94.         Dgv.Columns("總時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  95.         Dgv.Columns("總時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  96.         Dgv.Columns("休3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  97.         Dgv.Columns("休3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  98.         Dgv.Columns("平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  99.         Dgv.Columns("平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  100.         Dgv.Columns("休0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  101.         Dgv.Columns("休0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  102.         Dgv.Columns("服務津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  103.         Dgv.Columns("服務津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  104.         Dgv.Columns("轉場津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  105.         Dgv.Columns("轉場津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  106.         Dgv.Columns("餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  107.         Dgv.Columns("餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  108.         Dgv.Columns("餘額比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(42).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  109.         Dgv.Columns("餘額比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  110.         Dgv.Columns("加班費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(43).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  111.         Dgv.Columns("加班費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(43).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  112.         Dgv.Columns("總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  113.         Dgv.Columns("總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  114.         Dgv.Columns("總服務時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(45).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  115.         Dgv.Columns("總服務時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(45).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  116.         Dgv.Columns("總轉場時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(46).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  117.         Dgv.Columns("總轉場時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  118.         Dgv.Columns("平日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(47).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  119.         Dgv.Columns("平日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(47).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  120.         Dgv.Columns("假日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(48).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  121.         Dgv.Columns("假日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  122.         Dgv.Columns("平0-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(49).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  123.         Dgv.Columns("平0-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(49).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  124.         Dgv.Columns("平9-10").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns(50).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  125.         Dgv.Columns("平9-10").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  126.         Dgv.Columns("平11-12").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv.Columns("國0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  127.         Dgv.Columns("平11-12").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv.Columns("國0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  128.         Dgv.Columns("國3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  129.         Dgv.Columns("國3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  130.         Dgv.Columns("正常班平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  131.         Dgv.Columns("正常班平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  132.         Dgv.Columns("平日加班扣除額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  133.         Dgv.Columns("平日加班扣除額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  134.         Dgv.Columns("平日平均時薪/含平日加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  135.         Dgv.Columns("平日平均時薪/含平日加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  136.         Dgv.Columns("平日月薪/不含加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  137.         Dgv.Columns("平日月薪/不含加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  138.         Dgv.Columns("BA+AA總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  139.         Dgv.Columns("BA+AA總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  140.         Dgv.Columns("修正後月薪+Ａ+津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  141.         Dgv.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  142.         Dgv.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  143.         Dgv.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  144. 

  145.         Dgv.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"

  146.         Dgv.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"

  147.         Dgv.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"

  148.         Dgv.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns("其他").DefaultCellStyle.Format = "#,##0.0"

  149.         Dgv.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(25).DefaultCellStyle.Format = "#,##0.0"

  150.         Dgv.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(28).DefaultCellStyle.Format = "#,##0.0"

  151.         Dgv.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(31).DefaultCellStyle.Format = "#,##0.0"

  152.         Dgv.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(34).DefaultCellStyle.Format = "#,##0.0"

  153.         Dgv.Columns(35).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(36).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(37).DefaultCellStyle.Format = "#,##0.0"

  154.         Dgv.Columns(38).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(39).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(40).DefaultCellStyle.Format = "#,##0.0"

  155.         Dgv.Columns(41).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(42).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(43).DefaultCellStyle.Format = "#,##0.0"

  156.         Dgv.Columns(44).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(45).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(46).DefaultCellStyle.Format = "#,##0.0"

  157.         Dgv.Columns(47).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(48).DefaultCellStyle.Format = "#,##0.0" : Dgv.Columns(49).DefaultCellStyle.Format = "#,##0.0"

  158.         Dgv.Columns(50).DefaultCellStyle.Format = "#,##0.0"

  159.         Dgv.Columns("GAM1").Visible = False : Dgv.Columns("GAM2").Visible = False : Dgv.Columns("BA").Visible = False : Dgv.Columns("GA").Visible = False

  160.         Set_分頁()

  161. 

  162.         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

  163.         For i As Integer = 37 To 48 : Dgv.Columns(i).ReadOnly = False : Next : Dgv.Columns("其他").ReadOnly = False : Dgv.Columns(50).ReadOnly = False

  164. 

  165.         Dgv.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose

  166.         Dgv.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose

  167.         Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean

  168.         For i As Integer = 0 To Dgv.Rows.Count - 1 : 新增 = False

  169.             If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If

  170.             For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1

  171.                 If Dgv.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If

  172.             Next

  173.             If 新增 = True Then

  174.                 SQL2 = "(N'', N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "', N'0.5')"

  175.                 SQL_BA比_新增() : 重讀 = True

  176.             End If

  177.         Next : If 重讀 = True Then : Set_BA比1() : End If

  178.         Set_BA比2() : 重讀 = False

  179.         For i As Integer = 0 To BA比1_dgv.Rows.Count - 1 : 新增 = False

  180.             If BA比_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If

  181.             For ii As Integer = 0 To BA比_dgv.Rows.Count - 1

  182.                 If BA比1_dgv.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If

  183.             Next

  184.             If 新增 = True Then

  185.                 SQL2 = "(N'" & PA1 & "', N'" & BA比1_dgv.Rows(i).Cells("姓名").Value.ToString & "', N'" & BA比1_dgv.Rows(i).Cells("BA").Value.ToString & "')"

  186.                 SQL_BA比_新增() : 重讀 = True

  187.             End If

  188.         Next : If 重讀 = True Then : Set_BA比2() : End If

  189.         Set_薪資計算()

  190.     End Sub

  191.     Private Sub Set_分頁()

  192.         If 主表_ch.Checked = True And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  193.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  194.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  195.             Dgv.Columns("AA11").Visible = False

  196. 

  197.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  198.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  199.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  200.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  201. 

  202.             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = True

  203.             Dgv.Columns("GA加給").Visible = True : Dgv.Columns("其他").Visible = True : Dgv.Columns("主薪").Visible = True

  204.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = True

  205.             Dgv.Columns("總薪").Visible = True : Dgv.Columns("平日工時").Visible = True : Dgv.Columns("平日平均時薪/含平日加班").Visible = True

  206.             Dgv.Columns("平日加班扣除額").Visible = True : Dgv.Columns("平日月薪/不含加班").Visible = True : Dgv.Columns("正常班平均時薪").Visible = True

  207.             Dgv.Columns("服務津貼").Visible = True : Dgv.Columns("轉場津貼").Visible = True : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True

  208.             Dgv.Columns("加班費計算時薪標準").Visible = True : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

  209. 

  210.             Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False

  211.             Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False

  212.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  213. 

  214.             Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False

  215.             Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False

  216.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  217. 

  218.             Dgv.Columns(50).Visible = False

  219. 

  220.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+AA總額").Visible = False : Dgv.Columns("餘額").Visible = False

  221.             Dgv.Columns("餘額比").Visible = False

  222.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = True And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  223.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  224.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  225.             Dgv.Columns("AA11").Visible = False

  226. 

  227.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  228.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  229.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  230.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  231. 

  232.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  233.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  234.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  235.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  236.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  237.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  238.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  239. 

  240.             Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False

  241.             Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False

  242.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  243. 

  244.             Dgv.Columns(37).Visible = True : Dgv.Columns(38).Visible = True : Dgv.Columns(39).Visible = True : Dgv.Columns(40).Visible = True : Dgv.Columns(41).Visible = True

  245.             Dgv.Columns(42).Visible = True : Dgv.Columns(43).Visible = True : Dgv.Columns(44).Visible = True : Dgv.Columns(45).Visible = True : Dgv.Columns(46).Visible = True

  246.             Dgv.Columns(47).Visible = True : Dgv.Columns(48).Visible = True : Dgv.Columns(49).Visible = True

  247. 

  248.             Dgv.Columns(50).Visible = True

  249. 

  250.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+AA總額").Visible = False : Dgv.Columns("餘額").Visible = False

  251.             Dgv.Columns("餘額比").Visible = False

  252.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = True And 其它_ch.Checked = False Then

  253.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  254.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  255.             Dgv.Columns("AA11").Visible = False

  256. 

  257.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  258.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  259.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  260.             Dgv.Columns("總服務時數").Visible = False : Dgv.Columns("總轉場時數").Visible = False

  261. 

  262.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  263.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  264.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  265.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  266.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  267.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  268.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  269. 

  270.             Dgv.Columns(24).Visible = True : Dgv.Columns(25).Visible = True : Dgv.Columns(26).Visible = True : Dgv.Columns(27).Visible = True : Dgv.Columns(28).Visible = True

  271.             Dgv.Columns(29).Visible = True : Dgv.Columns(30).Visible = True : Dgv.Columns(31).Visible = True : Dgv.Columns(32).Visible = True : Dgv.Columns(33).Visible = True

  272.             Dgv.Columns(34).Visible = True : Dgv.Columns(35).Visible = True : Dgv.Columns(36).Visible = True

  273. 

  274.             Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False

  275.             Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False

  276.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  277. 

  278.             Dgv.Columns(50).Visible = True

  279. 

  280.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+AA總額").Visible = False : Dgv.Columns("餘額").Visible = False

  281.             Dgv.Columns("餘額比").Visible = False

  282.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = True And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  283.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  284.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  285.             Dgv.Columns("AA11").Visible = False

  286. 

  287.             Dgv.Columns("平日轉場").Visible = True : Dgv.Columns("平0-8").Visible = True : Dgv.Columns("平9-10").Visible = True

  288.             Dgv.Columns("平11-12").Visible = True : Dgv.Columns("國0-2").Visible = True : Dgv.Columns("國3-8").Visible = True

  289.             Dgv.Columns("休0-2").Visible = True : Dgv.Columns("休3-8").Visible = True : Dgv.Columns("假日轉場").Visible = True

  290.             Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

  291. 

  292.             Dgv.Columns("BA比例").Visible = False : Dgv.Columns("BA正常").Visible = False : Dgv.Columns("GA正常").Visible = False

  293.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  294.             Dgv.Columns("AA比例").Visible = False : Dgv.Columns("AA").Visible = False : Dgv.Columns("副薪").Visible = False

  295.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  296.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  297.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = False

  298.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = False : Dgv.Columns("總薪資").Visible = False

  299. 

  300.             Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False

  301.             Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False

  302.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  303. 

  304.             Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False

  305.             Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False

  306.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  307. 

  308.             Dgv.Columns(50).Visible = False

  309. 

  310.             Dgv.Columns("總時數").Visible = False : Dgv.Columns("平均時薪").Visible = False : Dgv.Columns("BA+AA總額").Visible = False : Dgv.Columns("餘額").Visible = False

  311.             Dgv.Columns("餘額比").Visible = False

  312.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True Then

  313.             Dgv.Columns("AA03").Visible = False : Dgv.Columns("AA04").Visible = False : Dgv.Columns("AA05").Visible = False

  314.             Dgv.Columns("AA06").Visible = False : Dgv.Columns("AA08").Visible = False : Dgv.Columns("AA10").Visible = False

  315.             Dgv.Columns("AA11").Visible = False

  316. 

  317.             Dgv.Columns("平日轉場").Visible = False : Dgv.Columns("平0-8").Visible = False : Dgv.Columns("平9-10").Visible = False

  318.             Dgv.Columns("平11-12").Visible = False : Dgv.Columns("國0-2").Visible = False : Dgv.Columns("國3-8").Visible = False

  319.             Dgv.Columns("休0-2").Visible = False : Dgv.Columns("休3-8").Visible = False : Dgv.Columns("假日轉場").Visible = False

  320.             Dgv.Columns("總服務時數").Visible = True : Dgv.Columns("總轉場時數").Visible = True

  321. 

  322.             Dgv.Columns("BA比例").Visible = True : Dgv.Columns("BA正常").Visible = True : Dgv.Columns("GA正常").Visible = False

  323.             Dgv.Columns("GA加給").Visible = False : Dgv.Columns("其他").Visible = False : Dgv.Columns("主薪").Visible = False

  324.             Dgv.Columns("AA比例").Visible = True : Dgv.Columns("AA").Visible = True : Dgv.Columns("副薪").Visible = False

  325.             Dgv.Columns("總薪").Visible = False : Dgv.Columns("平日工時").Visible = False : Dgv.Columns("平日平均時薪/含平日加班").Visible = False

  326.             Dgv.Columns("平日加班扣除額").Visible = False : Dgv.Columns("平日月薪/不含加班").Visible = False : Dgv.Columns("正常班平均時薪").Visible = False

  327.             Dgv.Columns("服務津貼").Visible = False : Dgv.Columns("轉場津貼").Visible = False : Dgv.Columns("修正後月薪+Ａ+津貼").Visible = True

  328.             Dgv.Columns("加班費計算時薪標準").Visible = False : Dgv.Columns("加班費").Visible = True : Dgv.Columns("總薪資").Visible = True

  329. 

  330.             Dgv.Columns(24).Visible = False : Dgv.Columns(25).Visible = False : Dgv.Columns(26).Visible = False : Dgv.Columns(27).Visible = False : Dgv.Columns(28).Visible = False

  331.             Dgv.Columns(29).Visible = False : Dgv.Columns(30).Visible = False : Dgv.Columns(31).Visible = False : Dgv.Columns(32).Visible = False : Dgv.Columns(33).Visible = False

  332.             Dgv.Columns(34).Visible = False : Dgv.Columns(35).Visible = False : Dgv.Columns(36).Visible = False

  333. 

  334.             Dgv.Columns(37).Visible = False : Dgv.Columns(38).Visible = False : Dgv.Columns(39).Visible = False : Dgv.Columns(40).Visible = False : Dgv.Columns(41).Visible = False

  335.             Dgv.Columns(42).Visible = False : Dgv.Columns(43).Visible = False : Dgv.Columns(44).Visible = False : Dgv.Columns(45).Visible = False : Dgv.Columns(46).Visible = False

  336.             Dgv.Columns(47).Visible = False : Dgv.Columns(48).Visible = False : Dgv.Columns(49).Visible = False

  337. 

  338.             Dgv.Columns(50).Visible = False

  339. 

  340.             Dgv.Columns("總時數").Visible = True : Dgv.Columns("平均時薪").Visible = True : Dgv.Columns("BA+AA總額").Visible = True : Dgv.Columns("餘額").Visible = True

  341.             Dgv.Columns("餘額比").Visible = True

  342.         End If

  343.     End Sub

  344.     Private Sub Set_薪資計算()

  345.         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"

  346.         加班扣除_tb.Text = "0" : 平日月薪_tb.Text = "0" : 服務_tb.Text = "0" : 轉場_tb.Text = "0" : 修正月_tb.Text = "0" : 加班費_tb.Text = "0" : 總薪資_tb.Text = "0" : AA1_tb.Text = "0"

  347.         A01_tb.Text = "0" : A02_tb.Text = "0" : A03_tb.Text = "0" : A04_tb.Text = "0" : A05_tb.Text = "0" : A06_tb.Text = "0" : A07_tb.Text = "0" : A08_tb.Text = "0" : A09_tb.Text = "0"

  348.         A10_tb.Text = "0" : A11_tb.Text = "0" : A12_tb.Text = "0" : 加項總計_tb.Text = "0" : 減項總計_tb.Text = "0" : C01_tb.Text = "0" : C01_1_tb.Text = "0" : BA正1_tb.Text = "0"

  349.         B01_tb.Text = "0" : B02_tb.Text = "0" : B03_tb.Text = "0" : B04_tb.Text = "0" : B05_tb.Text = "0" : B06_tb.Text = "0" : B07_tb.Text = "0" : B08_tb.Text = "0" : B09_tb.Text = "0"

  350.         B10_tb.Text = "0" : B11_tb.Text = "0" : B12_tb.Text = "0" : 總時數_tb.Text = "0" : 修正月1_tb.Text = "0" : 加班費1_tb.Text = "0" : 總薪資1_tb.Text = "0" : 平均時薪_tb.Text = "0"

  351.         BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0"

  352.         If 是否有差額 = True Then

  353.             For i As Integer = 0 To Dgv.Rows.Count - 1

  354.                 For II As Integer = 0 To 差異_dgv.Rows.Count - 1

  355.                     If Dgv.Rows(i).Cells("姓名").Value.ToString = 差異_dgv.Rows(II).Cells("姓名").Value.ToString Then

  356.                         If CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString) > 0 Then

  357.                             Dgv.Rows(i).Cells("上月薪資差額(加)").Value = CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString)

  358.                         Else

  359.                             Dgv.Rows(i).Cells("上月薪資差額(減)").Value = CDbl(差異_dgv.Rows(II).Cells("差額").Value.ToString) * -1

  360.                         End If : Exit For

  361.                     End If

  362.                 Next

  363.             Next

  364.         End If

  365.         For i As Integer = 0 To Dgv.Rows.Count - 1

  366.             For ii As Integer = 0 To BA比_dgv.Rows.Count - 1

  367.                 If Dgv.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then

  368.                     Dgv.Rows(i).Cells("BA比例").Value = BA比_dgv.Rows(ii).Cells("BA").Value.ToString

  369.                 End If

  370.             Next

  371.             If IsDBNull(Dgv.Rows(i).Cells(24).Value) = True Then : Dgv.Rows(i).Cells(24).Value = 0 : End If

  372.             If IsDBNull(Dgv.Rows(i).Cells(25).Value) = True Then : Dgv.Rows(i).Cells(25).Value = 0 : End If

  373.             If IsDBNull(Dgv.Rows(i).Cells(26).Value) = True Then : Dgv.Rows(i).Cells(26).Value = 0 : End If

  374.             If IsDBNull(Dgv.Rows(i).Cells(27).Value) = True Then : Dgv.Rows(i).Cells(27).Value = 0 : End If

  375.             If IsDBNull(Dgv.Rows(i).Cells(28).Value) = True Then : Dgv.Rows(i).Cells(28).Value = 0 : End If

  376.             If IsDBNull(Dgv.Rows(i).Cells(29).Value) = True Then : Dgv.Rows(i).Cells(29).Value = 0 : End If

  377.             If IsDBNull(Dgv.Rows(i).Cells(30).Value) = True Then : Dgv.Rows(i).Cells(30).Value = 0 : End If

  378.             If IsDBNull(Dgv.Rows(i).Cells(31).Value) = True Then : Dgv.Rows(i).Cells(31).Value = 0 : End If

  379.             If IsDBNull(Dgv.Rows(i).Cells(32).Value) = True Then : Dgv.Rows(i).Cells(32).Value = 0 : End If

  380.             If IsDBNull(Dgv.Rows(i).Cells(33).Value) = True Then : Dgv.Rows(i).Cells(33).Value = 0 : End If

  381.             If IsDBNull(Dgv.Rows(i).Cells(34).Value) = True Then : Dgv.Rows(i).Cells(34).Value = 0 : End If

  382.             If IsDBNull(Dgv.Rows(i).Cells(35).Value) = True Then : Dgv.Rows(i).Cells(35).Value = 0 : End If

  383.             If IsDBNull(Dgv.Rows(i).Cells(36).Value) = True Then : Dgv.Rows(i).Cells(36).Value = 0 : End If

  384.             If IsDBNull(Dgv.Rows(i).Cells(37).Value) = True Then : Dgv.Rows(i).Cells(37).Value = 0 : End If

  385.             If IsDBNull(Dgv.Rows(i).Cells(38).Value) = True Then : Dgv.Rows(i).Cells(38).Value = 0 : End If

  386.             If IsDBNull(Dgv.Rows(i).Cells(39).Value) = True Then : Dgv.Rows(i).Cells(39).Value = 0 : End If

  387.             If IsDBNull(Dgv.Rows(i).Cells(40).Value) = True Then : Dgv.Rows(i).Cells(40).Value = 0 : End If

  388.             If IsDBNull(Dgv.Rows(i).Cells(41).Value) = True Then : Dgv.Rows(i).Cells(41).Value = 0 : End If

  389.             If IsDBNull(Dgv.Rows(i).Cells(42).Value) = True Then : Dgv.Rows(i).Cells(42).Value = 0 : End If

  390.             If IsDBNull(Dgv.Rows(i).Cells(43).Value) = True Then : Dgv.Rows(i).Cells(43).Value = 0 : End If

  391.             If IsDBNull(Dgv.Rows(i).Cells(44).Value) = True Then : Dgv.Rows(i).Cells(44).Value = 0 : End If

  392.             If IsDBNull(Dgv.Rows(i).Cells(45).Value) = True Then : Dgv.Rows(i).Cells(45).Value = 0 : End If

  393.             If IsDBNull(Dgv.Rows(i).Cells(46).Value) = True Then : Dgv.Rows(i).Cells(46).Value = 0 : End If

  394.             If IsDBNull(Dgv.Rows(i).Cells(47).Value) = True Then : Dgv.Rows(i).Cells(47).Value = 0 : End If

  395.             If IsDBNull(Dgv.Rows(i).Cells(48).Value) = True Then : Dgv.Rows(i).Cells(48).Value = 0 : End If

  396.             If IsDBNull(Dgv.Rows(i).Cells(49).Value) = True Then : Dgv.Rows(i).Cells(49).Value = 0 : End If

  397.             If IsDBNull(Dgv.Rows(i).Cells(50).Value) = True Then : Dgv.Rows(i).Cells(50).Value = 0 : End If

  398.             If IsDBNull(Dgv.Rows(i).Cells("其他").Value) = True Then : Dgv.Rows(i).Cells("其他").Value = 0 : End If

  399.             Dgv.Rows(i).Cells("主薪").Value = "0" : Dgv.Rows(i).Cells("AA比例").Value = "0.5" : Dgv.Rows(i).Cells("總時數").Value = "0"

  400.             Dgv.Rows(i).Cells("平均時薪").Value = "0" : Dgv.Rows(i).Cells("BA+AA總額").Value = "0" : Dgv.Rows(i).Cells("餘額").Value = "0"

  401.             Dgv.Rows(i).Cells("加班費").Value = "0" : Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = "0" : Dgv.Rows(i).Cells("GA正常").Value = "0"

  402.             Dgv.Rows(i).Cells("平日加班扣除額").Value = "0" : Dgv.Rows(i).Cells("轉場津貼").Value = "0" : Dgv.Rows(i).Cells("總轉場時數").Value = "0"

  403.             Dgv.Rows(i).Cells("正常班平均時薪").Value = "0" : Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("服務津貼").Value = "0"

  404.             Dgv.Rows(i).Cells("總服務時數").Value = "0" : Dgv.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv.Rows(i).Cells("總薪資").Value = "0"

  405.             Dgv.Rows(i).Cells("BA正常").Value = "0" : Dgv.Rows(i).Cells("餘額比").Value = "0"

  406.             If IsDBNull(Dgv.Rows(i).Cells("BA").Value) = True Then : Dgv.Rows(i).Cells("BA").Value = 0 : End If

  407.             If IsDBNull(Dgv.Rows(i).Cells("GA").Value) = True Then : Dgv.Rows(i).Cells("GA").Value = 0 : End If

  408.             If IsDBNull(Dgv.Rows(i).Cells("GAM1").Value) = True Then : Dgv.Rows(i).Cells("GAM1").Value = 0 : End If

  409.             If IsDBNull(Dgv.Rows(i).Cells("GAM2").Value) = True Then : Dgv.Rows(i).Cells("GAM2").Value = 0 : End If

  410.             If IsDBNull(Dgv.Rows(i).Cells("AA03").Value) = True Then : Dgv.Rows(i).Cells("AA03").Value = 0 : End If

  411.             If IsDBNull(Dgv.Rows(i).Cells("AA04").Value) = True Then : Dgv.Rows(i).Cells("AA04").Value = 0 : End If

  412.             If IsDBNull(Dgv.Rows(i).Cells("AA05").Value) = True Then : Dgv.Rows(i).Cells("AA05").Value = 0 : End If

  413.             If IsDBNull(Dgv.Rows(i).Cells("AA06").Value) = True Then : Dgv.Rows(i).Cells("AA06").Value = 0 : End If

  414.             If IsDBNull(Dgv.Rows(i).Cells("AA08").Value) = True Then : Dgv.Rows(i).Cells("AA08").Value = 0 : End If

  415.             If IsDBNull(Dgv.Rows(i).Cells("AA10").Value) = True Then : Dgv.Rows(i).Cells("AA10").Value = 0 : End If

  416.             If IsDBNull(Dgv.Rows(i).Cells("AA11").Value) = True Then : Dgv.Rows(i).Cells("AA11").Value = 0 : End If

  417.             Dgv.Rows(i).Cells("BA正常").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) * CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString)

  418.             Dgv.Rows(i).Cells("GA正常").Value = CDbl(Dgv.Rows(i).Cells("GA").Value.ToString) * CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString)

  419.             Dgv.Rows(i).Cells("GA加給").Value = CDbl(Dgv.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv.Rows(i).Cells("GAM2").Value.ToString)

  420.             Dgv.Rows(i).Cells("主薪").Value = CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString) +

  421.                                                    CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString)

  422.             Dgv.Rows(i).Cells("AA").Value = (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) +

  423.                                                     CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) +

  424.                                                     CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) +

  425.                                                     CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString)

  426. 

  427.             Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)

  428.             For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1

  429.                 If Dgv.Rows(i).Cells("姓名").Value.ToString = 加班計算_dgv.Rows(II).Cells("姓名").Value.ToString And CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString) > 0 Then

  430.                     Dgv.Rows(i).Cells("平日加班扣除額").Value = CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString) + CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString)

  431.                 End If

  432.             Next

  433.             Dgv.Rows(i).Cells("平日月薪/不含加班").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) - CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString)

  434.             Dgv.Rows(i).Cells("正常班平均時薪").Value = CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)

  435.             Dgv.Rows(i).Cells("總服務時數").Value = CDbl(Dgv.Rows(i).Cells("平0-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) +

  436.                                                          CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) + CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) +

  437.                                                          CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) + CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) +

  438.                                                          CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString)

  439.             Dgv.Rows(i).Cells("總轉場時數").Value = CDbl(Dgv.Rows(i).Cells("平日轉場").Value.ToString) + CDbl(Dgv.Rows(i).Cells("假日轉場").Value.ToString)

  440.             For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  441.                 If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "服務津貼" Then

  442.                     If CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then

  443.                         Dgv.Rows(i).Cells("服務津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For

  444.                     End If

  445.                 End If

  446.             Next

  447.             For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  448.                 If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "轉場津貼" Then

  449.                     If CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then

  450.                         Dgv.Rows(i).Cells("轉場津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For

  451.                     End If

  452.                 End If

  453.             Next

  454.             Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) +

  455.                                                                    CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString)

  456.             Dgv.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) / CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString)

  457.             If CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv.Rows(i).Cells("加班費計算時薪標準").Value = "200" : End If

  458.             Dgv.Rows(i).Cells("加班費").Value = ((CDbl(Dgv.Rows(i).Cells("平9-10").Value.ToString) * 1.34) + (CDbl(Dgv.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +

  459.                                                       (CDbl(Dgv.Rows(i).Cells("休0-2").Value.ToString) * 1.34) + (CDbl(Dgv.Rows(i).Cells("休3-8").Value.ToString) * 1.67) +

  460.                                                       (CDbl(Dgv.Rows(i).Cells("國0-2").Value.ToString) * 2) + (CDbl(Dgv.Rows(i).Cells("國3-8").Value.ToString) * 2)) *

  461.                                                       CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value.ToString)

  462.             Dgv.Rows(i).Cells("副薪").Value = CDbl(Dgv.Rows(i).Cells("AA").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)

  463.             Dgv.Rows(i).Cells("總薪").Value = CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString)

  464.             Dgv.Rows(i).Cells("總薪資").Value = CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString)

  465.             Dgv.Rows(i).Cells(36).Value = Dgv.Rows(i).Cells(24).Value + Dgv.Rows(i).Cells(25).Value + Dgv.Rows(i).Cells(26).Value + Dgv.Rows(i).Cells(27).Value + Dgv.Rows(i).Cells(28).Value +

  466.                                           Dgv.Rows(i).Cells(29).Value + Dgv.Rows(i).Cells(30).Value + Dgv.Rows(i).Cells(31).Value + Dgv.Rows(i).Cells(35).Value + Dgv.Rows(i).Cells(33).Value +

  467.                                           Dgv.Rows(i).Cells(34).Value + Dgv.Rows(i).Cells(35).Value

  468.             Dgv.Rows(i).Cells(49).Value = Dgv.Rows(i).Cells(37).Value + Dgv.Rows(i).Cells(38).Value + Dgv.Rows(i).Cells(39).Value + Dgv.Rows(i).Cells(40).Value + Dgv.Rows(i).Cells(41).Value +

  469.                                           Dgv.Rows(i).Cells(42).Value + Dgv.Rows(i).Cells(43).Value + Dgv.Rows(i).Cells(44).Value + Dgv.Rows(i).Cells(45).Value + Dgv.Rows(i).Cells(46).Value +

  470.                                           Dgv.Rows(i).Cells(47).Value + Dgv.Rows(i).Cells(48).Value

  471.             Dgv.Rows(i).Cells("總時數").Value = CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString)

  472.             Dgv.Rows(i).Cells("平均時薪").Value = CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString)

  473.             Dgv.Rows(i).Cells("BA+AA總額").Value = CDbl(Dgv.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv.Rows(i).Cells("AA03").Value.ToString) +

  474.                                                    CDbl(Dgv.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA05").Value.ToString) +

  475.                                                    CDbl(Dgv.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA08").Value.ToString) +

  476.                                                    CDbl(Dgv.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv.Rows(i).Cells("AA11").Value.ToString))

  477.             Dgv.Rows(i).Cells("餘額").Value = CDbl(Dgv.Rows(i).Cells("BA+AA總額").Value.ToString) - CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString)

  478.             Dgv.Rows(i).Cells("餘額比").Value = CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv.Rows(i).Cells("BA+AA總額").Value.ToString)

  479. 

  480.             BA正_tb.Text = Strings.Format(CDbl(BA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  481.             BA正1_tb.Text = Strings.Format(CDbl(BA正1_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  482.             GA正_tb.Text = Strings.Format(CDbl(GA正_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  483.             GA加_tb.Text = Strings.Format(CDbl(GA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")

  484.             其他_tb.Text = Strings.Format(CDbl(其他_tb.Text) + CDbl(Dgv.Rows(i).Cells("其他").Value.ToString), "#,##0.0")

  485.             主薪_tb.Text = Strings.Format(CDbl(主薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  486.             AA_tb.Text = Strings.Format(CDbl(AA_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  487.             AA1_tb.Text = Strings.Format(CDbl(AA1_tb.Text) + CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  488.             副薪_tb.Text = Strings.Format(CDbl(副薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  489.             總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  490.             加班扣除_tb.Text = Strings.Format(CDbl(加班扣除_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  491.             平日月薪_tb.Text = Strings.Format(CDbl(平日月薪_tb.Text) + CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  492.             服務_tb.Text = Strings.Format(CDbl(服務_tb.Text) + CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  493.             轉場_tb.Text = Strings.Format(CDbl(轉場_tb.Text) + CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  494.             修正月_tb.Text = Strings.Format(CDbl(修正月_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  495.             修正月1_tb.Text = Strings.Format(CDbl(修正月1_tb.Text) + CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  496.             加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  497.             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  498.             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  499.             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  500.             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv.Rows(i).Cells(24).Value.ToString), "#,##0.0")

  501.             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv.Rows(i).Cells(25).Value.ToString), "#,##0.0")

  502.             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv.Rows(i).Cells(26).Value.ToString), "#,##0.0")

  503.             A04_tb.Text = Strings.Format(CDbl(A04_tb.Text) + CDbl(Dgv.Rows(i).Cells(27).Value.ToString), "#,##0.0")

  504.             A05_tb.Text = Strings.Format(CDbl(A05_tb.Text) + CDbl(Dgv.Rows(i).Cells(28).Value.ToString), "#,##0.0")

  505.             A06_tb.Text = Strings.Format(CDbl(A06_tb.Text) + CDbl(Dgv.Rows(i).Cells(29).Value.ToString), "#,##0.0")

  506.             A07_tb.Text = Strings.Format(CDbl(A07_tb.Text) + CDbl(Dgv.Rows(i).Cells(30).Value.ToString), "#,##0.0")

  507.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(31).Value.ToString), "#,##0.0")

  508.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv.Rows(i).Cells(32).Value.ToString), "#,##0.0")

  509.             A10_tb.Text = Strings.Format(CDbl(A10_tb.Text) + CDbl(Dgv.Rows(i).Cells(33).Value.ToString), "#,##0.0")

  510.             A11_tb.Text = Strings.Format(CDbl(A11_tb.Text) + CDbl(Dgv.Rows(i).Cells(34).Value.ToString), "#,##0.0")

  511.             A12_tb.Text = Strings.Format(CDbl(A12_tb.Text) + CDbl(Dgv.Rows(i).Cells(35).Value.ToString), "#,##0.0")

  512.             減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(36).Value.ToString), "#,##0.0")

  513.             B01_tb.Text = Strings.Format(CDbl(B01_tb.Text) + CDbl(Dgv.Rows(i).Cells(37).Value.ToString), "#,##0.0")

  514.             B02_tb.Text = Strings.Format(CDbl(B02_tb.Text) + CDbl(Dgv.Rows(i).Cells(38).Value.ToString), "#,##0.0")

  515.             B03_tb.Text = Strings.Format(CDbl(B03_tb.Text) + CDbl(Dgv.Rows(i).Cells(39).Value.ToString), "#,##0.0")

  516.             B04_tb.Text = Strings.Format(CDbl(B04_tb.Text) + CDbl(Dgv.Rows(i).Cells(40).Value.ToString), "#,##0.0")

  517.             B05_tb.Text = Strings.Format(CDbl(B05_tb.Text) + CDbl(Dgv.Rows(i).Cells(41).Value.ToString), "#,##0.0")

  518.             B06_tb.Text = Strings.Format(CDbl(B06_tb.Text) + CDbl(Dgv.Rows(i).Cells(42).Value.ToString), "#,##0.0")

  519.             B07_tb.Text = Strings.Format(CDbl(B07_tb.Text) + CDbl(Dgv.Rows(i).Cells(43).Value.ToString), "#,##0.0")

  520.             B08_tb.Text = Strings.Format(CDbl(B08_tb.Text) + CDbl(Dgv.Rows(i).Cells(44).Value.ToString), "#,##0.0")

  521.             B09_tb.Text = Strings.Format(CDbl(B09_tb.Text) + CDbl(Dgv.Rows(i).Cells(45).Value.ToString), "#,##0.0")

  522.             B10_tb.Text = Strings.Format(CDbl(B10_tb.Text) + CDbl(Dgv.Rows(i).Cells(46).Value.ToString), "#,##0.0")

  523.             B11_tb.Text = Strings.Format(CDbl(B11_tb.Text) + CDbl(Dgv.Rows(i).Cells(47).Value.ToString), "#,##0.0")

  524.             B12_tb.Text = Strings.Format(CDbl(B12_tb.Text) + CDbl(Dgv.Rows(i).Cells(48).Value.ToString), "#,##0.0")

  525.             加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text) + CDbl(Dgv.Rows(i).Cells(49).Value.ToString), "#,##0.0")

  526.             C01_tb.Text = Strings.Format(CDbl(C01_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  527.             C01_1_tb.Text = Strings.Format(CDbl(C01_1_tb.Text) + CDbl(Dgv.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  528.             總時數_tb.Text = Strings.Format(CDbl(總時數_tb.Text) + CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "#,##0.0")

  529.             平均時薪_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) / CDbl(總時數_tb.Text), "#,##0.0")

  530.             BAAA加_tb.Text = Strings.Format(CDbl(BAAA加_tb.Text) + CDbl(Dgv.Rows(i).Cells("BA+AA總額").Value.ToString), "#,##0.0")

  531.             餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text) + CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  532.             餘額比_tb.Text = Strings.Format((CDbl(餘額_tb.Text) / CDbl(BAAA加_tb.Text) * 100), "#,##0.0") & " %"

  533. 

  534.             Dgv.Rows(i).Cells("BA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  535.             Dgv.Rows(i).Cells("GA正常").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  536.             Dgv.Rows(i).Cells("主薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  537.             Dgv.Rows(i).Cells("AA").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  538.             Dgv.Rows(i).Cells("加班費").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  539.             Dgv.Rows(i).Cells("副薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  540.             Dgv.Rows(i).Cells("總薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  541.             Dgv.Rows(i).Cells("平日工時").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日工時").Value.ToString), "##0.00")

  542.             Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日平均時薪/含平日加班").Value.ToString), "#,##0.0")

  543.             Dgv.Rows(i).Cells("平日加班扣除額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  544.             Dgv.Rows(i).Cells("平日月薪/不含加班").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  545.             Dgv.Rows(i).Cells("正常班平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("正常班平均時薪").Value.ToString), "##0.00")

  546.             Dgv.Rows(i).Cells("總服務時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總服務時數").Value.ToString), "##0.00")

  547.             Dgv.Rows(i).Cells("總轉場時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總轉場時數").Value.ToString), "##0.00")

  548.             Dgv.Rows(i).Cells("服務津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  549.             Dgv.Rows(i).Cells("轉場津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  550.             Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  551.             Dgv.Rows(i).Cells("加班費計算時薪標準").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")

  552.             Dgv.Rows(i).Cells("總薪資").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  553.             Dgv.Rows(i).Cells("總時數").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("總時數").Value.ToString), "##0.00")

  554.             Dgv.Rows(i).Cells("平均時薪").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("平均時薪").Value.ToString), "#,##0.0")

  555.             Dgv.Rows(i).Cells("BA+AA總額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA+AA總額").Value.ToString), "#,##0.0")

  556.             Dgv.Rows(i).Cells("餘額").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  557.             Dgv.Rows(i).Cells("餘額比").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("餘額比").Value.ToString) * 100, "#,##0.0") & " %"

  558.             Dgv.Rows(i).Cells("BA比例").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("BA比例").Value.ToString) * 100, "#,##0.0") & " %"

  559.             Dgv.Rows(i).Cells("AA比例").Value = Strings.Format(CDbl(Dgv.Rows(i).Cells("AA比例").Value.ToString) * 100, "#,##0.0") & " %"

  560.         Next

  561.     End Sub

  562.     Private Sub Set_服務人員1()

  563.         年_lb.Text = 年份_cb.Text : 月_lb.Text = 月份_cb.Text

  564.         Dim ds As New DataSet : Dgv1.DataSource = Nothing : ds.Clear()

  565.         Dgv1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  566.         Dgv1.ColumnHeadersHeight = 80 : Dgv1.AllowUserToAddRows = False : Dgv1.RowTemplate.Height = 25

  567.         PA1 = 年份_cb.Text & 月份_cb.Text : SQL2 = "人事拆帳制A碼項目長照所" : SQL_薪資彙總表_仁寶()

  568.         da.Fill(ds) : Dgv1.DataSource = ds.Tables(0) : conn.Close()

  569.         Dgv1.EditMode = DataGridViewEditMode.EditOnEnter

  570. 

  571.         Dgv1.Columns("BA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  572.         Dgv1.Columns("BA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  573.         Dgv1.Columns("BA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  574.         Dgv1.Columns("BA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(25).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  575.         Dgv1.Columns("GA正常").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  576.         Dgv1.Columns("GA正常").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  577.         Dgv1.Columns("GA加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  578.         Dgv1.Columns("GA加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(27).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  579.         Dgv1.Columns("其他").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  580.         Dgv1.Columns("其他").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  581.         Dgv1.Columns("主薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  582.         Dgv1.Columns("主薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(29).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  583.         Dgv1.Columns("AA比例").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  584.         Dgv1.Columns("AA比例").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  585.         Dgv1.Columns("AA").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  586.         Dgv1.Columns("AA").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(31).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  587.         Dgv1.Columns("副薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  588.         Dgv1.Columns("副薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  589.         Dgv1.Columns("總薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(33).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  590.         Dgv1.Columns("總薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(33).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  591.         Dgv1.Columns("平日工時").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(34).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  592.         Dgv1.Columns("平日工時").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  593.         Dgv1.Columns("總時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(35).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  594.         Dgv1.Columns("總時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(35).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  595.         Dgv1.Columns("休3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(36).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  596.         Dgv1.Columns("休3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  597.         Dgv1.Columns("平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(37).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  598.         Dgv1.Columns("平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(37).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  599.         Dgv1.Columns("休0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(38).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  600.         Dgv1.Columns("休0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  601.         Dgv1.Columns("服務津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(39).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  602.         Dgv1.Columns("服務津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(39).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  603.         Dgv1.Columns("轉場津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(40).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  604.         Dgv1.Columns("轉場津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  605.         Dgv1.Columns("餘額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(41).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  606.         Dgv1.Columns("餘額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(41).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  607.         Dgv1.Columns("餘額比").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(42).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  608.         Dgv1.Columns("餘額比").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  609.         Dgv1.Columns("加班費").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(43).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  610.         Dgv1.Columns("加班費").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(43).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  611.         Dgv1.Columns("總薪資").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(44).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  612.         Dgv1.Columns("總薪資").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  613.         Dgv1.Columns("總服務時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(45).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  614.         Dgv1.Columns("總服務時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(45).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  615.         Dgv1.Columns("總轉場時數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(46).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  616.         Dgv1.Columns("總轉場時數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  617.         Dgv1.Columns("平日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(47).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  618.         Dgv1.Columns("平日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(47).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  619.         Dgv1.Columns("假日轉場").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(48).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  620.         Dgv1.Columns("假日轉場").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  621.         Dgv1.Columns("平0-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(49).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  622.         Dgv1.Columns("平0-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(49).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  623.         Dgv1.Columns("平9-10").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns(50).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  624.         Dgv1.Columns("平9-10").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  625.         Dgv1.Columns("平11-12").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Dgv1.Columns("國0-2").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  626.         Dgv1.Columns("平11-12").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Dgv1.Columns("國0-2").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  627.         Dgv1.Columns("國3-8").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  628.         Dgv1.Columns("國3-8").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  629.         Dgv1.Columns("正常班平均時薪").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  630.         Dgv1.Columns("正常班平均時薪").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  631.         Dgv1.Columns("平日加班扣除額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  632.         Dgv1.Columns("平日加班扣除額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  633.         Dgv1.Columns("平日平均時薪/含平日加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  634.         Dgv1.Columns("平日平均時薪/含平日加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  635.         Dgv1.Columns("平日月薪/不含加班").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  636.         Dgv1.Columns("平日月薪/不含加班").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  637.         Dgv1.Columns("BA+AA總額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  638.         Dgv1.Columns("BA+AA總額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  639.         Dgv1.Columns("修正後月薪+Ａ+津貼").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  640.         Dgv1.Columns("修正後月薪+Ａ+津貼").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  641.         Dgv1.Columns("加班費計算時薪標準").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

  642.         Dgv1.Columns("加班費計算時薪標準").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  643. 

  644.         Dgv1.Columns("平日轉場").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("假日轉場").DefaultCellStyle.Format = "#,##0.0"

  645.         Dgv1.Columns("平0-8").DefaultCellStyle.Format = "#,##.0" : Dgv1.Columns("平9-10").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("GA加給").DefaultCellStyle.Format = "#,##0.0"

  646.         Dgv1.Columns("平11-12").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("國0-2").DefaultCellStyle.Format = "#,##0.0"

  647.         Dgv1.Columns("國3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("休0-2").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns("其他").DefaultCellStyle.Format = "#,##0.0"

  648.         Dgv1.Columns("休3-8").DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(24).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(25).DefaultCellStyle.Format = "#,##0.0"

  649.         Dgv1.Columns(26).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(27).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(28).DefaultCellStyle.Format = "#,##0.0"

  650.         Dgv1.Columns(29).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(30).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(31).DefaultCellStyle.Format = "#,##0.0"

  651.         Dgv1.Columns(32).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(33).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(34).DefaultCellStyle.Format = "#,##0.0"

  652.         Dgv1.Columns(35).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(36).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(37).DefaultCellStyle.Format = "#,##0.0"

  653.         Dgv1.Columns(38).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(39).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(40).DefaultCellStyle.Format = "#,##0.0"

  654.         Dgv1.Columns(41).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(42).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(43).DefaultCellStyle.Format = "#,##0.0"

  655.         Dgv1.Columns(44).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(45).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(46).DefaultCellStyle.Format = "#,##0.0"

  656.         Dgv1.Columns(47).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(48).DefaultCellStyle.Format = "#,##0.0" : Dgv1.Columns(49).DefaultCellStyle.Format = "#,##0.0"

  657.         Dgv1.Columns(50).DefaultCellStyle.Format = "#,##0.0"

  658.         Dgv1.Columns("GAM1").Visible = False : Dgv1.Columns("GAM2").Visible = False : Dgv1.Columns("BA").Visible = False : Dgv1.Columns("GA").Visible = False

  659.         Set_分頁1()

  660. 

  661.         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

  662.         For i As Integer = 37 To 48 : Dgv1.Columns(i).ReadOnly = False : Next : Dgv1.Columns("其他").ReadOnly = False : Dgv1.Columns(50).ReadOnly = False

  663. 

  664.         Dgv1.Columns("總薪").DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns("總薪資").DefaultCellStyle.BackColor = Color.MistyRose

  665.         Dgv1.Columns(36).DefaultCellStyle.BackColor = Color.MistyRose : Dgv1.Columns(49).DefaultCellStyle.BackColor = Color.MistyRose

  666.         Set_BA比1() : Dim 重讀 As Boolean = False : Dim 新增 As Boolean

  667.         For i As Integer = 0 To Dgv1.Rows.Count - 1 : 新增 = False

  668.             If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If

  669.             For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1

  670.                 If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If

  671.             Next

  672.             If 新增 = True Then

  673.                 SQL2 = "(N'', N'" & Dgv1.Rows(i).Cells("姓名").Value.ToString & "', N'" & Dgv1.Rows(i).Cells("BA比例").Value.ToString & "')"

  674.                 SQL_BA比_新增() : 重讀 = True

  675.             End If

  676.         Next : If 重讀 = True Then : Set_BA比1() : End If

  677.         Set_BA比2() : 重讀 = False

  678.         For i As Integer = 0 To BA比1_dgv.Rows.Count - 1 : 新增 = False

  679.             If BA比1_dgv.Rows.Count = 0 Then : 新增 = True : 重讀 = True : End If

  680.             For ii As Integer = 0 To BA比1_dgv.Rows.Count - 1

  681.                 If BA比1_dgv.Rows(i).Cells("姓名").Value.ToString = BA比1_dgv.Rows(ii).Cells("姓名").Value.ToString Then : 新增 = False : Exit For : Else : 新增 = True : End If

  682.             Next

  683.             If 新增 = True Then

  684.                 SQL2 = "(N'" & PA1 & "', N'" & BA比1_dgv.Rows(i).Cells("姓名").Value.ToString & "', N'" & BA比1_dgv.Rows(i).Cells("BA").Value.ToString & "')"

  685.                 SQL_BA比_新增() : 重讀 = True

  686.             End If

  687.         Next : If 重讀 = True Then : Set_BA比2() : End If

  688.         Set_薪資計算1()

  689.     End Sub

  690.     Private Sub Set_分頁1()

  691.         If 主表_ch.Checked = True And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  692.             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False

  693.             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False

  694.             Dgv1.Columns("AA11").Visible = False

  695. 

  696.             Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False

  697.             Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False

  698.             Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False

  699.             Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

  700. 

  701.             Dgv1.Columns("BA比例").Visible = True : Dgv1.Columns("BA正常").Visible = True : Dgv1.Columns("GA正常").Visible = True

  702.             Dgv1.Columns("GA加給").Visible = True : Dgv1.Columns("其他").Visible = True : Dgv1.Columns("主薪").Visible = True

  703.             Dgv1.Columns("AA比例").Visible = True : Dgv1.Columns("AA").Visible = True : Dgv1.Columns("副薪").Visible = True

  704.             Dgv1.Columns("總薪").Visible = True : Dgv1.Columns("平日工時").Visible = True : Dgv1.Columns("平日平均時薪/含平日加班").Visible = True

  705.             Dgv1.Columns("平日加班扣除額").Visible = True : Dgv1.Columns("平日月薪/不含加班").Visible = True : Dgv1.Columns("正常班平均時薪").Visible = True

  706.             Dgv1.Columns("服務津貼").Visible = True : Dgv1.Columns("轉場津貼").Visible = True : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = True

  707.             Dgv1.Columns("加班費計算時薪標準").Visible = True : Dgv1.Columns("加班費").Visible = True : Dgv1.Columns("總薪資").Visible = True

  708. 

  709.             Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False

  710.             Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False

  711.             Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

  712. 

  713.             Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False

  714.             Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False

  715.             Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

  716. 

  717.             Dgv1.Columns(50).Visible = False

  718. 

  719.             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+AA總額").Visible = False : Dgv1.Columns("餘額").Visible = False

  720.             Dgv1.Columns("餘額比").Visible = False

  721.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = True And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  722.             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False

  723.             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False

  724.             Dgv1.Columns("AA11").Visible = False

  725. 

  726.             Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False

  727.             Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False

  728.             Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False

  729.             Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

  730. 

  731.             Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False

  732.             Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False

  733.             Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False

  734.             Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False

  735.             Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False

  736.             Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False

  737.             Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

  738. 

  739.             Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False

  740.             Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False

  741.             Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

  742. 

  743.             Dgv1.Columns(37).Visible = True : Dgv1.Columns(38).Visible = True : Dgv1.Columns(39).Visible = True : Dgv1.Columns(40).Visible = True : Dgv1.Columns(41).Visible = True

  744.             Dgv1.Columns(42).Visible = True : Dgv1.Columns(43).Visible = True : Dgv1.Columns(44).Visible = True : Dgv1.Columns(45).Visible = True : Dgv1.Columns(46).Visible = True

  745.             Dgv1.Columns(47).Visible = True : Dgv1.Columns(48).Visible = True : Dgv1.Columns(49).Visible = True

  746. 

  747.             Dgv1.Columns(50).Visible = True

  748. 

  749.             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+AA總額").Visible = False : Dgv1.Columns("餘額").Visible = False

  750.             Dgv1.Columns("餘額比").Visible = False

  751.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = True And 其它_ch.Checked = False Then

  752.             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False

  753.             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False

  754.             Dgv1.Columns("AA11").Visible = False

  755. 

  756.             Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False

  757.             Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False

  758.             Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False

  759.             Dgv1.Columns("總服務時數").Visible = False : Dgv1.Columns("總轉場時數").Visible = False

  760. 

  761.             Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False

  762.             Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False

  763.             Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False

  764.             Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False

  765.             Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False

  766.             Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False

  767.             Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

  768. 

  769.             Dgv1.Columns(24).Visible = True : Dgv1.Columns(25).Visible = True : Dgv1.Columns(26).Visible = True : Dgv1.Columns(27).Visible = True : Dgv1.Columns(28).Visible = True

  770.             Dgv1.Columns(29).Visible = True : Dgv1.Columns(30).Visible = True : Dgv1.Columns(31).Visible = True : Dgv1.Columns(32).Visible = True : Dgv1.Columns(33).Visible = True

  771.             Dgv1.Columns(34).Visible = True : Dgv1.Columns(35).Visible = True : Dgv1.Columns(36).Visible = True

  772. 

  773.             Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False

  774.             Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False

  775.             Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

  776. 

  777.             Dgv1.Columns(50).Visible = True

  778. 

  779.             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+AA總額").Visible = False : Dgv1.Columns("餘額").Visible = False

  780.             Dgv1.Columns("餘額比").Visible = False

  781.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = True And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = False Then

  782.             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False

  783.             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False

  784.             Dgv1.Columns("AA11").Visible = False

  785. 

  786.             Dgv1.Columns("平日轉場").Visible = True : Dgv1.Columns("平0-8").Visible = True : Dgv1.Columns("平9-10").Visible = True

  787.             Dgv1.Columns("平11-12").Visible = True : Dgv1.Columns("國0-2").Visible = True : Dgv1.Columns("國3-8").Visible = True

  788.             Dgv1.Columns("休0-2").Visible = True : Dgv1.Columns("休3-8").Visible = True : Dgv1.Columns("假日轉場").Visible = True

  789.             Dgv1.Columns("總服務時數").Visible = True : Dgv1.Columns("總轉場時數").Visible = True

  790. 

  791.             Dgv1.Columns("BA比例").Visible = False : Dgv1.Columns("BA正常").Visible = False : Dgv1.Columns("GA正常").Visible = False

  792.             Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False

  793.             Dgv1.Columns("AA比例").Visible = False : Dgv1.Columns("AA").Visible = False : Dgv1.Columns("副薪").Visible = False

  794.             Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False

  795.             Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False

  796.             Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = False

  797.             Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = False : Dgv1.Columns("總薪資").Visible = False

  798. 

  799.             Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False

  800.             Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False

  801.             Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

  802. 

  803.             Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False

  804.             Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False

  805.             Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

  806. 

  807.             Dgv1.Columns(50).Visible = False

  808. 

  809.             Dgv1.Columns("總時數").Visible = False : Dgv1.Columns("平均時薪").Visible = False : Dgv1.Columns("BA+AA總額").Visible = False : Dgv1.Columns("餘額").Visible = False

  810.             Dgv1.Columns("餘額比").Visible = False

  811.         ElseIf 主表_ch.Checked = False And 時數表_ch.Checked = False And 加項總計_ch.Checked = False And 減項總計_ch.Checked = False And 其它_ch.Checked = True Then

  812.             Dgv1.Columns("AA03").Visible = False : Dgv1.Columns("AA04").Visible = False : Dgv1.Columns("AA05").Visible = False

  813.             Dgv1.Columns("AA06").Visible = False : Dgv1.Columns("AA08").Visible = False : Dgv1.Columns("AA10").Visible = False

  814.             Dgv1.Columns("AA11").Visible = False

  815. 

  816.             Dgv1.Columns("平日轉場").Visible = False : Dgv1.Columns("平0-8").Visible = False : Dgv1.Columns("平9-10").Visible = False

  817.             Dgv1.Columns("平11-12").Visible = False : Dgv1.Columns("國0-2").Visible = False : Dgv1.Columns("國3-8").Visible = False

  818.             Dgv1.Columns("休0-2").Visible = False : Dgv1.Columns("休3-8").Visible = False : Dgv1.Columns("假日轉場").Visible = False

  819.             Dgv1.Columns("總服務時數").Visible = True : Dgv1.Columns("總轉場時數").Visible = True

  820. 

  821.             Dgv1.Columns("BA比例").Visible = True : Dgv1.Columns("BA正常").Visible = True : Dgv1.Columns("GA正常").Visible = False

  822.             Dgv1.Columns("GA加給").Visible = False : Dgv1.Columns("其他").Visible = False : Dgv1.Columns("主薪").Visible = False

  823.             Dgv1.Columns("AA比例").Visible = True : Dgv1.Columns("AA").Visible = True : Dgv1.Columns("副薪").Visible = False

  824.             Dgv1.Columns("總薪").Visible = False : Dgv1.Columns("平日工時").Visible = False : Dgv1.Columns("平日平均時薪/含平日加班").Visible = False

  825.             Dgv1.Columns("平日加班扣除額").Visible = False : Dgv1.Columns("平日月薪/不含加班").Visible = False : Dgv1.Columns("正常班平均時薪").Visible = False

  826.             Dgv1.Columns("服務津貼").Visible = False : Dgv1.Columns("轉場津貼").Visible = False : Dgv1.Columns("修正後月薪+Ａ+津貼").Visible = True

  827.             Dgv1.Columns("加班費計算時薪標準").Visible = False : Dgv1.Columns("加班費").Visible = True : Dgv1.Columns("總薪資").Visible = True

  828. 

  829.             Dgv1.Columns(24).Visible = False : Dgv1.Columns(25).Visible = False : Dgv1.Columns(26).Visible = False : Dgv1.Columns(27).Visible = False : Dgv1.Columns(28).Visible = False

  830.             Dgv1.Columns(29).Visible = False : Dgv1.Columns(30).Visible = False : Dgv1.Columns(31).Visible = False : Dgv1.Columns(32).Visible = False : Dgv1.Columns(33).Visible = False

  831.             Dgv1.Columns(34).Visible = False : Dgv1.Columns(35).Visible = False : Dgv1.Columns(36).Visible = False

  832. 

  833.             Dgv1.Columns(37).Visible = False : Dgv1.Columns(38).Visible = False : Dgv1.Columns(39).Visible = False : Dgv1.Columns(40).Visible = False : Dgv1.Columns(41).Visible = False

  834.             Dgv1.Columns(42).Visible = False : Dgv1.Columns(43).Visible = False : Dgv1.Columns(44).Visible = False : Dgv1.Columns(45).Visible = False : Dgv1.Columns(46).Visible = False

  835.             Dgv1.Columns(47).Visible = False : Dgv1.Columns(48).Visible = False : Dgv1.Columns(49).Visible = False

  836. 

  837.             Dgv1.Columns(50).Visible = False

  838. 

  839.             Dgv1.Columns("總時數").Visible = True : Dgv1.Columns("平均時薪").Visible = True : Dgv1.Columns("BA+AA總額").Visible = True : Dgv1.Columns("餘額").Visible = True

  840.             Dgv1.Columns("餘額比").Visible = True

  841.         End If

  842.     End Sub

  843.     Private Sub Set_薪資計算1()

  844.         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"

  845.         加班扣除_tb.Text = "0" : 平日月薪_tb.Text = "0" : 服務_tb.Text = "0" : 轉場_tb.Text = "0" : 修正月_tb.Text = "0" : 加班費_tb.Text = "0" : 總薪資_tb.Text = "0" : AA1_tb.Text = "0"

  846.         A01_tb.Text = "0" : A02_tb.Text = "0" : A03_tb.Text = "0" : A04_tb.Text = "0" : A05_tb.Text = "0" : A06_tb.Text = "0" : A07_tb.Text = "0" : A08_tb.Text = "0" : A09_tb.Text = "0"

  847.         A10_tb.Text = "0" : A11_tb.Text = "0" : A12_tb.Text = "0" : 加項總計_tb.Text = "0" : 減項總計_tb.Text = "0" : C01_tb.Text = "0" : C01_1_tb.Text = "0" : BA正1_tb.Text = "0"

  848.         B01_tb.Text = "0" : B02_tb.Text = "0" : B03_tb.Text = "0" : B04_tb.Text = "0" : B05_tb.Text = "0" : B06_tb.Text = "0" : B07_tb.Text = "0" : B08_tb.Text = "0" : B09_tb.Text = "0"

  849.         B10_tb.Text = "0" : B11_tb.Text = "0" : B12_tb.Text = "0" : 總時數_tb.Text = "0" : 修正月1_tb.Text = "0" : 加班費1_tb.Text = "0" : 總薪資1_tb.Text = "0" : 平均時薪_tb.Text = "0"

  850.         BAAA加_tb.Text = "0" : 餘額_tb.Text = "0" : 餘額比_tb.Text = "0"

  851.         For i As Integer = 0 To Dgv1.Rows.Count - 1

  852.             For ii As Integer = 0 To BA比_dgv.Rows.Count - 1

  853.                 If Dgv1.Rows(i).Cells("姓名").Value.ToString = BA比_dgv.Rows(ii).Cells("姓名").Value.ToString Then

  854.                     Dgv1.Rows(i).Cells("BA比例").Value = BA比_dgv.Rows(ii).Cells("BA").Value.ToString

  855.                 End If

  856.             Next

  857.             If IsDBNull(Dgv1.Rows(i).Cells(24).Value) = True Then : Dgv1.Rows(i).Cells(24).Value = 0 : End If

  858.             If IsDBNull(Dgv1.Rows(i).Cells(25).Value) = True Then : Dgv1.Rows(i).Cells(25).Value = 0 : End If

  859.             If IsDBNull(Dgv1.Rows(i).Cells(26).Value) = True Then : Dgv1.Rows(i).Cells(26).Value = 0 : End If

  860.             If IsDBNull(Dgv1.Rows(i).Cells(27).Value) = True Then : Dgv1.Rows(i).Cells(27).Value = 0 : End If

  861.             If IsDBNull(Dgv1.Rows(i).Cells(28).Value) = True Then : Dgv1.Rows(i).Cells(28).Value = 0 : End If

  862.             If IsDBNull(Dgv1.Rows(i).Cells(29).Value) = True Then : Dgv1.Rows(i).Cells(29).Value = 0 : End If

  863.             If IsDBNull(Dgv1.Rows(i).Cells(30).Value) = True Then : Dgv1.Rows(i).Cells(30).Value = 0 : End If

  864.             If IsDBNull(Dgv1.Rows(i).Cells(31).Value) = True Then : Dgv1.Rows(i).Cells(31).Value = 0 : End If

  865.             If IsDBNull(Dgv1.Rows(i).Cells(32).Value) = True Then : Dgv1.Rows(i).Cells(32).Value = 0 : End If

  866.             If IsDBNull(Dgv1.Rows(i).Cells(33).Value) = True Then : Dgv1.Rows(i).Cells(33).Value = 0 : End If

  867.             If IsDBNull(Dgv1.Rows(i).Cells(34).Value) = True Then : Dgv1.Rows(i).Cells(34).Value = 0 : End If

  868.             If IsDBNull(Dgv1.Rows(i).Cells(35).Value) = True Then : Dgv1.Rows(i).Cells(35).Value = 0 : End If

  869.             If IsDBNull(Dgv1.Rows(i).Cells(36).Value) = True Then : Dgv1.Rows(i).Cells(36).Value = 0 : End If

  870.             If IsDBNull(Dgv1.Rows(i).Cells(37).Value) = True Then : Dgv1.Rows(i).Cells(37).Value = 0 : End If

  871.             If IsDBNull(Dgv1.Rows(i).Cells(38).Value) = True Then : Dgv1.Rows(i).Cells(38).Value = 0 : End If

  872.             If IsDBNull(Dgv1.Rows(i).Cells(39).Value) = True Then : Dgv1.Rows(i).Cells(39).Value = 0 : End If

  873.             If IsDBNull(Dgv1.Rows(i).Cells(40).Value) = True Then : Dgv1.Rows(i).Cells(40).Value = 0 : End If

  874.             If IsDBNull(Dgv1.Rows(i).Cells(41).Value) = True Then : Dgv1.Rows(i).Cells(41).Value = 0 : End If

  875.             If IsDBNull(Dgv1.Rows(i).Cells(42).Value) = True Then : Dgv1.Rows(i).Cells(42).Value = 0 : End If

  876.             If IsDBNull(Dgv1.Rows(i).Cells(43).Value) = True Then : Dgv1.Rows(i).Cells(43).Value = 0 : End If

  877.             If IsDBNull(Dgv1.Rows(i).Cells(44).Value) = True Then : Dgv1.Rows(i).Cells(44).Value = 0 : End If

  878.             If IsDBNull(Dgv1.Rows(i).Cells(45).Value) = True Then : Dgv1.Rows(i).Cells(45).Value = 0 : End If

  879.             If IsDBNull(Dgv1.Rows(i).Cells(46).Value) = True Then : Dgv1.Rows(i).Cells(46).Value = 0 : End If

  880.             If IsDBNull(Dgv1.Rows(i).Cells(47).Value) = True Then : Dgv1.Rows(i).Cells(47).Value = 0 : End If

  881.             If IsDBNull(Dgv1.Rows(i).Cells(48).Value) = True Then : Dgv1.Rows(i).Cells(48).Value = 0 : End If

  882.             If IsDBNull(Dgv1.Rows(i).Cells(49).Value) = True Then : Dgv1.Rows(i).Cells(49).Value = 0 : End If

  883.             If IsDBNull(Dgv1.Rows(i).Cells(50).Value) = True Then : Dgv1.Rows(i).Cells(50).Value = 0 : End If

  884.             If IsDBNull(Dgv1.Rows(i).Cells("其他").Value) = True Then : Dgv1.Rows(i).Cells("其他").Value = 0 : End If

  885.             Dgv1.Rows(i).Cells("主薪").Value = "0" : Dgv1.Rows(i).Cells("AA比例").Value = "0.5" : Dgv1.Rows(i).Cells("總時數").Value = "0"

  886.             Dgv1.Rows(i).Cells("平均時薪").Value = "0" : Dgv1.Rows(i).Cells("BA+AA總額").Value = "0" : Dgv1.Rows(i).Cells("餘額").Value = "0"

  887.             Dgv1.Rows(i).Cells("加班費").Value = "0" : Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = "0" : Dgv1.Rows(i).Cells("GA正常").Value = "0"

  888.             Dgv1.Rows(i).Cells("平日加班扣除額").Value = "0" : Dgv1.Rows(i).Cells("轉場津貼").Value = "0" : Dgv1.Rows(i).Cells("總轉場時數").Value = "0"

  889.             Dgv1.Rows(i).Cells("正常班平均時薪").Value = "0" : Dgv1.Rows(i).Cells("總服務時數").Value = "0" : Dgv1.Rows(i).Cells("服務津貼").Value = "0"

  890.             Dgv1.Rows(i).Cells("總服務時數").Value = "0" : Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = "0" : Dgv1.Rows(i).Cells("總薪資").Value = "0"

  891.             Dgv1.Rows(i).Cells("BA正常").Value = "0" : Dgv1.Rows(i).Cells("餘額比").Value = "0"

  892.             If IsDBNull(Dgv1.Rows(i).Cells("BA").Value) = True Then : Dgv1.Rows(i).Cells("BA").Value = 0 : End If

  893.             If IsDBNull(Dgv1.Rows(i).Cells("GA").Value) = True Then : Dgv1.Rows(i).Cells("GA").Value = 0 : End If

  894.             If IsDBNull(Dgv1.Rows(i).Cells("GAM1").Value) = True Then : Dgv1.Rows(i).Cells("GAM1").Value = 0 : End If

  895.             If IsDBNull(Dgv1.Rows(i).Cells("GAM2").Value) = True Then : Dgv1.Rows(i).Cells("GAM2").Value = 0 : End If

  896.             If IsDBNull(Dgv1.Rows(i).Cells("AA03").Value) = True Then : Dgv1.Rows(i).Cells("AA03").Value = 0 : End If

  897.             If IsDBNull(Dgv1.Rows(i).Cells("AA04").Value) = True Then : Dgv1.Rows(i).Cells("AA04").Value = 0 : End If

  898.             If IsDBNull(Dgv1.Rows(i).Cells("AA05").Value) = True Then : Dgv1.Rows(i).Cells("AA05").Value = 0 : End If

  899.             If IsDBNull(Dgv1.Rows(i).Cells("AA06").Value) = True Then : Dgv1.Rows(i).Cells("AA06").Value = 0 : End If

  900.             If IsDBNull(Dgv1.Rows(i).Cells("AA08").Value) = True Then : Dgv1.Rows(i).Cells("AA08").Value = 0 : End If

  901.             If IsDBNull(Dgv1.Rows(i).Cells("AA10").Value) = True Then : Dgv1.Rows(i).Cells("AA10").Value = 0 : End If

  902.             If IsDBNull(Dgv1.Rows(i).Cells("AA11").Value) = True Then : Dgv1.Rows(i).Cells("AA11").Value = 0 : End If

  903.             Dgv1.Rows(i).Cells("BA正常").Value = CDbl(Dgv1.Rows(i).Cells("BA").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString)

  904.             Dgv1.Rows(i).Cells("GA正常").Value = CDbl(Dgv1.Rows(i).Cells("GA").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString)

  905.             Dgv1.Rows(i).Cells("GA加給").Value = CDbl(Dgv1.Rows(i).Cells("GAM1").Value.ToString) * CDbl(Dgv1.Rows(i).Cells("GAM2").Value.ToString)

  906.             Dgv1.Rows(i).Cells("主薪").Value = CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString) +

  907.                                                    CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("其他").Value.ToString)

  908.             Dgv1.Rows(i).Cells("AA").Value = (CDbl(Dgv1.Rows(i).Cells("AA03").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA04").Value.ToString) +

  909.                                                     CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) +

  910.                                                     CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) +

  911.                                                     CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString)) * CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString)

  912. 

  913.             Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)

  914.             For II As Integer = 0 To 加班計算_dgv.Rows.Count - 1

  915.                 If Dgv1.Rows(i).Cells("姓名").Value.ToString = 加班計算_dgv.Rows(II).Cells("姓名").Value.ToString And CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString) > 0 Then

  916.                     Dgv1.Rows(i).Cells("平日加班扣除額").Value = CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString) + CDbl(加班計算_dgv.Rows(II).Cells("合退").Value.ToString)

  917.                 End If

  918.             Next

  919.             Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString)

  920.             Dgv1.Rows(i).Cells("正常班平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)

  921.             Dgv1.Rows(i).Cells("總服務時數").Value = CDbl(Dgv1.Rows(i).Cells("平0-8").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("平9-10").Value.ToString) +

  922.                                                          CDbl(Dgv1.Rows(i).Cells("平11-12").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("國0-2").Value.ToString) +

  923.                                                          CDbl(Dgv1.Rows(i).Cells("國3-8").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("休0-2").Value.ToString) +

  924.                                                          CDbl(Dgv1.Rows(i).Cells("休3-8").Value.ToString)

  925.             Dgv1.Rows(i).Cells("總轉場時數").Value = CDbl(Dgv1.Rows(i).Cells("平日轉場").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("假日轉場").Value.ToString)

  926.             For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  927.                 If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "服務津貼" Then

  928.                     If CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then

  929.                         Dgv1.Rows(i).Cells("服務津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For

  930.                     End If

  931.                 End If

  932.             Next

  933.             For II As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  934.                 If 階級津貼_dgv.Rows(II).Cells("內容").Value.ToString = "轉場津貼" Then

  935.                     If CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString) > 階級津貼_dgv.Rows(II).Cells("級數").Value.ToString Then

  936.                         Dgv1.Rows(i).Cells("轉場津貼").Value = 階級津貼_dgv.Rows(II).Cells("加給").Value.ToString : Exit For

  937.                     End If

  938.                 End If

  939.             Next

  940.             Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString) +

  941.                                                                    CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString)

  942.             Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString)

  943.             If CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value) < 200 Then : Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = "200" : End If

  944.             Dgv1.Rows(i).Cells("加班費").Value = ((CDbl(Dgv1.Rows(i).Cells("平9-10").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("平11-12").Value.ToString) * 1.67) +

  945.                                                       (CDbl(Dgv1.Rows(i).Cells("休0-2").Value.ToString) * 1.34) + (CDbl(Dgv1.Rows(i).Cells("休3-8").Value.ToString) * 1.67) +

  946.                                                       (CDbl(Dgv1.Rows(i).Cells("國0-2").Value.ToString) * 2) + (CDbl(Dgv1.Rows(i).Cells("國3-8").Value.ToString) * 2)) *

  947.                                                       CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value.ToString)

  948.             Dgv1.Rows(i).Cells("副薪").Value = CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString)

  949.             Dgv1.Rows(i).Cells("總薪").Value = CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString)

  950.             Dgv1.Rows(i).Cells("總薪資").Value = CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString)

  951.             Dgv1.Rows(i).Cells(36).Value = Dgv1.Rows(i).Cells(24).Value + Dgv1.Rows(i).Cells(25).Value + Dgv1.Rows(i).Cells(26).Value + Dgv1.Rows(i).Cells(27).Value + Dgv1.Rows(i).Cells(28).Value +

  952.                                           Dgv1.Rows(i).Cells(29).Value + Dgv1.Rows(i).Cells(30).Value + Dgv1.Rows(i).Cells(31).Value + Dgv1.Rows(i).Cells(35).Value + Dgv1.Rows(i).Cells(33).Value +

  953.                                           Dgv1.Rows(i).Cells(34).Value + Dgv1.Rows(i).Cells(35).Value

  954.             Dgv1.Rows(i).Cells(49).Value = Dgv1.Rows(i).Cells(37).Value + Dgv1.Rows(i).Cells(38).Value + Dgv1.Rows(i).Cells(39).Value + Dgv1.Rows(i).Cells(40).Value + Dgv1.Rows(i).Cells(41).Value +

  955.                                           Dgv1.Rows(i).Cells(42).Value + Dgv1.Rows(i).Cells(43).Value + Dgv1.Rows(i).Cells(44).Value + Dgv1.Rows(i).Cells(45).Value + Dgv1.Rows(i).Cells(46).Value +

  956.                                           Dgv1.Rows(i).Cells(47).Value + Dgv1.Rows(i).Cells(48).Value

  957.             Dgv1.Rows(i).Cells("總時數").Value = CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString)

  958.             Dgv1.Rows(i).Cells("平均時薪").Value = CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString)

  959.             Dgv1.Rows(i).Cells("BA+AA總額").Value = CDbl(Dgv1.Rows(i).Cells("BA").Value.ToString) + (CDbl(Dgv1.Rows(i).Cells("AA03").Value.ToString) +

  960.                                                    CDbl(Dgv1.Rows(i).Cells("AA04").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA05").Value.ToString) +

  961.                                                    CDbl(Dgv1.Rows(i).Cells("AA06").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA08").Value.ToString) +

  962.                                                    CDbl(Dgv1.Rows(i).Cells("AA10").Value.ToString) + CDbl(Dgv1.Rows(i).Cells("AA11").Value.ToString))

  963.             Dgv1.Rows(i).Cells("餘額").Value = CDbl(Dgv1.Rows(i).Cells("BA+AA總額").Value.ToString) - CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString)

  964.             Dgv1.Rows(i).Cells("餘額比").Value = CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString) / CDbl(Dgv1.Rows(i).Cells("BA+AA總額").Value.ToString)

  965. 

  966.             BA正_tb.Text = Strings.Format(CDbl(BA正_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  967.             BA正1_tb.Text = Strings.Format(CDbl(BA正1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  968.             GA正_tb.Text = Strings.Format(CDbl(GA正_tb.Text) + CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  969.             GA加_tb.Text = Strings.Format(CDbl(GA加_tb.Text) + CDbl(Dgv1.Rows(i).Cells("GA加給").Value.ToString), "#,##0.0")

  970.             其他_tb.Text = Strings.Format(CDbl(其他_tb.Text) + CDbl(Dgv1.Rows(i).Cells("其他").Value.ToString), "#,##0.0")

  971.             主薪_tb.Text = Strings.Format(CDbl(主薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  972.             AA_tb.Text = Strings.Format(CDbl(AA_tb.Text) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  973.             AA1_tb.Text = Strings.Format(CDbl(AA1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  974.             副薪_tb.Text = Strings.Format(CDbl(副薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  975.             總薪_tb.Text = Strings.Format(CDbl(總薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  976.             加班扣除_tb.Text = Strings.Format(CDbl(加班扣除_tb.Text) + CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  977.             平日月薪_tb.Text = Strings.Format(CDbl(平日月薪_tb.Text) + CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  978.             服務_tb.Text = Strings.Format(CDbl(服務_tb.Text) + CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  979.             轉場_tb.Text = Strings.Format(CDbl(轉場_tb.Text) + CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  980.             修正月_tb.Text = Strings.Format(CDbl(修正月_tb.Text) + CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  981.             修正月1_tb.Text = Strings.Format(CDbl(修正月1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  982.             加班費_tb.Text = Strings.Format(CDbl(加班費_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  983.             加班費1_tb.Text = Strings.Format(CDbl(加班費1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  984.             總薪資_tb.Text = Strings.Format(CDbl(總薪資_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  985.             總薪資1_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  986.             A01_tb.Text = Strings.Format(CDbl(A01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(24).Value.ToString), "#,##0.0")

  987.             A02_tb.Text = Strings.Format(CDbl(A02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(25).Value.ToString), "#,##0.0")

  988.             A03_tb.Text = Strings.Format(CDbl(A03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(26).Value.ToString), "#,##0.0")

  989.             A04_tb.Text = Strings.Format(CDbl(A04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(27).Value.ToString), "#,##0.0")

  990.             A05_tb.Text = Strings.Format(CDbl(A05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(28).Value.ToString), "#,##0.0")

  991.             A06_tb.Text = Strings.Format(CDbl(A06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(29).Value.ToString), "#,##0.0")

  992.             A07_tb.Text = Strings.Format(CDbl(A07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(30).Value.ToString), "#,##0.0")

  993.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(31).Value.ToString), "#,##0.0")

  994.             A08_tb.Text = Strings.Format(CDbl(A08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(32).Value.ToString), "#,##0.0")

  995.             A10_tb.Text = Strings.Format(CDbl(A10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(33).Value.ToString), "#,##0.0")

  996.             A11_tb.Text = Strings.Format(CDbl(A11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(34).Value.ToString), "#,##0.0")

  997.             A12_tb.Text = Strings.Format(CDbl(A12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(35).Value.ToString), "#,##0.0")

  998.             減項總計_tb.Text = Strings.Format(CDbl(減項總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(36).Value.ToString), "#,##0.0")

  999.             B01_tb.Text = Strings.Format(CDbl(B01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(37).Value.ToString), "#,##0.0")

  1000.             B02_tb.Text = Strings.Format(CDbl(B02_tb.Text) + CDbl(Dgv1.Rows(i).Cells(38).Value.ToString), "#,##0.0")

  1001.             B03_tb.Text = Strings.Format(CDbl(B03_tb.Text) + CDbl(Dgv1.Rows(i).Cells(39).Value.ToString), "#,##0.0")

  1002.             B04_tb.Text = Strings.Format(CDbl(B04_tb.Text) + CDbl(Dgv1.Rows(i).Cells(40).Value.ToString), "#,##0.0")

  1003.             B05_tb.Text = Strings.Format(CDbl(B05_tb.Text) + CDbl(Dgv1.Rows(i).Cells(41).Value.ToString), "#,##0.0")

  1004.             B06_tb.Text = Strings.Format(CDbl(B06_tb.Text) + CDbl(Dgv1.Rows(i).Cells(42).Value.ToString), "#,##0.0")

  1005.             B07_tb.Text = Strings.Format(CDbl(B07_tb.Text) + CDbl(Dgv1.Rows(i).Cells(43).Value.ToString), "#,##0.0")

  1006.             B08_tb.Text = Strings.Format(CDbl(B08_tb.Text) + CDbl(Dgv1.Rows(i).Cells(44).Value.ToString), "#,##0.0")

  1007.             B09_tb.Text = Strings.Format(CDbl(B09_tb.Text) + CDbl(Dgv1.Rows(i).Cells(45).Value.ToString), "#,##0.0")

  1008.             B10_tb.Text = Strings.Format(CDbl(B10_tb.Text) + CDbl(Dgv1.Rows(i).Cells(46).Value.ToString), "#,##0.0")

  1009.             B11_tb.Text = Strings.Format(CDbl(B11_tb.Text) + CDbl(Dgv1.Rows(i).Cells(47).Value.ToString), "#,##0.0")

  1010.             B12_tb.Text = Strings.Format(CDbl(B12_tb.Text) + CDbl(Dgv1.Rows(i).Cells(48).Value.ToString), "#,##0.0")

  1011.             加項總計_tb.Text = Strings.Format(CDbl(加項總計_tb.Text) + CDbl(Dgv1.Rows(i).Cells(49).Value.ToString), "#,##0.0")

  1012.             C01_tb.Text = Strings.Format(CDbl(C01_tb.Text) + CDbl(Dgv1.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  1013.             C01_1_tb.Text = Strings.Format(CDbl(C01_1_tb.Text) + CDbl(Dgv1.Rows(i).Cells(50).Value.ToString), "#,##0.0")

  1014.             總時數_tb.Text = Strings.Format(CDbl(總時數_tb.Text) + CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString), "#,##0.0")

  1015.             平均時薪_tb.Text = Strings.Format(CDbl(總薪資1_tb.Text) / CDbl(總時數_tb.Text), "#,##0.0")

  1016.             BAAA加_tb.Text = Strings.Format(CDbl(BAAA加_tb.Text) + CDbl(Dgv1.Rows(i).Cells("BA+AA總額").Value.ToString), "#,##0.0")

  1017.             餘額_tb.Text = Strings.Format(CDbl(餘額_tb.Text) + CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  1018.             餘額比_tb.Text = Strings.Format((CDbl(餘額_tb.Text) / CDbl(BAAA加_tb.Text) * 100), "#,##0.0") & " %"

  1019. 

  1020.             Dgv1.Rows(i).Cells("BA正常").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA正常").Value.ToString), "#,##0.0")

  1021.             Dgv1.Rows(i).Cells("GA正常").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("GA正常").Value.ToString), "#,##0.0")

  1022.             Dgv1.Rows(i).Cells("主薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("主薪").Value.ToString), "#,##0.0")

  1023.             Dgv1.Rows(i).Cells("AA").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("AA").Value.ToString), "#,##0.0")

  1024.             Dgv1.Rows(i).Cells("加班費").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("加班費").Value.ToString), "#,##0.0")

  1025.             Dgv1.Rows(i).Cells("副薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("副薪").Value.ToString), "#,##0.0")

  1026.             Dgv1.Rows(i).Cells("總薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總薪").Value.ToString), "#,##0.0")

  1027.             Dgv1.Rows(i).Cells("平日工時").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日工時").Value.ToString), "##0.00")

  1028.             Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日平均時薪/含平日加班").Value.ToString), "#,##0.0")

  1029.             Dgv1.Rows(i).Cells("平日加班扣除額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日加班扣除額").Value.ToString), "#,##0.0")

  1030.             Dgv1.Rows(i).Cells("平日月薪/不含加班").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平日月薪/不含加班").Value.ToString), "#,##0.0")

  1031.             Dgv1.Rows(i).Cells("正常班平均時薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("正常班平均時薪").Value.ToString), "##0.00")

  1032.             Dgv1.Rows(i).Cells("總服務時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總服務時數").Value.ToString), "##0.00")

  1033.             Dgv1.Rows(i).Cells("總轉場時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總轉場時數").Value.ToString), "##0.00")

  1034.             Dgv1.Rows(i).Cells("服務津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("服務津貼").Value.ToString), "#,##0.0")

  1035.             Dgv1.Rows(i).Cells("轉場津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("轉場津貼").Value.ToString), "#,##0.0")

  1036.             Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("修正後月薪+Ａ+津貼").Value.ToString), "#,##0.0")

  1037.             Dgv1.Rows(i).Cells("加班費計算時薪標準").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("加班費計算時薪標準").Value.ToString), "#,##0.0")

  1038.             Dgv1.Rows(i).Cells("總薪資").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總薪資").Value.ToString), "#,##0.0")

  1039.             Dgv1.Rows(i).Cells("總時數").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("總時數").Value.ToString), "##0.00")

  1040.             Dgv1.Rows(i).Cells("平均時薪").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("平均時薪").Value.ToString), "#,##0.0")

  1041.             Dgv1.Rows(i).Cells("BA+AA總額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA+AA總額").Value.ToString), "#,##0.0")

  1042.             Dgv1.Rows(i).Cells("餘額").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("餘額").Value.ToString), "#,##0.0")

  1043.             Dgv1.Rows(i).Cells("餘額比").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("餘額比").Value.ToString) * 100, "#,##0.0") & " %"

  1044.             Dgv1.Rows(i).Cells("BA比例").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("BA比例").Value.ToString) * 100, "#,##0.0") & " %"

  1045.             Dgv1.Rows(i).Cells("AA比例").Value = Strings.Format(CDbl(Dgv1.Rows(i).Cells("AA比例").Value.ToString) * 100, "#,##0.0") & " %"

  1046.         Next

  1047.     End Sub

  1048.     Private Sub Set_加班計算()

  1049.         Set_服務資料()

  1050.         Dim ds As New DataSet : 加班計算_dgv.DataSource = Nothing : ds.Clear()

  1051.         加班計算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1052.         加班計算_dgv.ColumnHeadersHeight = 40 : 加班計算_dgv.AllowUserToAddRows = False : 加班計算_dgv.RowTemplate.Height = 25

  1053.         PA1 = 年份_cb.Text & 月份_cb.Text : SQL_加班計算_仁寶()

  1054.         da.Fill(ds) : 加班計算_dgv.DataSource = ds.Tables(0) : conn.Close()

  1055.         For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1

  1056.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Monday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "一" : End If

  1057.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Tuesday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "二" : End If

  1058.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Wednesday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "三" : End If

  1059.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Thursday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "四" : End If

  1060.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Friday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "五" : End If

  1061.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Saturday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "六" : End If

  1062.             If 加班計算_dgv.Rows(i).Cells("星期").Value.ToString = "Sunday" Then : 加班計算_dgv.Rows(i).Cells("星期").Value = "日" : End If

  1063.             If 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString = "" Then : 加班計算_dgv.Rows(i).Cells("服務時間_分").Value = 0 : End If

  1064.             If 加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString = "" Then : 加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value = 0 : End If

  1065.             加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = "0" : 加班計算_dgv.Rows(i).Cells("開始加班").Value = ""

  1066.             加班計算_dgv.Rows(i).Cells("第一段").Value = "0" : 加班計算_dgv.Rows(i).Cells("第二段").Value = "0" : 加班計算_dgv.Rows(i).Cells("合退").Value = "0"

  1067.             加班計算_dgv.Rows(i).Cells("驗1").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗2").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗3").Value = "0"

  1068.             加班計算_dgv.Rows(i).Cells("驗4").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗5").Value = "0" : 加班計算_dgv.Rows(i).Cells("驗6").Value = "0"

  1069.             加班計算_dgv.Rows(i).Cells("退1").Value = "0" : 加班計算_dgv.Rows(i).Cells("退2").Value = "0" : 加班計算_dgv.Rows(i).Cells("退3").Value = "0"

  1070.             加班計算_dgv.Rows(i).Cells("退4").Value = "0" : 加班計算_dgv.Rows(i).Cells("退5").Value = "0" : 加班計算_dgv.Rows(i).Cells("退6").Value = "0"

  1071.             加班計算_dgv.Rows(i).Cells("A10").Value = "" : 加班計算_dgv.Rows(i).Cells("A11").Value = "0" : 加班計算_dgv.Rows(i).Cells("A12").Value = "0"

  1072.             加班計算_dgv.Rows(i).Cells("A20").Value = "" : 加班計算_dgv.Rows(i).Cells("A21").Value = "0" : 加班計算_dgv.Rows(i).Cells("A22").Value = "0"

  1073.             加班計算_dgv.Rows(i).Cells("A30").Value = "" : 加班計算_dgv.Rows(i).Cells("A31").Value = "0" : 加班計算_dgv.Rows(i).Cells("A32").Value = "0"

  1074.             加班計算_dgv.Rows(i).Cells("A40").Value = "" : 加班計算_dgv.Rows(i).Cells("A41").Value = "0" : 加班計算_dgv.Rows(i).Cells("A42").Value = "0"

  1075.             加班計算_dgv.Rows(i).Cells("A50").Value = "" : 加班計算_dgv.Rows(i).Cells("A51").Value = "0" : 加班計算_dgv.Rows(i).Cells("A52").Value = "0"

  1076.             加班計算_dgv.Rows(i).Cells("A60").Value = "" : 加班計算_dgv.Rows(i).Cells("A61").Value = "0" : 加班計算_dgv.Rows(i).Cells("A62").Value = "0"

  1077.             If i = 0 Then : 加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString : Else

  1078.                 If 加班計算_dgv.Rows(i).Cells("日期").Value.ToString <> 加班計算_dgv.Rows(i - 1).Cells("日期").Value.ToString Then

  1079.                     加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = 加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString

  1080.                 Else

  1081.                     If 加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value.ToString = "" Then : 加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value = "0" : End If

  1082.                     加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value = CDbl(加班計算_dgv.Rows(i - 1).Cells("上班時間累加/分").Value.ToString) +

  1083.                                                                           CDbl(加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString) +

  1084.                                                                           CDbl(加班計算_dgv.Rows(i).Cells("服務時間_分").Value.ToString)

  1085.                 End If

  1086.             End If

  1087.             If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value) > 480 And 加班計算_dgv.Rows(i).Cells("星期").Value.ToString <> "六" And

  1088.                加班計算_dgv.Rows(i).Cells("星期").Value.ToString <> "日" Then

  1089.                 加班計算_dgv.Rows(i).Cells("開始加班").Value = "YES"

  1090.                 If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) >= 600 Then

  1091.                     加班計算_dgv.Rows(i).Cells("第一段").Value = "120"

  1092.                     If CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) > 720 Then : 加班計算_dgv.Rows(i).Cells("第二段").Value = "120"

  1093.                     Else : 加班計算_dgv.Rows(i).Cells("第二段").Value = CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) - 600 : End If

  1094.                 Else : 加班計算_dgv.Rows(i).Cells("第一段").Value = CDbl(加班計算_dgv.Rows(i).Cells("上班時間累加/分").Value.ToString) - 480 : End If

  1095.             End If

  1096.         Next : Dim AZ As Integer = 加班計算_dgv.Rows.Count - 1

  1097.         For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1

  1098.             If 加班計算_dgv.Rows(AZ - i).Cells("開始加班").Value = "YES" Then

  1099.                 If 加班計算_dgv.Rows(AZ - i).Cells("第一段").Value.ToString <> "" Then

  1100.                     If 加班計算_dgv.Rows.Count - 2 - i < 0 Then : Else

  1101.                         If 加班計算_dgv.Rows(AZ - i).Cells("日期").Value.ToString = 加班計算_dgv.Rows(AZ - 1 - i).Cells("日期").Value.ToString Then

  1102.                             加班計算_dgv.Rows(AZ - i).Cells("第一段").Value = CDbl(加班計算_dgv.Rows(AZ - i).Cells("第一段").Value.ToString) -

  1103.                                                                               CDbl(加班計算_dgv.Rows(AZ - 1 - i).Cells("第一段").Value.ToString)

  1104.                         End If : End If : End If

  1105.                 If 加班計算_dgv.Rows(AZ - i).Cells("第二段").Value.ToString <> "" Then

  1106.                     If 加班計算_dgv.Rows.Count - 2 - i < 0 Then : Else

  1107.                         If 加班計算_dgv.Rows(AZ - i).Cells("日期").Value.ToString = 加班計算_dgv.Rows(AZ - 1 - i).Cells("日期").Value.ToString Then

  1108.                             加班計算_dgv.Rows(AZ - i).Cells("第二段").Value = CDbl(加班計算_dgv.Rows(AZ - i).Cells("第二段").Value.ToString) -

  1109.                                                                               CDbl(加班計算_dgv.Rows(AZ - 1 - i).Cells("第二段").Value.ToString)

  1110.                         End If : End If : End If : End If

  1111.         Next

  1112.         For i As Integer = 0 To 加班計算_dgv.Rows.Count - 1

  1113.             Dim 可用時間 As Integer = 0

  1114.             If 加班計算_dgv.Rows(i).Cells("開始加班").Value.ToString = "YES" Then

  1115.                 可用時間 = CDbl(加班計算_dgv.Rows(i).Cells("第一段").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("第二段").Value.ToString) -

  1116.                            CDbl(加班計算_dgv.Rows(i).Cells("排班轉場時間_分").Value.ToString)

  1117.                 For ii As Integer = 0 To 服務資料_dgv.Rows.Count - 1

  1118.                     If 加班計算_dgv.Rows(i).Cells("日期").Value.ToString = 服務資料_dgv.Rows(ii).Cells("服務日期").Value.ToString And

  1119.                        加班計算_dgv.Rows(i).Cells("姓名").Value.ToString = 服務資料_dgv.Rows(ii).Cells("居服員姓名").Value.ToString And

  1120.                        加班計算_dgv.Rows(i).Cells("服務個案").Value.ToString = 服務資料_dgv.Rows(ii).Cells("姓名").Value.ToString Then

  1121.                         If 服務資料_dgv.Rows(ii).Cells("已使用").Value = "" Then

  1122.                             If 加班計算_dgv.Rows(i).Cells("A10").Value.ToString = "" Then

  1123.                                 加班計算_dgv.Rows(i).Cells("A10").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1124.                                 加班計算_dgv.Rows(i).Cells("A11").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1125.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4) = "BA17" Then

  1126.                                     加班計算_dgv.Rows(i).Cells("A10").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 5)

  1127.                                 Else

  1128.                                     加班計算_dgv.Rows(i).Cells("A10").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4)

  1129.                                 End If

  1130.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1131.                                     If 加班計算_dgv.Rows(i).Cells("A10").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1132.                                         加班計算_dgv.Rows(i).Cells("A12").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1133.                                     End If

  1134.                                 Next

  1135.                             ElseIf 加班計算_dgv.Rows(i).Cells("A20").Value.ToString = "" Then

  1136.                                 加班計算_dgv.Rows(i).Cells("A20").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1137.                                 加班計算_dgv.Rows(i).Cells("A21").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1138.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 4) = "BA17" Then

  1139.                                     加班計算_dgv.Rows(i).Cells("A20").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 5)

  1140.                                 Else

  1141.                                     加班計算_dgv.Rows(i).Cells("A20").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A20").Value.ToString, 4)

  1142.                                 End If

  1143.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1144.                                     If 加班計算_dgv.Rows(i).Cells("A20").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1145.                                         加班計算_dgv.Rows(i).Cells("A22").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1146.                                     End If

  1147.                                 Next

  1148.                             ElseIf 加班計算_dgv.Rows(i).Cells("A30").Value.ToString = "" Then

  1149.                                 加班計算_dgv.Rows(i).Cells("A30").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1150.                                 加班計算_dgv.Rows(i).Cells("A31").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1151.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 4) = "BA17" Then

  1152.                                     加班計算_dgv.Rows(i).Cells("A30").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 5)

  1153.                                 Else

  1154.                                     加班計算_dgv.Rows(i).Cells("A30").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A30").Value.ToString, 4)

  1155.                                 End If

  1156.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1157.                                     If 加班計算_dgv.Rows(i).Cells("A30").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1158.                                         加班計算_dgv.Rows(i).Cells("A32").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1159.                                     End If

  1160.                                 Next

  1161.                             ElseIf 加班計算_dgv.Rows(i).Cells("A40").Value.ToString = "" Then

  1162.                                 加班計算_dgv.Rows(i).Cells("A40").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1163.                                 加班計算_dgv.Rows(i).Cells("A41").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1164.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A10").Value.ToString, 4) = "BA17" Then

  1165.                                     加班計算_dgv.Rows(i).Cells("A40").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A40").Value.ToString, 5)

  1166.                                 Else

  1167.                                     加班計算_dgv.Rows(i).Cells("A40").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A40").Value.ToString, 4)

  1168.                                 End If

  1169.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1170.                                     If 加班計算_dgv.Rows(i).Cells("A40").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1171.                                         加班計算_dgv.Rows(i).Cells("A42").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1172.                                     End If

  1173.                                 Next

  1174.                             ElseIf 加班計算_dgv.Rows(i).Cells("A50").Value.ToString = "" Then

  1175.                                 加班計算_dgv.Rows(i).Cells("A50").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1176.                                 加班計算_dgv.Rows(i).Cells("A51").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1177.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 4) = "BA17" Then

  1178.                                     加班計算_dgv.Rows(i).Cells("A50").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 5)

  1179.                                 Else

  1180.                                     加班計算_dgv.Rows(i).Cells("A50").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A50").Value.ToString, 4)

  1181.                                 End If

  1182.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1183.                                     If 加班計算_dgv.Rows(i).Cells("A50").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1184.                                         加班計算_dgv.Rows(i).Cells("A52").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1185.                                     End If

  1186.                                 Next

  1187.                             ElseIf 加班計算_dgv.Rows(i).Cells("A60").Value.ToString = "" Then

  1188.                                 加班計算_dgv.Rows(i).Cells("A60").Value = 服務資料_dgv.Rows(ii).Cells("代碼").Value.ToString

  1189.                                 加班計算_dgv.Rows(i).Cells("A61").Value = 服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString

  1190.                                 If Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 4) = "BA17" Then

  1191.                                     加班計算_dgv.Rows(i).Cells("A60").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 5)

  1192.                                 Else

  1193.                                     加班計算_dgv.Rows(i).Cells("A60").Value = Strings.Left(加班計算_dgv.Rows(i).Cells("A60").Value.ToString, 4)

  1194.                                 End If

  1195.                                 For III As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1196.                                     If 加班計算_dgv.Rows(i).Cells("A60").Value.ToString = 碼別_dgv.Rows(III).Cells("碼別").Value.ToString Then

  1197.                                         加班計算_dgv.Rows(i).Cells("A62").Value = 碼別_dgv.Rows(III).Cells("每小時_錢").Value.ToString

  1198.                                     End If

  1199.                                 Next

  1200.                             End If

  1201.                             可用時間 -= CDbl(服務資料_dgv.Rows(ii).Cells("排班時間長度").Value.ToString)

  1202.                             If 可用時間 <= 0 Then : Exit For : End If

  1203.                         End If

  1204.                     End If

  1205.                 Next

  1206.                 加班計算_dgv.Rows(i).Cells("驗6").Value = CDbl(加班計算_dgv.Rows(i).Cells("第一段").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("第二段").Value.ToString) -

  1207.                                                           CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString)

  1208.                 加班計算_dgv.Rows(i).Cells("驗5").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString)

  1209.                 加班計算_dgv.Rows(i).Cells("驗4").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString)

  1210.                 加班計算_dgv.Rows(i).Cells("驗3").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString)

  1211.                 加班計算_dgv.Rows(i).Cells("驗2").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString)

  1212.                 加班計算_dgv.Rows(i).Cells("驗1").Value = CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString) - CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString)

  1213.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗1").Value.ToString) < 0 Then

  1214.                     加班計算_dgv.Rows(i).Cells("退1").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString) +

  1215.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗1").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1216.                 Else

  1217.                     加班計算_dgv.Rows(i).Cells("退1").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A11").Value.ToString) *

  1218.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1219.                 End If

  1220.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString) < 0 Then

  1221.                     加班計算_dgv.Rows(i).Cells("退2").Value = CDbl(加班計算_dgv.Rows(i).Cells("A22").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString) +

  1222.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗2").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1223.                 Else

  1224.                     加班計算_dgv.Rows(i).Cells("退2").Value = CDbl(加班計算_dgv.Rows(i).Cells("A22").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A21").Value.ToString) *

  1225.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1226.                 End If

  1227.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString) < 0 Then

  1228.                     加班計算_dgv.Rows(i).Cells("退3").Value = CDbl(加班計算_dgv.Rows(i).Cells("A32").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString) +

  1229.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗3").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1230.                 Else

  1231.                     加班計算_dgv.Rows(i).Cells("退3").Value = CDbl(加班計算_dgv.Rows(i).Cells("A12").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A31").Value.ToString) *

  1232.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1233.                 End If

  1234.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString) < 0 Then

  1235.                     加班計算_dgv.Rows(i).Cells("退4").Value = CDbl(加班計算_dgv.Rows(i).Cells("A42").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString) +

  1236.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗4").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1237.                 Else

  1238.                     加班計算_dgv.Rows(i).Cells("退4").Value = CDbl(加班計算_dgv.Rows(i).Cells("A42").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A41").Value.ToString) *

  1239.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1240.                 End If

  1241.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString) < 0 Then

  1242.                     加班計算_dgv.Rows(i).Cells("退5").Value = CDbl(加班計算_dgv.Rows(i).Cells("A52").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString) +

  1243.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗5").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1244.                 Else

  1245.                     加班計算_dgv.Rows(i).Cells("退5").Value = CDbl(加班計算_dgv.Rows(i).Cells("A52").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A51").Value.ToString) *

  1246.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1247.                 End If

  1248.                 If CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString) < 0 Then

  1249.                     加班計算_dgv.Rows(i).Cells("退6").Value = CDbl(加班計算_dgv.Rows(i).Cells("A62").Value.ToString) / 60 * (CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString) +

  1250.                                                               CDbl(加班計算_dgv.Rows(i).Cells("驗6").Value.ToString)) * CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1251.                 Else

  1252.                     加班計算_dgv.Rows(i).Cells("退6").Value = CDbl(加班計算_dgv.Rows(i).Cells("A62").Value.ToString) / 60 * CDbl(加班計算_dgv.Rows(i).Cells("A61").Value.ToString) *

  1253.                                                               CDbl(加班計算_dgv.Rows(i).Cells("BA比例").Value.ToString)

  1254.                 End If

  1255.                 加班計算_dgv.Rows(i).Cells("合退").Value = CDbl(加班計算_dgv.Rows(i).Cells("退1").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退2").Value.ToString) +

  1256.                                                            CDbl(加班計算_dgv.Rows(i).Cells("退3").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退4").Value.ToString) +

  1257.                                                            CDbl(加班計算_dgv.Rows(i).Cells("退5").Value.ToString) + CDbl(加班計算_dgv.Rows(i).Cells("退6").Value.ToString)

  1258.             End If

  1259.         Next

  1260.     End Sub

  1261.     Private Sub Set_服務資料()

  1262.         Dim ds As New DataSet : 服務資料_dgv.DataSource = Nothing : ds.Clear()

  1263.         服務資料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1264.         服務資料_dgv.ColumnHeadersHeight = 40 : 服務資料_dgv.AllowUserToAddRows = False : 服務資料_dgv.RowTemplate.Height = 25

  1265.         PA1 = 年份_cb.Text & 月份_cb.Text : SQL_服務資料_仁寶()

  1266.         da.Fill(ds) : 服務資料_dgv.DataSource = ds.Tables(0) : conn.Close()

  1267.         For i As Integer = 0 To 服務資料_dgv.Rows.Count - 1 : 服務資料_dgv.Rows(i).Cells("已使用").Value = "" : Next

  1268.     End Sub

  1269.     Private Sub Set_階級加給()

  1270.         Dim ds As New DataSet : 階級津貼_dgv.DataSource = Nothing : ds.Clear()

  1271.         階級津貼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1272.         階級津貼_dgv.ColumnHeadersHeight = 40 : 階級津貼_dgv.AllowUserToAddRows = False : 階級津貼_dgv.RowTemplate.Height = 25

  1273.         SQL_階級加給()

  1274.         da.Fill(ds) : 階級津貼_dgv.DataSource = ds.Tables(0) : conn.Close()

  1275.         階級津貼_dgv.Columns("加給").DefaultCellStyle.Format = "#,##0" : 階級津貼_dgv.Columns("級數").DefaultCellStyle.Format = "#,##0"

  1276.         階級津貼_dgv.Columns("加給").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  1277.         階級津貼_dgv.Columns("加給").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  1278.         階級津貼_dgv.Columns("級數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

  1279.         階級津貼_dgv.Columns("級數").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

  1280.         階級津貼_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  1281.         階級津貼_dgv.Columns("流水號").ReadOnly = False : 階級津貼_dgv.Columns("內容").ReadOnly = False : 階級津貼_dgv.Columns("級數1").Visible = False

  1282.         If 階級津貼_dgv.Rows.Count = 0 Then

  1283.             SQL_階級加給_預設() : da.Fill(ds) : 階級津貼_dgv.DataSource = ds.Tables(0) : conn.Close()

  1284.             For i As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  1285.                 階級津貼_dgv.Rows(i).Cells("流水號").Value = 年份_cb.Text & 月份_cb.Text

  1286.                 SQL2 = "(N'" & 階級津貼_dgv.Rows(i).Cells("流水號").Value.ToString & "', N'" & 階級津貼_dgv.Rows(i).Cells("內容").Value.ToString & "', 

  1287.                          N'" & 階級津貼_dgv.Rows(i).Cells("級數").Value.ToString & "', N'" & 階級津貼_dgv.Rows(i).Cells("加給").Value.ToString & "')"

  1288.                 SQL_階級加給_新增()

  1289.             Next

  1290.         End If

  1291.     End Sub

  1292.     Private Sub Set_BA比1()

  1293.         Dim ds As New DataSet : BA比1_dgv.DataSource = Nothing : ds.Clear()

  1294.         BA比1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1295.         BA比1_dgv.ColumnHeadersHeight = 40 : BA比1_dgv.AllowUserToAddRows = False : BA比1_dgv.RowTemplate.Height = 25

  1296.         SQL_BA比()

  1297.         da.Fill(ds) : BA比1_dgv.DataSource = ds.Tables(0) : conn.Close()

  1298.     End Sub

  1299.     Private Sub Set_BA比2()

  1300.         Dim ds1 As New DataSet : BA比_dgv.DataSource = Nothing : ds1.Clear()

  1301.         BA比_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1302.         BA比_dgv.ColumnHeadersHeight = 40 : BA比_dgv.AllowUserToAddRows = False : BA比_dgv.RowTemplate.Height = 25

  1303.         SQL_BA比_當月()

  1304.         da.Fill(ds1) : BA比_dgv.DataSource = ds1.Tables(0) : conn.Close()

  1305.         BA比_dgv.Columns(0).ReadOnly = False : BA比_dgv.Columns(1).ReadOnly = False

  1306.         BA比_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  1307.     End Sub

  1308.     Private Sub Set_碼別()

  1309.         Dim ds As New DataSet : 碼別_dgv.DataSource = Nothing : ds.Clear()

  1310.         碼別_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1311.         碼別_dgv.ColumnHeadersHeight = 40 : 碼別_dgv.AllowUserToAddRows = False : 碼別_dgv.RowTemplate.Height = 25

  1312.         SQL_碼別()

  1313.         da.Fill(ds) : 碼別_dgv.DataSource = ds.Tables(0) : conn.Close()

  1314.         碼別_dgv.Columns(1).DefaultCellStyle.Format = "#,##0.0"

  1315.         碼別_dgv.Columns(0).ReadOnly = False : 碼別_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  1316.     End Sub

  1317.     Private Sub Set_表頭()

  1318.         Dim ds As New DataSet : 表頭_dgv.DataSource = Nothing : ds.Clear()

  1319.         表頭_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1320.         表頭_dgv.ColumnHeadersHeight = 40 : 表頭_dgv.AllowUserToAddRows = False : 表頭_dgv.RowTemplate.Height = 25

  1321.         SQL_表頭()

  1322.         da.Fill(ds) : 表頭_dgv.DataSource = ds.Tables(0) : conn.Close()

  1323.         表頭_dgv.Columns(0).FillWeight = 40 : 表頭_dgv.Columns(0).ReadOnly = False : 表頭_dgv.EditMode = DataGridViewEditMode.EditOnEnter

  1324.     End Sub

  1325.     Private Sub Set_差額()

  1326.         Dim ds As New DataSet : 差異_dgv.DataSource = Nothing : ds.Clear()

  1327.         差異_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  1328.         差異_dgv.ColumnHeadersHeight = 40 : 差異_dgv.AllowUserToAddRows = False : 差異_dgv.RowTemplate.Height = 25

  1329.         da.Fill(ds) : 差異_dgv.DataSource = ds.Tables(0) : conn.Close()

  1330.         差異_dgv.Columns(0).ReadOnly = False : 差異_dgv.Columns(1).ReadOnly = False : 差異_dgv.Columns(2).ReadOnly = False

  1331.         If 是否有差額 = False Then

  1332.             For I As Integer = 0 To 差異_dgv.Rows.Count - 1 : 差異_dgv.Rows(I).Cells(2).Value = "0" : Next

  1333.         End If : 差異_tb.Text = "0"

  1334.         For i As Integer = 0 To 差異_dgv.Rows.Count - 1

  1335.             差異_tb.Text = Strings.Format(CDbl(差異_tb.Text) + CDbl(差異_dgv.Rows(i).Cells("差額").Value.ToString), "#,##0")

  1336.         Next

  1337.     End Sub

  1338.     Private Sub 加班計算_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 加班計算_dgv.RowPostPaint

  1339.         Dim linePen As New Pen(Color.Blue, 2)

  1340.         If e.RowIndex = 加班計算_dgv.Rows.Count - 1 Then

  1341.             Exit Sub

  1342.         Else

  1343.             If 加班計算_dgv("日期", e.RowIndex).Value.ToString <> 加班計算_dgv("日期", e.RowIndex + 1).Value.ToString Then

  1344.                 Dim startX As Integer = IIf(加班計算_dgv.RowHeadersVisible, 加班計算_dgv.RowHeadersWidth, 0)

  1345.                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1

  1346.                 Dim endX As Integer = startX + 加班計算_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 加班計算_dgv.HorizontalScrollingOffset

  1347.                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)

  1348.                 Exit Sub

  1349.             End If

  1350.         End If

  1351.     End Sub

  1352.     Private Sub Dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles Dgv.CellEndEdit

  1353.         Set_薪資計算()

  1354.     End Sub

  1355.     Private Sub Dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv.CellClick

  1356.         If e.RowIndex = -1 Then : Else : 位置 = e.RowIndex : 寫入薪資條()

  1357.         End If

  1358.     End Sub

  1359.     Private Sub 寫入薪資條()

  1360.         姓名_lb.Text = Dgv("姓名", 位置).Value.ToString : 正常_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString), "#,##0")

  1361.         正常1_lb.Text = Strings.Format(CDbl(Dgv("平日月薪/不含加班", 位置).Value.ToString), "#,##0")

  1362.         加班_lb.Text = Strings.Format(CDbl(Dgv("加班費", 位置).Value.ToString), "#,##0")

  1363.         AA1_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0") : AA2_lb.Text = Strings.Format(CDbl(Dgv("AA", 位置).Value.ToString), "#,##0")

  1364.         平時新_lb.Text = Dgv("正常班平均時薪", 位置).Value.ToString

  1365.         時1_lb.Text = Strings.Format(CDbl(Dgv("平9-10", 位置).Value.ToString), "#,##0.0") : 時2_lb.Text = Strings.Format(CDbl(Dgv("休0-2", 位置).Value.ToString), "#,##0.0")

  1366.         時3_lb.Text = Strings.Format(CDbl(Dgv("平11-12", 位置).Value.ToString), "#,##0.0") : 時4_lb.Text = Strings.Format(CDbl(Dgv("休3-8", 位置).Value.ToString), "#,##0.0")

  1367.         時5_lb.Text = Strings.Format(CDbl(Dgv("國0-2", 位置).Value.ToString) + CDbl(Dgv("國3-8", 位置).Value.ToString), "#,##0.0")

  1368.         正常工_lb.Text = Strings.Format(CDbl(Dgv("平0-8", 位置).Value.ToString), "#,##0.0") : 特休_lb.Text = Strings.Format(CDbl(Dgv(50, 位置).Value.ToString), "#,##0.0")

  1369.         平日轉_lb.Text = Strings.Format(CDbl(Dgv("平日轉場", 位置).Value.ToString), "#,##0.0")

  1370.         薪1_lb.Text = Strings.Format((CDbl(倍1_lb.Text) * CDbl(平時新_lb.Text)), "#,##0.0") : 薪2_lb.Text = Strings.Format((CDbl(倍2_lb.Text) * CDbl(平時新_lb.Text)), "#,##0.0")

  1371.         薪3_lb.Text = Strings.Format((CDbl(倍3_lb.Text) * CDbl(平時新_lb.Text)), "#,##0.0") : 薪4_lb.Text = Strings.Format((CDbl(倍4_lb.Text) * CDbl(平時新_lb.Text)), "#,##0.0")

  1372.         薪5_lb.Text = Strings.Format((CDbl(倍5_lb.Text) * CDbl(平時新_lb.Text)), "#,##0.0")

  1373.         費1_tb.Text = Strings.Format((CDbl(時1_lb.Text) * CDbl(薪1_lb.Text)), "#,##0") : 費2_tb.Text = Strings.Format((CDbl(時2_lb.Text) * CDbl(薪2_lb.Text)), "#,##0")

  1374.         費3_tb.Text = Strings.Format((CDbl(時3_lb.Text) * CDbl(薪3_lb.Text)), "#,##0") : 費4_tb.Text = Strings.Format((CDbl(時4_lb.Text) * CDbl(薪4_lb.Text)), "#,##0")

  1375.         費5_tb.Text = Strings.Format((CDbl(時5_lb.Text) * CDbl(薪5_lb.Text)), "#,##0")

  1376.         小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")

  1377.         合1_lb.Text = Strings.Format((CDbl(正常_lb.Text) + CDbl(AA1_lb.Text) + CDbl(加班_lb.Text) + CDbl(特休_lb.Text)), "#,##0")

  1378.         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

  1379.         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

  1380.         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

  1381.         A04_alb.Text = Strings.Format(CDbl(Dgv(27, 位置).Value.ToString), "#,##0") : If CDbl(A04_alb.Text) > 0 Then : A04_clb.Text = A04_lb.Text : Else : A04_clb.Text = "" : End If

  1382.         A05_alb.Text = Strings.Format(CDbl(Dgv(28, 位置).Value.ToString), "#,##0") : If CDbl(A05_alb.Text) > 0 Then : A05_clb.Text = A05_lb.Text : Else : A05_clb.Text = "" : End If

  1383.         A06_alb.Text = Strings.Format(CDbl(Dgv(29, 位置).Value.ToString), "#,##0") : If CDbl(A06_alb.Text) > 0 Then : A06_clb.Text = A06_lb.Text : Else : A06_clb.Text = "" : End If

  1384.         A07_alb.Text = Strings.Format(CDbl(Dgv(30, 位置).Value.ToString), "#,##0") : If CDbl(A07_alb.Text) > 0 Then : A07_clb.Text = A07_lb.Text : Else : A07_clb.Text = "" : End If

  1385.         A08_alb.Text = Strings.Format(CDbl(Dgv(31, 位置).Value.ToString), "#,##0") : If CDbl(A08_alb.Text) > 0 Then : A08_clb.Text = A08_lb.Text : Else : A08_clb.Text = "" : End If

  1386.         A09_alb.Text = Strings.Format(CDbl(Dgv(32, 位置).Value.ToString), "#,##0") : If CDbl(A09_alb.Text) > 0 Then : A09_clb.Text = A09_lb.Text : Else : A09_clb.Text = "" : End If

  1387.         A10_alb.Text = Strings.Format(CDbl(Dgv(33, 位置).Value.ToString), "#,##0") : If CDbl(A10_alb.Text) > 0 Then : A10_clb.Text = A10_lb.Text : Else : A10_clb.Text = "" : End If

  1388.         A11_alb.Text = Strings.Format(CDbl(Dgv(34, 位置).Value.ToString), "#,##0") : If CDbl(A11_alb.Text) > 0 Then : A11_clb.Text = A11_lb.Text : Else : A11_clb.Text = "" : End If

  1389.         A12_alb.Text = Strings.Format(CDbl(Dgv(35, 位置).Value.ToString), "#,##0") : If CDbl(A12_alb.Text) > 0 Then : A12_clb.Text = A12_lb.Text : Else : A12_clb.Text = "" : End If

  1390.         小2_lb.Text = Strings.Format((CDbl(A01_alb.Text) + CDbl(A02_alb.Text) + CDbl(A03_alb.Text) + CDbl(A04_alb.Text) + CDbl(A05_alb.Text) + CDbl(A06_alb.Text) + CDbl(A07_alb.Text) +

  1391.                                           CDbl(A08_alb.Text) + CDbl(A09_alb.Text) + CDbl(A10_alb.Text) + CDbl(A11_alb.Text) + CDbl(A12_alb.Text)), "#,##0")

  1392.         小21_lb.Text = 小2_lb.Text

  1393.         B01_alb.Text = Strings.Format(CDbl(Dgv(37, 位置).Value.ToString), "#,##0") : If CDbl(B01_alb.Text) > 0 Then : B01_clb.Text = B01_lb.Text : Else : B01_clb.Text = "" : End If

  1394.         B02_alb.Text = Strings.Format(CDbl(Dgv(38, 位置).Value.ToString), "#,##0") : If CDbl(B02_alb.Text) > 0 Then : B02_clb.Text = B02_lb.Text : Else : B02_clb.Text = "" : End If

  1395.         B03_alb.Text = Strings.Format(CDbl(Dgv(39, 位置).Value.ToString), "#,##0") : If CDbl(B03_alb.Text) > 0 Then : B03_clb.Text = B03_lb.Text : Else : B03_clb.Text = "" : End If

  1396.         B04_alb.Text = Strings.Format(CDbl(Dgv(40, 位置).Value.ToString), "#,##0") : If CDbl(B04_alb.Text) > 0 Then : B04_clb.Text = B04_lb.Text : Else : B04_clb.Text = "" : End If

  1397.         B05_alb.Text = Strings.Format(CDbl(Dgv(41, 位置).Value.ToString), "#,##0") : If CDbl(B05_alb.Text) > 0 Then : B05_clb.Text = B05_lb.Text : Else : B05_clb.Text = "" : End If

  1398.         B06_alb.Text = Strings.Format(CDbl(Dgv(42, 位置).Value.ToString), "#,##0") : If CDbl(B06_alb.Text) > 0 Then : B06_clb.Text = B06_lb.Text : Else : B06_clb.Text = "" : End If

  1399.         B07_alb.Text = Strings.Format(CDbl(Dgv(43, 位置).Value.ToString), "#,##0") : If CDbl(B07_alb.Text) > 0 Then : B07_clb.Text = B07_lb.Text : Else : B07_clb.Text = "" : End If

  1400.         B08_alb.Text = Strings.Format(CDbl(Dgv(44, 位置).Value.ToString), "#,##0") : If CDbl(B08_alb.Text) > 0 Then : B08_clb.Text = B08_lb.Text : Else : B08_clb.Text = "" : End If

  1401.         B09_alb.Text = Strings.Format(CDbl(Dgv(45, 位置).Value.ToString), "#,##0") : If CDbl(B09_alb.Text) > 0 Then : B09_clb.Text = B09_lb.Text : Else : B09_clb.Text = "" : End If

  1402.         B10_alb.Text = Strings.Format(CDbl(Dgv(46, 位置).Value.ToString), "#,##0") : If CDbl(B10_alb.Text) > 0 Then : B10_clb.Text = B10_lb.Text : Else : B10_clb.Text = "" : End If

  1403.         B11_alb.Text = Strings.Format(CDbl(Dgv(47, 位置).Value.ToString), "#,##0") : If CDbl(B11_alb.Text) > 0 Then : B11_clb.Text = B11_lb.Text : Else : B11_clb.Text = "" : End If

  1404.         B12_alb.Text = Strings.Format(CDbl(Dgv(48, 位置).Value.ToString), "#,##0") : If CDbl(B12_alb.Text) > 0 Then : B12_clb.Text = B12_lb.Text : Else : B12_clb.Text = "" : End If

  1405.         小3_lb.Text = Strings.Format((CDbl(B01_alb.Text) + CDbl(B02_alb.Text) + CDbl(B03_alb.Text) + CDbl(B04_alb.Text) + CDbl(B05_alb.Text) + CDbl(B06_alb.Text) + CDbl(B07_alb.Text) +

  1406.                                           CDbl(B08_alb.Text) + CDbl(B09_alb.Text) + CDbl(B10_alb.Text) + CDbl(B11_alb.Text) + CDbl(B12_alb.Text)), "#,##0")

  1407.         小31_lb.Text = 小3_lb.Text : 實領_lb.Text = Strings.Format((CDbl(合1_lb.Text) - CDbl(小2_lb.Text) + CDbl(小3_lb.Text)), "#,##0")

  1408.     End Sub

  1409.     Private Sub 存檔3_bt_MouseEnter(sender As Object, e As EventArgs) Handles 存檔3_bt.MouseEnter

  1410.         ToolTip1.SetToolTip(Me.存檔3_bt, "存檔")

  1411.     End Sub

  1412.     Private Sub 比對前_bt_MouseEnter(sender As Object, e As EventArgs) Handles 比對前_bt.MouseEnter

  1413.         ToolTip1.SetToolTip(Me.比對前_bt, "依 [仁寶A碼] 計算出的薪資表")

  1414.     End Sub

  1415.     Private Sub 比對後_bt_MouseEnter(sender As Object, e As EventArgs) Handles 比對後_bt.MouseEnter

  1416.         ToolTip1.SetToolTip(Me.比對後_bt, "依 [長照所A碼] 計算出的薪資表")

  1417.     End Sub

  1418.     Private Sub 薪資條_bt_MouseEnter(sender As Object, e As EventArgs) Handles 薪資條_bt.MouseEnter

  1419.         ToolTip1.SetToolTip(Me.薪資條_bt, "薪資條")

  1420.     End Sub

  1421.     Private Sub 人員向前_bt_MouseEnter(sender As Object, e As EventArgs) Handles 人員向前_bt.MouseEnter

  1422.         ToolTip1.SetToolTip(Me.人員向前_bt, "上一位人員")

  1423.     End Sub

  1424.     Private Sub 人員向後_bt_MouseEnter(sender As Object, e As EventArgs) Handles 人員向後_bt.MouseEnter

  1425.         ToolTip1.SetToolTip(Me.人員向後_bt, "下一位人員")

  1426.     End Sub

  1427.     Private Sub 重讀_bt_MouseEnter(sender As Object, e As EventArgs) Handles 重讀_bt.MouseEnter

  1428.         ToolTip1.SetToolTip(Me.重讀_bt, "重新讀取")

  1429.     End Sub

  1430.     Private Sub 設定1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 設定1_bt.MouseEnter

  1431.         ToolTip1.SetToolTip(Me.設定1_bt, "系統設定")

  1432.     End Sub

  1433.     Private Sub 拆帳制薪資試算表_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  1434.         Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  1435.         Panel1.Visible = False : Panel2.Visible = False : Panel4.Visible = False : Dgv.BringToFront() : 主表_ch.Checked = True : 主表_P.BringToFront()

  1436.         Dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1437.         Dgv1.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1438.         階級津貼_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1439.         BA比_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1440.         碼別_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1441.         表頭_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)

  1442.     End Sub

  1443.     Private Sub 拆帳制薪資試算表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown

  1444.         SQL_讀取公司名稱() : If dr.Read() Then : 公司名_lb.Text = dr("公司名稱") & " 薪資條" : End If

  1445.         Set_碼別() : Set_表頭()

  1446.         SQL_營運成本收支單對帳表_查詢最後一筆年份清單() : 年份_cb.Items.Clear() : 年份_cb.Items.Add("") : While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()

  1447.         SQL_資料日期01() : If dr.Read Then : 年份_cb.Text = Strings.Left(dr("流水號").ToString, 4) : 月份_cb.Text = Strings.Right(dr("流水號").ToString, 2) : End If

  1448.         If 拆帳制考勤文件導入.年份_cb.Text <> "" Then : 年份_cb.Text = 拆帳制考勤文件導入.年份_cb.Text

  1449.         ElseIf 年份_cb.Text = "" Then : 年份_cb.Text = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 4) : End If

  1450.         If 拆帳制考勤文件導入.月份_cb.Text <> "" Then : 月份_cb.Text = 拆帳制考勤文件導入.月份_cb.Text

  1451.         ElseIf 月份_cb.Text = "" Then : 月份_cb.Text = Strings.Mid(Strings.Format(Today(), "yyyy/MM/dd"), 6, 2) : End If

  1452. 

  1453.         分流計算.Enabled = True

  1454.     End Sub

  1455.     Private Sub 分流計算_Tick(sender As Object, e As EventArgs) Handles 分流計算.Tick

  1456.         Set_服務人員() : 首次開啟 = False : 分流計算.Enabled = False

  1457.     End Sub

  1458.     Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged

  1459.         If 首次開啟 = False Then : Set_服務人員() : End If

  1460.     End Sub

  1461.     Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged

  1462.         If 首次開啟 = False Then : Set_服務人員() : End If

  1463.     End Sub

  1464.     Private Sub 比對前_bt_Click(sender As Object, e As EventArgs) Handles 比對前_bt.Click

  1465.         Dgv.BringToFront() : Set_薪資計算() : Set_分頁()

  1466.     End Sub

  1467.     Private Sub 比對後_bt_Click(sender As Object, e As EventArgs) Handles 比對後_bt.Click

  1468.         SQL_確認A碼長照()

  1469.         If dr.Read Then

  1470.             Dgv1.BringToFront() : Set_服務人員1() : 算差額()

  1471.         Else : MsgBox("系統內無長照所A碼資料!!") : End If

  1472.     End Sub

  1473.     Private Sub 算差額()

  1474.         差異_tb.Text = "0" : SQL2 = "" : SQL_差額刪除()

  1475.         For I As Integer = 0 To Dgv.Rows.Count - 1

  1476.             For II As Integer = 0 To Dgv1.Rows.Count - 1

  1477.                 If Dgv.Rows(I).Cells("姓名").Value.ToString = Dgv1.Rows(II).Cells("姓名").Value.ToString Then

  1478.                     For III As Integer = 0 To 差異_dgv.Rows.Count - 1

  1479.                         If Dgv.Rows(I).Cells("姓名").Value.ToString = 差異_dgv.Rows(III).Cells("姓名").Value.ToString Then

  1480.                             差異_dgv.Rows(III).Cells("差額").Value = Strings.Format(CDbl(Dgv1.Rows(II).Cells("總薪資").Value.ToString) -

  1481.                                                                                     CDbl(Dgv.Rows(I).Cells("總薪資").Value.ToString), "#,##0")

  1482.                             差異_tb.Text = Strings.Format(CDbl(差異_tb.Text) + CDbl(差異_dgv.Rows(III).Cells("差額").Value.ToString), "#,##0")

  1483.                             SQL2 &= "(N'" & 年份_cb.Text & 月份_cb.Text & "',N'" & 差異_dgv.Rows(III).Cells("姓名").Value.ToString & "',

  1484.                                       N'" & 差異_dgv.Rows(III).Cells("差額").Value.ToString & "')," : Exit For

  1485.                         End If

  1486.                     Next : Exit For

  1487.                 End If

  1488.             Next

  1489.         Next : If Not String.IsNullOrEmpty(SQL2) AndAlso SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If : SQL_差額新增() : SQL2 = ""

  1490.     End Sub

  1491.     Private Sub 設定1_bt_Click(sender As Object, e As EventArgs) Handles 設定1_bt.Click

  1492.         If Panel2.Visible = True Then

  1493.             Panel2.Visible = False : Dgv.BringToFront() : Set_薪資計算() : Set_分頁()

  1494.         Else

  1495.             Panel2.Visible = True : Panel2.BringToFront()

  1496.         End If

  1497.     End Sub

  1498.     Private Sub 薪資條_bt_Click(sender As Object, e As EventArgs) Handles 薪資條_bt.Click

  1499.         If Panel4.Visible = True Then

  1500.             Panel4.Visible = False : Dgv.BringToFront() : Set_薪資計算() : Set_分頁() : 寫入薪資條()

  1501.         Else

  1502.             Panel4.Visible = True : Panel4.BringToFront() : 寫入薪資條()

  1503.         End If

  1504.     End Sub

  1505.     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click

  1506.         For i As Integer = 0 To 階級津貼_dgv.Rows.Count - 1

  1507.             PA1 = 階級津貼_dgv.Rows(i).Cells("流水號").Value.ToString : PA10 = 階級津貼_dgv.Rows(i).Cells("級數").Value.ToString : PA11 = 階級津貼_dgv.Rows(i).Cells("級數1").Value.ToString

  1508.             PA20 = 階級津貼_dgv.Rows(i).Cells("加給").Value.ToString : PA30 = 階級津貼_dgv.Rows(i).Cells("內容").Value.ToString

  1509.             SQL_階級加給_修改()

  1510.         Next : MsgBox("係數修改完畢!!")

  1511.         Set_階級加給() : Set_薪資計算()

  1512.     End Sub

  1513.     Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click

  1514.         For i As Integer = 0 To BA比_dgv.Rows.Count - 1

  1515.             PA1 = "" : PA2 = BA比_dgv.Rows(i).Cells("姓名").Value.ToString : PA3 = BA比_dgv.Rows(i).Cells("BA").Value.ToString : SQL_BA比_修改()

  1516.             PA1 = BA比_dgv.Rows(i).Cells("流水號").Value.ToString : SQL_BA比_修改()

  1517.         Next : MsgBox("係數修改完畢!!") : Set_BA比1() : Set_BA比2() : Set_薪資計算()

  1518.     End Sub

  1519.     Private Sub 存檔2_bt_Click(sender As Object, e As EventArgs) Handles 存檔2_bt.Click

  1520.         For i As Integer = 0 To 表頭_dgv.Rows.Count - 1

  1521.             PA2 = 表頭_dgv.Rows(i).Cells("對應").Value.ToString : PA3 = 表頭_dgv.Rows(i).Cells("欄位名稱").Value.ToString : SQL_表頭_修改()

  1522.         Next : MsgBox("係數修改完畢!!") : Set_服務人員()

  1523.     End Sub

  1524.     Private Sub 存檔3_bt_Click(sender As Object, e As EventArgs) Handles 存檔3_bt.Click

  1525.         PA1 = 年份_cb.Text & 月份_cb.Text : SQL_其他表查詢() : Dim 需要新增 As Boolean = True : If dr.Read Then : 需要新增 = False : End If

  1526.         For i As Integer = 0 To Dgv.Rows.Count - 1

  1527.             If 需要新增 = True Then

  1528.                 SQL2 = "(N'" & PA1 & "',N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "',N'" & Dgv.Rows(i).Cells(24).Value & "',

  1529.                          N'" & Dgv.Rows(i).Cells(25).Value & "',N'" & Dgv.Rows(i).Cells(26).Value & "',N'" & Dgv.Rows(i).Cells(27).Value & "',N'" & Dgv.Rows(i).Cells(28).Value & "',

  1530.                          N'" & Dgv.Rows(i).Cells(29).Value & "',N'" & Dgv.Rows(i).Cells(30).Value & "',N'" & Dgv.Rows(i).Cells(31).Value & "',N'" & Dgv.Rows(i).Cells(32).Value & "',

  1531.                          N'" & Dgv.Rows(i).Cells(33).Value & "',N'" & Dgv.Rows(i).Cells(34).Value & "',N'" & Dgv.Rows(i).Cells(35).Value & "',N'" & Dgv.Rows(i).Cells(37).Value & "',

  1532.                          N'" & Dgv.Rows(i).Cells(38).Value & "',N'" & Dgv.Rows(i).Cells(39).Value & "',N'" & Dgv.Rows(i).Cells(40).Value & "',N'" & Dgv.Rows(i).Cells(41).Value & "',

  1533.                          N'" & Dgv.Rows(i).Cells(42).Value & "',N'" & Dgv.Rows(i).Cells(43).Value & "',N'" & Dgv.Rows(i).Cells(44).Value & "',N'" & Dgv.Rows(i).Cells(45).Value & "',

  1534.                          N'" & Dgv.Rows(i).Cells(46).Value & "',N'" & Dgv.Rows(i).Cells(47).Value & "',N'" & Dgv.Rows(i).Cells(48).Value & "',N'" & Dgv.Rows(i).Cells(50).Value & "',

  1535.                          N'" & Dgv.Rows(i).Cells("其他").Value & "')"

  1536.                 SQL_其他表_新增()

  1537.             Else

  1538.                 SQL2 = "A01 = N'" & Dgv.Rows(i).Cells(24).Value & "', A02 = N'" & Dgv.Rows(i).Cells(25).Value & "', A03 = N'" & Dgv.Rows(i).Cells(26).Value & "', 

  1539.                         A04 = N'" & Dgv.Rows(i).Cells(27).Value & "', A05 = N'" & Dgv.Rows(i).Cells(28).Value & "', A06 = N'" & Dgv.Rows(i).Cells(29).Value & "', 

  1540.                         A07 = N'" & Dgv.Rows(i).Cells(30).Value & "', A08 = N'" & Dgv.Rows(i).Cells(31).Value & "', A09 = N'" & Dgv.Rows(i).Cells(32).Value & "', 

  1541.                         A10 = N'" & Dgv.Rows(i).Cells(33).Value & "', A11 = N'" & Dgv.Rows(i).Cells(34).Value & "', A12 = N'" & Dgv.Rows(i).Cells(35).Value & "', 

  1542.                         B01 = N'" & Dgv.Rows(i).Cells(37).Value & "', B02 = N'" & Dgv.Rows(i).Cells(38).Value & "', B03 = N'" & Dgv.Rows(i).Cells(39).Value & "', 

  1543.                         B04 = N'" & Dgv.Rows(i).Cells(40).Value & "', B05 = N'" & Dgv.Rows(i).Cells(41).Value & "', B06 = N'" & Dgv.Rows(i).Cells(42).Value & "', 

  1544.                         B07 = N'" & Dgv.Rows(i).Cells(43).Value & "', B08 = N'" & Dgv.Rows(i).Cells(44).Value & "', B09 = N'" & Dgv.Rows(i).Cells(45).Value & "', 

  1545.                         B10 = N'" & Dgv.Rows(i).Cells(46).Value & "', B11 = N'" & Dgv.Rows(i).Cells(47).Value & "', B12 = N'" & Dgv.Rows(i).Cells(48).Value & "', 

  1546.                         C01 = N'" & Dgv.Rows(i).Cells(50).Value & "', 其他 = N'" & Dgv.Rows(i).Cells("其他").Value & "'  

  1547.                         WHERE 流水號 LIKE N'" & PA1 & "' AND  姓名 LIKE N'" & Dgv.Rows(i).Cells("姓名").Value.ToString & "'"

  1548.                 SQL_其他表_修改()

  1549.             End If

  1550.         Next : MsgBox("薪資表修改完畢!!")

  1551.     End Sub

  1552.     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click

  1553.         PA20 = "" : PA21 = "" : PA20 = InputBox("請輸入碼別!!") : PA21 = InputBox("請輸入碼別 [" & PA20 & "]，每小時多少錢!!")

  1554.         If PA20 <> "" And IsNumeric(PA21) = True Then : SQL_碼別_查詢() : If dr.Read Then : MsgBox("該碼別已經新增過了") : Else : SQL_碼別_新增() : Set_碼別() : End If : End If

  1555.     End Sub

  1556.     Private Sub 存檔4_bt_Click(sender As Object, e As EventArgs) Handles 存檔4_bt.Click

  1557.         For i As Integer = 0 To 碼別_dgv.Rows.Count - 1

  1558.             PA20 = 碼別_dgv.Rows(i).Cells(0).Value.ToString : PA21 = 碼別_dgv.Rows(i).Cells(1).Value.ToString : SQL_碼別_修改()

  1559.         Next : MsgBox("係數修改完畢!!") : Set_加班計算() : Set_薪資計算()

  1560.     End Sub

  1561.     Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click

  1562.         Set_薪資計算()

  1563.     End Sub

  1564.     Private Sub 主表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主表_ch.Click

  1565.         主表_ch.Checked = True : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False : 其它_ch.Checked = False

  1566.         主表_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If

  1567.     End Sub

  1568.     Private Sub 時數表_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 時數表_ch.Click

  1569.         主表_ch.Checked = False : 時數表_ch.Checked = True : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False : 其它_ch.Checked = False

  1570.         時數表_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If

  1571.     End Sub

  1572.     Private Sub 加項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 加項總計_ch.Click

  1573.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = True : 減項總計_ch.Checked = False : 其它_ch.Checked = False

  1574.         加項總計_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If

  1575.     End Sub

  1576.     Private Sub 減項總計_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 減項總計_ch.Click

  1577.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = True : 其它_ch.Checked = False

  1578.         減項總計_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If

  1579.     End Sub

  1580.     Private Sub 其它_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 其它_ch.Click

  1581.         主表_ch.Checked = False : 時數表_ch.Checked = False : 加項總計_ch.Checked = False : 減項總計_ch.Checked = False : 其它_ch.Checked = True

  1582.         其它_P.BringToFront() : Set_分頁() : If Dgv1.Rows.Count > 0 Then : Set_分頁1() : End If

  1583.     End Sub

  1584.     Private Sub 人員向前_bt_Click(sender As Object, e As EventArgs) Handles 人員向前_bt.Click

  1585.         For I As Integer = 0 To Dgv.Rows.Count - 1

  1586.             If 位置 = 0 Then : MsgBox("已經是第一筆人員資料!!") : Else : 位置 -= 1 : 寫入薪資條() : Exit Sub : End If

  1587.             If 位置 = 0 Then : 寫入薪資條() : Exit Sub : End If

  1588.         Next

  1589.     End Sub

  1590.     Private Sub 人員向後_bt_Click(sender As Object, e As EventArgs) Handles 人員向後_bt.Click

  1591.         If 位置 = Dgv.Rows.Count - 1 Then : MsgBox("已經是最後一筆人員資料!!") : Else : 位置 += 1 : 寫入薪資條() : Exit Sub : End If

  1592.         If 位置 = Dgv.Rows.Count - 1 Then : 寫入薪資條() : Exit Sub : End If

  1593.     End Sub

  1594.     Private Sub 列印_tb_Click(sender As Object, e As EventArgs) Handles 列印_tb.Click

  1595.         PrintDocument1.DefaultPageSettings.Landscape = True : Dim printDialog As New PrintDialog() : printDialog.Document = PrintDocument1

  1596.         If printDialog.ShowDialog() = DialogResult.OK Then : PrintDocument1.Print() : MsgBox("列印完成!!") : End If

  1597.     End Sub

  1598.     Private Sub printDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage

  1599.         Dim panelImage As New Bitmap(Panel4.Width, Panel4.Height)

  1600.         Panel4.DrawToBitmap(panelImage, New Rectangle(0, 0, Panel11.Width + 1, Panel11.Height + 1))

  1601.         Dim targetWidth As Integer = CInt(Panel4.Width * 1)

  1602.         Dim targetHeight As Integer = CInt(Panel4.Height * 1)

  1603.         e.Graphics.DrawImage(panelImage, New Rectangle(15, 40, targetWidth, targetHeight))

  1604.     End Sub

  1605. End Class