MAOJI-ERP-SYS
/
MAOJI-ERP-SYS-LEEHSIEHJUI
Watch 4
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 Commits
1 Branch
Tree: 67a22aac53
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '67a22aac53'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_財務系統管理.vb

SQL_財務系統管理.vb 70KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706 
  1. Module SQL_財務系統管理

  2.     '---------------------營運成本收支_決算表-----------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_營運成本收支_決算表年清單()

  4.         ConnOpen()

  5.         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 

  6.                             EERR.細項金額, 會計科目.抵銷科目 AS 抵銷, QQWW.主項金額 AS 主項彙總, WWEE.子項金額 AS 子項彙總, EERR.細項金額 AS 細項彙總

  7.                 FROM        會計科目 FULL OUTER JOIN

  8.                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 

  9.                                        SUM(營運成本明細表_3.金額) - SUM(營運成本明細表_3.零用金) AS 細項金額

  10.                                 FROM   營運成本明細表 AS 營運成本明細表_3 INNER JOIN 營運成本控制表 AS 營運成本控制表_3 ON 營運成本明細表_3.流水號 = 營運成本控制表_3.支付單號

  11.                                 WHERE (營運成本控制表_3.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 

  12.                                       (營運成本控制表_3.公司編號 LIKE '%" & 公司編號 & "%')

  13.                                 GROUP BY    營運成本明細表_3.會計科目) AS EERR ON 會計科目.編號 = EERR.細項 

  14.                             FULL OUTER JOIN

  15.                                (SELECT LEFT(營運成本明細表_2.會計科目, 4) AS 主碼, SUM(營運成本明細表_2.支票數) + SUM(營運成本明細表_2.收款) - 

  16.                                        SUM(營運成本明細表_2.金額) - SUM(營運成本明細表_2.零用金) AS 主項金額

  17.                                 FROM   營運成本明細表 AS 營運成本明細表_2 INNER JOIN 營運成本控制表 AS 營運成本控制表_2 ON 營運成本明細表_2.流水號 = 營運成本控制表_2.支付單號

  18.                                 WHERE (營運成本控制表_2.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 

  19.                                       (營運成本控制表_2.公司編號 LIKE '%" & 公司編號 & "%')

  20.                                 GROUP BY    LEFT(營運成本明細表_2.會計科目, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 

  21.                             FULL OUTER JOIN

  22.                                (SELECT LEFT(營運成本明細表_1.會計科目, 7) AS 子碼, SUM(營運成本明細表_1.支票數) + SUM(營運成本明細表_1.收款) - 

  23.                                        SUM(營運成本明細表_1.金額) + SUM(營運成本明細表_1.零用金) AS 子項金額

  24.                                 FROM   營運成本明細表 AS 營運成本明細表_1 INNER JOIN 營運成本控制表 AS 營運成本控制表_1 ON 營運成本明細表_1.流水號 = 營運成本控制表_1.支付單號

  25.                                 WHERE (營運成本控制表_1.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 

  26.                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')

  27.                                 GROUP BY    LEFT(營運成本明細表_1.會計科目, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼

  28.                 WHERE     (會計科目.顯示 = 1)

  29.                 ORDER BY   會計科目.編號"

  30.         CmdSet_For_DGV()

  31.     End Sub

  32.     Friend Sub SQL_營運成本收支_決算表月清單()

  33.         ConnOpen()

  34.         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額, 

  35.                             EERR.細項金額 AS [金額], 會計科目.抵銷科目 AS 抵銷, EERR.細項金額 AS [彙總]

  36.                 FROM        會計科目 FULL OUTER JOIN

  37.                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 

  38.                                        SUM(營運成本明細表_3.金額) - SUM(營運成本明細表_3.零用金) AS 細項金額

  39.                                 FROM   營運成本明細表 AS 營運成本明細表_3 INNER JOIN 營運成本控制表 AS 營運成本控制表_3 ON 營運成本明細表_3.流水號 = 營運成本控制表_3.支付單號

  40.                                 WHERE (營運成本控制表_3.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 

  41.                                       (營運成本控制表_3.公司編號 LIKE '%" & 公司編號 & "%')

  42.                                 GROUP BY    營運成本明細表_3.會計科目) AS EERR ON 會計科目.編號 = EERR.細項 

  43.                             FULL OUTER JOIN

  44.                                (SELECT LEFT(營運成本明細表_2.會計科目, 4) AS 主碼, SUM(營運成本明細表_2.支票數) + SUM(營運成本明細表_2.收款) - 

  45.                                        SUM(營運成本明細表_2.金額) - SUM(營運成本明細表_2.零用金) AS 主項金額

  46.                                 FROM   營運成本明細表 AS 營運成本明細表_2 INNER JOIN 營運成本控制表 AS 營運成本控制表_2 ON 營運成本明細表_2.流水號 = 營運成本控制表_2.支付單號

  47.                                 WHERE (營運成本控制表_2.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 

  48.                                       (營運成本控制表_2.公司編號 LIKE '%" & 公司編號 & "%')

  49.                                 GROUP BY    LEFT(營運成本明細表_2.會計科目, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 

  50.                             FULL OUTER JOIN

  51.                                (SELECT LEFT(營運成本明細表_1.會計科目, 7) AS 子碼, SUM(營運成本明細表_1.支票數) + SUM(營運成本明細表_1.收款) - 

  52.                                        SUM(營運成本明細表_1.金額) - SUM(營運成本明細表_1.零用金) AS 子項金額

  53.                                 FROM   營運成本明細表 AS 營運成本明細表_1 INNER JOIN 營運成本控制表 AS 營運成本控制表_1 ON 營運成本明細表_1.流水號 = 營運成本控制表_1.支付單號

  54.                                 WHERE (營運成本控制表_1.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 

  55.                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')

  56.                                 GROUP BY    LEFT(營運成本明細表_1.會計科目, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼

  57.                 WHERE     (會計科目.顯示 = 1)

  58.                 ORDER BY   會計科目.編號"

  59.         CmdSet_For_DGV()

  60.     End Sub

  61.     Friend Sub SQL_財務決算表合計預設()

  62.         ConnOpen() : SQL1 = "SELECT 項次, 名稱, 年度合計 FROM 財務決算表合計預設 ORDER BY 項次" : CmdSet_For_DGV()

  63.     End Sub

  64.     Friend Sub SQL_財務決算表合計預設修改()

  65.         ConnOpen() : SQL1 = "UPDATE 財務決算表合計預設 SET  名稱 = N'" & PA1 & "', 年度合計 = N'" & 布林1 & "' WHERE (項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  66.     End Sub

  67.     Friend Sub SQL_營運成本收支_決算表_會計科目()

  68.         ConnOpen() : SQL1 = "SELECT 會計科目 FROM 會計科目 WHERE (層級 LIKE '1') AND (停用 IS NULL OR 停用 = 0) ORDER BY  會計科目" : CmdSet_For_dr()

  69.     End Sub

  70.     Friend Sub SQL_營運成本收支_決算表_彙總借貸()

  71.         ConnOpen() : SQL1 = "SELECT 抵銷科目 FROM 會計科目 WHERE (層級 LIKE 1) AND (會計科目 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  72.     End Sub

  73.     '---------------------營運成本收支單_對帳表-----------------------------------------------------------------------------------------------------------------

  74.     Friend Sub SQL_營運成本收支_決算表_清單()

  75.         ConnOpen()

  76.         SQL1 = "SELECT      營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 

  77.                             營運成本控制表.審核日期, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途 AS 用途與內容, 

  78.                             營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 

  79.                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.會計, 營運成本明細表.作帳日期, 

  80.                             營運成本明細表.出納 AS 點交, 營運成本明細表.出納日期 AS 點交日期, 營運成本明細表.備用金 AS 開票已付, 

  81.                             營運成本明細表.支票 AS 收票兌現, 營運成本明細表.現金 AS 現金點交, 營運成本明細表.公帳 AS 支出點交, 

  82.                             營運成本明細表.到期日

  83.                 FROM        營運成本明細表 INNER JOIN

  84.                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號 FULL OUTER JOIN

  85.                             營運成本控制表 ON 營運成本明細表.流水號 = 營運成本控制表.支付單號

  86.                 WHERE      (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND (營運成本明細表.狀態 NOT LIKE '轉現') AND 

  87.                            (營運成本控制表.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & " 

  88.                 ORDER BY    收支單號 DESC, 營運成本明細表.項次"

  89.         CmdSet_For_DGV()

  90.     End Sub

  91.     Friend Sub SQL_營運成本明細表_會計歸零()

  92.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 會計 = N'0' WHERE (會計 IS NULL)" : CmdSet_For_dr()

  93.     End Sub

  94.     Friend Sub SQL_營運成本明細表_出納歸零()

  95.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 出納 = N'0' WHERE (出納 IS NULL)" : CmdSet_For_dr()

  96.     End Sub

  97.     Friend Sub SQL_營運成本明細表_現金歸零()

  98.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 現金 = N'0' WHERE (現金 IS NULL)" : CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_營運成本明細表_備用金歸零()

  101.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 備用金 = N'0' WHERE (備用金 IS NULL)" : CmdSet_For_dr()

  102.     End Sub

  103.     Friend Sub SQL_營運成本明細表_公帳歸零()

  104.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 公帳 = N'0' WHERE (公帳 IS NULL)" : CmdSet_For_dr()

  105.     End Sub

  106.     Friend Sub SQL_營運成本明細表_支票歸零()

  107.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 支票 = N'0' WHERE (支票 IS NULL)" : CmdSet_For_dr()

  108.     End Sub

  109.     Friend Sub SQL_營運成本明細表_作帳日期歸零()

  110.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 作帳日期 = N'' WHERE (作帳日期 IS NULL)" : CmdSet_For_dr()

  111.     End Sub

  112.     Friend Sub SQL_營運成本明細表_出納日期歸零()

  113.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 出納日期 = N'' WHERE (出納日期 IS NULL)" : CmdSet_For_dr()

  114.     End Sub

  115.     Friend Sub SQL_營運成本明細表_對帳記錄存檔()

  116.         ConnOpen()

  117.         SQL1 = "UPDATE 營運成本明細表 SET 現金 = '" & 布林1 & "', 備用金 = '" & 布林2 & "', 公帳 = '" & 布林3 & "', 支票 = '" & 布林4 & "' WHERE 流水號 LIKE '" & PA1 & "' AND 項次 Like '" & PA2 & "'"

  118.         CmdSet_For_dr()

  119.     End Sub

  120.     '---------------------營運成本收支單一覽表-----------------------------------------------------------------------------------------------------------------

  121.     Friend Sub SQL_營運成本收支單一覽表清單()

  122.         ConnOpen()

  123.         SQL1 = "SELECT   營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 營運成本控制表.審核日期, 營運成本控制表.核准圖檔, 

  124.                          營運成本控制表.簽名編碼

  125.                 FROM     營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 

  126.                 WHERE   (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 NOT LIKE '') AND 

  127.                         (營運成本控制表.審核人 NOT LIKE '作廢%') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  128.                          營運成本控制表.審核日期 BETWEEN '" & Strings.Format(財務收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") &

  129.                                                 "' AND '" & Strings.Format(財務收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "'

  130.                 GROUP BY 營運成本控制表.支付單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 營運成本控制表.審核日期, 營運成本控制表.核准圖檔, 

  131.                          營運成本控制表.簽名編碼

  132.                 ORDER BY 營運成本控制表.審核日期 DESC"

  133.         CmdSet_For_DGV()

  134.     End Sub

  135.     Friend Sub SQL_營運成本收支單一覽表彙總()

  136.         ConnOpen()

  137.         SQL1 = "SELECT      LEFT(營運成本控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, SUM(營運成本明細表.零用金) AS 開票, 

  138.                             SUM(營運成本明細表.支票數) AS 收票, SUM(營運成本明細表.收款) AS 現金, SUM(營運成本明細表.金額) AS 支出

  139.                 FROM        營運成本控制表 RIGHT OUTER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 RIGHT OUTER JOIN 會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號

  140.                 WHERE      (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  141.                            (營運成本控制表.審核日期 BETWEEN '" & Strings.Format(財務收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' 

  142.                                                         AND '" & Strings.Format(財務收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  143.                 GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), LEFT(營運成本控制表.審核日期, 7)

  144.                 ORDER BY    LEFT(營運成本控制表.審核日期, 7), LEFT(會計科目.編號, 7)"

  145.         CmdSet_For_DGV()

  146.     End Sub

  147.     Friend Sub SQL_營運成本收支單一覽表費用清單()

  148.         ConnOpen()

  149.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途, 

  150.                             營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 

  151.                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期

  152.                 FROM        營運成本明細表 INNER JOIN

  153.                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號

  154.                 WHERE      (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本明細表.流水號 LIKE '" & 財務收支單一覽表.收支單號_tb.Text & "')

  155.                 ORDER BY    營運成本明細表.項次"

  156.         CmdSet_For_DGV()

  157.     End Sub

  158.     '---------------------現金收支單申請-----------------------------------------------------------------------------------------------------------------

  159.     Friend Sub SQL_營運成本收支單申請清單()

  160.         ConnOpen()

  161.         If 現金收支單申請.未核准的現金收支單_rb.Checked = True And 現金收支單申請.作廢的現金收支單_rb.Checked = False And 現金收支單申請.已核准的現金收支單_rb.Checked = False Then

  162.             KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 LIKE '') AND 

  163.                            (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"

  164.         ElseIf 現金收支單申請.未核准的現金收支單_rb.Checked = False And 現金收支單申請.作廢的現金收支單_rb.Checked = True And 現金收支單申請.已核准的現金收支單_rb.Checked = False Then

  165.             KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 LIKE '作廢%') AND 

  166.                            (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"

  167.         ElseIf 現金收支單申請.未核准的現金收支單_rb.Checked = False And 現金收支單申請.作廢的現金收支單_rb.Checked = False And 現金收支單申請.已核准的現金收支單_rb.Checked = True Then

  168.             KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 NOT LIKE '作廢%') AND 

  169.                            (營運成本控制表.審核人 NOT LIKE '') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"

  170.         End If

  171.         SQL1 = "SELECT    營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人

  172.                 FROM      營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 " & KKKJJ & " 

  173.                 GROUP BY  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人

  174.                 ORDER BY  營運成本控制表.申請日期 DESC"

  175.         CmdSet_For_DGV()

  176.     End Sub

  177.     Friend Sub SQL_營運成本收支單申請費用清單()

  178.         ConnOpen()

  179.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途, 

  180.                             營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 

  181.                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 

  182.                             營運成本明細表.狀態

  183.                 FROM        營運成本明細表 INNER JOIN

  184.                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號

  185.                 WHERE      (狀態 LIKE '%現%'  OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本明細表.流水號 LIKE '" & 現金收支單申請.收支單號_tb.Text & "')

  186.                 ORDER BY    營運成本明細表.項次"

  187.         CmdSet_For_DGV()

  188.     End Sub

  189.     Friend Sub SQL_營運成本收支單申請修改()

  190.         ConnOpen()

  191.         SQL1 = "UPDATE 營運成本明細表 SET  用途 = N'" & PA1 & "', 金額 = N'" & NU1 & "', 備註 = N'" & PA2 & "' , 會計科目 = N'" & PA3 &

  192.                                        "', 收款 = N'" & NU2 & "', 零用金 = N'" & NU3 & "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "'

  193.                 WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"

  194.         CmdSet_For_dr()

  195.     End Sub

  196.     Friend Sub SQL_營運成本收支單申請_會科修改()

  197.         ConnOpen()

  198.         SQL1 = "UPDATE 營運成本明細表 SET  會計科目 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"

  199.         CmdSet_For_dr()

  200.     End Sub

  201.     '---------------------營運成本收支單審核-----------------------------------------------------------------------------------------------------------------

  202.     Friend Sub SQL_營運成本收支單審核清單()

  203.         ConnOpen()

  204.         If 財務收支單審核.未核准的營運成本收支單_rb.Checked = True And 財務收支單審核.作廢的營運成本收支單_rb.Checked = False Then

  205.             KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%') AND (營運成本控制表.審核人 LIKE '')  AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"

  206.         ElseIf 財務收支單審核.未核准的營運成本收支單_rb.Checked = False And 財務收支單審核.作廢的營運成本收支單_rb.Checked = True Then

  207.             KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%') AND (營運成本控制表.審核人 LIKE '作廢%')  AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"

  208.         End If

  209.         SQL1 = "SELECT     營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人

  210.                 FROM       營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 " & KKKJJ & " 

  211.                 GROUP BY   營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人

  212.                 ORDER BY   收支單號 DESC"

  213.         CmdSet_For_DGV()

  214.     End Sub

  215.     Friend Sub SQL_營運成本收支單審核費用清單()

  216.         ConnOpen()

  217.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.支票數 AS 收票, 營運成本明細表.零用金 AS 開票, 營運成本明細表.收款 AS 現金, 

  218.                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.狀態, 營運成本明細表.倉儲單號, 營運成本明細表.支票號碼, 營運成本明細表.到期日, 營運成本明細表.開票人, 

  219.                             營運成本明細表.登錄人

  220.                 FROM        營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號

  221.                 WHERE      (營運成本明細表.狀態 LIKE '%現%') AND (營運成本明細表.流水號 LIKE '" & 財務收支單審核.收支單號_tb.Text & "')

  222.                 ORDER BY    營運成本明細表.項次"

  223.         CmdSet_For_DGV()

  224.     End Sub

  225.     Friend Sub SQL_營運成本收支單審核_圖檔編碼()

  226.         ConnOpen() : SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM MJ主管簽名檔管理 ORDER BY 圖片流水號 DESC" : CmdSet_For_DGV()

  227.     End Sub

  228.     Friend Sub SQL_營運成本收支單審核_簽名編碼()

  229.         ConnOpen() : SQL1 = "SELECT 簽名編碼 FROM 營運成本控制表 WHERE 簽名編碼 LIKE '" & 財務收支單審核.驗證碼_tb.Text & "'" : CmdSet_For_dr()

  230.     End Sub

  231.     Friend Sub SQL_營運成本收支單審核_控制表修改()

  232.         ConnOpen()

  233.         SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 財務收支單審核.圖片編碼_tb.Text &

  234.                                     "', 簽名編碼 = N'" & 財務收支單審核.驗證碼_tb.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "' 

  235.                 WHERE (支付單號 = N'" & 財務收支單審核.收支單號_tb.Text & "')"

  236.         CmdSet_For_dr()

  237.     End Sub

  238.     Friend Sub SQL_營運成本收支單審核_明細表修改()

  239.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (流水號 LIKE '" & 財務收支單審核.收支單號_tb.Text & "')" : CmdSet_For_dr()

  240.     End Sub

  241.     Friend Sub SQL_營運成本收支單審核_明細表_現金確認()

  242.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET  現金 = N'1' WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  243.     End Sub

  244.     Friend Sub SQL_營運成本收支單審核_明細表_公帳確認()

  245.         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET  公帳 = N'1' WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()

  246.     End Sub

  247.     Friend Sub SQL_營運成本收支單審核_控制表作廢()

  248.         ConnOpen()

  249.         SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 財務收支單審核.收支單號_tb.Text & "')"

  250.         CmdSet_For_dr()

  251.     End Sub

  252.     '---------------------營運狀態彙總_檢視表-----------------------------------------------------------------------------------------------------------------

  253.     Friend Sub SQL_營運狀態彙總_檢視表清單_採購()

  254.         ConnOpen()

  255.         SQL1 = "SELECT    倉儲明細表.單據編號, 供應商資料表.簡稱 AS 廠商, SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) AS 採購成本, LEFT(倉儲明細表.入庫日期, 7) AS 入庫

  256.                 FROM      倉儲明細表 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號

  257.                 WHERE    (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  258.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "%')

  259.                 GROUP BY  供應商資料表.簡稱, LEFT(倉儲明細表.入庫日期, 7), 倉儲明細表.單據編號

  260.                 ORDER BY  廠商"

  261.         CmdSet_For_DGV()

  262.     End Sub

  263.     Friend Sub SQL_營運狀態彙總_檢視表清單_訂單()

  264.         ConnOpen()

  265.         SQL1 = "SELECT      訂單控制表.訂單流水號, 客戶資料表.簡稱, 訂單明細表.出貨情況, SUM(訂單明細表.數量) AS 訂單總數, SUM(倉儲明細表_2.入庫) AS 訂單採購, SUM(倉儲明細表_1.出庫) AS 訂單出貨, 

  266.                             SUM(倉儲明細表_2.入庫 * 倉儲明細表_2.金額) AS 採購成本, SUM(倉儲明細表_1.出庫 * 倉儲明細表_1.售價) AS 出貨銷售, SUM(訂單明細表.數量 * 物料資料庫.售價) AS 銷售預估

  267.                 FROM        訂單明細表 LEFT OUTER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  268.                                 (SELECT   資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 

  269.                                           出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 倉名編號, 交期, 訂單流水號

  270.                                  FROM     倉儲明細表

  271.                                  WHERE   (倉儲明細表.倉儲作業 NOT LIKE '')) AS 倉儲明細表_1 ON 

  272.                             訂單明細表.出貨單號 = 倉儲明細表_1.單據編號 AND   訂單明細表.料號 = 倉儲明細表_1.料號 LEFT OUTER JOIN 倉儲明細表 AS 倉儲明細表_2 ON 

  273.                             訂單明細表.料號 = 倉儲明細表_2.料號 AND 訂單明細表.採購單號 = 倉儲明細表_2.單據編號 LEFT OUTER JOIN 客戶資料表 INNER JOIN 訂單控制表 ON 

  274.                             客戶資料表.編號 = 訂單控制表.客戶編號 ON 訂單明細表.訂單流水號 = 訂單控制表.訂單流水號

  275.                 WHERE      (訂單控制表.下單日 LIKE '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "%') AND (訂單控制表.公司編號 LIKE '%" & 公司編號 & "%')

  276.                 GROUP BY    客戶資料表.簡稱, 訂單明細表.出貨情況, 訂單控制表.訂單流水號

  277.                 ORDER BY    客戶資料表.簡稱, 訂單明細表.出貨情況"

  278.         CmdSet_For_DGV()

  279.     End Sub

  280.     Friend Sub SQL_營運狀態彙總_檢視表清單_生產()

  281.         ConnOpen()

  282.         SQL1 = "SELECT     客戶資料表.簡稱, SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 損耗成本

  283.                 FROM       倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  284.                 WHERE     (物料資料庫.頁碼 LIKE '000%') AND (倉儲明細表.狀態 LIKE '組裝出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  285.                           (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "%')

  286.                 GROUP BY   客戶資料表.簡稱

  287.                 ORDER BY   客戶資料表.簡稱"

  288.         CmdSet_For_DGV()

  289.     End Sub

  290.     Friend Sub SQL_營運狀態彙總_檢視表清單_銷售()

  291.         ConnOpen()

  292.         SQL1 = "SELECT    倉儲明細表.單據編號, 客戶資料表.簡稱 AS 客戶, SUM(倉儲明細表.售價 * 倉儲明細表.出庫) AS 銷售金額, SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 銷售成本

  293.                 FROM      倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號

  294.                 WHERE    (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  295.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "%')

  296.                 GROUP BY  客戶資料表.簡稱, 倉儲明細表.單據編號

  297.                 ORDER BY  客戶"

  298.         CmdSet_For_DGV()

  299.     End Sub

  300.     Friend Sub SQL_營運狀態彙總_檢視表清單_庫存()

  301.         ConnOpen()

  302.         SQL1 = "SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 

  303.                             SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) AS 加權成本_台幣, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 

  304.                             (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, WW.未入庫, 

  305.                             WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 在途成本_台幣, QQ.未出庫, 

  306.                             QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 倉儲分區控制表.倉名, 物料資料庫.備註

  307.                  FROM       倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  308.                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN

  309.                                 (SELECT          供應商編號, 料號, SUM(出庫) AS 未出庫

  310.                                   FROM           倉儲明細表 AS 倉儲明細表_2

  311.                                   WHERE         (倉儲作業 LIKE '') AND (狀態 LIKE '%出庫') AND (公司編號 LIKE '%" & 公司編號 & "%') AND 

  312.                                                 (倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "/" & PA1 & "')

  313.                                   GROUP BY       供應商編號, 料號) AS QQ ON 倉儲明細表.供應商編號 = QQ.供應商編號 AND 

  314.                             倉儲明細表.料號 = QQ.料號 FULL OUTER JOIN

  315.                                 (SELECT          供應商編號, 料號, SUM(入庫) AS 未入庫

  316.                                   FROM           倉儲明細表 AS 倉儲明細表_1

  317.                                   WHERE         (倉儲作業 LIKE '') AND (狀態 LIKE '%入庫') AND (公司編號 LIKE '%" & 公司編號 & "%') AND 

  318.                                                 (倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "/" & PA1 & "')

  319.                                   GROUP BY       供應商編號, 料號) AS WW ON 倉儲明細表.供應商編號 = WW.供應商編號 AND 

  320.                             倉儲明細表.料號 = WW.料號

  321.                  WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND 

  322.                            (倉儲明細表.倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "/" & PA1 & "')

  323.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 倉儲分區控制表.倉名, 物料資料庫.備註

  324.                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)

  325.                  ORDER BY   倉儲分區控制表.倉名, 供應商, 倉儲明細表.料號"

  326.         CmdSet_For_DGV()

  327.     End Sub

  328.     Friend Sub SQL_營運狀態彙總_檢視表清單_盤點()

  329.         ConnOpen()

  330.         SQL1 = "SELECT    倉儲明細表.單據編號, 供應商資料表.簡稱 AS 名稱, SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) AS 盤營金額, 

  331.                           SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 盤損金額

  332.                 FROM      倉儲明細表 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號

  333.                 WHERE    (倉儲明細表.狀態 LIKE '盤%') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  334.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.年份_cb.Text & "/" & 營運狀態彙總_檢視表.月份_cb.Text & "%')

  335.                 GROUP BY  供應商資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.單據編號

  336.                 ORDER BY  名稱"

  337.         CmdSet_For_DGV()

  338.     End Sub

  339.     '---------------------業務佣金計算-----------------------------------------------------------------------------------------------------------------

  340.     Friend Sub SQL_業務佣金計算清單()

  341.         ConnOpen()

  342.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.出庫日期 AS 出貨日期, 客戶資料表.簡稱, 物料資料庫.品名, 倉儲明細表.售價, 倉儲明細表.出庫 AS 數量, 倉儲明細表.業務, 倉儲明細表.業務比例 AS 比例, 

  343.                             倉儲明細表.售價 * 倉儲明細表.出庫 / 100 * 倉儲明細表.業務比例 AS 佣金, 倉儲明細表.已轉帳 AS 已立帳, 倉儲明細表.已轉帳 AS 選擇, 倉儲明細表.資料流水號

  344.                 FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  345.                 WHERE      (倉儲明細表.業務 IS NOT NULL) AND (倉儲明細表.業務 LIKE N'%" & 業務佣金計算.業務_cb.Text & "%') AND (倉儲明細表.狀態 LIKE '銷售出庫') AND 

  346.                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(業務佣金計算.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(業務佣金計算.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 

  347.                            (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.業務比例 <> 0)

  348.                 ORDER BY   倉儲明細表.單據編號"

  349.         CmdSet_For_DGV()

  350.     End Sub

  351.     Friend Sub SQL_銷售業務人員清單()

  352.         ConnOpen() : SQL1 = "SELECT 業務 FROM 倉儲明細表 WHERE (業務 IS NOT NULL) GROUP BY 業務 ORDER BY 業務" : CmdSet_For_dr()

  353.     End Sub

  354.     Friend Sub SQL_業務佣金計算表_轉立收支單修改()

  355.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 已轉帳 = 1 WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()

  356.     End Sub

  357.     '---------------------司機佣金計算-----------------------------------------------------------------------------------------------------------------

  358.     Friend Sub SQL_司機佣金計算清單()

  359.         ConnOpen()

  360.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.出庫日期 AS 出貨日期, 客戶資料表.簡稱, 物料資料庫.品名, 倉儲明細表.售價, 倉儲明細表.出庫 AS 數量, 倉儲明細表.司機, 倉儲明細表.司機比例 AS 比例, 

  361.                             倉儲明細表.售價 * 倉儲明細表.出庫 / 100 * 倉儲明細表.司機比例 AS 佣金, 倉儲明細表.已立帳, 倉儲明細表.已轉帳 AS 選擇, 倉儲明細表.資料流水號

  362.                 FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  363.                 WHERE      (倉儲明細表.司機 IS NOT NULL) AND (倉儲明細表.司機 LIKE N'%" & 司機佣金計算.司機_cb.Text & "%') AND (倉儲明細表.狀態 LIKE '銷售出庫') AND 

  364.                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(司機佣金計算.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(司機佣金計算.結束日期_dtp.Value, "yyyy/MM/dd") & "') AND 

  365.                            (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.司機比例 <> 0) AND (倉儲明細表.出庫 > 0)

  366.                 ORDER BY   倉儲明細表.單據編號"

  367.         CmdSet_For_DGV()

  368.     End Sub

  369.     Friend Sub SQL_銷售司機人員清單()

  370.         ConnOpen() : SQL1 = "SELECT 司機 FROM 倉儲明細表 WHERE (司機 IS NOT NULL) GROUP BY 司機 ORDER BY 司機" : CmdSet_For_dr()

  371.     End Sub

  372.     Friend Sub SQL_司機佣金計算表_轉立收支單修改()

  373.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 已立帳 = 1 WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()

  374.     End Sub

  375.     '---------------------應付帳款控制表-----------------------------------------------------------------------------------------------------------------

  376.     Friend Sub SQL_應付賬款主單()

  377.         ConnOpen()

  378.         SQL1 = "SELECT      倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商

  379.                 FROM        倉儲明細表 LEFT OUTER JOIN

  380.                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN

  381.                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  382.                 WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  383.                            (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  384.                 GROUP BY    倉儲明細表.供應商編號, 供應商資料表.簡稱

  385.                 ORDER BY    倉儲明細表.供應商編號, 供應商資料表.簡稱"

  386.         CmdSet_For_DGV()

  387.     End Sub

  388.     Friend Sub SQL_應付賬款清單一()

  389.         ConnOpen()

  390.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 

  391.                             倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 

  392.                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期

  393.                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 

  394.                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  395.                 WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.供應商編號 LIKE '" & 應付賬款控制表.供應商編號_tb.Text & "') AND 

  396.                            (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "') 

  397.                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"

  398.         CmdSet_For_DGV()

  399.     End Sub

  400.     Friend Sub SQL_應付賬款清單二()

  401.         ConnOpen()

  402.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 

  403.                             倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 

  404.                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期

  405.                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 

  406.                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  407.                 WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應付賬款控制表.財務收支單號_tb.Text & "')

  408.                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"

  409.         CmdSet_For_DGV()

  410.     End Sub

  411.     Friend Sub SQL_應付賬款清單三()

  412.         ConnOpen()

  413.         SQL1 = "SELECT     營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 

  414.                            營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 付現, 營運成本明細表.收款 AS 收現, 營運成本明細表.備註, 營運成本明細表.備用金 AS 開票已付, 

  415.                            營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 

  416.                            營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 

  417.                            營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 營運成本明細表.出納日期, 營運成本明細表.倉儲單號

  418.                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  419.                 WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應付賬款控制表.財務收支單號_tb.Text & "') 

  420.                 ORDER BY   營運成本明細表.項次"

  421.         CmdSet_For_DGV()

  422.     End Sub

  423.     '---------------------應收帳款控制表-----------------------------------------------------------------------------------------------------------------

  424.     Friend Sub SQL_應收賬款主單()

  425.         ConnOpen()

  426.         SQL1 = "SELECT      倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶

  427.                 FROM        倉儲明細表 INNER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 LEFT OUTER JOIN

  428.                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  429.                 WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  430.                            (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  431.                 GROUP BY    倉儲明細表.客戶編號, 客戶資料表.簡稱

  432.                 ORDER BY    倉儲明細表.客戶編號, 客戶資料表.簡稱"

  433.         CmdSet_For_DGV()

  434.     End Sub

  435.     Friend Sub SQL_應收賬款清單一()

  436.         ConnOpen()

  437.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 

  438.                             倉儲明細表.出庫, 倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 

  439.                             倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期

  440.                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 

  441.                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  442.                 WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.客戶編號 LIKE '" & 應收帳款控制表.客戶編號_tb.Text & "') AND 

  443.                            (倉儲明細表.採購下單 BETWEEN '" & Format(應收帳款控制表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "') 

  444.                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"

  445.         CmdSet_For_DGV()

  446.     End Sub

  447.     Friend Sub SQL_應收賬款清單二()

  448.         ConnOpen()

  449.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 

  450.                             倉儲明細表.出庫, 倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 

  451.                             倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期

  452.                 FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 

  453.                             LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  454.                 WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應收帳款控制表.財務收支單號_tb.Text & "')

  455.                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"

  456.         CmdSet_For_DGV()

  457.     End Sub

  458.     Friend Sub SQL_應收賬款清單三()

  459.         ConnOpen()

  460.         SQL1 = "SELECT     營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 

  461.                            營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 付現, 營運成本明細表.收款 AS 收現, 營運成本明細表.備註, 營運成本明細表.備用金 AS 開票已付, 

  462.                            營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 

  463.                            營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 

  464.                            營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 營運成本明細表.出納日期, 營運成本明細表.倉儲單號

  465.                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  466.                 WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應收帳款控制表.財務收支單號_tb.Text & "')

  467.                 ORDER BY   營運成本明細表.項次"

  468.         CmdSet_For_DGV()

  469.     End Sub

  470.     '---------------------支票收支單申請-----------------------------------------------------------------------------------------------------------------

  471.     Friend Sub SQL_支票收支單申請清單()

  472.         ConnOpen()

  473.         SQL1 = "SELECT    營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人, 營運成本明細表.狀態

  474.                 FROM      營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 

  475.                 WHERE    (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND 

  476.                          (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') 

  477.                 GROUP BY  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人, 營運成本明細表.狀態

  478.                 ORDER BY  營運成本控制表.申請日期 DESC"

  479.         CmdSet_For_DGV()

  480.     End Sub

  481.     Friend Sub SQL_支票收支單申請費用清單()

  482.         ConnOpen()

  483.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 

  484.                             營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 營運成本明細表.金額 AS 支出, 

  485.                             營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 營運成本明細表.狀態, 營運成本明細表.倉儲單號, 

  486.                             營運成本明細表.支票號碼, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 

  487.                             營運成本明細表.託收已付日, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 

  488.                             營運成本明細表.登錄人, 營運成本明細表.發票人帳號, WW.會計科目 AS 兌現會科

  489.                 FROM        營運成本明細表 LEFT OUTER JOIN

  490.                             會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN

  491.                             會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  492.                 WHERE      (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND 

  493.                            (營運成本明細表.流水號 LIKE '" & 支票收支單申請.收支單號_tb.Text & "')

  494.                 ORDER BY    營運成本明細表.項次"

  495.         CmdSet_For_DGV()

  496.     End Sub

  497.     Friend Sub SQL_支票收支單申請複製單據新增()

  498.         ConnOpen()

  499.         SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 零用金, 支票數, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 公司編號, 狀態, 登錄人, 

  500.                                                 發票人帳號, 兌現科目, 付款銀行, 倉儲單號, 支票號碼, 開票人, 到期日, 預定兌現日, 開收票日) 

  501.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & NU1 & "', N'" & PA5 & "', N'" & NU2 & "', N'" & NU3 & "', N'" & NU4 &

  502.                     "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 &

  503.                     "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "')"

  504.         CmdSet_For_dr()

  505.     End Sub

  506.     Friend Sub SQL_支票收支單申請_營運成本控制表新增()

  507.         ConnOpen()

  508.         SQL1 = "INSERT INTO 營運成本控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) 

  509.                 VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP &

  510.                     "', N'" & gUserName & "', N'" & DTP & "', N'票據作業', N'" & 公司編號 & "')"

  511.         CmdSet_For_dr()

  512.     End Sub

  513.     '---------------------票務控制表-----------------------------------------------------------------------------------------------------------------

  514.     Friend Sub SQL_票務控制表清單()

  515.         ConnOpen()

  516.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 

  517.                             營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.備註, 

  518.                             營運成本明細表.備用金 AS 開票已付, 營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 

  519.                             營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 

  520.                             營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 

  521.                             營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 

  522.                             營運成本明細表.出納日期, 營運成本明細表.倉儲單號, MJ選擇按鈕.選擇

  523.                 FROM        營運成本明細表 LEFT OUTER JOIN

  524.                             MJ選擇按鈕 ON 營運成本明細表.流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

  525.                             會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN

  526.                             會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  527.                 WHERE     (營運成本明細表.狀態 LIKE '%" & 票務控制表.票況_cb.Text & "%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  528.                           (QQ.會計科目 LIKE '" & 票務控制表.區分_cb.Text & "') AND (WW.會計科目 LIKE '%" & 票務控制表.兌現科目_cb.Text & "%') AND

  529.                           (營運成本明細表." & 票務控制表.日期選項_cb.Text & " BETWEEN '" & Format(票務控制表.開始日期_dtp.Value, "yyyy/MM/dd") &

  530.                                                                               "' AND '" & Format(票務控制表.結束日期_dtp.Value, "yyyy/MM/dd") & "')

  531.                 ORDER BY   營運成本明細表." & 票務控制表.日期選項_cb.Text & ""

  532.         CmdSet_For_DGV()

  533.     End Sub

  534.     Friend Sub SQL_票務控制表會科區分()

  535.         ConnOpen()

  536.         SQL1 = "SELECT     QQ.會計科目 AS 開票會科

  537.                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  538.                 WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')

  539.                 GROUP BY   QQ.會計科目 ORDER BY QQ.會計科目 DESC"

  540.         CmdSet_For_dr()

  541.     End Sub

  542.     Friend Sub SQL_票務控制表票況區分()

  543.         ConnOpen()

  544.         SQL1 = "SELECT     營運成本明細表.狀態

  545.                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  546.                 WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')

  547.                 GROUP BY   營運成本明細表.狀態 ORDER BY 營運成本明細表.狀態"

  548.         CmdSet_For_dr()

  549.     End Sub

  550.     Friend Sub SQL_票務控制表兌現科目()

  551.         ConnOpen()

  552.         SQL1 = "SELECT     WW.會計科目 AS 兌現會科

  553.                 FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號

  554.                 WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')

  555.                 GROUP BY   WW.會計科目 ORDER BY WW.會計科目"

  556.         CmdSet_For_dr()

  557.     End Sub

  558.     Friend Sub SQL_支票收支單_兌現科目_下拉清單三()

  559.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()

  560.     End Sub

  561.     Friend Sub SQL_營運成本明細表_狀態更改()

  562.         ConnOpen()

  563.         SQL1 = "UPDATE 營運成本明細表 SET 狀態 = N'" & PA3 & "', 支票 = N'" & PA4 & "', 備用金 = N'" & PA5 & "', 託收已付日 = N'" & DTP & "' 

  564.                 WHERE (流水號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA2 & "')"

  565.         CmdSet_For_dr()

  566.     End Sub

  567.     Friend Sub SQL_營運成本明細表_轉現新增()

  568.         ConnOpen()

  569.         SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 零用金, 支票數, 公司編號, 

  570.                                             倉儲單號, 支票號碼, 狀態, 到期日, 預定兌現日, 開收票日, 託收已付日, 兌現科目, 付款銀行, 開票人, 登錄人, 發票人帳號) 

  571.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA6 & "', N'" & PA7 & "', N'0', N'" & PA8 & "', N'0', N'1', N'0', N'0', N'0', N'0', N'1', N'" & PA9 & "', N'" & PA10 & "', N'" & NU1 &

  572.                     "', N'" & NU2 & "', N'" & 公司編號 & "', N'" & PA11 & "', N'" & PA12 & "', N'轉現', N'" & DTP1 & "', N'" & DTP2 & "', N'" & DTP3 & "', N'" & DTP & "', N'', N'" & PA13 &

  573.                     "', N'" & PA14 & "', N'" & gUserName & "', N'" & PA15 & "')"

  574.         CmdSet_For_dr()

  575.     End Sub

  576.     Friend Sub SQL_營運成本明細表_轉現刪除()

  577.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA2 & "') AND (狀態 LIKE '轉現')" : CmdSet_For_dr()

  578.     End Sub

  579.     '---------------------財務單具申請-----------------------------------------------------------------------------------------------------------------

  580.     Friend Sub SQL_會計科目_第一階_應付_不含流動票務() '-----------------------應付_不含流動票務---------------------------------------------------

  581.         ConnOpen()

  582.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  

  583.                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  584.         CmdSet_For_dr()

  585.     End Sub

  586.     Friend Sub SQL_會計科目_第二階_應付_不含流動票務()

  587.         ConnOpen()

  588.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  589.                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 NOT LIKE '流動%')

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

  591.         CmdSet_For_dr()

  592.     End Sub

  593.     Friend Sub SQL_會計科目_第三階_應付_不含流動票務()

  594.         ConnOpen()

  595.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  596.                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"

  597.         CmdSet_For_dr()

  598.     End Sub

  599.     Friend Sub SQL_會計科目_關鍵字_應付_不含流動票務()

  600.         ConnOpen()

  601.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  602.                 WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"

  603.         CmdSet_For_dr()

  604.     End Sub

  605.     Friend Sub SQL_會計科目_第一階_應付_只含流動票務() '-----------------------應付_只含流動票務---------------------------------------------------

  606.         ConnOpen()

  607.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  

  608.                 WHERE (編號 NOT LIKE 'A%') AND (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  609.         CmdSet_For_dr()

  610.     End Sub

  611.     Friend Sub SQL_會計科目_第二階_應付_只含流動票務()

  612.         ConnOpen()

  613.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  614.                 WHERE (編號 NOT LIKE 'A%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 LIKE '流動%')

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

  616.         CmdSet_For_dr()

  617.     End Sub

  618.     Friend Sub SQL_會計科目_第三階_應付_只含流動票務()

  619.         ConnOpen()

  620.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  621.                 WHERE (編號 NOT LIKE 'A%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"

  622.         CmdSet_For_dr()

  623.     End Sub

  624.     Friend Sub SQL_會計科目_關鍵字_應付_只含流動票務()

  625.         ConnOpen()

  626.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  627.                 WHERE (編號 NOT LIKE 'A%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"

  628.         CmdSet_For_dr()

  629.     End Sub

  630.     Friend Sub SQL_會計科目_第一階_應收_不含流動票務() '-----------------------應收_不含流動票務---------------------------------------------------

  631.         ConnOpen()

  632.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  

  633.                 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  634.         CmdSet_For_dr()

  635.     End Sub

  636.     Friend Sub SQL_會計科目_第二階_應收_不含流動票務()

  637.         ConnOpen()

  638.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  639.                 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 NOT LIKE '流動%')

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

  641.         CmdSet_For_dr()

  642.     End Sub

  643.     Friend Sub SQL_會計科目_第三階_應收_不含流動票務()

  644.         ConnOpen()

  645.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  646.                 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"

  647.         CmdSet_For_dr()

  648.     End Sub

  649.     Friend Sub SQL_會計科目_關鍵字_應收_不含流動票務()

  650.         ConnOpen()

  651.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  652.                 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"

  653.         CmdSet_For_dr()

  654.     End Sub

  655.     Friend Sub SQL_會計科目_第一階_應收_只含流動票務() '-----------------------應收_只含流動票務---------------------------------------------------

  656.         ConnOpen()

  657.         SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  

  658.                 WHERE (編號 LIKE 'A%') AND (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"

  659.         CmdSet_For_dr()

  660.     End Sub

  661.     Friend Sub SQL_會計科目_第二階_應收_只含流動票務()

  662.         ConnOpen()

  663.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 

  664.                 WHERE (編號 LIKE 'A%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 LIKE '流動%')

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

  666.         CmdSet_For_dr()

  667.     End Sub

  668.     Friend Sub SQL_會計科目_第三階_應收_只含流動票務()

  669.         ConnOpen()

  670.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  671.                 WHERE (編號 LIKE 'A%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"

  672.         CmdSet_For_dr()

  673.     End Sub

  674.     Friend Sub SQL_會計科目_關鍵字_應收_只含流動票務()

  675.         ConnOpen()

  676.         SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 

  677.                 WHERE (編號 LIKE 'A%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"

  678.         CmdSet_For_dr()

  679.     End Sub

  680.     Friend Sub SQL_應收應付單號連接暫存檔讀取()

  681.         ConnOpen() : SQL1 = "SELECT 流水單號 FROM 應收應付單號連接暫存檔" : CmdSet_For_DGV()

  682.     End Sub

  683.     Friend Sub SQL_財務單具申請費用清單()

  684.         ConnOpen()

  685.         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 支出, 

  686.                             營運成本明細表.收款 AS 現金, 營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 營運成本明細表.狀態, 營運成本明細表.倉儲單號, 營運成本明細表.支票號碼, 

  687.                             營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 營運成本明細表.託收已付日, 

  688.                             營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號

  689.                 FROM        營運成本明細表 INNER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號

  690.                 WHERE      (營運成本明細表.流水號 LIKE '" & 財務單具申請.收支單號_tb.Text & "')

  691.                 ORDER BY    營運成本明細表.項次"

  692.         CmdSet_For_DGV()

  693.     End Sub

  694.     Friend Sub SQL_倉儲明細表財務單號連接修改()

  695.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  財務單號 = N'" & PA & "' WHERE (資料流水號 LIKE '" & PA19 & "')" : CmdSet_For_dr()

  696.     End Sub

  697.     Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()

  698.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()

  699.     End Sub

  700.     Friend Sub SQL_應收賬款_倉儲明細應付立帳修改()

  701.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應收立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()

  702.     End Sub

  703.     Friend Sub SQL_支票收支單申請_兌現科目_下拉清單三()

  704.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'D%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()

  705.     End Sub

  706. End Module