GF-ERP-SYS
/
GF00-ERP-SYS-LEEHSIEHJUI
Tarkkaile 4
Äänestä 0
Fork 0
Koodi Ongelmat 0 Pull-pyynnöt 0 Julkaisut 0 Wiki Activity
Ei kuvausta
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.
6 Commitit
1 Haara
Puu: d2bdb3f071
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from 'd2bdb3f071'
${ noResults }
GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/0.MyModule/主資料庫/SQL_長照拆帳制計算.vb

SQL_長照拆帳制計算.vb 31KB
Historia Raaka

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293 
  1. Module SQL_長照拆帳制計算

  2.     Friend Sub SQL_薪資彙總表_仁寶1()

  3.         ConnOpen()

  4.         SQL1 = "SELECT    DISTINCT  人事拆帳制薪資報表明細_仁寶.姓名, Q1.BA比例, Q1.BA比例 AS BA正常, Q1.BA比例 AS GA正常, Q1.BA比例 AS BA, Q1.BA比例 AS GA, 

  5.                           Q1.BA比例 AS GA加給, Q1.BA比例 AS 其他, 

  6.                           Q1.BA比例 AS 主薪, Q1.BA比例 AS AA比例, 

  7.                           Q1.BA比例 AS AA, Q1.BA比例 AS 副薪, Q1.BA比例 AS 總薪, Q1.BA比例 AS 平日工時, 

  8.                           Q1.BA比例 AS [平日平均時薪/含平日加班], Q1.BA比例 AS 平日加班扣除額, Q1.BA比例 AS [平日月薪/不含加班], Q1.BA比例 AS 正常班平均時薪, 

  9.                           Q1.BA比例 AS 服務津貼, Q1.BA比例 AS 轉場津貼, Q1.BA比例 AS [修正後月薪+Ａ+津貼], Q1.BA比例 AS 加班費計算時薪標準, Q1.BA比例 AS 加班費, 

  10.                           Q1.BA比例 AS 總薪資, Q1.BA比例 " & Ao(0) & ", Q1.BA比例 " & Ao(1) & ", Q1.BA比例 " & Ao(2) & ", Q1.BA比例 " & Ao(3) & ", 

  11.                           Q1.BA比例 " & Ao(4) & ", Q1.BA比例 " & Ao(5) & ", Q1.BA比例 " & Ao(6) & ", Q1.BA比例 " & Ao(7) & ", Q1.BA比例 " & Ao(8) & ", 

  12.                           Q1.BA比例 " & Ao(9) & ", Q1.BA比例 " & Ao(10) & ", Q1.BA比例 " & Ao(11) & ", Q1.BA比例 AS 減項總計, 

  13.                           Q1.BA比例 " & Bo(0) & ", Q1.BA比例 " & Bo(1) & ", Q1.BA比例 " & Bo(2) & ", Q1.BA比例 " & Bo(3) & ", Q1.BA比例 " & Bo(4) & ", 

  14.                           Q1.BA比例 " & Bo(5) & ", Q1.BA比例 " & Bo(6) & ", 

  15.                           Q1.BA比例 " & Bo(7) & ", Q1.BA比例 " & Bo(8) & ", Q1.BA比例 " & Bo(9) & ", Q1.BA比例 " & Bo(10) & ", Q1.BA比例 " & Bo(11) & ", 

  16.                           Q1.BA比例 AS 加項總計, Q1.BA比例 " & Co(0) & ", 

  17.                           Q1.BA比例 AS 總時數, Q1.BA比例 AS 平均時薪, Q1.BA比例 AS [BA+GA+AA_總額], Q1.BA比例 AS [餘額], Q1.BA比例 AS [餘額比],

  18.                           

  19.                           Q1.BA比例 AS AA03, Q1.BA比例 AS AA04, Q1.BA比例 AS AA05, Q1.BA比例 AS AA06, Q1.BA比例 AS AA08, Q1.BA比例 AS AA10, Q1.BA比例 AS AA11,

  20.                           Q1.BA比例 AS GAM1, Q1.BA比例 AS GAM2, 

  21.                           Q1.BA比例 AS 平日轉場, Q1.BA比例 AS 假日轉場, Q1.BA比例 AS [平0-8], Q1.BA比例 AS [平9-10], Q1.BA比例 AS [平11-12], Q1.BA比例 AS [國0-2], 

  22.                           Q1.BA比例 AS [國3-8], Q1.BA比例 AS [休0-2], Q1.BA比例 AS [休3-8], Q1.BA比例 AS 總服務時數, 

  23.                           Q1.BA比例 AS 總轉場時數, Q1.BA比例 AS 服務轉場比, Q1.BA比例 " & Dq(0) & ", Q1.BA比例 " & Dq(1) & ", Q1.BA比例 " & Dq(2) & ", Q1.BA比例 " & Dq(3) & ", 

  24.                           Q1.BA比例 " & Dq(4) & ", Q1.BA比例 " & Dq(5) & ", Q1.BA比例 " & Dq(6) & ", Q1.BA比例 " & Dq(7) & ", Q1.BA比例 " & Dq(8) & ", Q1.BA比例 " & Dq(9) & ", 

  25.                           Q1.BA比例 " & Dq(10) & ", Q1.BA比例 " & Dq(11) & ", Q1.BA比例 AS 薪資加項總計, Q1.BA比例 AS GA比, Q1.BA比例 " & Eo(0) & ", Q1.BA比例 " & Eo(1) & ", 

  26.                           Q1.BA比例 " & Eo(2) & ", Q1.BA比例 " & Eo(3) & ", Q1.BA比例 " & Eo(4) & ", Q1.BA比例 " & Eo(5) & ", Q1.BA比例 " & Eo(6) & ", Q1.BA比例 " & Eo(7) & ", 

  27.                           Q1.BA比例 " & Eo(8) & ", Q1.BA比例 " & Eo(9) & ", Q1.BA比例 " & Eo(10) & ", Q1.BA比例 " & Eo(11) & ", Q1.BA比例 AS 公司負擔總計, Q1.BA比例 AS AA07, 

  28.                           Q1.BA比例 AS AA09

  29. 

  30.                 FROM      人事拆帳制薪資報表明細_仁寶 LEFT OUTER JOIN

  31.                          (SELECT      姓名, 姓名 AS BA比例  FROM  人事拆帳制明細_仁寶

  32.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & " 

  33.                           GROUP BY    姓名, 姓名) AS Q1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q1.姓名 LEFT OUTER JOIN

  34.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS BA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_1

  35.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & "  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'BA%')

  36.                           GROUP BY    姓名) AS Q2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q2.姓名  LEFT OUTER JOIN

  37.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS GA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_2

  38.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & "  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'GA%')

  39.                           GROUP BY    姓名) AS Q3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q3.姓名 LEFT OUTER JOIN

  40.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 次數)) AS GAM1  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_3

  41.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & "  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'GA%')

  42.                           GROUP BY    姓名) AS M1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M1.姓名 LEFT OUTER JOIN

  43.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 次數)) AS GAM2  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_4

  44.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & "  AND (編號 LIKE 'GA%')

  45.                           GROUP BY    姓名) AS M2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M2.姓名 LEFT OUTER JOIN

  46.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA03  FROM  " & SQL2 & "

  47.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA03%')

  48.                           GROUP BY    服務人員) AS A1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A1.姓名 LEFT OUTER JOIN

  49.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA04  FROM  " & SQL2 & " AS " & SQL2 & "_6

  50.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA04%')

  51.                           GROUP BY    服務人員) AS A2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A2.姓名 LEFT OUTER JOIN

  52.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA05  FROM  " & SQL2 & " AS " & SQL2 & "_5

  53.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA05%')

  54.                           GROUP BY    服務人員) AS A3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A3.姓名 LEFT OUTER JOIN

  55.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA06  FROM  " & SQL2 & " AS " & SQL2 & "_4

  56.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA06%')

  57.                           GROUP BY    服務人員) AS A4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A4.姓名 LEFT OUTER JOIN

  58.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA08  FROM " & SQL2 & " AS " & SQL2 & "_3

  59.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA08%')

  60.                           GROUP BY    服務人員) AS A5 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A5.姓名 LEFT OUTER JOIN

  61.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA10  FROM  " & SQL2 & " AS " & SQL2 & "_2

  62.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA10%')

  63.                           GROUP BY    服務人員) AS A6 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A6.姓名 LEFT OUTER JOIN

  64.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA11  FROM  " & SQL2 & " AS " & SQL2 & "_1

  65.                           WHERE      (服務人員 NOT LIKE '') AND " & PA1 & " AND (服務代碼 LIKE 'AA11%')

  66.                           GROUP BY    服務人員) AS A7 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A7.姓名 LEFT OUTER JOIN

  67.                          (SELECT      TOP (100) PERCENT 姓名, CONVERT(DECIMAL(18, 2), 平日排班轉場時間_分) / 60 AS 平日轉場, 

  68.                                       CONVERT(DECIMAL(18, 2), 假日排班轉場時間_分) / 60 AS 假日轉場, CONVERT(DECIMAL(18, 2), 平日班時數_分) / 60 AS [平0-8], 

  69.                                       CONVERT(DECIMAL(18, 2), B平日9_10小時) / 60 + CONVERT(DECIMAL(18, 2), GS平日9_10小時) / 60 AS [平9-10], 

  70.                                       CONVERT(DECIMAL(18, 2), B平日11_12小時) / 60 + CONVERT(DECIMAL(18, 2), GS平日11_12小時) / 60 AS [平11-12], 

  71.                                       CONVERT(DECIMAL(18, 2), B國假0_2小時) / 60 + CONVERT(DECIMAL(18, 2), GS國假0_2小時) / 60 AS [國0-2], 

  72.                                       CONVERT(DECIMAL(18, 2), B國假3_8小時) / 60 + CONVERT(DECIMAL(18, 2), GS國假3_8小時) / 60 AS [國3-8], 

  73.                                       CONVERT(DECIMAL(18, 2), B休假0_2小時) / 60 + CONVERT(DECIMAL(18, 2), GS休假0_2小時) / 60 AS [休0-2], 

  74.                                       CONVERT(DECIMAL(18, 2), B休假3_8小時) / 60 + CONVERT(DECIMAL(18, 2), GS休假3_8小時) / 60 AS [休3-8]

  75.                           FROM        人事拆帳制薪資報表明細_仁寶 AS 人事拆帳制薪資報表明細_仁寶_1

  76.                           WHERE      (姓名 NOT LIKE '') AND " & PA1 & "

  77.                           ORDER BY    姓名) AS M3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M3.姓名 LEFT OUTER JOIN

  78.                          (SELECT      姓名, A01, A02, A03, A04, A05, A06, A07, A08, A09, A10, A11, A12, B01, B02, B03, B04, B05, B06, B07, B08, B09, B10, 

  79.                                       B11, B12, C01, 其他, D01, D02, D03, D04, D05, D06, D07, D08, D09, D10, D11, D12, GA比, E01, E02, E03, E04, E05, E06, 

  80.                                       E07, E08, E09, E10, E11, E12

  81.                           FROM        人事拆帳制其他應收付表

  82.                           WHERE      " & PA1 & ") AS Q4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q4.姓名

  83. 

  84.                 WHERE    (人事拆帳制薪資報表明細_仁寶.姓名 NOT LIKE '') AND " & PA2 & "

  85.                 ORDER BY  人事拆帳制薪資報表明細_仁寶.姓名"

  86.         CmdSet_For_DGV()

  87.     End Sub

  88.     Friend Sub SQL_薪資彙總表_仁寶()

  89.         ConnOpen()

  90.         SQL1 = "SELECT    人事拆帳制薪資報表明細_仁寶.姓名, Q1.BA比例, Q1.BA比例 AS BA正常, Q1.BA比例 AS GA正常, Q2.BA, Q3.GA, Q3.GA AS GA加給, Q4.其他, 

  91.                           Q1.BA比例 AS 主薪, Q1.BA比例 AS AA比例, 

  92.                           Q1.BA比例 AS AA, Q1.BA比例 AS 副薪, Q1.BA比例 AS 總薪, M3.平日轉場 + M3.[平0-8] AS 平日工時, 

  93.                           Q1.BA比例 AS [平日平均時薪/含平日加班], Q1.BA比例 AS 平日加班扣除額, Q1.BA比例 AS [平日月薪/不含加班], Q1.BA比例 AS 正常班平均時薪, 

  94.                           Q1.BA比例 AS 服務津貼, Q1.BA比例 AS 轉場津貼, Q1.BA比例 AS [修正後月薪+Ａ+津貼], Q1.BA比例 AS 加班費計算時薪標準, Q1.BA比例 AS 加班費, 

  95.                           Q1.BA比例 AS 總薪資, Q4.A01 " & Ao(0) & ", Q4.A02 " & Ao(1) & ", Q4.A03 " & Ao(2) & ", Q4.A04 " & Ao(3) & ", Q4.A05 " & Ao(4) & ", Q4.A06 " & Ao(5) & ", 

  96.                           Q4.A07 " & Ao(6) & ", Q4.A08 " & Ao(7) & ", Q4.A09 " & Ao(8) & ", Q4.A10 " & Ao(9) & ", Q4.A11 " & Ao(10) & ", Q4.A12 " & Ao(11) & ", Q4.A12 AS 減項總計, 

  97.                           Q4.B01 " & Bo(0) & ", Q4.B02 " & Bo(1) & ", Q4.B03 " & Bo(2) & ", Q4.B04 " & Bo(3) & ", Q4.B05 " & Bo(4) & ", Q4.B06 " & Bo(5) & ", Q4.B07 " & Bo(6) & ", 

  98.                           Q4.B08 " & Bo(7) & ", Q4.B09 " & Bo(8) & ", Q4.B10 " & Bo(9) & ", Q4.B11 " & Bo(10) & ", Q4.B12 " & Bo(11) & ", Q4.A12 AS 加項總計, Q4.C01 " & Co(0) & ", 

  99.                           Q1.BA比例 AS 總時數, Q1.BA比例 AS 平均時薪, Q1.BA比例 AS [BA+GA+AA_總額], Q1.BA比例 AS [餘額], Q1.BA比例 AS [餘額比],

  100.                           

  101.                           A1.AA03, A2.AA04, A3.AA05, A4.AA06, A5.AA08, A6.AA10, A7.AA11,

  102.                           M1.GAM1, M2.GAM2, 

  103.                           M3.平日轉場, M3.假日轉場, M3.[平0-8], M3.[平9-10], M3.[平11-12], M3.[國0-2], M3.[國3-8], M3.[休0-2], M3.[休3-8], M3.平日轉場 AS 總服務時數, 

  104.                           M3.平日轉場 AS 總轉場時數, Q1.BA比例 AS 服務轉場比, Q4.D01 " & Dq(0) & ", Q4.D02 " & Dq(1) & ", Q4.D03 " & Dq(2) & ", Q4.D04 " & Dq(3) & ", Q4.D05 " & Dq(4) & ", 

  105.                           Q4.D06 " & Dq(5) & ", Q4.D07 " & Dq(6) & ", Q4.D08 " & Dq(7) & ", Q4.D09 " & Dq(8) & ", Q4.D10 " & Dq(9) & ", Q4.D11 " & Dq(10) & ", Q4.D12 " & Dq(11) & ", 

  106.                           Q4.D12 AS 薪資加項總計, Q4.GA比, Q4.E01 " & Eo(0) & ", Q4.E02 " & Eo(1) & ", Q4.E03 " & Eo(2) & ", Q4.E04 " & Eo(3) & ", Q4.E05 " & Eo(4) & ", 

  107.                           Q4.E06 " & Eo(5) & ", Q4.E07 " & Eo(6) & ", Q4.E08 " & Eo(7) & ", Q4.E09 " & Eo(8) & ", Q4.E10 " & Eo(9) & ", Q4.E11 " & Eo(10) & ", Q4.E12 " & Eo(11) & ", 

  108.                           Q4.E12 AS 公司負擔總計, A8.AA07, A9.AA09

  109. 

  110.                 FROM      人事拆帳制薪資報表明細_仁寶 LEFT OUTER JOIN

  111.                          (SELECT      姓名, 姓名 AS BA比例  FROM  人事拆帳制明細_仁寶

  112.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') 

  113.                           GROUP BY    姓名, 姓名) AS Q1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q1.姓名 LEFT OUTER JOIN

  114.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS BA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_1

  115.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'BA%')

  116.                           GROUP BY    姓名) AS Q2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q2.姓名  LEFT OUTER JOIN

  117.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 全額)) AS GA  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_2

  118.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'GA%')

  119.                           GROUP BY    姓名) AS Q3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q3.姓名 LEFT OUTER JOIN

  120.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 次數)) AS GAM1  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_3

  121.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (加班類型 LIKE N'正常班') AND (編號 LIKE 'GA%')

  122.                           GROUP BY    姓名) AS M1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M1.姓名 LEFT OUTER JOIN

  123.                          (SELECT      姓名, SUM(CONVERT(DECIMAL(18, 2), 次數)) AS GAM2  FROM  人事拆帳制明細_仁寶 AS 人事拆帳制明細_仁寶_4

  124.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')  AND (編號 LIKE 'GA%')

  125.                           GROUP BY    姓名) AS M2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M2.姓名 LEFT OUTER JOIN

  126.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA03  FROM  " & SQL2 & "

  127.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA03%')

  128.                           GROUP BY    服務人員) AS A1 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A1.姓名 LEFT OUTER JOIN

  129.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA04  FROM  " & SQL2 & " AS " & SQL2 & "_8

  130.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA04%')

  131.                           GROUP BY    服務人員) AS A2 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A2.姓名 LEFT OUTER JOIN

  132.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA05  FROM  " & SQL2 & " AS " & SQL2 & "_7

  133.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA05%')

  134.                           GROUP BY    服務人員) AS A3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A3.姓名 LEFT OUTER JOIN

  135.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA06  FROM  " & SQL2 & " AS " & SQL2 & "_6

  136.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA06%')

  137.                           GROUP BY    服務人員) AS A4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A4.姓名 LEFT OUTER JOIN

  138.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA08  FROM  " & SQL2 & " AS " & SQL2 & "_5

  139.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA08%')

  140.                           GROUP BY    服務人員) AS A5 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A5.姓名 LEFT OUTER JOIN

  141.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA10  FROM  " & SQL2 & " AS " & SQL2 & "_4

  142.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA10%')

  143.                           GROUP BY    服務人員) AS A6 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A6.姓名 LEFT OUTER JOIN

  144.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA11  FROM  " & SQL2 & " AS " & SQL2 & "_3

  145.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA11%')

  146.                           GROUP BY    服務人員) AS A7 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A7.姓名 LEFT OUTER JOIN

  147.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA07  FROM  " & SQL2 & " AS " & SQL2 & "_2

  148.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA07%')

  149.                           GROUP BY    服務人員) AS A8 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A8.姓名 LEFT OUTER JOIN

  150.                          (SELECT      服務人員 AS 姓名, SUM(CONVERT(DECIMAL(18, 2), 小計)) AS AA09  FROM  " & SQL2 & " AS " & SQL2 & "_1

  151.                           WHERE      (服務人員 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (服務代碼 LIKE 'AA09%')

  152.                           GROUP BY    服務人員) AS A9 ON 人事拆帳制薪資報表明細_仁寶.姓名 = A9.姓名 LEFT OUTER JOIN

  153.                          (SELECT      TOP (100) PERCENT 姓名, CONVERT(DECIMAL(18, 2), 平日排班轉場時間_分) / 60 AS 平日轉場, 

  154.                                       CONVERT(DECIMAL(18, 2), 假日排班轉場時間_分) / 60 AS 假日轉場, CONVERT(DECIMAL(18, 2), 平日班時數_分) / 60 AS [平0-8], 

  155.                                       CONVERT(DECIMAL(18, 2), B平日9_10小時) / 60 + CONVERT(DECIMAL(18, 2), GS平日9_10小時) / 60 AS [平9-10], 

  156.                                       CONVERT(DECIMAL(18, 2), B平日11_12小時) / 60 + CONVERT(DECIMAL(18, 2), GS平日11_12小時) / 60 AS [平11-12], 

  157.                                       CONVERT(DECIMAL(18, 2), B國假0_2小時) / 60 + CONVERT(DECIMAL(18, 2), GS國假0_2小時) / 60 AS [國0-2], 

  158.                                       CONVERT(DECIMAL(18, 2), B國假3_8小時) / 60 + CONVERT(DECIMAL(18, 2), GS國假3_8小時) / 60 AS [國3-8], 

  159.                                       CONVERT(DECIMAL(18, 2), B休假0_2小時) / 60 + CONVERT(DECIMAL(18, 2), GS休假0_2小時) / 60 AS [休0-2], 

  160.                                       CONVERT(DECIMAL(18, 2), B休假3_8小時) / 60 + CONVERT(DECIMAL(18, 2), GS休假3_8小時) / 60 AS [休3-8]

  161.                           FROM        人事拆帳制薪資報表明細_仁寶 AS 人事拆帳制薪資報表明細_仁寶_1

  162.                           WHERE      (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%')

  163.                           ORDER BY    姓名) AS M3 ON 人事拆帳制薪資報表明細_仁寶.姓名 = M3.姓名 LEFT OUTER JOIN

  164.                          (SELECT      姓名, A01, A02, A03, A04, A05, A06, A07, A08, A09, A10, A11, A12, B01, B02, B03, B04, B05, B06, B07, B08, B09, B10, 

  165.                                       B11, B12, C01, 其他, D01, D02, D03, D04, D05, D06, D07, D08, D09, D10, D11, D12, GA比, E01, E02, E03, E04, E05, E06, 

  166.                                       E07, E08, E09, E10, E11, E12

  167.                           FROM        人事拆帳制其他應收付表

  168.                           WHERE      (流水號 LIKE '" & PA1 & "')) AS Q4 ON 人事拆帳制薪資報表明細_仁寶.姓名 = Q4.姓名

  169. 

  170.                 WHERE    (人事拆帳制薪資報表明細_仁寶.姓名 NOT LIKE '') AND (人事拆帳制薪資報表明細_仁寶.流水號 LIKE '" & PA1 & "%')

  171.                 ORDER BY  人事拆帳制薪資報表明細_仁寶.姓名"

  172.         CmdSet_For_DGV()

  173.     End Sub

  174.     Friend Sub SQL_加班計算_仁寶()

  175.         ConnOpen()

  176.         SQL1 = "SELECT    人事拆帳制每日明細_仁寶.日期, DATENAME(WEEKDAY, CONVERT(DATE, 人事拆帳制每日明細_仁寶.日期)) AS 星期, 人事拆帳制每日明細_仁寶.姓名, 

  177.                           人事拆帳制每日明細_仁寶.服務個案, 人事拆帳制每日明細_仁寶.排班轉場時間_分, 人事拆帳制每日明細_仁寶.服務時間_分, 人事拆帳制每日明細_仁寶.日期 AS [上班時間累加/分], 

  178.                           人事拆帳制每日明細_仁寶.日期 AS 開始加班, 人事拆帳制每日明細_仁寶.日期 AS 第一段, 人事拆帳制每日明細_仁寶.日期 AS 第二段, 人事拆帳制每日明細_仁寶.日期 AS A10, 

  179.                           人事拆帳制每日明細_仁寶.日期 AS A11, 人事拆帳制每日明細_仁寶.日期 AS A12, 人事拆帳制每日明細_仁寶.日期 AS A20, 人事拆帳制每日明細_仁寶.日期 AS A21, 

  180.                           人事拆帳制每日明細_仁寶.日期 AS A22, 人事拆帳制每日明細_仁寶.日期 AS A30, 人事拆帳制每日明細_仁寶.日期 AS A31, 人事拆帳制每日明細_仁寶.日期 AS A32, 

  181.                           人事拆帳制每日明細_仁寶.日期 AS A40, 人事拆帳制每日明細_仁寶.日期 AS A41, 人事拆帳制每日明細_仁寶.日期 AS A42, 人事拆帳制每日明細_仁寶.日期 AS A50, 

  182.                           人事拆帳制每日明細_仁寶.日期 AS A51, 人事拆帳制每日明細_仁寶.日期 AS A52, 人事拆帳制每日明細_仁寶.日期 AS A60, 人事拆帳制每日明細_仁寶.日期 AS A61, 

  183.                           人事拆帳制每日明細_仁寶.日期 AS A62, 人事拆帳制每日明細_仁寶.日期 AS 驗1, 人事拆帳制每日明細_仁寶.日期 AS 驗2, 人事拆帳制每日明細_仁寶.日期 AS 驗3, 

  184.                           人事拆帳制每日明細_仁寶.日期 AS 驗4, 人事拆帳制每日明細_仁寶.日期 AS 驗5, 人事拆帳制每日明細_仁寶.日期 AS 驗6, Q1.BA比例, 

  185.                           人事拆帳制每日明細_仁寶.日期 AS 退1, 人事拆帳制每日明細_仁寶.日期 AS 退2, 人事拆帳制每日明細_仁寶.日期 AS 退3, 人事拆帳制每日明細_仁寶.日期 AS 退4, 

  186.                           人事拆帳制每日明細_仁寶.日期 AS 退5, 人事拆帳制每日明細_仁寶.日期 AS 退6, 人事拆帳制每日明細_仁寶.日期 AS 合退

  187.                 FROM      人事拆帳制每日明細_仁寶 LEFT OUTER JOIN

  188.                          (SELECT    姓名, 員工拆帳比 AS BA比例  FROM  人事拆帳制明細_仁寶

  189.                           WHERE    (姓名 NOT LIKE '') AND (流水號 LIKE '" & PA1 & "%') AND (員工拆帳比 NOT LIKE '')

  190.                           GROUP BY  姓名, 員工拆帳比) AS Q1 ON 人事拆帳制每日明細_仁寶.姓名 = Q1.姓名

  191.                 WHERE    (人事拆帳制每日明細_仁寶.流水號 LIKE '" & PA1 & "%') AND (人事拆帳制每日明細_仁寶.姓名 IS NOT NULL)

  192.                 ORDER BY  人事拆帳制每日明細_仁寶.姓名, 人事拆帳制每日明細_仁寶.日期, CONVERT(DECIMAL(18, 2), 

  193.                           人事拆帳制每日明細_仁寶.序)"

  194.         CmdSet_For_DGV()

  195.     End Sub

  196.     Friend Sub SQL_服務資料_仁寶()

  197.         ConnOpen()

  198.         SQL1 = "SELECT    服務日期, 排班時間, 居服員姓名, 姓名, 排班時間長度, LEFT(服務項目代碼, 5) AS 代碼, 姓名 AS 已使用

  199.                 FROM      人事拆帳制服務紀錄_仁寶

  200.                 WHERE    (流水號 LIKE '" & PA1 & "%') AND (服務項目代碼 NOT LIKE '')

  201.                 ORDER BY  居服員姓名, 服務日期, 排班時間 DESC"

  202.         CmdSet_For_DGV()

  203.     End Sub

  204.     Friend Sub SQL_碼別()

  205.         ConnOpen() : SQL1 = "SELECT  碼別, 每小時_錢  FROM  人事拆帳制碼別" : CmdSet_For_DGV()

  206.     End Sub

  207.     Friend Sub SQL_碼別_新增()

  208.         ConnOpen() : SQL1 = "INSERT INTO 人事拆帳制碼別 (碼別, 每小時_錢) VALUES (N'" & PA20 & "', N'" & PA21 & "')" : CmdSet_For_dr()

  209.     End Sub

  210.     Friend Sub SQL_碼別_修改()

  211.         ConnOpen() : SQL1 = "UPDATE  人事拆帳制碼別 SET  每小時_錢 = N'" & PA21 & "'  WHERE 碼別 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  212.     End Sub

  213.     Friend Sub SQL_碼別_查詢()

  214.         ConnOpen() : SQL1 = "SELECT  碼別, 每小時_錢  FROM  人事拆帳制碼別 WHERE 碼別 LIKE N'" & PA20 & "'" : CmdSet_For_dr()

  215.     End Sub

  216.     Friend Sub SQL_表頭()

  217.         ConnOpen() : SQL1 = "SELECT  對應, 欄位名稱  FROM  人事拆帳制其他表抬頭  ORDER BY   對應" : CmdSet_For_DGV()

  218.     End Sub

  219.     Friend Sub SQL_放差額()

  220.         ConnOpen()

  221.         SQL1 = "SELECT  流水號, 姓名, 流水號 AS 差額  FROM  人事拆帳制薪資報表明細_仁寶  WHERE  (流水號 LIKE '" & PA1 & "%') AND (姓名 NOT LIKE '')  GROUP BY   姓名, 流水號  ORDER BY  姓名"

  222.         CmdSet_For_DGV()

  223.     End Sub

  224.     Friend Sub SQL_讀差額()

  225.         ConnOpen() : SQL1 = "SELECT  流水號, 姓名, 差額  FROM  人事拆帳制A碼差額 WHERE (流水號 LIKE '" & PA10 & "%') ORDER BY 姓名" : CmdSet_For_DGV()

  226.     End Sub

  227.     Friend Sub SQL_查差額()

  228.         ConnOpen() : SQL1 = "SELECT  TOP(1) 流水號, 姓名, 差額  FROM  人事拆帳制A碼差額 WHERE  (流水號 LIKE '" & PA10 & "%')" : CmdSet_For_dr()

  229.     End Sub

  230.     Friend Sub SQL_差額刪除()

  231.         ConnOpen() : SQL1 = "DELETE 人事拆帳制A碼差額 WHERE (流水號 LIKE '" & PA1 & "%')" : CmdSet_For_dr()

  232.     End Sub

  233.     Friend Sub SQL_差額新增()

  234.         ConnOpen() : SQL1 = "INSERT INTO 人事拆帳制A碼差額 (流水號, 姓名, 差額) VALUES " & SQL2 : CmdSet_For_dr()

  235.     End Sub

  236.     Friend Sub SQL_確認A碼長照()

  237.         ConnOpen() : SQL1 = "SELECT  TOP (1) 流水號  FROM  人事拆帳制A碼項目長照所 WHERE  (流水號 LIKE '" & PA1 & "%')" : CmdSet_For_dr()

  238.     End Sub

  239.     Friend Sub SQL_表頭_修改()

  240.         ConnOpen() : SQL1 = "UPDATE 人事拆帳制其他表抬頭 SET 欄位名稱 = N'" & PA3 & "' WHERE  對應 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  241.     End Sub

  242.     Friend Sub SQL_BA比()

  243.         ConnOpen() : SQL1 = "SELECT 流水號, 姓名, BA FROM 人事拆帳制BA比  WHERE 流水號 LIKE ''" : CmdSet_For_DGV()

  244.     End Sub

  245.     Friend Sub SQL_BA比_當月()

  246.         ConnOpen() : SQL1 = "SELECT 流水號, 姓名, BA FROM 人事拆帳制BA比  WHERE 流水號 LIKE '" & PA1 & "%'" : CmdSet_For_DGV()

  247.     End Sub

  248.     Friend Sub SQL_BA比_新增()

  249.         ConnOpen() : SQL1 = "INSERT INTO 人事拆帳制BA比 (流水號, 姓名, BA)  VALUES" & SQL2 : CmdSet_For_dr()

  250.     End Sub

  251.     Friend Sub SQL_BA比_修改()

  252.         ConnOpen() : SQL1 = "UPDATE  人事拆帳制BA比 SET  BA = N'" & PA3 & "'  WHERE 流水號 LIKE N'" & PA1 & "' AND 姓名 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  253.     End Sub

  254.     Friend Sub SQL_階級加給()

  255.         ConnOpen()

  256.         SQL1 = "SELECT  流水號, 內容, 級數, 加給, 級數 AS 級數1  FROM  人事拆帳制階級津貼設定 WHERE 流水號 LIKE N'" & PA1 & "%' ORDER BY 內容, 級數 DESC"

  257.         CmdSet_For_DGV()

  258.     End Sub

  259.     Friend Sub SQL_階級加給_預設()

  260.         ConnOpen() : SQL1 = "SELECT  流水號, 內容, 級數, 加給  FROM  人事拆帳制階級津貼設定 WHERE 流水號 LIKE N''" : CmdSet_For_DGV()

  261.     End Sub

  262.     Friend Sub SQL_階級加給_新增()

  263.         ConnOpen() : SQL1 = "INSERT INTO 人事拆帳制階級津貼設定 (流水號, 內容, 級數, 加給) VALUES " & SQL2 : CmdSet_For_dr()

  264.     End Sub

  265.     Friend Sub SQL_階級加給_修改()

  266.         ConnOpen()

  267.         SQL1 = "UPDATE 人事拆帳制階級津貼設定 SET 級數 = N'" & PA10 & "', 加給 = N'" & PA20 & "' 

  268.                 WHERE 流水號 LIKE N'" & PA1 & "' AND 內容 LIKE N'" & PA30 & "'  AND  級數 = N'" & PA11 & "'"

  269.         CmdSet_For_dr()

  270.     End Sub

  271.     Friend Sub SQL_資料日期01()

  272.         ConnOpen() : SQL1 = "SELECT  流水號  FROM  人事拆帳制薪資報表明細_仁寶  GROUP BY  流水號  ORDER BY  流水號 DESC" : CmdSet_For_dr()

  273.     End Sub

  274.     Friend Sub SQL_其他表查詢()

  275.         ConnOpen() : SQL1 = "SELECT  流水號  FROM  人事拆帳制其他應收付表  WHERE  (流水號 LIKE N'" & PA1 & "%')" : CmdSet_For_dr()

  276.     End Sub

  277.     Friend Sub SQL_其他表_新增()

  278.         ConnOpen()

  279.         SQL1 = "INSERT INTO 人事拆帳制其他應收付表 (流水號, 姓名, A01, A02, A03, A04, A05, A06, A07, A08, A09, A10, A11, A12, B01, B02, B03, B04, B05, B06, 

  280.                                                     B07, B08, B09, B10, B11, B12, C01, 其他, D01, D02, D03, D04, D05, D06, D07, D08, D09, D10, D11, D12, GA比, 

  281.                                                     E01, E02, E03, E04, E05, E06, E07, E08, E09, E10, E11, E12)  VALUES  " & SQL2

  282.         CmdSet_For_dr()

  283.     End Sub

  284.     Friend Sub SQL_其他表_修改()

  285.         ConnOpen() : SQL1 = "UPDATE 人事拆帳制其他應收付表  SET " & SQL2 : CmdSet_For_dr()

  286.     End Sub

  287.     Friend Sub SQL_津貼權限()

  288.         ConnOpen()

  289.         SQL1 = "UPDATE 使用者權限管理表 SET CC15 = N'" & 拆帳制薪資試算表.服務津貼_cb.Checked & "', CC16 = N'" & 拆帳制薪資試算表.轉場津貼_cb.Checked & "'"

  290.         CmdSet_For_dr()

  291.     End Sub

  292. End Module