GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Vērot 4
Pievienot zvaigznīti 0
Atdalīts 0
Kods Problēmas 0 Izmaiņu pieprasījumi 0 Laidieni 0 Vikivietne Aktivitāte
Nav apraksta
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.
18 Revīzijas
1 Atzars
Koks: 6481fae9c7
Atzari Tagi
${ item.name }
Izveidot atzaru ${ searchTerm }
no '6481fae9c7'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/0、MyModule/主資料庫/SQL_業務系統管理.vb

SQL_業務系統管理.vb 99KB
Vēsture Neapstrādāts

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097 
  1. Module SQL_業務系統管理

  2.     '---------------------------合約執行進度----------------------------------------------------------------------------------------------------------------------------------------------

  3.     Friend Sub SQL_合約清單查詢()

  4.         ConnOpen()

  5.         SQL1 = "SELECT  QQ1.合約編號 AS [" & 表頭(134) & "], QQ1." & SQL2 & " AS [" & 表頭(152) & "], QQ1." & SQL2 & " AS [" & 表頭(116) & "], 

  6.                         QQ1.第一期比例, QQ1.第二期比例, QQ1.第三期比例, QQ1.第四期比例, 

  7.                         QQ1.第五期比例, QQ1.預付款, QQ1.到貨款, QQ1.施工款, QQ1.驗收款, QQ1.保留款, QQ1.合約編號 AS 乙方, QQ1.約號甲方 AS 甲方, QQ1.約號排序 AS 日期, 

  8.                         QQ1.約號尾序 AS 序號, QQ2.合約號 AS AB2, QQ2.甲方 AS B1, QQ2.立約日 AS B2, QQ2.序號 AS B3, 

  9.                         WW1.合約號碼 AS 報價, HX空白圖片.圖片 AS [SOP1/報價], HX空白圖片.圖片 AS [SOP2/立約], HX空白圖片.圖片 AS [SOP3/收訂], 

  10.                         HX空白圖片.圖片 AS [SOP4/到料], HX空白圖片.圖片 AS [SOP5/施工], HX空白圖片.圖片 AS [SOP6/驗收], HX空白圖片.圖片 AS [SOP7/保固], 

  11.                         HX空白圖片.圖片 AS [SOP8/結案], QQ1.驗收完成日期, QQ1.保固期限

  12.                 FROM   (SELECT    合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 

  13.                                   第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限  FROM  合約控制表

  14.                         WHERE    (合約停止 = 0 OR 合約停止 IS NULL)  AND (報價放行 = 1)

  15.                         GROUP BY  合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 

  16.                                   第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限) AS QQ1 LEFT OUTER JOIN

  17.                        (SELECT    合約號碼  FROM  合約報價總表  WHERE  (項目 LIKE N'@')) AS WW1 ON QQ1.合約編號 = WW1.合約號碼 LEFT OUTER JOIN

  18.                                   HX空白圖片 ON QQ1.約號尾序 = HX空白圖片.選擇 FULL OUTER JOIN

  19.                        (SELECT    合約號, 甲方, 立約日, 序號  FROM  請購單控制表  WHERE  (合約號 NOT LIKE N'') AND 合約號 NOT LIKE '%0H-1%'

  20.                         GROUP BY  合約號, 甲方, 立約日, 序號) AS QQ2 ON QQ1.合約編號 = QQ2.合約號

  21.                 WHERE  (QQ1.約號甲方 LIKE N'" & PA & "%' OR QQ2.甲方 LIKE N'" & PA & "%')"  ' AND  QQ1.合約編號 NOT LIKE '%0H-1%'

  22.         CmdSet_For_DGV()

  23.     End Sub

  24.     Friend Sub SQL_甲1()

  25.         ConnOpen() : SQL1 = "SELECT  約號甲方  FROM  合約控制表  GROUP BY  約號甲方" : CmdSet_For_DGV()

  26.     End Sub

  27.     Friend Sub SQL_甲2()

  28.         ConnOpen() : SQL1 = "SELECT  甲方  FROM  請購單控制表  WHERE  (合約號 NOT LIKE N'')  GROUP BY  甲方" : CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_合約編號修改()

  31.         Dim DDR(16) As String

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

  33.         If dr.Read Then : DDR(0) = "合約控制表、" : Else

  34.             ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約編號 = N'" & PA18 & "', 約號甲方 = N'" & PA19 & "', 約號排序 = N'" & PA20 & "', 約號尾序 = N'" & PA21 & "'  

  35.                                  WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  36.         End If

  37.         ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價係數  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  38.         If dr.Read Then : DDR(1) = "合約報價係數、" : Else

  39.             ConnOpen() : SQL1 = "UPDATE 合約報價係數 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  40.         End If

  41.         ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價明細表  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  42.         If dr.Read Then : DDR(2) = "合約報價明細表、" : Else

  43.             ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  44.         End If

  45.         ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約報價總表  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  46.         If dr.Read Then : DDR(3) = "合約報價總表、" : Else

  47.             ConnOpen() : SQL1 = "UPDATE 合約報價總表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  48.         End If

  49.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約明細表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  50.         If dr.Read Then : DDR(4) = "合約明細表、" : Else

  51.             ConnOpen() : SQL1 = "UPDATE 合約明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  52.         End If

  53.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約本文  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  54.         If dr.Read Then : DDR(5) = "合約本文、" : Else

  55.             ConnOpen() : SQL1 = "UPDATE 合約本文 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  56.         End If

  57.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算分表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  58.         If dr.Read Then : DDR(6) = "合約試算分表、" : Else

  59.             ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  60.         End If

  61.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算控制表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  62.         If dr.Read Then : DDR(7) = "合約試算控制表、" : Else

  63.             ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  64.         End If

  65.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約試算明細表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  66.         If dr.Read Then : DDR(8) = "合約試算明細表、" : Else

  67.             ConnOpen() : SQL1 = "UPDATE 合約試算明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  68.         End If

  69.         ConnOpen() : SQL1 = "SELECT  合約編號  FROM  合約請款  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  70.         If dr.Read Then : DDR(9) = "合約請款、" : Else

  71.             ConnOpen() : SQL1 = "UPDATE 合約請款 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  72.         End If

  73.         ConnOpen() : SQL1 = "SELECT  合約號碼  FROM  合約附錄  WHERE  (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  74.         If dr.Read Then : DDR(10) = "合約附錄、" : Else

  75.             ConnOpen() : SQL1 = "UPDATE 合約附錄 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  76.         End If

  77.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔控制表  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  78.         If dr.Read Then : DDR(11) = "合約文檔控制表、" : Else

  79.             ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  80.         End If

  81.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔操作紀錄  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  82.         If dr.Read Then : DDR(12) = "合約文檔操作紀錄、" : Else

  83.             ConnOpen_工程SQL() : SQL1 = "UPDATE  合約文檔操作紀錄 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  84.         End If

  85.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約號  FROM  合約文檔說明  WHERE  (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  86.         If dr.Read Then : DDR(13) = "合約文檔說明、" : Else

  87.             ConnOpen_工程SQL() : SQL1 = "UPDATE  合約文檔說明 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  88.         End If

  89.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程人員統計表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  90.         If dr.Read Then : DDR(14) = "工程人員統計表、" : Else

  91.             ConnOpen_工程SQL() : SQL1 = "UPDATE  工程人員統計表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  92.         End If

  93.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程責任表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  94.         If dr.Read Then : DDR(15) = "工程責任表、" : Else

  95.             ConnOpen_工程SQL() : SQL1 = "UPDATE  工程責任表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  96.         End If

  97.         ConnOpen_工程SQL() : SQL1 = "SELECT  合約編號  FROM  工程進度表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

  98.         If dr.Read Then : DDR(16) = "工程進度表、" : Else

  99.             ConnOpen_工程SQL() : SQL1 = "UPDATE  工程進度表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  100.         End If

  101.         ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  102.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA18 & "', 乙方 = N'" & PA22 & "', 甲方 = N'" & PA19 & "', 立約日 = N'" & PA20 & "', 序號 = N'" & PA21 & "'  

  103.                              WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  104. 

  105.         For i As Integer = 0 To 合約報價單.圖庫清單_dgv.Rows.Count - 1

  106.             圖片庫 = 合約報價單.圖庫清單_dgv.Rows(i).Cells("資料庫").Value : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()

  107.             SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr()

  108.         Next

  109. 

  110.         If DDR(0) = Nothing And DDR(1) = Nothing And DDR(2) = Nothing And DDR(3) = Nothing And DDR(4) = Nothing And DDR(5) = Nothing And DDR(6) = Nothing And DDR(7) = Nothing And DDR(8) = Nothing And DDR(9) = Nothing And

  111.            DDR(10) = Nothing And DDR(11) = Nothing And DDR(12) = Nothing And DDR(13) = Nothing And DDR(14) = Nothing And DDR(15) = Nothing And DDR(16) = Nothing Then : Else

  112.             MsgBox(DDR(0) & DDR(1) & DDR(2) & DDR(3) & DDR(4) & DDR(5) & DDR(6) & DDR(7) & DDR(8) & DDR(9) & DDR(10) & DDR(11) & DDR(12) & DDR(13) & DDR(14) & DDR(15) & DDR(16) &

  113.                   "因資料有重複所以沒有進行轉移，請手動修改資料!!")

  114.         End If

  115.     End Sub

  116.     '---------------------------合約利潤預估表----------------------------------------------------------------------------------------------------------------------------------------------

  117.     Friend Sub SQL_合約清單_預估利潤()

  118.         ConnOpen()

  119.         If PA = "" Then

  120.             SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 

  121.                                 預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2

  122.                     FROM        合約控制表

  123.                     WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1)

  124.                     ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  125.         Else

  126.             SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 

  127.                                 預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2

  128.                     FROM        合約控制表

  129.                     WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  130.                                 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  131.                                 工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1)

  132.                     ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  133.         End If

  134.         CmdSet_For_DGV()

  135.     End Sub

  136.     Friend Sub SQL_合約控制表預估利潤存檔()

  137.         ConnOpen()

  138.         SQL1 = "UPDATE 合約控制表 SET 預估工資成本 = N'" & PA37 & "', 預估工資報價 = N'" & PA38 & "', 工資利潤比 = N'" & PA39 & "', 預估材料成本 = N'" & PA40 & "', 

  139.                                       預估材料報價 = N'" & PA41 & "', 材料利潤比 = N'" & PA42 & "', 總成本 = N'" & PA43 & "', 總報價 = N'" & PA44 & "', 利潤比1 = N'" & PA45 & "', 

  140.                                       利潤比2 = N'" & PA46 & "', 預估利潤 = N'" & PA47 & "'

  141.                 WHERE 合約編號 LIKE N'" & PA & "'"

  142.         CmdSet_For_dr()

  143.     End Sub

  144.     '---------------------------合約管理系統----------------------------------------------------------------------------------------------------------------------------------------------

  145.     Friend Sub SQL_合約種類查詢()

  146.         ConnOpen() : SQL1 = "SELECT 中, 英 FROM 合約種類 WHERE 中 LIKE N'" & PA37 & "'" : CmdSet_For_dr()

  147.     End Sub

  148.     Friend Sub SQL_合約種類新增()

  149.         ConnOpen() : SQL1 = " INSERT INTO 合約種類 (中, 英) VALUES (N'" & PA37 & "', N'" & PA36 & "')" : CmdSet_For_dr()

  150.     End Sub

  151.     Friend Sub SQL_合約查詢()

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

  153.     End Sub

  154.     Friend Sub SQL_合約新增()

  155.         ConnOpen()

  156.         SQL1 = "INSERT INTO 合約控制表 (合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 

  157.                                         第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 

  158.                                         約號尾序, 約號甲方, 合約期數, 合約停止, 報價放行, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數) 

  159.                  VALUES (N'" & PA & "', N'" & PA36 & "', N'" & PA35 & "', N'" & PA34 & "', N'" & PA33 & "', N'" & PA32 & "', N'" & PA31 & "', N'" & PA30 & "', N'" & PA29 & "', 

  160.                          N'" & PA28 & "', N'" & PA27 & "', N'" & PA26 & "', N'" & PA25 & "', N'" & PA24 & "', N'" & PA23 & "', N'" & PA22 & "', N'" & PA21 & "', N'" & PA20 & "', 

  161.                          N'" & PA19 & "', N'" & PA18 & "', N'" & PA17 & "', N'" & PA16 & "', N'" & PA15 & "', N'" & PA14 & "', N'" & PA13 & "', N'" & PA12 & "', N'" & PA44 & "', 

  162.                          N'" & PA45 & "', N'" & PA46 & "', N'" & PA47 & "', '1', '0', '" & PA11 & "', '" & PA10 & "', '" & BL2 & "', '" & BL3 & "', '" & PA9 & "')"

  163.         CmdSet_For_dr()

  164.     End Sub

  165.     Friend Sub SQL_合約刪除()

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

  167.     End Sub

  168.     Friend Sub SQL_合約明細刪除_全部()

  169.         ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  170.     End Sub

  171.     Friend Sub SQL_合約總表刪除_全部()

  172.         ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()

  173.     End Sub

  174.     Friend Sub SQL_合約報價明細刪除_全部()

  175.         ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()

  176.     End Sub

  177.     Friend Sub SQL_合約報價係數刪除_全部()

  178.         ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()

  179.     End Sub

  180.     Friend Sub SQL_合約附錄刪除_全部()

  181.         ConnOpen() : SQL1 = "DELETE 合約附錄 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr()

  182.     End Sub

  183.     Friend Sub SQL_合約請款刪除_全部()

  184.         ConnOpen() : SQL1 = "DELETE 合約請款 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  185.     End Sub

  186.     Friend Sub SQL_合約修改()

  187.         ConnOpen()

  188.         SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 

  189.                                       工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 

  190.                                       第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 

  191.                                       工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 

  192.                                       減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "'

  193.                 WHERE 合約編號 LIKE N'" & PA & "'"

  194.         CmdSet_For_dr()

  195.     End Sub

  196.     Friend Sub SQL_合約修改1()

  197.         ConnOpen()

  198.         SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 

  199.                                       工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 

  200.                                       第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 

  201.                                       工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 

  202.                                       減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 

  203.                                       合約停止 = '" & BL1 & "', 幣別 = '" & PA11 & "', 折讓比例 = '" & PA10 & "', 稅前歸零 = '" & BL2 & "', 稅後歸零 = '" & BL3 & "', 歸零位數 = '" & PA9 & "'

  204.                 WHERE 合約編號 LIKE N'" & PA & "'"

  205.         CmdSet_For_dr()

  206.     End Sub

  207.     Friend Sub SQL_合約修改2()

  208.         ConnOpen()

  209.         SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 

  210.                                       工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 

  211.                                       第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 

  212.                                       工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 

  213.                                       減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 

  214.                                       合約停止 = '" & BL1 & "'

  215.                 WHERE 合約編號 LIKE N'" & PA & "'"

  216.         CmdSet_For_dr()

  217.     End Sub

  218.     Friend Sub SQL_合約停用()

  219.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約停止 = '" & BL1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  220.     End Sub

  221.     Friend Sub SQL_請購單改合約號()

  222.         ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  223.     End Sub

  224.     Friend Sub SQL_工程系統改合約號()

  225.         ConnOpen_工程SQL()

  226.         SQL1 = "UPDATE 工程進度表 SET 合約編號 = N'" & PA1 & "', 乙方 = N'" & PA2 & "', 甲方 = N'" & PA3 & "', 立約號 = N'" & PA4 & "', 序號 = N'" & PA5 & "' WHERE 合約編號 LIKE N'" & PA & "'"

  227.         CmdSet_For_dr()

  228.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程人員統計表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  229.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  230.         ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  231.         ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔說明 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  232.         ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔操作紀錄 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  233.     End Sub

  234.     Friend Sub SQL_圖庫系統改合約號()

  235.         SQL_連線字串_圖片資料庫()

  236.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文檔 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  237.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  238.     End Sub

  239.     Friend Sub SQL_合約修改_報價說明()

  240.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價說明 = N'" & 合約報價單.報價說明_tb.Text & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  241.     End Sub

  242.     Friend Sub SQL_合約清單_未語轉()

  243.         ConnOpen()

  244.         If 合約本文.關鍵字搜尋_tb.Text = "" Then

  245.             SQL1 = "SELECT   合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  246.                              工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  247.                              最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回

  248.                     FROM     合約控制表

  249.                     WHERE    約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  250.                     ORDER BY 約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  251.         Else

  252.             SQL1 = "SELECT   合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  253.                              工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  254.                              最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回

  255.                     FROM     合約控制表

  256.                     WHERE   (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  257.                              工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  258.                              工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 

  259.                             (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  260.                     ORDER BY 約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  261.         End If

  262.         CmdSet_For_DGV()

  263.     End Sub

  264.     Friend Sub SQL_合約清單_請款用()

  265.         ConnOpen()

  266.         If 合約本文.關鍵字搜尋_tb.Text = "" Then

  267.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  268.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  269.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限

  270.                 FROM        合約控制表

  271.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  272.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  273.         Else

  274.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  275.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  276.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限

  277.                 FROM        合約控制表

  278.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  279.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  280.                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 

  281.                            (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  282.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  283.         End If

  284.         CmdSet_For_DGV()

  285.     End Sub

  286.     Friend Sub SQL_合約清單()

  287.         ConnOpen()

  288.         If 合約本文.關鍵字搜尋_tb.Text = "" Then

  289.             SQL1 = "SELECT  合約編號 AS [" & 表頭(134) & "], 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中 AS 工程, 工程名稱_英 AS Project, 我司公司, 負責人B, 我司地址, 

  290.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  291.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期 AS [" & 表頭(116) & "], 合約種類, 約號排序, 約號尾序, 約號甲方

  292.                 FROM        合約控制表

  293.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  294.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  295.         Else

  296.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  297.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  298.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方

  299.                 FROM        合約控制表

  300.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  301.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  302.                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 

  303.                            (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  304.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  305.         End If

  306.         CmdSet_For_DGV()

  307.     End Sub

  308.     Friend Sub SQL_合約清單_範本()

  309.         ConnOpen()

  310.         SQL1 = "SELECT   合約編號, 控件, 內容,  座標X

  311.                 FROM     合約本文

  312.                 WHERE   (合約編號 LIKE N'" & PA & "')

  313.                 ORDER BY CAST(SUBSTRING(控件, 3, 5) AS INT)"

  314.         CmdSet_For_DGV()

  315.     End Sub

  316.     Friend Sub SQL_合約種類讀取()

  317.         ConnOpen() : SQL1 = "SELECT 中 FROM 合約種類 ORDER BY 中" : CmdSet_For_dr()

  318.     End Sub

  319.     Friend Sub SQL_合約種類英文讀取()

  320.         ConnOpen() : SQL1 = "SELECT 英 FROM 合約種類 WHERE 中 LIKE N'" & PA10 & "'" : CmdSet_For_dr()

  321.     End Sub

  322.     Friend Sub SQL_客戶名稱讀取()

  323.         ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 GROUP BY 客戶名稱 ORDER BY 客戶名稱" : CmdSet_For_dr()

  324.     End Sub

  325.     Friend Sub SQL負責人B讀取()

  326.         ConnOpen() : SQL1 = "SELECT 負責人B FROM 合約控制表 GROUP BY 負責人B ORDER BY 負責人B" : CmdSet_For_dr()

  327.     End Sub

  328.     Friend Sub SQL合約條件讀取()

  329.         ConnOpen() : SQL1 = "SELECT 約號甲方 FROM 合約控制表 GROUP BY 約號甲方 ORDER BY 約號甲方" : CmdSet_For_dr()

  330.     End Sub

  331.     Friend Sub SQL_合約流水號_最後一筆資料()

  332.         ConnOpen() : SQL1 = "SELECT TOP (1) RIGHT(合約編號, 8) AS 合約編號 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%') ORDER BY 合約編號 DESC" : CmdSet_For_dr()

  333.     End Sub

  334.     Friend Sub SQL_合約本文清單()

  335.         ConnOpen()

  336.         SQL1 = "SELECT    合約編號, 控件, 內容, 座標X

  337.                 FROM      合約本文

  338.                 WHERE    (合約編號 LIKE N'" & PA & "')

  339.                 ORDER BY  CAST(SUBSTRING(控件, 3, 3) AS INT)"

  340.         CmdSet_For_DGV()

  341.     End Sub

  342.     Friend Sub SQL_合約本文刪除()

  343.         ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'範本'" : CmdSet_For_dr()

  344.     End Sub

  345.     Friend Sub SQL_合約本文刪除_依合約()

  346.         ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  347.     End Sub

  348.     Friend Sub SQL_合約本文新增()

  349.         ConnOpen() : SQL1 = " INSERT INTO 合約本文 (合約編號, 控件, 內容, 座標X) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()

  350.     End Sub

  351.     Friend Sub SQL_合約本文修改()

  352.         ConnOpen()

  353.         SQL1 = "UPDATE 合約本文 SET 內容 = N'" & PA2 & "', 座標X = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 控件 = '" & PA1 & "'"

  354.         CmdSet_For_dr()

  355.     End Sub

  356.     Friend Sub SQL_合約明細新增()

  357.         ConnOpen() : SQL1 = " INSERT INTO 合約明細表 (合約編號, 期數, 順序, 內容, 金額, 比例) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '', '0', '0')" : CmdSet_For_dr()

  358.     End Sub

  359.     Friend Sub SQL_合約明細讀取()

  360.         ConnOpen() : SQL1 = "SELECT 合約編號, 期數, 順序 AS 細項, 內容, 比例, 金額 FROM 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " ORDER BY 順序" : CmdSet_For_DGV()

  361.     End Sub

  362.     Friend Sub SQL_合約明細刪除()

  363.         ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & "" : CmdSet_For_dr()

  364.     End Sub

  365.     Friend Sub SQL_合約明細修改()

  366.         ConnOpen()

  367.         SQL1 = "UPDATE 合約明細表 SET 內容 = N'" & PA3 & "', 比例 = N'" & NU1 & "', 金額 = N'" & NU2 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & ""

  368.         CmdSet_For_dr()

  369.     End Sub

  370.     Friend Sub SQL_客戶資料讀取()

  371.         ConnOpen() : SQL1 = "SELECT 客戶名稱, 簡稱, 地址, 負責人 FROM 客戶資料表 WHERE (簡稱 LIKE N'" & PA30 & "')" : CmdSet_For_dr()

  372.     End Sub

  373.     Friend Sub SQL_合約系統中新增客戶資料()

  374.         ConnOpen()

  375.         SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) 

  376.                 VALUES (N'" & PA29 & "', N'" & PA41 & "', N'" & PA40 & "', N'NA', N'" & PA39 & "', 

  377.                         N'" & PA38 & "', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA')"

  378.         CmdSet_For_dr()

  379.     End Sub

  380.     Friend Sub SQL_客戶資料表_修改負責人()

  381.         ConnOpen() : SQL1 = "UPDATE 客戶資料表 SET 負責人 = N'" & PA43 & "' WHERE 客戶名稱 LIKE N'" & PA42 & "'" : CmdSet_For_dr()

  382.     End Sub

  383.     '---------------------客戶資料表-----------------------------------------------------------------------------------------------------------------

  384.     Friend Sub SQL_客戶資料表_清單()

  385.         ConnOpen()

  386.         If PA = "" Then

  387.             SQL2 = ""

  388.         Else

  389.             SQL1 = " WHERE 簡稱 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 公司電話 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%' OR 負責人 LIKE N'%" & PA & "%' OR 

  390.                            負責人電話 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人1電話 LIKE N'%" & PA & "%' OR 聯繫人1郵件 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 

  391.                            聯繫人2電話 LIKE N'%" & PA & "%' OR 聯繫人2郵件 LIKE N'%" & PA & "%'  "

  392.         End If

  393.         SQL1 = "SELECT  簡稱 AS [NO.], 簡稱 AS [" & 表頭(50) & "], 客戶名稱 AS [" & 表頭(51) & "], 公司電話 AS [" & 表頭(53) & "], 地址 AS [" & 表頭(52) & "], 負責人 AS [" & 表頭(145) & "], 

  394.                         負責人電話 AS [" & 表頭(146) & "], 聯繫人1 AS [" & 表頭(59) & "], 聯繫人1電話 AS [" & 表頭(147) & "], 聯繫人1郵件 AS [" & 表頭(148) & "], 聯繫人2 AS [" & 表頭(60) & "], 

  395.                         聯繫人2電話 AS [" & 表頭(149) & "], 聯繫人2郵件 AS [" & 表頭(150) & "], 流水號

  396.                 FROM   客戶資料表 " & SQL2 & " 

  397.                 ORDER BY 簡稱"

  398.         CmdSet_For_DGV()

  399.     End Sub

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

  401.         ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 ORDER BY 客戶名稱" : CmdSet_For_dr()

  402.     End Sub

  403.     Friend Sub SQL_客戶資料表簡稱_下拉清單()

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

  405.     End Sub

  406.     Friend Sub SQL_客戶資料表_最後一筆資料()

  407.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 客戶資料表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  408.     End Sub

  409.     Friend Sub SQL_客戶資料表_新增()

  410.         ConnOpen()

  411.         SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) 

  412.                 VALUES (N'" & 客戶資料表.供應商編號_tb.Text & "', N'" & 客戶資料表.客戶簡稱_cb.Text & "', N'" & 客戶資料表.客戶名稱_tb.Text & "', N'" & 客戶資料表.電話1_tb.Text & "', 

  413.                         N'" & 客戶資料表.地址_tb.Text & "', N'" & 客戶資料表.負責人_tb.Text & "', N'" & 客戶資料表.負責人電話_tb.Text & "', N'" & 客戶資料表.聯繫人1_tb.Text & "', 

  414.                         N'" & 客戶資料表.聯繫電話1_tb.Text & "', N'" & 客戶資料表.信箱1_tb.Text & "', N'" & 客戶資料表.聯繫人2_tb.Text & "', N'" & 客戶資料表.聯繫電話2_tb.Text & "', 

  415.                         N'" & 客戶資料表.信箱2_tb.Text & "')"

  416.         CmdSet_For_dr()

  417.     End Sub

  418.     Friend Sub SQL_客戶資料表_修改()

  419.         ConnOpen()

  420.         SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 客戶資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "', 

  421.                                         地址 = N'" & 客戶資料表.地址_tb.Text & "', 公司電話 = N'" & 客戶資料表.電話1_tb.Text & "', 

  422.                                         負責人 = N'" & 客戶資料表.負責人_tb.Text & "', 負責人電話 = N'" & 客戶資料表.負責人電話_tb.Text & "', 

  423.                                         聯繫人1 = N'" & 客戶資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 客戶資料表.聯繫人2_tb.Text & "', 

  424.                                         聯繫人1電話 = N'" & 客戶資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 客戶資料表.聯繫電話2_tb.Text & "', 

  425.                                         聯繫人1郵件 = N'" & 客戶資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 客戶資料表.信箱2_tb.Text & "' 

  426.                  WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')"

  427.         CmdSet_For_dr()

  428.     End Sub

  429.     Friend Sub SQL_客戶資料表_刪除()

  430.         ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr()

  431.     End Sub

  432.     '---------------------------合約報價單----------------------------------------------------------------------------------------------------------------------------------------------

  433.     Friend Sub SQL_合約控制表讀取()

  434.         ConnOpen()

  435.         SQL1 = "SELECT  報價說明, 追加減, 結算金額, 已請款, 剩餘款, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收開始日期, 驗收完成日期, 

  436.                         驗收結果, 驗收備註, 保固期限, 保固地址, 合約停止, 結案備註, 工程主管, 工地驗收備註, 預估工資成本, 

  437.                         預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 利潤比2, 預估利潤, 

  438.                         簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收簽回, 保固簽回, 報價放行, 其他文件 

  439.                  FROM   合約控制表  

  440.                  WHERE  合約編號 LIKE N'%" & PA & "%'"

  441.         CmdSet_For_dr()

  442.     End Sub

  443.     Friend Sub SQL_合約控制表_改版修正()

  444.         ConnOpen()

  445.         SQL1 = "UPDATE  合約控制表 SET 報價說明 = N'" & PA1 & "', 追加減 = N'" & PA2 & "', 結算金額 = N'" & PA3 & "', 已請款 = N'" & PA4 & "', 剩餘款 = N'" & PA5 & "', 

  446.                         預付款 = N'" & PA6 & "', 到貨款 = N'" & PA7 & "', 施工款 = N'" & PA8 & "', 驗收款 = N'" & PA9 & "', 保留款 = N'" & PA10 & "', 驗收開始日期 = N'" & PA11 & "', 

  447.                         驗收完成日期 = N'" & PA12 & "', 驗收結果 = '" & PA13 & "', 驗收備註 = N'" & PA14 & "', 保固期限 = N'" & PA15 & "', 保固地址 = N'" & PA16 & "', 

  448.                         合約停止 = '" & PA17 & "', 結案備註 = N'" & PA18 & "', 工程主管 = N'" & PA19 & "', 工地驗收備註 = N'" & PA20 & "', 預估工資成本 = N'" & PA21 & "', 

  449.                         預估工資報價 = N'" & PA22 & "', 工資利潤比 = N'" & PA23 & "', 預估材料成本 = N'" & PA24 & "', 預估材料報價 = N'" & PA25 & "', 材料利潤比 = N'" & PA26 & "', 

  450.                         總成本 = N'" & PA27 & "', 總報價 = N'" & PA28 & "', 利潤比1 = N'" & PA29 & "', 利潤比2 = N'" & PA30 & "', 預估利潤 = N'" & PA31 & "', 

  451.                         簽回檔圖庫 = N'" & PA32 & "', 報價簽回 = '" & PA33 & "', 合約簽回 = '" & PA34 & "', 請款簽回 = '" & PA35 & "', 驗收簽回 = '" & PA36 & "', 

  452.                         保固簽回 = '" & PA37 & "', 報價放行 = '" & PA38 & "', 其他文件  = '" & PA39 & "'

  453.                  WHERE (合約編號 LIKE N'%" & PA & "%')"

  454.         CmdSet_For_dr()

  455.     End Sub

  456.     Friend Sub SQL_BOM表控制1()

  457.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 AS 項次, 項目, 流水號 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV()

  458.     End Sub

  459.     Friend Sub SQL_合約試算分表刪除()

  460.         ConnOpen() : SQL1 = "DELETE 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  461.     End Sub

  462.     Friend Sub SQL_合約試算控制表刪除()

  463.         ConnOpen() : SQL1 = "DELETE 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  464.     End Sub

  465.     Friend Sub SQL_合約試算明細表刪除()

  466.         ConnOpen() : SQL1 = "DELETE 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  467.     End Sub

  468.     Friend Sub SQL_合約清單1()

  469.         ConnOpen()

  470.         If PA = "" Then

  471.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  472.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  473.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明

  474.                 FROM        合約控制表

  475.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  476.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  477.         Else

  478.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  479.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  480.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明

  481.                 FROM        合約控制表

  482.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  483.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  484.                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  485.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  486.         End If

  487.         CmdSet_For_DGV()

  488.     End Sub

  489.     Friend Sub SQL_合約清單_報價用()

  490.         ConnOpen()

  491.         If PA = "" Then

  492.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  493.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  494.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止 AS 停止, 

  495.                             簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數

  496.                 FROM        合約控制表

  497.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%'

  498.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  499.         Else

  500.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  501.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  502.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 

  503.                             簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數

  504.                 FROM        合約控制表

  505.                 WHERE       合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  506.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  507.                             工程名稱_英 LIKE N'%" & PA & "%'

  508.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  509.         End If

  510.         CmdSet_For_DGV()

  511.     End Sub

  512. 

  513.     Friend Sub SQL_合約試算明細表_修改()

  514.         ConnOpen()

  515.         SQL1 = "UPDATE 合約試算明細表 SET A1 = N'" & PA2 & "', A2 = N'" & PA3 & "', A3 = N'" & PA4 & "', A4 = N'" & PA5 & "', A5 = N'" & PA6 & "', 

  516.                                           A6 = N'" & PA7 & "', A7 = N'" & PA8 & "', A8 = N'" & PA9 & "', A9 = N'" & PA10 & "', A10 = N'" & PA11 & "', 

  517.                                           A11 = N'" & PA12 & "', A12 = N'" & PA13 & "', A13 = N'" & PA14 & "', A14 = N'" & PA15 & "', A15 = N'" & PA16 & "', 

  518.                                           A16 = N'" & PA17 & "', A17 = N'" & PA18 & "', A18 = N'" & PA19 & "', A19 = N'" & PA20 & "', A20 = N'" & PA21 & "', 

  519.                                           A21 = N'" & PA22 & "', A22 = N'" & PA23 & "', A23 = N'" & PA24 & "', A24 = N'" & PA25 & "', A25 = N'" & PA26 & "', 

  520.                                           A26 = N'" & PA27 & "', A27 = N'" & PA28 & "', A28 = N'" & PA29 & "', A29 = N'" & PA30 & "', A30 = N'" & PA31 & "', 

  521.                                           A31 = N'" & PA32 & "', A32 = N'" & PA33 & "', A33 = N'" & PA34 & "', A34 = N'" & PA35 & "', A35 = N'" & PA36 & "', 

  522.                                           A36 = N'" & PA37 & "', A37 = N'" & PA38 & "', A38 = N'" & PA39 & "', A39 = N'" & PA40 & "', A40 = N'" & PA41 & "', 

  523.                                           係數 = '" & BL1 & "', Total = N'" & PA42 & "' 

  524.                  WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')"

  525.         CmdSet_For_dr()

  526.     End Sub

  527.     Friend Sub SQL_合約試算明細表_刪除()

  528.         ConnOpen()

  529.         SQL1 = "DELETE 合約試算明細表 WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')"

  530.         CmdSet_For_dr()

  531.     End Sub

  532.     Friend Sub SQL_合約係數表下拉1()

  533.         ConnOpen() : SQL1 = "SELECT 項目 FROM 合約報價係數 GROUP BY 項目 ORDER BY 項目" : CmdSet_For_dr()

  534.     End Sub

  535.     Friend Sub SQL_合約係數表下拉2()

  536.         ConnOpen() : SQL1 = "SELECT 單位 FROM 合約報價係數 GROUP BY 單位 ORDER BY 單位" : CmdSet_For_dr()

  537.     End Sub

  538.     Friend Sub SQL_合約試算分表查詢()

  539.         ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號" : CmdSet_For_dr()

  540.     End Sub

  541.     Friend Sub SQL_合約試算分表重複查詢()

  542.         ConnOpen() : SQL1 = "SELECT 試算表, 表號, 係數 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' AND 試算表 LIKE N'" & PA3 & "' ORDER BY 表號" : CmdSet_For_dr()

  543.     End Sub

  544.     Friend Sub SQL_合約試算分表_新增()

  545.         ConnOpen() : SQL1 = "INSERT INTO 合約試算分表 (合約編號, 試算表, 表號, 係數) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', 3)" : CmdSet_For_dr()

  546.     End Sub

  547.     Friend Sub SQL_合約試算分表_最後一筆資料()

  548.         ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號 DESC" : CmdSet_For_dr()

  549.     End Sub

  550.     Friend Sub SQL_合約試算分表_試算表修改()

  551.         ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 試算表 = N'" & PA1 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA2 & "')" : CmdSet_For_dr()

  552.     End Sub

  553.     Friend Sub SQL_合約試算分表_物料清單一()

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

  555.         SQL1 = "SELECT 物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 

  556.                        物料編碼庫.單位 " & 低網 & "

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

  558.                            物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼

  559.                 WHERE  (物料編碼庫.群組碼 LIKE N'" & PA1 & "%') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')

  560.                 ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  561.     End Sub

  562.     Friend Sub SQL_合約試算控制表_查詢()

  563.         ConnOpen()

  564.         SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭"

  565.         CmdSet_For_DGV()

  566.     End Sub

  567.     Friend Sub SQL_合約試算明細表_查詢()

  568.         ConnOpen()

  569.         SQL1 = "SELECT  合約試算明細表.料號, 物料編碼庫轉語言.品名 AS [物料], 物料編碼庫.原則說明 AS [樓層/迴路], 

  570.                         合約試算明細表.A1 AS [" & 合約試算表頭(1) & "], 合約試算明細表.A2 AS [" & 合約試算表頭(2) & "], 合約試算明細表.A3 AS [" & 合約試算表頭(3) & "], 

  571.                         合約試算明細表.A4 AS [" & 合約試算表頭(4) & "], 合約試算明細表.A5 AS [" & 合約試算表頭(5) & "], 合約試算明細表.A6 AS [" & 合約試算表頭(6) & "], 

  572.                         合約試算明細表.A7 AS [" & 合約試算表頭(7) & "], 合約試算明細表.A8 AS [" & 合約試算表頭(8) & "], 合約試算明細表.A9 AS [" & 合約試算表頭(9) & "], 

  573.                         合約試算明細表.A10 AS [" & 合約試算表頭(10) & "], 合約試算明細表.A11 AS [" & 合約試算表頭(11) & "], 合約試算明細表.A12 AS [" & 合約試算表頭(12) & "], 

  574.                         合約試算明細表.A13 AS [" & 合約試算表頭(13) & "], 合約試算明細表.A14 AS [" & 合約試算表頭(14) & "], 合約試算明細表.A15 AS [" & 合約試算表頭(15) & "], 

  575.                         合約試算明細表.A16 AS [" & 合約試算表頭(16) & "], 合約試算明細表.A17 AS [" & 合約試算表頭(17) & "], 合約試算明細表.A18 AS [" & 合約試算表頭(18) & "], 

  576.                         合約試算明細表.A19 AS [" & 合約試算表頭(19) & "], 合約試算明細表.A20 AS [" & 合約試算表頭(20) & "], 合約試算明細表.A21 AS [" & 合約試算表頭(21) & "], 

  577.                         合約試算明細表.A22 AS [" & 合約試算表頭(22) & "], 合約試算明細表.A23 AS [" & 合約試算表頭(23) & "], 合約試算明細表.A24 AS [" & 合約試算表頭(24) & "], 

  578.                         合約試算明細表.A25 AS [" & 合約試算表頭(25) & "], 合約試算明細表.A26 AS [" & 合約試算表頭(26) & "], 合約試算明細表.A27 AS [" & 合約試算表頭(27) & "], 

  579.                         合約試算明細表.A28 AS [" & 合約試算表頭(28) & "], 合約試算明細表.A29 AS [" & 合約試算表頭(29) & "], 合約試算明細表.A30 AS [" & 合約試算表頭(30) & "], 

  580.                         合約試算明細表.A31 AS [" & 合約試算表頭(31) & "], 合約試算明細表.A32 AS [" & 合約試算表頭(32) & "], 合約試算明細表.A33 AS [" & 合約試算表頭(33) & "], 

  581.                         合約試算明細表.A34 AS [" & 合約試算表頭(34) & "], 合約試算明細表.A35 AS [" & 合約試算表頭(35) & "], 合約試算明細表.A36 AS [" & 合約試算表頭(36) & "], 

  582.                         合約試算明細表.A37 AS [" & 合約試算表頭(37) & "], 合約試算明細表.A38 AS [" & 合約試算表頭(38) & "], 合約試算明細表.A39 AS [" & 合約試算表頭(39) & "], 

  583.                         合約試算明細表.A40 AS [" & 合約試算表頭(40) & "], 合約試算明細表.係數, 合約試算明細表.Total, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 

  584.                         物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8

  585.                 FROM    合約試算明細表 INNER JOIN 物料規格表 ON 合約試算明細表.料號 = 物料規格表.料號 INNER JOIN 物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN

  586.                         物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 

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

  588.                 WHERE  (合約編號 LIKE N'" & PA & "') AND (表號 LIKE N'" & PA2 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ORDER BY 物料編碼庫.原則說明"

  589.         CmdSet_For_DGV()

  590.     End Sub

  591.     Friend Sub SQL_合約試算控制表重複查詢()

  592.         ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND [樓層/迴路] LIKE N'" & PA4 & "'" : CmdSet_For_dr()

  593.     End Sub

  594.     Friend Sub SQL_合約試算控制表_最後一筆資料()

  595.         ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭 DESC" : CmdSet_For_dr()

  596.     End Sub

  597.     Friend Sub SQL_合約試算控制表_新增()

  598.         ConnOpen() : SQL1 = "INSERT INTO 合約試算控制表 (合約編號, 表號, [樓層/迴路], 表頭) VALUES (N'" & PA & "', N'" & PA2 & "', N'" & PA4 & "', N'" & PA5 & "')" : CmdSet_For_dr()

  599.     End Sub

  600.     Friend Sub SQL_合約試算控制表查詢()

  601.         ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表號" : CmdSet_For_dr()

  602.     End Sub

  603.     Friend Sub SQL_合約試算控制表_樓層迴路修改()

  604.         ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET [樓層/迴路] = N'" & PA4 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號  LIKE N'" & PA2 & "' AND 表頭 LIKE N'" & PA5 & "')" : CmdSet_For_dr()

  605.     End Sub

  606.     Friend Sub SQL_合約試算明細表重複查詢()

  607.         ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND 料號 LIKE N'" & PA6 & "'" : CmdSet_For_dr()

  608.     End Sub

  609.     Friend Sub SQL_合約試算明細表_新增物料()

  610.         ConnOpen()

  611.         SQL1 = "INSERT INTO 合約試算明細表 (合約編號, 表號, 料號, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, 

  612.                                             A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, A38, A39, A40, 係數, Total) 

  613.                 VALUES (N'" & PA & "', N'" & PA2 & "', N'" & PA6 & "', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', 

  614.                           '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')"

  615.         CmdSet_For_dr()

  616.     End Sub

  617.     Friend Sub SQL_合約報價總表()

  618.         ConnOpen()

  619.         SQL1 = "SELECT 排序, 項目 AS [ITEM], 內容 AS [DESCRIPTION], 單位 AS [UNIT], 數量 AS [QTY], 單價 AS [UNIT PRICE" & 幣別 & "], 總價 AS [AMOUNT" & 幣別 & "], 備註 AS [REMARKS], 流水號, 明細連動 

  620.                 FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序"

  621.         CmdSet_For_DGV()

  622.     End Sub

  623.     Friend Sub SQL_合約報價總表_最後一筆資料()

  624.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價總表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  625.     End Sub

  626.     Friend Sub SQL_合約報價總表_最後一筆排序()

  627.         ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()

  628.     End Sub

  629.     Friend Sub SQL_合約報價總表_新增資料()

  630.         ConnOpen()

  631.         SQL1 = "INSERT INTO 合約報價總表 (合約號碼, 排序, 項目, 內容, 單位, 數量, 單價, 總價, 備註, 流水號, 明細連動) 

  632.                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', 

  633.                         N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')"

  634.         CmdSet_For_dr()

  635.     End Sub

  636.     Friend Sub SQL_合約報價總表_存檔()

  637.         ConnOpen()

  638.         SQL1 = "UPDATE 合約報價總表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 數量 = N'" & PA5 & "', 

  639.                                         單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 明細連動 = N'" & PA10 & "' WHERE 流水號 LIKE N'" & PA9 & "'"

  640.         CmdSet_For_dr()

  641.     End Sub

  642.     Friend Sub SQL_合約報價總表_刪除資料()

  643.         ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr()

  644.     End Sub

  645.     Friend Sub SQL_合約報價係數()

  646.         ConnOpen()

  647.         SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目"

  648.         CmdSet_For_DGV()

  649.     End Sub

  650.     Friend Sub SQL_合約報價係數_下拉()

  651.         ConnOpen()

  652.         SQL1 = "SELECT 項目 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目"

  653.         CmdSet_For_dr()

  654.     End Sub

  655.     Friend Sub SQL_合約報價明細表()

  656.         ConnOpen()

  657.         SQL1 = "SELECT    合約報價明細表.排序, 合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 

  658.                           合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS QTY, 合約報價明細表.單價 AS [UNIT PRICE" & 幣別 & "], 

  659.                           合約報價明細表.總價 AS [AMOUNT" & 幣別 & "], 合約報價明細表.備註 AS REMARKS, 合約報價明細表.實際數量, 

  660.                           合約報價明細表.工資成本單價, 合約報價明細表.工資成本單價 AS 工資成本後價, 合約報價明細表.工資報價單價, 

  661.                           合約報價明細表.工資成本單價 AS 工資報價後價, 合約報價明細表.材料成本單價, 

  662.                           合約報價明細表.材料成本單價 AS 材料成本後價, 合約報價明細表.材料報價單價, 

  663.                           合約報價明細表.材料成本單價 AS 材料報價後價, 合約報價明細表.材料成本單價 AS 利潤, 合約報價明細表.流水號, 

  664.                           QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, 

  665.                           QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 

  666.                           QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 

  667.                           合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 

  668.                           合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, 

  669.                           QQQ.AA8, 合約報價明細表.不計算 AS [S]

  670.                 FROM     (SELECT    物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 

  671.                                     物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 

  672.                                     物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 

  673.                                     物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 

  674.                                     規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 

  675.                                     規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8

  676.                            FROM     物料規格表 INNER JOIN

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

  678.                                     物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN

  679.                                     物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 

  680.                                     物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN

  681.                                     規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 

  682.                                     物料編碼庫轉語言.語言 = 規格庫抬頭.語言

  683.                            WHERE   (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN

  684.                            合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號

  685.                 WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "')

  686.                 ORDER BY   合約報價明細表.排序"

  687.         CmdSet_For_DGV()

  688.     End Sub

  689.     Friend Sub SQL_合約報價明細表_存檔()

  690.         ConnOpen()

  691.         SQL1 = "UPDATE 合約報價明細表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 報價數量 = N'" & PA5 & "', 

  692.                                           單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 實際數量 = N'" & PA10 & "', 工資成本單價 = N'" & PA11 & "', 

  693.                                           工資報價單價 = N'" & PA12 & "', 材料成本單價 = N'" & PA13 & "', 材料報價單價 = N'" & PA14 & "', 料號 = N'" & PA15 & "', 

  694.                                           不計算 = N'" & BL & "', 材料係數 = N'" & PA16 & "', D1 = N'" & BL1 & "', D2 = N'" & BL2 & "', D3 = N'" & BL3 & "', D4 = N'" & BL4 & "', 

  695.                                           D5 = N'" & BL5 & "', D6 = N'" & BL6 & "', D7 = N'" & BL7 & "', D8 = N'" & BL8 & "', 預設 = 0

  696.                 WHERE 流水號 LIKE N'" & PA9 & "'"

  697.         CmdSet_For_dr()

  698.     End Sub

  699.     Friend Sub SQL_合約報價明細表_存檔_料號()

  700.         ConnOpen()

  701.         SQL1 = "UPDATE 合約報價明細表 SET  料號 = N'" & PA15 & "', 項目 = N'" & PA2 & "', 報價數量 = N'" & PA5 & "', 實際數量 = N'" & PA5 & "' , 單位 = N'" & PA4 & "', 

  702.                                            預設 = 1 " & SQL2 & "

  703.                 WHERE  流水號 LIKE N'" & PA9 & "'"

  704.         CmdSet_For_dr()

  705.     End Sub

  706.     Friend Sub SQL_合約報價明細表_最後一筆資料()

  707.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價明細表 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  708.     End Sub

  709.     Friend Sub SQL_合約報價明細表_最後一筆排序()

  710.         ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()

  711.     End Sub

  712.     Friend Sub SQL_合約報價明細表_新增資料()

  713.         ConnOpen()

  714.         SQL1 = "INSERT INTO 合約報價明細表 (合約號碼, 排序, 項目, 內容, 單位, 報價數量, 單價, 總價, 備註, 流水號, 實際數量, 工資成本單價, 工資報價單價, 材料成本單價, 材料報價單價, 

  715.                                             料號, 不計算, 材料係數, D1, D2, D3, D4, D5, D6, D7, D8, 預設) 

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

  717.                         N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', '" & BL & "', N'" & PA16 & "', '" & BL1 & "', '" & BL2 & "', 

  718.                          '" & BL3 & "', '" & BL4 & "', '" & BL5 & "', '" & BL6 & "', '" & BL7 & "', '" & BL8 & "', '" & BL9 & "')"

  719.         CmdSet_For_dr()

  720.     End Sub

  721.     Friend Sub SQL_合約報價明細表_刪除資料()

  722.         ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr()

  723.     End Sub

  724.     Friend Sub SQL_合約報價係數資料不重複()

  725.         ConnOpen() : SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 項目 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  726.     End Sub

  727.     Friend Sub SQL_合約報價係數刪除()

  728.         ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  729.     End Sub

  730.     Friend Sub SQL_合約報價係數修改()

  731.         ConnOpen()

  732.         SQL1 = "UPDATE 合約報價係數 SET 係數 = N'" & 合約報價單.係數_nup.Text & "', 單位 = N'" & 合約報價單.係數單位_cb.Text & "'  WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'"

  733.         CmdSet_For_dr()

  734.     End Sub

  735.     Friend Sub SQL_合約報價係數_最後一筆資料()

  736.         ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價係數 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  737.     End Sub

  738.     Friend Sub SQL_合約報價係數_新增()

  739.         ConnOpen() : SQL1 = "INSERT INTO 合約報價係數 (合約號碼, 流水號, 項目, 係數, 單位) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr()

  740.     End Sub

  741.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

  742.     Friend Sub SQL_附錄合約_最後一筆資料()

  743.         ConnOpen() : SQL1 = "SELECT TOP (1) 附錄編號 FROM 合約附錄 ORDER BY 附錄編號 DESC" : CmdSet_For_dr()

  744.     End Sub

  745.     Friend Sub SQL_附錄合約_最後一筆資料1()

  746.         ConnOpen() : SQL1 = "SELECT TOP (1) 附錄編號 FROM 合約附錄 WHERE 附錄編號 LIKE N'" & PA1 & "' ORDER BY 附錄編號 DESC" : CmdSet_For_dr()

  747.     End Sub

  748.     Friend Sub SQL_附錄合約_清單查詢()

  749.         ConnOpen()

  750.         SQL1 = "SELECT 合約號碼, 附錄編號 AS [" & 表頭(99) & "], 日期, 原金額, 追加減, 結算, 其他內容, 停用 AS [" & 表頭(179) & "] FROM 合約附錄 

  751.                 WHERE (合約號碼 LIKE N'" & PA & "') ORDER BY 附錄編號 DESC"

  752.         CmdSet_For_DGV()

  753.     End Sub

  754.     Friend Sub SQL_附錄合約_刪除()

  755.         ConnOpen() : SQL1 = "DELETE FROM 合約附錄 WHERE (附錄編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  756.     End Sub

  757.     Friend Sub SQL_附錄合約_新增()

  758.         ConnOpen()

  759.         SQL1 = "INSERT INTO 合約附錄 (合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用) 

  760.                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', '0')"

  761.         CmdSet_For_dr()

  762.     End Sub

  763.     Friend Sub SQL_附錄合約_修改()

  764.         ConnOpen()

  765.         SQL1 = "UPDATE 合約附錄 SET 日期 = N'" & PA2 & "', 原金額 = N'" & PA3 & "', 追加減 = N'" & PA4 & "', 結算 = N'" & PA5 & "', 其他內容 = N'" & PA6 & "', 停用 = '" & BL1 & "' 

  766.                 WHERE 附錄編號 LIKE N'" & PA1 & "'"

  767.         CmdSet_For_dr()

  768.     End Sub

  769.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

  770.     Friend Sub SQL_附錄合約_清單查詢1()

  771.         ConnOpen()

  772.         SQL1 = "SELECT 合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用 FROM 合約附錄 WHERE (合約號碼 LIKE N'" & PA & "') AND (停用 = 0) ORDER BY 附錄編號 DESC"

  773.         CmdSet_For_DGV()

  774.     End Sub

  775.     '---------------------------合約請款單----------------------------------------------------------------------------------------------------------------------------------------------

  776.     Friend Sub SQL_請款單_最後一筆資料()

  777.         ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 ORDER BY 請款編號 DESC" : CmdSet_For_dr()

  778.     End Sub

  779.     Friend Sub SQL_請款單_最後一筆資料1()

  780.         ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 WHERE 請款編號 LIKE N'" & PA1 & "' ORDER BY 請款編號 DESC" : CmdSet_For_dr()

  781.     End Sub

  782.     Friend Sub SQL_請款單_清單查詢()

  783.         ConnOpen()

  784.         SQL1 = "SELECT 請款編號, 期數, 請款內容, 比例, 請款金額, 稅金, 付款期限, 審批意見, 請款總額, 申請時間 FROM 合約請款 WHERE (合約編號 LIKE N'" & PA & "') 

  785.                 ORDER BY CHARINDEX(LEFT(期數, 1), '一二三四五'), 請款編號 DESC"

  786.         CmdSet_For_DGV()

  787.     End Sub

  788.     Friend Sub SQL_請款單_刪除()

  789.         ConnOpen() : SQL1 = "DELETE FROM 合約請款 WHERE (請款編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr()

  790.     End Sub

  791.     Friend Sub SQL_請款單_新增()

  792.         ConnOpen()

  793.         SQL1 = "INSERT INTO 合約請款 (合約編號, 請款編號, 期數, 請款內容, 請款金額, 稅金, 付款期限, 申請時間, 審批意見, 請款總額, 比例) 

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

  795.         CmdSet_For_dr()

  796.     End Sub

  797.     Friend Sub SQL_請款單_修改()

  798.         ConnOpen()

  799.         SQL1 = "UPDATE 合約請款 SET 期數 = N'" & PA2 & "', 請款內容 = N'" & PA3 & "', 請款金額 = N'" & PA4 & "', 稅金 = N'" & PA5 & "', 付款期限 = N'" & PA6 & "', 申請時間 = N'" & PA7 & "', 

  800.                                     審批意見 = N'" & PA8 & "', 請款總額 = N'" & PA9 & "', 比例 = N'" & PA10 & "' 

  801.                 WHERE 請款編號 LIKE N'" & PA1 & "'"

  802.         CmdSet_For_dr()

  803.     End Sub

  804.     Friend Sub SQL_控制表_請款修改()

  805.         ConnOpen()

  806.         SQL1 = "UPDATE 合約控制表 SET 追加減 = N'" & PA1 & "', 結算金額 = N'" & PA2 & "', 已請款 = N'" & PA3 & "', 剩餘款 = N'" & PA4 & "', 預付款 = N'" & PA5 & "', 

  807.                                       到貨款 = N'" & PA6 & "', 施工款 = N'" & PA7 & "', 驗收款 = N'" & PA8 & "', 保留款 = N'" & PA9 & "' 

  808.                 WHERE 合約編號 LIKE N'" & PA & "'"

  809.         CmdSet_For_dr()

  810.     End Sub

  811.     '---------------------------合約請款控制表----------------------------------------------------------------------------------------------------------------------------------------------

  812.     Friend Sub SQL_合約請款控制表查詢()

  813.         ConnOpen()

  814.         SQL1 = "SELECT    合約控制表.合約編號 AS [" & 表頭(134) & "], 合約控制表." & SQL3 & " AS [" & 表頭(151) & "], 合約控制表.工程總價 AS [" & 表頭(27) & "], 

  815.                           合約控制表.追加減 AS [" & 表頭(180) & "], 合約控制表.結算金額 AS [" & 表頭(181) & "], 合約控制表.已請款 AS [" & 表頭(182) & "], 

  816.                           合約控制表.已請款 AS 比例1, 合約控制表.剩餘款 AS [" & 表頭(183) & "], 合約控制表.剩餘款 AS 比例2, QQ.請款總額 AS [" & 表頭(184) & "], 

  817.                           WW.請款總額 AS [" & 表頭(185) & "], EE.請款總額 AS [" & 表頭(186) & "], FF.請款總額 AS [" & 表頭(187) & "], RR.請款總額 AS [" & 表頭(188) & "], 

  818.                           簽回檔圖庫, 請款簽回 AS 簽回

  819.                 FROM      合約控制表 LEFT OUTER JOIN

  820.                          (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_5  WHERE  (期數 LIKE '五')

  821.                           GROUP BY  合約編號) AS RR ON 合約控制表.合約編號 = RR.合約編號 LEFT OUTER JOIN

  822.                          (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_4  WHERE  (期數 LIKE '四')

  823.                           GROUP BY  合約編號) AS FF ON 合約控制表.合約編號 = FF.合約編號 LEFT OUTER JOIN

  824.                          (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_3  WHERE  (期數 LIKE '三')

  825.                           GROUP BY  合約編號) AS EE ON 合約控制表.合約編號 = EE.合約編號 LEFT OUTER JOIN

  826.                          (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_2  WHERE  (期數 LIKE '二')

  827.                           GROUP BY  合約編號) AS WW ON 合約控制表.合約編號 = WW.合約編號 LEFT OUTER JOIN

  828.                          (SELECT    合約編號, SUM(請款總額) AS 請款總額  FROM  合約請款 AS 合約請款_1 WHERE  (期數 LIKE '一')

  829.                           GROUP BY  合約編號) AS QQ ON 合約控制表.合約編號 = QQ.合約編號 " & SQL2 & "

  830.                 ORDER BY  合約控制表.約號甲方, 合約控制表.約號排序 DESC, 合約控制表.約號尾序 DESC"

  831.         CmdSet_For_DGV()

  832.     End Sub

  833.     '---------------------------合約驗收單----------------------------------------------------------------------------------------------------------------------------------------------

  834.     Friend Sub SQL_合約報價明細表_驗收存檔()

  835.         ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 驗收數量 = N'" & PA1 & "', 驗收備註 = N'" & PA2 & "' WHERE 流水號 LIKE N'" & PA9 & "'" : CmdSet_For_dr()

  836.     End Sub

  837.     Friend Sub SQL_合約清單_驗收用()

  838.         ConnOpen()

  839.         SQL1 = "SELECT      合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  840.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  841.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 

  842.                             驗收開始日期, 驗收結果, 驗收備註, 工地驗收備註, 驗收完成日期, 保固期限

  843.                 FROM        合約控制表

  844.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  845.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  846.                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 

  847.                            (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (工程主管 LIKE N'%" & PA45 & "%')

  848.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  849.         CmdSet_For_DGV()

  850.     End Sub

  851.     Friend Sub SQL_合約驗收明細表()

  852.         ConnOpen()

  853.         SQL1 = "SELECT    合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 

  854.                           合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS 合約, 合約報價明細表.驗收數量 AS 實際, 

  855.                           合約報價明細表.驗收數量 AS 差異, 合約報價明細表.驗收備註 AS REMARKS, 合約報價明細表.流水號, 

  856.                           QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, 

  857.                           QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 

  858.                           QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 

  859.                           合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 

  860.                           合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, 

  861.                           QQQ.AA8

  862.                 FROM     (SELECT    物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 

  863.                                     物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 

  864.                                     物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 

  865.                                     物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 

  866.                                     規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 

  867.                                     規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8

  868.                            FROM     物料規格表 INNER JOIN

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

  870.                                     物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN

  871.                                     物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 

  872.                                     物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN

  873.                                     規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 

  874.                                     物料編碼庫轉語言.語言 = 規格庫抬頭.語言

  875.                            WHERE   (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN

  876.                            合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號

  877.                 WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "') AND 合約報價明細表.項目 NOT LIKE '*'

  878.                 ORDER BY   合約報價明細表.排序"

  879.         CmdSet_For_DGV()

  880.     End Sub

  881.     Friend Sub SQL_控制表_驗收確認()

  882.         ConnOpen() : SQL1 = "SELECT 驗收開始日期 FROM 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  883.     End Sub

  884.     Friend Sub SQL_控制表_驗收修改1()

  885.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 驗收開始日期 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  886.     End Sub

  887.     '---------------------------合約驗收控制表----------------------------------------------------------------------------------------------------------------------------------------------

  888.     Friend Sub SQL_合約驗收控制表查詢()

  889.         ConnOpen()

  890.         SQL1 = "SELECT     合約編號, 工程名稱_中 AS 工程, 工期, 立約日期, 驗收開始日期, 工期 AS [已完成/未完成天數], 

  891.                            驗收完成日期, 驗收結果, 保固期限, 驗收備註, 工地驗收備註, 工程主管, 簽回檔圖庫, 驗收簽回 AS 簽回

  892.                 FROM       合約控制表 " & SQL2 & "

  893.                 ORDER BY   驗收開始日期 DESC, 立約日期 DESC"

  894.         CmdSet_For_DGV()

  895.     End Sub

  896.     Friend Sub SQL_控制表_驗收修改2()

  897.         ConnOpen()

  898.         SQL1 = "UPDATE 合約控制表 SET 驗收完成日期 = N'" & PA1 & "', 驗收結果 = N'" & PA2 & "', 驗收備註 = N'" & PA3 & "', 保固期限 = N'" & PA4 & "' WHERE 合約編號 LIKE N'" & PA & "'"

  899.         CmdSet_For_dr()

  900.     End Sub

  901.     Friend Sub SQL_控制表_驗收修改3()

  902.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工地驗收備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  903.     End Sub

  904.     Friend Sub SQL_控制表_驗收修改4()

  905.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工程主管 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  906.     End Sub

  907.     '---------------------------合約保固書----------------------------------------------------------------------------------------------------------------------------------------------

  908.     Friend Sub SQL_合約清單_保固用()

  909.         ConnOpen()

  910.         SQL1 = "SELECT      合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  911.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期 AS QQ, 逾期_中, 最高扣罰_中, 逾期_英, 

  912.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 

  913.                             驗收開始日期, 驗收完成日期, 保固期限, 保固地址, 簽回檔圖庫, 保固簽回 AS 簽回

  914.                 FROM        合約控制表

  915.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  916.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  917.                             工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND 

  918.                            (驗收結果 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  919.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  920.         CmdSet_For_DGV()

  921.     End Sub

  922.     Friend Sub SQL_控制表_保固修改()

  923.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 保固期限 = N'" & PA1 & "', 保固地址 = N'" & PA2 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  924.     End Sub

  925.     '---------------------------合約結案控制表----------------------------------------------------------------------------------------------------------------------------------------------

  926.     Friend Sub SQL_合約清單_結案用()

  927.         ConnOpen()

  928.         SQL1 = "SELECT     合約控制表.合約編號, 合約控制表.工程名稱_中 AS 工程, 合約控制表.工期, 合約控制表.立約日期, 合約控制表.第一期比例, 

  929.                            合約控制表.第二期比例, 合約控制表.第三期比例, 合約控制表.第四期比例, 合約控制表.第五期比例, 

  930.                            合約控制表.預付款, 合約控制表.到貨款, 合約控制表.施工款, 合約控制表.驗收款, 合約控制表.保留款, 

  931.                            HX空白圖片.圖片 AS 訂金, HX空白圖片.圖片 AS 到料, HX空白圖片.圖片 AS 施工, HX空白圖片.圖片 AS 驗收, 

  932.                            HX空白圖片.圖片 AS 保固, 合約控制表.驗收完成日期, 合約控制表.保固期限 AS [保固期限(月)], 

  933.                            合約控制表.驗收完成日期 AS 保固到期日, 合約控制表.驗收完成日期 AS [保固剩餘(天)], 合約控制表.剩餘款, 

  934.                            合約控制表.結案備註, 客戶名稱, 合約控制表.工程總價, 合約控制表.追加減, 合約控制表.結算金額, 合約控制表.已請款,工期 AS 排序

  935.                 FROM       合約控制表 LEFT OUTER JOIN

  936.                            HX空白圖片 ON 合約控制表.合約編號 = HX空白圖片.選擇 " & SQL2 & "

  937.                 ORDER BY   合約控制表.約號甲方, 合約控制表.約號排序, 合約控制表.約號尾序"

  938.         CmdSet_For_DGV()

  939.     End Sub

  940.     Friend Sub SQL_控制表_結案修改()

  941.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 結案備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  942.     End Sub

  943.     '---------------------------工程項目BOM表----------------------------------------------------------------------------------------------------------------------------------------------

  944.     Friend Sub SQL_BOM表控制()

  945.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV()

  946.     End Sub

  947.     Friend Sub SQL_BOM表控制_項目查詢()

  948.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 WHERE 項目 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  949.     End Sub

  950.     Friend Sub SQL_BOM表控制流水號查詢()

  951.         ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程項目BOM表控制 ORDER BY 流水號 DESC" : CmdSet_For_dr()

  952.     End Sub

  953.     Friend Sub SQL_BOM表控制_新增()

  954.         ConnOpen_工程SQL() : SQL1 = "INSERT INTO 工程項目BOM表控制 (流水號, 項目) VALUES (N'" & PA & "', N'" & PA1 & "')" : CmdSet_For_dr()

  955.     End Sub

  956.     Friend Sub SQL_BOM表控制_存檔()

  957.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表控制 SET 項目 = N'" & PA1 & "' WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  958.     End Sub

  959.     Friend Sub SQL_BOM表控制_刪除()

  960.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表控制 WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  961.     End Sub

  962.     Friend Sub SQL_BOM表明細()

  963.         ConnOpen_工程SQL()

  964.         SQL1 = "SELECT  工程項目BOM表明細.排序, 工程項目BOM表明細.排序 AS 項次, 工程項目BOM表明細.項目, 工程項目BOM表明細.單位, 工程項目BOM表明細.數量, 工程項目BOM表明細.料號, 

  965.                         工程項目BOM表明細.明細流水, QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫編號, QQQ.規格庫抬頭指定, QQQ.品名, QQQ.料號原則, QQQ.S1, QQQ.S2, 

  966.                         QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, QQQ.AA8

  967.                 FROM    工程項目BOM表明細 LEFT OUTER JOIN

  968.                        (SELECT  [HX-GPS-ERP-SYS].dbo.物料規格表.A1, [HX-GPS-ERP-SYS].dbo.物料規格表.A2, [HX-GPS-ERP-SYS].dbo.物料規格表.A3, [HX-GPS-ERP-SYS].dbo.物料規格表.A4, 

  969.                                  [HX-GPS-ERP-SYS].dbo.物料規格表.A5, [HX-GPS-ERP-SYS].dbo.物料規格表.A6, [HX-GPS-ERP-SYS].dbo.物料規格表.A7, [HX-GPS-ERP-SYS].dbo.物料規格表.A8, 

  970.                                  [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫編號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定, [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.品名, 

  971.                                  [HX-GPS-ERP-SYS].dbo.物料規格表.料號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則, [HX-GPS-ERP-SYS].dbo.物料規格表.S1, 

  972.                                  [HX-GPS-ERP-SYS].dbo.物料規格表.S2, [HX-GPS-ERP-SYS].dbo.物料規格表.S3, [HX-GPS-ERP-SYS].dbo.物料規格表.S4, [HX-GPS-ERP-SYS].dbo.物料規格表.S5, 

  973.                                  [HX-GPS-ERP-SYS].dbo.物料規格表.S6, [HX-GPS-ERP-SYS].dbo.物料規格表.S7, [HX-GPS-ERP-SYS].dbo.物料規格表.S8, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A1 AS AA1, 

  974.                                  [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A2 AS AA2, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A3 AS AA3, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A4 AS AA4, 

  975.                                  [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A5 AS AA5, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A6 AS AA6, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A7 AS AA7, 

  976.                                  [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A8 AS AA8

  977.                         FROM     [HX-GPS-ERP-SYS].dbo.物料規格表 INNER JOIN [HX-GPS-ERP-SYS].dbo.物料資訊控制表 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = 

  978.                                  [HX-GPS-ERP-SYS].dbo.物料資訊控制表.群組碼 AND [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則

  979.                                  INNER JOIN [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.群組碼 AND

  980.                                  [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.料號原則 INNER JOIN [HX-GPS-ERP-SYS].dbo.規格庫抬頭 ON 

  981.                                  [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.規格庫抬頭指定 AND 

  982.                                  [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.語言

  983.                         WHERE   ([HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 工程項目BOM表明細.料號 = QQQ.料號

  984.                 WHERE     工程項目BOM表明細.流水號 LIKE '" & PA & "'

  985.                 ORDER BY  工程項目BOM表明細.排序"

  986.         CmdSet_For_DGV()

  987.     End Sub

  988.     Friend Sub SQL_BOM表明細流水號查詢()

  989.         ConnOpen_工程SQL() : SQL1 = "SELECT 排序 FROM 工程項目BOM表明細 WHERE 流水號 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr()

  990.     End Sub

  991.     Friend Sub SQL_BOM表明細流水號查詢1()

  992.         ConnOpen_工程SQL() : SQL1 = "SELECT 明細流水 FROM 工程項目BOM表明細 ORDER BY 明細流水 DESC" : CmdSet_For_dr()

  993.     End Sub

  994.     Friend Sub SQL_BOM表明細_新增()

  995.         ConnOpen_工程SQL()

  996.         SQL1 = "INSERT INTO 工程項目BOM表明細 (流水號, 排序, 項目, 料號, 數量, 單位, 明細流水) 

  997.                 VALUES (N'" & PA & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA7 & "')"

  998.         CmdSet_For_dr()

  999.     End Sub

  1000.     Friend Sub SQL_BOM表明細_刪除()

  1001.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 明細流水 LIKE '" & PA7 & "'" : CmdSet_For_dr()

  1002.     End Sub

  1003.     Friend Sub SQL_BOM表明細_刪除_全部()

  1004.         ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 流水號 LIKE '" & PA & "'" : CmdSet_For_dr()

  1005.     End Sub

  1006.     Friend Sub SQL_BOM表明細_存檔()

  1007.         ConnOpen_工程SQL()

  1008.         SQL1 = "UPDATE 工程項目BOM表明細 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 料號 = N'" & PA3 & "', 數量 = N'" & PA4 & "', 單位 = N'" & PA5 & "' WHERE 明細流水 LIKE N'" & PA7 & "'"

  1009.         CmdSet_For_dr()

  1010.     End Sub

  1011.     Friend Sub SQL_BOM表明細_存檔_料號()

  1012.         ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表明細 SET 料號 = N'" & PA3 & "' WHERE 明細流水 LIKE N'" & PA7 & "'" : CmdSet_For_dr()

  1013.     End Sub

  1014.     '---------------------------合約文件簽回存檔----------------------------------------------------------------------------------------------------------------------------------------------

  1015.     Friend Sub SQL_合約清單_簽回存檔()

  1016.         ConnOpen()

  1017.         SQL1 = "SELECT      合約編號, 客戶名稱, 工程名稱_中, 工程名稱_英, 簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 

  1018.                             保固簽回 AS 開始保固 , 保固簽回, 其他文件

  1019.                 FROM        合約控制表 

  1020.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  1021.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  1022.                             工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1)

  1023.                 ORDER BY    約號排序 DESC, 約號甲方, 約號尾序"

  1024.         CmdSet_For_DGV()

  1025.     End Sub

  1026.     Friend Sub SQL_合約清單_簽回存檔_最後一筆編號查詢()

  1027.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 文件號 FROM 合約文件簽回圖檔 WHERE (合約編號 LIKE '" & PA1 & "') ORDER BY 文件號 DESC" : CmdSet_For_dr()

  1028.     End Sub

  1029.     Friend Sub SQL_合約清單_簽回存檔_圖片入系統()

  1030.         ConnOpen_工程圖庫SQL()

  1031.         SQL1 = "INSERT INTO 合約文件簽回圖檔 (合約編號, 階段, 文件號, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', 

  1032.                 BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件簽回存檔.檔案名稱_tb.Text & 合約文件簽回存檔.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"

  1033.         CmdSet_For_dr()

  1034.     End Sub

  1035.     Friend Sub SQL_合約清單_簽回存檔_圖片清單()

  1036.         ConnOpen_工程圖庫SQL()

  1037.         SQL1 = "SELECT 文件號 AS Item, 圖片 AS IMG FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' ORDER BY 文件號"

  1038.         CmdSet_For_DGV()

  1039.     End Sub

  1040.     Friend Sub SQL_合約清單_簽回存檔_圖片讀取()

  1041.         ConnOpen_工程圖庫SQL()

  1042.         SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC"

  1043.         CmdSet_For_dr()

  1044.     End Sub

  1045.     Friend Sub SQL_合約清單_簽回存檔_圖片讀取1()

  1046.         ConnOpen_工程圖庫SQL()

  1047.         SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC"

  1048.         CmdSet_For_DGV()

  1049.     End Sub

  1050.     Friend Sub SQL_合約控制表簽回檔注記()

  1051.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET " & SQL2 & " = N'" & BL1 & "', 簽回檔圖庫 = N'" & 圖片庫 & "' WHERE 合約編號 LIKE N'" & PA1 & "'" : CmdSet_For_dr()

  1052.     End Sub

  1053.     Friend Sub SQL_合約清單_簽回存檔_圖片刪除()

  1054.         ConnOpen_工程圖庫SQL()

  1055.         SQL1 = "DELETE 合約文件簽回圖檔 WHERE  (合約編號 LIKE N'" & PA1 & "') AND (文件號 LIKE N'" & PA3 & "')"

  1056.         CmdSet_For_dr()

  1057.     End Sub

  1058.     '---------------------------合約文件簽核控制表----------------------------------------------------------------------------------------------------------------------------------------------

  1059.     Friend Sub SQL_合約文件簽核控制表()

  1060.         ConnOpen()

  1061.         SQL1 = "SELECT      合約編號, 工程名稱_中, 工程名稱_英, 合約停止 AS 報價完成, 報價放行 AS 報價核准, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 

  1062.                             保固簽回 AS 開始保固 , 保固簽回, 簽回檔圖庫, 保固期限

  1063.                 FROM        合約控制表 

  1064.                 WHERE      (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  1065.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  1066.                             工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') " & SQL2 & SQL3 & SQL4 & "

  1067.                 ORDER BY    約號排序 DESC, 約號甲方, 約號尾序"

  1068.         CmdSet_For_DGV()

  1069.     End Sub

  1070.     '---------------------------合約報價單審核----------------------------------------------------------------------------------------------------------------------------------------------

  1071.     Friend Sub SQL_合約清單_報價放行_存檔()

  1072.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價放行 = '1' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  1073.     End Sub

  1074.     Friend Sub SQL_合約清單_報價放行用()

  1075.         ConnOpen()

  1076.         If PA = "" Then

  1077.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  1078.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  1079.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 

  1080.                             簽回檔圖庫, 報價簽回 AS 簽回

  1081.                 FROM        合約控制表

  1082.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%'  AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL)

  1083.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  1084.         Else

  1085.             SQL1 = "SELECT  合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 

  1086.                             工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 

  1087.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 

  1088.                             簽回檔圖庫, 報價簽回 AS 簽回

  1089.                 FROM        合約控制表

  1090.                 WHERE       合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 

  1091.                             工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 

  1092.                             工程名稱_英 LIKE N'%" & PA & "%'  AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL)

  1093.                 ORDER BY    約號排序  DESC, 約號尾序, 約號甲方, 合約期數"

  1094.         End If

  1095.         CmdSet_For_DGV()

  1096.     End Sub

  1097. End Module