YD-ERP-SYS
/
YD-ERP-SYS-LEEHSIEHJUI
Sledovat 4
Oblíbit 0
Rozštěpit 0
Zdrojový kód Úkoly 0 Požadavky na natažení 0 Vydání 0 Wiki Activity
Bez popisu
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.
44 Revize
1 Větev
Strom: db0aa691a2
Větve Značky
${ item.name }
Create branch ${ searchTerm }
from 'db0aa691a2'
${ noResults }
YD-ERP-SYS-LEEHSIEHJUI/YD-ERP-SYS/Module/SQL_業務系統管理.vb

SQL_業務系統管理.vb 44KB
Historie Surový

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517 
  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 流水號, 單號, 開單日期, 客戶編號, 交貨日期, 含稅, 單位主管, 審核日期, 業務人員, 送貨地點, 運費, 稅金, 已出貨 AS 出貨

  58.                 FROM   銷售控制表 " & SQL2 & " ORDER BY   CHARINDEX(LEFT(單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 單號 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_銷售控制表1()

  66.         If 業務單號修改功能.已審核資料_ch.Checked = True Then

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

  68.         Else

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

  70.         End If

  71.         ConnOpen()

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

  73.                 FROM   銷售控制表 " & SQL2 & " ORDER BY   CHARINDEX(LEFT(單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 單號 DESC"

  74.         CmdSet_For_DGV()

  75.     End Sub

  76.     Friend Sub SQL_銷售單號修改()

  77.         ConnOpen() : SQL1 = "UPDATE  採購控制表 SET 銷售單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (銷售單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  78.         ConnOpen() : SQL1 = "UPDATE  銷售明細表 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  79.         ConnOpen() : SQL1 = "UPDATE  銷售備註表 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  80.         ConnOpen() : SQL1 = "UPDATE  銷售控制表 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  81.         ConnOpen() : SQL1 = "UPDATE  銷售衍生運費 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  82.         ConnOpen() : SQL1 = "UPDATE  銷售收款事項 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  83.         ConnOpen() : SQL1 = "UPDATE  採購訂製圖庫 SET 單號 = N'" & 業務單號修改功能.新單號_tb.Text & "' WHERE (單號 LIKE N'" & 業務單號修改功能.舊單號_tb.Text & "')" : CmdSet_For_dr()

  84.     End Sub

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

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

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

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

  89.         Else

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

  91.         End If

  92. 

  93.         ConnOpen()

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

  95.                 FROM   銷售控制表 " & SQL2 & " ORDER BY   CHARINDEX(LEFT(單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 單號 DESC"

  96.         CmdSet_For_DGV()

  97.     End Sub

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

  99.         ConnOpen()

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

  101.         CmdSet_For_dr()

  102.     End Sub

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

  104.         ConnOpen()

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

  106.         CmdSet_For_dr()

  107.     End Sub

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

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

  110.         ConnOpen()

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

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

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

  114.                             客戶資料表.地址, 客戶資料表.公司名稱, 客戶資料表.統編, 銷售控制表.稅金, 銷售控制表.已出貨 AS 出貨, 

  115.                             銷售控制表.轉業績日期, 銷售控制表.已出貨 AS 已結單, 銷售控制表.銷貨總額

  116.                 FROM        銷售控制表 INNER JOIN

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

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

  119.                                   FROM               銷售明細表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

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

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

  132.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  133.         CmdSet_For_DGV()

  134.     End Sub

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

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

  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      銷售控制表.單號 AS 項次, 銷售控制表.單號, 銷售明細表.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 

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

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

  146.                 FROM        倉儲狀態 RIGHT OUTER JOIN

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

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

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

  150.                             物料資料庫 INNER JOIN

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

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

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

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

  155.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  156.         CmdSet_For_DGV()

  157.     End Sub

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

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

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

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

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

  163.         End If

  164.         ConnOpen()

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

  166.                 FROM        倉儲狀態 RIGHT OUTER JOIN

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

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

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

  170.                             物料資料庫 INNER JOIN

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

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

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

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

  175.                 GROUP BY    LEFT(銷售控制表.單號, 2)

  176.                 ORDER BY    銷售 DESC"

  177.         CmdSet_For_DGV()

  178.     End Sub

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

  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 供應商, 物料資料庫.品名, 倉儲分區控制表.倉名, 

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

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

  189.                 FROM        倉儲狀態 RIGHT OUTER JOIN

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

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

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

  193.                             物料資料庫 INNER JOIN

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

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

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

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

  198.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  199.         CmdSet_For_DGV()

  200.     End Sub

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

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

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

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

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

  206.         End If

  207.         ConnOpen()

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

  209.                 FROM        倉儲狀態 RIGHT OUTER JOIN

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

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

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

  213.                             物料資料庫 INNER JOIN

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

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

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

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

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

  219.                 ORDER BY    它項收支"

  220.         CmdSet_For_DGV()

  221.     End Sub

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

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

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

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

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

  227.         End If

  228.         ConnOpen()

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

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

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

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

  233.         CmdSet_For_DGV()

  234.     End Sub

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

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

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

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

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

  240.         End If

  241.         ConnOpen()

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

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

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

  245.                 GROUP BY   LEFT(銷售控制表.單號, 2)

  246.                 ORDER BY   其他收支"

  247.         CmdSet_For_DGV()

  248.     End Sub

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

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

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

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

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

  254.         End If

  255.         ConnOpen()

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

  257.                 FROM       銷售控制表

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

  259.                 ORDER BY   單號 DESC"

  260.         CmdSet_For_DGV()

  261.     End Sub

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

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

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

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

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

  267.         End If

  268.         ConnOpen()

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

  270.                 FROM       銷售控制表

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

  272.                 GROUP BY   LEFT(單號,1)

  273.                 ORDER BY   稅金 DESC"

  274.         CmdSet_For_DGV()

  275.     End Sub

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

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

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

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

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

  281.         End If

  282.         ConnOpen()

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

  284.                 ORDER BY   CHARINDEX(LEFT(單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 單號 DESC"

  285.         CmdSet_For_DGV()

  286.     End Sub

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

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

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

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

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

  292.         End If

  293.         ConnOpen()

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

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

  296.         CmdSet_For_DGV()

  297.     End Sub

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

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

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

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

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

  303.         End If

  304.         ConnOpen()

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

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

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

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

  309.                                   FROM               銷售明細表 LEFT OUTER JOIN

  310.                                                               物料資料庫 INNER JOIN

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

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

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

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

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

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

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

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

  319.         CmdSet_For_DGV()

  320.     End Sub

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

  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          AAA.項次, AAA.編號, AAA.供應商, AAA.預估進貨, 系統比例用空白圖片.圖片 AS 成本佔比

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

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

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

  333.                                   FROM               銷售明細表 LEFT OUTER JOIN

  334.                                                               物料資料庫 INNER JOIN

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

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

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

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

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

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

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

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

  343.         CmdSet_For_DGV()

  344.     End Sub

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

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

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

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

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

  350.         End If

  351.         ConnOpen()

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

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

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

  355.                 FROM        倉儲狀態 RIGHT OUTER JOIN

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

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

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

  359.                             物料資料庫 INNER JOIN

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

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

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

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

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

  365.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  366.         CmdSet_For_DGV()

  367.     End Sub

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

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

  370.         ConnOpen()

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

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

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

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

  375.                 FROM        銷售控制表 LEFT OUTER JOIN

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

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

  378.                                   FROM   銷售收款事項

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

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

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

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

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

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

  385.                 GROUP BY    銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 

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

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

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

  389.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  390.         CmdSet_For_DGV()

  391.     End Sub

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

  393.         ConnOpen()

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

  395.         CmdSet_For_dr()

  396.     End Sub

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

  398.         ConnOpen()

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

  400.         CmdSet_For_dr()

  401.     End Sub

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

  403.         ConnOpen()

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

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

  406.         CmdSet_For_dr()

  407.     End Sub

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

  409.         ConnOpen()

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

  411.         CmdSet_For_dr()

  412.     End Sub

  413.     Friend Sub SQL_銷售衍生運費_轉財務Null為False()

  414.         ConnOpen()

  415.         SQL1 = "UPDATE  銷售衍生運費 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"

  416.         CmdSet_For_dr()

  417.     End Sub

  418.     Friend Sub SQL_銷售備註表_轉財務Null為False()

  419.         ConnOpen()

  420.         SQL1 = "UPDATE  銷售備註表 SET 轉財務 = 0 WHERE (轉財務 Is NULL)"

  421.         CmdSet_For_dr()

  422.     End Sub

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

  424.         ConnOpen()

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

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

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

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

  429.         CmdSet_For_dr()

  430.     End Sub

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

  432.         ConnOpen()

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

  434.         CmdSet_For_dr()

  435.     End Sub

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

  437.         ConnOpen()

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

  439.         CmdSet_For_dr()

  440.     End Sub

  441.     Friend Sub SQL_應收帳款未收_轉財務_退回()

  442.         ConnOpen()

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

  444.         CmdSet_For_dr()

  445.     End Sub

  446.     Friend Sub SQL_銷售衍生運費_轉財務()

  447.         ConnOpen()

  448.         SQL1 = "UPDATE  銷售衍生運費 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"

  449.         CmdSet_For_dr()

  450.     End Sub

  451.     Friend Sub SQL_銷售備註表_轉財務()

  452.         ConnOpen()

  453.         SQL1 = "UPDATE  銷售備註表 SET 收支單號 = N'" & PA & "', 轉財務 = 1 WHERE (資料流水號 LIKE '" & PA12 & "')"

  454.         CmdSet_For_dr()

  455.     End Sub

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

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

  458.         ConnOpen()

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

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

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

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

  463.                 FROM        銷售控制表 LEFT OUTER JOIN

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

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

  466.                                   FROM   銷售收款事項

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

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

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

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

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

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

  473.                 GROUP BY    銷售控制表.流水號, 銷售控制表.單號, 客戶資料表.名稱, 銷售控制表.開單日期, 銷售控制表.交貨日期, 

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

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

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

  477.                 ORDER BY   CHARINDEX(LEFT(銷售控制表.單號, 1), '123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'), 銷售控制表.單號 DESC"

  478.         CmdSet_For_DGV()

  479.     End Sub

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

  481.         ConnOpen()

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

  483.         CmdSet_For_dr()

  484.     End Sub

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

  486.         ConnOpen()

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

  488.         CmdSet_For_dr()

  489.     End Sub

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

  491.         ConnOpen()

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

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

  494.         CmdSet_For_dr()

  495.     End Sub

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

  497.         ConnOpen()

  498.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 銷售單申請.會科碼1_ch.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)

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

  500.         CmdSet_For_dr()

  501.     End Sub

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

  503.         ConnOpen()

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

  505.         CmdSet_For_dr()

  506.     End Sub

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

  508.         ConnOpen()

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

  510.         CmdSet_For_dr()

  511.     End Sub

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

  513.         ConnOpen()

  514.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 銷售單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"

  515.         CmdSet_For_dr()

  516.     End Sub

  517. End Module