YD-ERP-SYS
/
YD-ERP-SYS-LEEHSIEHJUI
Segui 4
Vota 0
Forka 0
Codice Problemi 0 Pull Requests 0 Rilasci 0 Wiki Attività
Nessuna descrizione
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.
26 Commit
1 Ramo (Branch)
Albero (Tree): f3fbbfbabb
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da 'f3fbbfbabb'
${ noResults }
YD-ERP-SYS-LEEHSIEHJUI/YD-ERP-SYS/Module/SQL_業績計算系統.vb

SQL_業績計算系統.vb 23KB
Cronologia Originale

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268 
  1. Module SQL_業績計算系統

  2.     Friend Sub SQL_業績主表3()

  3.         ConnOpen()

  4.         SQL1 = "SELECT     LEFT(銷售控制表.單號, 1) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 

  5.                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 

  6.                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 

  7.                            銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 業績機算基礎.階級2, 業績機算基礎.比例2, 

  8.                            業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 業績機算基礎.比例4, 業績機算基礎.階級5, 

  9.                            業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 業績機算基礎.階級7, 業績機算基礎.比例7, 

  10.                            業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 業績機算基礎.比例9, 業績機算基礎.階級10, 

  11.                            業績機算基礎.比例10

  12.                 FROM       銷售控制表 INNER JOIN

  13.                            業績機算基礎 ON 銷售控制表.獎金基礎 = 業績機算基礎.獎金計算 LEFT OUTER JOIN

  14.                                 (SELECT     舊編, 姓名

  15.                                  FROM       人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN

  16.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  17.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  18.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  19.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND

  20.                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  21.                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  22.                 GROUP BY   LEFT(銷售控制表.單號, 1), QQ.姓名, 銷售控制表.獎金基礎, 業績機算基礎.階級1, 業績機算基礎.比例1, 

  23.                            業績機算基礎.階級2, 業績機算基礎.比例2, 業績機算基礎.階級3, 業績機算基礎.比例3, 業績機算基礎.階級4, 

  24.                            業績機算基礎.比例4, 業績機算基礎.階級5, 業績機算基礎.比例5, 業績機算基礎.階級6, 業績機算基礎.比例6, 

  25.                            業績機算基礎.階級7, 業績機算基礎.比例7, 業績機算基礎.階級8, 業績機算基礎.比例8, 業績機算基礎.階級9, 

  26.                            業績機算基礎.比例9, 業績機算基礎.階級10, 業績機算基礎.比例10

  27.                 ORDER BY   編號"

  28.         CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_業績主表2()

  31.         ConnOpen()

  32.         SQL1 = "SELECT      銷售控制表.單號 AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 

  33.                             SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 

  34.                             SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金, 

  35.                             銷售控制表.獎金基礎

  36.                 FROM        銷售控制表  LEFT OUTER JOIN

  37.                                 (SELECT    舊編, 姓名

  38.                                  FROM      人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN

  39.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  40.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  41.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  42.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND

  43.                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  44.                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  45.                 GROUP BY   銷售控制表.單號, QQ.姓名, 銷售控制表.獎金基礎

  46.                 ORDER BY   編號"

  47.         CmdSet_For_DGV()

  48.     End Sub

  49.     Friend Sub SQL_業績主表1()

  50.         ConnOpen()

  51.         SQL1 = "SELECT     LEFT(銷售控制表.單號, 1) AS 編號, QQ.姓名, SUM(銷售控制表.運費) AS 銷貨總額, SUM(銷售控制表.運費) AS 成本, 

  52.                            SUM(銷售控制表.運費) AS 運費, SUM(銷售控制表.運費) AS [稅額(發票)], SUM(銷售控制表.運費) AS [其他(傭金)], 

  53.                            SUM(銷售控制表.運費) AS [手續費(刷卡)], SUM(銷售控制表.運費) AS 毛利, SUM(銷售控制表.運費) AS 獎金

  54.                 FROM       銷售控制表 LEFT OUTER JOIN

  55.                                 (SELECT   舊編, 姓名

  56.                                  FROM     人事資料表) AS QQ ON LEFT(銷售控制表.單號, 1) = QQ.舊編 LEFT OUTER JOIN

  57.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  58.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  59.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  60.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND

  61.                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  62.                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  63.                 GROUP BY   LEFT(銷售控制表.單號, 1), QQ.姓名

  64.                 ORDER BY   編號"

  65.         CmdSet_For_DGV()

  66.     End Sub

  67.     Friend Sub SQL_業績彙總1()

  68.         ConnOpen()

  69.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 

  70.                            AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用

  71.                 FROM       銷售控制表 LEFT OUTER JOIN

  72.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  73.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  74.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  75.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND

  76.                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  77.                                                        '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  78.                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用

  79.                 ORDER BY   銷售控制表.單號"

  80.         CmdSet_For_DGV()

  81.     End Sub

  82.     Friend Sub SQL_業績彙總2()

  83.         ConnOpen()

  84.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售衍生運費.支出) AS 衍生運費

  85.                 FROM       銷售控制表 INNER JOIN

  86.                            銷售衍生運費 ON 銷售控制表.單號 = 銷售衍生運費.單號 LEFT OUTER JOIN

  87.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  88.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  89.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND

  90.                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  91.                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  92.                 GROUP BY   銷售控制表.單號

  93.                 ORDER BY   銷售控制表.單號"

  94.         CmdSet_For_DGV()

  95.     End Sub

  96.     Friend Sub SQL_業績彙總3()

  97.         ConnOpen()

  98.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售備註表.支出 - 銷售備註表.收入) AS 其他支出

  99.                 FROM       銷售控制表 LEFT OUTER JOIN

  100.                            銷售備註表 ON 銷售控制表.單號 = 銷售備註表.單號 LEFT OUTER JOIN

  101.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  102.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  103.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 

  104.                           (銷售備註表.備註 NOT LIKE '%外車%') AND (銷售備註表.備註 NOT LIKE '%車資%') AND (銷售備註表.備註 NOT LIKE '%運費%') AND

  105.                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  106.                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  107.                 GROUP BY   銷售控制表.單號

  108.                 ORDER BY   銷售控制表.單號"

  109.         CmdSet_For_DGV()

  110.     End Sub

  111.     Friend Sub SQL_業績彙總4()

  112.         ConnOpen()

  113.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS [外車_收], SUM(銷售明細表.成本 * 銷售明細表.數量) AS [外車_支]

  114.                 FROM       銷售控制表 LEFT OUTER JOIN

  115.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  116.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  117.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  118.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 LIKE '1003%')AND

  119.                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  120.                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  121.                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價

  122.                 ORDER BY   銷售控制表.單號"

  123.         CmdSet_For_DGV()

  124.     End Sub

  125.     Friend Sub SQL_業績彙總5()

  126.         ConnOpen()

  127.         SQL1 = "SELECT     銷售控制表.單號, (SUM(銷售明細表.成本 * 銷售明細表.數量) - SUM(銷售明細表.售價 * 銷售明細表.數量)) AS [料號1_收支]

  128.                 FROM       銷售控制表 LEFT OUTER JOIN

  129.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN

  130.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  131.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  132.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售明細表.料號 NOT LIKE '1003%') AND (銷售明細表.料號 LIKE '1001%') AND

  133.                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  134.                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  135.                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售明細表.成本, 銷售明細表.售價

  136.                 ORDER BY   銷售控制表.單號"

  137.         CmdSet_For_DGV()

  138.     End Sub

  139.     Friend Sub SQL_業績彙總6()

  140.         ConnOpen()

  141.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售備註表.支出 - 銷售備註表.收入) AS 備註車資

  142.                 FROM       銷售控制表 LEFT OUTER JOIN

  143.                            銷售備註表 ON 銷售控制表.單號 = 銷售備註表.單號 LEFT OUTER JOIN

  144.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  145.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  146.                           (銷售控制表.轉業績日期 IS NOT NULL OR 銷售控制表.轉業績日期 NOT LIKE '') AND (銷售備註表.支出 - 銷售備註表.收入 <> 0) AND 

  147.                           (銷售備註表.備註 LIKE '%外車%' OR 銷售備註表.備註 LIKE '%車資%' OR 銷售備註表.備註 LIKE '%運費%') AND

  148.                           (轉業績日期 BETWEEN '" & Strings.Format(業績獎金彙總表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  149.                                             '" & Strings.Format(業績獎金彙總表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  150.                 GROUP BY   銷售控制表.單號

  151.                 ORDER BY   銷售控制表.單號"

  152.         CmdSet_For_DGV()

  153.     End Sub

  154.     Friend Sub SQL_獎金計算基礎()

  155.         ConnOpen()

  156.         SQL1 = "SELECT 獎金計算, 階級1, 比例1, 階級2, 比例2, 階級3, 比例3, 階級4, 比例4, 階級5, 比例5, 階級6, 比例6, 階級7, 比例7, 階級8, 比例8, 階級9, 比例9, 階級10, 比例10

  157.                 FROM   業績機算基礎"

  158.         CmdSet_For_DGV()

  159.     End Sub

  160.     Friend Sub SQL_獎金計算基礎_刪除()

  161.         ConnOpen()

  162.         SQL1 = "DELETE 業績機算基礎 WHERE 獎金計算 LIKE N'" & PA & "'"

  163.         CmdSet_For_dr()

  164.     End Sub

  165.     Friend Sub SQL_獎金計算基礎_修改()

  166.         ConnOpen()

  167.         SQL1 = "UPDATE 業績機算基礎 SET 階級1 = N'" & PA1 & "', 比例1 = N'" & PA11 & "', 階級2 = N'" & PA2 & "', 比例2 = N'" & PA12 & "', 階級3 = N'" & PA3 & "', 比例3 = N'" & PA13 & "', 

  168.                                         階級4 = N'" & PA4 & "', 比例4 = N'" & PA14 & "', 階級5 = N'" & PA5 & "', 比例5 = N'" & PA15 & "', 階級6 = N'" & PA6 & "', 比例6 = N'" & PA16 & "', 

  169.                                         階級7 = N'" & PA7 & "', 比例7 = N'" & PA17 & "', 階級8 = N'" & PA8 & "', 比例8 = N'" & PA18 & "', 階級9 = N'" & PA9 & "', 比例9 = N'" & PA19 & "', 

  170.                                         階級10 = N'" & PA10 & "', 比例10 = N'" & PA20 & "' 

  171.                 WHERE 獎金計算 LIKE N'" & PA & "'"

  172.         CmdSet_For_dr()

  173.     End Sub

  174.     Friend Sub SQL_銷售控制表_獎金基礎修改()

  175.         ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 獎金基礎 = N'" & PA & "' WHERE 獎金基礎 LIKE N'" & PA21 & "'" : CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_獎金計算基礎_新增()

  178.         ConnOpen()

  179.         SQL1 = "INSERT INTO 業績機算基礎 (獎金計算, 階級1, 比例1, 階級2, 比例2, 階級3, 比例3, 階級4, 比例4, 階級5, 比例5, 階級6, 比例6, 階級7, 比例7, 階級8, 比例8, 階級9, 比例9, 階級10, 比例10) 

  180.                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA11 & "', N'" & PA2 & "', N'" & PA12 & "', N'" & PA3 & "', N'" & PA13 & "', N'" & PA4 & "', N'" & PA14 & "', N'" & PA5 & "', N'" & PA15 & "', 

  181.                         N'" & PA6 & "', N'" & PA16 & "', N'" & PA7 & "', N'" & PA17 & "', N'" & PA8 & "', N'" & PA18 & "', N'" & PA9 & "', N'" & PA19 & "', N'" & PA10 & "', N'" & PA20 & "')"

  182.         CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_獎金計算基礎_查詢()

  185.         ConnOpen() : SQL1 = "SELECT 獎金計算 FROM 業績機算基礎 WHERE 獎金計算 LIKE N'" & PA & "'" : CmdSet_For_dr()

  186.     End Sub

  187.     Friend Sub SQL_銷售控制表_查詢()

  188.         ConnOpen() : SQL1 = "SELECT 獎金基礎 FROM 銷售控制表 WHERE 獎金基礎 LIKE N'" & PA & "'" : CmdSet_For_dr()

  189.     End Sub

  190.     Friend Sub SQL_銷售控制表_空值修正1()

  191.         ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 獎金基礎 = N'' WHERE 獎金基礎 IS NULL" : CmdSet_For_dr()

  192.     End Sub

  193.     Friend Sub SQL_銷售控制表_空值修正2()

  194.         ConnOpen() : SQL1 = "UPDATE 銷售控制表 SET 轉業績日期 = N'' WHERE 轉業績日期 IS NULL" : CmdSet_For_dr()

  195.     End Sub

  196.     Friend Sub SQL_業績運費計算_查詢()

  197.         ConnOpen()

  198.         SQL1 = "SELECT 扣運費, 已出未收, 代運費 FROM 業績運費計算 WHERE 日期區間 LIKE N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "'"

  199.         CmdSet_For_dr()

  200.     End Sub

  201.     Friend Sub SQL_業績運費計算_新增()

  202.         ConnOpen()

  203.         SQL1 = "INSERT INTO 業績運費計算 (日期區間, 扣運費, 已出未收, 代運費) 

  204.                 VALUES (N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "', 

  205.                         N'" & 業績獎金彙總表.NUD2.Value & "', N'" & 業績獎金彙總表.NUD3.Value & "', N'" & 業績獎金彙總表.NUD4.Value & "')"

  206.         CmdSet_For_dr()

  207.     End Sub

  208.     Friend Sub SQL_業績運費計算_修正()

  209.         ConnOpen()

  210.         SQL1 = "UPDATE 業績運費計算 SET 扣運費 = N'" & 業績獎金彙總表.NUD2.Value & "', 已出未收 = N'" & 業績獎金彙總表.NUD3.Value & "', 代運費 = N'" & 業績獎金彙總表.NUD4.Value & "' 

  211.                 WHERE 日期區間 LIKE N'" & 業績獎金彙總表.開始日期_dtp.Value & "-" & 業績獎金彙總表.結束日期_dtp.Value & "'"

  212.         CmdSet_For_dr()

  213.     End Sub

  214.     Friend Sub SQL_業績完單1()

  215.         ConnOpen()

  216.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 

  217.                            AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎

  218.                 FROM       銷售控制表 LEFT OUTER JOIN

  219.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  220.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  221.                           (銷售控制表.轉業績日期 IS NULL OR 銷售控制表.轉業績日期 LIKE '') AND (銷售明細表.料號 NOT LIKE '1001%') AND 

  222.                           (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')

  223.                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎

  224.                 ORDER BY   銷售控制表.單號"

  225.         CmdSet_For_DGV()

  226.     End Sub

  227.     Friend Sub SQL_業績完單2()

  228.         ConnOpen()

  229.         SQL1 = "SELECT     銷售控制表.單號, SUM(銷售明細表.售價 * 銷售明細表.數量) AS 銷貨總額, SUM(銷售明細表.成本 * 銷售明細表.數量) 

  230.                            AS 成本, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎

  231.                 FROM       銷售控制表 LEFT OUTER JOIN

  232.                            銷售明細表 ON 銷售控制表.單號 = 銷售明細表.單號 LEFT OUTER JOIN 銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號

  233.                 WHERE     (銷售控制表.已出貨 = 1) AND (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0) AND 

  234.                            銷售控制表.轉業績日期 IS NOT NULL AND 銷售控制表.轉業績日期 NOT LIKE '' AND (銷售明細表.料號 NOT LIKE '1001%') AND 

  235.                           (銷售控制表.單號 LIKE N'" & 業績單據完單設定.查詢單號_tb.Text & "%')

  236.                 GROUP BY   銷售控制表.單號, 銷售控制表.運費, 銷售控制表.稅金, 銷售控制表.刷卡費用, 銷售控制表.轉業績日期, 銷售控制表.獎金基礎

  237.                 ORDER BY   銷售控制表.單號"

  238.         CmdSet_For_DGV()

  239.     End Sub

  240.     Friend Sub SQL_獎金基礎下拉()

  241.         ConnOpen() : SQL1 = "SELECT 獎金計算 FROM 業績機算基礎 ORDER BY 獎金計算" : CmdSet_For_dr()

  242.     End Sub

  243.     Friend Sub SQL_業績完單_修正()

  244.         ConnOpen()

  245.         SQL1 = "UPDATE 銷售控制表 SET 轉業績日期 = N'" & 業績單據完單設定.開始日期_dtp.Text & "', 獎金基礎 = N'" & 業績單據完單設定.獎金基礎_ch.Text & "' 

  246.                 WHERE 單號 LIKE N'" & 業績單據完單設定.業務單號_tb.Text & "'"

  247.         CmdSet_For_dr()

  248.     End Sub

  249.     Friend Sub SQL_業績運費()

  250.         ConnOpen()

  251.         SQL1 = "SELECT     銷售控制表.轉業績日期 AS 完單日期, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.運費, 銷售控制表.運費已付, 

  252.                            客戶資料表.地址, 銷售控制表.合載 AS 備註

  253.                 FROM       銷售控制表 LEFT OUTER JOIN

  254.                            銷售收款事項 ON 銷售控制表.單號 = 銷售收款事項.單號 LEFT OUTER JOIN

  255.                            客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編

  256.                 WHERE     (銷售控制表.轉業績日期 NOT LIKE '') AND 

  257.                           (銷售控制表.轉業績日期 BETWEEN '" & Strings.Format(業績運費明細表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND 

  258.                                                          '" & Strings.Format(業績運費明細表.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 

  259.                           (銷售收款事項.內容 = N'未收餘額') AND (銷售收款事項.金額 = 0)

  260.                 ORDER BY   完單日期, 銷售控制表.單號"

  261.         CmdSet_For_DGV()

  262.     End Sub

  263.     Friend Sub SQL_業績運費_修正()

  264.         ConnOpen()

  265.         SQL1 = "UPDATE 銷售控制表 SET 運費已付 = N'" & PA1 & "', 合載 = N'" & PA2 & "' WHERE 單號 LIKE N'" & PA & "'"

  266.         CmdSet_For_dr()

  267.     End Sub

  268. End Module