HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
İzle 4
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Değişiklik İstekleri 0 Sürümler 0 Wiki Aktivite
Açıklama Yok
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.
1 İşle
1 Dal
Ağaç: def2fb1fb8
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'def2fb1fb8'den
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_請採購系統管理.vb

SQL_請採購系統管理.vb 153KB
Geçmiş Ham

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549 
  1. Module SQL_請採購系統管理

  2.     '---------------------建築物料請購單申請-----------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_物料群組()

  4.         ConnOpen()

  5.         If 物料查詢 = False Then

  6.             SQL1 = "SELECT     物料群組轉語言.群組碼, 物料群組轉語言.群組, 物料群組.圖片

  7.                     FROM       物料群組轉語言 INNER JOIN 物料群組 ON 物料群組轉語言.群組碼 = 物料群組.群組碼

  8.                     WHERE     (物料群組轉語言.主項 LIKE '" & PA1 & "') AND (物料群組轉語言.語言 LIKE '" & 系統語言 & "')

  9.                     ORDER BY   物料群組轉語言.群組碼"

  10.         Else

  11.             SQL1 = "SELECT    物料群組轉語言.群組碼, 物料群組轉語言.群組, 物料群組.圖片

  12.                     FROM      物料群組轉語言 INNER JOIN

  13.                               物料群組 ON 物料群組轉語言.群組碼 = 物料群組.群組碼 INNER JOIN

  14.                              (SELECT    群組碼  FROM  物料編碼庫轉語言  WHERE  (品名 LIKE N'%" & 物料關鍵字 & "%')

  15.                               GROUP BY  群組碼) AS QQ ON 物料群組轉語言.群組碼 = QQ.群組碼

  16.                     WHERE    (物料群組轉語言.語言 LIKE '" & 系統語言 & "')

  17.                     ORDER BY  物料群組轉語言.群組碼"

  18.         End If

  19.         CmdSet_For_DGV()

  20.     End Sub

  21.     Friend Sub SQL_建築物料請購單申請_已核准()

  22.         ConnOpen()

  23.         SQL1 = "SELECT      TOP (100) 請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], 

  24.                             LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 

  25.                             LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.需求日期,

  26.                             請購單控制表.合約號 AS [" & 表頭(134) & "], 備註, 乙方, 甲方, 立約日, 序號, 請購單控制表.退單 AS [" & 表頭(10) & "], 請購單控制表.退單備註

  27.                 FROM        請購單控制表 INNER JOIN

  28.                             使用者權限管理表 ON 請購單控制表.申請人 = 使用者權限管理表.姓名 INNER JOIN

  29.                                 (SELECT          姓名, 帳號, 職稱, 時效, 授權

  30.                                   FROM           系統跨部門權限表

  31.                                   WHERE         (姓名 LIKE N'" & gUserName & "') AND (授權 = 1)) AS QQQ ON 

  32.                             使用者權限管理表.職稱 = QQQ.職稱

  33.                 WHERE      (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單控制表.核准人 NOT LIKE N'')  AND 使用者權限管理表.CC63 = 0  

  34.                 ORDER BY    請購單控制表.請購單號 DESC"

  35.         CmdSet_For_DGV()

  36.     End Sub

  37.     Friend Sub SQL_建築物料請購單申請_請購單清單()

  38.         ConnOpen()

  39.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  40.         SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  41.                             物料規格表.A1 AS [" & 表頭(13) & "], 請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 

  42.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.群組碼, 請購單明細表.群組原則, 

  43.                             請購單明細表.料號, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 物料規格表.A2, 

  44.                             物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 請購單明細表.已採購 AS [" & 表頭(9) & "] 

  45.                             " & 低網 & "

  46.                  FROM       請購單明細表 INNER JOIN

  47.                             物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  48.                             請購單明細表.群組原則 = 物料編碼庫.料號原則 INNER JOIN

  49.                             物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN

  50.                             物料資訊控制表 ON 物料編碼庫.料號原則 = 物料資訊控制表.料號原則 INNER JOIN

  51.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  52.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 INNER JOIN

  53.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  54.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  55.                  WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單申請.請購單號_tb.Text & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  56.                  ORDER BY   [" & 表頭(11) & "]"

  57.         CmdSet_For_DGV()

  58.     End Sub

  59.     Friend Sub SQL_請購單需求日其修改()

  60.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 需求日期 = '" & DTP & "' WHERE 請購單號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  61.     End Sub

  62.     Friend Sub SQL_建築物料請購單申請_增選取資料驗證()

  63.         ConnOpen() : SQL1 = "SELECT TOP(1) 料號 FROM 請購單明細表 WHERE 請購單號 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  64.     End Sub

  65.     Friend Sub SQL_請購單明細表_項次最後一筆()

  66.         ConnOpen() : SQL1 = "SELECT TOP(1) 項次 FROM 請購單明細表 WHERE 請購單號 LIKE N'" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()

  67.     End Sub

  68.     Friend Sub SQL_請購單明細表_新增()

  69.         ConnOpen()

  70.         SQL1 = "INSERT INTO 請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單位, 用途, 項次, 群組碼, 群組原則, 料號) 

  71.                 VALUES (N'" & PA & "',N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & NU1 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA7 & "',N'" & PA8 & "',N'" & PA9 & "')"

  72.         CmdSet_For_dr()

  73.     End Sub

  74.     Friend Sub SQL_請購單控制表_流水號查詢()

  75.         ConnOpen() : SQL1 = "SELECT TOP (1)  請購單號 FROM 請購單控制表 WHERE ( 請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  76.     End Sub

  77.     Friend Sub SQL_合約號確認()

  78.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約控制表  WHERE  (合約編號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  79.     End Sub

  80.     Friend Sub SQL_請購單控制表_新增()

  81.         ConnOpen()

  82.         SQL1 = "INSERT INTO 請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 已收貨, 採購單號,合約號, 備註, 乙方, 甲方, 立約日, 序號) 

  83.                 VALUES (N'" & PA & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'',N'" & PA1 & "',N'" & PA43 & "',N'" & PA44 & "',N'" & PA45 & "',N'" & PA46 & "',N'" & PA47 & "')"

  84.         CmdSet_For_dr()

  85.     End Sub

  86.     Friend Sub SQL_請購單控制表_刪除()

  87.         ConnOpen() : SQL1 = "DELETE FROM 請購單控制表 WHERE (請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  88.     End Sub

  89.     Friend Sub SQL_請購單明細表_刪除()

  90.         ConnOpen() : SQL1 = "DELETE FROM 請購單明細表 WHERE (請購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  91.     End Sub

  92.     '---------------------建築物料請購單核准-----------------------------------------------------------------------------------------------------------------

  93.     Friend Sub SQL_請購單審核_申請人資料()

  94.         ConnOpen() : SQL1 = "SELECT 部門, 課別, 組別, 級別 FROM 使用者權限管理表 WHERE (帳號 = '" & 請購單核准.申請人_tb.Text & "')" : CmdSet_For_dr()

  95.     End Sub

  96.     Friend Sub SQL_建築物料請購單核准_請購單清單()

  97.         ConnOpen()

  98.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  99.         SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 

  100.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  101.                             請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 

  102.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 物料規格表.圖檔編號, 

  103.                             請購單明細表.群組碼, 請購單明細表.群組原則, 物料資訊控制表.規格庫編號, 

  104.                             物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 

  105.                             物料規格表.A7, 物料規格表.A8, 請購單明細表.已採購 AS [" & 表頭(9) & "] " & 低網 & "

  106.                 FROM        請購單明細表 INNER JOIN

  107.                             物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  108.                             請購單明細表.群組原則 = 物料編碼庫.料號原則 INNER JOIN

  109.                             物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 

  110.                             物料編碼庫.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN

  111.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  112.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  113.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 INNER JOIN

  114.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  115.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  116.                 WHERE      (請購單明細表.請購單號 LIKE N'" & 請購單核准.請購單號_tb.Text & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  117.                 ORDER BY   [" & 表頭(11) & "]"

  118.         CmdSet_For_DGV()

  119.     End Sub

  120.     Friend Sub SQL_建築物料請購單核准_請購單核准()

  121.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 核准人 = N'" & PA1 & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()

  122.     End Sub

  123.     Friend Sub SQL_請購單核准_加急核准()

  124.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 加急 = 1 WHERE (請購單號 = N'" & PA & "')" : CmdSet_For_dr()

  125.     End Sub

  126.     Friend Sub SQL_建築物料請購單核准_請購單退回(請購單號 As String)

  127.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 核准人 = N'', 核准日期 = N'', 加急 = 0, 退單 = 1, 退單備註 = N'" & PA & "' WHERE (請購單號 LIKE N'" & 請購單號 & "')" : CmdSet_For_dr()

  128.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET 加急 = 0 WHERE (請購單號 LIKE N'" & 請購單號 & "')" : CmdSet_For_dr()

  129.     End Sub

  130.     '---------------------建築物料請購單一覽表-----------------------------------------------------------------------------------------------------------------

  131.     Friend Sub SQL_請購單明細表_已採購預設()

  132.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET 已採購 = 0 WHERE (已採購 IS NULL)" : CmdSet_For_dr()

  133.     End Sub

  134.     Friend Sub SQL_請購單明細表_已採購修改()

  135.         ConnOpen()

  136.         SQL1 = "UPDATE 請購單明細表 SET 已採購 = '" & 請購單歷史檔案.已採購_ch.Checked & "' 

  137.                 WHERE (請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "') AND 項次 LIKE N'" & 請購單歷史檔案.項次_bt.Text & "'"

  138.         CmdSet_For_dr()

  139.     End Sub

  140.     Friend Sub SQL_建築物料請購單一覽表_請購單清單()

  141.         ConnOpen()

  142.         If 請購單歷史檔案.依請購單_ch.Checked = True Then

  143.             SQL2 = "WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "') AND 

  144.                            (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')" & SQL3

  145.         Else

  146.             SQL2 = "WHERE  (請購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "') AND 

  147.                            (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')  AND 

  148.                            (QQQ.採購單號 LIKE N'" & 請購單歷史檔案.採購單號_tb.Text & "')" & SQL3

  149.         End If

  150. 

  151.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  152.         SQL1 = "SELECT      請購單明細表.請購單號, 請購單明細表.項次 AS [" & 表頭(11) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  153.                             物料規格表.A1 AS [" & 表頭(13) & "], 請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 

  154.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.群組碼, 請購單明細表.群組原則, 

  155.                             請購單明細表.料號, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

  156.                             物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, QQQ.採購單號 AS [" & 表頭(24) & "], 

  157.                             QQQ.已入庫 AS [" & 表頭(43) & "], QQQ.已申請入庫 AS [" & 表頭(42) & "], 物料規格表.圖檔編號, 請購單明細表.已採購 AS [S], 

  158.                             請購單明細表.項次 AS [B], QQQ.備註 AS [" & 表頭(26) & "] " & 低網 & "

  159.                 FROM        物料圖庫 RIGHT OUTER JOIN

  160.                             請購單明細表 LEFT OUTER JOIN

  161.                                 (SELECT          採購單控制表.採購單號, 採購單明細表.請購單號, 

  162.                                                  採購單控制表.一級核准, 採購單控制表.核准, 

  163.                                                  採購單明細表.群組碼, 採購單明細表.料號原則, 

  164.                                                  採購單明細表.料號, 採購單明細表.已入庫, 

  165.                                                  採購單明細表.已申請入庫, 採購單明細表.備註

  166.                                   FROM           採購單控制表 INNER JOIN

  167.                                                  採購單明細表 ON 

  168.                                                  採購單控制表.採購單號 = 採購單明細表.採購單號

  169.                                   WHERE         (採購單明細表.請購單號 LIKE N'" & 請購單歷史檔案.請購單號_tb.Text & "')) AS QQQ ON 

  170.                             請購單明細表.料號 = QQQ.料號 ON 請購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  171.                             請購單明細表.群組原則 = 物料圖庫.料號原則 LEFT OUTER JOIN

  172.                             物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  173.                             請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  174.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  175.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  176.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 INNER JOIN

  177.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  178.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 " & SQL2 & "

  179.                 ORDER BY   [" & 表頭(24) & "]"

  180.         CmdSet_For_DGV()

  181.     End Sub

  182.     Friend Sub SQL_建築物料請購單一覽表_已核准()

  183.         ConnOpen()

  184.         SQL1 = "SELECT TOP(1000) 請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人 AS [" & 表頭(19) & "], LEFT(請購單控制表.申請日期, 10) AS [" & 表頭(20) & "], 

  185.                                  請購單控制表.核准人 AS [" & 表頭(21) & "], LEFT(請購單控制表.核准日期, 10) AS [" & 表頭(22) & "], 請購單控制表.已採購 AS [" & 表頭(23) & "], 

  186.                                  QQQ.採購單號 AS [" & 表頭(24) & "], 請購單控制表.已收貨 AS [" & 表頭(25) & "], 採購單控制表.一級核准 AS [Approv L1], 

  187.                                  採購單控制表.核准 AS [Approv L2] , 請購單控制表.需求日期 AS [" & 表頭(30) & "], WWW.已採購,請購單控制表.合約號 AS [" & 表頭(134) & "], 

  188.                                  HX空白圖片.圖片 AS [SOP1], HX空白圖片.圖片 AS [SOP2], HX空白圖片.圖片 AS [SOP3], HX空白圖片.圖片 AS [SOP4], HX空白圖片.圖片 AS [SOP5],

  189.                                  HX空白圖片.圖片 AS [SOP6], HX空白圖片.圖片 AS [SOP7], HX空白圖片.圖片 AS [SOP8]

  190.                 FROM            (SELECT  請購單號, 已採購  FROM  請購單明細表  GROUP BY  請購單號, 已採購) AS WWW RIGHT OUTER JOIN 請購單控制表 LEFT OUTER JOIN

  191.                                  HX空白圖片 ON 請購單控制表.序號 = HX空白圖片.選擇 ON WWW.請購單號 = 請購單控制表.請購單號 LEFT OUTER JOIN 採購單控制表 INNER JOIN

  192.                                 (SELECT  採購單號, 請購單號  FROM  採購單明細表  GROUP BY  採購單號, 請購單號) AS QQQ ON 採購單控制表.採購單號 = QQQ.採購單號 ON 

  193.                                  請購單控制表.請購單號 = QQQ.請購單號 " & SQL2 & "  AND 

  194.                                  LEFT(請購單控制表.申請日期, 7) LIKE N'" & 請購單歷史檔案.年_cb.Text & "/" & 請購單歷史檔案.月_cb.Text & "'

  195.                  ORDER BY        LEFT(請購單控制表.申請日期, 10) DESC, 請購單控制表.立約日 DESC, 請購單控制表.序號"

  196.         CmdSet_For_DGV()

  197.     End Sub

  198.     '---------------------物料採購單生成-----------------------------------------------------------------------------------------------------------------

  199.     Friend Sub SQL_物料最新單價查詢()

  200.         ConnOpen() : SQL1 = "SELECT 料號, 單價, 備註, 日期 FROM 供應商產品清單 WHERE (供應商編碼 LIKE '" & PA14 & "')" : CmdSet_For_DGV()

  201.     End Sub

  202.     Friend Sub SQL_建築物料採購單生成_明細()

  203.         ConnOpen()

  204.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  205.         If PA20 = "A" Then

  206.             SQL1 = "SELECT  請購單明細表.請購單號 AS [" & 表頭(18) & "], 請購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],

  207.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 請購單明細表.規格 AS [" & 表頭(13) & "], 

  208.                             請購單明細表.備註 AS [" & 表頭(14) & "], 請購單明細表.數量 AS [" & 表頭(15) & "], 

  209.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 請購單明細表.數量 AS [" & 表頭(26) & "], 

  210.                             請購單明細表.數量 AS [" & 表頭(27) & "], 請購單明細表.群組碼, 

  211.                             請購單明細表.群組原則 AS 料號原則, 請購單明細表.料號, 物料規格表.圖檔編號, 

  212.                             請購單明細表.已採購 AS [" & 表頭(28) & "], 請購單明細表.項次, 請購單明細表.請購單號 AS [KEY],

  213.                             採購單明細表.單價 AS OUP, 請購單明細表.請購單號 AS [SP%] " & 低網 & "

  214.                     FROM    請購單明細表 INNER JOIN

  215.                             物料圖庫 ON 請購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  216.                             請購單明細表.群組原則 = 物料圖庫.料號原則 INNER JOIN

  217.                             物料編碼庫 ON 請購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  218.                             請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  219.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 INNER JOIN

  220.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  221.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  222.                     WHERE  (請購單明細表.請購單號 LIKE N'" & PA1 & "') AND 

  223.                            (請購單明細表.已採購 IS NULL OR 請購單明細表.已採購 = 0) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  224.                     ORDER BY   [" & 表頭(11) & "]"

  225.         ElseIf PA20 = "B" Then

  226.             SQL1 = "SELECT  採購單明細表.採購單號 AS [" & 表頭(18) & "], 採購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],

  227.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  228.                             採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  229.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  230.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 

  231.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 

  232.                             HX選擇按鈕.選擇 AS [" & 表頭(28) & "], 採購單明細表.項次, 採購單明細表.請購單號 AS [KEY], 物料資訊控制表.規格庫編號, 

  233.                             物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

  234.                             物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8,

  235.                             採購單明細表.單價 AS OUP, 採購單明細表.申請人 AS [SP%] , 採購單明細表.申請人 AS [" & 表頭(19) & "] " & 低網 & "

  236.                     FROM    採購單明細表 INNER JOIN

  237.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  238.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  239.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  240.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  241.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  242.                             HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN

  243.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

  244.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  245.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  246.                     WHERE  (採購單明細表.採購單號 LIKE N'" & PA2 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  247.                     ORDER BY   [" & 表頭(11) & "]"

  248.         End If

  249.         CmdSet_For_DGV()

  250.     End Sub

  251.     Friend Sub SQL_建築物料採購單生成_請購()

  252.         ConnOpen()

  253.         SQL1 = "SELECT      請購單控制表.請購單號 AS [" & 表頭(18) & "], 請購單控制表.申請人, LEFT(請購單控制表.申請日期, 10) 

  254.                             AS 申請日期, 請購單控制表.核准人, LEFT(請購單控制表.核准日期, 10) AS 核准日期, 

  255.                             請購單控制表.已採購, 請購單控制表.採購單號, 請購單控制表.已收貨, 

  256.                             請購單明細表.用途, 倉儲分區控制表.倉名

  257.                 FROM        請購單控制表 INNER JOIN 請購單明細表 ON 

  258.                             請購單控制表.請購單號 = 請購單明細表.請購單號 LEFT OUTER JOIN

  259.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號

  260.                 WHERE       (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND 

  261.                             (請購單明細表.已採購 IS NULL OR

  262.                             請購單明細表.已採購 = 0)

  263.                 GROUP BY   請購單控制表.請購單號, 請購單控制表.申請人, LEFT(請購單控制表.申請日期, 10), 

  264.                             請購單控制表.核准人, LEFT(請購單控制表.核准日期, 10), 請購單控制表.已採購, 

  265.                             請購單控制表.採購單號, 請購單控制表.已收貨, 請購單明細表.用途, 

  266.                             倉儲分區控制表.倉名

  267.                 ORDER BY   請購單控制表.請購單號 DESC"

  268.         CmdSet_For_DGV()

  269.     End Sub

  270.     Friend Sub SQL_建築物料採購單生成_採購()

  271.         ConnOpen()

  272.         SQL1 = "SELECT     採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  273.                            採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  274.                            採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  275.                            採購單控制表.PPN, 採購單明細表.合約號, 採購單控制表.採購單號 AS [NO.], 採購單控制表.手動號碼

  276.                 FROM       採購單控制表 INNER JOIN

  277.                            採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號

  278.                 WHERE     (採購單控制表.核准 LIKE N'') " & SQL2 & "

  279.                 GROUP BY   採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  280.                            採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  281.                            採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 

  282.                            採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 採購單明細表.合約號, 採購單控制表.手動號碼

  283.                 ORDER BY   SUBSTRING(採購單控制表.採購單號, 7, 8) DESC"

  284.         CmdSet_For_DGV()

  285.     End Sub

  286.     Friend Sub SQL_採購單控制表_新增()

  287.         ConnOpen()

  288.         SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 

  289.                             簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准, 

  290.                             一級核准核准日期, 一級核准簽名檔編號) " &

  291.                    "VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & DTP2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & gUserName & "',

  292.                             N'" & DTP & "', N'', N'', N'', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & BL1 & "', N'" & PA8 & "', N'', N'', 

  293.                             N'0', N'0', N'0', N'0', N'0', N'', N'', N'')"

  294.         CmdSet_For_dr()

  295.     End Sub

  296.     Friend Sub SQL_採購單控制表_刪除()

  297.         ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  298.     End Sub

  299.     Friend Sub SQL_請購單控制表_轉採修改()

  300.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET  已採購 = N'1', 採購單號 = N'" & PA1 & "' WHERE (請購單號 LIKE N'" & PA6 & "')" : CmdSet_For_dr()

  301.     End Sub

  302.     Friend Sub SQL_請購單明細表_轉採修改()

  303.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET  已採購 = N'" & PA9 & "' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "') " : CmdSet_For_dr()

  304.     End Sub

  305.     Friend Sub SQL_請購單明細表_退採修改()

  306.         ConnOpen() : SQL1 = "UPDATE 請購單明細表 SET  已採購 = N'0' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  307.     End Sub

  308.     Friend Sub SQL_採購單明細表_新增()

  309.         ConnOpen()

  310.         SQL1 = "INSERT INTO 採購單明細表 (採購單號,合約號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫, 請購單號,申請人) 

  311.                       VALUES (N'" & PA1 & "',N'" & PA14 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & NU1 & "',N'" & PA8 & "',N'" & PA10 & "',N'" & PA3 & "',N'0',

  312.                               N'" & PA11 & "',N'" & PA12 & "',N'" & PA13 & "',N'0',N'0',N'" & PA2 & "', N'" & PA15 & "')"

  313.         CmdSet_For_dr()

  314.     End Sub

  315.     Friend Sub SQL_採購單控制表_單號最後一筆()

  316.         ConnOpen()

  317.         SQL1 = "SELECT TOP (1)  採購單號 FROM 採購單控制表 WHERE ( 採購單號 LIKE N'" & PA1 & "')"

  318.         CmdSet_For_dr()

  319.     End Sub

  320.     Friend Sub SQL_採購單明細表_修改()

  321.         ConnOpen()

  322.         SQL1 = "UPDATE 採購單明細表 SET  備註 = N'" & PA6 & "', 單價 = N'" & PA7 & "', 數量 = N'" & PA8 & "', 單位 = N'" & PA9 & "' 

  323.                 WHERE (採購單號 LIKE N'" & PA5 & "') AND (請購單號 LIKE N'" & PA4 & "') AND (項次 LIKE N'" & PA10 & "')"

  324.         CmdSet_For_dr()

  325.     End Sub

  326.     Friend Sub SQL_採購單明細表_修改備註()

  327.         ConnOpen()

  328.         SQL1 = "UPDATE 採購單明細表 SET  備註 = N'" & PA6 & "' 

  329.                 WHERE (採購單號 LIKE N'" & PA5 & "') AND (請購單號 LIKE N'" & PA4 & "') AND (項次 LIKE N'" & PA10 & "')"

  330.         CmdSet_For_dr()

  331.     End Sub

  332.     Friend Sub SQL_採購單供應商_清空()

  333.         ConnOpen()

  334.         SQL1 = "UPDATE 採購單控制表 SET  供應商編號 = '' 

  335.                 WHERE (採購單號 LIKE N'" & 採購單編輯.採購單號_tb.Text & "')  "

  336.         CmdSet_For_dr()

  337.     End Sub

  338.     '---------------------行政物料請購單申請-----------------------------------------------------------------------------------------------------------------

  339.     Friend Sub SQL_行政物料請購單申請_請購明細()

  340.         ConnOpen()

  341.         SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 

  342.                        用途 AS [" & 表頭(17) & "] 

  343.                 FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "' ORDER BY 項次"

  344.         CmdSet_For_DGV()

  345.     End Sub

  346.     Friend Sub SQL_樣品請購單控制表_刪除()

  347.         ConnOpen() : SQL1 = "DELETE FROM 樣品請購單控制表 WHERE (請購單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  348.     End Sub

  349.     Friend Sub SQL_樣品請購單明細表_刪除()

  350.         ConnOpen() : SQL1 = "DELETE FROM 樣品請購單明細表 WHERE (請購單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  351.     End Sub

  352.     Friend Sub SQL_樣品請購單明細表_單號最後一筆()

  353.         ConnOpen()

  354.         SQL1 = "SELECT TOP(1) 項次 FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "' ORDER BY 項次 DESC"

  355.         CmdSet_For_dr()

  356.     End Sub

  357.     Friend Sub SQL_樣品請購單明細表_新增()

  358.         ConnOpen()

  359.         SQL1 = "INSERT INTO 樣品請購單明細表 (請購單號, 品名, 規格, 備註, 數量, 單位, 用途, 項次,申請人) VALUES (N'" & PA & "',N'',N'',N'',N'0',N'',N'',N'" & PA1 & "', N'" & PA2 & "')"

  360.         CmdSet_For_dr()

  361.     End Sub

  362.     Friend Sub SQL_樣品請購單控制表_讀取單號()

  363.         ConnOpen() : SQL1 = "SELECT TOP (1)  請購單號 FROM 樣品請購單控制表 WHERE ( 請購單號 LIKE N'" & 樣品請購單申請.請購單號_tb.Text & "')" : CmdSet_For_dr()

  364.     End Sub

  365.     Friend Sub SQL_樣品請購單控制表_新增()

  366.         ConnOpen()

  367.         SQL1 = "INSERT INTO 樣品請購單控制表 (請購單號, 申請人, 申請日期, 核准人, 核准日期, 已採購, 轉請款, 零用金單號) 

  368.                 VALUES (N'" & PA & "',N'" & gUserName & "',N'" & DTP & "',N'',N'',N'0',N'0',N'')"

  369.         CmdSet_For_dr()

  370.     End Sub

  371.     '---------------------行政物料請購單核准-----------------------------------------------------------------------------------------------------------------

  372.     Friend Sub SQL_行政物料請購單核准_請購明細()

  373.         ConnOpen()

  374.         SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 

  375.                        用途 AS [" & 表頭(17) & "]

  376.                 FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單核准.請購單號_tb.Text & "' ORDER BY 項次"

  377.         CmdSet_For_DGV()

  378.     End Sub

  379.     Friend Sub SQL_樣品請購單控制表_核准()

  380.         ConnOpen()

  381.         SQL1 = "UPDATE 樣品請購單控制表 SET 核准人 = N'" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA1 & "')"

  382.         CmdSet_For_dr()

  383.     End Sub

  384.     Friend Sub SQL_樣品請購單控制表_作廢()

  385.         ConnOpen()

  386.         SQL1 = "UPDATE 樣品請購單控制表 SET 核准人 = N'作廢-" & gUserName & "', 核准日期 = N'" & DTP & "' WHERE (請購單號 = N'" & PA1 & "')"

  387.         CmdSet_For_dr()

  388.     End Sub

  389.     '---------------------行政物料請購單一覽表-----------------------------------------------------------------------------------------------------------------

  390.     Friend Sub SQL_行政物料請購單一覽表_請購明細()

  391.         ConnOpen()

  392.         SQL1 = "SELECT 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 

  393.                        用途 AS [" & 表頭(17) & "]

  394.                 FROM 樣品請購單明細表 WHERE 請購單號 LIKE N'" & 樣品請購單歷史檔案.請購單號_tb.Text & "' ORDER BY 項次"

  395.         CmdSet_For_DGV()

  396.     End Sub

  397.     Friend Sub SQL_行政物料請購單申請_已核准()

  398.         ConnOpen()

  399.         If Val(登入人級別) <= 4 Then

  400.             SQL1 = "SELECT 請購單號 AS [" & 表頭(18) & "], 申請人 AS [" & 表頭(19) & "], LEFT(申請日期, 10) AS [" & 表頭(20) & "], 核准人 AS [" & 表頭(21) & "], 

  401.                     LEFT(核准日期, 10) AS [" & 表頭(22) & "], 已採購 AS [" & 表頭(23) & "], 零用金單號 AS [" & 表頭(24) & "], 轉請款 AS [" & 表頭(25) & "] 

  402.                     FROM 樣品請購單控制表 

  403.                     WHERE (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"

  404.         Else

  405.             SQL1 = "SELECT 請購單號 AS [" & 表頭(18) & "], 申請人 AS [" & 表頭(19) & "], LEFT(申請日期, 10) AS [" & 表頭(20) & "], 核准人 AS [" & 表頭(21) & "], 

  406.                     LEFT(核准日期, 10) AS [" & 表頭(22) & "], 已採購 AS [" & 表頭(23) & "], 零用金單號 AS [" & 表頭(24) & "], 轉請款 AS [" & 表頭(25) & "] 

  407.                     FROM 樣品請購單控制表 

  408.                      WHERE (申請人 LIKE N'" & gUserName & "') AND (核准人 NOT LIKE N'') AND (核准人 NOT LIKE N'作廢%') ORDER BY 請購單號 DESC"

  409.         End If

  410.         CmdSet_For_DGV()

  411.     End Sub

  412.     '---------------------行政物料採購單生成-----------------------------------------------------------------------------------------------------------------

  413.     Friend Sub SQL_行政物料採購單生成_明細()

  414.         ConnOpen()

  415.         If 樣品採購單編輯.生成採購單_bt.Enabled = True And 樣品採購單編輯.修改的採購單存檔_bt.Enabled = False Then

  416.             SQL1 = "SELECT  請購單號 AS [" & 表頭(18) & "], 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 

  417.                             數量 AS [" & 表頭(15) & "], 單位 AS [" & 表頭(16) & "], 數量 AS [" & 表頭(26) & "], 數量 AS [" & 表頭(27) & "], 

  418.                             已採購 AS [" & 表頭(28) & "], 請購單號 AS 樣品請購單號, 項次,樣品請購單明細表.申請人

  419.                      FROM   樣品請購單明細表

  420.                      WHERE  (請購單號 LIKE N'" & PA1 & "') AND (已採購 IS NULL OR 已採購 = 0)

  421.                      ORDER BY   [" & 表頭(11) & "]"

  422.         ElseIf 樣品採購單編輯.生成採購單_bt.Enabled = False And 樣品採購單編輯.修改的採購單存檔_bt.Enabled = True Then

  423.             SQL1 = "SELECT 樣品採購單明細表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單明細表.項次 AS [" & 表頭(11) & "], 

  424.                             樣品採購單明細表.品名 AS [" & 表頭(12) & "], 樣品採購單明細表.規格 AS [" & 表頭(13) & "], 

  425.                             樣品採購單明細表.備註 AS [" & 表頭(14) & "], 樣品採購單明細表.數量 AS [" & 表頭(15) & "], 

  426.                             樣品採購單明細表.單位 AS [" & 表頭(16) & "], 樣品採購單明細表.單價 AS [" & 表頭(26) & "], 

  427.                             樣品採購單明細表.數量 * 樣品採購單明細表.單價 AS [" & 表頭(27) & "], 

  428.                             HX選擇按鈕.選擇 AS [" & 表頭(28) & "], 樣品採購單明細表.樣品請購單號, 樣品採購單明細表.項次,樣品採購單明細表.申請人 AS [" & 表頭(19) & "]

  429.                      FROM   樣品採購單明細表 LEFT OUTER JOIN HX選擇按鈕 ON 樣品採購單明細表.行政物料請購單號 = HX選擇按鈕.對應

  430.                      WHERE (樣品採購單明細表.行政物料請購單號 LIKE N'" & PA2 & "')

  431.                      ORDER BY   [" & 表頭(11) & "]"

  432.         End If

  433.         CmdSet_For_DGV()

  434.     End Sub

  435.     Friend Sub SQL_行政物料採購單生成_請購()

  436.         ConnOpen()

  437.         SQL1 = "SELECT      樣品請購單控制表.請購單號 AS [" & 表頭(18) & "], 樣品請購單控制表.申請人, LEFT(樣品請購單控制表.申請日期, 10) 

  438.                             AS 申請日期, 樣品請購單控制表.核准人, LEFT(樣品請購單控制表.核准日期, 10) AS 核准日期, 

  439.                             樣品請購單控制表.已採購, 樣品請購單控制表.零用金單號 AS 採購單號, 

  440.                             樣品請購單控制表.轉請款 AS 已收貨

  441.                  FROM       樣品請購單控制表 INNER JOIN

  442.                             樣品請購單明細表 ON 樣品請購單控制表.請購單號 = 樣品請購單明細表.請購單號

  443.                  WHERE      (樣品請購單控制表.核准人 NOT LIKE N'') AND (樣品請購單控制表.核准人 NOT LIKE N'作廢%') AND 

  444.                             (樣品請購單明細表.已採購 = 0 OR

  445.                             樣品請購單明細表.已採購 IS NULL)

  446.                  GROUP BY   樣品請購單控制表.請購單號, 樣品請購單控制表.申請人, LEFT(樣品請購單控制表.申請日期, 10), 

  447.                             樣品請購單控制表.核准人, LEFT(樣品請購單控制表.核准日期, 10), 樣品請購單控制表.已採購, 

  448.                             樣品請購單控制表.零用金單號, 樣品請購單控制表.轉請款

  449.                  ORDER BY   樣品請購單控制表.請購單號 DESC"

  450.         CmdSet_For_DGV()

  451.     End Sub

  452.     Friend Sub SQL_行政物料採購單生成_採購()

  453.         ConnOpen()

  454.         SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN

  455.                 FROM 樣品採購單控制表 WHERE (核准 LIKE N'') ORDER BY   行政物料請購單號 DESC"

  456.         CmdSet_For_DGV()

  457.     End Sub

  458.     Friend Sub SQL_樣品採購單控制表_新增()

  459.         ConnOpen()

  460.         SQL1 = "INSERT INTO 樣品採購單控制表 (行政物料請購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 

  461.                             簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN) 

  462.                 VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & DTP2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & gUserName &

  463.                      "',N'" & DTP & "', N'', N'', N'', N'', N'" & PA6 & "', N'" & PA7 & "', N'" & BL1 & "', N'" & PA8 & "')"

  464.         CmdSet_For_dr()

  465.     End Sub

  466.     Friend Sub SQL_樣品採購單控制表_刪除()

  467.         ConnOpen()

  468.         SQL1 = "DELETE 樣品採購單控制表 WHERE 行政物料請購單號 LIKE N'" & PA1 & "'"

  469.         CmdSet_For_dr()

  470.     End Sub

  471.     Friend Sub SQL_樣品請購單控制表_轉採修改()

  472.         ConnOpen()

  473.         SQL1 = "UPDATE 樣品請購單控制表 SET  已採購 = N'1', 零用金單號 = N'" & PA1 & "' WHERE (請購單號 LIKE N'" & PA6 & "')"

  474.         CmdSet_For_dr()

  475.     End Sub

  476.     Friend Sub SQL_樣品請購單控制表_退採修改()

  477.         ConnOpen()

  478.         SQL1 = "UPDATE 樣品請購單控制表 SET  已採購 = N'0', 零用金單號 = N'' WHERE (請購單號 LIKE N'" & PA6 & "')"

  479.         CmdSet_For_dr()

  480.     End Sub

  481.     Friend Sub SQL_樣品請購單明細表_轉採修改()

  482.         ConnOpen()

  483.         SQL1 = "UPDATE 樣品請購單明細表 SET  已採購 = N'" & PA9 & "' WHERE (請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')"

  484.         CmdSet_For_dr()

  485.     End Sub

  486.     Friend Sub SQL_樣品採購單明細表_新增()

  487.         ConnOpen()

  488.         SQL1 = "INSERT INTO 樣品採購單明細表 (行政物料請購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 樣品請購單號, 請購單項次,申請人) 

  489.                 VALUES (N'" & PA1 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & NU1 & "',N'" & PA8 & "',N'" & PA10 & "',N'" & PA3 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA11 & "')"

  490.         CmdSet_For_dr()

  491.     End Sub

  492.     Friend Sub SQL_樣品採購單明細表_刪除1()

  493.         ConnOpen()

  494.         SQL1 = "DELETE 樣品採購單明細表  WHERE (行政物料請購單號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA3 & "')"

  495.         CmdSet_For_dr()

  496.     End Sub

  497.     Friend Sub SQL_樣品採購單控制表_單號最後一筆()

  498.         ConnOpen()

  499.         SQL1 = "SELECT TOP (1)  行政物料請購單號 FROM 樣品採購單控制表 WHERE ( 行政物料請購單號 LIKE N'" & 樣品採購單編輯.採購單號_tb.Text & "')"

  500.         CmdSet_For_dr()

  501.     End Sub

  502.     '---------------------行政物料採購單一覽表-----------------------------------------------------------------------------------------------------------------

  503.     Friend Sub SQL_行政物料採購單一覽表_明細()

  504.         ConnOpen()

  505.         SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 

  506.                        單位 AS [" & 表頭(16) & "], 單價 AS [" & 表頭(26) & "], 數量 * 單價 AS [" & 表頭(27) & "], 項次  FROM  樣品採購單明細表 

  507.                 WHERE 行政物料請購單號 LIKE N'" & 樣品採購單歷史檔案.採購單號_tb.Text & "' ORDER BY 項次"

  508.         CmdSet_For_DGV()

  509.     End Sub

  510.     Friend Sub SQL_行政物料採購單一覽表_已核准()

  511.         ConnOpen()

  512.         If Val(登入人級別) <= 4 Then

  513.             SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  514.                            一級核准簽名檔編號

  515.                     FROM 樣品採購單控制表 WHERE (核准 NOT LIKE N'') AND (核准 NOT LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"

  516.         Else

  517.             SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  518.                            一級核准簽名檔編號

  519.                     FROM 樣品採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 NOT LIKE N'') AND (核准 NOT LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"

  520.         End If

  521.         CmdSet_For_DGV()

  522.     End Sub

  523.     Friend Sub SQL_行政物料採購單一覽表_已作廢()

  524.         ConnOpen()

  525.         If Val(登入人級別) <= 4 Then

  526.             SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  527.                            一級核准簽名檔編號

  528.                     FROM 樣品採購單控制表 WHERE (核准 LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"

  529.         Else

  530.             SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  531.                            一級核准簽名檔編號

  532.                     FROM 樣品採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 LIKE N'作廢%') ORDER BY   行政物料請購單號 DESC"

  533.         End If

  534.         CmdSet_For_DGV()

  535.     End Sub

  536.     '---------------------建築物料採購單一覽表-----------------------------------------------------------------------------------------------------------------

  537.     Friend Sub SQL_採購單控制表轉財務金額_歸零()

  538.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  轉財務金額 = N'0' WHERE (轉財務金額 IS NULL)" : CmdSet_For_dr()

  539.     End Sub

  540.     Friend Sub SQL_採購轉財務金額修改_修改()

  541.         ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET  轉財務金額 = N'" & PA42 & "', 已會計 = '" & PA44 & "' WHERE (採購單號 LIKE N'" & PA43 & "')" : CmdSet_For_dr()

  542.     End Sub

  543.     Friend Sub SQL_財務採購關聯表_新增()

  544.         ConnOpen() : SQL1 = "INSERT INTO 財務採購關聯表 (財務單號, 採購單號, 轉財務金額, 流水號)  VALUES " & SQL2 : CmdSet_For_dr()

  545.     End Sub

  546.     Friend Sub SQL_建築物料採購單一覽表_明細()

  547.         ConnOpen()

  548.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  549.         SQL1 = "SELECT      採購單明細表.採購單號 AS 請購單號, 採購單明細表.項次 AS [" & 表頭(2) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "],

  550.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  551.                             採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  552.                             採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  553.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 

  554.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次, 採購單明細表.請購單號 AS [KEY], 物料資訊控制表.規格庫編號, 

  555.                             物料資訊控制表.規格庫抬頭指定, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

  556.                             物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8,採購單明細表.申請人 AS [" & 表頭(19) & "]" & 低網 & "

  557.                  FROM       採購單明細表 INNER JOIN

  558.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  559.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  560.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  561.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  562.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  563.                             HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN

  564.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

  565.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  566.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  567.                  WHERE     (採購單明細表.採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  568.                  ORDER BY   [" & 表頭(2) & "]"

  569.         CmdSet_For_DGV()

  570.     End Sub

  571.     Friend Sub SQL_建築物料採購單一覽表_已核准(供應商編號 As String)

  572.         If 供應商編號 = "%%" Then : SQL2 = " TOP(200) " : Else : SQL2 = "" : End If

  573.         ConnOpen()

  574.         SQL1 = "SELECT " & SQL2 & " QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  575.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  576.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  577.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  578.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  579.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  580.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  581.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  582.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  583.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  584.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  585.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  586.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  587.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  588.                            FROM      採購單控制表 LEFT OUTER JOIN

  589.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  590.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  591.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單控制表.供應商編號 LIKE N'" & 供應商編號 & "')

  592.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  593.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  594.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  595.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  596.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  597.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  598.                                      採購單控制表.已會計, 採購單控制表.已出納) AS QQ ON 

  599.                            HX空白圖片.選擇 = QQ.供應商編號

  600.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  601.         CmdSet_For_DGV() : SQL2 = ""

  602.     End Sub

  603.     Friend Sub SQL_建築物料採購單一覽表_已核准1()

  604.         ConnOpen()

  605.         SQL1 = "SELECT     QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  606.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  607.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  608.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  609.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  610.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  611.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  612.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  613.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  614.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  615.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  616.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  617.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  618.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  619.                            FROM      採購單控制表 LEFT OUTER JOIN

  620.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  621.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  622.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') 

  623.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  624.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  625.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  626.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  627.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  628.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  629.                                      採購單控制表.已會計, 採購單控制表.已出納

  630.                            HAVING  ((SUM(採購單明細表.數量 * 採購單明細表.單價)) + (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.PPN) - 

  631.                                     (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.DISC) - 採購單控制表.轉財務金額) > 0) AS QQ ON 

  632.                            HX空白圖片.選擇 = QQ.供應商編號

  633.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  634.         CmdSet_For_DGV()

  635.     End Sub

  636.     Friend Sub SQL_建築物料採購單一覽表_已作廢()

  637.         ConnOpen()

  638.         If Val(登入人級別) <= 4 Then

  639.             SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  640.                            一級核准簽名檔編號

  641.                     FROM 採購單控制表 WHERE (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"

  642.         Else

  643.             SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 

  644.                            一級核准簽名檔編號

  645.                     FROM 採購單控制表 WHERE (詢價員 LIKE N'" & gUserName & "') AND (核准 LIKE N'作廢%') ORDER BY   採購單號 DESC"

  646.         End If

  647.         CmdSet_For_DGV()

  648.     End Sub

  649.     Friend Sub SQL_物料採購單_首次列印()

  650.         ConnOpen()

  651.         SQL1 = "UPDATE 採購單控制表 SET  採購員 = N'" & gUserName & "', 採購日期 = N'" & Today() & "' WHERE (採購單號 LIKE N'" & 採購單歷史檔案.採購單號_tb.Text & "')"

  652.         CmdSet_For_dr()

  653.     End Sub

  654.     '---------------------行政物料採購_驗收_對帳表-----------------------------------------------------------------------------------------------------------------

  655.     Friend Sub SQL_行政物料採購_驗收_對帳表_清單()

  656.         ConnOpen()

  657.         SQL1 = "SELECT 樣品採購單明細表.行政物料請購單號 AS [" & 表頭(18) & "], 供應商資料表.供應商簡稱 AS [" & 表頭(29) & "], 樣品採購單控制表.需求日期 AS [" & 表頭(30) & "], 

  658.                                  樣品採購單控制表.採購員 AS [" & 表頭(31) & "],    樣品採購單控制表.採購日期 AS [" & 表頭(32) & "], 樣品採購單控制表.核准日期 AS [" & 表頭(22) & "], 

  659.                                    樣品採購單明細表.項次 AS [" & 表頭(11) & "],        樣品採購單明細表.品名 AS [" & 表頭(12) & "],     樣品採購單明細表.規格 AS [" & 表頭(13) & "],   

  660.                                    樣品採購單明細表.備註 AS [" & 表頭(14) & "],        樣品採購單明細表.數量 AS [" & 表頭(15) & "],     樣品採購單明細表.單位 AS [" & 表頭(16) & "], 

  661.                                    樣品採購單明細表.單價 AS [" & 表頭(26) & "], 樣品採購單明細表.數量 * 樣品採購單明細表.單價 AS [" & 表頭(27) & "], 

  662.                        樣品採購單控制表.DISC,                                   

  663.                        (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價) AS [" & 表頭(33) & "], 

  664.                                 樣品採購單控制表.稅 AS [" & 表頭(34) & "],                        樣品採購單控制表.PPN, 

  665.                        (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 

  666.                        * 樣品採購單控制表.PPN / 100 AS [" & 表頭(35) & "], 

  667.                        (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 

  668.                        + (樣品採購單明細表.數量 * 樣品採購單明細表.單價 - (CONVERT(float, 樣品採購單控制表.DISC) / 100) * (樣品採購單明細表.數量 * 樣品採購單明細表.單價)) 

  669.                             * 樣品採購單控制表.PPN / 100 AS [" & 表頭(36) & "],    樣品採購單明細表.已收貨 AS [" & 表頭(25) & "],      樣品採購單控制表.已會計 AS [" & 表頭(37) & "], 

  670.                                  樣品採購單控制表.已出納 AS [" & 表頭(38) & "],      樣品採購單控制表.現金 AS [" & 表頭(39) & "],      樣品採購單控制表.備用金 AS [" & 表頭(40) & "], 

  671.                                    樣品採購單控制表.公帳 AS [" & 表頭(41) & "]

  672.                 FROM 供應商資料表 INNER JOIN 樣品採購單控制表 ON 供應商資料表.供應商編碼 = 樣品採購單控制表.供應商編號 INNER JOIN 樣品請購單控制表 ON 

  673.                      樣品採購單控制表.請購單號 = 樣品請購單控制表.請購單號 RIGHT OUTER JOIN 樣品採購單明細表 ON 

  674.                      樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號

  675.                 WHERE (樣品採購單控制表.核准 NOT LIKE N'作廢%') AND (樣品採購單控制表.核准 NOT LIKE N'') " & PA10 & PA11 & PA12 & "

  676.         ORDER BY 樣品採購單明細表.行政物料請購單號 DESC, 樣品採購單控制表.核准日期"

  677.         CmdSet_For_DGV()

  678.     End Sub

  679.     '---------------------建築物料採購_驗收_對帳表-----------------------------------------------------------------------------------------------------------------

  680.     Friend Sub SQL_建築物料採購_驗收_對帳表_清單()

  681.         ConnOpen()

  682.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  683.         SQL1 = "SELECT      採購單明細表.採購單號 AS [" & 表頭(18) & "],       供應商資料表.供應商簡稱 AS [" & 表頭(29) & "], 採購單控制表.需求日期 AS [" & 表頭(30) & "],   

  684.                                       採購單控制表.採購員 AS [" & 表頭(31) & "], 採購單控制表.採購日期 AS [" & 表頭(32) & "], 採購單控制表.核准日期 AS [" & 表頭(22) & "], 

  685.                                         採購單明細表.項次 AS [" & 表頭(11) & "],           物料編碼庫.原則說明 AS [" & 表頭(12) & "],     採購單明細表.規格 AS [" & 表頭(13) & "],    

  686.                                         採購單明細表.備註 AS [" & 表頭(14) & "],     採購單明細表.數量 AS [" & 表頭(15) & "],     採購單明細表.單位 AS [" & 表頭(16) & "], 

  687.                                         採購單明細表.單價 AS [" & 表頭(26) & "],                              採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 

  688.                                         採購單控制表.DISC, 

  689.                             (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價) AS [" & 表頭(33) & "], 

  690.                                         採購單控制表.稅 AS [" & 表頭(34) & "], 採購單控制表.PPN, 

  691.                             (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價))

  692.                                         * 採購單控制表.PPN / 100 AS [" & 表頭(35) & "], 

  693.                             (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價)) 

  694.                             + (採購單明細表.數量 * 採購單明細表.單價 - (CONVERT(float, 採購單控制表.DISC) / 100) * (採購單明細表.數量 * 採購單明細表.單價)) 

  695.                             * 採購單控制表.PPN / 100 AS [" & 表頭(36) & "],  採購單明細表.已收貨 AS [" & 表頭(25) & "], 採購單明細表.已申請入庫 AS [" & 表頭(42) & "], 

  696.                                  採購單明細表.已入庫 AS [" & 表頭(43) & "],  採購單控制表.已會計 AS [" & 表頭(37) & "],     採購單控制表.已出納 AS [" & 表頭(38) & "], 

  697.                                    採購單控制表.現金 AS [" & 表頭(39) & "],  採購單控制表.備用金 AS [" & 表頭(40) & "],       採購單控制表.公帳 AS [" & 表頭(41) & "], 

  698.                             採購單明細表.群組碼, 採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號 " & 低網 & " 

  699.                 FROM        物料圖庫 INNER JOIN 採購單明細表 ON 物料圖庫.群組碼 = 採購單明細表.群組碼 AND 物料圖庫.料號原則 = 採購單明細表.料號原則 INNER JOIN

  700.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN 供應商資料表 INNER JOIN

  701.                             採購單控制表 ON 供應商資料表.供應商編碼 = 採購單控制表.供應商編號 INNER JOIN 請購單控制表 ON 採購單控制表.請購單號 = 

  702.                             請購單控制表.請購單號 ON 採購單明細表.採購單號 = 採購單控制表.採購單號 LEFT OUTER JOIN 物料規格表 ON 採購單明細表.料號 = 

  703.                             物料規格表.料號

  704.                 WHERE      (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單控制表.核准 NOT LIKE N'')  " & PA10 & PA11 & PA12 & "

  705.                 ORDER BY   [" & 表頭(18) & "] DESC, [" & 表頭(22) & "]"

  706.         CmdSet_For_DGV()

  707.     End Sub

  708.     '---------------------行政物料來料驗收單-----------------------------------------------------------------------------------------------------------------

  709.     Friend Sub SQL_行政物料來料驗收單表_清單()

  710.         ConnOpen()

  711.         SQL1 = "SELECT 行政物料請購單號 AS 請購單號, 項次 AS [" & 表頭(11) & "], 品名 AS [" & 表頭(12) & "], 規格 AS [" & 表頭(13) & "], 備註 AS [" & 表頭(14) & "], 數量 AS [" & 表頭(15) & "], 

  712.                        單位 AS [" & 表頭(16) & "], 單價, 數量 * 單價 AS 金額, 已收貨 AS [" & 表頭(25) & "], 項次 FROM  樣品採購單明細表 

  713.                 WHERE 行政物料請購單號 LIKE N'" & 樣品採購單驗收.採購單號_tb.Text & "' ORDER BY 項次"

  714.         CmdSet_For_DGV()

  715.     End Sub

  716.     Friend Sub SQL_行政物料來料驗收單表_已核准()

  717.         ConnOpen()

  718.         SQL1 = "SELECT 樣品採購單控制表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單控制表.供應商編號, 樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 

  719.                        樣品採購單控制表.核對員, 樣品採購單控制表.核對日期,  樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 

  720.                        樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 

  721.                        樣品採購單控制表.稅, 樣品採購單控制表.PPN

  722.                 FROM 樣品採購單控制表 LEFT OUTER JOIN 樣品採購單明細表 ON 樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號

  723.                 WHERE (樣品採購單控制表.核准 NOT LIKE N'') AND (樣品採購單控制表.核准 NOT LIKE N'作廢%') AND (樣品採購單明細表.已收貨 = 0)

  724.                 GROUP BY 樣品採購單控制表.行政物料請購單號, 樣品採購單控制表.供應商編號, 樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 樣品採購單控制表.核對員, 

  725.                          樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 樣品採購單控制表.核准日期, 

  726.                          樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 樣品採購單控制表.稅, 樣品採購單控制表.PPN

  727.                 ORDER BY 樣品採購單控制表.行政物料請購單號 DESC"

  728.         CmdSet_For_DGV()

  729.     End Sub

  730.     Friend Sub SQL_行政物料來料驗收單_已收貨NULL修改()

  731.         ConnOpen() : SQL1 = "UPDATE 樣品採購單明細表 SET  已收貨 = N'0' WHERE (已收貨 IS NULL)" : CmdSet_For_dr()

  732.     End Sub

  733.     Friend Sub SQL_樣品採購單明細表_確定收貨()

  734.         ConnOpen() : SQL1 = "UPDATE 樣品採購單明細表 SET  已收貨 = N'" & BL1 & "' WHERE (行政物料請購單號 LIKE N'" & PA2 & "') AND (項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  735.     End Sub

  736.     Friend Sub SQL_樣品請購單控制表_確定收貨()

  737.         ConnOpen() : SQL1 = "UPDATE 樣品請購單控制表 SET  轉請款 = N'" & BL2 & "' WHERE (零用金單號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  738.     End Sub

  739.     '---------------------建築物料來料驗收與指定入庫-----------------------------------------------------------------------------------------------------------------

  740.     Friend Sub SQL_建築物料來料驗收與指定入庫_入庫明細()

  741.         ConnOpen()

  742.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  743.         SQL1 = "SELECT      倉儲明細表.資料流水號 AS [" & 表頭(137) & "],採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  744.                             物料規格表.A1 AS [" & 表頭(13) & "], 倉儲明細表.入庫 AS [" & 表頭(45) & "], 倉儲明細表.出庫 AS [" & 表頭(46) & "], 

  745.                             物料編碼庫.單位 AS [" & 表頭(16) & "], 倉儲明細表.備註 AS [" & 表頭(14) & "], 物料規格表.群組碼, 物料規格表.料號原則, 

  746.                             物料規格表.圖檔編號, 物料規格表.群組碼 AS 群組碼1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 

  747.                             物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定 " & 低網 & "

  748.                  FROM       物料圖庫 INNER JOIN

  749.                             物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 

  750.                             物料圖庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  751.                             物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  752.                             物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN

  753.                             物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 

  754.                             物料規格表.料號原則 = 物料資訊控制表.料號原則 RIGHT OUTER JOIN

  755.                             採購單明細表 RIGHT OUTER JOIN

  756.                             倉儲明細表 ON 採購單明細表.料號 = 倉儲明細表.料號 AND 採購單明細表.採購單號 = 倉儲明細表.採購單號 ON 

  757.                             物料規格表.料號 = 倉儲明細表.料號 INNER JOIN

  758.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  759.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  760.                  WHERE     (倉儲明細表.執行單號 LIKE N'" & PA20 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  761.                  ORDER BY   倉儲明細表.資料流水號"

  762.         CmdSet_For_DGV()

  763.     End Sub

  764.     Friend Sub SQL_建築物料來料驗收與指定入庫_已核准()

  765.         ConnOpen()

  766.         SQL1 = "SELECT      採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  767.                             採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  768.                             採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 

  769.                             採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 請購單控制表.合約號, 請購單控制表.乙方, 

  770.                             請購單控制表.甲方, 請購單控制表.立約日, 請購單控制表.序號, 採購單控制表.採購單號 AS [NO.]

  771.                  FROM       採購單控制表 LEFT OUTER JOIN

  772.                             採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  773.                             請購單控制表 ON 採購單明細表.合約號 = 請購單控制表.合約號

  774.                  WHERE     (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND (採購單明細表.已收貨 = 0)

  775.                  GROUP BY   採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  776.                             採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  777.                             採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 

  778.                             採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 請購單控制表.合約號, 請購單控制表.乙方, 

  779.                             請購單控制表.甲方, 請購單控制表.立約日, 請購單控制表.序號

  780.                  ORDER BY   請購單控制表.合約號 DESC, [" & 表頭(18) & "] DESC"

  781.         CmdSet_For_DGV()

  782.     End Sub

  783.     Friend Sub SQL_建築物料來料驗收與指定入庫_採購明細()

  784.         ConnOpen()

  785.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  786.         SQL1 = "SELECT      採購單明細表.採購單號 AS 請購單號, 採購單明細表.項次 AS [" & 表頭(11) & "],採購單明細表.合約號 AS [" & 表頭(134) & "],

  787.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  788.                             採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  789.                             採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  790.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 

  791.                             採購單明細表.已收貨 AS [" & 表頭(25) & "], 採購單明細表.群組碼, 

  792.                             採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 採購單明細表.項次, 物料規格表.A2, 物料規格表.A3, 

  793.                             物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  794.                             物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定 " & 低網 & "

  795.                 FROM        採購單明細表 INNER JOIN

  796.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  797.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  798.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  799.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  800.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  801.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

  802.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  803.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  804.                  WHERE     (採購單明細表.採購單號 LIKE N'" & 採購單驗收.採購單號_tb.Text & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') AND 

  805.                            (採購單明細表.已收貨 = 0 OR 採購單明細表.已收貨 IS NULL)

  806.                  ORDER BY   [" & 表頭(11) & "]"

  807.         CmdSet_For_DGV()

  808.     End Sub

  809.     Friend Sub SQL_建築物料來料驗收與指定入庫_未入庫()

  810.         ConnOpen()

  811.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

  812.         SQL1 = "SELECT      HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 採購單明細表.採購單號 AS [" & 表頭(18) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "] ,

  813.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  814.                             物料規格表.A1 AS [" & 表頭(13) & "], 採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 

  815.                             採購單明細表.單位 AS [" & 表頭(16) & "], 採購單明細表.料號, 物料規格表.群組碼, 採購單明細表.料號原則, 物料規格表.圖檔編號, 

  816.                             LEFT(採購單控制表.使用地點, 3) AS [" & 表頭(135) & "], 採購單控制表.使用地點 AS [" & 表頭(136) & "], 採購單明細表.項次 ,

  817.                             採購單明細表.請購單號, 物料規格表.A2, 物料規格表.A3, 

  818.                             物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 

  819.                             物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 請購單控制表.乙方, 請購單控制表.甲方, 

  820.                             請購單控制表.立約日, 請購單控制表.序號, 採購單明細表.單價 " & 低網 & "

  821.                 FROM        採購單明細表 INNER JOIN

  822.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  823.                             採購單明細表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  824.                             採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號 INNER JOIN

  825.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  826.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  827.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  828.                             HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN

  829.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN

  830.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  831.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 LEFT OUTER JOIN

  832.                             請購單控制表 ON 採購單明細表.請購單號 = 請購單控制表.請購單號

  833.                 WHERE      (採購單明細表.已收貨 = 1) AND (採購單明細表.已申請入庫 = 0) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') " & PA14 & "

  834.                 ORDER BY   [" & 表頭(18) & "], 採購單明細表.料號"

  835.         CmdSet_For_DGV()

  836.     End Sub

  837.     Friend Sub SQL_建築物料來料驗收與指定入庫_入庫申請()

  838.         ConnOpen()

  839.         SQL1 = "SELECT 倉儲明細表.執行單號 AS [" & 表頭(47) & "], 倉儲分區控制表.倉名 AS [" & 表頭(48) & "]

  840.                 FROM 倉儲明細表 LEFT OUTER JOIN 倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  841.                 WHERE (倉儲明細表.狀態 LIKE N'指定入庫') AND (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲明細表.採購單號 NOT LIKE N'')

  842.                 GROUP BY 倉儲明細表.執行單號, 倉儲分區控制表.倉名"

  843.         CmdSet_For_DGV()

  844.     End Sub

  845.     Friend Sub SQL_入庫申請無指定()

  846.         ConnOpen()

  847.         SQL1 = "SELECT     倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.倉級, 倉儲分區控制表.倉級 AS 倉級_1, 

  848.                            倉儲明細表.倉名編號, 倉儲分區控制表.倉名編號 AS 倉名編號_1

  849.                 FROM       倉儲明細表 LEFT OUTER JOIN

  850.                            倉儲分區控制表 ON 倉儲明細表.倉級 = 倉儲分區控制表.倉級 AND 

  851.                            倉儲明細表.倉名編號 = 倉儲分區控制表.倉名編號

  852.                 WHERE     (倉儲明細表.倉庫作業 LIKE N'') AND (倉儲分區控制表.倉名編號 IS NULL)

  853.                 GROUP BY   倉儲明細表.執行單號, 倉儲分區控制表.倉名, 倉儲明細表.倉級, 倉儲分區控制表.倉級, 

  854.                            倉儲明細表.倉名編號, 倉儲分區控制表.倉名編號"

  855.         CmdSet_For_DGV()

  856.     End Sub

  857.     Friend Sub SQL_倉儲明細表修正入庫資料()

  858.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 倉級 = N'" & PA2 & "', 倉名編號 = N'" & PA3 & "' WHERE (執行單號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  859.     End Sub

  860.     Friend Sub SQL_建築物料來料驗收與指定入庫_已申請入庫NULL修改()

  861.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已申請入庫 = N'0' WHERE (已申請入庫 IS NULL)" : CmdSet_For_dr()

  862.     End Sub

  863.     Friend Sub SQL_入庫申請無料號()

  864.         ConnOpen()

  865.         SQL1 = "SELECT     倉儲明細表.資料流水號, 物料編碼庫.原則說明 AS 品名, 採購單明細表.規格, 倉儲明細表.入庫, 倉儲明細表.出庫, 

  866.                            採購單明細表.單位, 倉儲明細表.備註, 物料規格表.群組碼, 物料規格表.料號原則, 物料規格表.圖檔編號, 

  867.                            倉儲明細表.料號

  868.                 FROM       物料圖庫 INNER JOIN

  869.                            物料規格表 ON 物料圖庫.群組碼 = 物料規格表.群組碼 AND 

  870.                            物料圖庫.料號原則 = 物料規格表.料號原則 INNER JOIN

  871.                            物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 RIGHT OUTER JOIN

  872.                            採購單明細表 RIGHT OUTER JOIN

  873.                            倉儲明細表 ON 採購單明細表.料號 = 倉儲明細表.料號 AND 採購單明細表.採購單號 = 倉儲明細表.採購單號 ON 

  874.                            物料規格表.料號 = 倉儲明細表.料號

  875.                 WHERE     (物料編碼庫.原則說明 IS NULL)

  876.                 ORDER BY   倉儲明細表.資料流水號"

  877.         CmdSet_For_DGV()

  878.     End Sub

  879.     Friend Sub SQL_物料清單一()

  880.         SQL1 = "SELECT 物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫.原則說明 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 

  881.                        物料編碼庫.單位

  882.                 FROM   物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則

  883.                 WHERE  (物料編碼庫.群組碼 LIKE N'" & PA1 & "%')

  884.                 ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  885.     End Sub

  886.     Friend Sub SQL_建築物料來料驗收與指定入庫_已收貨NULL修改()

  887.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET  已收貨 = N'0' WHERE (已收貨 IS NULL)" : CmdSet_For_dr()

  888.     End Sub

  889.     Friend Sub SQL_建築物料來料驗收與指定入庫_倉儲明細表_新增()

  890.         ConnOpen()

  891.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置, 

  892.                                         合約編號, 乙方, 甲方, 序號, 尾號, 單價) 

  893.                 VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA9 & "', N'指定入庫', N'" & PA8 & "', N'" & gUserName & "', 

  894.                         N'" & DTP & "', N'', N'', N'', N'', N'', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "')"

  895.         CmdSet_For_dr()

  896.     End Sub

  897.     Friend Sub SQL_建築物料來料驗收與指定入庫_倉儲明細表_新增1()

  898.         ConnOpen()

  899.         SQL1 = "INSERT INTO 倉儲明細表 (資料流水號, 執行單號, 倉級, 倉名編號, 料號, 入庫, 出庫, 備註, 狀態, 採購單號, 申請人, 申請日期, 審核人, 審核日期, 倉庫作業, 作業日期, 使用位置, 

  900.                                         合約編號, 乙方, 甲方, 序號, 尾號, 單價) 

  901.                 VALUES (N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "',N'" & PA6 & "',N'" & PA2 & "',N'" & PA7 & "', N'0', N'" & PA9 & "', N'指定入庫', N'" & PA8 & "', N'" & gUserName & "', 

  902.                         N'" & DTP & "', N'', N'', N'" & gUserName & "', N'" & DTP & "', N'', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', 

  903.                         N'" & PA15 & "')"

  904.         CmdSet_For_dr()

  905.     End Sub

  906.     Friend Sub SQL_採購單明細表_已申請入庫修改()

  907.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 已申請入庫 = N'1' WHERE (採購單號 LIKE N'" & PA8 & "' AND 料號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  908.     End Sub

  909.     Friend Sub SQL_採購單明細表_已收貨修改()

  910.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET  已收貨 = N'" & BL1 & "' WHERE (採購單號 LIKE N'" & PA1 & "') AND (項次 LIKE N'" & PA2 & "')" : CmdSet_For_dr()

  911.     End Sub

  912.     Friend Sub SQL_請購單控制表_已收貨修改()

  913.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET  已收貨 = N'" & BL2 & "' WHERE (採購單號 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  914.     End Sub

  915.     '---------------------建築物料供應商管理-----------------------------------------------------------------------------------------------------------------

  916.     Friend Sub SQL_建築物料供應商資料管理_清單()

  917.         ConnOpen()

  918.         If PA = "" Then

  919.             SQL2 = ""

  920.         Else

  921.             SQL1 = " WHERE 供應商資料表.供應商編碼 LIKE N'%" & PA & "%' OR QQQ.類別 LIKE N'%" & PA & "%' OR 供應商資料表.公司名 LIKE N'%" & PA & "%' OR 供應商資料表.公司地址 LIKE N'%" & PA & "%' OR 

  922.                            供應商資料表.聯繫人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人2 LIKE N'%" & PA & "%' OR 供應商資料表.聯繫人3 LIKE N'%" & PA & "%' "

  923.         End If

  924.         SQL1 = "SELECT 供應商資料表.供應商編碼 AS [" & 表頭(49) & "], QQQ.類別 AS [" & 表頭(50) & "], 供應商資料表.公司名 AS [" & 表頭(51) & "], 供應商資料表.公司地址 AS [" & 表頭(52) & "], 

  925.                        供應商資料表.公司電話1 AS [" & 表頭(53) & "], 供應商資料表.公司電話2 AS [" & 表頭(54) & "], 供應商資料表.公司電話3 AS [" & 表頭(55) & "], 

  926.                        供應商資料表.公司傳真1 AS [" & 表頭(56) & "], 供應商資料表.公司傳真2 AS [" & 表頭(57) & "], 供應商資料表.公司傳真3 AS [" & 表頭(58) & "], 

  927.                        供應商資料表.聯繫人1 AS [" & 表頭(59) & "], 供應商資料表.聯繫人2 AS [" & 表頭(60) & "], 供應商資料表.聯繫人3 AS [" & 表頭(61) & "], 供應商資料表.聯繫人1職稱, 聯繫人2職稱, 

  928.                        供應商資料表.聯繫人3職稱, 供應商資料表.聯繫人1電話, 供應商資料表.聯繫人2電話, 供應商資料表.聯繫人3電話, 供應商資料表.聯繫人1郵箱, 供應商資料表.聯繫人2郵箱, 

  929.                        供應商資料表.聯繫人3郵箱, 供應商資料表.供應商簡稱 AS [key] , 供應商資料表.支付對象  , 供應商資料表.銀行名稱  , 供應商資料表.銀行帳號 , 供應商資料表.銀行支行

  930.                 FROM   供應商資料表 LEFT OUTER JOIN

  931.                                 (SELECT          編碼, 語言, 類別

  932.                                   FROM           供應商類別

  933.                                   WHERE         (供應商類別.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 供應商資料表.供應商簡稱 = QQQ.編碼

  934.                 " & SQL2 & " 

  935.                 ORDER BY 供應商資料表.供應商編碼"

  936.         CmdSet_For_DGV()

  937.     End Sub

  938.     Friend Sub SQL_建築物料供應商資料管理_最後一筆資料()

  939.         ConnOpen() : SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商資料表 ORDER BY 供應商編碼 DESC" : CmdSet_For_dr()

  940.     End Sub

  941.     Friend Sub SQL_供應商資料表_新增()

  942.         ConnOpen()

  943.         SQL1 = "INSERT INTO 供應商資料表 (供應商編碼, 供應商簡稱, 公司名, 公司地址, 公司電話1, 公司電話2, 公司電話3, 公司傳真1, 公司傳真2, 公司傳真3, 聯繫人1, 聯繫人2, 聯繫人3, 聯繫人1職稱, 

  944.                                           聯繫人2職稱, 聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱, 支付對象, 銀行名稱, 銀行帳號, 銀行支行, 新支付對象,

  945.                                           新銀行名稱, 新銀行帳號, 新銀行支行, 銀行修改 ) 

  946.                 VALUES (N'" & 供應商管理.供應商編號_tb.Text & "',N'" & 供應商管理.供應商簡稱_tb.Text & "',N'" & 供應商管理.公司名_tb.Text & "',

  947.                         N'" & 供應商管理.地址_tb.Text & "',N'" & 供應商管理.電話1_tb.Text & "',N'" & 供應商管理.電話2_tb.Text & "',

  948.                         N'" & 供應商管理.電話3_tb.Text & "', N'" & 供應商管理.傳真1_tb.Text & "',N'" & 供應商管理.傳真2_tb.Text & "',

  949.                         N'" & 供應商管理.傳真3_tb.Text & "',N'" & 供應商管理.聯繫人1_tb.Text & "', N'" & 供應商管理.聯繫人2_tb.Text & "',

  950.                         N'" & 供應商管理.聯繫人3_tb.Text & "',N'" & 供應商管理.職稱1_tb.Text & "',N'" & 供應商管理.職稱2_tb.Text & "',

  951.                         N'" & 供應商管理.職稱3_tb.Text & "',N'" & 供應商管理.聯繫電話1_tb.Text & "',N'" & 供應商管理.聯繫電話2_tb.Text & "',

  952.                         N'" & 供應商管理.聯繫電話3_tb.Text & "',N'" & 供應商管理.信箱1_tb.Text & "',N'" & 供應商管理.信箱2_tb.Text & "',

  953.                         N'" & 供應商管理.信箱3_tb.Text & "',N'" & 供應商管理.支付對象_tb.Text & "' ,N'" & 供應商管理.銀行名稱_tb.Text & "' ,N'" & 供應商管理.銀行帳號_tb.Text & "' ,

  954.                         N'" & 供應商管理.銀行支行_tb.Text & "' ,N'' ,N'' ,N'' ,N'' ,N'0' )"

  955.         CmdSet_For_dr()

  956.     End Sub

  957.     Friend Sub SQL_供應商資料表_修改()

  958.         ConnOpen()

  959.         SQL1 = "UPDATE 供應商資料表 SET 供應商簡稱 = N'" & 供應商管理.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商管理.公司名_tb.Text & "', 

  960.                                         公司地址 = N'" & 供應商管理.地址_tb.Text & "', 公司電話1 = N'" & 供應商管理.電話1_tb.Text & "', 

  961.                                         公司電話2 = N'" & 供應商管理.電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理.電話3_tb.Text & "', 

  962.                                         公司傳真1 = N'" & 供應商管理.傳真1_tb.Text & "', 公司傳真2 = N'" & 供應商管理.傳真2_tb.Text & "', 

  963.                                         公司傳真3 = N'" & 供應商管理.傳真3_tb.Text & "', 聯繫人1 = N'" & 供應商管理.聯繫人1_tb.Text & "', 

  964.                                         聯繫人2 = N'" & 供應商管理.聯繫人2_tb.Text & "', 聯繫人3 = N'" & 供應商管理.聯繫人3_tb.Text & "', 

  965.                                         聯繫人1職稱 = N'" & 供應商管理.職稱1_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理.職稱2_tb.Text & "', 

  966.                                         聯繫人3職稱 = N'" & 供應商管理.職稱3_tb.Text & "', 聯繫人1電話 = N'" & 供應商管理.聯繫電話1_tb.Text & "', 

  967.                                         聯繫人2電話 = N'" & 供應商管理.聯繫電話2_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理.聯繫電話3_tb.Text & "', 

  968.                                         聯繫人1郵箱 = N'" & 供應商管理.信箱1_tb.Text & "', 聯繫人2郵箱 = N'" & 供應商管理.信箱2_tb.Text & "', 

  969.                                         聯繫人3郵箱 = N'" & 供應商管理.信箱3_tb.Text & "', 支付對象 = N'" & 供應商管理.支付對象_tb.Text & "', 

  970.                                         銀行名稱 = N'" & 供應商管理.銀行名稱_tb.Text & "', 銀行帳號 = N'" & 供應商管理.銀行帳號_tb.Text & "', 

  971.                                         銀行支行 = N'" & 供應商管理.銀行支行_tb.Text & "', 銀行修改 = N'0'

  972.                  WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')"

  973.         CmdSet_For_dr()

  974.     End Sub

  975.     Friend Sub SQL_供應商資料表_修改_改()

  976.         ConnOpen()

  977.         SQL1 = "UPDATE 供應商資料表 SET 供應商簡稱 = N'" & 供應商管理.供應商簡稱_tb.Text & "', 公司名 = N'" & 供應商管理.公司名_tb.Text & "', 

  978.                                         公司地址 = N'" & 供應商管理.地址_tb.Text & "', 公司電話1 = N'" & 供應商管理.電話1_tb.Text & "', 

  979.                                         公司電話2 = N'" & 供應商管理.電話2_tb.Text & "', 公司電話3 = N'" & 供應商管理.電話3_tb.Text & "', 

  980.                                         公司傳真1 = N'" & 供應商管理.傳真1_tb.Text & "', 公司傳真2 = N'" & 供應商管理.傳真2_tb.Text & "', 

  981.                                         公司傳真3 = N'" & 供應商管理.傳真3_tb.Text & "', 聯繫人1 = N'" & 供應商管理.聯繫人1_tb.Text & "', 

  982.                                         聯繫人2 = N'" & 供應商管理.聯繫人2_tb.Text & "', 聯繫人3 = N'" & 供應商管理.聯繫人3_tb.Text & "', 

  983.                                         聯繫人1職稱 = N'" & 供應商管理.職稱1_tb.Text & "', 聯繫人2職稱 = N'" & 供應商管理.職稱2_tb.Text & "', 

  984.                                         聯繫人3職稱 = N'" & 供應商管理.職稱3_tb.Text & "', 聯繫人1電話 = N'" & 供應商管理.聯繫電話1_tb.Text & "', 

  985.                                         聯繫人2電話 = N'" & 供應商管理.聯繫電話2_tb.Text & "', 聯繫人3電話 = N'" & 供應商管理.聯繫電話3_tb.Text & "', 

  986.                                         聯繫人1郵箱 = N'" & 供應商管理.信箱1_tb.Text & "', 聯繫人2郵箱 = N'" & 供應商管理.信箱2_tb.Text & "', 

  987.                                         聯繫人3郵箱 = N'" & 供應商管理.信箱3_tb.Text & "', 新支付對象 = N'" & 供應商管理.支付對象_tb.Text & "', 

  988.                                         新銀行名稱 = N'" & 供應商管理.銀行名稱_tb.Text & "', 新銀行帳號 = N'" & 供應商管理.銀行帳號_tb.Text & "', 

  989.                                         新銀行支行 = N'" & 供應商管理.銀行支行_tb.Text & "', 銀行修改 = N'1'

  990.                  WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')"

  991.         CmdSet_For_dr()

  992.     End Sub

  993.     Friend Sub SQL_供應商資料表_刪除()

  994.         ConnOpen() : SQL1 = "DELETE FROM 供應商資料表 WHERE (供應商編碼 = '" & 供應商管理.供應商編號_tb.Text & "')" : CmdSet_For_dr()

  995.     End Sub

  996.     Friend Sub SQL_供應商類別管理_查詢()

  997.         ConnOpen() : SQL1 = "SELECT TOP (1) 編碼, 語言, 類別 FROM 供應商類別 WHERE 類別 LIKE N'" & PA20 & "' ORDER BY   編碼, 語言" : CmdSet_For_dr()

  998.     End Sub

  999.     '---------------------行政物料供應商資料管理-----------------------------------------------------------------------------------------------------------------

  1000.     Friend Sub SQL_行政物料供應商資料管理_清單()

  1001.         ConnOpen()

  1002.         If PA = "" Then

  1003.             SQL1 = "SELECT 供應商編碼 AS [" & 表頭(49) & "], 供應商簡稱 AS [" & 表頭(50) & "], 公司名 AS [" & 表頭(51) & "], 公司地址 AS [" & 表頭(52) & "], 公司電話1 AS [" & 表頭(53) & "], 

  1004.                            公司電話2 AS [" & 表頭(54) & "], 公司電話3 AS [" & 表頭(55) & "], 公司傳真1 AS [" & 表頭(56) & "], 公司傳真2 AS [" & 表頭(57) & "], 公司傳真3 AS [" & 表頭(58) & "], 

  1005.                            聯繫人1 AS [" & 表頭(59) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人3 AS [" & 表頭(61) & "], 聯繫人1職稱, 聯繫人2職稱, 

  1006.                            聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商資料表 ORDER BY 供應商編碼"

  1007.         Else

  1008.             SQL1 = "SELECT 供應商編碼 AS [" & 表頭(49) & "], 供應商簡稱 AS [" & 表頭(50) & "], 公司名 AS [" & 表頭(51) & "], 公司地址 AS [" & 表頭(52) & "], 公司電話1 AS [" & 表頭(53) & "], 

  1009.                            公司電話2 AS [" & 表頭(54) & "], 公司電話3 AS [" & 表頭(55) & "], 公司傳真1 AS [" & 表頭(56) & "], 公司傳真2 AS [" & 表頭(57) & "], 公司傳真3 AS [" & 表頭(58) & "], 

  1010.                            聯繫人1 AS [" & 表頭(59) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人3 AS [" & 表頭(61) & "], 聯繫人1職稱, 聯繫人2職稱, 

  1011.                            聯繫人3職稱, 聯繫人1電話, 聯繫人2電話, 聯繫人3電話, 聯繫人1郵箱, 聯繫人2郵箱, 聯繫人3郵箱 FROM 供應商資料表 

  1012.                     WHERE 供應商編碼 LIKE N'%" & PA & "%' OR 供應商簡稱 LIKE N'%" & PA & "%' OR 公司名 LIKE N'%" & PA & "%' OR 公司地址 LIKE N'%" & PA & "%' OR 

  1013.                           聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人3 LIKE N'%" & PA & "%' ORDER BY 供應商編碼"

  1014.         End If

  1015.         CmdSet_For_DGV()

  1016.     End Sub

  1017.     Friend Sub SQL_行政物料供應商資料管理_最後一筆資料()

  1018.         ConnOpen() : SQL1 = "SELECT TOP (1) 供應商編碼 FROM 供應商資料表 ORDER BY 供應商編碼 DESC" : CmdSet_For_dr()

  1019.     End Sub

  1020.     '---------------------行政物料採購單一級核准-----------------------------------------------------------------------------------------------------------------

  1021.     Friend Sub SQL_行政物料採購單一級核准_清單()

  1022.         ConnOpen()

  1023.         SQL1 = "SELECT      樣品採購單控制表.行政物料請購單號 AS [" & 表頭(18) & "], 樣品採購單控制表.供應商編號,  樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 

  1024.                             樣品採購單控制表.核對員, 樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 

  1025.                             樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 

  1026.                             樣品採購單控制表.稅, 樣品採購單控制表.PPN, 樣品採購單控制表.一級核准, 樣品採購單控制表.一級核准核准日期, 樣品採購單控制表.一級核准簽名檔編號, 

  1027.                             SUM(樣品採購單明細表.數量 * 樣品採購單明細表.單價) AS 總價

  1028.                FROM         樣品採購單控制表 FULL OUTER JOIN 樣品採購單明細表 ON 樣品採購單控制表.行政物料請購單號 = 樣品採購單明細表.行政物料請購單號

  1029.                WHERE          (樣品採購單控制表.核准 LIKE N'') AND (樣品採購單控制表.一級核准 LIKE N'' OR 樣品採購單控制表.一級核准 IS NULL)

  1030.                GROUP BY     樣品採購單控制表.行政物料請購單號, 樣品採購單控制表.供應商編號,  樣品採購單控制表.需求日期, 樣品採購單控制表.使用地點, 

  1031.                             樣品採購單控制表.核對員, 樣品採購單控制表.核對日期, 樣品採購單控制表.詢價員, 樣品採購單控制表.尋價日期, 樣品採購單控制表.核准, 

  1032.                             樣品採購單控制表.核准日期, 樣品採購單控制表.簽名檔編號, 樣品採購單控制表.驗證碼, 樣品採購單控制表.請購單號, 樣品採購單控制表.DISC, 

  1033.                             樣品採購單控制表.稅, 樣品採購單控制表.PPN, 樣品採購單控制表.一級核准, 樣品採購單控制表.一級核准核准日期, 樣品採購單控制表.一級核准簽名檔編號

  1034.                ORDER BY     樣品採購單控制表.行政物料請購單號 DESC"

  1035.         CmdSet_For_DGV()

  1036.     End Sub

  1037.     Friend Sub SQL_行政物料採購單一級核准料_不需二級()

  1038.         ConnOpen()

  1039.         SQL1 = "UPDATE 樣品採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "',

  1040.                                                      核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "', 

  1041.                                                    驗證碼 = N'" & 樣品採購單一級核准.驗證碼_tb.Text & "' 

  1042.                 WHERE (行政物料請購單號 LIKE N'" & 樣品採購單一級核准.採購單號_tb.Text & "')"

  1043.         CmdSet_For_dr()

  1044.     End Sub

  1045.     Friend Sub SQL_行政物料採購單一級核准料_需二級()

  1046.         ConnOpen()

  1047.         SQL1 = "UPDATE 樣品採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 樣品採購單一級核准.圖片編碼_tb.Text & "' 

  1048.                 WHERE (行政物料請購單號 LIKE N'" & 樣品採購單一級核准.採購單號_tb.Text & "')"

  1049.         CmdSet_For_dr()

  1050.     End Sub

  1051.     '---------------------行政物料採購單二級核准-----------------------------------------------------------------------------------------------------------------

  1052.     Friend Sub SQL_行政物料採購單二級核准_清單()

  1053.         ConnOpen()

  1054.         SQL1 = "SELECT 行政物料請購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 

  1055.                        驗證碼, 請購單號, DISC, 稅, PPN, 一級核准簽名檔編號

  1056.                 FROM   樣品採購單控制表 WHERE (核准 LIKE N'') AND (一級核准 NOT LIKE N'') ORDER BY   行政物料請購單號 DESC"

  1057.         CmdSet_For_DGV()

  1058.     End Sub

  1059.     Friend Sub SQL_行政物料採購單二級核准_核准()

  1060.         ConnOpen()

  1061.         SQL1 = "UPDATE 樣品採購單控制表 SET  核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 樣品採購單二級核准.圖片編碼_tb.Text & "', 

  1062.                                                驗證碼 = N'" & 樣品採購單二級核准.驗證碼_tb.Text & "' 

  1063.                 WHERE (行政物料請購單號 LIKE N'" & 樣品採購單二級核准.採購單號_tb.Text & "')"

  1064.         CmdSet_For_dr()

  1065.     End Sub

  1066.     '---------------------建築物料採購單一級核准-----------------------------------------------------------------------------------------------------------------

  1067.     Friend Sub SQL_建築物料採購單一級核准_清單(供應商編號 As String)

  1068.         ConnOpen()

  1069.         SQL1 = "SELECT      採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  1070.                             採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 

  1071.                             採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 

  1072.                             採購單控制表.稅, 採購單控制表.PPN, 採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號, 

  1073.                             SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總價, 採購單明細表.合約號, 採購單控制表.採購單號 AS [NO.], 

  1074.                             採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "], 採購單控制表.備用金 AS 選擇

  1075.                 FROM        採購單控制表 LEFT OUTER JOIN 採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號

  1076.                 WHERE      (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND 

  1077.                            (採購單控制表.一級核准 LIKE N'' OR 採購單控制表.一級核准 IS NULL)  AND (供應商編號 LIKE N'" & 供應商編號 & "')

  1078.                 GROUP BY    採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 採購單控制表.核對員, 

  1079.                             採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 

  1080.                             採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  1081.                             採購單控制表.一級核准, 採購單控制表.一級核准核准日期, 採購單控制表.一級核准簽名檔編號, 採購單明細表.合約號, 

  1082.                             採購單控制表.已會計, 採購單控制表.已出納, 採購單控制表.備用金

  1083.                 ORDER BY    SUBSTRING(採購單控制表.採購單號, 7, 8) DESC"

  1084.         CmdSet_For_DGV()

  1085.     End Sub

  1086.     Friend Sub SQL_建築物料採購單一級核准_不需二級()

  1087.         ConnOpen()

  1088.         SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "',

  1089.                                          核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "', 

  1090.                                          驗證碼 = N'" & 採購單一級核准.驗證碼_tb.Text & "', 手動號碼 = N'" & 採購單一級核准.手動號碼_tb.Text & "'

  1091.                 WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"

  1092.         CmdSet_For_dr()

  1093.     End Sub

  1094.     Friend Sub SQL_建築物料採購單一級核准_需二級()

  1095.         ConnOpen()

  1096.         SQL1 = "UPDATE 採購單控制表 SET  一級核准 = N'" & gUserName & "', 一級核准核准日期 = N'" & DTP & "',一級核准簽名檔編號 = N'" & 採購單一級核准.圖片編碼_tb.Text & "', 

  1097.                                          手動號碼 = N'" & 採購單一級核准.手動號碼_tb.Text & "' 

  1098.                 WHERE (採購單號 LIKE N'" & 採購單一級核准.採購單號_tb.Text & "')"

  1099.         CmdSet_For_dr()

  1100.     End Sub

  1101.     Friend Sub SQL_建築物料採購單一級核准料_新項次()

  1102.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 項次 = N'" & PA18 & "' WHERE (採購單號 LIKE N'" & PA19 & "' AND 項次 LIKE N'" & PA20 & "')" : CmdSet_For_dr()

  1103.     End Sub

  1104.     '---------------------建築物料採購單二級核准-----------------------------------------------------------------------------------------------------------------

  1105.     Friend Sub SQL_建築物料採購單二級核准_清單(供應商編號 As String)

  1106.         ConnOpen()

  1107.         SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 

  1108.                        驗證碼, 請購單號, DISC, 稅, PPN, 一級核准簽名檔編號

  1109.                 FROM 採購單控制表 WHERE (核准 LIKE N'') AND (一級核准 NOT LIKE N'')  AND (供應商編號 LIKE N'" & 供應商編號 & "')  ORDER BY   SUBSTRING(採購單號, 7, 8) DESC"

  1110.         CmdSet_For_DGV()

  1111.     End Sub

  1112.     Friend Sub SQL_建築物料採購單二級核准_核准()

  1113.         ConnOpen()

  1114.         SQL1 = "UPDATE 採購單控制表 SET  核准 = N'" & gUserName & "', 核准日期 = N'" & DTP & "', 簽名檔編號 = N'" & 採購單二級核准.圖片編碼_tb.Text & "', 

  1115.                        驗證碼 = N'" & 採購單二級核准.驗證碼_tb.Text & "' 

  1116.                 WHERE (採購單號 LIKE N'" & 採購單二級核准.採購單號_tb.Text & "')"

  1117.         CmdSet_For_dr()

  1118.     End Sub

  1119.     '---------------------採購單詢價-----------------------------------------------------------------------------------------------------------------

  1120.     Friend Sub SQL_採購單詢價_請購單清單()

  1121.         ConnOpen()

  1122.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1123.         SQL1 = "SELECT      請購單明細表.請購單號 AS [" & 表頭(11) & "], 請購單明細表.請購單號 AS [" & 表頭(88) & "],請購單控制表.合約號 AS [" & 表頭(134) & "], 

  1124.                             物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 物料規格表.A1 AS [" & 表頭(13) & "], 

  1125.                             物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 請購單明細表.備註 AS [" & 表頭(14) & "], 

  1126.                             請購單明細表.數量 AS [" & 表頭(15) & "], 請購單明細表.用途, 倉儲分區控制表.倉名 AS [" & 表頭(17) & "], 請購單明細表.項次, 物料編碼庫.單位 AS [" & 表頭(16) & "], 

  1127.                             請購單明細表.群組碼 AS [" & 表頭(62) & "], 請購單明細表.群組原則, 請購單明細表.料號 AS [" & 表頭(77) & "], 採購單明細表.採購單號, 

  1128.                             請購單控制表.申請人 AS [" & 表頭(19) & "], 請購單控制表.核准人 AS [" & 表頭(21) & "], 請購單控制表.需求日期 AS [" & 表頭(30) & "], 物料資訊控制表.規格庫編號, 

  1129.                             物料資訊控制表.規格庫抬頭指定, 請購單明細表.已採購 AS [" & 表頭(44) & "], 請購單明細表.加急, HX空白圖片.圖片 AS State " & 低網 & "

  1130.                  FROM       請購單明細表 LEFT OUTER JOIN

  1131.                             採購單明細表 ON 請購單明細表.項次 = 採購單明細表.項次 AND 

  1132.                             請購單明細表.請購單號 = 採購單明細表.請購單號 LEFT OUTER JOIN

  1133.                             物料圖庫 ON 請購單明細表.群組原則 = 物料圖庫.料號原則 LEFT OUTER JOIN

  1134.                             請購單控制表 ON 請購單明細表.請購單號 = 請購單控制表.請購單號 LEFT OUTER JOIN

  1135.                             物料編碼庫 ON 請購單明細表.群組原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1136.                             倉儲分區控制表 ON 請購單明細表.用途 = 倉儲分區控制表.倉名編號 LEFT OUTER JOIN

  1137.                             物料規格表 ON 請購單明細表.料號 = 物料規格表.料號 LEFT OUTER JOIN

  1138.                             物料資訊控制表 ON 請購單明細表.群組原則 = 物料資訊控制表.料號原則 INNER JOIN

  1139.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  1140.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 LEFT OUTER JOIN

  1141.                             HX空白圖片 ON 請購單明細表.請購單號 = HX空白圖片.選擇

  1142.                  WHERE     (請購單控制表.核准人 NOT LIKE N'') AND (請購單控制表.核准人 NOT LIKE N'作廢%') AND (請購單明細表.用途 LIKE N'%" & PA1 & "%') AND 

  1143.                            (請購單明細表.已採購 IS NULL OR 請購單明細表.已採購 = 0) AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') " & SQL2 & "

  1144.                  ORDER BY   請購單明細表.加急 DESC, 倉儲分區控制表.倉名, 請購單明細表.請購單號"

  1145.         CmdSet_For_DGV()

  1146.     End Sub

  1147.     Friend Sub SQL_採購單詢價_採購()

  1148.         ConnOpen()

  1149.         SQL1 = "SELECT 採購單號 AS [" & 表頭(18) & "], 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN

  1150.                 FROM   採購單控制表  WHERE (核准 LIKE N'') AND (供應商編號 LIKE N'') " & SQL2 & " ORDER BY   採購單號 DESC"

  1151.         CmdSet_For_DGV()

  1152.     End Sub

  1153.     Friend Sub SQL_採購單詢價_明細()

  1154.         ConnOpen()

  1155.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1156.         SQL1 = "SELECT      採購單明細表.採購單號, 採購單明細表.項次 AS [" & 表頭(11) & "], 採購單明細表.合約號 AS [" & 表頭(134) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 

  1157.                             物料規格表.A1 AS [" & 表頭(13) & "], 

  1158.                             採購單明細表.備註 AS [" & 表頭(14) & "], 採購單明細表.數量 AS [" & 表頭(15) & "], 物料編碼庫.單位 AS [" & 表頭(16) & "], 採購單明細表.單價 AS [" & 表頭(26) & "], 

  1159.                             採購單明細表.數量 * 採購單明細表.單價 AS [" & 表頭(27) & "], 採購單明細表.群組碼, 採購單明細表.料號原則, 採購單明細表.料號, 物料規格表.圖檔編號, 

  1160.                             HX選擇按鈕.選擇 AS [" & 表頭(44) & "], 採購單明細表.項次, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 

  1161.                             物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 採購單明細表.請購單號 AS [" & 表頭(88) & "] , HX選擇按鈕.選擇 AS [Cancel order],

  1162.                             採購單明細表.單價 AS OUP " & 低網 & "

  1163.                 FROM        採購單明細表 LEFT OUTER JOIN

  1164.                             物料資訊控制表 ON 採購單明細表.料號原則 = 物料資訊控制表.料號原則 LEFT OUTER JOIN

  1165.                             物料圖庫 ON 採購單明細表.群組碼 = 物料圖庫.群組碼 AND 

  1166.                             採購單明細表.料號原則 = 物料圖庫.料號原則 LEFT OUTER JOIN

  1167.                             物料編碼庫 ON 採購單明細表.群組碼 = 物料編碼庫.群組碼 AND 

  1168.                             採購單明細表.料號原則 = 物料編碼庫.料號原則 LEFT OUTER JOIN

  1169.                             HX選擇按鈕 ON 採購單明細表.採購單號 = HX選擇按鈕.對應 LEFT OUTER JOIN

  1170.                             物料規格表 ON 採購單明細表.料號 = 物料規格表.料號 INNER JOIN

  1171.                             物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

  1172.                             物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  1173.                 WHERE      (採購單明細表.採購單號 LIKE N'" & PA2 & "') AND (物料資訊控制表.規格庫編號 IS NOT NULL) AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  1174.                 ORDER BY   [" & 表頭(11) & "]"

  1175.         CmdSet_For_DGV()

  1176.     End Sub

  1177.     Friend Sub SQL_採購單詢價_採購明細刪除()

  1178.         ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "' AND 請購單號 LIKE N'" & PA2 & "' AND 項次 LIKE N'" & PA3 & "')" : CmdSet_For_dr()

  1179.     End Sub

  1180.     Friend Sub SQL_採購單詢價_控制刪除()

  1181.         ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  1182.     End Sub

  1183.     Friend Sub SQL_採購單詢價_明細刪除()

  1184.         ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()

  1185.     End Sub

  1186.     Friend Sub SQL_料號比對價格()

  1187.         ConnOpen() : SQL1 = "SELECT    採購單號 AS  [" & 表頭(24) & "] , 合約號 AS  [" & 表頭(134) & "], 申請人 AS  [" & 表頭(19) & "], 單價 AS  [" & 表頭(26) & "], 

  1188.                                        SUBSTRING(採購單號, 7, 8) AS 排序

  1189.                              FROM      採購單明細表

  1190.                              WHERE    (料號 LIKE N'" & PA & "') AND 單價 > 0

  1191.                              ORDER BY  SUBSTRING(採購單號, 7, 8)"

  1192.         CmdSet_For_DGV()

  1193.     End Sub

  1194.     '---------------------供應商類別管理-----------------------------------------------------------------------------------------------------------------

  1195.     Friend Sub SQL_供應商類別()

  1196.         ConnOpen() : SQL1 = "SELECT 編碼, 語言, 類別 FROM 供應商類別 ORDER BY   編碼, 語言" : CmdSet_For_DGV()

  1197.     End Sub

  1198.     Friend Sub SQL_供應商類別管理_最後一筆資料()

  1199.         ConnOpen() : SQL1 = "SELECT TOP (1) 編碼 FROM 供應商類別 ORDER BY 編碼 DESC" : CmdSet_For_dr()

  1200.     End Sub

  1201.     Friend Sub SQL_供應商類別管理_新增()

  1202.         ConnOpen() : SQL1 = "INSERT INTO 供應商類別 (編碼, 語言, 類別) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "')" : CmdSet_For_dr()

  1203.     End Sub

  1204.     Friend Sub SQL_供應商類別管理_修改()

  1205.         ConnOpen() : SQL1 = "UPDATE 供應商類別 SET 類別 = N'" & PA3 & "' WHERE 編碼 LIKE N'" & PA1 & "' AND 語言 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  1206.     End Sub

  1207.     Friend Sub SQL_供應商類別管理_刪除()

  1208.         ConnOpen() : SQL1 = "DELETE 供應商類別 WHERE 編碼 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  1209.     End Sub

  1210.     Friend Sub SQL_供應商類別_下拉清單()

  1211.         ConnOpen() : SQL1 = "SELECT 類別 FROM 供應商類別 WHERE 語言 LIKE N'" & 系統語言 & "' ORDER BY 編碼" : CmdSet_For_dr()

  1212.     End Sub

  1213.     '---------------------物料採購統計表-----------------------------------------------------------------------------------------------------------------

  1214.     Friend Sub SQL_採購日清單()

  1215.         ConnOpen() : SQL1 = "SELECT TOP (12) SUBSTRING(採購單號, 7, 6) AS 採購日  FROM  採購單明細表  GROUP BY  SUBSTRING(採購單號, 7, 6)  ORDER BY 採購日 DESC" : CmdSet_For_DGV()

  1216.     End Sub

  1217.     Friend Sub SQL_品名清單()

  1218.         ConnOpen()

  1219.         SQL1 = "SELECT  物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 

  1220.                         物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫抬頭指定, 物料資訊控制表.規格庫編號, 

  1221.                         物料規格表.料號

  1222.                 FROM    物料編碼庫轉語言 INNER JOIN 物料規格表 ON 物料編碼庫轉語言.群組碼 = 物料規格表.群組碼 AND 

  1223.                         物料編碼庫轉語言.料號原則 = 物料規格表.料號原則 INNER JOIN 物料資訊控制表 ON 物料編碼庫轉語言.群組碼 = 物料資訊控制表.群組碼 AND 

  1224.                         物料編碼庫轉語言.料號原則 = 物料資訊控制表.料號原則

  1225.                 WHERE  (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料規格表.群組碼 LIKE '" & PA2 & "')"

  1226.         CmdSet_For_DGV()

  1227.     End Sub

  1228.     Friend Sub SQL_採購數量清單()

  1229.         ConnOpen()

  1230.         SQL1 = "SELECT  *  FROM  (SELECT   採購單明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.料號 AS [" & 表頭(13) & "], 採購單明細表.數字格式 AS 總採購量, 

  1231.                                            SUBSTRING(採購單明細表.採購單號, 7, 6) AS 採購日, SUM(採購單明細表.數量) AS 採購數量

  1232.                                   FROM     採購單明細表 LEFT OUTER JOIN 物料編碼庫轉語言 ON 採購單明細表.群組碼 = 物料編碼庫轉語言.群組碼 AND 

  1233.                                            採購單明細表.料號原則 = 物料編碼庫轉語言.料號原則

  1234.                                   WHERE   (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料編碼庫轉語言.品名 LIKE '%" & PA20 & "%') AND (採購單明細表.數量 > 0) AND 

  1235.                                           (物料編碼庫轉語言.群組碼 LIKE '" & PA2 & "') AND (SUBSTRING(採購單明細表.採購單號, 7, 6) BETWEEN '" & PA10 & "' AND '" & PA11 & "')

  1236.                                   GROUP BY SUBSTRING(採購單明細表.採購單號, 7, 6), 採購單明細表.料號, 採購單明細表.數字格式, 物料編碼庫轉語言.品名

  1237.                                   HAVING   SUM(採購單明細表.數量) > 0) AS X 

  1238.                 PIVOT (SUM(採購數量) FOR 採購日 IN (" & 清單列表 & ")) AS PVT"

  1239.         CmdSet_For_DGV()

  1240.     End Sub

  1241.     Friend Sub SQL_採購平均單價清單()

  1242.         ConnOpen()

  1243.         SQL1 = "SELECT  *  FROM  (SELECT    採購單明細表.料號, 物料編碼庫轉語言.品名 AS [" & 表頭(12) & "], 採購單明細表.料號 AS [" & 表頭(13) & "], 採購單明細表.數字格式 AS 總採購量, 

  1244.                                             SUBSTRING(採購單明細表.採購單號, 7, 6) AS 採購日, SUM(採購單明細表.單價 * 採購單明細表.數量) / SUM(採購單明細表.數量) AS 平均單價

  1245.                                   FROM      採購單明細表 INNER JOIN 物料編碼庫轉語言 ON 採購單明細表.群組碼 = 物料編碼庫轉語言.群組碼 AND 

  1246.                                             採購單明細表.料號原則 = 物料編碼庫轉語言.料號原則

  1247.                                   WHERE    (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料編碼庫轉語言.品名 LIKE '%" & PA20 & "%') AND (採購單明細表.數量 > 0) AND 

  1248.                                            (物料編碼庫轉語言.群組碼 LIKE '" & PA2 & "') AND (SUBSTRING(採購單明細表.採購單號, 7, 6) BETWEEN '" & PA10 & "' AND '" & PA11 & "')

  1249.                                   GROUP BY  SUBSTRING(採購單明細表.採購單號, 7, 6), 採購單明細表.料號, 採購單明細表.數字格式, 物料編碼庫轉語言.品名 

  1250.                                   HAVING   (SUM(採購單明細表.單價 * 採購單明細表.數量) / SUM(採購單明細表.數量) > 0)) AS X 

  1251.                 PIVOT (SUM(平均單價) FOR 採購日 IN (" & 清單列表 & ")) AS PVT"

  1252.         CmdSet_For_DGV()

  1253.     End Sub

  1254.     Friend Sub SQL_繪圖清單1()

  1255.         ConnOpen()

  1256.         SQL1 = "SELECT    QQ.採購日, WW.採購數量, WW.料號, WW.平均單價

  1257.                 FROM     (SELECT     TOP (12) SUBSTRING(採購單號, 7, 6) AS 採購日 FROM 採購單明細表 GROUP BY SUBSTRING(採購單號, 7, 6) ORDER BY 採購日 DESC) AS QQ LEFT OUTER JOIN

  1258.                          (SELECT     SUBSTRING(採購單明細表_1.採購單號, 7, 6) AS 採購日, SUM(採購單明細表_1.數量) AS 採購數量, 

  1259.                                      物料規格表.料號, SUM(採購單明細表_1.單價 * 採購單明細表_1.數量) / SUM(採購單明細表_1.數量) AS 平均單價

  1260.                           FROM       採購單明細表 AS 採購單明細表_1 INNER JOIN 物料規格表 ON 採購單明細表_1.料號 = 物料規格表.料號 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.群組碼 = 

  1261.                                      物料編碼庫轉語言.群組碼 AND 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN 物料編碼庫 ON 物料規格表.群組碼 = 物料編碼庫.群組碼 AND 

  1262.                                      物料規格表.料號原則 = 物料編碼庫.料號原則

  1263.                           WHERE    (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "') AND (物料規格表.料號 LIKE '" & PA1 & "')

  1264.                           GROUP BY  SUBSTRING(採購單明細表_1.採購單號, 7, 6), 物料編碼庫轉語言.品名, 物料編碼庫.單位, 物料規格表.料號) AS WW ON QQ.採購日 = WW.採購日

  1265.                 ORDER BY  QQ.採購日 DESC"

  1266.         CmdSet_For_DGV()

  1267.     End Sub

  1268.     '---------------------供應商商品清單-----------------------------------------------------------------------------------------------------------------

  1269.     Friend Sub SQL_供應商商品_歷史採購清單()

  1270.         ConnOpen()

  1271.         SQL1 = "SELECT    採購單控制表.供應商編號 AS [" & 表頭(6) & "], 採購單明細表.料號 AS [" & 表頭(1) & "], 採購單明細表.單價 AS [" & 表頭(3) & "], 

  1272.                           SUBSTRING(採購單明細表.採購單號, 7, 8) AS [" & 表頭(7) & "]

  1273.                 FROM      採購單明細表 FULL OUTER JOIN 採購單控制表 ON 採購單明細表.採購單號 = 採購單控制表.採購單號

  1274.                 WHERE    (採購單控制表.供應商編號 LIKE '" & PA & "')

  1275.                 ORDER BY  採購單明細表.料號, SUBSTRING(採購單明細表.採購單號, 7, 12) DESC"

  1276.         CmdSet_For_DGV()

  1277.     End Sub

  1278.     Friend Sub SQL_供應商商品_採購清單()

  1279.         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔 AS Image" : Else : 低網 = "" : End If

  1280.         ConnOpen()

  1281.         SQL1 = "SELECT    供應商產品清單.供應商編碼 AS [" & 表頭(0) & "], 供應商產品清單.料號 AS [" & 表頭(1) & "], 物料編碼庫轉語言.品名 AS [" & 表頭(2) & "], 

  1282.                           供應商產品清單.單價 AS [" & 表頭(3) & "], 供應商產品清單.備註 AS [" & 表頭(4) & "], 物料資訊控制表.規格庫編號, 物料規格表.A1, 物料規格表.A2, 

  1283.                           物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, QQ.A1 AS AA1, QQ.A2 AS AA2, QQ.A3 AS AA3, QQ.A4 AS AA4, 

  1284.                           QQ.A5 AS AA5, QQ.A6 AS AA6, QQ.A7 AS AA7, QQ.A8 AS AA8, 供應商產品清單.日期 AS [" & 表頭(5) & "], 物料資訊控制表.群組碼, 物料資訊控制表.料號原則 " & 低網 & "

  1285.                 FROM      物料資訊控制表 INNER JOIN

  1286.                           物料規格表 ON 物料資訊控制表.料號原則 = 物料規格表.料號原則 INNER JOIN

  1287.                           物料圖庫 ON 物料規格表.料號原則 = 物料圖庫.料號原則 INNER JOIN

  1288.                           (SELECT          規格庫抬頭指定, A1, A2, A3, A4, A5, A6, A7, A8, 語言

  1289.                            FROM            規格庫抬頭

  1290.                            WHERE          (語言 LIKE '" & 系統語言 & "')) AS QQ ON 

  1291.                           物料資訊控制表.規格庫抬頭指定 = QQ.規格庫抬頭指定 INNER JOIN

  1292.                           物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 RIGHT OUTER JOIN

  1293.                           供應商產品清單 ON 物料規格表.料號 = 供應商產品清單.料號

  1294.                 WHERE    (供應商產品清單.供應商編碼 LIKE '" & PA & "') AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')

  1295.                 ORDER BY  供應商產品清單.料號"

  1296.         CmdSet_For_DGV()

  1297.     End Sub

  1298.     Friend Sub SQL_供應商商品_採購清單_新增()

  1299.         ConnOpen()

  1300.         SQL1 = "INSERT INTO 供應商產品清單 (供應商編碼, 料號, 單價, 備註, 日期) VALUES (N'" & PA1 & "',N'" & PA2 & "',N'" & PA3 & "',N'" & PA4 & "',N'" & PA5 & "')"

  1301.         CmdSet_For_dr()

  1302.     End Sub

  1303.     Friend Sub SQL_供應商商品_採購清單_修改()

  1304.         ConnOpen()

  1305.         SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 日期 = N'" & PA5 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"

  1306.         CmdSet_For_dr()

  1307.     End Sub

  1308.     Friend Sub SQL_供應商商品_採購清單_查詢()

  1309.         ConnOpen() : SQL1 = "SELECT 料號 FROM  供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  1310.     End Sub

  1311.     Friend Sub SQL_供應商商品_採購清單_修改1()

  1312.         ConnOpen()

  1313.         SQL1 = "UPDATE 供應商產品清單 SET 單價 = N'" & PA3 & "', 備註 = N'" & PA4 & "' WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'"

  1314.         CmdSet_For_dr()

  1315.     End Sub

  1316.     Friend Sub SQL_供應商商品_採購清單_刪除()

  1317.         ConnOpen() : SQL1 = "DELETE 供應商產品清單 WHERE 供應商編碼 LIKE N'" & PA1 & "' AND 料號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  1318.     End Sub

  1319.     Friend Sub SQL_供應商資料主管審核_清單()

  1320.         ConnOpen()

  1321.         SQL1 = "SELECT  供應商編碼, 公司名, 支付對象, 銀行名稱, 銀行帳號, 銀行支行, 新支付對象, 新銀行名稱, 新銀行帳號, 新銀行支行, 銀行修改

  1322.                 FROM    供應商資料表  WHERE  (銀行修改 LIKE N'1')"

  1323.         CmdSet_For_DGV()

  1324.     End Sub

  1325.     Friend Sub SQL_供應商資料主管審核_修改(供應商編碼 As String, 支付對象 As String, 銀行名稱 As String, 銀行帳號 As String, 銀行支行 As String)

  1326.         ConnOpen()

  1327.         SQL1 = "UPDATE    供應商資料表  SET  支付對象=N'" & 支付對象 & "', 銀行名稱=N'" & 銀行名稱 & "', 銀行帳號=N'" & 銀行帳號 & "', 銀行支行=N'" & 銀行支行 & "', 

  1328.                                                                             新支付對象=N'', 新銀行名稱=N'', 新銀行帳號=N'', 新銀行支行=N'', 銀行修改=N'0'

  1329.                         WHERE          (供應商編碼 LIKE N'" & 供應商編碼 & "')"

  1330.         CmdSet_For_dr()

  1331.     End Sub

  1332.     Friend Sub SQL_供應商資料主管審核_否決(供應商編碼 As String)

  1333.         ConnOpen()

  1334.         SQL1 = "UPDATE    供應商資料表  SET  新支付對象=N'', 新銀行名稱=N'', 新銀行帳號=N'', 新銀行支行=N'', 銀行修改=N'0'

  1335.                         WHERE          (供應商編碼 LIKE N'" & 供應商編碼 & "')"

  1336.         CmdSet_For_dr()

  1337.     End Sub

  1338.     Friend Sub SQL_採購轉財務_清單()

  1339.         ConnOpen()

  1340.         SQL1 = "SELECT     QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  1341.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  1342.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  1343.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  1344.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  1345.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  1346.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  1347.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  1348.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  1349.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  1350.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  1351.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  1352.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  1353.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  1354.                            FROM      採購單控制表 LEFT OUTER JOIN

  1355.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  1356.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  1357.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%')

  1358.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  1359.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  1360.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  1361.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  1362.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  1363.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  1364.                                      採購單控制表.已會計, 採購單控制表.已出納) AS QQ ON 

  1365.                            HX空白圖片.選擇 = QQ.供應商編號

  1366.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  1367.         CmdSet_For_DGV()

  1368.     End Sub

  1369.     Friend Sub SQL_採購轉財務_清單1()

  1370.         ConnOpen()

  1371.         SQL1 = "SELECT     QQ.[" & 表頭(18) & "], QQ.供應商編號, QQ.需求日期, QQ.使用地點, QQ.核對員, QQ.核對日期, QQ.詢價員, QQ.尋價日期, QQ.核准, 

  1372.                            QQ.核准日期, QQ.簽名檔編號, QQ.驗證碼, QQ.請購單號, QQ.DISC, QQ.稅, QQ.PPN, QQ.一級核准簽名檔編號, 

  1373.                            QQ.一級核准核准日期, QQ.採購員, QQ.採購日期, QQ.手動號碼, QQ.公司名 AS [" & 表頭(6) & "], QQ.轉財務金額 AS [" & 表頭(8) & "], 

  1374.                            QQ.轉財務金額 AS [" & 表頭(9) & "], QQ.總金額 AS [" & 表頭(7) & "], 

  1375.                            HX空白圖片.圖片 AS [Select All], HX空白圖片.圖片 AS [To DK], HX空白圖片.圖片 AS [Save], QQ.[" & 表頭(0) & "], QQ.[" & 表頭(1) & "]

  1376.                 FROM       HX空白圖片 RIGHT OUTER JOIN

  1377.                           (SELECT    採購單控制表.採購單號 AS [" & 表頭(18) & "], 採購單控制表.供應商編號, 採購單控制表.需求日期, 

  1378.                                      採購單控制表.使用地點, 採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 

  1379.                                      採購單控制表.尋價日期, 採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 

  1380.                                      採購單控制表.驗證碼, 採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 

  1381.                                      採購單控制表.PPN, 採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 

  1382.                                      採購單控制表.採購員, 採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 

  1383.                                      採購單控制表.轉財務金額, SUM(採購單明細表.數量 * 採購單明細表.單價) AS 總金額, 

  1384.                                      採購單控制表.已會計 AS [" & 表頭(0) & "], 採購單控制表.已出納 AS [" & 表頭(1) & "]

  1385.                            FROM      採購單控制表 LEFT OUTER JOIN

  1386.                                      採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號 LEFT OUTER JOIN

  1387.                                      供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  1388.                            WHERE    (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%')  

  1389.                            GROUP BY  採購單控制表.採購單號, 採購單控制表.供應商編號, 採購單控制表.需求日期, 採購單控制表.使用地點, 

  1390.                                      採購單控制表.核對員, 採購單控制表.核對日期, 採購單控制表.詢價員, 採購單控制表.尋價日期, 

  1391.                                      採購單控制表.核准, 採購單控制表.核准日期, 採購單控制表.簽名檔編號, 採購單控制表.驗證碼, 

  1392.                                      採購單控制表.請購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  1393.                                      採購單控制表.一級核准簽名檔編號, 採購單控制表.一級核准核准日期, 採購單控制表.採購員, 

  1394.                                      採購單控制表.採購日期, 採購單控制表.手動號碼, 供應商資料表.公司名, 採購單控制表.轉財務金額, 

  1395.                                      採購單控制表.已會計, 採購單控制表.已出納

  1396.                            HAVING  ((SUM(採購單明細表.數量 * 採購單明細表.單價)) + (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.PPN) - 

  1397.                                     (SUM(採購單明細表.數量 * 採購單明細表.單價) / 100 *  採購單控制表.DISC) - 採購單控制表.轉財務金額) > 0) AS QQ ON 

  1398.                            HX空白圖片.選擇 = QQ.供應商編號

  1399.                 ORDER BY   QQ.公司名, SUBSTRING(QQ.[" & 表頭(18) & "], 7, 8) DESC"

  1400.         CmdSet_For_DGV()

  1401.     End Sub

  1402.     Friend Sub SQL_採購轉財務_查詢支付對象(支付對象 As String)

  1403.         ConnOpen()

  1404.         SQL1 = "SELECT          TOP(1) 公司名 ,支付對象, 銀行名稱, 銀行帳號, 銀行支行

  1405.                          FROM              供應商資料表

  1406.                          WHERE          (支付對象 LIKE N'" & 支付對象 & "')  OR (公司名 LIKE N'" & 支付對象 & "' ) "

  1407.         CmdSet_For_dr()

  1408.     End Sub

  1409.     Friend Sub SQL_採購轉財務_查詢最後公帳支付單號(支付單號 As String)

  1410.         ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & 支付單號 & "%')" : CmdSet_For_dr()

  1411.     End Sub

  1412.     Friend Sub SQL_採購轉財務_新增一筆財務收支控制表(支付單號 As String)

  1413.         ConnOpen()

  1414.         SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) " &

  1415.                "VALUES (N'" & 支付單號 & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'')"

  1416.         CmdSet_For_dr()

  1417.     End Sub

  1418.     Friend Sub SQL_採購轉財務_明細表資料新增(支付日期 As String, 支付單號 As String)

  1419.         ConnOpen()

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

  1421.                                             匯率, 備註, 大寫, 支付對象, 公司, 付款銀行, 銀行支行, 支付日期) 

  1422.                 VALUES (N'" & PA19 & "', N'IDR', N'" & DTP & "', N'" & 指定會科 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA12 & "', N'" & gUserName & "', N'" & 支付單號 & "', 

  1423.                         N'" & PA11 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', 

  1424.                         N'" & PA41 & "', N'" & PA42 & "',N'" & 支付日期 & "')"

  1425.         CmdSet_For_dr()

  1426.     End Sub

  1427.     Friend Sub SQL_採購轉財務_修改已轉金額(採購單號 As String, 已轉金額 As String)

  1428.         ConnOpen()

  1429.         SQL1 = "UPDATE 採購單控制表 SET 轉財務金額=N'" & 已轉金額 & "', 已會計=N'1'  WHERE 採購單號 LIKE N'" & 採購單號 & "'   "

  1430.         CmdSet_For_dr()

  1431.     End Sub

  1432.     Friend Sub SQL_採購歷史檔案_供應商清單()

  1433.         ConnOpen()

  1434.         SQL1 = "SELECT    DISTINCT 採購單控制表.供應商編號, 供應商資料表.公司名

  1435.                 FROM      採購單控制表 INNER JOIN 供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  1436.                 WHERE    (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'')  AND (採購單控制表.核准 NOT LIKE N'作廢%') " & SQL2 & "

  1437.                 ORDER BY  供應商資料表.公司名 "

  1438.         CmdSet_For_DGV()

  1439.     End Sub

  1440.     Friend Sub SQL_採購一級核准_供應商清單()

  1441.         ConnOpen()

  1442.         SQL1 = "SELECT    DISTINCT 採購單控制表.供應商編號, 供應商資料表.公司名

  1443.                 FROM      採購單控制表 INNER JOIN 供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  1444.                 WHERE    (採購單控制表.核准 LIKE N'') AND (採購單控制表.供應商編號 NOT LIKE N'') AND (採購單控制表.一級核准 LIKE N'' OR 採購單控制表.一級核准 IS NULL) " & SQL2 & "

  1445.                 ORDER BY  供應商資料表.公司名 "

  1446.         CmdSet_For_DGV()

  1447.     End Sub

  1448.     Friend Sub SQL_採購二級核准_供應商清單()

  1449.         ConnOpen()

  1450.         SQL1 = "SELECT    DISTINCT 採購單控制表.供應商編號, 供應商資料表.公司名

  1451.                 FROM      採購單控制表 INNER JOIN 供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼

  1452.                 WHERE    (核准 LIKE N'') AND (一級核准 NOT LIKE N'') " & SQL2 & "

  1453.                 ORDER BY  供應商資料表.公司名 "

  1454.         CmdSet_For_DGV()

  1455.     End Sub

  1456.     Friend Sub SQL_採購付款最後一筆資料()

  1457.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 採購付款控制表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  1458.     End Sub

  1459.     Friend Sub SQL_採購付款資料新增(流水號 As String, 供應商編號 As String, 收票日期 As String, 發票號碼 As String, 採購單號 As String, 票據金額 As String, 貨款到期日 As String,

  1460.                                     付款日期 As String, 付款說明 As String, 支付金額 As String, 手寫單號 As String)

  1461.         ConnOpen()

  1462.         SQL1 = "INSERT INTO 採購付款控制表 (流水號, 供應商編號, 收票日期, 發票號碼, 採購單號, 票據金額, 貨款到期日, 付款日期, 付款說明, 支付金額, 手寫單號)

  1463.                 VALUES (N'" & 流水號 & "', N'" & 供應商編號 & "', N'" & 收票日期 & "', N'" & 發票號碼 & "', N'" & 採購單號 & "', N'" & 票據金額 & "', N'" & 貨款到期日 & "', 

  1464.                         N'" & 付款日期 & "', N'" & 付款說明 & "', N'" & 支付金額 & "', N'" & 手寫單號 & "')"

  1465.         CmdSet_For_dr()

  1466.     End Sub

  1467.     Friend Sub SQL_採購付款採購單確認(採購單號 As String)

  1468.         ConnOpen() : SQL1 = "SELECT 採購單號 FROM 採購付款控制表 WHERE 採購單號 LIKE N'" & 採購單號 & "'" : CmdSet_For_dr()

  1469.     End Sub

  1470.     Friend Sub SQL_採購付款清單(供應商編號 As String, 年度 As String)

  1471.         ConnOpen()

  1472.         SQL1 = "SELECT    採購付款控制表.流水號, 採購付款控制表.流水號 AS [No.], 採購付款控制表.收票日期 AS [" & 表頭(10) & "], 採購付款控制表.發票號碼 AS [" & 表頭(11) & "], 

  1473.                           採購付款控制表.採購單號 AS 系統單號, 採購付款控制表.手寫單號 AS [" & 表頭(12) & "], QQ.金額 AS [" & 表頭(13) & "], 

  1474.                           採購付款控制表.票據金額 AS [" & 表頭(14) & "], 採購付款控制表.貨款到期日 AS [" & 表頭(15) & "], 採購付款控制表.付款日期 AS [" & 表頭(16) & "], 

  1475.                           採購付款控制表.付款說明 AS [" & 表頭(17) & "], 採購付款控制表.支付金額 AS [" & 表頭(19) & "], QQ.DISC, QQ.稅, QQ.PPN, QQ.金額, 

  1476.                           QQ.金額 AS [" & 表頭(5) & "], 採購付款控制表.付款說明 AS 說明編號

  1477.                 FROM      採購付款控制表  LEFT OUTER JOIN

  1478.                          (SELECT    採購單控制表.採購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  1479.                                     SUM(採購單明細表.數量 * 採購單明細表.單價) AS 金額

  1480.                           FROM      採購單控制表 INNER JOIN

  1481.                                     採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號

  1482.                           GROUP BY  採購單控制表.採購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN) AS QQ ON 

  1483.                           採購付款控制表.採購單號 = QQ.採購單號

  1484.                 WHERE    (採購付款控制表.供應商編號 LIKE N'" & 供應商編號 & "') AND (採購付款控制表.收票日期 LIKE N'%" & 年度 & "%') " & SQL2 & "

  1485.                 ORDER BY  採購付款控制表.收票日期, 採購付款控制表.流水號"

  1486.         CmdSet_For_DGV()

  1487.     End Sub

  1488.     Friend Sub SQL_採購付款清單1()

  1489.         ConnOpen()

  1490.         SQL1 = "SELECT  TOP(1)  採購付款控制表.流水號, 採購付款控制表.流水號 AS [No.], 採購付款控制表.收票日期, 採購付款控制表.發票號碼, 

  1491.                           採購付款控制表.採購單號 AS 系統單號, 採購付款控制表.手寫單號 AS 採購單號, QQ.金額 AS 採購金額, 

  1492.                           採購付款控制表.票據金額, 採購付款控制表.貨款到期日, 採購付款控制表.付款日期, 採購付款控制表.付款說明, 

  1493.                           採購付款控制表.支付金額, QQ.DISC, QQ.稅, QQ.PPN, QQ.金額, QQ.金額 AS 未付額額, 採購付款控制表.付款說明 AS 說明編號

  1494.                 FROM      採購付款控制表 INNER JOIN

  1495.                          (SELECT    採購單控制表.採購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN, 

  1496.                                     SUM(採購單明細表.數量 * 採購單明細表.單價) AS 金額

  1497.                           FROM      採購單控制表 INNER JOIN

  1498.                                     採購單明細表 ON 採購單控制表.採購單號 = 採購單明細表.採購單號

  1499.                           GROUP BY  採購單控制表.採購單號, 採購單控制表.DISC, 採購單控制表.稅, 採購單控制表.PPN) AS QQ ON 

  1500.                           採購付款控制表.採購單號 = QQ.採購單號

  1501.                 ORDER BY  採購付款控制表.收票日期, 採購付款控制表.流水號"

  1502.         CmdSet_For_DGV()

  1503.     End Sub

  1504.     Friend Sub SQL_採購付款總表(年度 As String)

  1505.         ConnOpen()

  1506.         SQL1 = "SELECT    供應商資料表.公司名 AS [No.], 供應商資料表.公司名 AS [" & 表頭(2) & "], SUM(採購付款控制表.票據金額) AS [" & 表頭(3) & "], 

  1507.                           SUM(採購付款控制表.支付金額) AS [" & 表頭(4) & "], 採購付款控制表.供應商編號, SUM(採購付款控制表.支付金額) AS [" & 表頭(5) & "]

  1508.                 FROM      採購付款控制表 INNER JOIN

  1509.                           供應商資料表 ON 採購付款控制表.供應商編號 = 供應商資料表.供應商編碼

  1510.                 WHERE    (採購付款控制表.收票日期 LIKE N'%" & 年度 & "%') " & SQL2 & "

  1511.                 GROUP BY  供應商資料表.公司名, 採購付款控制表.供應商編號

  1512.                 ORDER BY  供應商資料表.公司名"

  1513.         CmdSet_For_DGV()

  1514.     End Sub

  1515.     Friend Sub SQL_採購付款總表1()

  1516.         ConnOpen()

  1517.         SQL1 = "SELECT  TOP(1)  供應商資料表.公司名 AS [No.], 供應商資料表.公司名, SUM(採購付款控制表.票據金額) AS 應付金額, SUM(採購付款控制表.支付金額) AS 實付金額, 

  1518.                           採購付款控制表.供應商編號, SUM(採購付款控制表.支付金額) AS 未付金額

  1519.                 FROM      採購付款控制表 INNER JOIN

  1520.                           供應商資料表 ON 採購付款控制表.供應商編號 = 供應商資料表.供應商編碼

  1521.                 GROUP BY  供應商資料表.公司名, 採購付款控制表.供應商編號

  1522.                 ORDER BY  供應商資料表.公司名"

  1523.         CmdSet_For_DGV()

  1524.     End Sub

  1525.     Friend Sub SQL_採購單已核准(供應商編號 As String)

  1526.         If 供應商編號 = "%%" Then : SQL2 = " TOP(2000) " : Else : SQL2 = "" : End If

  1527.         ConnOpen()

  1528.         SQL1 = "SELECT  " & SQL2 & " 供應商資料表.公司名 AS [" & 表頭(2) & "], 採購單控制表.手動號碼 AS [" & 表頭(20) & "], 採購單控制表.採購單號 AS [" & 表頭(12) & "], 

  1529.                         採購單控制表.供應商編號

  1530.                 FROM    採購單控制表 INNER JOIN

  1531.                         供應商資料表 ON 採購單控制表.供應商編號 = 供應商資料表.供應商編碼 LEFT OUTER JOIN

  1532.                         採購付款控制表 ON 採購單控制表.採購單號 = 採購付款控制表.採購單號

  1533.                 WHERE  (採購付款控制表.採購單號 IS NULL) AND (採購單控制表.核准 NOT LIKE N'') AND (採購單控制表.核准 NOT LIKE N'作廢%') AND 

  1534.                        (採購單控制表.供應商編號 LIKE N'" & 供應商編號 & "')

  1535.                 ORDER BY 供應商資料表.公司名 DESC, 採購單控制表.採購單號"

  1536.         CmdSet_For_DGV() : SQL2 = ""

  1537.     End Sub

  1538.     Friend Sub SQL_採購付款表修改(流水號 As String, 收票日期 As String, 發票號碼 As String, 票據金額 As String, 貨款到期日 As String, 付款日期 As String, 付款說明 As String,

  1539.                                   支付金額 As String)

  1540.         ConnOpen()

  1541.         SQL1 = "UPDATE 採購付款控制表 SET 收票日期 = N'" & 收票日期 & "', 發票號碼 = N'" & 發票號碼 & "', 票據金額 = N'" & 票據金額 & "', 貨款到期日 = N'" & 貨款到期日 & "', 

  1542.                                           付款日期 = N'" & 付款日期 & "', 付款說明 = N'" & 付款說明 & "', 支付金額 = N'" & 支付金額 & "'

  1543.                 WHERE  流水號 LIKE N'" & 流水號 & "'"

  1544.         CmdSet_For_dr()

  1545.     End Sub

  1546.     Friend Sub SQL_採購付款表刪除(流水號 As String)

  1547.         ConnOpen() : SQL1 = "DELETE 採購付款控制表 WHERE  流水號 LIKE N'" & 流水號 & "'" : CmdSet_For_dr()

  1548.     End Sub

  1549. End Module