YD-ERP-SYS
/
YD-ERP-SYS-LEEHSIEHJUI
Obserwuj 4
Gwiazdka 0
Forkuj 0
Kod Problemy 0 Pull Requests 0 Wydania 0 Wiki Aktywność
Brak opisu
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.
29 Commity
1 Gałąź
Drzewo: 428e0669c1
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '428e0669c1'
${ noResults }
YD-ERP-SYS-LEEHSIEHJUI/YD-ERP-SYS/Module/SQL_業務系統管理.vb

SQL_業務系統管理.vb 38KB
Historia Czysty

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451 
  1. Module SQL_業務系統管理

  2.     '---------------------客戶資料表-----------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_客戶資料表_清單()

  4.         ConnOpen()

  5.         If 客戶資料表.查詢_tb.Text = "" Then

  6.             If 客戶資料表.業務_cb.Text = "" Then

  7.                 SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 

  8.                         ORDER BY 舊編"

  9.             Else

  10.                 SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 

  11.                         WHERE 舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%' ORDER BY 舊編"

  12.             End If

  13.         Else

  14.             If 客戶資料表.業務_cb.Text = "" Then

  15.                 SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 

  16.                         WHERE (名稱 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 電話2 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%') ORDER BY 舊編"

  17.             Else

  18.                 SQL1 = "SELECT 流水號, 流水號 AS 項次, 舊編 AS 編號, 名稱 AS 客戶, 電話1, 電話2, 公司名稱, 統編, 地址 FROM 客戶資料表 

  19.                         WHERE (舊編 LIKE N'" & 客戶資料表.業務_cb.Text & "%') AND (名稱 LIKE N'%" & PA & "%' OR 電話1 LIKE N'%" & PA & "%' OR 

  20.                                電話2 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%') 

  21.                         ORDER BY 舊編"

  22.             End If

  23.         End If

  24.         CmdSet_For_DGV()

  25.     End Sub

  26.     '---------------------銷售單申請-----------------------------------------------------------------------------------------------------------------

  27.     Friend Sub SQL_銷售控制表_最後一筆資料()

  28.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 銷售控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  29.     End Sub

  30.     Friend Sub SQL_銷售控制表_單號是否重複()

  31.         ConnOpen() : SQL1 = "SELECT TOP (1) 單號 FROM 銷售控制表 WHERE 單號 LIKE '" & PA & "'" : CmdSet_For_dr()

  32.     End Sub

  33.     Friend Sub SQL_銷售控制表_新增()

  34.         ConnOpen()

  35.         SQL1 = "INSERT INTO 銷售控制表 (流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 稅金) 

  36.                 VALUES (N'" & PA1 & "', '" & PA & "', '" & DTP & "', N'', '" & DTP2 & "', N'0', N'', N'', N'" & gUserName & "', '0')"

  37.         CmdSet_For_dr()

  38.     End Sub

  39.     Friend Sub SQL_銷售控制表_新增_無須審核()

  40.         ConnOpen()

  41.         SQL1 = "INSERT INTO 銷售控制表 (流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 稅金) 

  42.                 VALUES (N'" & PA1 & "', '" & PA & "', '" & DTP & "', N'', '" & DTP2 & "', N'0', N'呂宜嫺', N'" & DTP & "', N'" & gUserName & "', '0')"

  43.         CmdSet_For_dr()

  44.     End Sub

  45.     Friend Sub SQL_銷售收款事項_新增()

  46.         ConnOpen()

  47.         SQL1 = "INSERT INTO 銷售收款事項 (資料流水號, 單號, 項次, 內容, 金額) VALUES (N'" & PA1 & "', '" & PA & "', N'0', N'未收餘額', N'0')"

  48.         CmdSet_For_dr()

  49.     End Sub

  50.     Friend Sub SQL_銷售控制表()

  51.         If 銷售單申請.已審核資料_ch.Checked = True Then

  52.             SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 單位主管 NOT LIKE '作廢%' "

  53.         Else

  54.             SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 單位主管 LIKE '' "

  55.         End If

  56.         ConnOpen()

  57.         SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費, 稅金

  58.                 FROM   銷售控制表 " & SQL2 & " ORDER BY 單號 DESC"

  59.         CmdSet_For_DGV()

  60.     End Sub

  61.     Friend Sub SQL料號查詢簡稱()

  62.         ConnOpen() : SQL1 = "SELECT  簡稱  FROM 供應商資料表 WHERE (編號 LIKE N'" & PA30 & "')" : CmdSet_For_dr()

  63.     End Sub

  64.     '---------------------銷售單審核-----------------------------------------------------------------------------------------------------------------

  65.     Friend Sub SQL_銷售控制表_審核()

  66.         If 銷售單審核.已審核資料_ch.Checked = True Then

  67.             SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 NOT LIKE '作廢%' "

  68.         Else

  69.             SQL2 = " WHERE 單號 LIKE '" & PA19 & "%' AND 客戶編號 NOT LIKE '' AND 單位主管 LIKE '' "

  70.         End If

  71. 

  72.         ConnOpen()

  73.         SQL1 = "SELECT 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費, 稅金

  74.                 FROM   銷售控制表 " & SQL2 & " ORDER BY 單號 DESC"

  75.         CmdSet_For_DGV()

  76.     End Sub

  77.     Friend Sub SQL_銷售控制表_審核確認()

  78.         ConnOpen()

  79.         SQL1 = "UPDATE 銷售控制表 SET 單位主管 = N'" & PA & "', 審核日期 = N'" & DTP & "' WHERE 單號 LIKE '" & PA1 & "%'"

  80.         CmdSet_For_dr()

  81.     End Sub

  82.     Friend Sub SQL_銷售單審核_連帶作廢倉儲明細表()

  83.         ConnOpen()

  84.         SQL1 = "UPDATE 倉儲明細表 SET 審核人 = N'" & PA10 & "', 審核日期 = N'" & DTP & "', 倉庫作業 = N'" & PA9 & "', 作業日期 = N'" & DTP2 & "' WHERE (採購單號 LIKE N'" & PA11 & "')"

  85.         CmdSet_For_dr()

  86.     End Sub

  87.     '---------------------訂單控制表-----------------------------------------------------------------------------------------------------------------

  88.     Friend Sub SQL_銷售控制表_訂單控制表()

  89.         ConnOpen()

  90.         SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 

  91.                             銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項.內容, 銷售收款事項.金額, 

  92.                             銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 

  93.                             客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金

  94.                 FROM        銷售控制表 INNER JOIN

  95.                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 INNER JOIN

  96.                                 (SELECT          銷售明細表.單號

  97.                                   FROM               銷售明細表 INNER JOIN

  98.                                                               物料資料庫 ON 銷售明細表.料號 = 物料資料庫.料號

  99.                                   WHERE           (銷售明細表.料號 LIKE N'%" & PA21 & "%') OR

  100.                                                               (銷售明細表.備註 LIKE N'%" & PA21 & "%') OR

  101.                                                               (物料資料庫.品名 LIKE N'%" & PA21 & "%')

  102.                                   GROUP BY    銷售明細表.單號) AS QQQ ON 銷售控制表.單號 = QQQ.單號 LEFT OUTER JOIN

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

  104.                 WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%') OR

  105.                            (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.電話1 LIKE N'%" & PA20 & "%') OR

  106.                            (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.電話2 LIKE N'%" & PA20 & "%') OR

  107.                            (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.地址 LIKE N'%" & PA20 & "%') OR

  108.                            (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.公司名稱 LIKE N'%" & PA20 & "%') OR

  109.                            (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項.內容 LIKE '未收餘額') AND (客戶資料表.統編 LIKE N'%" & PA20 & "%')

  110.                 ORDER BY    銷售控制表.單號 DESC"

  111.         CmdSet_For_DGV()

  112.     End Sub

  113.     '---------------------銷售分析表-----------------------------------------------------------------------------------------------------------------

  114.     Friend Sub SQL_銷售分析表_物料明細()

  115.         If 銷售分析表.依開單日期_ch.Checked = False Then

  116.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  117.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  118.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  119.         End If

  120.         ConnOpen()

  121.         SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 

  122.                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 

  123.                             銷售明細表.狀態 AS 倉儲情況

  124.                 FROM        倉儲狀態 RIGHT OUTER JOIN

  125.                             銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN

  126.                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN

  127.                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  128.                             物料資料庫 INNER JOIN

  129.                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  130.                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  131.                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  132.                 WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND  " & SQL2 & " 

  133.                 ORDER BY    銷售控制表.單號 DESC"

  134.         CmdSet_For_DGV()

  135.     End Sub

  136.     Friend Sub SQL_銷售分析表_物料明細1()

  137.         If 銷售分析表.依開單日期_ch.Checked = False Then

  138.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  139.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  140.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  141.         End If

  142.         ConnOpen()

  143.         SQL1 = "SELECT      LEFT(銷售控制表.單號, 1) AS 項次, LEFT(銷售控制表.單號, 1) AS 業務, SUM(銷售明細表.數量 * 銷售明細表.售價) AS 銷售

  144.                 FROM        倉儲狀態 RIGHT OUTER JOIN

  145.                             銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN

  146.                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN

  147.                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  148.                             物料資料庫 INNER JOIN

  149.                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  150.                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  151.                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  152.                 WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND  " & SQL2 & " 

  153.                 GROUP BY    LEFT(銷售控制表.單號, 1)

  154.                 ORDER BY    銷售 DESC"

  155.         CmdSet_For_DGV()

  156.     End Sub

  157.     Friend Sub SQL_銷售分析表_它項明細()

  158.         If 銷售分析表.依開單日期_ch.Checked = False Then

  159.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  160.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  161.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  162.         End If

  163.         ConnOpen()

  164.         SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 

  165.                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價, 

  166.                             銷售明細表.狀態 AS 倉儲情況

  167.                 FROM        倉儲狀態 RIGHT OUTER JOIN

  168.                             銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN

  169.                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN

  170.                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  171.                             物料資料庫 INNER JOIN

  172.                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  173.                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  174.                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  175.                 WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1001%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 

  176.                 ORDER BY    銷售控制表.單號 DESC"

  177.         CmdSet_For_DGV()

  178.     End Sub

  179.     Friend Sub SQL_銷售分析表_它項明細1()

  180.         If 銷售分析表.依開單日期_ch.Checked = False Then

  181.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  182.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  183.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  184.         End If

  185.         ConnOpen()

  186.         SQL1 = "SELECT      供應商資料表.簡稱 AS 項次, 供應商資料表.簡稱 AS 銷售它項, SUM((銷售明細表.數量 * 銷售明細表.售價) - (銷售明細表.數量 * 銷售明細表.成本)) AS 它項收支

  187.                 FROM        倉儲狀態 RIGHT OUTER JOIN

  188.                             銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN

  189.                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN

  190.                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  191.                             物料資料庫 INNER JOIN

  192.                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  193.                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  194.                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  195.                 WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 LIKE '1001%') AND (銷售明細表.成本 > 0) AND " & SQL2 & " 

  196.                 GROUP BY    供應商資料表.簡稱

  197.                 ORDER BY    它項收支"

  198.         CmdSet_For_DGV()

  199.     End Sub

  200.     Friend Sub SQL_銷售分析表_銷售備註()

  201.         If 銷售分析表.依開單日期_ch.Checked = False Then

  202.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  203.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  204.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  205.         End If

  206.         ConnOpen()

  207.         SQL1 = "SELECT     銷售控制表.單號 AS 項次, 銷售備註表.單號, 銷售備註表.備註, 銷售備註表.收入, 銷售備註表.支出

  208.                 FROM       銷售備註表 INNER JOIN 銷售控制表 ON 銷售備註表.單號 = 銷售控制表.單號

  209.                 WHERE     (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND ((銷售備註表.收入 > 0) OR (銷售備註表.支出 > 0)) AND " & SQL2 & " 

  210.                 ORDER BY   銷售控制表.單號 DESC"

  211.         CmdSet_For_DGV()

  212.     End Sub

  213.     Friend Sub SQL_銷售分析表_銷售備註1()

  214.         If 銷售分析表.依開單日期_ch.Checked = False Then

  215.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  216.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  217.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  218.         End If

  219.         ConnOpen()

  220.         SQL1 = "SELECT     LEFT(銷售控制表.單號, 1) AS 項次, LEFT(銷售控制表.單號, 1) AS 業務, SUM(銷售備註表.收入 - 銷售備註表.支出) AS 其他收支

  221.                 FROM       銷售備註表 INNER JOIN 銷售控制表 ON 銷售備註表.單號 = 銷售控制表.單號

  222.                 WHERE     (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND ((銷售備註表.收入 > 0) OR (銷售備註表.支出 > 0)) AND " & SQL2 & " 

  223.                 GROUP BY   LEFT(銷售控制表.單號, 1)

  224.                 ORDER BY   其他收支"

  225.         CmdSet_For_DGV()

  226.     End Sub

  227.     Friend Sub SQL_銷售分析表_稅金()

  228.         If 銷售分析表.依開單日期_ch.Checked = False Then

  229.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  230.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  231.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  232.         End If

  233.         ConnOpen()

  234.         SQL1 = "SELECT     單號 AS 項次, 單號, 稅金

  235.                 FROM       銷售控制表

  236.                 WHERE     (單號 Not Like '4%') AND (單號 LIKE '" & PA19 & "%') AND (稅金 > 0) AND " & SQL2 & " 

  237.                 ORDER BY   單號 DESC"

  238.         CmdSet_For_DGV()

  239.     End Sub

  240.     Friend Sub SQL_銷售分析表_稅金1()

  241.         If 銷售分析表.依開單日期_ch.Checked = False Then

  242.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  243.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  244.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  245.         End If

  246.         ConnOpen()

  247.         SQL1 = "SELECT     LEFT(單號,1) AS 項次, LEFT(單號,1) AS 業務, SUM(稅金) AS 稅金

  248.                 FROM       銷售控制表

  249.                 WHERE     (單號 Not Like '4%') AND (單號 LIKE '" & PA19 & "%') AND (稅金 > 0) AND " & SQL2 & " 

  250.                 GROUP BY   LEFT(單號,1)

  251.                 ORDER BY   稅金 DESC"

  252.         CmdSet_For_DGV()

  253.     End Sub

  254.     Friend Sub SQL_銷售分析表_運費()

  255.         If 銷售分析表.依開單日期_ch.Checked = False Then

  256.             SQL2 = "(交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  257.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  258.             SQL2 = "(開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  259.         End If

  260.         ConnOpen()

  261.         SQL1 = "SELECT  單號 AS 項次, 單號, 送貨地點, 運費 FROM 銷售控制表 WHERE  (單號 Not Like '4%') AND (單號 LIKE '" & PA19 & "%') AND (運費 > 0) AND " & SQL2 & " ORDER BY 單號 DESC"

  262.         CmdSet_For_DGV()

  263.     End Sub

  264.     Friend Sub SQL_銷售分析表_運費1()

  265.         If 銷售分析表.依開單日期_ch.Checked = False Then

  266.             SQL2 = "(交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  267.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  268.             SQL2 = "(開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  269.         End If

  270.         ConnOpen()

  271.         SQL1 = "SELECT  送貨地點 AS 項次, 送貨地點, SUM(運費) AS 運費 FROM 銷售控制表 WHERE  (單號 Not Like '4%') AND (單號 LIKE '" & PA19 & "%') AND (運費 > 0) AND " & SQL2 & "

  272.                 GROUP BY 送貨地點 ORDER BY 運費 DESC"

  273.         CmdSet_For_DGV()

  274.     End Sub

  275.     Friend Sub SQL_銷售分析表_廠商彙總()

  276.         If 銷售分析表.依開單日期_ch.Checked = False Then

  277.             SQL2 = "(交貨日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  278.         ElseIf 銷售分析表.依開單日期_ch.Checked = True Then

  279.             SQL2 = "(開單日期 BETWEEN '" & Format(銷售分析表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售分析表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  280.         End If

  281.         ConnOpen()

  282.         SQL1 = "SELECT          AAA.項次, AAA.編號, AAA.供應商, AAA.成本預估, 系統比例用空白圖片.圖片 AS 成本佔比

  283.                 FROM              系統比例用空白圖片 RIGHT OUTER JOIN

  284.                                 (SELECT          物料資料庫.供應商編號 AS 項次, 物料資料庫.供應商編號 AS 編號, 供應商資料表.簡稱 AS 供應商, 

  285.                                                               SUM(銷售明細表.數量 * 銷售明細表.成本) AS 成本預估, 物料資料庫.進度條用空白

  286.                                   FROM               銷售明細表 LEFT OUTER JOIN

  287.                                                               物料資料庫 INNER JOIN

  288.                                                               供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  289.                                                               銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  290.                                                               銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  291.                                   WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售明細表.成本 > 0) AND 

  292.                                              (銷售明細表.售價 > 0) AND " & SQL2 & "

  293.                                   GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 

  294.                             系統比例用空白圖片.選擇 = AAA.進度條用空白

  295.                 ORDER BY   AAA.成本預估 DESC"

  296.         CmdSet_For_DGV()

  297.     End Sub

  298.     '---------------------貨款試算表-----------------------------------------------------------------------------------------------------------------

  299.     Friend Sub SQL_貨款試算表_廠商彙總()

  300.         If 貨款試算表.依開單日期_ch.Checked = False Then

  301.             SQL2 = "(交貨日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  302.         ElseIf 貨款試算表.依開單日期_ch.Checked = True Then

  303.             SQL2 = "(開單日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  304.         End If

  305.         ConnOpen()

  306.         SQL1 = "SELECT          AAA.項次, AAA.編號, AAA.供應商, AAA.預估進貨, 系統比例用空白圖片.圖片 AS 成本佔比

  307.                 FROM              系統比例用空白圖片 RIGHT OUTER JOIN

  308.                                 (SELECT          物料資料庫.供應商編號 AS 項次, 物料資料庫.供應商編號 AS 編號, 供應商資料表.簡稱 AS 供應商, 

  309.                                                               SUM(銷售明細表.數量 * 銷售明細表.成本) AS 預估進貨, 物料資料庫.進度條用空白

  310.                                   FROM               銷售明細表 LEFT OUTER JOIN

  311.                                                               物料資料庫 INNER JOIN

  312.                                                               供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  313.                                                               銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  314.                                                               銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  315.                                   WHERE      (銷售控制表.單號 Not Like '4%') AND (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND (銷售明細表.成本 > 0) AND 

  316.                                              (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & "

  317.                                   GROUP BY    供應商資料表.簡稱, 物料資料庫.供應商編號, 物料資料庫.進度條用空白) AS AAA ON 

  318.                             系統比例用空白圖片.選擇 = AAA.進度條用空白

  319.                 ORDER BY   AAA.預估進貨 DESC"

  320.         CmdSet_For_DGV()

  321.     End Sub

  322.     Friend Sub SQL_貨款試算表_物料明細()

  323.         If 貨款試算表.依開單日期_ch.Checked = False Then

  324.             SQL2 = "(銷售控制表.交貨日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  325.         ElseIf 貨款試算表.依開單日期_ch.Checked = True Then

  326.             SQL2 = "(銷售控制表.開單日期 BETWEEN '" & Format(貨款試算表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(貨款試算表.結束日期_dtp.Value, "yyyy/MM/dd") & "')"

  327.         End If

  328.         ConnOpen()

  329.         SQL1 = "SELECT      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 

  330.                             物料訂製狀態.訂製, 倉儲狀態.狀態, 銷售明細表.備註, 銷售明細表.數量, 銷售明細表.成本, 銷售明細表.售價 AS 單價, 銷售明細表.含稅, 銷售明細表.售價 AS 金額, 

  331.                             銷售明細表.狀態 AS 倉儲情況

  332.                 FROM        倉儲狀態 RIGHT OUTER JOIN

  333.                             銷售明細表 ON 倉儲狀態.編碼 = 銷售明細表.物料狀態 LEFT OUTER JOIN

  334.                             物料訂製狀態 ON 銷售明細表.訂製狀態 = 物料訂製狀態.編碼 LEFT OUTER JOIN

  335.                             倉儲分區控制表 ON 銷售明細表.倉儲狀態 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  336.                             物料資料庫 INNER JOIN

  337.                             供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.編號 ON 

  338.                             銷售明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  339.                             銷售控制表 ON 銷售明細表.單號 = 銷售控制表.單號

  340.                 WHERE      (銷售控制表.單號 NOT LIKE '4%') AND (銷售控制表.單號 LIKE '" & PA20 & "%')AND (銷售明細表.料號 LIKE '" & PA19 & "%') AND (銷售明細表.料號 NOT LIKE '1001%') AND 

  341.                            (銷售明細表.成本 > 0) AND (銷售明細表.售價 > 0) AND (銷售明細表.倉儲狀態 LIKE 'N03') AND " & SQL2 & " 

  342.                 ORDER BY    銷售控制表.單號 DESC"

  343.         CmdSet_For_DGV()

  344.     End Sub

  345.     '---------------------應收帳款未收-----------------------------------------------------------------------------------------------------------------

  346.     Friend Sub SQL_應收帳款未收_訂單控制表()

  347.         ConnOpen()

  348.         SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 

  349.                             銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項_1.內容, 銷售收款事項_1.金額, 

  350.                             銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 

  351.                             客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, QQQ.收支單號, QQQ.轉財務

  352.                 FROM        銷售控制表 LEFT OUTER JOIN

  353.                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN

  354.                                 (SELECT  單號, 收支單號, 轉財務

  355.                                   FROM   銷售收款事項

  356.                                   WHERE (收支單號 IS NOT NULL) OR (收支單號 NOT LIKE '')

  357.                                   GROUP BY    單號, 收支單號, 轉財務) AS QQQ ON 銷售控制表.單號 = QQQ.單號 LEFT OUTER JOIN

  358.                             銷售收款事項 AS 銷售收款事項_1 ON 銷售控制表.單號 = 銷售收款事項_1.單號

  359.                 WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項_1.內容 LIKE '未收餘額') AND (銷售收款事項_1.金額 > 0) AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%' OR 

  360.                             客戶資料表.電話1 LIKE N'%" & PA20 & "%' OR 客戶資料表.電話2 LIKE N'%" & PA20 & "%' OR 客戶資料表.地址 LIKE N'%" & PA20 & "%' OR 

  361.                             客戶資料表.公司名稱 LIKE N'%" & PA20 & "%' OR 客戶資料表.統編 LIKE N'%" & PA20 & "%') " & SQL2 & "

  362.                 ORDER BY    銷售控制表.單號 DESC"

  363.         CmdSet_For_DGV()

  364.     End Sub

  365.     Friend Sub SQL_應收帳款未收_查詢公帳控制表會計科目()

  366.         ConnOpen()

  367.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款未收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"

  368.         CmdSet_For_dr()

  369.     End Sub

  370.     Friend Sub SQL_應收帳款未收_查詢最後一筆公帳控制表會計科目()

  371.         ConnOpen()

  372.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  373.         CmdSet_For_dr()

  374.     End Sub

  375.     Friend Sub SQL_應收帳款未收_查詢最左邊公帳控制表會計科目()

  376.         ConnOpen()

  377.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 應收帳款未收.會科碼1_ch.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)

  378.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"

  379.         CmdSet_For_dr()

  380.     End Sub

  381.     Friend Sub SQL_應收帳款未收_轉財務Null為False()

  382.         ConnOpen()

  383.         SQL1 = "UPDATE  銷售收款事項 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"

  384.         CmdSet_For_dr()

  385.     End Sub

  386.     Friend Sub SQL_應收帳款未收_新增公帳流水帳資料()

  387.         ConnOpen()

  388.         SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 

  389.                             出納日期, 零用金, 支票數, 匯率, 備註, 含稅) " &

  390.                    "VALUES (N'" & PA19 & "', N'" & 應收帳款未收.幣別_cb.Text & "', N'" & DTP & "', N'" & 應收帳款未收.ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & 應收帳款未收.營運成本收支單號_tb.Text & "', N'" & PA15 &

  391.                         "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'' ,'0')"

  392.         CmdSet_For_dr()

  393.     End Sub

  394.     Friend Sub SQL_應收帳款未收_查詢最後一筆公帳支付單號()

  395.         ConnOpen()

  396.         SQL1 = "SELECT TOP(1) 項次 FROM 公帳流水帳 WHERE 支付單號 LIKE '" & 應收帳款未收.營運成本收支單號_tb.Text & "' ORDER BY 項次 DESC"

  397.         CmdSet_For_dr()

  398.     End Sub

  399.     Friend Sub SQL_應收帳款未收_轉財務()

  400.         ConnOpen()

  401.         SQL1 = "UPDATE  銷售收款事項 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"

  402.         CmdSet_For_dr()

  403.     End Sub

  404.     '---------------------應收帳款已收-----------------------------------------------------------------------------------------------------------------

  405.     Friend Sub SQL_應收帳款已收_訂單控制表()

  406.         ConnOpen()

  407. 

  408.         SQL1 = "SELECT      銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 

  409.                             銷售控制表.含稅, 銷售控制表.單位主管, 銷售控制表.審核日期, 銷售收款事項_1.內容, 銷售收款事項_1.金額, 

  410.                             銷售控制表.送貨地點, 銷售控制表.運費, 銷售控制表.客戶編號, 客戶資料表.電話1, 客戶資料表.電話2, 

  411.                             客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, QQQ.收支單號, QQQ.轉財務

  412.                 FROM        銷售控制表 LEFT OUTER JOIN

  413.                             客戶資料表 ON 銷售控制表.客戶編號 = 客戶資料表.舊編 LEFT OUTER JOIN

  414.                                 (SELECT  單號, 收支單號, 轉財務

  415.                                   FROM   銷售收款事項

  416.                                   WHERE (收支單號 IS NOT NULL) OR (收支單號 NOT LIKE '')

  417.                                   GROUP BY    單號, 收支單號, 轉財務) AS QQQ ON 銷售控制表.單號 = QQQ.單號 LEFT OUTER JOIN

  418.                             銷售收款事項 AS 銷售收款事項_1 ON 銷售控制表.單號 = 銷售收款事項_1.單號

  419.                 WHERE      (銷售控制表.單號 LIKE '" & PA19 & "%') AND (銷售收款事項_1.內容 LIKE '未收餘額') AND (銷售收款事項_1.金額 = 0) AND (客戶資料表.名稱 LIKE N'%" & PA20 & "%' OR 

  420.                             客戶資料表.電話1 LIKE N'%" & PA20 & "%' OR 客戶資料表.電話2 LIKE N'%" & PA20 & "%' OR 客戶資料表.地址 LIKE N'%" & PA20 & "%' OR 

  421.                             客戶資料表.公司名稱 LIKE N'%" & PA20 & "%' OR 客戶資料表.統編 LIKE N'%" & PA20 & "%') " & SQL2 & "

  422.                 ORDER BY    銷售控制表.單號 DESC"

  423.         CmdSet_For_DGV()

  424.     End Sub

  425.     Friend Sub SQL_應收帳款已收_轉財務Null為False()

  426.         ConnOpen()

  427.         SQL1 = "UPDATE  銷售收款事項 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"

  428.         CmdSet_For_dr()

  429.     End Sub

  430.     Friend Sub SQL_應收帳款已收_轉財務()

  431.         ConnOpen()

  432.         SQL1 = "UPDATE  銷售收款事項 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"

  433.         CmdSet_For_dr()

  434.     End Sub

  435.     Friend Sub SQL_應收帳款已收_查詢最左邊公帳控制表會計科目()

  436.         ConnOpen()

  437.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 應收帳款已收.會科碼1_ch.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)

  438.                 GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"

  439.         CmdSet_For_dr()

  440.     End Sub

  441.     Friend Sub SQL_應收帳款已收_查詢最後一筆公帳控制表會計科目()

  442.         ConnOpen()

  443.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  444.         CmdSet_For_dr()

  445.     End Sub

  446.     Friend Sub SQL_應收帳款已收_查詢公帳控制表會計科目()

  447.         ConnOpen()

  448.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 應收帳款已收.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"

  449.         CmdSet_For_dr()

  450.     End Sub

  451. End Module