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.
29 Commits
1 Branch
Tree: 05bbf64c78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '05bbf64c78'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MAOJI-ERP-SYS/01、Module/SQL_跨介面共用.vb

SQL_跨介面共用.vb 17KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240 
  1. Module SQL_跨介面共用

  2.     Friend Sub SQL_倉儲明細表新增()

  3.         ConnOpen()

  4.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 倉名編號, 交期) 

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

  6.                      "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "')"

  7.         CmdSet_For_dr()

  8.     End Sub

  9.     Friend Sub SQL_倉儲明細表新增_含訂單編號()

  10.         ConnOpen()

  11.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 單據編號, 供應商編號, 料號, 金額, 匯率, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業, 客戶編號, 售價, 公司編號, 倉名編號, 交期, 

  12.                                         訂單流水號) 

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

  14.                      "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "', N'" & PA10 & "')"

  15.         CmdSet_For_dr()

  16.     End Sub

  17.     Friend Sub SQL_FTP資料夾路徑分配()

  18.         ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()

  19.     End Sub

  20.     Friend Sub SQL_系統版本號驗證()

  21.         ConnOpen() : SQL1 = "SELECT 系統認證版本號, 系統鎖定 FROM 版本號管理 " : CmdSet_For_dr()

  22.     End Sub

  23.     Friend Sub SQL_公司基本資料宣告()

  24.         ConnOpen() : SQL1 = "SELECT 公司編號, 統編, 電話, 地址 FROM MJ公司基本資料 WHERE 公司名 LIKE N'" & PA & "'" : CmdSet_For_dr()

  25.     End Sub

  26.     Friend Sub SQL_職別查詢()

  27.         ConnOpen() : SQL1 = "SELECT 職別, 編號 FROM MJ職別 WHERE 職別 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()

  28.     End Sub

  29.     Friend Sub SQL_負責區域查詢()

  30.         ConnOpen() : SQL1 = "SELECT 負責區域, 編號 FROM  MJ負責區域 WHERE 負責區域 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()

  31.     End Sub

  32.     Friend Sub SQL_倉名編號取得()

  33.         ConnOpen() : SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 WHERE 倉名 LIKE N'" & PA & "'" : CmdSet_For_dr()

  34.     End Sub

  35.     Friend Sub SQL_倉名下拉清單()

  36.         ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 WHERE 倉名 NOT LIKE N'NA' ORDER BY 倉名編號" : CmdSet_For_dr()

  37.     End Sub

  38.     Friend Sub SQL_年份清單查詢()

  39.         ConnOpen() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE N'" & PA & "'" : CmdSet_For_dr()

  40.     End Sub

  41.     Friend Sub SQL_使用者權限圖片顯示()

  42.         ConnOpen() : SQL1 = "SELECT 簽名檔圖片 FROM MJ主管簽名檔管理 WHERE 圖片流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  43.     End Sub

  44.     Friend Sub SQL_付款方式查詢()

  45.         ConnOpen() : SQL1 = "SELECT 付款方式 FROM MJ付款方式 WHERE 付款方式 LIKE N'" & PA & "'  ORDER BY 編號" : CmdSet_For_dr()

  46.     End Sub

  47.     Friend Sub SQL_物料頁碼清單()

  48.         ConnOpen()

  49.         SQL1 = "SELECT    LEFT(頁碼, CASE WHEN CHARINDEX('-', 頁碼) > 0 THEN CHARINDEX('-', 頁碼) - 1 ELSE LEN(頁碼) END) AS 頁碼

  50.                 FROM      物料資料庫

  51.                 WHERE    (停用 = 0)

  52.                 GROUP BY  LEFT(頁碼, CASE WHEN CHARINDEX('-', 頁碼) > 0 THEN CHARINDEX('-', 頁碼) - 1 ELSE LEN(頁碼) END)

  53.                 ORDER BY  頁碼"

  54.         CmdSet_For_dr()

  55.     End Sub

  56.     Friend Sub SQL_倉儲明細表流水號最後一筆()

  57.         ConnOpen() : SQL1 = "SELECT TOP (1) 資料流水號 FROM 倉儲明細表 ORDER BY 資料流水號 DESC" : CmdSet_For_dr()

  58.     End Sub

  59.     Friend Sub SQL_物料資料庫成本查詢()

  60.         ConnOpen() : SQL1 = "SELECT 成本 FROM 物料資料庫 WHERE (料號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_物料資料庫成本修改()

  63.         ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET  成本 = N'" & NU1 & "' WHERE (料號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  64.     End Sub

  65.     Friend Sub SQL_倉儲明細表生成單據編號()

  66.         ConnOpen() : SQL1 = "SELECT 單據編號 FROM 倉儲明細表 WHERE ( 單據編號 LIKE N'" & PA1 & "') GROUP BY 單據編號" : CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_倉儲明細表_入庫日期讀取()

  69.         ConnOpen() : SQL1 = "SELECT 入庫日期 FROM 倉儲明細表 WHERE ( 資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  70.     End Sub

  71.     Friend Sub SQL_倉儲明細表刪除()

  72.         ConnOpen() : SQL1 = "DELETE FROM 倉儲明細表 WHERE (資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_付款方式_編號()

  75.         ConnOpen() : SQL1 = "SELECT 編號 FROM MJ付款方式 WHERE 付款方式 LIKE N'" & PA1 & "' ORDER BY 編號" : CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_供應商資料表下拉清單()

  78.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 供應商資料表 WHERE (停用 = 0 OR 停用 IS NULL) AND (編號 NOT LIKE N'FI00000000') ORDER BY 名稱" : CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_供應商資料表關鍵字查詢()

  81.         ConnOpen()

  82.         SQL1 = "SELECT 編號, 簡稱 FROM 供應商資料表 WHERE (簡稱 LIKE N'%" & PA & "%') AND (停用 = 0 OR 停用 IS NULL) AND (編號 NOT LIKE N'FI00000000') ORDER BY 名稱"

  83.         CmdSet_For_dr()

  84.     End Sub

  85.     Friend Sub SQL_客戶資料表_下拉清單讀取()

  86.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM  客戶資料表 ORDER BY 簡稱" : CmdSet_For_dr()

  87.     End Sub

  88.     Friend Sub SQL_訂單控制表_出貨備齊()

  89.         ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET  出貨備齊  = N'1' WHERE (訂單流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  90.     End Sub

  91.     Friend Sub SQL_客戶資料表關鍵字查詢()

  92.         ConnOpen() : SQL1 = "SELECT 編號, 簡稱 FROM 客戶資料表 WHERE (簡稱 LIKE N'%" & PA & "%') AND (編號 NOT LIKE N'CI00000000') ORDER BY 簡稱" : CmdSet_For_dr()

  93.     End Sub

  94.     Friend Sub SQL_傭金比例下拉清單()

  95.         ConnOpen() : SQL1 = "SELECT 比例 FROM 佣金比例 ORDER BY 比例" : CmdSet_For_dr()

  96.     End Sub

  97.     Friend Sub SQL_員工名稱下拉清單()

  98.         ConnOpen() : SQL1 = "SELECT 名稱 FROM 員工資料表 ORDER BY 名稱" : CmdSet_For_dr()

  99.     End Sub

  100.     Friend Sub SQL_出貨單業務司機指定()

  101.         ConnOpen()

  102.         SQL1 = "UPDATE 倉儲明細表 SET 業務 = N'" & PA1 & "', 業務比例 = N'" & NU1 & "', 司機 = N'" & PA2 & "', 司機比例 = N'" & NU2 & "' WHERE 單據編號 LIKE N'" & PA & "' AND 狀態 LIKE N'銷售出庫'"

  103.         CmdSet_For_dr()

  104.     End Sub

  105.     Friend Sub SQL_營運成本收支單申請_支付單號流水號()

  106.         ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 營運成本控制表 WHERE ( 支付單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  107.     End Sub

  108.     Friend Sub SQL_營運成本控制表新增()

  109.         ConnOpen()

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

  111.                 VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'" & 公司編號 & "')"

  112.         CmdSet_For_dr()

  113.     End Sub

  114.     Friend Sub SQL_營運成本明細表項次新增查詢()

  115.         ConnOpen() : SQL1 = "SELECT TOP(1) 項次 FROM 營運成本明細表 WHERE 流水號 LIKE N'" & PA & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  116.     End Sub

  117.     Friend Sub SQL_營運成本明細表新增()

  118.         ConnOpen()

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

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

  121.                     "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "')"

  122.         CmdSet_For_dr()

  123.     End Sub

  124.     Friend Sub SQL_倉儲明細表_出庫日期讀取()

  125.         ConnOpen() : SQL1 = "SELECT 出庫日期 FROM 倉儲明細表 WHERE ( 資料流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  126.     End Sub

  127.     Friend Sub SQL_出貨單申請_零售客戶記錄表流水號最後一筆()

  128.         ConnOpen() : SQL1 = "SELECT TOP (1) 零售流水號 FROM 零售客戶記錄表 ORDER BY 零售流水號 DESC" : CmdSet_For_dr()

  129.     End Sub

  130.     Friend Sub SQL_通用預設值管理查詢()

  131.         ConnOpen() : SQL1 = "SELECT 預設值 FROM 通用預設值管理表一 WHERE ( 流水號 LIKE N'" & 關鍵字編號 & "')" : CmdSet_For_dr()

  132.     End Sub

  133.     Friend Sub SQL_會計科目_第一階_不含流動票務()

  134.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND (第一階 NOT LIKE N'流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  135.     End Sub

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

  137.         ConnOpen()

  138.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE N'3') AND (停用 = 0) AND (第一階 NOT LIKE N'流動%')

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

  140.         CmdSet_For_dr()

  141.     End Sub

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

  143.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE N'流動%') ORDER BY 編號" : CmdSet_For_dr()

  144.     End Sub

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

  146.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE N'流動%') ORDER BY 編號" : CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_會計科目_第一階_只含流動票務()

  149.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND (第一階 LIKE N'流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  150.     End Sub

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

  152.         ConnOpen()

  153.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE N'3') AND (停用 = 0) AND (第一階 LIKE N'流動%')

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

  155.         CmdSet_For_dr()

  156.     End Sub

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

  158.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE N'流動%') ORDER BY 編號" : CmdSet_For_dr()

  159.     End Sub

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

  161.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE N'流動%') ORDER BY 編號" : CmdSet_For_dr()

  162.     End Sub

  163.     Friend Sub SQL_倉儲入庫驗收確認()

  164.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "', 倉名編號 = N'" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  165.     End Sub

  166.     Friend Sub SQL_採購單申請_倉儲明細表修改_入庫(採購下單 As String)

  167.         ConnOpen()

  168.         SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 入庫 = N'" & NU2 & "' , 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "', 採購下單 = N'" & 採購下單 & "' 

  169.                 WHERE (資料流水號 LIKE N'" & PA3 & "')"

  170.         CmdSet_For_dr()

  171.     End Sub

  172.     Friend Sub SQL_出貨單申請_零售客戶記錄表刪除()

  173.         ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.單據編號_tb.Text & "')" : CmdSet_For_dr()

  174.     End Sub

  175.     Friend Sub SQL_出貨單申請_倉儲明細表修改_出庫()

  176.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  177.     End Sub

  178.     Friend Sub SQL_營運成本控制表刪除()

  179.         ConnOpen() : SQL1 = "DELETE FROM 營運成本控制表 WHERE (支付單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  180.     End Sub

  181.     Friend Sub SQL_營運成本明細表刪除()

  182.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_營運成本明細表刪除單筆()

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

  186.     End Sub

  187.     Friend Sub SQL_營運成本明細表項次修改()

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

  189.     End Sub

  190.     Friend Sub SQL_支票收支單申請_客戶資料_零售()

  191.         ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  192.     End Sub

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

  194.         ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE N'A-01-02%') AND (層級 LIKE N'3')" : CmdSet_For_dr()

  195.     End Sub

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

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

  198.     End Sub

  199.     Friend Sub SQL_支票收支單申請修改()

  200.         ConnOpen()

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

  202.                                      "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "', 發票人帳號 = N'" & PA8 & "', 兌現科目 = N'" & PA9 & "', 付款銀行 = N'" & PA10 &

  203.                                      "', 倉儲單號 = N'" & PA11 & "', 支票號碼 = N'" & PA12 & "', 開票人 = N'" & PA13 & "', 到期日 = N'" & PA14 & "', 預定兌現日 = N'" & PA15 &

  204.                                      "', 開收票日 = N'" & PA16 & "'

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

  206.         CmdSet_For_dr()

  207.     End Sub

  208.     Friend Sub SQL_支票收支單客戶供應商查詢()

  209.         If Left(PA, 1) = "F" Then

  210.             KKKJJ = "WHERE     (倉儲明細表.供應商編號 LIKE N'" & PA & "')"

  211.         Else

  212.             KKKJJ = "WHERE     (倉儲明細表.客戶編號 LIKE N'" & PA & "')"

  213.         End If

  214.         ConnOpen()

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

  216.                 FROM       倉儲明細表 INNER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 INNER JOIN

  217.                            客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號

  218.                 " & KKKJJ & "

  219.                 GROUP BY   倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱, 客戶資料表.簡稱"

  220.         CmdSet_For_dr()

  221.     End Sub

  222.     Friend Sub SQL_應收應付單號連接暫存檔刪除()

  223.         ConnOpen() : SQL1 = "DELETE FROM 應收應付單號連接暫存檔" : CmdSet_For_dr()

  224.     End Sub

  225.     Friend Sub SQL_應收應付單號連接暫存檔新增()

  226.         ConnOpen() : SQL1 = "INSERT INTO 應收應付單號連接暫存檔 (流水單號)  VALUES (N'" & PA19 & "')" : CmdSet_For_dr()

  227.     End Sub

  228.     Friend Sub SQL_支票收支單申請_付款銀行_下拉清單()

  229.         ConnOpen() : SQL1 = "SELECT 付款銀行 FROM 營運成本明細表 WHERE 付款銀行 IS NOT NULL GROUP BY   付款銀行" : CmdSet_For_dr()

  230.     End Sub

  231.     Friend Sub SQL_營運成本收支單申請_申請日期修改()

  232.         ConnOpen()

  233.         SQL1 = "UPDATE 營運成本明細表 SET  作帳日期 = N'" & DTP1 & "' WHERE (流水號 LIKE N'" & PA4 & "')"

  234.         CmdSet_For_dr()

  235.         ConnOpen()

  236.         SQL1 = "UPDATE 營運成本控制表 SET  申請日期 = N'" & DTP1 & "' WHERE (支付單號 LIKE N'" & PA4 & "')"

  237.         CmdSet_For_dr()

  238.     End Sub

  239. End Module