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.
6 Commits
1 Branch
Tree: 9cb7745c97
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9cb7745c97'
${ noResults }
MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module1/SQL_Module.vb

SQL_Module.vb 209KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137 
  1. Imports System.Data.SqlClient

  2. Module SQL_Module

  3.     Public ConString As String : Public SQL1 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter

  4.     Public DTP As String : Public DTP1 As String : Public DTP2 As String

  5.     Public 登入權限 As String = "姓名, 帳號, 密碼, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, 

  6.                                  CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45 "

  7.     Friend Sub SQL_連線字串_測試()

  8.         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"

  9.     End Sub

  10.     Friend Sub SQL_連線字串_正式()

  11.         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"

  12.     End Sub

  13.     Friend Sub ConnOpen()

  14.         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

  15.     End Sub

  16.     Friend Sub CmdSet_For_DGV()

  17.         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd

  18.     End Sub

  19.     Friend Sub CmdSet_For_dr()

  20.         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader

  21.     End Sub

  22.     '---------------------跨介面共用-----------------------------------------------------------------------------------------------------------------

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

  24.         ConnOpen()

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

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

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

  28.         CmdSet_For_dr()

  29.     End Sub

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

  31.         ConnOpen()

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

  33.                                         訂單流水號) 

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

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

  36.         CmdSet_For_dr()

  37.     End Sub

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

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

  40.     End Sub

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

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

  43.     End Sub

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

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

  46.     End Sub

  47.     Friend Sub SQL_職別查詢()

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

  49.     End Sub

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

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

  52.     End Sub

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

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

  55.     End Sub

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

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

  58.     End Sub

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

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

  61.     End Sub

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

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

  64.     End Sub

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

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

  67.     End Sub

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

  69.         ConnOpen() : SQL1 = "SELECT LEFT(頁碼, 3) AS 頁碼 FROM 物料資料庫 GROUP BY LEFT(頁碼, 3) ORDER BY 頁碼" : CmdSet_For_dr()

  70.     End Sub

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

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

  73.     End Sub

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

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

  76.     End Sub

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

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

  79.     End Sub

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

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

  82.     End Sub

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

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

  85.     End Sub

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

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

  88.     End Sub

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

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

  91.     End Sub

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

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

  94.     End Sub

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

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

  97.     End Sub

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

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

  100.     End Sub

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

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

  103.     End Sub

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

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

  106.     End Sub

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

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

  109.     End Sub

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

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

  112.     End Sub

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

  114.         ConnOpen()

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

  116.         CmdSet_For_dr()

  117.     End Sub

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

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

  120.     End Sub

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

  122.         ConnOpen()

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

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

  125.         CmdSet_For_dr()

  126.     End Sub

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

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

  129.     End Sub

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

  131.         ConnOpen()

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

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

  134.                     "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "')"

  135.         CmdSet_For_dr()

  136.     End Sub

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

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

  139.     End Sub

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

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

  142.     End Sub

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

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

  145.     End Sub

  146. 

  147. 

  148.     '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------

  149.     Friend Sub SQL_FTP伺服器登入位置()

  150.         ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & LoginForm1.ComboBox1.Text & "'" : CmdSet_For_dr()

  151.     End Sub

  152.     Friend Sub SQL_使用者權限宣告()

  153.         ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.UsernameTextBox.Text & "')" : CmdSet_For_dr()

  154.     End Sub

  155.     Friend Sub SQL_刷卡登入()

  156.         ConnOpen() : SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = '" & LoginForm1.UsernameTextBox.Text & "')" : CmdSet_For_dr()

  157.     End Sub

  158.     Friend Sub SQL_帳號讀取()

  159.         ConnOpen() : SQL1 = "SELECT 帳號 FROM 使用者權限管理表" : CmdSet_For_dr()

  160.     End Sub

  161.     '---------------------MAOJI_ERP_SYS-----------------------------------------------------------------------------------------------------------------

  162.     Friend Sub SQL_公司選擇清單()

  163.         ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司編號" : CmdSet_For_dr()

  164.     End Sub

  165.     '---------------------車輛保養紀錄表-----------------------------------------------------------------------------------------------------------------

  166.     Friend Sub SQL_車輛保養紀錄表()

  167.         ConnOpen() : SQL1 = "SELECT 流水號, 車牌號碼, 保養日期, 預保日期, 里程數 FROM 車輛保養紀錄表 WHERE 車牌號碼 LIKE '" & 車輛保養紀錄表.ComboBox1.Text & "' ORDER BY 保養日期 DESC" : CmdSet_For_DGV()

  168.     End Sub

  169.     Friend Sub SQL_車牌號碼清單()

  170.         ConnOpen() : SQL1 = "SELECT 車牌號碼 FROM 車輛保養紀錄表 GROUP BY 車牌號碼 ORDER BY 車牌號碼" : CmdSet_For_dr()

  171.     End Sub

  172.     Friend Sub SQL_車輛保養紀錄表流水號最後一筆()

  173.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 車輛保養紀錄表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  174.     End Sub

  175.     Friend Sub SQL_車輛保養紀錄表圖片讀取()

  176.         ConnOpen() : SQL1 = "SELECT 圖片 FROM 車輛保養紀錄表 WHERE 流水號 LIKE ('" & 車輛保養紀錄表.TextBox1.Text & "') AND (圖片 IS NOT NULL)" : CmdSet_For_dr()

  177.     End Sub

  178.     Friend Sub SQL_車輛保養紀錄表新增_無圖片()

  179.         ConnOpen()

  180.         SQL1 = "INSERT INTO 車輛保養紀錄表 (流水號, 車牌號碼, 保養日期, 預保日期, 里程數) SELECT '" & 車輛保養紀錄表.TextBox1.Text & "', '" & 車輛保養紀錄表.ComboBox1.Text & "', '" & DTP1 & "', '" & DTP2 &

  181.                        "', '" & 車輛保養紀錄表.NumericUpDown1.Value & "'"

  182.         CmdSet_For_dr()

  183.     End Sub

  184.     Friend Sub SQL_車輛保養紀錄表新增_有圖片()

  185.         ConnOpen()

  186.         SQL1 = "INSERT INTO 車輛保養紀錄表 (流水號, 車牌號碼, 保養日期, 預保日期, 里程數, 圖片) 

  187.                 SELECT '" & 車輛保養紀錄表.TextBox1.Text & "', '" & 車輛保養紀錄表.ComboBox1.Text & "', '" & DTP1 & "', '" & DTP2 &

  188.                    "', '" & 車輛保養紀錄表.NumericUpDown1.Value & "', BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.TextBox4.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  189.         CmdSet_For_dr()

  190.     End Sub

  191.     Friend Sub SQL_車輛保養紀錄表修改_無圖片()

  192.         ConnOpen()

  193.         SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.NumericUpDown1.Value & "' WHERE (流水號 = '" & 車輛保養紀錄表.TextBox1.Text & "')"

  194.         CmdSet_For_dr()

  195.     End Sub

  196.     Friend Sub SQL_車輛保養紀錄表修改_有圖片()

  197.         ConnOpen()

  198.         SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.NumericUpDown1.Value &

  199.                                           "', 圖片 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.TextBox4.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 

  200.                 WHERE (流水號 = '" & 車輛保養紀錄表.TextBox1.Text & "')"

  201.         CmdSet_For_dr()

  202.     End Sub

  203.     '---------------------簽名檔管理-----------------------------------------------------------------------------------------------------------------

  204.     Friend Sub SQL_簽名檔管理清單()

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

  206.     End Sub

  207.     Friend Sub SQL_使用者權限姓名清單()

  208.         ConnOpen() : SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_dr()

  209.     End Sub

  210.     Friend Sub SQL_主管簽名檔新增()

  211.         ConnOpen()

  212.         SQL1 = "INSERT INTO MJ主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.TextBox2.Text & "', '" & 簽名檔管理.ComboBox1.Text & "', " &

  213.                        "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 簽名檔管理.TextBox4.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  214.         CmdSet_For_dr()

  215.     End Sub

  216.     Friend Sub SQL_主管簽名檔刪除()

  217.         ConnOpen() : SQL1 = "DELETE FROM MJ主管簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.TextBox2.Text & "')" : CmdSet_For_dr()

  218.     End Sub

  219.     Friend Sub SQL_主管簽名檔流水號最後一筆()

  220.         ConnOpen() : SQL1 = "SELECT TOP (1) 圖片流水號 FROM MJ主管簽名檔管理 ORDER BY 圖片流水號 DESC" : CmdSet_For_dr()

  221.     End Sub

  222.     '---------------------系統編碼規則_1-----------------------------------------------------------------------------------------------------------------

  223.     Friend Sub SQL_佣金比例()

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

  225.     End Sub

  226.     Friend Sub SQL_FTP伺服器清單()

  227.         ConnOpen() : SQL1 = "SELECT FTP地址, FTP帳號, FTP密碼, 地區 FROM FTP資料庫管理" : CmdSet_For_DGV()

  228.     End Sub

  229.     Friend Sub SQL_付款方式清單()

  230.         ConnOpen() : SQL1 = "SELECT 編號, 付款方式 FROM MJ付款方式 ORDER BY 編號" : CmdSet_For_DGV()

  231.     End Sub

  232.     Friend Sub SQL_會計科目清單()

  233.         ConnOpen()

  234.         SQL1 = "SELECT 第一階, 第二階, 會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 顯示 FROM  會計科目 WHERE 編號 LIKE N'" & 系統編碼規則_1.ComboBox2.Text & "%' ORDER BY  編號"

  235.         CmdSet_For_DGV()

  236.     End Sub

  237.     Friend Sub SQL_年份清單()

  238.         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()

  239.     End Sub

  240.     Friend Sub SQL_會計科目下拉清單一()

  241.         ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目 GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()

  242.     End Sub

  243.     Friend Sub SQL_會計科目下拉清單二()

  244.         ConnOpen()

  245.         SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 系統編碼規則_1.ComboBox2.Text & "') AND (層級 LIKE '" & 系統編碼規則_1.ComboBox5.Text & "')

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

  247.         CmdSet_For_dr()

  248.     End Sub

  249.     Friend Sub SQL_會計科目流水號查詢第一段()

  250.         ConnOpen()

  251.         SQL1 = "SELECT TOP (1) LEFT(編號, 7) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE '" & 系統編碼規則_1.ComboBox2.Text & "') AND (層級 LIKE '2') 

  252.                 GROUP BY   LEFT(編號, 7) ORDER BY   編號 DESC"

  253.         CmdSet_For_dr()

  254.     End Sub

  255.     Friend Sub SQL_會計科目流水號查詢第二段()

  256.         ConnOpen()

  257.         SQL1 = "SELECT TOP (1) LEFT(編號, 10) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 7) LIKE '" & 系統編碼規則_1.ComboBox4.Text & "') AND (層級 LIKE '3') 

  258.                 GROUP BY   LEFT(編號, 10) ORDER BY   編號 DESC"

  259.         CmdSet_For_dr()

  260.     End Sub

  261.     Friend Sub SQL_FTP資料庫管理查詢()

  262.         ConnOpen() : SQL1 = "SELECT 地區 FROM FTP資料庫管理 WHERE 地區 LIKE '" & 系統編碼規則_1.TextBox21.Text & "'" : CmdSet_For_dr()

  263.     End Sub

  264.     Friend Sub SQL_FTP資料庫管理新增()

  265.         SQL1 = "INSERT INTO FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區) 

  266.                 VALUES (N'" & 系統編碼規則_1.TextBox24.Text & "', N'" & 系統編碼規則_1.TextBox23.Text & "', N'" & 系統編碼規則_1.TextBox22.Text & "', N'" & 系統編碼規則_1.TextBox21.Text & "')"

  267.     End Sub

  268.     Friend Sub SQL_FTP資料庫管理修改()

  269.         SQL1 = "UPDATE FTP資料庫管理 SET FTP地址 = N'" & PA & "', FTP帳號 = N'" & PA1 & "', FTP密碼 = N'" & PA2 & "' WHERE 地區 LIKE N'" & 系統編碼規則_1.TextBox21.Text & "'"

  270.     End Sub

  271.     Friend Sub SQL_FTP資料庫管理刪除()

  272.         SQL1 = "DELETE FROM FTP資料庫管理 WHERE (地區 = N'" & 系統編碼規則_1.TextBox21.Text & "')"

  273.     End Sub

  274.     Friend Sub SQL_付款方式流水號查詢()

  275.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM MJ付款方式 ORDER BY 編號 DESC" : CmdSet_For_dr()

  276.     End Sub

  277.     Friend Sub SQL_付款方式新增()

  278.         SQL1 = "INSERT INTO MJ付款方式 (編號, 付款方式) VALUES (N'" & PA1 & "', N'" & PA & "')"

  279.     End Sub

  280.     Friend Sub SQL_付款方式修改()

  281.         SQL1 = "UPDATE MJ付款方式 SET 付款方式 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.TextBox1.Text & "'"

  282.     End Sub

  283.     Friend Sub SQL_付款方式刪除()

  284.         SQL1 = "DELETE FROM MJ付款方式 WHERE (編號 = N'" & 系統編碼規則_1.TextBox1.Text & "')"

  285.     End Sub

  286.     Friend Sub SQL_職別流水號最後一筆()

  287.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM MJ職別 ORDER BY 編號 DESC" : CmdSet_For_dr()

  288.     End Sub

  289.     Friend Sub SQL_職別新增()

  290.         SQL1 = "INSERT INTO MJ職別 (編號, 職別) VALUES (N'" & PA1 & "', N'" & PA & "')"

  291.     End Sub

  292.     Friend Sub SQL_職別修改()

  293.         SQL1 = "UPDATE MJ職別 SET 職別 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.TextBox4.Text & "'"

  294.     End Sub

  295.     Friend Sub SQL_職別刪除()

  296.         SQL1 = "DELETE FROM MJ職別 WHERE (編號 = N'" & 系統編碼規則_1.TextBox4.Text & "')"

  297.     End Sub

  298.     Friend Sub SQL_負責區域流水號最後一筆()

  299.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM  MJ負責區域 ORDER BY 編號 DESC" : CmdSet_For_dr()

  300.     End Sub

  301.     Friend Sub SQL_負責區域新增()

  302.         SQL1 = "INSERT INTO MJ負責區域 (編號, 負責區域) VALUES (N'" & PA1 & "', N'" & PA & "')"

  303.     End Sub

  304.     Friend Sub SQL_負責區域修改()

  305.         SQL1 = "UPDATE MJ負責區域 SET 負責區域 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.TextBox6.Text & "'"

  306.     End Sub

  307.     Friend Sub SQL_負責區域刪除()

  308.         SQL1 = "DELETE FROM MJ負責區域 WHERE (編號 = N'" & 系統編碼規則_1.TextBox6.Text & "')"

  309.     End Sub

  310.     Friend Sub SQL_會計科目查詢()

  311.         ConnOpen() : SQL1 = "SELECT 編號 FROM 會計科目 WHERE 編號 LIKE '" & 系統編碼規則_1.TextBox16.Text & "'" : CmdSet_For_dr()

  312.     End Sub

  313.     Friend Sub SQL_會計科目新增一()

  314.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  315.                 VALUES (N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.TextBox16.Text & "', N'" & 系統編碼規則_1.ComboBox6.Text & "', N'" & 系統編碼規則_1.TextBox17.Text &

  316.                     "', N'" & 系統編碼規則_1.CheckBox1.Checked & "', N'" & 系統編碼規則_1.CheckBox2.Checked & "', N'" & 系統編碼規則_1.CheckBox3.Checked & "', N'" & 系統編碼規則_1.TextBox18.Text &

  317.                     "', N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.CheckBox6.Checked & "')"

  318.     End Sub

  319.     Friend Sub SQL_會計科目新增二()

  320.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  321.                 VALUES (N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.TextBox16.Text & "', N'" & 系統編碼規則_1.ComboBox6.Text & "', N'" & 系統編碼規則_1.TextBox17.Text &

  322.                     "', N'" & 系統編碼規則_1.CheckBox1.Checked & "', N'" & 系統編碼規則_1.CheckBox2.Checked & "', N'" & 系統編碼規則_1.CheckBox3.Checked & "', N'" & 系統編碼規則_1.TextBox18.Text &

  323.                     "', N'" & 系統編碼規則_1.ComboBox1.Text & "', N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.CheckBox6.Checked & "')"

  324.     End Sub

  325.     Friend Sub SQL_會計科目新增三()

  326.         SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 

  327.                 VALUES (N'" & 系統編碼規則_1.TextBox8.Text & "', N'" & 系統編碼規則_1.TextBox16.Text & "', N'" & 系統編碼規則_1.ComboBox6.Text & "', N'" & 系統編碼規則_1.TextBox17.Text &

  328.                     "', N'" & 系統編碼規則_1.CheckBox1.Checked & "', N'" & 系統編碼規則_1.CheckBox2.Checked & "', N'" & 系統編碼規則_1.CheckBox3.Checked & "', N'" & 系統編碼規則_1.TextBox18.Text &

  329.                     "', N'" & 系統編碼規則_1.ComboBox1.Text & "', N'" & 系統編碼規則_1.ComboBox3.Text & "', N'" & 系統編碼規則_1.CheckBox6.Checked & "')"

  330.     End Sub

  331.     Friend Sub SQL_會計科目修改()

  332.         ConnOpen()

  333.         SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & PA1 & "', 層級 = N'" & PA2 & "', 英文名稱 = N'" & PA3 & "', 統制科目 = N'" & 布林1 & "', 抵銷科目 = N'" & 布林2 & "', 停用 = N'" & 布林3 &

  334.                                     "', 附註 = N'" & PA4 & "', 第一階 = N'" & PA5 & "', 第二階 = N'" & PA6 & "' , 顯示 = N'" & 布林4 & "'

  335.                     WHERE 編號 LIKE N'" & PA7 & "'"

  336.         CmdSet_For_dr()

  337.     End Sub

  338.     Friend Sub SQL_會計科目刪除()

  339.         SQL1 = "DELETE FROM 會計科目 WHERE (編號 = N'" & 系統編碼規則_1.TextBox16.Text & "')"

  340.     End Sub

  341.     Friend Sub SQL_年份清單新增()

  342.         SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則_1.TextBox9.Text & "')"

  343.     End Sub

  344.     Friend Sub SQL_年份清單修改()

  345.         SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則_1.TextBox9.Text & "'"

  346.     End Sub

  347.     Friend Sub SQL_年份清單刪除()

  348.         SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則_1.TextBox9.Text & "')"

  349.     End Sub

  350.     Friend Sub SQL_公司資料清單()

  351.         ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司名" : CmdSet_For_DGV()

  352.     End Sub

  353.     Friend Sub SQL_公司基本資料流水號最後一筆()

  354.         ConnOpen() : SQL1 = "SELECT TOP (1) 公司編號 FROM  MJ公司基本資料 ORDER BY 公司編號 DESC" : CmdSet_For_dr()

  355.     End Sub

  356.     Friend Sub SQL_公司基本資料新增()

  357.         SQL1 = "INSERT INTO MJ公司基本資料 (公司編號, 公司名, 統編, 電話, 地址) 

  358.                 VALUES (N'" & 系統編碼規則_1.TextBox14.Text & "', N'" & 系統編碼規則_1.TextBox13.Text & "', N'" & 系統編碼規則_1.TextBox12.Text &

  359.                     "', N'" & 系統編碼規則_1.TextBox11.Text & "', N'" & 系統編碼規則_1.TextBox10.Text & "')"

  360.     End Sub

  361.     Friend Sub SQL_公司基本資料修改()

  362.         SQL1 = "UPDATE MJ公司基本資料 SET 公司名 = N'" & 系統編碼規則_1.TextBox13.Text & "', 統編 = N'" & 系統編碼規則_1.TextBox12.Text &

  363.                                         "', 電話 = N'" & 系統編碼規則_1.TextBox11.Text & "', 地址 = N'" & 系統編碼規則_1.TextBox10.Text & "' 

  364.                 WHERE 公司編號 LIKE N'" & 系統編碼規則_1.TextBox14.Text & "'"

  365.     End Sub

  366.     Friend Sub SQL_公司基本資料刪除()

  367.         SQL1 = "DELETE FROM MJ公司基本資料 WHERE (公司編號 = N'" & 系統編碼規則_1.TextBox14.Text & "')"

  368.     End Sub

  369.     Friend Sub SQL_職別清單()

  370.         ConnOpen() : SQL1 = "SELECT 編號, 職別 FROM MJ職別 ORDER BY 編號" : CmdSet_For_DGV()

  371.     End Sub

  372.     Friend Sub SQL_負責區域清單()

  373.         ConnOpen() : SQL1 = "SELECT 編號, 負責區域 FROM MJ負責區域 ORDER BY 編號" : CmdSet_For_DGV()

  374.     End Sub

  375.     Friend Sub SQL_佣金比例查詢()

  376.         ConnOpen() : SQL1 = "SELECT 比例 FROM 佣金比例 WHERE 比例 LIKE '" & 系統編碼規則_1.NumericUpDown1.Value & "'" : CmdSet_For_dr()

  377.     End Sub

  378.     Friend Sub SQL_佣金比例新增()

  379.         SQL1 = "INSERT INTO 佣金比例 (比例) VALUES (N'" & 系統編碼規則_1.NumericUpDown1.Value & "')"

  380.     End Sub

  381.     Friend Sub SQL_佣金比例刪除()

  382.         SQL1 = "DELETE FROM 佣金比例 WHERE (比例 = N'" & 系統編碼規則_1.NumericUpDown1.Value & "')"

  383.     End Sub

  384.     '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------

  385.     Friend Sub SQL_版本號管理修改()

  386.         ConnOpen()

  387.         SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.TextBox2.Text & "' WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.Label2.Text, 10) & "')"

  388.         CmdSet_For_dr()

  389.     End Sub

  390.     '---------------------系統使用者管理-----------------------------------------------------------------------------------------------------------------

  391.     Friend Sub SQL_系統使用者管理清單()

  392.         ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表" : CmdSet_For_DGV()

  393.     End Sub

  394.     Friend Sub SQL_系統使用者新增()

  395.         ConnOpen()

  396.         SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限 & ") " &

  397.                "VALUES (N'" & 系統使用者管理.TextBox1.Text & "',N'" & 系統使用者管理.TextBox2.Text & "',N'" & 系統使用者管理.TextBox3.Text & "', '" & 系統使用者管理.CheckBox1.Checked &

  398.                "', '" & 系統使用者管理.CheckBox2.Checked & "', '" & 系統使用者管理.CheckBox3.Checked & "', '" & 系統使用者管理.CheckBox4.Checked & "', '" & 系統使用者管理.CheckBox5.Checked &

  399.                "', '" & 系統使用者管理.CheckBox6.Checked & "', '" & 系統使用者管理.CheckBox7.Checked & "', '" & 系統使用者管理.CheckBox8.Checked & "', '" & 系統使用者管理.CheckBox9.Checked &

  400.                "', '" & 系統使用者管理.CheckBox10.Checked & "', '" & 系統使用者管理.CheckBox11.Checked & "', '" & 系統使用者管理.CheckBox12.Checked & "', '" & 系統使用者管理.CheckBox13.Checked &

  401.                "', '" & 系統使用者管理.CheckBox14.Checked & "', '" & 系統使用者管理.CheckBox15.Checked & "', '" & 系統使用者管理.CheckBox16.Checked & "', '" & 系統使用者管理.CheckBox17.Checked &

  402.                "', '" & 系統使用者管理.CheckBox18.Checked & "', '" & 系統使用者管理.CheckBox19.Checked & "', '" & 系統使用者管理.CheckBox20.Checked & "', '" & 系統使用者管理.CheckBox21.Checked &

  403.                "', '" & 系統使用者管理.CheckBox22.Checked & "', '" & 系統使用者管理.CheckBox23.Checked & "', '" & 系統使用者管理.CheckBox24.Checked & "', '" & 系統使用者管理.CheckBox25.Checked &

  404.                "', '" & 系統使用者管理.CheckBox26.Checked & "', '" & 系統使用者管理.CheckBox27.Checked & "', '" & 系統使用者管理.CheckBox28.Checked & "', '" & 系統使用者管理.CheckBox29.Checked &

  405.                "', '" & 系統使用者管理.CheckBox30.Checked & "', '" & 系統使用者管理.CheckBox31.Checked & "', '" & 系統使用者管理.CheckBox32.Checked & "', '" & 系統使用者管理.CheckBox33.Checked &

  406.                "', '" & 系統使用者管理.CheckBox34.Checked & "', '" & 系統使用者管理.CheckBox35.Checked & "', '" & 系統使用者管理.CheckBox36.Checked & "', '" & 系統使用者管理.CheckBox37.Checked &

  407.                "', '" & 系統使用者管理.CheckBox38.Checked & "', '" & 系統使用者管理.CheckBox39.Checked & "', '" & 系統使用者管理.CheckBox40.Checked & "', '" & 系統使用者管理.CheckBox41.Checked &

  408.                "', '" & 系統使用者管理.CheckBox42.Checked & "', '" & 系統使用者管理.CheckBox43.Checked & "', '" & 系統使用者管理.CheckBox44.Checked & "', '" & 系統使用者管理.CheckBox45.Checked &

  409.                "', '" & 系統使用者管理.CheckBox46.Checked & "')"

  410.         CmdSet_For_dr()

  411.     End Sub

  412.     Friend Sub SQL_系統使用者密碼顯示()

  413.         ConnOpen() : SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & 系統使用者管理.TextBox1.Text & "' AND 帳號 LIKE N'" & 系統使用者管理.TextBox2.Text & "'" : CmdSet_For_dr()

  414.     End Sub

  415.     Friend Sub SQL_系統使用者修改()

  416.         ConnOpen()

  417.         SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = '" & 系統使用者管理.TextBox1.Text & "', 密碼 = '" & 系統使用者管理.TextBox3.Text & "', " &

  418.                    "CC00 = '" & 系統使用者管理.CheckBox1.Checked & "', CC01 = '" & 系統使用者管理.CheckBox2.Checked & "', CC02 = '" & 系統使用者管理.CheckBox3.Checked &

  419.                 "', CC03 = '" & 系統使用者管理.CheckBox4.Checked & "', CC04 = '" & 系統使用者管理.CheckBox5.Checked & "', CC05 = '" & 系統使用者管理.CheckBox6.Checked &

  420.                 "', CC06 = '" & 系統使用者管理.CheckBox7.Checked & "', CC07 = '" & 系統使用者管理.CheckBox8.Checked & "', CC08 = '" & 系統使用者管理.CheckBox9.Checked &

  421.                 "', CC09 = '" & 系統使用者管理.CheckBox10.Checked & "', CC10 = '" & 系統使用者管理.CheckBox11.Checked & "', CC11 = '" & 系統使用者管理.CheckBox12.Checked &

  422.                 "', CC12 = '" & 系統使用者管理.CheckBox13.Checked & "', CC13 = '" & 系統使用者管理.CheckBox14.Checked & "', CC14 = '" & 系統使用者管理.CheckBox15.Checked &

  423.                 "', CC15 = '" & 系統使用者管理.CheckBox16.Checked & "', CC16 = '" & 系統使用者管理.CheckBox17.Checked & "', CC17 = '" & 系統使用者管理.CheckBox18.Checked &

  424.                 "', CC18 = '" & 系統使用者管理.CheckBox19.Checked & "', CC19 = '" & 系統使用者管理.CheckBox20.Checked & "', CC20 = '" & 系統使用者管理.CheckBox21.Checked &

  425.                 "', CC21 = '" & 系統使用者管理.CheckBox22.Checked & "', CC22 = '" & 系統使用者管理.CheckBox23.Checked & "', CC23 = '" & 系統使用者管理.CheckBox24.Checked &

  426.                 "', CC24 = '" & 系統使用者管理.CheckBox25.Checked & "', CC25 = '" & 系統使用者管理.CheckBox26.Checked & "', CC26 = '" & 系統使用者管理.CheckBox27.Checked &

  427.                 "', CC27 = '" & 系統使用者管理.CheckBox28.Checked & "', CC28 = '" & 系統使用者管理.CheckBox29.Checked & "', CC29 = '" & 系統使用者管理.CheckBox30.Checked &

  428.                 "', CC30 = '" & 系統使用者管理.CheckBox31.Checked & "', CC31 = '" & 系統使用者管理.CheckBox32.Checked & "', CC32 = '" & 系統使用者管理.CheckBox33.Checked &

  429.                 "', CC33 = '" & 系統使用者管理.CheckBox34.Checked & "', CC34 = '" & 系統使用者管理.CheckBox35.Checked & "', CC35 = '" & 系統使用者管理.CheckBox36.Checked &

  430.                 "', CC36 = '" & 系統使用者管理.CheckBox37.Checked & "', CC37 = '" & 系統使用者管理.CheckBox38.Checked & "', CC38 = '" & 系統使用者管理.CheckBox39.Checked &

  431.                 "', CC39 = '" & 系統使用者管理.CheckBox40.Checked & "', CC40 = '" & 系統使用者管理.CheckBox41.Checked & "', CC41 = '" & 系統使用者管理.CheckBox42.Checked &

  432.                 "', CC42 = '" & 系統使用者管理.CheckBox43.Checked & "', CC43 = '" & 系統使用者管理.CheckBox44.Checked & "', CC44 = '" & 系統使用者管理.CheckBox45.Checked &

  433.                 "', CC45 = '" & 系統使用者管理.CheckBox46.Checked & "' WHERE (帳號 = '" & 系統使用者管理.TextBox2.Text & "')"

  434.         CmdSet_For_dr()

  435.     End Sub

  436.     Friend Sub SQL_系統使用者刪除()

  437.         ConnOpen() : SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & 系統使用者管理.TextBox2.Text & "')" : CmdSet_For_dr()

  438.     End Sub

  439.     '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------

  440.     Friend Sub SQL_FTP資料夾管理新增()

  441.         ConnOpen()

  442.         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 

  443.                 VALUES (N'" & FTP資料夾管理.TextBox1.Text & "',N'" & FTP資料夾管理.TextBox2.Text & "',N'" & FTP資料夾管理.TextBox3.Text & "',N'" & FTP資料夾管理.TextBox4.Text & "')"

  444.         CmdSet_For_dr()

  445.     End Sub

  446.     Friend Sub SQL_FTP資料夾管理修改()

  447.         ConnOpen()

  448.         SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.TextBox2.Text & "', 備註 = N'" & FTP資料夾管理.TextBox3.Text & "', 指定 = N'" & FTP資料夾管理.TextBox4.Text & "' 

  449.                 WHERE (資料夾名稱 = N'" & FTP資料夾管理.TextBox1.Text & "')"

  450.         CmdSet_For_dr()

  451.     End Sub

  452.     Friend Sub SQL_FTP資料夾管理刪除()

  453.         ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.TextBox1.Text & "')" : CmdSet_For_dr()

  454.     End Sub

  455.     '---------------------員工ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------

  456.     Friend Sub SQL_人員清單()

  457.         ConnOpen() : SQL1 = "SELECT 姓名, 帳號, ID卡號 FROM 使用者權限管理表" : CmdSet_For_DGV()

  458.     End Sub

  459.     Friend Sub SQL_ID卡號註冊()

  460.         ConnOpen()

  461.         SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 員工ID卡系統配置設定.TextBox3.Text & "' 

  462.                 WHERE (帳號 = N'" & 員工ID卡系統配置設定.TextBox2.Text & "') AND (姓名 = N'" & 員工ID卡系統配置設定.TextBox1.Text & "')"

  463.         CmdSet_For_dr()

  464.     End Sub

  465.     '---------------------員工資料表-----------------------------------------------------------------------------------------------------------------

  466.     Friend Sub SQL_員工資料清單()

  467.         SQL1 = "SELECT  員工資料表.編號, 員工資料表.名稱, 員工資料表.性別, 員工資料表.身分證, 員工資料表.出生日期, 員工資料表.居住址1 AS 居住址, 員工資料表.手機, 員工資料表.配偶, 

  468.                         員工資料表.配偶手機, 員工資料表.住家連絡電話, MJ職別.職別 AS 職稱, 員工資料表.到職日期, 員工資料表.薪水, 員工資料表.LineID, MJ負責區域.負責區域 AS 責任區, 

  469.                         員工資料表.負責區域, 員工資料表.職別

  470.                 FROM    員工資料表 LEFT OUTER JOIN MJ職別 ON 員工資料表.職別 = MJ職別.編號 LEFT OUTER JOIN MJ負責區域 ON 員工資料表.負責區域 = MJ負責區域.編號"

  471.         PA1 = " ORDER BY   員工資料表.編號 DESC"

  472.         PA2 = "WHEWE 員工資料表.編號 LIKE N'%" & PA & "%' OR 員工資料表.名稱 LIKE N'%" & PA & "%' OR 員工資料表.性別 LIKE N'%" & PA & "%' OR 員工資料表.身分證 LIKE N'%" & PA & "%' OR 

  473.                      員工資料表.出生日期 LIKE N'%" & PA & "%' OR 員工資料表.居住址1 LIKE N'%" & PA & "%' OR 員工資料表.手機 LIKE N'%" & PA & "%' OR 員工資料表.配偶 LIKE N'%" & PA & "%' OR 

  474.                      員工資料表.配偶手機 LIKE N'%" & PA & "%' OR 員工資料表.住家連絡電話 LIKE N'%" & PA & "%' OR MJ職別.職別 LIKE N'%" & PA & "%' OR 員工資料表.到職日期 LIKE N'%" & PA & "%' OR 

  475.                      員工資料表.薪水 LIKE N'%" & PA & "%' OR 員工資料表.LineID LIKE N'%" & PA & "%' OR MJ負責區域.負責區域 LIKE N'%" & PA & "%'

  476.                ORDER BY 編號 DESC"

  477.         ConnOpen() : If PA = "" Then : SQL1 &= PA1 : Else : SQL1 &= PA2 : End If : CmdSet_For_DGV()

  478.     End Sub

  479.     Friend Sub SQL_員工資料表流水號最後一筆()

  480.         ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM 員工資料表 ORDER BY 編號 DESC" : CmdSet_For_dr()

  481.     End Sub

  482.     Friend Sub SQL_員工資料表新增()

  483.         ConnOpen()

  484.         SQL1 = "INSERT INTO 員工資料表 (編號, 名稱, 性別, 身分證, 出生日期, 居住址1, 手機, 配偶, 配偶手機, 住家連絡電話, 職別, 到職日期, 薪水, LineID, 負責區域) 

  485.                 VALUES (N'" & 員工資料表.TextBox1.Text & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"

  486.         CmdSet_For_dr()

  487.     End Sub

  488.     Friend Sub SQL_員工資料表修改()

  489.         ConnOpen()

  490.         SQL1 = "UPDATE 員工資料表 SET  名稱  = N'" & PA1 & "', 性別 = N'" & PA2 & "', 身分證 = N'" & PA3 & "' , 出生日期 = N'" & PA4 & "' , 居住址1 = N'" & PA5 & "' , 手機 = N'" & PA6 &

  491.                                   "' , 配偶 = N'" & PA7 & "' , 配偶手機 = N'" & PA8 & "' , 住家連絡電話 = N'" & PA9 & "' , 職別 = N'" & PA10 & "' , 到職日期 = N'" & PA11 & "' , 薪水 = N'" & NU1 &

  492.                                   "' , LineID = N'" & PA12 & "' , 負責區域 = N'" & PA13 & "' 

  493.                 WHERE (編號 LIKE '" & PA14 & "')"

  494.         CmdSet_For_dr()

  495.     End Sub

  496.     Friend Sub SQL_員工資料表刪除()

  497.         ConnOpen()

  498.         SQL1 = "DELETE FROM 員工資料表 WHERE (編號 = '" & 員工資料表.TextBox1.Text & "')"

  499.         CmdSet_For_dr()

  500.     End Sub

  501.     Friend Sub SQL_職別下拉清單()

  502.         ConnOpen() : SQL1 = "SELECT 編號, 職別 FROM MJ職別 ORDER BY 編號" : CmdSet_For_dr()

  503.     End Sub

  504.     Friend Sub SQL_負責區域下拉清單()

  505.         ConnOpen() : SQL1 = "SELECT 編號, 負責區域 FROM MJ負責區域 ORDER BY 編號" : CmdSet_For_dr()

  506.     End Sub

  507.     '---------------------生產入庫-----------------------------------------------------------------------------------------------------------------

  508.     Friend Sub SQL_生產入庫清單()

  509.         ConnOpen()

  510.         SQL1 = "SELECT    倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 準備入庫數量, 倉儲明細表.備註, 

  511.                           倉儲明細表.採購下單 AS 指定生產, 倉儲明細表.入庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲明細表.供應商編號, 倉儲明細表.金額, 倉儲明細表.匯率, 倉儲明細表.客戶編號, 

  512.                           倉儲明細表.售價, 倉儲分區控制表.倉名, 倉儲分區控制表.倉名編號, 倉儲明細表.交期 AS 客戶交期

  513.                 FROM      倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  515.                 WHERE    (倉儲明細表.狀態 LIKE '組裝入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫日期 LIKE '')

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

  517.         CmdSet_For_DGV()

  518.     End Sub

  519.     Friend Sub SQL_生產入庫_倉儲明細表_組裝入庫確認()

  520.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "') AND (狀態 LIKE '組裝入庫')" : CmdSet_For_dr()

  521.     End Sub

  522.     '---------------------生產控制表-----------------------------------------------------------------------------------------------------------------

  523.     Friend Sub SQL_生產控制表清單()

  524.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 廠商, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 

  525.                             物料資料庫.材質, 倉儲明細表.售價 AS 銷售單價, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 單位成本, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 物料成本, 

  526.                             倉儲明細表.售價 * 倉儲明細表.出庫 AS 銷售金額, 倉儲明細表.出庫 AS 組裝數量, 倉儲明細表.入庫 AS 入庫數量, 倉儲明細表.採購下單 AS 指定生產日, 倉儲明細表.交期 AS 客戶交期, 

  527.                             倉儲明細表.出庫日期 AS 開始組裝, 倉儲明細表.入庫日期 AS 組裝完工, 倉儲明細表.備註, 倉儲明細表.狀態, 倉儲分區控制表.倉名

  528.                 FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN

  529.                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號 "

  530.         PA1 = "WHERE       (倉儲明細表.狀態 LIKE '組裝出庫' OR 倉儲明細表.狀態 LIKE '組裝入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  531.                            (倉儲明細表.採購下單 BETWEEN '" & Format(生產控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(生產控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

  532.                 ORDER BY    倉儲明細表.單據編號 DESC, 倉儲明細表.狀態"

  533.         PA2 = "WHERE       (倉儲明細表.狀態 LIKE '組裝出庫' OR 倉儲明細表.狀態 LIKE '組裝入庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.入庫日期 LIKE '') AND 

  534.                            (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  535.                            (倉儲明細表.採購下單 BETWEEN '" & Format(生產控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(生產控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

  536.                 ORDER BY    倉儲明細表.單據編號 DESC, 倉儲明細表.狀態"

  537.         ConnOpen() : If PA = "1" Then : SQL1 &= PA1 : ElseIf PA = "2" Then : SQL1 &= PA2 : End If : CmdSet_For_DGV()

  538.     End Sub

  539.     Friend Sub SQL_生產控制表彙總()

  540.         ConnOpen()

  541.         SQL1 = "SELECT     客戶資料表.簡稱 AS 客戶, 倉儲明細表.採購下單 AS 指定生產日, 倉儲明細表.出庫日期 AS 開始組裝, 倉儲明細表.入庫日期 AS 組裝完工, 倉儲明細表.狀態, 倉儲明細表.單據編號

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

  543.                 WHERE     (倉儲明細表.狀態 LIKE '組裝出庫' OR 倉儲明細表.狀態 LIKE '組裝入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  544.                           (倉儲明細表.採購下單 BETWEEN '" & Format(生產控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(生產控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

  545.                 GROUP BY   客戶資料表.簡稱, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 倉儲明細表.入庫日期, 倉儲明細表.狀態, 倉儲明細表.單據編號

  546.                 ORDER BY   客戶, 單據編號, 指定生產日 DESC, 狀態 DESC"

  547.         CmdSet_For_DGV()

  548.     End Sub

  549.     '---------------------生產確認-----------------------------------------------------------------------------------------------------------------

  550.     Friend Sub SQL_生產確認清單()

  551.         ConnOpen()

  552.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 

  553.                             倉儲明細表.採購下單 AS 指定生產, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲明細表.供應商編號, 倉儲明細表.金額, 倉儲明細表.匯率, 倉儲明細表.客戶編號, 

  554.                             倉儲明細表.售價, LEFT(物料資料庫.頁碼, 3) AS 頁碼, 倉儲分區控制表.倉名, 倉儲明細表.倉名編號, 倉儲明細表.交期 AS 客戶交期

  555.                 FROM        倉儲明細表 INNER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  557.                 WHERE      (倉儲明細表.狀態 LIKE '組裝出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%')

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

  559.         CmdSet_For_DGV()

  560.     End Sub

  561.     Friend Sub SQL_生產確認_倉儲明細表_組裝出庫確認()

  562.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "') AND (狀態 LIKE '組裝出庫')" : CmdSet_For_dr()

  563.     End Sub

  564.     '---------------------物料資料庫-----------------------------------------------------------------------------------------------------------------

  565.     Friend Sub SQL__物料資料庫清單()

  566.         SQL1 = "SELECT 料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 最低庫存量, 停用 FROM 物料資料庫"

  567.         PA1 = " ORDER BY 料號 DESC"

  568.         PA2 = " WHERE  料號 LIKE N'%" & PA & "%' OR 頁碼 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%' OR 

  569.                            成本 LIKE N'%" & PA & "%' OR 售價 LIKE N'%" & PA & "%' OR 件數 LIKE N'%" & PA & "%' OR 

  570.                            尺寸 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 備註 LIKE N'%" & PA & "%'"

  571.         PA3 = " WHERE  頁碼 LIKE N'%" & PA & "%'"

  572.         ConnOpen()

  573.         If PA = "" And NU1 = True And NU2 = False Then : SQL1 &= PA1

  574.         ElseIf PA <> "" And NU1 = True And NU2 = False Then : SQL1 = SQL1 & PA2 & PA1

  575.         ElseIf PA <> "" And NU1 = False And NU2 = True Then : SQL1 = SQL1 & PA3 & PA1

  576.         End If

  577.         CmdSet_For_DGV()

  578.     End Sub

  579.     Friend Sub SQL_未配置圖片的物料清單()

  580.         ConnOpen()

  581.         SQL1 = "SELECT   物料資料庫.料號 FROM 物料資料庫 LEFT OUTER JOIN  物料圖庫 ON 物料資料庫.料號 = 物料圖庫.圖片編碼 WHERE (物料圖庫.圖片編碼 IS NULL) ORDER BY 物料資料庫.料號 DESC"

  582.         CmdSet_For_DGV()

  583.     End Sub

  584.     Friend Sub SQL_物料圖庫_圖片顯示()

  585.         ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料圖庫 WHERE 圖片編碼 LIKE '" & PA & "'" : CmdSet_For_dr()

  586.     End Sub

  587.     Friend Sub SQL_物料圖庫_圖片下載()

  588.         ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料圖庫 WHERE 圖片編碼 LIKE N'" & 物料資料庫.TextBox6.Text & "'" : CmdSet_For_DGV()

  589.     End Sub

  590.     Friend Sub SQL_物料圖庫_圖片刪除()

  591.         ConnOpen() : SQL1 = "DELETE FROM 物料圖庫 WHERE (圖片編碼 = '" & PA & "')" : CmdSet_For_dr()

  592.     End Sub

  593.     Friend Sub SQL_物料圖庫_圖片刪除後圖片編號取消()

  594.         ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET  圖片編碼 = N'' WHERE (料號 LIKE '" & 物料資料庫.TextBox6.Text & "')" : CmdSet_For_dr()

  595.     End Sub

  596.     Friend Sub SQL_物料圖庫_圖片新增時圖片編號註冊()

  597.         ConnOpen() : SQL1 = "UPDATE 物料資料庫 SET  圖片編碼 = N'" & 物料資料庫.TextBox10.Text & "' WHERE (料號 LIKE '" & 物料資料庫.TextBox10.Text & "')" : CmdSet_For_dr()

  598.     End Sub

  599.     Friend Sub SQL_物料圖庫_圖片新增()

  600.         ConnOpen()

  601.         SQL1 = "INSERT INTO 物料圖庫 (圖片編碼, 圖片) SELECT '" & 物料資料庫.TextBox10.Text &

  602.                    "', BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.TextBox9.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  603.         CmdSet_For_dr()

  604.     End Sub

  605.     Friend Sub SQL_物料圖庫_圖片修改()

  606.         ConnOpen()

  607.         SQL1 = "UPDATE 物料圖庫 SET 圖片 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 物料資料庫.TextBox9.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 

  608.                 WHERE (圖片編碼 = '" & 物料資料庫.TextBox6.Text & "')"

  609.         CmdSet_For_dr()

  610.     End Sub

  611.     Friend Sub SQL_物料圖庫流水號最後一筆()

  612.         ConnOpen() : SQL1 = "SELECT TOP (1) 料號 FROM 物料資料庫 ORDER BY 料號 DESC" : CmdSet_For_dr()

  613.     End Sub

  614.     Friend Sub SQL_物料資料庫新增()

  615.         ConnOpen()

  616.         SQL1 = "INSERT INTO 物料資料庫 (料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 停用) 

  617.                 VALUES (N'" & 物料資料庫.TextBox1.Text & "',N'" & 物料資料庫.TextBox2.Text & "',N'" & 物料資料庫.TextBox3.Text & "',N'" & 物料資料庫.NumericUpDown1.Value &

  618.                      "',N'" & 物料資料庫.NumericUpDown2.Value & "',N'" & 物料資料庫.NumericUpDown3.Value & "',N'" & 物料資料庫.TextBox4.Text & "',N'" & 物料資料庫.TextBox5.Text &

  619.                      "',N'" & 物料資料庫.TextBox6.Text & "',N'" & 物料資料庫.TextBox7.Text & "',N'" & 物料資料庫.CheckBox1.Checked & "')"

  620.         CmdSet_For_dr()

  621.     End Sub

  622.     Friend Sub SQL_物料資料庫修改()

  623.         ConnOpen()

  624.         SQL1 = "UPDATE 物料資料庫 SET  頁碼 = N'" & PA1 & "',品名 = N'" & PA2 & "',成本 = N'" & NU1 & "',售價 = N'" & NU2 & "',件數 = N'" & NU3 & "',尺寸 = N'" & PA3 &

  625.                                     "',材質 = N'" & PA4 & "',圖片編碼 = N'" & PA5 & "',備註 = N'" & PA6 & "',停用 = N'" & 布林1 & "' , 最低庫存量 = N'" & NU4 & "'

  626.                 WHERE (料號 LIKE '" & PA7 & "')"

  627.         CmdSet_For_dr()

  628.     End Sub

  629.     Friend Sub SQL_物料資料庫刪除()

  630.         ConnOpen() : SQL1 = "DELETE FROM 物料資料庫 WHERE (料號 = '" & PA & "')" : CmdSet_For_dr()

  631.     End Sub

  632.     '---------------------倉儲入庫驗收-----------------------------------------------------------------------------------------------------------------

  633.     Friend Sub SQL_倉儲入庫驗收清單()

  634.         ConnOpen()

  635.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 準備入庫數量, 倉儲明細表.備註, 

  636.                             倉儲明細表.採購下單, 倉儲明細表.入庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態

  637.                 FROM        倉儲明細表 LEFT OUTER JOIN MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  638.                 WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.入庫日期 LIKE '')  AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫 >= 0)

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

  640.         CmdSet_For_DGV()

  641.     End Sub

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

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

  644.     End Sub

  645.     '---------------------倉儲分區控制表-----------------------------------------------------------------------------------------------------------------

  646.     Friend Sub SQL_倉儲分區控制表清單()

  647.         ConnOpen() : SQL1 = "SELECT 倉級, 倉名編號, 倉名 FROM 倉儲分區控制表 ORDER BY 倉級, 倉名編號" : CmdSet_For_DGV()

  648.     End Sub

  649.     Friend Sub SQL_倉儲分區控制表流水號最後一筆()

  650.         ConnOpen() : SQL1 = "SELECT TOP(1) 倉名編號 FROM 倉儲分區控制表 ORDER BY 倉名編號 DESC" : CmdSet_For_dr()

  651.     End Sub

  652.     Friend Sub SQL_倉儲分區控制表_倉名編號_資料重複驗證()

  653.         ConnOpen()

  654.         SQL1 = "SELECT 倉名編號 FROM 倉儲分區控制表 

  655.                 WHERE 倉級 LIKE N'" & 倉儲分區控制表.ComboBox2.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.TextBox1.Text & "' AND 倉名 LIKE N'" & 倉儲分區控制表.TextBox2.Text & "'"

  656.         CmdSet_For_dr()

  657.     End Sub

  658.     Friend Sub SQL_倉儲分區控制表新增()

  659.         ConnOpen()

  660.         SQL1 = "INSERT INTO 倉儲分區控制表 (倉級, 倉名編號, 倉名) 

  661.                 VALUES (N'" & 倉儲分區控制表.ComboBox2.Text & "',N'" & 倉儲分區控制表.TextBox1.Text & "',N'" & 倉儲分區控制表.TextBox2.Text & "')"

  662.         CmdSet_For_dr()

  663.     End Sub

  664.     Friend Sub SQL_倉儲分區控制表修改()

  665.         ConnOpen()

  666.         SQL1 = "UPDATE 倉儲分區控制表 SET 倉名 = N'" & 倉儲分區控制表.TextBox2.Text & "' 

  667.                 WHERE (倉級 LIKE N'" & 倉儲分區控制表.ComboBox2.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.TextBox1.Text & "')"

  668.         CmdSet_For_dr()

  669.     End Sub

  670.     Friend Sub SQL_倉儲分區控制表刪除()

  671.         ConnOpen()

  672.         SQL1 = "DELETE FROM 倉儲分區控制表 

  673.                 WHERE 倉級 LIKE N'" & 倉儲分區控制表.ComboBox2.Text & "' AND 倉名編號 LIKE N'" & 倉儲分區控制表.TextBox1.Text & "' AND 倉名 LIKE N'" & 倉儲分區控制表.TextBox2.Text & "'"

  674.         CmdSet_For_dr()

  675.     End Sub

  676.     '---------------------倉儲庫存清單-----------------------------------------------------------------------------------------------------------------

  677.     Friend Sub SQL_倉儲庫存清單一()

  678.         ConnOpen()

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

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

  681.                             SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 

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

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

  684.                             QQ.未出庫, QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用

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

  686.                             供應商資料表.編號 FULL OUTER JOIN

  687.                                 (SELECT     供應商編號, 料號, SUM(出庫) AS 未出庫 FROM       倉儲明細表 AS 倉儲明細表_2

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

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

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

  691.                                 (SELECT     供應商編號, 料號, SUM(入庫) AS 未入庫 FROM      倉儲明細表 AS 倉儲明細表_1

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

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

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

  695.                  WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 倉儲庫存清單.TextBox12.Text & "%')

  696.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫 

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

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

  699.         CmdSet_For_DGV()

  700.     End Sub

  701.     Friend Sub SQL_倉儲庫存清單二()

  702.         ConnOpen()

  703.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.入庫, 倉儲明細表.出庫, 倉儲明細表.狀態, 倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.出庫日期, 

  704.                             倉儲明細表.備註, 倉儲明細表.倉儲作業, MJ選擇按鈕.選擇

  705.                 FROM        倉儲明細表 LEFT OUTER JOIN MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕

  706.                 WHERE      (供應商編號 LIKE N'" & 倉儲庫存清單.TextBox10.Text & "') AND (料號 LIKE N'" & 倉儲庫存清單.TextBox11.Text & "') AND (公司編號 LIKE '%" & 公司編號 & "%')  AND 

  707.                            (倉儲明細表.狀態 NOT LIKE '組裝%') AND (倉儲明細表.入庫日期 NOT LIKE '' OR 倉儲明細表.出庫日期 NOT LIKE '')

  708.                 ORDER BY    倉儲明細表.出庫日期, 倉儲明細表.入庫日期"

  709.         CmdSet_For_DGV()

  710.     End Sub

  711.     '---------------------倉儲控制表-----------------------------------------------------------------------------------------------------------------

  712.     Friend Sub SQL_倉儲控制表清單一()

  713.         ConnOpen()

  714.         SQL1 = "SELECT  UURR.供應商, UURR.供應商編號, 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, UURR.加權成本_台幣, UURR.庫存, UURR.庫存成本_台幣, UURR.未入庫, 

  715.                         UURR.在途成本_台幣, UURR.未出庫, UURR.備貨成本_台幣, UURR.可領用, 物料資料庫.最低庫存量

  716.                 FROM    物料資料庫 FULL OUTER JOIN

  717.                             (SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫_1.品名, 物料資料庫_1.尺寸, 物料資料庫_1.材質, 

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

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

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

  721.                                           QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫_1.最低庫存量

  722.                               FROM        倉儲明細表 LEFT OUTER JOIN 物料資料庫 AS 物料資料庫_1 ON 倉儲明細表.料號 = 物料資料庫_1.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 

  723.                                           供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  734.                               WHERE      (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 倉儲控制表.TextBox12.Text & "%')

  735.                               GROUP BY    供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫_1.品名, 物料資料庫_1.尺寸, 物料資料庫_1.材質, WW.未入庫, QQ.未出庫, 

  736.                                           物料資料庫_1.最低庫存量) AS UURR ON 

  737.                           物料資料庫.料號 = UURR.料號

  738.                 WHERE    (物料資料庫.停用 = 0)

  739.                 ORDER BY  UURR.供應商 DESC, 物料資料庫.料號"

  740.         CmdSet_For_DGV()

  741.     End Sub

  742.     Friend Sub SQL_倉儲控制表清單二()

  743.         ConnOpen()

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

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

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

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

  748.                         QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.最低庫存量

  749.              FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  760.              WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 倉儲控制表.TextBox12.Text & "%')

  761.              GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.最低庫存量

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

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

  764.         CmdSet_For_DGV()

  765.     End Sub

  766.     Friend Sub SQL_倉儲控制表_明細表()

  767.         ConnOpen()

  768.         SQL1 = "SELECT    資料流水號, 單據編號, 入庫, 出庫, 狀態, 採購下單, 入庫日期, 出庫日期, 備註, 倉儲作業

  769.                 FROM      倉儲明細表

  770.                 WHERE    (供應商編號 LIKE N'" & 倉儲控制表.TextBox10.Text & "') AND (料號 LIKE N'" & 倉儲控制表.TextBox11.Text & "') AND (公司編號 LIKE '%" & 公司編號 & "%')

  771.                 ORDER BY  資料流水號 DESC"

  772.         CmdSet_For_DGV()

  773.     End Sub

  774.     Friend Sub SQL_倉名下拉清單含NA()

  775.         ConnOpen() : SQL1 = "SELECT 倉名 FROM 倉儲分區控制表 ORDER BY 倉名編號" : CmdSet_For_dr()

  776.     End Sub

  777.     '---------------------盤盈盤損控制表-----------------------------------------------------------------------------------------------------------------

  778.     Friend Sub SQL_盤盈盤損控制表清單()

  779.         ConnOpen()

  780.         SQL1 = "SELECT   UURR.供應商, UURR.供應商編號, 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 物料資料庫.成本 AS 加權成本_台幣, UURR.庫存 AS 盤盈數量, 

  781.                          UURR.庫存 AS 盤損數量, UURR.庫存, 物料資料庫.品名 AS 狀態, 物料資料庫.頁碼

  782.                  FROM    物料資料庫 FULL OUTER JOIN

  783.                              (SELECT      供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫_1.品名, 物料資料庫_1.尺寸, 物料資料庫_1.材質, 

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

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

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

  787.                                            QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫_1.最低庫存量

  788.                                FROM        倉儲明細表 LEFT OUTER JOIN 物料資料庫 AS 物料資料庫_1 ON 倉儲明細表.料號 = 物料資料庫_1.料號 LEFT OUTER JOIN

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

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

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

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

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

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

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

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

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

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

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

  800.                                WHERE      (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 盤盈盤損控制表.TextBox12.Text & "%')

  801.                                GROUP BY    供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫_1.品名, 物料資料庫_1.尺寸, 物料資料庫_1.材質, WW.未入庫, QQ.未出庫, 

  802.                                            物料資料庫_1.最低庫存量) AS UURR ON 物料資料庫.料號 = UURR.料號

  803.                  WHERE    (物料資料庫.停用 = 0)

  804.                  ORDER BY  UURR.供應商 DESC, 物料資料庫.料號"

  805.         CmdSet_For_DGV()

  806.     End Sub

  807.     '---------------------盤盈盤損確認-----------------------------------------------------------------------------------------------------------------

  808.     Friend Sub SQL_盤盈盤損確認清單()

  809.         ConnOpen()

  810.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 

  811.                             物料資料庫.材質, 倉儲明細表.出庫 AS 盤損出庫數量, 倉儲明細表.入庫 AS 盤盈入庫數量, 倉儲明細表.採購下單 AS 客戶下單, 

  812.                             倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 

  813.                             訂單控制表.出貨備齊, 訂單明細表.資料流水號 AS 訂單明細流水

  814.                 FROM        倉儲明細表 LEFT OUTER JOIN

  815.                             訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 

  816.                             倉儲明細表.料號 = 訂單明細表.料號 AND 

  817.                             倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 LEFT OUTER JOIN

  818.                             訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN

  819.                             倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  820.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  822.                 WHERE      (倉儲明細表.狀態 LIKE '盤%') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.入庫日期 LIKE '') AND 

  823.                            (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%')

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

  825.         CmdSet_For_DGV()

  826.     End Sub

  827.     Friend Sub SQL_盤盈盤損確認_盤損出庫修改()

  828.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA & "')  AND (狀態 LIKE '盤損出庫')" : CmdSet_For_dr()

  829.     End Sub

  830.     Friend Sub SQL_盤盈盤損確認_盤盈入庫修改()

  831.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA & "')  AND (狀態 LIKE '盤盈入庫')" : CmdSet_For_dr()

  832.     End Sub

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

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

  835.         ConnOpen()

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

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

  838.                 FROM        會計科目 FULL OUTER JOIN

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

  840.                                        SUM(營運成本明細表_3.金額) AS 細項金額

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

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

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

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

  845.                             FULL OUTER JOIN

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

  847.                                        SUM(營運成本明細表_2.金額) AS 主項金額

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

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

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

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

  852.                             FULL OUTER JOIN

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

  854.                                        SUM(營運成本明細表_1.金額) AS 子項金額

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

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

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

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

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

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

  861.         CmdSet_For_DGV()

  862.     End Sub

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

  864.         ConnOpen()

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

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

  867.                 FROM        會計科目 FULL OUTER JOIN

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

  869.                                        SUM(營運成本明細表_3.金額) AS 細項金額

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

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

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

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

  874.                             FULL OUTER JOIN

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

  876.                                        SUM(營運成本明細表_2.金額) AS 主項金額

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

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

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

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

  881.                             FULL OUTER JOIN

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

  883.                                        SUM(營運成本明細表_1.金額) AS 子項金額

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

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

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

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

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

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

  890.         CmdSet_For_DGV()

  891.     End Sub

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

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

  894.     End Sub

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

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

  897.     End Sub

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

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

  900.     End Sub

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

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

  903.     End Sub

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

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

  906.         ConnOpen()

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

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

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

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

  911.                             營運成本明細表.出納 AS 點交, 營運成本明細表.出納日期 AS 點交日期, 營運成本明細表.備用金 AS 零用金點交, 

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

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

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

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

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

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

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

  919.         CmdSet_For_DGV()

  920.     End Sub

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

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

  923.     End Sub

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

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

  926.     End Sub

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

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

  929.     End Sub

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

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

  932.     End Sub

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

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

  935.     End Sub

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

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

  938.     End Sub

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

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

  941.     End Sub

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

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

  944.     End Sub

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

  946.         ConnOpen()

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

  948.         CmdSet_For_dr()

  949.     End Sub

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

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

  952.         ConnOpen()

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

  954.                 WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND (公司編號 LIKE '%" & 公司編號 & "%') AND 

  955.                        審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") &

  956.                                  "' AND '" & Strings.Format(營運成本收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "'

  957.                 ORDER BY 審核日期 DESC"

  958.         CmdSet_For_DGV()

  959.     End Sub

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

  961.         ConnOpen()

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

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

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

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

  966.                            (營運成本控制表.審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") & "' 

  967.                                                         AND '" & Strings.Format(營運成本收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "')

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

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

  970.         CmdSet_For_DGV()

  971.     End Sub

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

  973.         ConnOpen()

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

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

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

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

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

  979.                 WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單一覽表.TextBox1.Text & "')

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

  981.         CmdSet_For_DGV()

  982.     End Sub

  983.     '---------------------營運成本收支單申請-----------------------------------------------------------------------------------------------------------------

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

  985.         ConnOpen()

  986.         If 營運成本收支單申請.RadioButton1.Checked = True And 營運成本收支單申請.RadioButton2.Checked = False And 營運成本收支單申請.RadioButton3.Checked = False Then

  987.             KKKJJ = "WHERE (審核人 LIKE '') AND (公司編號 LIKE '%" & 公司編號 & "%')"

  988.         ElseIf 營運成本收支單申請.RadioButton1.Checked = False And 營運成本收支單申請.RadioButton2.Checked = True And 營運成本收支單申請.RadioButton3.Checked = False Then

  989.             KKKJJ = "WHERE (審核人 LIKE '作廢%') AND (公司編號 LIKE '%" & 公司編號 & "%')"

  990.         ElseIf 營運成本收支單申請.RadioButton1.Checked = False And 營運成本收支單申請.RadioButton2.Checked = False And 營運成本收支單申請.RadioButton3.Checked = True Then

  991.             KKKJJ = "WHERE (審核人 NOT LIKE '作廢%') AND (審核人 NOT LIKE '') AND (公司編號 LIKE '%" & 公司編號 & "%')"

  992.         End If

  993.         SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 營運成本控制表 " & KKKJJ & " ORDER BY 申請日期 DESC"

  994.         CmdSet_For_DGV()

  995.     End Sub

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

  997.         ConnOpen()

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

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

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

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

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

  1003.                 WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')

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

  1005.         CmdSet_For_DGV()

  1006.     End Sub

  1007.     Friend Sub SQL_會計科目_第一階()

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

  1009.     End Sub

  1010.     Friend Sub SQL_會計科目_第二階()

  1011.         ConnOpen()

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

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

  1014.         CmdSet_For_dr()

  1015.     End Sub

  1016.     Friend Sub SQL_會計科目_第三階()

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

  1018.     End Sub

  1019.     Friend Sub SQL_會計科目_關鍵字()

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

  1021.     End Sub

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

  1023.         ConnOpen()

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

  1025.                                        "', 收款 = N'" & NU2 & "', 零用金 = N'" & NU3 & "', 支票數 = N'" & NU4 & "'

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

  1027.         CmdSet_For_dr()

  1028.     End Sub

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

  1030.         ConnOpen() : SQL1 = "DELETE FROM 營運成本控制表 WHERE (支付單號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')" : CmdSet_For_dr()

  1031.     End Sub

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

  1033.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')" : CmdSet_For_dr()

  1034.     End Sub

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

  1036.         ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "' AND 項次 LIKE '" & 營運成本收支單申請.TextBox4.Text & "')" : CmdSet_For_dr()

  1037.     End Sub

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

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

  1040.     End Sub

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

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

  1043.         ConnOpen()

  1044.         If 營運成本收支單審核.RadioButton1.Checked = True And 營運成本收支單審核.RadioButton2.Checked = False Then

  1045.             KKKJJ = "WHERE (審核人 LIKE '')  AND (公司編號 LIKE '%" & 公司編號 & "%')"

  1046.         ElseIf 營運成本收支單審核.RadioButton1.Checked = False And 營運成本收支單審核.RadioButton2.Checked = True Then

  1047.             KKKJJ = "WHERE (審核人 LIKE '作廢%')  AND (公司編號 LIKE '%" & 公司編號 & "%')"

  1048.         End If

  1049.         SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 營運成本控制表 " & KKKJJ & " ORDER BY 支付單號 DESC"

  1050.         CmdSet_For_DGV()

  1051.     End Sub

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

  1053.         ConnOpen()

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

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

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

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

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

  1059.                 WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單審核.TextBox1.Text & "')

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

  1061.         CmdSet_For_DGV()

  1062.     End Sub

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

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

  1065.     End Sub

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

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

  1068.     End Sub

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

  1070.         ConnOpen()

  1071.         SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 營運成本收支單審核.TextBox14.Text &

  1072.                                     "', 簽名編碼 = N'" & 營運成本收支單審核.TextBox13.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "' 

  1073.                 WHERE (支付單號 = N'" & 營運成本收支單審核.TextBox1.Text & "')"

  1074.         CmdSet_For_dr()

  1075.     End Sub

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

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

  1078.     End Sub

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

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

  1081.     End Sub

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

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

  1084.     End Sub

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

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

  1087.     End Sub

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

  1089.         ConnOpen()

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

  1091.         CmdSet_For_dr()

  1092.     End Sub

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

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

  1095.         ConnOpen()

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

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

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

  1099.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "%')

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

  1101.                 ORDER BY  廠商"

  1102.         CmdSet_For_DGV()

  1103.     End Sub

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

  1105.         ConnOpen()

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

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

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

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

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

  1111.                                  FROM     倉儲明細表

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

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

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

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

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

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

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

  1119.         CmdSet_For_DGV()

  1120.     End Sub

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

  1122.         ConnOpen()

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

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

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

  1126.                           (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "%')

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

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

  1129.         CmdSet_For_DGV()

  1130.     End Sub

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

  1132.         ConnOpen()

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

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

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

  1136.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "%')

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

  1138.                 ORDER BY  客戶"

  1139.         CmdSet_For_DGV()

  1140.     End Sub

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

  1142.         ConnOpen()

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

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

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

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

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

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

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

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

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

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

  1153.                                                 (倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "/" & PA1 & "')

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

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

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

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

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

  1159.                                                 (倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "/" & PA1 & "')

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

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

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

  1163.                            (倉儲明細表.倉儲作業 BETWEEN '2020/01/01' AND '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "/" & PA1 & "')

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

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

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

  1167.         CmdSet_For_DGV()

  1168.     End Sub

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

  1170.         ConnOpen()

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

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

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

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

  1175.                          (倉儲明細表.採購下單 LIKE '" & 營運狀態彙總_檢視表.ComboBox1.Text & "/" & 營運狀態彙總_檢視表.ComboBox2.Text & "%')

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

  1177.                 ORDER BY  名稱"

  1178.         CmdSet_For_DGV()

  1179.     End Sub

  1180.     '---------------------供應商資料管理-----------------------------------------------------------------------------------------------------------------

  1181.     Friend Sub SQL__供應商資料管理清單()

  1182.         SQL1 = "SELECT  供應商資料表.編號, 供應商資料表.名稱, 供應商資料表.簡稱, 供應商資料表.負責人, 供應商資料表.負責人電話, 

  1183.                             供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.傳真2, 供應商資料表.地址1, 

  1184.                             供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 供應商資料表.聯絡人1, 

  1185.                             供應商資料表.聯絡人電話1, 供應商資料表.聯絡人1MAIL, 供應商資料表.聯1LINE_唯信, 供應商資料表.聯絡人2, 

  1186.                             供應商資料表.聯絡人電話2, 供應商資料表.聯絡人2MAIL, 供應商資料表.聯2LINE_唯信, 供應商資料表.聯絡人3, 

  1187.                             供應商資料表.聯絡人手機3, 供應商資料表.聯絡人3MAIL, 供應商資料表.聯3LINE_唯信, 供應商資料表.統一編號, 

  1188.                             MJ付款方式.付款方式, 供應商資料表.請款日, 供應商資料表.票據日, 供應商資料表.折扣, 供應商資料表.稅率, 

  1189.                             供應商資料表.幣別, 供應商資料表.備註, 供應商資料表.外貿對象 AS 外貿, 供應商資料表.停用

  1190.                     FROM    供應商資料表 INNER JOIN

  1191.                             MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號"

  1192.         PA1 = " ORDER BY   供應商資料表.編號 DESC"

  1193.         PA2 = "  WHERE   供應商資料表.編號 LIKE N'%" & PA & "%' OR 供應商資料表.名稱 LIKE N'%" & PA & "%' OR 供應商資料表.簡稱 LIKE N'%" & PA & "%' OR 

  1194.                             供應商資料表.負責人 LIKE N'%" & PA & "%' OR 供應商資料表.負責人電話 LIKE N'%" & PA & "%' OR 供應商資料表.公司電話1 LIKE N'%" & PA & "%' OR 

  1195.                             供應商資料表.公司電話2 LIKE N'%" & PA & "%' OR 供應商資料表.傳真1 LIKE N'%" & PA & "%' OR 供應商資料表.傳真2 LIKE N'%" & PA & "%' OR 

  1196.                             供應商資料表.地址1 LIKE N'%" & PA & "%' OR 供應商資料表.郵遞區號1 LIKE N'%" & PA & "%' OR 供應商資料表.地址2 LIKE N'%" & PA & "%' OR 

  1197.                             供應商資料表.郵遞區號2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人電話1 LIKE N'%" & PA & "%' OR 

  1198.                             供應商資料表.聯絡人1MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯1LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2 LIKE N'%" & PA & "%' OR 

  1199.                             供應商資料表.聯絡人電話2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯2LINE_唯信 LIKE N'%" & PA & "%' OR 

  1200.                             供應商資料表.聯絡人3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人手機3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人3MAIL LIKE N'%" & PA & "%' OR 

  1201.                             供應商資料表.聯3LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.統一編號 LIKE N'%" & PA & "%' OR MJ付款方式.付款方式 LIKE N'%" & PA & "%' OR 

  1202.                             供應商資料表.備註 LIKE N'%" & PA & "%'"

  1203.         ConnOpen() : If PA = "" Then : SQL1 &= PA1 : Else : SQL1 = SQL1 & PA2 & PA1 : End If : CmdSet_For_DGV()

  1204.     End Sub

  1205.     Friend Sub SQL_供應商資料表流水號最後一筆()

  1206.         ConnOpen() : SQL1 = "SELECT TOP (1) 編號 FROM 供應商資料表 ORDER BY 編號 DESC" : CmdSet_For_dr()

  1207.     End Sub

  1208.     Friend Sub SQL_供應商資料表新增()

  1209.         ConnOpen()

  1210.         SQL1 = "INSERT INTO 供應商資料表 (編號, 名稱, 簡稱, 負責人, 負責人電話, 公司電話1, 公司電話2, 傳真1, 傳真2, 地址1, 郵遞區號1, 地址2, 

  1211.                             郵遞區號2, 聯絡人1, 聯絡人電話1, 聯絡人1MAIL, 聯1LINE_唯信, 聯絡人2, 聯絡人電話2, 聯絡人2MAIL, 聯2LINE_唯信, 

  1212.                             聯絡人3, 聯絡人手機3, 聯絡人3MAIL, 聯3LINE_唯信, 統一編號, 付款方式, 請款日, 票據日, 折扣, 稅率, 幣別, 備註, 

  1213.                             外貿對象, 停用) 

  1214.                  VALUES (N'" & 供應商資料管理.TextBox1.Text & "',N'" & 供應商資料管理.TextBox2.Text & "',N'" & 供應商資料管理.TextBox3.Text & "',N'" & 供應商資料管理.TextBox4.Text &

  1215.                       "',N'" & 供應商資料管理.TextBox5.Text & "',N'" & 供應商資料管理.TextBox6.Text & "',N'" & 供應商資料管理.TextBox7.Text & "',N'" & 供應商資料管理.TextBox8.Text &

  1216.                       "',N'" & 供應商資料管理.TextBox9.Text & "',N'" & 供應商資料管理.TextBox10.Text & "',N'" & 供應商資料管理.TextBox11.Text & "',N'" & 供應商資料管理.TextBox12.Text &

  1217.                       "',N'" & 供應商資料管理.TextBox13.Text & "',N'" & 供應商資料管理.TextBox14.Text & "',N'" & 供應商資料管理.TextBox15.Text & "',N'" & 供應商資料管理.TextBox16.Text &

  1218.                       "',N'" & 供應商資料管理.TextBox17.Text & "',N'" & 供應商資料管理.TextBox18.Text & "',N'" & 供應商資料管理.TextBox19.Text & "',N'" & 供應商資料管理.TextBox20.Text &

  1219.                       "',N'" & 供應商資料管理.TextBox21.Text & "',N'" & 供應商資料管理.TextBox22.Text & "',N'" & 供應商資料管理.TextBox23.Text & "',N'" & 供應商資料管理.TextBox24.Text &

  1220.                       "',N'" & 供應商資料管理.TextBox25.Text & "',N'" & 供應商資料管理.TextBox26.Text & "',N'" & 供應商資料管理.TextBox27.Text & "',N'" & 供應商資料管理.NumericUpDown1.Value &

  1221.                       "',N'" & 供應商資料管理.NumericUpDown2.Value & "',N'" & 供應商資料管理.NumericUpDown3.Value & "',N'" & 供應商資料管理.NumericUpDown4.Value & "',N'" & 供應商資料管理.ComboBox2.Text &

  1222.                       "',N'" & 供應商資料管理.TextBox28.Text & "',N'" & 供應商資料管理.CheckBox1.Checked & "',N'" & 供應商資料管理.CheckBox2.Checked & "')"

  1223.         CmdSet_For_dr()

  1224.     End Sub

  1225.     Friend Sub SQL_供應商資料表修改()

  1226.         ConnOpen()

  1227.         SQL1 = "UPDATE 供應商資料表 SET  名稱 = N'" & 供應商資料管理.TextBox2.Text & "',簡稱 = N'" & 供應商資料管理.TextBox3.Text & "',負責人 = N'" & 供應商資料管理.TextBox4.Text &

  1228.                                 "',負責人電話 = N'" & 供應商資料管理.TextBox5.Text & "',公司電話1 = N'" & 供應商資料管理.TextBox6.Text & "',公司電話2 = N'" & 供應商資料管理.TextBox7.Text &

  1229.                                      "',傳真1 = N'" & 供應商資料管理.TextBox8.Text & "',傳真2 = N'" & 供應商資料管理.TextBox9.Text & "',地址1 = N'" & 供應商資料管理.TextBox10.Text &

  1230.                                  "',郵遞區號1 = N'" & 供應商資料管理.TextBox11.Text & "',地址2 = N'" & 供應商資料管理.TextBox12.Text & "',郵遞區號2 = N'" & 供應商資料管理.TextBox13.Text &

  1231.                                    "',聯絡人1 = N'" & 供應商資料管理.TextBox14.Text & "',聯絡人電話1 = N'" & 供應商資料管理.TextBox15.Text & "',聯絡人1MAIL = N'" & 供應商資料管理.TextBox16.Text &

  1232.                               "',聯1LINE_唯信 = N'" & 供應商資料管理.TextBox17.Text & "',聯絡人2 = N'" & 供應商資料管理.TextBox18.Text & "',聯絡人電話2 = N'" & 供應商資料管理.TextBox19.Text &

  1233.                                "',聯絡人2MAIL = N'" & 供應商資料管理.TextBox20.Text & "',聯2LINE_唯信 = N'" & 供應商資料管理.TextBox21.Text & "',聯絡人3 = N'" & 供應商資料管理.TextBox22.Text &

  1234.                                "',聯絡人手機3 = N'" & 供應商資料管理.TextBox23.Text & "',聯絡人3MAIL = N'" & 供應商資料管理.TextBox24.Text & "',聯3LINE_唯信 = N'" & 供應商資料管理.TextBox25.Text &

  1235.                                   "',統一編號 = N'" & 供應商資料管理.TextBox26.Text & "',付款方式 = N'" & 供應商資料管理.TextBox27.Text & "',請款日 = N'" & 供應商資料管理.NumericUpDown1.Value &

  1236.                                     "',票據日 = N'" & 供應商資料管理.NumericUpDown2.Value & "',折扣 = N'" & 供應商資料管理.NumericUpDown3.Value & "',稅率 = N'" & 供應商資料管理.NumericUpDown4.Value &

  1237.                                       "',幣別 = N'" & 供應商資料管理.ComboBox2.Text & "',備註 = N'" & 供應商資料管理.TextBox28.Text & "',外貿對象 = N'" & 供應商資料管理.CheckBox1.Checked &

  1238.                                       "',停用 = N'" & 供應商資料管理.CheckBox2.Checked & "'

  1239.                   WHERE (編號 LIKE '" & 供應商資料管理.TextBox1.Text & "')"

  1240.         CmdSet_For_dr()

  1241.     End Sub

  1242.     Friend Sub SQL_供應商資料表刪除()

  1243.         ConnOpen() : SQL1 = "DELETE FROM 供應商資料表 WHERE (編號 = '" & 供應商資料管理.TextBox1.Text & "')" : CmdSet_For_dr()

  1244.     End Sub

  1245.     '---------------------採購控制表-----------------------------------------------------------------------------------------------------------------

  1246.     Friend Sub SQL_採購控制表清單()

  1247.         ConnOpen()

  1248.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱 AS 廠商, 倉儲明細表.供應商編號, 客戶資料表.簡稱 AS 客戶, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 

  1249.                             物料資料庫.材質, 倉儲明細表.售價 AS 銷售單價, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 單位成本, 倉儲明細表.入庫 AS 採購數量, 倉儲明細表.售價 * 倉儲明細表.入庫 AS 銷售金額, 

  1250.                             倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 採購成本, 倉儲明細表.售價 * 倉儲明細表.入庫 - 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 利潤,

  1251.                             倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.交期 AS 廠商交期, 倉儲明細表.備註, 倉儲明細表.狀態

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

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

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

  1255.                            (倉儲明細表.採購下單 BETWEEN '" & Format(採購控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(採購控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

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

  1257.         CmdSet_For_DGV()

  1258.     End Sub

  1259.     Friend Sub SQL_採購控制表彙總()

  1260.         ConnOpen()

  1261.         SQL1 = "SELECT    供應商資料表.簡稱 AS 廠商, SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) AS 採購成本

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

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

  1264.                          (倉儲明細表.採購下單 BETWEEN '" & Format(採購控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(採購控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

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

  1266.                 ORDER BY  廠商"

  1267.         CmdSet_For_DGV()

  1268.     End Sub

  1269.     '---------------------採購單申請-----------------------------------------------------------------------------------------------------------------

  1270.     Friend Sub SQL_採購單申請_物料清單()

  1271.         ConnOpen()

  1272.         SQL1 = "SELECT 料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 停用 FROM 物料資料庫

  1273.                 WHERE  (頁碼 LIKE N'%" & 採購單申請.ComboBox1.Text & "%') AND (停用 = 0 OR 停用 IS NULL) AND (料號 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 

  1274.                         品名 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 成本 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 售價 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 

  1275.                         件數 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 尺寸 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 材質 LIKE N'%" & 採購單申請.TextBox1.Text & "%' OR 

  1276.                         備註 LIKE N'%" & 採購單申請.TextBox1.Text & "%') 

  1277.                 ORDER BY 料號 DESC"

  1278.         CmdSet_For_DGV()

  1279.     End Sub

  1280.     Friend Sub SQL_採購單申請_單號彙總()

  1281.         ConnOpen()

  1282.         If 採購單申請.RadioButton1.Checked = True Then

  1283.             KKKJJ = "(倉儲明細表.入庫日期 LIKE N'')"

  1284.         ElseIf 採購單申請.RadioButton1.Checked = False Then

  1285.             KKKJJ = "(倉儲明細表.入庫日期 NOT LIKE N'')"

  1286.         End If

  1287.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

  1288.                 FROM        倉儲明細表 INNER JOIN

  1289.                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號

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

  1291.                 GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

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

  1293.         CmdSet_For_DGV()

  1294.     End Sub

  1295.     Friend Sub SQL_採購單申請明細()

  1296.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 數量, 

  1297.                             倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 進貨成本_台幣, 

  1298.                             倉儲明細表.備註, 倉儲明細表.入庫日期, 倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 倉儲明細表.售價, 倉儲明細表.公司編號, MJ選擇按鈕.選擇

  1299.                 FROM        倉儲明細表 LEFT OUTER JOIN

  1300.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  1302.                 WHERE      (倉儲明細表.單據編號 LIKE N'" & 採購單申請.TextBox9.Text & "') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫 >= 0)

  1303.                 ORDER BY   倉儲明細表.料號"

  1304.         CmdSet_For_DGV()

  1305.     End Sub

  1306.     Friend Sub SQL_採購單申請_供應商資料表讀取()

  1307.         ConnOpen()

  1308.         SQL1 = "SELECT      供應商資料表.名稱, 供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.地址1, 供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 

  1309.                             供應商資料表.統一編號, MJ付款方式.付款方式

  1310.                 FROM        供應商資料表 INNER JOIN MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號

  1311.                 WHERE      (供應商資料表.編號 LIKE '%" & 採購單申請.ComboBox3.Text & "%') AND (供應商資料表.停用 = 0 OR 供應商資料表.停用 IS NULL)

  1312.                 ORDER BY    名稱"

  1313.         CmdSet_For_dr()

  1314.     End Sub

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

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

  1317.     End Sub

  1318.     Friend Sub SQL_採購單申請_倉儲明細表匯率修改()

  1319.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 匯率 = N'" & NU1 & "' WHERE (資料流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()

  1320.     End Sub

  1321.     '---------------------出貨單申請-----------------------------------------------------------------------------------------------------------------

  1322.     Friend Sub SQL_出貨單申請清單()

  1323.         ConnOpen()

  1324.         If 出貨單申請.CheckBox1.Checked = True Then : KKKJJ = "ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號" : Else : KKKJJ = "ORDER BY   倉儲明細表.料號, 供應商資料表.簡稱" : End If

  1325.         If 出貨單申請.TextBox1.Text = "" And 出貨單申請.ComboBox1.Text = "" Then

  1326.             KKKJJ2 = ""

  1327.         ElseIf 出貨單申請.TextBox1.Text <> "" And 出貨單申請.ComboBox1.Text = "" Then

  1328.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 出貨單申請.TextBox1.Text & "%') "

  1329.         ElseIf 出貨單申請.TextBox1.Text = "" And 出貨單申請.ComboBox1.Text <> "" Then

  1330.             KKKJJ2 = " AND (物料資料庫.頁碼 LIKE '" & 出貨單申請.ComboBox1.Text & "%') "

  1331.         ElseIf 出貨單申請.TextBox1.Text <> "" And 出貨單申請.ComboBox1.Text <> "" Then

  1332.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 出貨單申請.TextBox1.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 出貨單申請.ComboBox1.Text & "%') "

  1333.         End If

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

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

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

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

  1338.                             QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價

  1339.                  FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  1350.                  WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 出貨單申請.TextBox19.Text & "%') " & KKKJJ2 & "

  1351.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價

  1352.                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""

  1353.         CmdSet_For_DGV()

  1354.     End Sub

  1355.     Friend Sub SQL_出貨單申請_彙總()

  1356.         ConnOpen()

  1357.         If 出貨單申請.RadioButton4.Checked = True And 出貨單申請.RadioButton3.Checked = False And 出貨單申請.RadioButton1.Checked = False Then

  1358.             KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '銷售出庫') "

  1359.         ElseIf 出貨單申請.RadioButton4.Checked = False And 出貨單申請.RadioButton3.Checked = True And 出貨單申請.RadioButton1.Checked = False Then

  1360.             KKKJJ3 = "(倉儲明細表.出庫日期 NOT LIKE N'') AND (倉儲明細表.狀態 LIKE '銷售出庫') "

  1361.         ElseIf 出貨單申請.RadioButton4.Checked = False And 出貨單申請.RadioButton3.Checked = False And 出貨單申請.RadioButton1.Checked = True Then

  1362.             KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '組裝出庫') "

  1363.         End If

  1364.         SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 

  1365.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  1367.                 WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫 >= 0) AND " & KKKJJ3 & "

  1368.                 GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 

  1369.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  1371.         CmdSet_For_DGV()

  1372.     End Sub

  1373.     Friend Sub SQL_出貨單申請_清單()

  1374.         ConnOpen()

  1375.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 

  1376.                             倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 

  1377.                             倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價

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

  1379.                 WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 出貨單申請.TextBox9.Text & "') AND 

  1380.                            (倉儲明細表.狀態 LIKE N'銷售出庫') AND (倉儲明細表.出庫 >= 0)

  1381.                 ORDER BY    倉儲明細表.料號 "

  1382.         CmdSet_For_DGV()

  1383.     End Sub

  1384.     Friend Sub SQL_出貨單申請_零售客戶記錄表新增()

  1385.         ConnOpen()

  1386.         SQL1 = "INSERT INTO 零售客戶記錄表 (零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號) 

  1387.                 VALUES (N'" & PA1 & "',N'" & 出貨單申請.TextBox2.Text & "',N'" & 出貨單申請.TextBox26.Text & "',N'" & 出貨單申請.TextBox11.Text & "',N'" & 出貨單申請.TextBox10.Text &

  1388.                      "',N'" & 出貨單申請.TextBox12.Text & "',N'" & 出貨單申請.TextBox6.Text & "',N'" & 出貨單申請.TextBox3.Text & "',N'" & 出貨單申請.TextBox8.Text &

  1389.                      "',N'" & 出貨單申請.TextBox9.Text & "',N'" & 公司編號 & "')"

  1390.         CmdSet_For_dr()

  1391.     End Sub

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

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

  1394.     End Sub

  1395.     Friend Sub SQL_出貨單申請_客戶資料_零售一()

  1396.         ConnOpen()

  1397.         SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 出貨單申請.ComboBox3.Text & "')"

  1398.         CmdSet_For_dr()

  1399.     End Sub

  1400.     Friend Sub SQL_出貨單申請_客戶資料_零售二()

  1401.         ConnOpen()

  1402.         SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.TextBox9.Text & "')"

  1403.         CmdSet_For_dr()

  1404.     End Sub

  1405.     Friend Sub SQL_出貨單申請_客戶資料_銷售二()

  1406.         ConnOpen()

  1407.         SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式

  1408.                     FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號

  1409.                     WHERE  (客戶資料表.編號 LIKE N'" & 出貨單申請.ComboBox3.Text & "')"

  1410.         CmdSet_For_dr()

  1411.     End Sub

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

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

  1414.     End Sub

  1415.     '---------------------出貨確認-----------------------------------------------------------------------------------------------------------------

  1416.     Friend Sub SQL_出貨確認清單()

  1417.         ConnOpen()

  1418.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 

  1419.                             倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 

  1420.                             訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

  1421.                 FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 

  1422.                             LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  1423.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  1424.                 WHERE      (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.出庫 >= 0)

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

  1426.         CmdSet_For_DGV()

  1427.     End Sub

  1428.     Friend Sub SQL_出貨確認_倉儲明細表_銷售出庫確認()

  1429.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '銷售出庫')" : CmdSet_For_dr()

  1430.     End Sub

  1431.     Friend Sub SQL_出貨確認_訂單控制表_出貨情況()

  1432.         ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  1433.     End Sub

  1434.     Friend Sub SQL_出貨確認_訂單明細表_出貨情況一()

  1435.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  1436.     End Sub

  1437.     Friend Sub SQL_出貨確認_訂單明細表_出貨情況二()

  1438.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  1439.     End Sub

  1440.     '---------------------客戶資料管理-----------------------------------------------------------------------------------------------------------------

  1441.     Friend Sub SQL_客戶資料管理清單()

  1442.         SQL1 = "SELECT  " & KKKJJ & " 客戶資料表.編號, 客戶資料表.店名, 客戶資料表.簡稱, 客戶資料表.店面地址, 客戶資料表.店面地址郵遞區號, 

  1443.                             客戶資料表.送貨地址, 客戶資料表.負責人, 客戶資料表.聯絡人, 客戶資料表.電話, 客戶資料表.手機, 客戶資料表.傳真, 

  1444.                             客戶資料表.統編, 客戶資料表.發票抬頭, 客戶資料表.發票地址, 客戶資料表.發票地址郵遞區號, 客戶資料表.發票額度, 

  1445.                             客戶資料表.LineID, MJ付款方式.付款方式, 客戶資料表.折扣, 客戶資料表.負責業務, 客戶資料表.建立日期, 

  1446.                             客戶資料表.備註, 客戶資料表.付款方式 AS 付款編碼

  1447.                 FROM        客戶資料表 LEFT OUTER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 "

  1448.         PA1 = "ORDER BY    客戶資料表.店名 DESC"

  1449.         PA2 = "WHERE   客戶資料表.編號 LIKE N'%" & PA & "%' OR 客戶資料表.店名 LIKE N'%" & PA & "%' OR 客戶資料表.簡稱 LIKE N'%" & PA & "%' OR 客戶資料表.店面地址 LIKE N'%" & PA & "%' OR 

  1450.                        客戶資料表.店面地址郵遞區號 LIKE N'%" & PA & "%' OR 客戶資料表.送貨地址 LIKE N'%" & PA & "%' OR 客戶資料表.負責人 LIKE N'%" & PA & "%' OR 

  1451.                        客戶資料表.聯絡人 LIKE N'%" & PA & "%' OR 客戶資料表.電話 LIKE N'%" & PA & "%' OR 客戶資料表.手機 LIKE N'%" & PA & "%' OR 客戶資料表.傳真 LIKE N'%" & PA & "%' OR 

  1452.                        客戶資料表.統編 LIKE N'%" & PA & "%' OR 客戶資料表.發票抬頭 LIKE N'%" & PA & "%' OR 客戶資料表.發票地址 LIKE N'%" & PA & "%' OR 

  1453.                        客戶資料表.發票地址郵遞區號 LIKE N'%" & PA & "%' OR 客戶資料表.發票額度 LIKE N'%" & PA & "%' OR 客戶資料表.LineID LIKE N'%" & PA & "%' OR 

  1454.                        MJ付款方式.付款方式 LIKE N'%" & PA & "%' OR 客戶資料表.折扣 LIKE N'%" & PA & "%' OR 客戶資料表.負責業務 LIKE N'%" & PA & "%' OR 客戶資料表.建立日期 LIKE N'%" & PA & "%' OR 

  1455.                        客戶資料表.備註 LIKE N'%" & PA & "%' OR 客戶資料表.付款方式 LIKE N'%" & PA & "%'

  1456.                ORDER BY   客戶資料表.店名 DESC"

  1457.         ConnOpen()

  1458.         If PA = "" Then : If 客戶資料管理.CheckBox2.Checked = True Then : KKKJJ = "TOP(35)" : Else : KKKJJ = "" : End If : SQL1 &= PA1 : Else : SQL1 &= PA2 : End If

  1459.         CmdSet_For_DGV()

  1460.     End Sub

  1461.     Friend Sub SQL_客戶資料管理流水號最後一筆()

  1462.         ConnOpen() : SQL1 = "SELECT TOP (1) 編號 FROM 客戶資料表 ORDER BY 編號 DESC" : CmdSet_For_dr()

  1463.     End Sub

  1464.     Friend Sub SQL_客戶資料管理新增()

  1465.         ConnOpen()

  1466.         SQL1 = "INSERT INTO 客戶資料表 (編號, 店名, 簡稱, 店面地址, 店面地址郵遞區號, 送貨地址, 負責人, 聯絡人, 電話, 手機, 傳真, 統編, 

  1467.                                         發票抬頭, 發票地址, 發票地址郵遞區號, 發票額度, LineID, 付款方式, 折扣, 負責業務, 建立日期, 備註)

  1468.                 VALUES (N'" & PA1 & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'" & PA2 & "',N'')"

  1469.         CmdSet_For_dr()

  1470.     End Sub

  1471.     Friend Sub SQL_客戶資料管理修改()

  1472.         ConnOpen()

  1473.         SQL1 = "UPDATE 客戶資料表 SET  店名  = N'" & PA1 & "', 簡稱 = N'" & PA2 & "', 店面地址 = N'" & PA3 & "', 店面地址郵遞區號 = N'" & PA4 & "', 送貨地址 = N'" & PA5 & "', 負責人 = N'" & PA6 &

  1474.                                       "', 聯絡人 = N'" & PA7 & "', 電話 = N'" & PA8 & "', 手機 = N'" & PA9 & "', 傳真 = N'" & PA10 & "', 統編 = N'" & PA11 & "', 發票抬頭 = N'" & PA12 &

  1475.                                       "', 發票地址 = N'" & PA13 & "', 發票地址郵遞區號 = N'" & PA14 & "', 發票額度 = N'" & NU1 & "', LineID = N'" & PA15 & "', 付款方式 = N'" & PA16 & "', 折扣 = N'" & NU2 &

  1476.                                       "', 負責業務 = N'" & PA17 & "', 建立日期 = N'" & PA18 & "', 備註 = N'" & PA19 & "'

  1477.                 WHERE (編號 LIKE '" & PA & "')"

  1478.         CmdSet_For_dr()

  1479.     End Sub

  1480.     Friend Sub SQL_客戶資料管理刪除()

  1481.         ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (編號 = '" & 客戶資料管理.TextBox1.Text & "')" : CmdSet_For_dr()

  1482.     End Sub

  1483.     '---------------------訂單出貨控制表-----------------------------------------------------------------------------------------------------------------

  1484.     Friend Sub SQL_訂單出貨控制表清單()

  1485.         ConnOpen()

  1486.         SQL1 = "SELECT      訂單控制表.訂單流水號, 訂單控制表.客戶編號, 客戶資料表.簡稱, 訂單明細表.料號, 物料資料庫.品名, 訂單明細表.數量, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 

  1487.                             訂單控制表.出貨備齊, 訂單明細表.採購單號, 訂單明細表.出貨單號, 訂單明細表.狀態, 訂單明細表.備註, 物料資料庫.成本, 物料資料庫.售價, 訂單明細表.資料流水號, 

  1488.                             MJ選擇按鈕.選擇 AS 比對有貨, WWQQ.供應商編號

  1489.                 FROM        訂單明細表 LEFT OUTER JOIN

  1490.                                 (SELECT      訂單流水號, 單據編號, 供應商編號, 料號

  1491.                                  FROM        倉儲明細表

  1492.                                  WHERE      (訂單流水號 IS NOT NULL)

  1493.                                  GROUP BY    訂單流水號, 單據編號, 供應商編號, 狀態, 料號) AS WWQQ ON 

  1494.                             訂單明細表.採購單號 = WWQQ.單據編號 AND 訂單明細表.料號 = WWQQ.料號 LEFT OUTER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  1495.                             MJ選擇按鈕 ON 訂單明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 客戶資料表 INNER JOIN 訂單控制表 ON 客戶資料表.編號 = 訂單控制表.客戶編號 ON 

  1496.                             訂單明細表.訂單流水號 = 訂單控制表.訂單流水號

  1497.                 WHERE     (訂單明細表.出貨情況 NOT LIKE '完全出貨') AND (訂單控制表.公司編號 LIKE '%" & 公司編號 & "%')

  1498.                 ORDER BY   訂單控制表.訂單流水號 DESC, 訂單明細表.採購單號 DESC, 訂單明細表.出貨單號 DESC"

  1499.         CmdSet_For_DGV()

  1500.     End Sub

  1501.     Friend Sub SQL_訂單出貨控制表_庫存表()

  1502.         ConnOpen()

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

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

  1505.                             SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, 

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

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

  1508.                             QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價

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

  1510.                             供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  1521.                  WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 訂單出貨控制表.TextBox19.Text & "%') 

  1522.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價

  1523.                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號"

  1524.         CmdSet_For_DGV()

  1525.     End Sub

  1526.     Friend Sub SQL_訂單出貨控制表_出貨單號修改()

  1527.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET  出貨單號  = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA & "')" : CmdSet_For_dr()

  1528.     End Sub

  1529.     '---------------------訂單採購需求申請-----------------------------------------------------------------------------------------------------------------

  1530.     Friend Sub SQL_訂單採購需求申請清單()

  1531.         ConnOpen()

  1532.         SQL1 = "SELECT      訂單明細表.訂單流水號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.品名, 訂單明細表.數量, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 訂單明細表.備註, 

  1533.                             物料資料庫.成本 AS 單價, 物料資料庫.成本 AS 匯率, 物料資料庫.成本 AS 台幣單價, 訂單明細表.資料流水號, 訂單明細表.料號, MJ選擇按鈕.選擇

  1534.                 FROM        MJ選擇按鈕 RIGHT OUTER JOIN 訂單明細表 ON MJ選擇按鈕.按鈕 = 訂單明細表.資料流水號 RIGHT OUTER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN

  1535.                             客戶資料表 RIGHT OUTER JOIN 訂單控制表 ON 客戶資料表.編號 = 訂單控制表.客戶編號 ON 訂單明細表.訂單流水號 = 訂單控制表.訂單流水號

  1536.                 WHERE      (訂單明細表.出貨單號 LIKE '') AND (訂單明細表.採購單號 LIKE '')

  1537.                 ORDER BY    訂單明細表.訂單流水號"

  1538.         CmdSet_For_DGV()

  1539.     End Sub

  1540.     Friend Sub SQL_訂單採購需求申請_採購單號修改()

  1541.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET  採購單號  = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA & "')" : CmdSet_For_dr()

  1542.     End Sub

  1543.     '---------------------訂單管理控制表-----------------------------------------------------------------------------------------------------------------

  1544.     Friend Sub SQL_訂單管理控制表庫存()

  1545.         ConnOpen()

  1546.         If 訂單管理控制表.CheckBox1.Checked = True Then : KKKJJ2 = "ORDER BY   QQWW.供應商 DESC, 物料資料庫.料號" : Else : KKKJJ2 = "ORDER BY   物料資料庫.料號" : End If

  1547.         If 訂單管理控制表.TextBox1.Text = "" And 訂單管理控制表.ComboBox1.Text = "" Then

  1548.             KKKJJ = ""

  1549.         ElseIf 訂單管理控制表.TextBox1.Text <> "" And 訂單管理控制表.ComboBox1.Text = "" Then

  1550.             KKKJJ = " AND (物料資料庫.品名 LIKE '%" & 訂單管理控制表.TextBox1.Text & "%') "

  1551.         ElseIf 訂單管理控制表.TextBox1.Text = "" And 訂單管理控制表.ComboBox1.Text <> "" Then

  1552.             KKKJJ = " AND (物料資料庫.頁碼 LIKE '" & 訂單管理控制表.ComboBox1.Text & "%') "

  1553.         ElseIf 訂單管理控制表.TextBox1.Text <> "" And 訂單管理控制表.ComboBox1.Text <> "" Then

  1554.             KKKJJ = " AND (物料資料庫.品名 LIKE '%" & 訂單管理控制表.TextBox1.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 訂單管理控制表.ComboBox1.Text & "%') "

  1555.         End If

  1556.         SQL1 = "SELECT      QQWW.供應商, QQWW.供應商編號, 物料資料庫.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質,

  1557.                             QQWW.加權成本_台幣, QQWW.庫存, QQWW.庫存成本_台幣, QQWW.未入庫, QQWW.在途成本_台幣, 

  1558.                             QQWW.未出庫, QQWW.備貨成本_台幣, QQWW.可領用, 物料資料庫.售價, 物料資料庫.成本

  1559.                 FROM        物料資料庫 LEFT OUTER JOIN

  1560.                                 (SELECT          供應商資料表.簡稱 AS 供應商, 倉儲明細表.供應商編號, 倉儲明細表.料號, 

  1561.                                                  SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫) 

  1562.                                                  AS 加權成本_台幣, SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) AS 庫存, (SUM(倉儲明細表.入庫) 

  1563.                                                  - SUM(倉儲明細表.出庫)) * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) 

  1564.                                                  / SUM(倉儲明細表.入庫)) AS 庫存成本_台幣, WW.未入庫, 

  1565.                                                  WW.未入庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) 

  1566.                                                  AS 在途成本_台幣, QQ.未出庫, 

  1567.                                                  QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫)) 

  1568.                                                  AS 備貨成本_台幣, QQ.未出庫 AS 可領用

  1569.                                   FROM           倉儲明細表 LEFT OUTER JOIN 物料資料庫 AS 物料資料庫_1 ON 倉儲明細表.料號 = 物料資料庫_1.料號 LEFT OUTER JOIN

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

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

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

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

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

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

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

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

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

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

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

  1581.                                   WHERE      (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 訂單管理控制表.TextBox19.Text & "%')

  1582.                                   GROUP BY    供應商資料表.簡稱, 倉儲明細表.供應商編號, WW.未入庫, QQ.未出庫, 倉儲明細表.料號

  1583.                                   HAVING     (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0)) AS QQWW ON  物料資料庫.料號 = QQWW.料號

  1584.                 WHERE   (物料資料庫.停用 = 0) " & KKKJJ & KKKJJ2 & ""

  1585.         CmdSet_For_DGV()

  1586.     End Sub

  1587.     Friend Sub SQL_訂單管理控制表控制表()

  1588.         ConnOpen()

  1589.         SQL1 = "SELECT      訂單控制表.訂單流水號, 客戶資料表.簡稱, 訂單控制表.客戶編號, 訂單控制表.下單日, 訂單控制表.接單人員, 訂單控制表.交期, 訂單控制表.出貨備齊, 訂單控制表.出貨情況, 

  1590.                             訂單控制表.公司編號

  1591.                 FROM        訂單控制表 INNER JOIN 客戶資料表 ON 訂單控制表.客戶編號 = 客戶資料表.編號

  1592.                 WHERE      (訂單控制表.公司編號 LIKE '%" & 公司編號 & "%') 

  1593.                 ORDER BY    訂單控制表.交期 DESC, 訂單控制表.訂單流水號 DESC"

  1594.         CmdSet_For_DGV()

  1595.     End Sub

  1596.     Friend Sub SQL_訂單管理控制表控明細()

  1597.         ConnOpen()

  1598.         SQL1 = "SELECT      訂單明細表.資料流水號, 訂單明細表.訂單流水號, 訂單明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 訂單明細表.數量, 訂單明細表.出貨情況, 訂單明細表.採購單號, 

  1599.                             訂單明細表.出貨單號, 訂單明細表.狀態, 訂單明細表.備註

  1600.                 FROM        訂單明細表 INNER JOIN 物料資料庫 ON 訂單明細表.料號 = 物料資料庫.料號

  1601.                 WHERE       訂單明細表.訂單流水號 LIKE N'" & 訂單管理控制表.TextBox9.Text & "'

  1602.                 ORDER BY    訂單明細表.出貨單號 DESC, 訂單明細表.料號"

  1603.         CmdSet_For_DGV()

  1604.     End Sub

  1605.     Friend Sub SQL_訂單明細表流水號最後一筆()

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

  1607.     End Sub

  1608.     Friend Sub SQL_訂單明細表新增()

  1609.         ConnOpen()

  1610.         SQL1 = "INSERT INTO 訂單明細表 (資料流水號, 訂單流水號, 料號, 數量, 出貨情況, 採購單號, 出貨單號, 狀態, 備註) 

  1611.                 VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & NU1 & "', N'', N'', N'" & PA4 & "', N'" & PA5 & "', N'')"

  1612.         CmdSet_For_dr()

  1613.     End Sub

  1614.     Friend Sub SQL_訂單控制表流水號最後一筆()

  1615.         ConnOpen() : SQL1 = "SELECT TOP (1)  訂單流水號 FROM 訂單控制表 WHERE ( 訂單流水號 LIKE '" & 訂單管理控制表.TextBox9.Text & "')" : CmdSet_For_dr()

  1616.     End Sub

  1617.     Friend Sub SQL_訂單控制表新增()

  1618.         ConnOpen()

  1619.         SQL1 = "INSERT INTO 訂單控制表 (訂單流水號, 客戶編號, 下單日, 接單人員, 交期, 出貨備齊, 出貨情況, 公司編號) 

  1620.                 VALUES (N'" & 訂單管理控制表.TextBox9.Text & "', N'" & 訂單管理控制表.ComboBox3.Text & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP2 & "', N'0', N'', N'" & 公司編號 & "')"

  1621.         CmdSet_For_dr()

  1622.     End Sub

  1623.     '---------------------零售客戶記錄表-----------------------------------------------------------------------------------------------------------------

  1624.     Friend Sub SQL_零售客戶記錄表清單()

  1625.         ConnOpen() : SQL1 = "SELECT   零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號 FROM 零售客戶記錄表 ORDER BY 零售流水號 DESC" : CmdSet_For_DGV()

  1626.     End Sub

  1627.     Friend Sub SQL_零售客戶記錄表修改()

  1628.         ConnOpen()

  1629.         SQL1 = "UPDATE 零售客戶記錄表 SET  客戶名稱 = N'" & 零售客戶記錄表.TextBox2.Text & "', 統一編號 = N'" & 零售客戶記錄表.TextBox26.Text & "', 郵遞區號 = N'" & 零售客戶記錄表.TextBox11.Text &

  1630.                                        "', 店面地址 = N'" & 零售客戶記錄表.TextBox10.Text & "', 送貨地址 = N'" & 零售客戶記錄表.TextBox12.Text & "', 手機 = N'" & 零售客戶記錄表.TextBox6.Text &

  1631.                                            "', 電話 = N'" & 零售客戶記錄表.TextBox3.Text & "', 傳真 = N'" & 零售客戶記錄表.TextBox8.Text & "'

  1632.                 WHERE (零售流水號 LIKE '" & 零售客戶記錄表.TextBox1.Text & "')"

  1633.         CmdSet_For_dr()

  1634.     End Sub

  1635.     '---------------------銷售控制表-----------------------------------------------------------------------------------------------------------------

  1636.     Friend Sub SQL_銷售控制表清單()

  1637.         ConnOpen()

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

  1639.                             供應商資料表.簡稱 AS 廠商, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 

  1640.                             物料資料庫.材質, 倉儲明細表.售價 AS 銷售單價, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 單位成本, 

  1641.                             倉儲明細表.出庫 AS 銷售數量, 倉儲明細表.售價 * 倉儲明細表.出庫 AS 銷售金額, 

  1642.                             倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 銷售成本, 

  1643.                             倉儲明細表.售價 * 倉儲明細表.出庫 - 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 利潤,

  1644.                             倉儲明細表.採購下單 AS 下單日, 倉儲明細表.交期 AS 客戶交期, 倉儲明細表.出庫日期 AS 出貨日期, 倉儲明細表.備註

  1645.                  FROM       倉儲明細表 LEFT OUTER JOIN

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

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

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

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

  1650.                            (倉儲明細表.採購下單 BETWEEN '" & Format(銷售控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

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

  1652.         CmdSet_For_DGV()

  1653.     End Sub

  1654.     Friend Sub SQL_銷售控制表彙總()

  1655.         ConnOpen()

  1656.         SQL1 = "SELECT    客戶資料表.簡稱 AS 客戶, SUM(倉儲明細表.售價 * 倉儲明細表.出庫) AS 銷售金額, 

  1657.                           SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 銷售成本, 

  1658.                           SUM(倉儲明細表.售價 * 倉儲明細表.出庫 - 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫) AS 利潤

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

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

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

  1662.                          (倉儲明細表.採購下單 BETWEEN '" & Format(銷售控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(銷售控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')

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

  1664.                 ORDER BY  客戶"

  1665.         CmdSet_For_DGV()

  1666.     End Sub

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

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

  1669.         ConnOpen()

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

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

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

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

  1674.                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(業務佣金計算.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(業務佣金計算.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 

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

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

  1677.         CmdSet_For_DGV()

  1678.     End Sub

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

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

  1681.     End Sub

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

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

  1684.     End Sub

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

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

  1687.         ConnOpen()

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

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

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

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

  1692.                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(司機佣金計算.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(司機佣金計算.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 

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

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

  1695.         CmdSet_For_DGV()

  1696.     End Sub

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

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

  1699.     End Sub

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

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

  1702.     End Sub

  1703.     '---------------------列印_出貨單-----------------------------------------------------------------------------------------------------------------

  1704.     Friend Sub SQL_列印_出貨單表頭()

  1705.         ConnOpen()

  1706.         SQL1 = "SELECT   客戶資料表.店名, 客戶資料表.電話, 客戶資料表.統編, 客戶資料表.送貨地址, 倉儲明細表.單據編號, 客戶資料表.聯絡人, 倉儲明細表.訂單流水號, 倉儲明細表.業務, 倉儲明細表.司機

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

  1708.                 WHERE   (倉儲明細表.單據編號 LIKE '" & 列印用SQL & "')

  1709.                 GROUP BY 客戶資料表.店名, 客戶資料表.電話, 客戶資料表.統編, 客戶資料表.送貨地址, 倉儲明細表.單據編號, 客戶資料表.聯絡人, 倉儲明細表.訂單流水號, 倉儲明細表.業務, 倉儲明細表.司機"

  1710.         CmdSet_For_dr()

  1711.     End Sub

  1712.     Friend Sub SQL_列印_出貨單清單()

  1713.         ConnOpen()

  1714.         SQL1 = "SELECT 倉儲明細表.料號 AS A, 物料資料庫.頁碼 AS B, 物料資料庫.品名 AS C, 倉儲明細表.出庫 AS E, 物料資料庫.尺寸 AS F, 倉儲明細表.售價 AS G

  1715.                 FROM   倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  1716.                 WHERE (倉儲明細表.單據編號 LIKE '" & 列印用SQL & "') AND (狀態 LIKE '銷售出庫')"

  1717.         CmdSet_For_DGV()

  1718.     End Sub

  1719.     Friend Sub SQL_列印_出貨單邊界設定修改()

  1720.         ConnOpen()

  1721.         SQL1 = "UPDATE 出貨單套表欄位設定 SET A = '" & 列印_出貨單.NumericUpDown1.Value & "', B = '" & 列印_出貨單.NumericUpDown2.Value & "', C = '" & 列印_出貨單.NumericUpDown3.Value &

  1722.                                           "', D = '" & 列印_出貨單.NumericUpDown4.Value & "', E = '" & 列印_出貨單.NumericUpDown5.Value & "', F = '" & 列印_出貨單.NumericUpDown6.Value &

  1723.                                           "', G = '" & 列印_出貨單.NumericUpDown7.Value & "', H = '" & 列印_出貨單.NumericUpDown8.Value & "', I = '" & 列印_出貨單.NumericUpDown9.Value &

  1724.                                           "', J = '" & 列印_出貨單.NumericUpDown10.Value & "', K = '" & 列印_出貨單.NumericUpDown11.Value & "', L = '" & 列印_出貨單.NumericUpDown12.Value &

  1725.                                           "', M = '" & 列印_出貨單.NumericUpDown13.Value & "', 表頭 = '" & 列印_出貨單.NumericUpDown14.Value & "', 清單 = '" & 列印_出貨單.NumericUpDown15.Value &

  1726.                                           "', 表尾 = '" & 列印_出貨單.NumericUpDown16.Value & "'"

  1727.         CmdSet_For_dr()

  1728.     End Sub

  1729.     Friend Sub SQL_列印_出貨單邊界設定讀取()

  1730.         ConnOpen()

  1731.         SQL1 = "SELECT  A, B, C, D, E, F, G, H, I, J, K, L, M, 表頭, 清單, 表尾 FROM 出貨單套表欄位設定"

  1732.         CmdSet_For_dr()

  1733.     End Sub

  1734.     Friend Sub SQL_列印_出貨單表頭_零售()

  1735.         ConnOpen() : SQL1 = "SELECT 客戶名稱, 統一編號, 送貨地址, 電話 FROM   零售客戶記錄表 WHERE (出貨單號 LIKE '" & 列印用SQL & "')" : CmdSet_For_dr()

  1736.     End Sub

  1737.     '---------------------維修單申請-----------------------------------------------------------------------------------------------------------------

  1738.     Friend Sub SQL_維修單申請清單()

  1739.         ConnOpen()

  1740.         If 維修單申請.CheckBox1.Checked = True Then : KKKJJ = "ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號" : Else : KKKJJ = "ORDER BY   倉儲明細表.料號, 供應商資料表.簡稱" : End If

  1741.         If 維修單申請.TextBox1.Text = "" And 維修單申請.ComboBox1.Text = "" Then

  1742.             KKKJJ2 = ""

  1743.         ElseIf 維修單申請.TextBox1.Text <> "" And 維修單申請.ComboBox1.Text = "" Then

  1744.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 維修單申請.TextBox1.Text & "%') "

  1745.         ElseIf 維修單申請.TextBox1.Text = "" And 維修單申請.ComboBox1.Text <> "" Then

  1746.             KKKJJ2 = " AND (物料資料庫.頁碼 LIKE '" & 維修單申請.ComboBox1.Text & "%') "

  1747.         ElseIf 維修單申請.TextBox1.Text <> "" And 維修單申請.ComboBox1.Text <> "" Then

  1748.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 維修單申請.TextBox1.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 維修單申請.ComboBox1.Text & "%') "

  1749.         End If

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

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

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

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

  1754.                             QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價

  1755.                  FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  1766.                  WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 維修單申請.TextBox19.Text & "%') " & KKKJJ2 & "

  1767.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價

  1768.                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""

  1769.         CmdSet_For_DGV()

  1770.     End Sub

  1771.     Friend Sub SQL_維修單申請_彙總()

  1772.         ConnOpen()

  1773.         If 維修單申請.RadioButton4.Checked = True And 維修單申請.RadioButton3.Checked = False Then

  1774.             KKKJJ3 = "(倉儲明細表.出庫日期 LIKE N'') AND (倉儲明細表.狀態 LIKE '維修出庫') "

  1775.         ElseIf 維修單申請.RadioButton4.Checked = False And 維修單申請.RadioButton3.Checked = True Then

  1776.             KKKJJ3 = "(倉儲明細表.出庫日期 NOT LIKE N'') AND (倉儲明細表.狀態 LIKE '維修出庫') "

  1777.         End If

  1778.         SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 

  1779.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  1781.                 WHERE     (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND " & KKKJJ3 & "

  1782.                 GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 

  1783.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  1785.         CmdSet_For_DGV()

  1786.     End Sub

  1787.     Friend Sub SQL_維修單申請_清單()

  1788.         ConnOpen()

  1789.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 

  1790.                             倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 

  1791.                             倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價

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

  1793.                 WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 維修單申請.TextBox9.Text & "') AND (倉儲明細表.狀態 LIKE N'維修出庫')

  1794.                 ORDER BY    倉儲明細表.料號 "

  1795.         CmdSet_For_DGV()

  1796.     End Sub

  1797.     Friend Sub SQL_維修單申請_客戶資料_零售一()

  1798.         ConnOpen()

  1799.         SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 維修單申請.ComboBox3.Text & "')"

  1800.         CmdSet_For_dr()

  1801.     End Sub

  1802.     Friend Sub SQL_維修單申請_客戶資料_零售二()

  1803.         ConnOpen()

  1804.         SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 維修單申請.TextBox9.Text & "')"

  1805.         CmdSet_For_dr()

  1806.     End Sub

  1807.     Friend Sub SQL_維修單申請_客戶資料_銷售二()

  1808.         ConnOpen()

  1809.         SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.聯絡人, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式

  1810.                     FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號

  1811.                     WHERE  (客戶資料表.編號 LIKE N'" & 維修單申請.ComboBox3.Text & "')"

  1812.         CmdSet_For_dr()

  1813.     End Sub

  1814.     Friend Sub SQL_維修單申請_客戶資料表關鍵字查詢()

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

  1816.     End Sub

  1817.     Friend Sub SQL_維修單申請_零售客戶記錄表新增()

  1818.         ConnOpen()

  1819.         SQL1 = "INSERT INTO 零售客戶記錄表 (零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號) 

  1820.                 VALUES (N'" & PA1 & "',N'" & 維修單申請.TextBox2.Text & "',N'" & 維修單申請.TextBox26.Text & "',N'',N'',N'" & 維修單申請.TextBox12.Text & "',N'',N'" & 維修單申請.TextBox3.Text &

  1821.                      "',N'',N'" & 維修單申請.TextBox9.Text & "',N'" & 公司編號 & "')"

  1822.         CmdSet_For_dr()

  1823.     End Sub

  1824.     Friend Sub SQL_維修單申請_零售客戶記錄表刪除()

  1825.         ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 維修單申請.TextBox9.Text & "')" : CmdSet_For_dr()

  1826.     End Sub

  1827.     '---------------------維修單出庫確認-----------------------------------------------------------------------------------------------------------------

  1828.     Friend Sub SQL_維修單出庫確認清單()

  1829.         ConnOpen()

  1830.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 

  1831.                             倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 

  1832.                             訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

  1833.                 FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 

  1834.                             LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  1835.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  1836.                 WHERE      (倉儲明細表.狀態 LIKE '維修出庫') AND (倉儲明細表.出庫日期 LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%')

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

  1838.         CmdSet_For_DGV()

  1839.     End Sub

  1840.     Friend Sub SQL_出貨確認_倉儲明細表_維修單出庫確認()

  1841.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '維修出庫')" : CmdSet_For_dr()

  1842.     End Sub

  1843.     '---------------------採購退貨申請-----------------------------------------------------------------------------------------------------------------

  1844.     Friend Sub SQL_採購退貨申請_單號彙總()

  1845.         ConnOpen()

  1846.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

  1847.                 FROM        倉儲明細表 INNER JOIN

  1848.                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號

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

  1850.                 GROUP BY    倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

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

  1852.         CmdSet_For_DGV()

  1853.     End Sub

  1854.     Friend Sub SQL_採購退貨申請明細()

  1855.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 數量, 

  1856.                             倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 進貨成本_台幣, 

  1857.                             倉儲明細表.備註, 倉儲明細表.入庫日期, 倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 倉儲明細表.售價, 倉儲明細表.公司編號, MJ選擇按鈕.選擇

  1858.                 FROM        倉儲明細表 LEFT OUTER JOIN

  1859.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  1861.                 WHERE      (倉儲明細表.單據編號 LIKE N'" & 採購退貨申請.TextBox9.Text & "') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%')

  1862.                 ORDER BY   倉儲明細表.料號"

  1863.         CmdSet_For_DGV()

  1864.     End Sub

  1865.     Friend Sub SQL_採購退貨申請_供應商資料表讀取()

  1866.         ConnOpen()

  1867.         SQL1 = "SELECT      供應商資料表.名稱, 供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.地址1, 供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 

  1868.                             供應商資料表.統一編號, MJ付款方式.付款方式

  1869.                 FROM        供應商資料表 INNER JOIN MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號

  1870.                 WHERE      (供應商資料表.編號 LIKE '%" & 採購退貨申請.ComboBox3.Text & "%') AND (供應商資料表.停用 = 0 OR 供應商資料表.停用 IS NULL)

  1871.                 ORDER BY    名稱"

  1872.         CmdSet_For_dr()

  1873.     End Sub

  1874.     Friend Sub SQL_採購退貨申請清單()

  1875.         ConnOpen()

  1876.         If 採購退貨申請.CheckBox3.Checked = True Then : KKKJJ = "ORDER BY   供應商資料表.簡稱, 倉儲明細表.料號" : Else : KKKJJ = "ORDER BY   倉儲明細表.料號, 供應商資料表.簡稱" : End If

  1877.         If 採購退貨申請.TextBox18.Text = "" And 採購退貨申請.ComboBox1.Text = "" Then

  1878.             KKKJJ2 = ""

  1879.         ElseIf 採購退貨申請.TextBox18.Text <> "" And 採購退貨申請.ComboBox1.Text = "" Then

  1880.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 採購退貨申請.TextBox18.Text & "%') "

  1881.         ElseIf 採購退貨申請.TextBox18.Text = "" And 採購退貨申請.ComboBox1.Text <> "" Then

  1882.             KKKJJ2 = " AND (物料資料庫.頁碼 LIKE '" & 採購退貨申請.ComboBox1.Text & "%') "

  1883.         ElseIf 採購退貨申請.TextBox18.Text <> "" And 採購退貨申請.ComboBox1.Text <> "" Then

  1884.             KKKJJ2 = " AND (物料資料庫.品名 LIKE '%" & 採購退貨申請.TextBox18.Text & "%' OR 物料資料庫.頁碼 LIKE '" & 採購退貨申請.ComboBox1.Text & "%') "

  1885.         End If

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

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

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

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

  1890.                             QQ.未出庫 * (SUM(倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫) / SUM(倉儲明細表.入庫))  AS 備貨成本_台幣, QQ.未出庫 AS 可領用, 物料資料庫.售價

  1891.                  FROM       倉儲明細表 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 FULL OUTER JOIN

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

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

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

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

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

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

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

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

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

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

  1902.                  WHERE     (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.倉名編號 LIKE '%" & 採購退貨申請.TextBox19.Text & "%') " & KKKJJ2 & "

  1903.                  GROUP BY   供應商資料表.簡稱, 倉儲明細表.供應商編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, WW.未入庫, QQ.未出庫, 物料資料庫.售價

  1904.                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""

  1905.         CmdSet_For_DGV()

  1906.     End Sub

  1907.     '---------------------採購退賀清單-----------------------------------------------------------------------------------------------------------------

  1908.     Friend Sub SQL_採購退賀清單_單號彙總()

  1909.         ConnOpen()

  1910.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

  1911.                 FROM        倉儲明細表 INNER JOIN

  1912.                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號

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

  1914.                 GROUP BY    倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期

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

  1916.         CmdSet_For_DGV()

  1917.     End Sub

  1918.     Friend Sub SQL_採購退賀清單明細()

  1919.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 數量, 

  1920.                             倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 進貨成本_台幣, 

  1921.                             倉儲明細表.備註, 倉儲明細表.入庫日期, 倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 倉儲明細表.售價, 倉儲明細表.公司編號, MJ選擇按鈕.選擇

  1922.                 FROM        倉儲明細表 LEFT OUTER JOIN

  1923.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN

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

  1925.                 WHERE      (倉儲明細表.單據編號 LIKE N'" & 採購退賀清單.TextBox9.Text & "') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫 < 0)

  1926.                 ORDER BY   倉儲明細表.料號"

  1927.         CmdSet_For_DGV()

  1928.     End Sub

  1929.     '---------------------採購退貨確認-----------------------------------------------------------------------------------------------------------------

  1930.     Friend Sub SQL_採購退貨確認清單()

  1931.         ConnOpen()

  1932.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 準備入庫數量, 倉儲明細表.備註, 

  1933.                             倉儲明細表.採購下單, 倉儲明細表.入庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲明細表.倉名編號

  1934.                 FROM        倉儲明細表 LEFT OUTER JOIN MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

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

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

  1937.         CmdSet_For_DGV()

  1938.     End Sub

  1939.     Friend Sub SQL_採購退貨確認_倉名取得()

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

  1941.     End Sub

  1942.     '---------------------銷售退貨申請-----------------------------------------------------------------------------------------------------------------

  1943.     Friend Sub SQL_銷售退貨申請_彙總()

  1944.         ConnOpen()

  1945.         SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 

  1946.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

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

  1949.                 GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 

  1950.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  1952.         CmdSet_For_DGV()

  1953.     End Sub

  1954.     Friend Sub SQL_銷售退貨申請_清單()

  1955.         ConnOpen()

  1956.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 

  1957.                             倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 

  1958.                             倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價, 倉儲明細表.供應商編號

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

  1960.                 WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 銷售退貨申請.TextBox9.Text & "') AND (倉儲明細表.狀態 LIKE N'銷售出庫')

  1961.                 ORDER BY    倉儲明細表.料號 "

  1962.         CmdSet_For_DGV()

  1963.     End Sub

  1964.     Friend Sub SQL_銷售退貨申請_倉儲明細表新增()

  1965.         ConnOpen()

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

  1967.                                         倉名編號, 交期, 業務, 業務比例, 司機, 司機比例) 

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

  1969.                      "',N'',N'',N'',N'',N'" & PA7 & "',N'" & NU5 & "',N'" & 公司編號 & "',N'" & PA8 & "',N'" & PA9 & "', N'" & 銷售退貨申請.ComboBox6.Text &

  1970.                     "', N'" & 銷售退貨申請.ComboBox7.Text & "', N'" & 銷售退貨申請.ComboBox8.Text & "', N'" & 銷售退貨申請.ComboBox9.Text & "')"

  1971.         CmdSet_For_dr()

  1972.     End Sub

  1973.     Friend Sub SQL_銷售退貨申請_客戶資料_零售一()

  1974.         ConnOpen()

  1975.         SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 銷售退貨申請.ComboBox3.Text & "')"

  1976.         CmdSet_For_dr()

  1977.     End Sub

  1978.     Friend Sub SQL_銷售退貨申請_客戶資料_零售二()

  1979.         ConnOpen()

  1980.         SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 銷售退貨申請.TextBox9.Text & "')"

  1981.         CmdSet_For_dr()

  1982.     End Sub

  1983.     Friend Sub SQL_銷售退貨申請_客戶資料_銷售二()

  1984.         ConnOpen()

  1985.         SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式

  1986.                     FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號

  1987.                     WHERE  (客戶資料表.編號 LIKE N'" & 銷售退貨申請.ComboBox3.Text & "')"

  1988.         CmdSet_For_dr()

  1989.     End Sub

  1990.     '---------------------銷售退貨清單-----------------------------------------------------------------------------------------------------------------

  1991.     Friend Sub SQL_銷售退貨清單_彙總()

  1992.         ConnOpen()

  1993.         SQL1 = "SELECT     倉儲明細表.單據編號, 倉儲明細表.採購下單 AS 銷售下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期 AS 客戶交期, 

  1994.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

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

  1997.                 GROUP BY   倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.客戶編號, 客戶資料表.簡稱, 倉儲明細表.狀態, 倉儲明細表.交期, 

  1998.                            倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

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

  2000.         CmdSet_For_DGV()

  2001.     End Sub

  2002.     Friend Sub SQL_銷售退貨清單_清單()

  2003.         ConnOpen()

  2004.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 數量, 倉儲明細表.售價, 

  2005.                             倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 出貨成本_台幣, 倉儲明細表.備註, 倉儲明細表.出庫日期, 

  2006.                             倉儲分區控制表.倉名, 倉儲明細表.金額 AS 單價, 倉儲明細表.供應商編號

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

  2008.                 WHERE      (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.單據編號 LIKE N'" & 銷售退貨清單.TextBox9.Text & "') AND 

  2009.                            (倉儲明細表.狀態 LIKE N'銷售出庫') AND (倉儲明細表.出庫 < 0)

  2010.                 ORDER BY    倉儲明細表.料號 "

  2011.         CmdSet_For_DGV()

  2012.     End Sub

  2013.     Friend Sub SQL_銷售退貨清單_客戶資料_零售一()

  2014.         ConnOpen()

  2015.         SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 銷售退貨清單.ComboBox3.Text & "')"

  2016.         CmdSet_For_dr()

  2017.     End Sub

  2018.     Friend Sub SQL_銷售退貨清單_客戶資料_零售二()

  2019.         ConnOpen()

  2020.         SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 銷售退貨清單.TextBox9.Text & "')"

  2021.         CmdSet_For_dr()

  2022.     End Sub

  2023.     Friend Sub SQL_銷售退貨清單_客戶資料_銷售二()

  2024.         ConnOpen()

  2025.         SQL1 = "SELECT  客戶資料表.店名, 客戶資料表.手機, 客戶資料表.電話, 客戶資料表.傳真, 客戶資料表.統編, 客戶資料表.店面地址郵遞區號, 客戶資料表.店面地址, 客戶資料表.送貨地址,  MJ付款方式.付款方式

  2026.                     FROM    客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號

  2027.                     WHERE  (客戶資料表.編號 LIKE N'" & 銷售退貨清單.ComboBox3.Text & "')"

  2028.         CmdSet_For_dr()

  2029.     End Sub

  2030.     '---------------------銷售退貨確認-----------------------------------------------------------------------------------------------------------------

  2031.     Friend Sub SQL_銷售退貨確認清單()

  2032.         ConnOpen()

  2033.         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.出庫 AS 準備出庫數量, 倉儲明細表.備註, 

  2034.                             倉儲明細表.採購下單 AS 客戶下單, 倉儲明細表.出庫日期, MJ選擇按鈕.選擇, 倉儲明細表.狀態, 倉儲分區控制表.倉名, 倉儲明細表.訂單流水號, 訂單控制表.出貨備齊, 

  2035.                             訂單明細表.資料流水號 AS 訂單明細流水, 倉儲明細表.業務, 倉儲明細表.業務比例, 倉儲明細表.司機, 倉儲明細表.司機比例

  2036.                 FROM        倉儲明細表 LEFT OUTER JOIN 訂單明細表 ON 倉儲明細表.單據編號 = 訂單明細表.出貨單號 AND 倉儲明細表.料號 = 訂單明細表.料號 AND 倉儲明細表.訂單流水號 = 訂單明細表.訂單流水號 

  2037.                             LEFT OUTER JOIN 訂單控制表 ON 倉儲明細表.訂單流水號 = 訂單控制表.訂單流水號 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  2038.                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

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

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

  2041.         CmdSet_For_DGV()

  2042.     End Sub

  2043.     Friend Sub SQL_銷售退貨確認_倉儲明細表_銷售出庫確認()

  2044.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 出庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "' WHERE (資料流水號 LIKE N'" & PA1 & "')  AND (狀態 LIKE '銷售出庫')" : CmdSet_For_dr()

  2045.     End Sub

  2046.     Friend Sub SQL_銷售退貨確認_訂單控制表_出貨情況()

  2047.         ConnOpen() : SQL1 = "UPDATE 訂單控制表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  2048.     End Sub

  2049.     Friend Sub SQL_銷售退貨確認_訂單明細表_出貨情況一()

  2050.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (訂單流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  2051.     End Sub

  2052.     Friend Sub SQL_銷售退貨確認_訂單明細表_出貨情況二()

  2053.         ConnOpen() : SQL1 = "UPDATE 訂單明細表 SET 出貨情況 = N'" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  2054.     End Sub

  2055.     '---------------------列印_產品標籤介面-----------------------------------------------------------------------------------------------------------------

  2056.     Friend Sub SQL_列印_產品標籤清單()

  2057.         If PA = "維修申請單" Then

  2058.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' "

  2059.         ElseIf PA = "銷售退貨單" Then

  2060.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.出庫 < 0 "

  2061.         ElseIf PA = "銷售出貨單" Then

  2062.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.出庫 >= 0 "

  2063.         ElseIf PA = "採購訂貨單" Then

  2064.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.入庫 >= 0 "

  2065.         ElseIf PA = "採購退貨單" Then

  2066.             KKKJJ = " WHERE 倉儲明細表.單據編號 LIKE N'" & 列印用SQL & "' AND 倉儲明細表.入庫 < 0 "

  2067.         End If

  2068.         ConnOpen()

  2069.         SQL1 = "SELECT 倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.入庫, 倉儲明細表.出庫

  2070.                      FROM   倉儲明細表 INNER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號

  2071.                      " & KKKJJ & "

  2072.                      GROUP BY   倉儲明細表.單據編號, 倉儲明細表.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.入庫, 倉儲明細表.出庫 

  2073.                      ORDER BY 倉儲明細表.料號"

  2074.         CmdSet_For_DGV()

  2075.     End Sub

  2076.     '---------------------應付賬款-----------------------------------------------------------------------------------------------------------------

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

  2078.         If 應付賬款控制表.CheckBox3.Checked = False Then

  2079.             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  2080.                             (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "

  2081.         ElseIf 應付賬款控制表.CheckBox3.Checked = True Then

  2082.             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  2083.                             (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 

  2084.                             (倉儲明細表.應付立帳 IS NULL OR 倉儲明細表.應付立帳 = 0)"

  2085.         End If

  2086.         ConnOpen()

  2087.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 

  2088.                             物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 

  2089.                             倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 

  2090.                             倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 

  2091.                             倉儲明細表.應付立帳, 倉儲明細表.資料流水號

  2092.                 FROM        倉儲明細表 LEFT OUTER JOIN

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

  2094.                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "

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

  2096.         CmdSet_For_DGV()

  2097.     End Sub

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

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

  2100.     End Sub

  2101.     '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------

  2102.     Friend Sub SQL_通用預設值管理清單一()

  2103.         ConnOpen() : SQL1 = "SELECT 流水號, 使用介面, 說明, 預設值 FROM 通用預設值管理表一 ORDER BY 使用介面" : CmdSet_For_DGV()

  2104.     End Sub

  2105.     Friend Sub SQL_系統通用變數管理流水號查詢()

  2106.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 通用預設值管理表一 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  2107.     End Sub

  2108.     Friend Sub SQL_系統通用變數管理新增()

  2109.         SQL1 = "INSERT INTO 通用預設值管理表一 (流水號, 使用介面, 說明, 預設值) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"

  2110.     End Sub

  2111.     Friend Sub SQL_系統通用變數管理修改()

  2112.         SQL1 = "UPDATE 通用預設值管理表一 SET 使用介面 = N'" & PA2 & "', 說明 = N'" & PA3 & "', 預設值 = N'" & PA4 & "' WHERE 流水號 LIKE N'" & PA1 & "'"

  2113.     End Sub

  2114.     Friend Sub SQL_系統通用變數管理刪除()

  2115.         SQL1 = "DELETE FROM 通用預設值管理表一 WHERE (流水號 = N'" & PA1 & "')"

  2116.     End Sub

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

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

  2119.         If 應收帳款控制表.CheckBox3.Checked = False Then

  2120.             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  2121.                             (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "

  2122.         ElseIf 應收帳款控制表.CheckBox3.Checked = True Then

  2123.             KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 

  2124.                             (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 

  2125.                             (倉儲明細表.應收立帳 IS NULL OR 倉儲明細表.應收立帳 = 0)"

  2126.         End If

  2127.         ConnOpen()

  2128.         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.客戶編號, 客戶資料表.簡稱 AS 客戶, 物料資料庫.料號, 物料資料庫.頁碼, 

  2129.                             物料資料庫.品名, 倉儲明細表.售價 AS 單價, 倉儲明細表.匯率, 倉儲明細表.出庫, 

  2130.                             倉儲明細表.售價 * 倉儲明細表.匯率 * 倉儲明細表.出庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.出庫日期, 

  2131.                             倉儲明細表.備註, 倉儲明細表.應付立帳 AS 選擇, 倉儲明細表.應收立帳, 倉儲明細表.資料流水號, 倉儲明細表.收款狀態 

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

  2133.                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "

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

  2135.         CmdSet_For_DGV()

  2136.     End Sub

  2137. End Module