HX-PGS-ERP-SYS
/
HX-PGS-ERP-SYS-SIU
關註 4
收藏 0
複製 0
程式碼 問題管理 0 合併請求 0 版本發佈 0 Wiki Activity
暫無描述
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 Commit
1 分支
分支: master
分支列表 標籤列表
${ item.name }
Create branch ${ searchTerm }
from 'master'
${ noResults }
HX-PGS-ERP-SYS-SIU/0、MyModule/主資料庫/SQL_業務系統管理.vb

SQL_業務系統管理.vb 128KB
永久連結 文件歷史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365 
  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.保固期限, QQ3.合約號 AS AB3, QQ4.合約編號 AS AB4, QQ1.工程主管 AS [" & 表頭(1) & "]

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

  13.                                   第四期比例, 第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限, 工程主管

  14.                         FROM      合約控制表  WHERE  (合約停止 = 0 OR  合約停止 IS NULL) AND (作廢 = 0 OR 作廢 IS NULL)

  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  倉儲明細表

  20.                         GROUP BY  合約編號, 乙方, 甲方, 序號, 尾號) AS QQ4 ON QQ1.合約編號 = QQ4.合約編號 FULL OUTER JOIN

  21.                        (SELECT    合約號 FROM  採購單明細表  GROUP BY  合約號) AS QQ3 ON QQ1.合約編號 = QQ3.合約號 FULL OUTER JOIN

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

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

  24.                 WHERE  (QQ1.約號甲方 LIKE N'" & PA & "%' OR QQ2.甲方 LIKE N'" & PA & "%') ORDER BY QQ1.約號排序 DESC"  ' AND  QQ1.合約編號 NOT LIKE '%0H-1%'

  25.         CmdSet_For_DGV()

  26.     End Sub

  27.     Friend Sub SQL_甲1()

  28.         ConnOpen() : SQL1 = "SELECT  約號甲方  FROM  合約控制表 WHERE (作廢 = 0) GROUP BY  約號甲方" : CmdSet_For_DGV()

  29.     End Sub

  30.     Friend Sub SQL_甲2()

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

  32.     End Sub

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

  34.         Dim DDR(16) As String

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

  36.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(0) = "合約控制表、" : Else : DDR(0) = "Tabel Kontrol Kontrak、" : End If: Else

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

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

  39.         End If

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

  41.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(1) = "合約報價係數、" : Else : DDR(1) = "Koefisien kutipan kontrak、" : End If : Else

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

  43.         End If

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

  45.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(2) = "合約報價明細表、" : Else : DDR(2) = "Jadwal Penawaran Kontrak、" : End If : Else

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

  47.         End If

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

  49.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(3) = "合約報價總表、" : Else : DDR(3) = "Ringkasan Kutipan Kontrak、" : End If : Else

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

  51.         End If

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

  53.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(4) = "合約明細表、" : Else : DDR(4) = "Jadwal Kontrak、" : End If : Else

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

  55.         End If

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

  57.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(5) = "合約本文、" : Else : DDR(5) = "Teks Kontrak、" : End If : Else

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

  59.         End If

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

  61.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(6) = "合約試算分表、" : Else : DDR(6) = "Neraca Percobaan Kontrak、" : End If : Else

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

  63.         End If

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

  65.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(7) = "合約試算控制表、" : Else : DDR(7) = "Tabel kontrol Perhitungan Uji Coba Kontrak、" : End If : Else

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

  67.         End If

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

  69.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(8) = "合約試算明細表、" : Else : DDR(8) = "Neraca Percobaan Kontrak、" : End If : Else

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

  71.         End If

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

  73.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(9) = "合約請款、" : Else : DDR(9) = "Pembayaran Kontrak、" : End If : Else

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

  75.         End If

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

  77.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(10) = "合約附錄、" : Else : DDR(10) = "Lampiran Kontrak、" : End If : Else

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

  79.         End If

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

  81.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(11) = "合約文檔控制表、" : Else : DDR(11) = "Tabel Kontrol Dokumen Kontrak、" : End If : Else

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

  83.         End If

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

  85.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(12) = "合約文檔操作紀錄、" : Else : DDR(12) = "Catatan Operasi Dokumen Kontrak、" : End If : Else

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

  87.         End If

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

  89.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(13) = "合約文檔說明、" : Else : DDR(13) = "Uraian Dokumen Kontrak、" : End If : Else

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

  91.         End If

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

  93.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(14) = "工程人員統計表、" : Else : DDR(14) = "Statistik personel teknik、" : End If : Else

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

  95.         End If

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

  97.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(15) = "工程責任表、" : Else : DDR(15) = "Formulir Tanggung Jawab Rekayasa、" : End If : Else

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

  99.         End If

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

  101.         If dr.Read Then : If 系統語言 = "繁體中文" Then : DDR(16) = "工程進度表、" : Else : DDR(16) = "Jadwal proyek、" : End If : Else

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

  103.         End If

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

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

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

  107.         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 合約編號 = N'" & PA18 & "', 乙方 = N'" & PA22 & "', 甲方 = N'" & PA19 & "', 序號 = N'" & PA20 & "', 尾號 = N'" & PA21 & "'  

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

  109. 

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

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

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

  113.         Next

  114. 

  115.         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

  116.            DDR(8) = Nothing And DDR(9) = Nothing And DDR(10) = Nothing And DDR(11) = Nothing And DDR(12) = Nothing And DDR(13) = Nothing And DDR(14) = Nothing And DDR(15) = Nothing And

  117.            DDR(16) = Nothing Then : Else

  118.             If 系統語言 = "繁體中文" Then

  119.                 通知訊息 = 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) &

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

  121.             Else

  122.                 通知訊息 = 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) &

  123.                            "Karena duplikasi data, transfer belum dilakukan, harap ubah data secara manual!!"

  124.             End If

  125.             訊息類型 = "1" : 通知視窗.ShowDialog()

  126.         End If

  127.     End Sub

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

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

  130.         ConnOpen()

  131.         SQL1 = "SELECT      合約控制表.合約編號 AS [" & 表頭(0) & "], 合約控制表.工程名稱_中 AS 工程名稱, 合約控制表.工程名稱_英 AS [Nama Proyek], 

  132.                                 合約控制表.預估工資成本  AS [" & 表頭(1) & "], 合約控制表.預估工資報價 AS [" & 表頭(2) & "], 合約控制表.工資利潤比 AS [" & 表頭(3) & "], 

  133.                                 合約控制表.預估材料成本 AS [" & 表頭(4) & "], 合約控制表.預估材料報價 AS [" & 表頭(5) & "], 合約控制表.材料利潤比 AS [" & 表頭(6) & "], 

  134.                                 合約控制表.總成本 AS [" & 表頭(7) & "], 合約控制表.總報價 AS [" & 表頭(8) & "], 合約控制表.利潤比1, 合約控制表.預估利潤 AS [" & 表頭(9) & "], 

  135.                                 合約控制表.利潤比2, 合約控制表.幣別, [HX-GPS-ERP-SYS].dbo.歷史匯率表.中心匯率, [HX-GPS-ERP-SYS].dbo.歷史匯率表.美金匯率, 

  136.                                 [HX-GPS-ERP-SYS].dbo.歷史匯率表.印尼盾 AS 印尼匯率

  137.                     FROM        合約控制表 LEFT OUTER JOIN

  138.                                 [HX-GPS-ERP-SYS].dbo.歷史匯率表 ON LEFT(合約控制表.立約日期, 4) = LEFT([HX-GPS-ERP-SYS].dbo.歷史匯率表.年, 4) AND 

  139.                                 SUBSTRING(合約控制表.立約日期, 6, 2) = LEFT([HX-GPS-ERP-SYS].dbo.歷史匯率表.月, 2)

  140.                     WHERE      (合約控制表.約號甲方 LIKE N'%" & PA46 & "%') AND (合約控制表.合約停止 IS NULL OR

  141.                                 合約控制表.合約停止 = 0) AND (合約控制表.總報價 IS NOT NULL) AND (合約控制表.總報價 > 0) AND 

  142.                                (合約控制表.報價放行 = 1) 

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

  144.         CmdSet_For_DGV()

  145.     End Sub

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

  147.         ConnOpen()

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

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

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

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

  152.         CmdSet_For_dr()

  153.     End Sub

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

  155.     Friend Sub SQL_合約存放修改()

  156.         ConnOpen()

  157.         SQL1 = "UPDATE  合約控制表  SET 合約存放 = '" & 圖片庫 & "'  WHERE  (合約編號 LIKE '" & PA1 & "')"

  158.         CmdSet_For_dr()

  159.     End Sub

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

  161.         ConnOpen()

  162.         SQL1 = "SELECT     合約控制表.合約編號, 合約控制表.立約日期, 合約控制表.工程名稱_中, 合約控制表.工程名稱_英, 

  163.                            合約控制表.合約存放, 合約控制表.總報價, 合約控制表.工程總價, HX選擇按鈕.選擇 AS C, QQ.內容

  164.                 FROM       合約控制表 LEFT OUTER JOIN

  165.                           (SELECT  合約號碼, 內容  FROM  合約報價總表  WHERE  (內容 LIKE '稅金%') AND (合約號碼 NOT LIKE '')

  166.                            GROUP BY  合約號碼, 內容) AS QQ ON 合約控制表.合約編號 = QQ.合約號碼 LEFT OUTER JOIN

  167.                            HX選擇按鈕 ON 合約控制表.合約編號 = HX選擇按鈕.對應

  168.                 WHERE     (合約控制表.約號甲方 LIKE N'%" & PA46 & "%') AND (合約控制表.合約停止 = 0 OR

  169.                            合約控制表.合約停止 IS NULL) AND (合約控制表.作廢 = 0) AND (合約控制表.工程總價 <> 0)

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

  171.         CmdSet_For_DGV()

  172.     End Sub

  173.     Friend Sub SQL_合約本文下載()

  174.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 文檔 FROM 合約文檔 WHERE 合約號 LIKE N'" & PA1 & "' AND 文件號 LIKE N'" & PA2 & "'" : CmdSet_For_DGV()

  175.     End Sub

  176.     Friend Sub SQL_合約本文查詢()

  177.         ConnOpen_工程圖庫SQL() : SQL1 = "SELECT 文檔 FROM 合約文檔 WHERE 合約號 LIKE N'" & PA1 & "' AND 文件號 LIKE N'" & PA2 & "'" : CmdSet_For_dr()

  178.     End Sub

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

  180.         ConnOpen_工程圖庫SQL()

  181.         SQL1 = "SELECT     合約號 AS [" & 表頭(0) & "], 版次 AS [" & 表頭(1) & "]  FROM  合約文檔  WHERE  (文件號 LIKE '範本')  ORDER BY   合約號 DESC"

  182.         CmdSet_For_DGV()

  183.     End Sub

  184.     Friend Sub SQL_合約本文導入_新增()

  185.         ConnOpen_工程圖庫SQL()

  186.         SQL1 = "INSERT INTO 合約文檔 (合約號, 文件號, 版次, 文檔) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"

  187.         CmdSet_For_dr_pic()

  188.     End Sub

  189.     Friend Sub SQL_合約本文導入_修改()

  190.         ConnOpen_工程圖庫SQL()

  191.         SQL1 = "UPDATE 合約文檔 SET  版次 = N'" & PA3 & "', 文檔 = @binary_file WHERE 合約號 LIKE N'" & PA1 & "' AND 文件號 LIKE N'" & PA2 & "'"

  192.         CmdSet_For_dr_pic()

  193.     End Sub

  194.     Friend Sub SQL_合約本文導入_刪除()

  195.         ConnOpen_工程圖庫SQL()

  196.         SQL1 = "DELETE 合約文檔 WHERE 合約號 LIKE N'" & PA1 & "' AND 文件號 LIKE N'" & PA2 & "'"

  197.         CmdSet_For_dr()

  198.     End Sub

  199.     Friend Sub SQL_合約作廢查詢()

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

  201.     End Sub

  202.     Friend Sub SQL_合約作廢查詢修改()

  203.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 作廢 = '" & PA1 & "'  WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  204.     End Sub

  205.     Friend Sub SQL_合約作廢查詢預設()

  206.         ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 作廢 = '0' WHERE 作廢 IS NULL" : CmdSet_For_dr()

  207.     End Sub

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

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

  210.     End Sub

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

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

  213.     End Sub

  214.     Friend Sub SQL_合約查詢()

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

  216.     End Sub

  217.     Friend Sub SQL_合約新增()

  218.         ConnOpen()

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

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

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

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

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

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

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

  226.                         '0')"

  227.         CmdSet_For_dr()

  228.     End Sub

  229.     Friend Sub SQL_合約刪除()

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

  231.     End Sub

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

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

  234.     End Sub

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

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

  237.     End Sub

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

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

  240.     End Sub

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

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

  243.     End Sub

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

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

  246.     End Sub

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

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

  249.     End Sub

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

  251.         ConnOpen()

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

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

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

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

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

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

  258.                                       歸零位數 = '" & PA9 & "', 匯率 = '" & PA48 & "'

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

  260.         CmdSet_For_dr()

  261.     End Sub

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

  263.         ConnOpen()

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

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

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

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

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

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

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

  271.         CmdSet_For_dr()

  272.     End Sub

  273.     Friend Sub SQL_合約係數指定修改()

  274.         ConnOpen()

  275.         SQL1 = "UPDATE 合約控制表 SET 係數種類 = N'" & PA36 & "' WHERE 合約編號 LIKE N'" & PA & "'"

  276.         CmdSet_For_dr()

  277.     End Sub

  278.     Friend Sub SQL_合約停用()

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

  280.     End Sub

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

  282.         ConnOpen()

  283.         SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA1 & "', 乙方 = N'" & PA3 & "', 甲方 = N'" & PA2 & "', 立約日 = N'" & PA4 & "', 序號 = N'" & PA5 & "' 

  284.                 WHERE 合約號 LIKE N'" & PA & "'"

  285.         CmdSet_For_dr()

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

  287.         ConnOpen()

  288.         SQL1 = "UPDATE 倉儲明細表 SET 合約編號 = N'" & PA1 & "', 乙方 = N'" & PA3 & "', 甲方 = N'" & PA2 & "', 序號 = N'" & PA4 & "', 尾號 = N'" & PA5 & "'  

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

  290.         CmdSet_For_dr()

  291.     End Sub

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

  293.         ConnOpen_工程SQL()

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

  295.         CmdSet_For_dr()

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

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

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

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

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

  301.     End Sub

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

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

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

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

  306.     End Sub

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

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

  309.     End Sub

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

  311.         ConnOpen()

  312.         If 合約請款單.關鍵字搜尋_tb.Text = "" Then

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

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

  315.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期 AS [" & 表頭(3) & "], 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限

  316.                 FROM        合約控制表

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

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

  319.         Else

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

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

  322.                             最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期 AS [" & 表頭(3) & "], 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限

  323.                 FROM        合約控制表

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

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

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

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

  328.         End If

  329.         CmdSet_For_DGV()

  330.     End Sub

  331.     Friend Sub SQL_合約清單()

  332.         ConnOpen()

  333.         If 附錄合約.關鍵字搜尋_rtb.Text = "" Then

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

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

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

  337.                 FROM        合約控制表

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

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

  340.         Else

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

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

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

  344.                 FROM        合約控制表

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

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

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

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

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

  350.         End If

  351.         CmdSet_For_DGV()

  352.     End Sub

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

  354.         ConnOpen()

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

  356.                 FROM     合約本文

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

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

  359.         CmdSet_For_DGV()

  360.     End Sub

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

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

  363.     End Sub

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

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

  366.     End Sub

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

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

  369.     End Sub

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

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

  372.     End Sub

  373.     Friend Sub SQL單位讀取()

  374.         ConnOpen() : SQL1 = "SELECT  單位  FROM  合約報價明細表  GROUP BY  單位  ORDER BY  單位" : CmdSet_For_dr()

  375.     End Sub

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

  377.         ConnOpen() : SQL1 = "SELECT 約號甲方 FROM 合約控制表 WHERE 約號甲方 NOT LIKE 'GCM' GROUP BY 約號甲方 ORDER BY 約號甲方" : CmdSet_For_dr()

  378.     End Sub

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

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

  381.     End Sub

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

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

  384.     End Sub

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

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

  387.     End Sub

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

  389.         ConnOpen()

  390.         SQL1 = "SELECT 合約編號, 期數, 順序 AS [" & 表頭(12) & "], 內容 AS [" & 表頭(13) & "], 比例 AS [" & 表頭(14) & "], 金額 AS [" & 表頭(15) & "] FROM 合約明細表 

  391.                 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " ORDER BY 順序"

  392.         CmdSet_For_DGV()

  393.     End Sub

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

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

  396.     End Sub

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

  398.         ConnOpen()

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

  400.         CmdSet_For_dr()

  401.     End Sub

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

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

  404.     End Sub

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

  406.         ConnOpen()

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

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

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

  410.         CmdSet_For_dr()

  411.     End Sub

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

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

  414.     End Sub

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

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

  417.         ConnOpen()

  418.         If PA = "" Then

  419.             SQL2 = ""

  420.         Else

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

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

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

  424.         End If

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

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

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

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

  429.                 ORDER BY 簡稱"

  430.         CmdSet_For_DGV()

  431.     End Sub

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

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

  434.     End Sub

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

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

  437.     End Sub

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

  439.         ConnOpen()

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

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

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

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

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

  445.         CmdSet_For_dr()

  446.     End Sub

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

  448.         ConnOpen()

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

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

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

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

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

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

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

  456.         CmdSet_For_dr()

  457.     End Sub

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

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

  460.     End Sub

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

  462.     Friend Sub SQL合約描述下拉()

  463.         ConnOpen()

  464.         SQL1 = "SELECT  描述_中, 描述_印  FROM  合約報價項目表  WHERE  (描述_中 NOT LIKE '')  GROUP BY  描述_中, 描述_印  ORDER BY  描述_中"

  465.         CmdSet_For_dr()

  466.     End Sub

  467.     Friend Sub SQL合約其他下拉()

  468.         ConnOpen()

  469.         SQL1 = "SELECT  其他_中, 其他_印  FROM  合約報價項目表  

  470.                 WHERE  (主項_中 LIKE N'%" & PB1 & "%') AND (其他_中 NOT LIKE N'')  GROUP BY  其他_中, 其他_印  ORDER BY   其他_中"

  471.         CmdSet_For_dr()

  472.     End Sub

  473.     Friend Sub SQL合約項目下拉()

  474.         ConnOpen()

  475.         SQL1 = "SELECT  主名_中, 主名_印  FROM  合約報價項目表  WHERE  (層級 LIKE N'第二項') AND (主項_中 LIKE N'" & PB1 & "')  GROUP BY  主名_中, 主名_印  ORDER BY   主名_中"

  476.         CmdSet_For_dr()

  477.     End Sub

  478.     Friend Sub SQL合約項目2下拉()

  479.         ConnOpen()

  480.         SQL1 = "SELECT  項名_中, 項名_印  FROM  合約報價項目表  

  481.                 WHERE  (層級 LIKE N'" & PB & "') AND (主項_中 LIKE N'" & PB1 & "') AND (主名_中 LIKE N'" & PB2 & "')  GROUP BY  項名_中, 項名_印  ORDER BY   項名_中"

  482.         CmdSet_For_dr()

  483.     End Sub

  484.     Friend Sub SQL合約主項下拉()

  485.         ConnOpen() : SQL1 = "SELECT  主項_中, 主項_印  FROM  合約報價項目表  WHERE  (層級 LIKE N'第一項')  GROUP BY  主項_中, 主項_印  ORDER BY  主項_中" : CmdSet_For_dr()

  486.     End Sub

  487.     Friend Sub SQL_合約項目查詢()

  488.         ConnOpen()

  489.         SQL1 = "SELECT  主項_中 FROM  合約報價項目表  

  490.                 WHERE  (層級 LIKE  N'" & PB & "') AND (主項_中 LIKE N'" & PB1 & "') AND (主名_中 LIKE N'" & PB3 & "') AND 

  491.                        (項名_中 LIKE N'" & PB9 & "') AND (描述_中 LIKE N'" & PB5 & "') AND (其他_中 LIKE N'" & PB7 & "')"

  492.         CmdSet_For_dr()

  493.     End Sub

  494.     Friend Sub SQL_合約項目新增()

  495.         ConnOpen()

  496.         SQL1 = "INSERT INTO 合約報價項目表 (主項_中, 主項_印, 主名_中, 主名_印, 項名_中, 項名_印, 描述_中, 描述_印, 其他_中, 其他_印, 層級) 

  497.                 VALUES (N'" & PB1 & "', N'" & PB2 & "', N'" & PB3 & "', N'" & PB4 & "', N'" & PB9 & "', N'" & PB10 & "', N'" & PB5 & "', 

  498.                         N'" & PB6 & "', N'" & PB7 & "', N'" & PB8 & "', N'" & PB & "')"

  499.         CmdSet_For_dr()

  500.     End Sub

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

  502.         ConnOpen()

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

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

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

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

  507.                  FROM   合約控制表  

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

  509.         CmdSet_For_dr()

  510.     End Sub

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

  512.         ConnOpen()

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

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

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

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

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

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

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

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

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

  522.         CmdSet_For_dr()

  523.     End Sub

  524.     Friend Sub SQL_BOM表控制1(群組碼 As String)

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

  526.     End Sub

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

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

  529.     End Sub

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

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

  532.     End Sub

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

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

  535.     End Sub

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

  537.         ConnOpen()

  538.         If PA = "" Then

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

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

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

  542.                 FROM        合約控制表

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

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

  545.         Else

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

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

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

  549.                 FROM        合約控制表

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

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

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

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

  554.         End If

  555.         CmdSet_For_DGV()

  556.     End Sub

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

  558.         ConnOpen()

  559.         If 系統語言 = "繁體中文" Then : SQL2 = "工程名稱_中" : SQL3 = "工程名稱_英" : Else : SQL2 = "工程名稱_英" : SQL3 = "工程名稱_中" : End If

  560.         If PA = "" Then

  561.             SQL1 = "SELECT  合約編號 AS [" & 表頭(7) & "], 客戶名稱, 負責人A, 工程地點, 客戶地址, " & SQL2 & " AS [" & 表頭(8) & "], " & SQL3 & ", 我司公司, 負責人B, 我司地址, 

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

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

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

  565.                 FROM        合約控制表

  566.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' " & SQL6 & "

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

  568.         Else

  569.             SQL1 = "SELECT  合約編號 AS [" & 表頭(7) & "], 客戶名稱, 負責人A, 工程地點, 客戶地址, " & SQL2 & " AS [" & 表頭(8) & "], " & SQL3 & ", 我司公司, 負責人B, 我司地址, 

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

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

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

  573.                 FROM        合約控制表

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

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

  576.                             工程名稱_英 LIKE N'%" & PA & "%') " & SQL6 & "

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

  578.         End If

  579.         CmdSet_For_DGV()

  580.     End Sub

  581.     Friend Sub SQL_合約清單_BOM用()

  582.         ConnOpen()

  583.         If PA = "" Then

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

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

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

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

  588.                 FROM        合約控制表

  589.                 WHERE       約號甲方 LIKE N'%" & PA46 & "%' " & SQL6 & "

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

  591.         Else

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

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

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

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

  596.                 FROM        合約控制表

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

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

  599.                             工程名稱_英 LIKE N'%" & PA & "%') " & SQL6 & "

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

  601.         End If

  602.         CmdSet_For_DGV()

  603.     End Sub

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

  605.         ConnOpen()

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

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

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

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

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

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

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

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

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

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

  616.         CmdSet_For_dr()

  617.     End Sub

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

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

  620.     End Sub

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

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

  623.     End Sub

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

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

  626.     End Sub

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

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

  629.     End Sub

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

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

  632.     End Sub

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

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

  635.     End Sub

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

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

  638.     End Sub

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

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

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

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

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

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

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

  646.                 ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  647.     End Sub

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

  649.         ConnOpen()

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

  651.         CmdSet_For_DGV()

  652.     End Sub

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

  654.         ConnOpen()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  675.         CmdSet_For_DGV()

  676.     End Sub

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

  678.         ConnOpen()

  679.         SQL1 = "SELECT  合約編號 AS No, [樓層/迴路], 數量, 公式, 備註, 表頭, 合約編號 AS 存檔

  680.                 FROM    合約試算控制表

  681.                 WHERE  (合約編號 LIKE N'" & PA & "') AND (表號 LIKE N'" & PA2 & "')"

  682.         CmdSet_For_DGV()

  683.     End Sub

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

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

  686.     End Sub

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

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

  689.     End Sub

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

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

  692.     End Sub

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

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

  695.     End Sub

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

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

  698.     End Sub

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

  700.         ConnOpen()

  701.         SQL1 = "UPDATE 合約試算控制表 SET [樓層/迴路] = N'" & PA4 & "', 數量 = N'" & PA6 & "', 公式 = N'" & PA7 & "', 備註 = N'" & PA8 & "'

  702.                 WHERE (合約編號 LIKE N'" & PA & "' AND 表號  LIKE N'" & PA2 & "' AND 表頭 LIKE N'" & PA5 & "')"

  703.         CmdSet_For_dr()

  704.     End Sub

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

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

  707.     End Sub

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

  709.         ConnOpen()

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

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

  712.                 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', 

  713.                           '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')"

  714.         CmdSet_For_dr()

  715.     End Sub

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

  717.         ConnOpen()

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

  719.                         明細連動, HX空白圖片.圖片 AS [連動.], HX空白圖片.圖片 AS [新增資料.], HX空白圖片.圖片 AS [總表編輯.], HX空白圖片.圖片 AS [刪除.], HX選擇按鈕.選擇 AS 存檔

  720.                 FROM    合約報價總表 LEFT OUTER JOIN HX選擇按鈕 ON 合約報價總表.排序 = HX選擇按鈕.對應 LEFT OUTER JOIN HX空白圖片 ON 合約報價總表.排序 = HX空白圖片.選擇

  721.                 WHERE   合約號碼 LIKE N'" & PA & "' ORDER BY 排序"

  722.         CmdSet_For_DGV()

  723.     End Sub

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

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

  726.     End Sub

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

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

  729.     End Sub

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

  731.         ConnOpen()

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

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

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

  735.         CmdSet_For_dr()

  736.     End Sub

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

  738.         ConnOpen()

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

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

  741.         CmdSet_For_dr()

  742.     End Sub

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

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

  745.     End Sub

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

  747.         ConnOpen()

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

  749.         CmdSet_For_DGV()

  750.     End Sub

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

  752.         ConnOpen()

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

  754.         CmdSet_For_dr()

  755.     End Sub

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

  757.         ConnOpen()

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

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

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

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

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

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

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

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

  766.                           QQQ.品名, 合約報價明細表.料號 AS [" & 表頭(9) & "], QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 

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

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

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

  770.                           QQQ.AA8, 合約報價明細表.不計算 AS [" & 表頭(10) & "], HX空白圖片.圖片 AS [Add], HX空白圖片.圖片 AS [Save], 

  771.                           HX空白圖片.圖片 AS [Dele], 合約報價明細表.不計算 AS 存檔, 合約報價明細表.地點_中, 合約報價明細表.地點_印, 

  772.                           合約報價明細表.主項_中, 合約報價明細表.主項_印, 合約報價明細表.主名_中, 合約報價明細表.主名_印, 合約報價明細表.項名_中, 

  773.                           合約報價明細表.項名_印, 合約報價明細表.描述_中,合約報價明細表. 描述_印, 合約報價明細表.其他_中, 合約報價明細表.其他_印, 

  774.                           合約報價明細表.層級, 合約報價明細表.工資係數, 合約報價明細表.工資單價, 合約報價明細表.實際數量 AS [" & 表頭(17) & "], 

  775.                           合約報價明細表.數量公式 AS [" & 表頭(18) & "], 合約報價明細表.工資成本單價 AS [" & 表頭(19) & "], 

  776.                           合約報價明細表.工資公式 AS [" & 表頭(20) & "], 合約報價明細表.材料成本單價 AS [" & 表頭(21) & "], 

  777.                           合約報價明細表.材料公式 AS [" & 表頭(22) & "], 合約報價明細表.不印工資 AS [" & 表頭(23) & "], 

  778.                           合約報價明細表.不印材料 AS [" & 表頭(24) & "], 物料編碼庫.工資公式 AS 物料公式, QQQ.參數1, QQQ.參數2, QQQ.參數3

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

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

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

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

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

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

  785.                                     物料規格表.參數1, 物料規格表.參數2, 物料規格表.參數3

  786.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

  794.                            物料編碼庫 ON QQQ.料號原則 = 物料編碼庫.料號原則  LEFT OUTER JOIN

  795.                            HX空白圖片 ON QQQ.A1 = HX空白圖片.選擇 RIGHT OUTER JOIN

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

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

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

  799.         CmdSet_For_DGV()

  800.     End Sub

  801.     Friend Sub SQL_合約報價明細表_編輯用2()

  802.         ConnOpen()

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

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

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

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

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

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

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

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

  811.                           QQQ.品名, 合約報價明細表.料號 AS [" & 表頭(9) & "], QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 

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

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

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

  815.                           QQQ.AA8, 合約報價明細表.不計算 AS [" & 表頭(10) & "], HX空白圖片.圖片 AS [Add], HX空白圖片.圖片 AS [Save], HX空白圖片.圖片 AS [Dele]

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

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

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

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

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

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

  822.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

  830.                            HX空白圖片 ON QQQ.A1 = HX空白圖片.選擇 RIGHT OUTER JOIN

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

  832.                 WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "') AND (合約報價明細表.項目 NOT LIKE '%[0-9]%') AND (合約報價明細表.項目 NOT LIKE '')

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

  834.         CmdSet_For_DGV()

  835.     End Sub

  836.     Friend Sub SQL_合約報價明細表_編輯用1()

  837.         ConnOpen()

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

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

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

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

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

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

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

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

  846.                           QQQ.品名, 合約報價明細表.料號 AS [" & 表頭(9) & "], QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, 

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

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

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

  850.                           QQQ.AA8, 合約報價明細表.不計算 AS [" & 表頭(10) & "], HX空白圖片.圖片 AS [Add], HX空白圖片.圖片 AS [Save], HX空白圖片.圖片 AS [Dele]

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

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

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

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

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

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

  857.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

  865.                            HX空白圖片 ON QQQ.A1 = HX空白圖片.選擇 RIGHT OUTER JOIN

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

  867.                 WHERE     (合約報價明細表.合約號碼 LIKE N'" & PA & "') AND (合約報價明細表.項目 NOT LIKE '%[0-9]%') AND (合約報價明細表.項目 NOT LIKE '%*%') AND 

  868.                           (合約報價明細表.項目 NOT LIKE '')

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

  870.         CmdSet_For_DGV()

  871.     End Sub

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

  873.         ConnOpen()

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

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

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

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

  878.                                           D5 = N'" & BL5 & "', D6 = N'" & BL6 & "', D7 = N'" & BL7 & "', D8 = N'" & BL8 & "', 預設 = 0, 地點_中 = N'" & PB1 & "', 地點_印 = N'" & PB2 & "', 

  879.                                           主項_中 = N'" & PB3 & "', 主項_印 = N'" & PB4 & "', 主名_中 = N'" & PB5 & "', 主名_印 = N'" & PB6 & "', 項名_中 = N'" & PB7 & "', 

  880.                                           項名_印 = N'" & PB8 & "', 描述_中 = N'" & PB9 & "', 描述_印 = N'" & PB10 & "', 其他_中 = N'" & PB11 & "', 其他_印 = N'" & PB12 & "', 

  881.                                           層級 = N'" & PB13 & "', 工資係數 = N'" & PB14 & "', 工資單價 = N'" & PB15 & "', 數量公式 = N'" & PB16 & "', 工資公式 = N'" & PB17 & "', 

  882.                                           材料公式 = N'" & PB18 & "', 不印工資 = N'" & PB19 & "', 不印材料 = N'" & PB20 & "'

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

  884.         CmdSet_For_dr()

  885.     End Sub

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

  887.         ConnOpen()

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

  889.                                            預設 = 1 " & SQL6 & "

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

  891.         CmdSet_For_dr()

  892.     End Sub

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

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

  895.     End Sub

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

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

  898.     End Sub

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

  900.         ConnOpen()

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

  902.                                             料號, 不計算, 材料係數, D1, D2, D3, D4, D5, D6, D7, D8, 預設, 工資係數, 工資單價) 

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

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

  905.                          '" & BL3 & "', '" & BL4 & "', '" & BL5 & "', '" & BL6 & "', '" & BL7 & "', '" & BL8 & "', '" & BL9 & "', N'" & PB14 & "', N'" & PB15 & "')"

  906.         CmdSet_For_dr()

  907.     End Sub

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

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

  910.     End Sub

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

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

  913.     End Sub

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

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

  916.     End Sub

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

  918.         ConnOpen()

  919.         SQL1 = "UPDATE 合約報價係數 SET 係數 = N'" & PA2 & "', 單位 = N'" & PA3 & "'  WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'"

  920.         CmdSet_For_dr()

  921.     End Sub

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

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

  924.     End Sub

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

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

  927.     End Sub

  928.     Friend Sub SQL_匯率查詢()

  929.         ConnOpen() : SQL1 = "SELECT 中心匯率, 美金匯率, 印尼盾 FROM 歷史匯率表 WHERE (年 LIKE '" & PA48 & "%') AND (月 LIKE '" & PA49 & "%')" : CmdSet_For_dr()

  930.     End Sub

  931.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

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

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

  934.     End Sub

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

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

  937.     End Sub

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

  939.         ConnOpen()

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

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

  942.         CmdSet_For_DGV()

  943.     End Sub

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

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

  946.     End Sub

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

  948.         ConnOpen()

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

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

  951.         CmdSet_For_dr()

  952.     End Sub

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

  954.         ConnOpen()

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

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

  957.         CmdSet_For_dr()

  958.     End Sub

  959.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

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

  961.         ConnOpen()

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

  963.         CmdSet_For_DGV()

  964.     End Sub

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

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

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

  968.     End Sub

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

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

  971.     End Sub

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

  973.         ConnOpen()

  974.         SQL1 = "SELECT 請款編號, 期數 AS [" & 表頭(6) & "], 請款內容, 比例 AS [" & 表頭(7) & "], 請款金額 AS [" & 表頭(8) & "], 稅金 AS [" & 表頭(9) & "], 付款期限, 審批意見, 

  975.                        請款總額 AS [" & 表頭(10) & "], 申請時間 AS [" & 表頭(11) & "], 期數 AS 分期 

  976.                 FROM 合約請款 WHERE (合約編號 LIKE N'" & PA & "') 

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

  978.         CmdSet_For_DGV()

  979.     End Sub

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

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

  982.     End Sub

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

  984.         ConnOpen()

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

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

  987.         CmdSet_For_dr()

  988.     End Sub

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

  990.         ConnOpen()

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

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

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

  994.         CmdSet_For_dr()

  995.     End Sub

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

  997.         ConnOpen()

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

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

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

  1001.         CmdSet_For_dr()

  1002.     End Sub

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

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

  1005.         ConnOpen()

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

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

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

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

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

  1011.                 FROM      合約控制表 LEFT OUTER JOIN

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

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

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

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

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

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

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

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

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

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

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

  1023.         CmdSet_For_DGV()

  1024.     End Sub

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

  1026.     Friend Sub SQL_合約控制表_工程主管預設()

  1027.         ConnOpen() : SQL1 = "UPDATE  合約控制表 SET  工程主管 = '' WHERE  (工程主管 IS NULL)" : CmdSet_For_dr()

  1028.     End Sub

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

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

  1031.     End Sub

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

  1033.         ConnOpen()

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

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

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

  1037.                             驗收開始日期, 驗收結果 AS [" & 表頭(5) & "], 驗收備註, 工地驗收備註, 驗收完成日期, 保固期限

  1038.                 FROM        合約控制表

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

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

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

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

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

  1044.         CmdSet_For_DGV()

  1045.     End Sub

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

  1047.         ConnOpen()

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

  1049.                           合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS [" & 表頭(6) & "], 合約報價明細表.驗收數量 AS [" & 表頭(7) & "], 

  1050.                           合約報價明細表.驗收數量 AS [" & 表頭(8) & "], 合約報價明細表.驗收備註 AS REMARKS, 合約報價明細表.流水號, 

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

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

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

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

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

  1056.                           QQQ.AA8

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

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

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

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

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

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

  1063.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

  1074.         CmdSet_For_DGV()

  1075.     End Sub

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

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

  1078.     End Sub

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

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

  1081.     End Sub

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

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

  1084.         ConnOpen()

  1085.         SQL1 = "SELECT     合約編號 AS [" & 表頭(0) & "], " & SQL3 & " AS [" & 表頭(1) & "], 工期 AS [" & 表頭(2) & "], 立約日期 AS [" & 表頭(3) & "], 

  1086.                            驗收開始日期 AS [" & 表頭(4) & "], 工期 AS [" & 表頭(6) & "], 驗收完成日期 AS [" & 表頭(5) & "], 驗收結果 AS [" & 表頭(7) & "], 

  1087.                            保固期限 AS [" & 表頭(8) & "], 驗收備註 AS [" & 表頭(9) & "], 工地驗收備註 AS [" & 表頭(10) & "], 工程主管 AS LEAD, 

  1088.                            簽回檔圖庫, 驗收簽回 AS [" & 表頭(12) & "]

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

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

  1091.         CmdSet_For_DGV()

  1092.     End Sub

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

  1094.         ConnOpen()

  1095.         SQL1 = "UPDATE 合約控制表 SET 驗收完成日期 = N'" & PA1 & "', 驗收結果 = N'" & PA2 & "', 驗收備註 = N'" & PA3 & "', 保固期限 = N'" & PA4 & "', 工期 = N'" & PA5 & "' 

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

  1097.         CmdSet_For_dr()

  1098.     End Sub

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

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

  1101.     End Sub

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

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

  1104.     End Sub

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

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

  1107.         ConnOpen()

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

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

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

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

  1112.                 FROM        合約控制表

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

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

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

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

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

  1118.         CmdSet_For_DGV()

  1119.     End Sub

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

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

  1122.     End Sub

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

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

  1125.         ConnOpen()

  1126.         SQL1 = "SELECT     合約控制表.合約編號 AS [" & 表頭(0) & "], 合約控制表." & SQL3 & " AS [" & 表頭(1) & "], 合約控制表.工期 AS [" & 表頭(2) & "], 

  1127.                            合約控制表.立約日期 AS [" & 表頭(3) & "], 合約控制表.第一期比例 AS [" & 表頭(4) & "], 合約控制表.第二期比例 AS [" & 表頭(5) & "], 

  1128.                            合約控制表.第三期比例 AS [" & 表頭(6) & "], 合約控制表.第四期比例 AS [" & 表頭(7) & "], 合約控制表.第五期比例 AS [" & 表頭(8) & "], 

  1129.                            合約控制表.預付款 AS [" & 表頭(9) & "], 合約控制表.到貨款 AS [" & 表頭(10) & "], 合約控制表.施工款 AS [" & 表頭(11) & "], 

  1130.                            合約控制表.驗收款 AS [" & 表頭(12) & "], 合約控制表.保留款 AS [" & 表頭(13) & "], HX空白圖片.圖片  AS [" & 表頭(14) & "], 

  1131.                            HX空白圖片.圖片 AS [" & 表頭(15) & "], HX空白圖片.圖片 AS [" & 表頭(16) & "], HX空白圖片.圖片 AS [" & 表頭(17) & "], 

  1132.                            HX空白圖片.圖片 AS [" & 表頭(18) & "], 合約控制表.驗收完成日期 AS [" & 表頭(19) & "], 合約控制表.保固期限 AS [" & 表頭(20) & "], 

  1133.                            合約控制表.驗收完成日期 AS [" & 表頭(21) & "], 合約控制表.驗收完成日期 AS [" & 表頭(22) & "], 合約控制表.剩餘款 AS [" & 表頭(23) & "], 

  1134.                            合約控制表.結案備註 AS [" & 表頭(24) & "], 客戶名稱 AS [" & 表頭(25) & "], 合約控制表.工程總價 AS [" & 表頭(26) & "], 

  1135.                            合約控制表.追加減 AS [" & 表頭(27) & "], 合約控制表.結算金額 AS [" & 表頭(28) & "], 合約控制表.已請款 AS [" & 表頭(29) & "],

  1136.                            工期 AS [" & 表頭(30) & "], 合約控制表.工程名稱_英 AS [" & 表頭(31) & "]

  1137.                 FROM       合約控制表 LEFT OUTER JOIN HX空白圖片 ON 合約控制表.合約編號 = HX空白圖片.選擇 " & SQL2 & "

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

  1139.         CmdSet_For_DGV()

  1140.     End Sub

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

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

  1143.     End Sub

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

  1145.     Friend Sub SQL_BOM表控制(群組碼 As String)

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

  1147.     End Sub

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

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

  1150.     End Sub

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

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

  1153.     End Sub

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

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

  1156.     End Sub

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

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

  1159.     End Sub

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

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

  1162.     End Sub

  1163.     Friend Sub SQL_BOM表明細()

  1164.         ConnOpen_工程SQL()

  1165.         SQL1 = "SELECT  工程項目BOM表明細.排序, 工程項目BOM表明細.排序 AS [" & 表頭(2) & "], 工程項目BOM表明細.項目 AS [" & 表頭(3) & "], 工程項目BOM表明細.單位 AS [" & 表頭(4) & "], 

  1166.                         工程項目BOM表明細.數量 AS [" & 表頭(5) & "], 工程項目BOM表明細.料號 AS [" & 表頭(6) & "], 

  1167.                         工程項目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, 

  1168.                         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

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

  1170.                        (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, 

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

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

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

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

  1175.                                  [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, 

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

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

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

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

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

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

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

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

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

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

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

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

  1188.         CmdSet_For_DGV()

  1189.     End Sub

  1190.     Friend Sub SQL_BOM表明細1()

  1191.         ConnOpen_工程SQL()

  1192.         SQL1 = "SELECT  工程項目BOM表明細.排序, 工程項目BOM表明細.排序 AS [" & 表頭(2) & "], 工程項目BOM表明細.項目 AS [" & 表頭(3) & "], 工程項目BOM表明細.單位 AS [" & 表頭(4) & "], 

  1193.                         工程項目BOM表明細.數量 AS [" & 表頭(5) & "], 工程項目BOM表明細.料號 AS [" & 表頭(6) & "], 

  1194.                         工程項目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, 

  1195.                         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, QQQ.S1 AS 選擇, 工程項目BOM表明細.數量

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

  1197.                        (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, 

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

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

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

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

  1202.                                  [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, 

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

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

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

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

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

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

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

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

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

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

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

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

  1215.         CmdSet_For_DGV()

  1216.     End Sub

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

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

  1219.     End Sub

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

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

  1222.     End Sub

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

  1224.         ConnOpen_工程SQL()

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

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

  1227.         CmdSet_For_dr()

  1228.     End Sub

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

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

  1231.     End Sub

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

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

  1234.     End Sub

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

  1236.         ConnOpen_工程SQL()

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

  1238.         CmdSet_For_dr()

  1239.     End Sub

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

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

  1242.     End Sub

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

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

  1245.         ConnOpen()

  1246.         SQL1 = "SELECT      合約編號 AS [" & 表頭(1) & "], 客戶名稱 AS [" & 表頭(2) & "], 工程名稱_中 AS [" & 表頭(3) & "], 工程名稱_英 AS [" & 表頭(4) & "], 

  1247.                             簽回檔圖庫 AS [" & 表頭(5) & "], 報價簽回 AS [" & 表頭(6) & "], 合約簽回 AS [" & 表頭(7) & "], 請款簽回 AS [" & 表頭(8) & "], 

  1248.                             驗收結果 AS [" & 表頭(9) & "], 驗收簽回 AS [" & 表頭(10) & "], 保固簽回 AS [" & 表頭(11) & "] , 保固簽回 AS [" & 表頭(12) & "], 

  1249.                             其他文件 AS [" & 表頭(13) & "]

  1250.                 FROM        合約控制表 

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

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

  1253.                             工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (作廢 = 0)

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

  1255.         CmdSet_For_DGV()

  1256.     End Sub

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

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

  1259.     End Sub

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

  1261.         ConnOpen_工程圖庫SQL()

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

  1263.         CmdSet_For_dr_pic()

  1264.     End Sub

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

  1266.         ConnOpen_工程圖庫SQL()

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

  1268.         CmdSet_For_dr_pic()

  1269.     End Sub

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

  1271.         ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文件簽回圖檔 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()

  1272.         ConnOpen_工程圖庫SQL()

  1273.         SQL1 = "SELECT 文件號 AS Item, 檔案 AS [File.] FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' ORDER BY 文件號"

  1274.         CmdSet_For_DGV()

  1275.     End Sub

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

  1277.         ConnOpen_工程圖庫SQL()

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

  1279.         CmdSet_For_dr()

  1280.     End Sub

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

  1282.         ConnOpen_工程圖庫SQL()

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

  1284.         CmdSet_For_DGV()

  1285.     End Sub

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

  1287.         ConnOpen_工程圖庫SQL()

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

  1289.         CmdSet_For_DGV()

  1290.     End Sub

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

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

  1293.     End Sub

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

  1295.         ConnOpen_工程圖庫SQL()

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

  1297.         CmdSet_For_dr()

  1298.     End Sub

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

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

  1301.         ConnOpen()

  1302.         SQL1 = "SELECT      合約編號 AS [" & 表頭(1) & "], 工程名稱_中 AS [" & 表頭(2) & "], 工程名稱_英 AS [" & 表頭(3) & "], 合約停止 AS [" & 表頭(4) & "], 

  1303.                             報價放行 AS [" & 表頭(5) & "], 報價簽回 AS [" & 表頭(6) & "], 合約簽回 AS [" & 表頭(7) & "], 請款簽回 AS [" & 表頭(8) & "], 

  1304.                             驗收結果 AS [" & 表頭(9) & "], 驗收簽回 AS [" & 表頭(10) & "], 保固簽回 AS [" & 表頭(11) & "] , 保固簽回 AS [" & 表頭(12) & "], 

  1305.                             簽回檔圖庫 AS [" & 表頭(13) & "], 保固期限 AS [" & 表頭(14) & "]

  1306.                 FROM        合約控制表 

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

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

  1309.                             工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (作廢 = 0) " & SQL5 & SQL3 & SQL4 & "

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

  1311.         CmdSet_For_DGV()

  1312.     End Sub

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

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

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

  1316.     End Sub

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

  1318.         ConnOpen()

  1319.         If PA = "" Then

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

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

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

  1323.                             簽回檔圖庫, 報價簽回 AS 簽回, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數

  1324.                 FROM        合約控制表

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

  1326.                            (報價放行 = 0 OR 報價放行 IS NULL) AND (作廢 = 0)

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

  1328.         Else

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

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

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

  1332.                             簽回檔圖庫, 報價簽回 AS 簽回, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數

  1333.                 FROM        合約控制表

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

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

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

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

  1338.         End If

  1339.         CmdSet_For_DGV()

  1340.     End Sub

  1341.     '----詩文新增----

  1342.     Friend Sub SQL_工程項目BOM_群組碼()

  1343.         ConnOpen_工程SQL() : SQL1 = "SELECT 群組碼,中文名稱,印尼文名稱 FROM 工程項目BOM表群組碼  ORDER BY 群組碼" : CmdSet_For_dr()

  1344.     End Sub

  1345.     Friend Sub SQL_工程項目BOM_群組碼_查詢()

  1346.         ConnOpen_工程SQL() : SQL1 = "SELECT 群組碼 FROM 工程項目BOM表群組碼 WHERE 中文名稱 LIKE '" & PA40 & "'  ORDER BY 群組碼" : CmdSet_For_dr()

  1347.     End Sub

  1348.     Friend Sub SQL_工程項目BOM表_群組設定_清單()

  1349.         ConnOpen_工程SQL() : SQL1 = "SELECT 群組碼,中文名稱 ,印尼文名稱 AS  [Group Id.] FROM 工程項目BOM表群組碼  ORDER BY 群組碼" : CmdSet_For_DGV()

  1350.     End Sub

  1351.     Friend Sub SQL_工程項目BOM表_群組設定_刪除(群組碼 As String)

  1352.         ConnOpen_工程SQL() : SQL1 = "DELETE FROM 工程項目BOM表群組碼  WHERE 群組碼 LIKE N'" & 群組碼 & "'" : CmdSet_For_dr()

  1353.     End Sub

  1354.     Friend Sub SQL_工程項目BOM表_群組設定_存檔(群組碼 As String, 中文名稱 As String, 印尼文名稱 As String)

  1355.         ConnOpen_工程SQL() : SQL1 = "UPDATE  工程項目BOM表群組碼 SET 中文名稱=N'" & 中文名稱 & "',印尼文名稱=N'" & 印尼文名稱 & "'  WHERE 群組碼 LIKE N'" & 群組碼 & "'" : CmdSet_For_dr()

  1356.     End Sub

  1357.     Friend Sub SQL_工程項目BOM表_群組設定_新增(群組碼 As String, 中文名稱 As String, 印尼文名稱 As String)

  1358.         ConnOpen_工程SQL() : SQL1 = "INSERT INTO 工程項目BOM表群組碼 (群組碼 , 中文名稱, 英文名稱, 印尼文名稱) VALUES (N'" & 群組碼 & "',N'" & 中文名稱 & "',N'',N'" & 印尼文名稱 & "')" : CmdSet_For_dr()

  1359.     End Sub

  1360.     Friend Sub SQL_工程項目BOM表_群組設定_讀取最後一筆資料()

  1361.         ConnOpen_工程SQL()

  1362.         SQL1 = "SELECT 群組碼 FROM  工程項目BOM表群組碼 ORDER BY 群組碼 DESC"

  1363.         CmdSet_For_dr()

  1364.     End Sub

  1365. End Module