GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
Volgen 4
Ster 0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
Geen omschrijving
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.
21 Commits
1 Branch
Tree: 1ca4e5671c
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van '1ca4e5671c'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_業務系統管理.vb

SQL_業務系統管理.vb 101KB
Geschiedenis Ruw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116 
  1. Module SQL_業務系統管理

  2.     Friend Sub SQL_匯率查詢()

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

  4.     End Sub

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

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

  7.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

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

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

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

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

  21.                                   HX空白圖片 ON QQ1.約號尾序 = HX空白圖片.選擇 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 & "%')"  ' AND  QQ1.合約編號 NOT LIKE '%0H-1%'

  25.         CmdSet_For_DGV()

  26.     End Sub

  27.     Friend Sub SQL_甲1()

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

  29.     End Sub

  30.     Friend Sub SQL_甲2()

  31.         ConnOpen_ERP() : 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_ERP() : SQL1 = "SELECT  合約編號  FROM  合約控制表  WHERE  (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr()

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

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

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

  39.         End If

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

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

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

  43.         End If

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

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

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

  47.         End If

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

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

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

  51.         End If

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

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

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

  55.         End If

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

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

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

  59.         End If

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

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

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

  63.         End If

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

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

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

  67.         End If

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

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

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

  71.         End If

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

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

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

  75.         End If

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

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

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

  79.         End If

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

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

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

  83.         End If

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

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

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

  87.         End If

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

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

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

  91.         End If

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

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

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

  95.         End If

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

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

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

  99.         End If

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

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

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

  103.         End If

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

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

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

  107. 

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

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

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

  111.         Next

  112. 

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

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

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

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

  117.         End If

  118.     End Sub

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

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

  121.         ConnOpen_ERP()

  122.         If PA = "" Then

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

  124.                                 合約控制表.預估工資報價, 合約控制表.工資利潤比, 合約控制表.預估材料成本, 合約控制表.預估材料報價, 

  125.                                 合約控制表.材料利潤比, 合約控制表.總成本, 合約控制表.總報價, 合約控制表.利潤比1, 合約控制表.預估利潤, 

  126.                                 合約控制表.利潤比2, 合約控制表.幣別, 我的資料庫.dbo.歷史匯率表.中心匯率, 我的資料庫.dbo.歷史匯率表.美金匯率, 

  127.                                 我的資料庫.dbo.歷史匯率表.印尼匯率

  128.                     FROM        合約控制表 LEFT OUTER JOIN

  129.                                 我的資料庫.dbo.歷史匯率表 ON LEFT(合約控制表.立約日期, 4) = LEFT(我的資料庫.dbo.歷史匯率表.年, 4) AND 

  130.                                 SUBSTRING(合約控制表.立約日期, 6, 2) = LEFT(我的資料庫.dbo.歷史匯率表.月, 2)

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

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

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

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

  135.         Else

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

  137.                                 合約控制表.預估工資報價, 合約控制表.工資利潤比, 合約控制表.預估材料成本, 合約控制表.預估材料報價, 

  138.                                 合約控制表.材料利潤比, 合約控制表.總成本, 合約控制表.總報價, 合約控制表.利潤比1, 合約控制表.預估利潤, 

  139.                                 合約控制表.利潤比2, 合約控制表.幣別, 我的資料庫.dbo.歷史匯率表.中心匯率, 我的資料庫.dbo.歷史匯率表.美金匯率, 

  140.                                 我的資料庫.dbo.歷史匯率表.印尼匯率

  141.                     FROM        合約控制表 LEFT OUTER JOIN

  142.                                 我的資料庫.dbo.歷史匯率表 ON LEFT(合約控制表.立約日期, 4) = LEFT(我的資料庫.dbo.歷史匯率表.年, 4) AND 

  143.                                 SUBSTRING(合約控制表.立約日期, 6, 2) = LEFT(我的資料庫.dbo.歷史匯率表.月, 2)

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

  145.                                 合約控制表.工程地點 LIKE N'%" & PA & "%' OR 合約控制表.客戶地址 LIKE  N'%" & PA & "%' OR 合約控制表.工程項目_中 LIKE  N'%" & PA & "%' OR

  146.                                 合約控制表.工程名稱_英 LIKE N'%" & PA & "%') AND (合約控制表.總報價 IS NOT NULL) AND (合約控制表.總報價 > 0) AND

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

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

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

  150.         End If

  151.         CmdSet_For_DGV()

  152.     End Sub

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

  154.         ConnOpen_ERP()

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

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

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

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

  159.         CmdSet_For_dr()

  160.     End Sub

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

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

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

  164.     End Sub

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

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

  167.     End Sub

  168.     Friend Sub SQL_合約查詢()

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

  170.     End Sub

  171.     Friend Sub SQL_合約新增()

  172.         ConnOpen_ERP()

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

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

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

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

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

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

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

  180.         CmdSet_For_dr()

  181.     End Sub

  182.     Friend Sub SQL_合約刪除()

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

  184.     End Sub

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

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

  187.     End Sub

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

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

  190.     End Sub

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

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

  193.     End Sub

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

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

  196.     End Sub

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

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

  199.     End Sub

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

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

  202.     End Sub

  203.     Friend Sub SQL_合約修改()

  204.         ConnOpen_ERP()

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

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

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

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

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

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

  211.         CmdSet_For_dr()

  212.     End Sub

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

  214.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

  223.         CmdSet_For_dr()

  224.     End Sub

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

  226.         ConnOpen_ERP()

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

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

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

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

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

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

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

  234.         CmdSet_For_dr()

  235.     End Sub

  236.     Friend Sub SQL_合約停用()

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

  238.     End Sub

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

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

  241.     End Sub

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

  243.         ConnOpen_ERP()

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

  245.         CmdSet_For_dr()

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

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

  248.         ConnOpen_ERP() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  249.         ConnOpen_ERP() : SQL1 = "UPDATE 合約文檔說明 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  250.         ConnOpen_ERP() : SQL1 = "UPDATE 合約文檔操作紀錄 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  251.     End Sub

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

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

  254.         ConnOpen_ERP() : SQL1 = "UPDATE 合約文檔 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  255.         ConnOpen_ERP() : SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr()

  256.     End Sub

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

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

  259.     End Sub

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

  261.         ConnOpen_ERP()

  262.         If PA = "" Then

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

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

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

  266.                     FROM     合約控制表

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

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

  269.         Else

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

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

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

  273.                     FROM     合約控制表

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

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

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

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

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

  279.         End If

  280.         CmdSet_For_DGV()

  281.     End Sub

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

  283.         ConnOpen_ERP()

  284.         If PA = "" Then

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

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

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

  288.                 FROM        合約控制表

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

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

  291.         Else

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

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

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

  295.                 FROM        合約控制表

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

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

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

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

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

  301.         End If

  302.         CmdSet_For_DGV()

  303.     End Sub

  304.     Friend Sub SQL_合約清單()

  305.         ConnOpen_ERP()

  306.         If PA = "" Then

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

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

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

  310.                 FROM        合約控制表

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

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

  313.         Else

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

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

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

  317.                 FROM        合約控制表

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

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

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

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

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

  323.         End If

  324.         CmdSet_For_DGV()

  325.     End Sub

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

  327.         ConnOpen_ERP()

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

  329.                 FROM     合約本文

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

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

  332.         CmdSet_For_DGV()

  333.     End Sub

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

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

  336.     End Sub

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

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

  339.     End Sub

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

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

  342.     End Sub

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

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

  345.     End Sub

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

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

  348.     End Sub

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

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

  351.     End Sub

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

  353.         ConnOpen_ERP()

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

  355.                 FROM      合約本文

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

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

  358.         CmdSet_For_DGV()

  359.     End Sub

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

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

  362.     End Sub

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

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

  365.     End Sub

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

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

  368.     End Sub

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

  370.         ConnOpen_ERP()

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

  372.         CmdSet_For_dr()

  373.     End Sub

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

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

  376.     End Sub

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

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

  379.     End Sub

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

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

  382.     End Sub

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

  384.         ConnOpen_ERP()

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

  386.         CmdSet_For_dr()

  387.     End Sub

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

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

  390.     End Sub

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

  392.         ConnOpen_ERP()

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

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

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

  396.         CmdSet_For_dr()

  397.     End Sub

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

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

  400.     End Sub

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

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

  403.         ConnOpen_ERP()

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

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

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

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

  408.                  FROM   合約控制表  

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

  410.         CmdSet_For_dr()

  411.     End Sub

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

  413.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

  423.         CmdSet_For_dr()

  424.     End Sub

  425.     Friend Sub SQL_BOM表控制1()

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

  427.     End Sub

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

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

  430.     End Sub

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

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

  433.     End Sub

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

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

  436.     End Sub

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

  438.         ConnOpen_ERP()

  439.         If PA = "" Then

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

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

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

  443.                 FROM        合約控制表

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

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

  446.         Else

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

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

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

  450.                 FROM        合約控制表

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

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

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

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

  455.         End If

  456.         CmdSet_For_DGV()

  457.     End Sub

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

  459.         ConnOpen_ERP()

  460.         If PA = "" Then

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

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

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

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

  465.                 FROM        合約控制表

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

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

  468.         Else

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

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

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

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

  473.                 FROM        合約控制表

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

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

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

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

  478.         End If

  479.         CmdSet_For_DGV()

  480.     End Sub

  481. 

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

  483.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

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

  494.         CmdSet_For_dr()

  495.     End Sub

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

  497.         ConnOpen_ERP()

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

  499.         CmdSet_For_dr()

  500.     End Sub

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

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

  503.     End Sub

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

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

  506.     End Sub

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

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

  509.     End Sub

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

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

  512.     End Sub

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

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

  515.     End Sub

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

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

  518.     End Sub

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

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

  521.     End Sub

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

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

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

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

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

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

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

  529.                 ORDER BY   Pernyataan_Prinsip, PN_Bagian"

  530.     End Sub

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

  532.         ConnOpen_ERP()

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

  534.         CmdSet_For_DGV()

  535.     End Sub

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

  537.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  558.         CmdSet_For_DGV()

  559.     End Sub

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

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

  562.     End Sub

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

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

  565.     End Sub

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

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

  568.     End Sub

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

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

  571.     End Sub

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

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

  574.     End Sub

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

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

  577.     End Sub

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

  579.         ConnOpen_ERP()

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

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

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

  583.                           '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')"

  584.         CmdSet_For_dr()

  585.     End Sub

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

  587.         ConnOpen_ERP()

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

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

  590.         CmdSet_For_DGV()

  591.     End Sub

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

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

  594.     End Sub

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

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

  597.     End Sub

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

  599.         ConnOpen_ERP()

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

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

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

  603.         CmdSet_For_dr()

  604.     End Sub

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

  606.         ConnOpen_ERP()

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

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

  609.         CmdSet_For_dr()

  610.     End Sub

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

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

  613.     End Sub

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

  615.         ConnOpen_ERP()

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

  617.         CmdSet_For_DGV()

  618.     End Sub

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

  620.         ConnOpen_ERP()

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

  622.         CmdSet_For_dr()

  623.     End Sub

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

  625.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  645.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

  656.         CmdSet_For_DGV()

  657.     End Sub

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

  659.         ConnOpen_ERP()

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

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

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

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

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

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

  666.         CmdSet_For_dr()

  667.     End Sub

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

  669.         ConnOpen_ERP()

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

  671.                                            預設 = 1 " & SQL2 & "

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

  673.         CmdSet_For_dr()

  674.     End Sub

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

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

  677.     End Sub

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

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

  680.     End Sub

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

  682.         ConnOpen_ERP()

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

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

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

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

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

  688.         CmdSet_For_dr()

  689.     End Sub

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

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

  692.     End Sub

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

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

  695.     End Sub

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

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

  698.     End Sub

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

  700.         ConnOpen_ERP()

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

  702.         CmdSet_For_dr()

  703.     End Sub

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

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

  706.     End Sub

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

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

  709.     End Sub

  710.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

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

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

  713.     End Sub

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

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

  716.     End Sub

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

  718.         ConnOpen_ERP()

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

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

  721.         CmdSet_For_DGV()

  722.     End Sub

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

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

  725.     End Sub

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

  727.         ConnOpen_ERP()

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

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

  730.         CmdSet_For_dr()

  731.     End Sub

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

  733.         ConnOpen_ERP()

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

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

  736.         CmdSet_For_dr()

  737.     End Sub

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

  739.     Friend Sub SQL_BOM表控制()

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

  741.     End Sub

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

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

  744.     End Sub

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

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

  747.     End Sub

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

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

  750.     End Sub

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

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

  753.     End Sub

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

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

  756.     End Sub

  757.     Friend Sub SQL_BOM表明細()

  758.         ConnOpen_ERP()

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

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

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

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

  763.                        (SELECT  物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 

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

  765.                                  物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料編碼庫轉語言.品名, 

  766.                                  物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 

  767.                                  物料規格表.S2, 物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 

  768.                                  物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 規格庫抬頭.A1 AS AA1, 

  769.                                  規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 

  770.                                  規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 

  771.                                  規格庫抬頭.A8 AS AA8

  772.                         FROM     物料規格表 INNER JOIN 物料資訊控制表 ON 物料規格表.群組碼 = 

  773.                                  物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則

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

  775.                                  物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN 規格庫抬頭 ON 

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

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

  778.                         WHERE   (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 工程項目BOM表明細.料號 = QQQ.料號

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

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

  781.         CmdSet_For_DGV()

  782.     End Sub

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

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

  785.     End Sub

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

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

  788.     End Sub

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

  790.         ConnOpen_ERP()

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

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

  793.         CmdSet_For_dr()

  794.     End Sub

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

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

  797.     End Sub

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

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

  800.     End Sub

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

  802.         ConnOpen_ERP()

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

  804.         CmdSet_For_dr()

  805.     End Sub

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

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

  808.     End Sub

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

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

  811.         ConnOpen_ERP()

  812.         If PA = "" Then

  813.             SQL2 = ""

  814.         Else

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

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

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

  818.         End If

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

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

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

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

  823.                 ORDER BY 簡稱"

  824.         CmdSet_For_DGV()

  825.     End Sub

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

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

  828.     End Sub

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

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

  831.     End Sub

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

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

  834.     End Sub

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

  836.         ConnOpen_ERP()

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

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

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

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

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

  842.         CmdSet_For_dr()

  843.     End Sub

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

  845.         ConnOpen_ERP()

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

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

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

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

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

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

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

  853.         CmdSet_For_dr()

  854.     End Sub

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

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

  857.     End Sub

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

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

  860.         ConnOpen_ERP()

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

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

  863.                 FROM        合約控制表 

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

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

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

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

  868.         CmdSet_For_DGV()

  869.     End Sub

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

  871.         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 文件號 FROM 合約文件簽回圖檔 WHERE (合約編號 LIKE '" & PA1 & "') ORDER BY 文件號 DESC" : CmdSet_For_dr()

  872.     End Sub

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

  874.         ConnOpen_ERP()

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

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

  877.         CmdSet_For_dr()

  878.     End Sub

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

  880.         ConnOpen_ERP()

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

  882.         CmdSet_For_DGV()

  883.     End Sub

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

  885.         ConnOpen_ERP()

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

  887.         CmdSet_For_dr()

  888.     End Sub

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

  890.         ConnOpen_ERP()

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

  892.         CmdSet_For_DGV()

  893.     End Sub

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

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

  896.     End Sub

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

  898.         ConnOpen_ERP()

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

  900.         CmdSet_For_dr()

  901.     End Sub

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

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

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

  905.     End Sub

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

  907.         ConnOpen_ERP()

  908.         If PA = "" Then

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

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

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

  912.                             簽回檔圖庫, 報價簽回 AS 簽回,幣別,折讓比例,稅前歸零,稅後歸零,歸零位數

  913.                 FROM        合約控制表

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

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

  916.         Else

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

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

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

  920.                             簽回檔圖庫, 報價簽回 AS 簽回,幣別,折讓比例,稅前歸零,稅後歸零,歸零位數

  921.                 FROM        合約控制表

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

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

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

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

  926.         End If

  927.         CmdSet_For_DGV()

  928.     End Sub

  929.     '---------------------------附錄合約----------------------------------------------------------------------------------------------------------------------------------------------

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

  931.         ConnOpen_ERP()

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

  933.         CmdSet_For_DGV()

  934.     End Sub

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

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

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

  938.     End Sub

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

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

  941.     End Sub

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

  943.         ConnOpen_ERP()

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

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

  946.         CmdSet_For_DGV()

  947.     End Sub

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

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

  950.     End Sub

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

  952.         ConnOpen_ERP()

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

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

  955.         CmdSet_For_dr()

  956.     End Sub

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

  958.         ConnOpen_ERP()

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

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

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

  962.         CmdSet_For_dr()

  963.     End Sub

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

  965.         ConnOpen_ERP()

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

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

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

  969.         CmdSet_For_dr()

  970.     End Sub

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

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

  973.         ConnOpen_ERP()

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

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

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

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

  978.                           簽回檔圖庫, 請款簽回 AS 簽回, 幣別

  979.                 FROM      合約控制表 LEFT OUTER JOIN

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

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

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

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

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

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

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

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

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

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

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

  991.         CmdSet_For_DGV()

  992.     End Sub

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

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

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

  996.     End Sub

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

  998.         ConnOpen_ERP()

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

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

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

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

  1003.                 FROM        合約控制表

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

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

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

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

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

  1009.         CmdSet_For_DGV()

  1010.     End Sub

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

  1012.         ConnOpen_ERP()

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

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

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

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

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

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

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

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

  1021.                           QQQ.AA8

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

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

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

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

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

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

  1028.                            FROM     物料規格表 INNER JOIN

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

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

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

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

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

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

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

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

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

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

  1039.         CmdSet_For_DGV()

  1040.     End Sub

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

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

  1043.     End Sub

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

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

  1046.     End Sub

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

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

  1049.         ConnOpen_ERP()

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

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

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

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

  1054.         CmdSet_For_DGV()

  1055.     End Sub

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

  1057.         ConnOpen_ERP()

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

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

  1060.         CmdSet_For_dr()

  1061.     End Sub

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

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

  1064.     End Sub

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

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

  1067.     End Sub

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

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

  1070.         ConnOpen_ERP()

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

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

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

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

  1075.                 FROM        合約控制表

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

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

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

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

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

  1081.         CmdSet_For_DGV()

  1082.     End Sub

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

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

  1085.     End Sub

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

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

  1088.         ConnOpen_ERP()

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

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

  1091.                 FROM        合約控制表 

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

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

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

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

  1096.         CmdSet_For_DGV()

  1097.     End Sub

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

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

  1100.         ConnOpen_ERP()

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

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

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

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

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

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

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

  1108.                 FROM       合約控制表 LEFT OUTER JOIN

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

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

  1111.         CmdSet_For_DGV()

  1112.     End Sub

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

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

  1115.     End Sub

  1116. End Module