Module SQL_業務系統管理 '---------------------------合約執行進度---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單查詢() ConnOpen() SQL1 = "SELECT QQ1.合約編號 AS [" & 表頭(134) & "], QQ1." & SQL2 & " AS [" & 表頭(152) & "], QQ1." & SQL2 & " AS [" & 表頭(116) & "], QQ1.第一期比例, QQ1.第二期比例, QQ1.第三期比例, QQ1.第四期比例, QQ1.第五期比例, QQ1.預付款, QQ1.到貨款, QQ1.施工款, QQ1.驗收款, QQ1.保留款, QQ1.合約編號 AS 乙方, QQ1.約號甲方 AS 甲方, QQ1.約號排序 AS 日期, QQ1.約號尾序 AS 序號, QQ2.合約號 AS AB2, QQ2.甲方 AS B1, QQ2.立約日 AS B2, QQ2.序號 AS B3, WW1.合約號碼 AS 報價, HX空白圖片.圖片 AS [SOP1/報價], HX空白圖片.圖片 AS [SOP2/立約], HX空白圖片.圖片 AS [SOP3/收訂], HX空白圖片.圖片 AS [SOP4/到料], HX空白圖片.圖片 AS [SOP5/施工], HX空白圖片.圖片 AS [SOP6/驗收], HX空白圖片.圖片 AS [SOP7/保固], HX空白圖片.圖片 AS [SOP8/結案], QQ1.驗收完成日期, QQ1.保固期限 FROM (SELECT 合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限 FROM 合約控制表 WHERE (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) GROUP BY 合約編號, 約號甲方, 約號排序, 約號尾序, " & SQL2 & ", 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收完成日期, 保固期限) AS QQ1 LEFT OUTER JOIN (SELECT 合約號碼 FROM 合約報價總表 WHERE (項目 LIKE N'@')) AS WW1 ON QQ1.合約編號 = WW1.合約號碼 LEFT OUTER JOIN HX空白圖片 ON QQ1.約號尾序 = HX空白圖片.選擇 FULL OUTER JOIN (SELECT 合約號, 甲方, 立約日, 序號 FROM 請購單控制表 WHERE (合約號 NOT LIKE N'') AND 合約號 NOT LIKE '%0H-1%' GROUP BY 合約號, 甲方, 立約日, 序號) AS QQ2 ON QQ1.合約編號 = QQ2.合約號 WHERE (QQ1.約號甲方 LIKE N'" & PA & "%' OR QQ2.甲方 LIKE N'" & PA & "%')" ' AND QQ1.合約編號 NOT LIKE '%0H-1%' CmdSet_For_DGV() End Sub Friend Sub SQL_甲1() ConnOpen() : SQL1 = "SELECT 約號甲方 FROM 合約控制表 GROUP BY 約號甲方" : CmdSet_For_DGV() End Sub Friend Sub SQL_甲2() ConnOpen() : SQL1 = "SELECT 甲方 FROM 請購單控制表 WHERE (合約號 NOT LIKE N'') GROUP BY 甲方" : CmdSet_For_DGV() End Sub Friend Sub SQL_合約編號修改() Dim DDR(16) As String ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約控制表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(0) = "合約控制表、" : Else ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約編號 = N'" & PA18 & "', 約號甲方 = N'" & PA19 & "', 約號排序 = N'" & PA20 & "', 約號尾序 = N'" & PA21 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約號碼 FROM 合約報價係數 WHERE (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(1) = "合約報價係數、" : Else ConnOpen() : SQL1 = "UPDATE 合約報價係數 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約號碼 FROM 合約報價明細表 WHERE (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(2) = "合約報價明細表、" : Else ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約號碼 FROM 合約報價總表 WHERE (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(3) = "合約報價總表、" : Else ConnOpen() : SQL1 = "UPDATE 合約報價總表 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約明細表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(4) = "合約明細表、" : Else ConnOpen() : SQL1 = "UPDATE 合約明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約本文 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(5) = "合約本文、" : Else ConnOpen() : SQL1 = "UPDATE 合約本文 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算分表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(6) = "合約試算分表、" : Else ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算控制表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(7) = "合約試算控制表、" : Else ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算明細表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(8) = "合約試算明細表、" : Else ConnOpen() : SQL1 = "UPDATE 合約試算明細表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約請款 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(9) = "合約請款、" : Else ConnOpen() : SQL1 = "UPDATE 合約請款 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "SELECT 合約號碼 FROM 合約附錄 WHERE (合約號碼 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(10) = "合約附錄、" : Else ConnOpen() : SQL1 = "UPDATE 合約附錄 SET 合約號碼 = N'" & PA18 & "' WHERE 合約號碼 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約號 FROM 合約文檔控制表 WHERE (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(11) = "合約文檔控制表、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約號 FROM 合約文檔操作紀錄 WHERE (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(12) = "合約文檔操作紀錄、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔操作紀錄 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約號 FROM 合約文檔說明 WHERE (合約號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(13) = "合約文檔說明、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔說明 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約編號 FROM 工程人員統計表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(14) = "工程人員統計表、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 工程人員統計表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約編號 FROM 工程責任表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(15) = "工程責任表、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen_工程SQL() : SQL1 = "SELECT 合約編號 FROM 工程進度表 WHERE (合約編號 LIKE N'" & PA18 & "')" : CmdSet_For_dr() If dr.Read Then : DDR(16) = "工程進度表、" : Else ConnOpen_工程SQL() : SQL1 = "UPDATE 工程進度表 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() End If ConnOpen() : SQL1 = "UPDATE 採購單明細表 SET 合約號 = N'" & PA18 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA18 & "', 乙方 = N'" & PA22 & "', 甲方 = N'" & PA19 & "', 立約日 = N'" & PA20 & "', 序號 = N'" & PA21 & "' WHERE 合約號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() For i As Integer = 0 To 合約報價單.圖庫清單_dgv.Rows.Count - 1 圖片庫 = 合約報價單.圖庫清單_dgv.Rows(i).Cells("資料庫").Value : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL() SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA18 & "' WHERE 合約編號 LIKE N'" & PA17 & "'" : CmdSet_For_dr() Next 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 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 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) & "因資料有重複所以沒有進行轉移，請手動修改資料!!") End If End Sub '---------------------------合約利潤預估表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單_預估利潤() ConnOpen() If PA = "" Then SQL1 = "SELECT 合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 工程名稱_中, 工程名稱_英, 預估工資成本, 預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 預估利潤, 利潤比2 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 IS NULL OR 合約停止 = 0) AND (總報價 IS NOT NULL) AND (總報價 > 0) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約控制表預估利潤存檔() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 預估工資成本 = N'" & PA37 & "', 預估工資報價 = N'" & PA38 & "', 工資利潤比 = N'" & PA39 & "', 預估材料成本 = N'" & PA40 & "', 預估材料報價 = N'" & PA41 & "', 材料利潤比 = N'" & PA42 & "', 總成本 = N'" & PA43 & "', 總報價 = N'" & PA44 & "', 利潤比1 = N'" & PA45 & "', 利潤比2 = N'" & PA46 & "', 預估利潤 = N'" & PA47 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub '---------------------------合約管理系統---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約種類查詢() ConnOpen() : SQL1 = "SELECT 中, 英 FROM 合約種類 WHERE 中 LIKE N'" & PA37 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約種類新增() ConnOpen() : SQL1 = " INSERT INTO 合約種類 (中, 英) VALUES (N'" & PA37 & "', N'" & PA36 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約查詢() ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約新增() ConnOpen() SQL1 = "INSERT INTO 合約控制表 (合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 合約期數, 合約停止, 報價放行, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數) VALUES (N'" & PA & "', N'" & PA36 & "', N'" & PA35 & "', N'" & PA34 & "', N'" & PA33 & "', N'" & PA32 & "', N'" & PA31 & "', N'" & PA30 & "', N'" & PA29 & "', N'" & PA28 & "', N'" & PA27 & "', N'" & PA26 & "', N'" & PA25 & "', N'" & PA24 & "', N'" & PA23 & "', N'" & PA22 & "', N'" & PA21 & "', N'" & PA20 & "', N'" & PA19 & "', N'" & PA18 & "', N'" & PA17 & "', N'" & PA16 & "', N'" & PA15 & "', N'" & PA14 & "', N'" & PA13 & "', N'" & PA12 & "', N'" & PA44 & "', N'" & PA45 & "', N'" & PA46 & "', N'" & PA47 & "', '1', '0', '" & PA11 & "', '" & PA10 & "', '" & BL2 & "', '" & BL3 & "', '" & PA9 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約刪除() ConnOpen() : SQL1 = "DELETE 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約明細刪除_全部() ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約總表刪除_全部() ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細刪除_全部() ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數刪除_全部() ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約附錄刪除_全部() ConnOpen() : SQL1 = "DELETE 合約附錄 WHERE 合約號碼 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約請款刪除_全部() ConnOpen() : SQL1 = "DELETE 合約請款 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約修改() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約修改1() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 合約停止 = '" & BL1 & "', 幣別 = '" & PA11 & "', 折讓比例 = '" & PA10 & "', 稅前歸零 = '" & BL2 & "', 稅後歸零 = '" & BL3 & "', 歸零位數 = '" & PA9 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約修改2() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 客戶名稱 = N'" & PA36 & "', 負責人A = N'" & PA35 & "', 工程地點 = N'" & PA34 & "', 客戶地址 = N'" & PA33 & "', 工程名稱_中 = N'" & PA32 & "', 工程名稱_英 = N'" & PA31 & "', 我司公司 = N'" & PA30 & "', 負責人B = N'" & PA29 & "', 我司地址 = N'" & PA28 & "', 工程總價 = N'" & PA27 & "', 第一期比例 = N'" & PA26 & "', 第二期比例 = N'" & PA25 & "', 第三期比例 = N'" & PA24 & "', 第四期比例 = N'" & PA23 & "', 第五期比例 = N'" & PA22 & "', 工期 = N'" & PA21 & "', 逾期_中 = N'" & PA20 & "', 最高扣罰_中 = N'" & PA19 & "', 逾期_英 = N'" & PA18 & "', 最高扣罰_英 = N'" & PA17 & "', 減價 = N'" & PA16 & "', 工程廠區 = N'" & PA15 & "', 頁數 = N'" & PA14 & "', 立約日期 = N'" & PA13 & "', 合約種類 = N'" & PA12 & "', 合約停止 = '" & BL1 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約停用() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 合約停止 = '" & BL1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_請購單改合約號() ConnOpen() : SQL1 = "UPDATE 請購單控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_工程系統改合約號() ConnOpen_工程SQL() SQL1 = "UPDATE 工程進度表 SET 合約編號 = N'" & PA1 & "', 乙方 = N'" & PA2 & "', 甲方 = N'" & PA3 & "', 立約號 = N'" & PA4 & "', 序號 = N'" & PA5 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程人員統計表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程責任表 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔控制表 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr() ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔說明 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr() ConnOpen_工程SQL() : SQL1 = "UPDATE 合約文檔操作紀錄 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_圖庫系統改合約號() SQL_連線字串_圖片資料庫() ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文檔 SET 合約號 = N'" & PA1 & "' WHERE 合約號 LIKE N'" & PA & "'" : CmdSet_For_dr() ConnOpen_工程圖庫SQL() : SQL1 = "UPDATE 合約文件簽回圖檔 SET 合約編號 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約修改_報價說明() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價說明 = N'" & 合約報價單.報價說明_tb.Text & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_未語轉() ConnOpen() If 合約本文.關鍵字搜尋_tb.Text = "" Then SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 簽回檔圖庫, 合約簽回 AS 簽回 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單_請款用() ConnOpen() If 合約本文.關鍵字搜尋_tb.Text = "" Then SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 驗收完成日期, 保固期限 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單() ConnOpen() If 合約本文.關鍵字搜尋_tb.Text = "" Then SQL1 = "SELECT 合約編號 AS [" & 表頭(134) & "], 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中 AS 工程, 工程名稱_英 AS Project, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期 AS [" & 表頭(116) & "], 合約種類, 約號排序, 約號尾序, 約號甲方 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單_範本() ConnOpen() SQL1 = "SELECT 合約編號, 控件, 內容, 座標X FROM 合約本文 WHERE (合約編號 LIKE N'" & PA & "') ORDER BY CAST(SUBSTRING(控件, 3, 5) AS INT)" CmdSet_For_DGV() End Sub Friend Sub SQL_合約種類讀取() ConnOpen() : SQL1 = "SELECT 中 FROM 合約種類 ORDER BY 中" : CmdSet_For_dr() End Sub Friend Sub SQL_合約種類英文讀取() ConnOpen() : SQL1 = "SELECT 英 FROM 合約種類 WHERE 中 LIKE N'" & PA10 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶名稱讀取() ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 GROUP BY 客戶名稱 ORDER BY 客戶名稱" : CmdSet_For_dr() End Sub Friend Sub SQL負責人B讀取() ConnOpen() : SQL1 = "SELECT 負責人B FROM 合約控制表 GROUP BY 負責人B ORDER BY 負責人B" : CmdSet_For_dr() End Sub Friend Sub SQL合約條件讀取() ConnOpen() : SQL1 = "SELECT 約號甲方 FROM 合約控制表 GROUP BY 約號甲方 ORDER BY 約號甲方" : CmdSet_For_dr() End Sub Friend Sub SQL_合約流水號_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) RIGHT(合約編號, 8) AS 合約編號 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%') ORDER BY 合約編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約本文清單() ConnOpen() SQL1 = "SELECT 合約編號, 控件, 內容, 座標X FROM 合約本文 WHERE (合約編號 LIKE N'" & PA & "') ORDER BY CAST(SUBSTRING(控件, 3, 3) AS INT)" CmdSet_For_DGV() End Sub Friend Sub SQL_合約本文刪除() ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'範本'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約本文刪除_依合約() ConnOpen() : SQL1 = "DELETE 合約本文 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約本文新增() ConnOpen() : SQL1 = " INSERT INTO 合約本文 (合約編號, 控件, 內容, 座標X) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約本文修改() ConnOpen() SQL1 = "UPDATE 合約本文 SET 內容 = N'" & PA2 & "', 座標X = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 控件 = '" & PA1 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約明細新增() ConnOpen() : SQL1 = " INSERT INTO 合約明細表 (合約編號, 期數, 順序, 內容, 金額, 比例) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', '', '0', '0')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約明細讀取() ConnOpen() : SQL1 = "SELECT 合約編號, 期數, 順序 AS 細項, 內容, 比例, 金額 FROM 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " ORDER BY 順序" : CmdSet_For_DGV() End Sub Friend Sub SQL_合約明細刪除() ConnOpen() : SQL1 = "DELETE 合約明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & "" : CmdSet_For_dr() End Sub Friend Sub SQL_合約明細修改() ConnOpen() SQL1 = "UPDATE 合約明細表 SET 內容 = N'" & PA3 & "', 比例 = N'" & NU1 & "', 金額 = N'" & NU2 & "' WHERE 合約編號 LIKE N'" & PA & "' AND 期數 = " & PA1 & " AND 順序 = " & PA2 & "" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料讀取() ConnOpen() : SQL1 = "SELECT 客戶名稱, 簡稱, 地址, 負責人 FROM 客戶資料表 WHERE (簡稱 LIKE N'" & PA30 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約系統中新增客戶資料() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) VALUES (N'" & PA29 & "', N'" & PA41 & "', N'" & PA40 & "', N'NA', N'" & PA39 & "', N'" & PA38 & "', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA', N'NA')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_修改負責人() ConnOpen() : SQL1 = "UPDATE 客戶資料表 SET 負責人 = N'" & PA43 & "' WHERE 客戶名稱 LIKE N'" & PA42 & "'" : CmdSet_For_dr() End Sub '---------------------客戶資料表----------------------------------------------------------------------------------------------------------------- Friend Sub SQL_客戶資料表_清單() ConnOpen() If PA = "" Then SQL2 = "" Else SQL1 = " WHERE 簡稱 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 公司電話 LIKE N'%" & PA & "%' OR 地址 LIKE N'%" & PA & "%' OR 負責人 LIKE N'%" & PA & "%' OR 負責人電話 LIKE N'%" & PA & "%' OR 聯繫人1 LIKE N'%" & PA & "%' OR 聯繫人1電話 LIKE N'%" & PA & "%' OR 聯繫人1郵件 LIKE N'%" & PA & "%' OR 聯繫人2 LIKE N'%" & PA & "%' OR 聯繫人2電話 LIKE N'%" & PA & "%' OR 聯繫人2郵件 LIKE N'%" & PA & "%' " End If SQL1 = "SELECT 簡稱 AS [NO.], 簡稱 AS [" & 表頭(50) & "], 客戶名稱 AS [" & 表頭(51) & "], 公司電話 AS [" & 表頭(53) & "], 地址 AS [" & 表頭(52) & "], 負責人 AS [" & 表頭(145) & "], 負責人電話 AS [" & 表頭(146) & "], 聯繫人1 AS [" & 表頭(59) & "], 聯繫人1電話 AS [" & 表頭(147) & "], 聯繫人1郵件 AS [" & 表頭(148) & "], 聯繫人2 AS [" & 表頭(60) & "], 聯繫人2電話 AS [" & 表頭(149) & "], 聯繫人2郵件 AS [" & 表頭(150) & "], 流水號 FROM 客戶資料表 " & SQL2 & " ORDER BY 簡稱" CmdSet_For_DGV() End Sub Friend Sub SQL_客戶資料表_下拉清單() ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 客戶資料表 ORDER BY 客戶名稱" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表簡稱_下拉清單() ConnOpen() : SQL1 = "SELECT 簡稱 FROM 客戶資料表 ORDER BY 簡稱" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 客戶資料表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_新增() ConnOpen() SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件) VALUES (N'" & 客戶資料表.供應商編號_tb.Text & "', N'" & 客戶資料表.客戶簡稱_cb.Text & "', N'" & 客戶資料表.客戶名稱_tb.Text & "', N'" & 客戶資料表.電話1_tb.Text & "', N'" & 客戶資料表.地址_tb.Text & "', N'" & 客戶資料表.負責人_tb.Text & "', N'" & 客戶資料表.負責人電話_tb.Text & "', N'" & 客戶資料表.聯繫人1_tb.Text & "', N'" & 客戶資料表.聯繫電話1_tb.Text & "', N'" & 客戶資料表.信箱1_tb.Text & "', N'" & 客戶資料表.聯繫人2_tb.Text & "', N'" & 客戶資料表.聯繫電話2_tb.Text & "', N'" & 客戶資料表.信箱2_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_修改() ConnOpen() SQL1 = "UPDATE 客戶資料表 SET 簡稱 = N'" & 客戶資料表.客戶簡稱_cb.Text & "', 客戶名稱 = N'" & 客戶資料表.客戶名稱_tb.Text & "', 地址 = N'" & 客戶資料表.地址_tb.Text & "', 公司電話 = N'" & 客戶資料表.電話1_tb.Text & "', 負責人 = N'" & 客戶資料表.負責人_tb.Text & "', 負責人電話 = N'" & 客戶資料表.負責人電話_tb.Text & "', 聯繫人1 = N'" & 客戶資料表.聯繫人1_tb.Text & "', 聯繫人2 = N'" & 客戶資料表.聯繫人2_tb.Text & "', 聯繫人1電話 = N'" & 客戶資料表.聯繫電話1_tb.Text & "', 聯繫人2電話 = N'" & 客戶資料表.聯繫電話2_tb.Text & "', 聯繫人1郵件 = N'" & 客戶資料表.信箱1_tb.Text & "', 聯繫人2郵件 = N'" & 客戶資料表.信箱2_tb.Text & "' WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')" CmdSet_For_dr() End Sub Friend Sub SQL_客戶資料表_刪除() ConnOpen() : SQL1 = "DELETE FROM 客戶資料表 WHERE (流水號 = '" & 客戶資料表.供應商編號_tb.Text & "')" : CmdSet_For_dr() End Sub '---------------------------合約報價單---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約控制表讀取() ConnOpen() SQL1 = "SELECT 報價說明, 追加減, 結算金額, 已請款, 剩餘款, 預付款, 到貨款, 施工款, 驗收款, 保留款, 驗收開始日期, 驗收完成日期, 驗收結果, 驗收備註, 保固期限, 保固地址, 合約停止, 結案備註, 工程主管, 工地驗收備註, 預估工資成本, 預估工資報價, 工資利潤比, 預估材料成本, 預估材料報價, 材料利潤比, 總成本, 總報價, 利潤比1, 利潤比2, 預估利潤, 簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收簽回, 保固簽回, 報價放行, 其他文件 FROM 合約控制表 WHERE 合約編號 LIKE N'%" & PA & "%'" CmdSet_For_dr() End Sub Friend Sub SQL_合約控制表_改版修正() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 報價說明 = N'" & PA1 & "', 追加減 = N'" & PA2 & "', 結算金額 = N'" & PA3 & "', 已請款 = N'" & PA4 & "', 剩餘款 = N'" & PA5 & "', 預付款 = N'" & PA6 & "', 到貨款 = N'" & PA7 & "', 施工款 = N'" & PA8 & "', 驗收款 = N'" & PA9 & "', 保留款 = N'" & PA10 & "', 驗收開始日期 = N'" & PA11 & "', 驗收完成日期 = N'" & PA12 & "', 驗收結果 = '" & PA13 & "', 驗收備註 = N'" & PA14 & "', 保固期限 = N'" & PA15 & "', 保固地址 = N'" & PA16 & "', 合約停止 = '" & PA17 & "', 結案備註 = N'" & PA18 & "', 工程主管 = N'" & PA19 & "', 工地驗收備註 = N'" & PA20 & "', 預估工資成本 = N'" & PA21 & "', 預估工資報價 = N'" & PA22 & "', 工資利潤比 = N'" & PA23 & "', 預估材料成本 = N'" & PA24 & "', 預估材料報價 = N'" & PA25 & "', 材料利潤比 = N'" & PA26 & "', 總成本 = N'" & PA27 & "', 總報價 = N'" & PA28 & "', 利潤比1 = N'" & PA29 & "', 利潤比2 = N'" & PA30 & "', 預估利潤 = N'" & PA31 & "', 簽回檔圖庫 = N'" & PA32 & "', 報價簽回 = '" & PA33 & "', 合約簽回 = '" & PA34 & "', 請款簽回 = '" & PA35 & "', 驗收簽回 = '" & PA36 & "', 保固簽回 = '" & PA37 & "', 報價放行 = '" & PA38 & "', 其他文件 = '" & PA39 & "' WHERE (合約編號 LIKE N'%" & PA & "%')" CmdSet_For_dr() End Sub Friend Sub SQL_BOM表控制1() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 AS 項次, 項目, 流水號 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV() End Sub Friend Sub SQL_合約試算分表刪除() ConnOpen() : SQL1 = "DELETE 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算控制表刪除() ConnOpen() : SQL1 = "DELETE 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算明細表刪除() ConnOpen() : SQL1 = "DELETE 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單1() ConnOpen() If PA = "" Then SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單_報價用() ConnOpen() If PA = "" Then SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止 AS 停止, 簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 簽回檔圖庫, 報價簽回 AS 簽回, 報價放行 AS 審核通過, 幣別, 折讓比例, 稅前歸零, 稅後歸零, 歸零位數 FROM 合約控制表 WHERE 合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%' ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub Friend Sub SQL_合約試算明細表_修改() ConnOpen() SQL1 = "UPDATE 合約試算明細表 SET A1 = N'" & PA2 & "', A2 = N'" & PA3 & "', A3 = N'" & PA4 & "', A4 = N'" & PA5 & "', A5 = N'" & PA6 & "', A6 = N'" & PA7 & "', A7 = N'" & PA8 & "', A8 = N'" & PA9 & "', A9 = N'" & PA10 & "', A10 = N'" & PA11 & "', A11 = N'" & PA12 & "', A12 = N'" & PA13 & "', A13 = N'" & PA14 & "', A14 = N'" & PA15 & "', A15 = N'" & PA16 & "', A16 = N'" & PA17 & "', A17 = N'" & PA18 & "', A18 = N'" & PA19 & "', A19 = N'" & PA20 & "', A20 = N'" & PA21 & "', A21 = N'" & PA22 & "', A22 = N'" & PA23 & "', A23 = N'" & PA24 & "', A24 = N'" & PA25 & "', A25 = N'" & PA26 & "', A26 = N'" & PA27 & "', A27 = N'" & PA28 & "', A28 = N'" & PA29 & "', A29 = N'" & PA30 & "', A30 = N'" & PA31 & "', A31 = N'" & PA32 & "', A32 = N'" & PA33 & "', A33 = N'" & PA34 & "', A34 = N'" & PA35 & "', A35 = N'" & PA36 & "', A36 = N'" & PA37 & "', A37 = N'" & PA38 & "', A38 = N'" & PA39 & "', A39 = N'" & PA40 & "', A40 = N'" & PA41 & "', 係數 = '" & BL1 & "', Total = N'" & PA42 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約試算明細表_刪除() ConnOpen() SQL1 = "DELETE 合約試算明細表 WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA1 & "' AND 料號 = N'" & PA43 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約係數表下拉1() ConnOpen() : SQL1 = "SELECT 項目 FROM 合約報價係數 GROUP BY 項目 ORDER BY 項目" : CmdSet_For_dr() End Sub Friend Sub SQL_合約係數表下拉2() ConnOpen() : SQL1 = "SELECT 單位 FROM 合約報價係數 GROUP BY 單位 ORDER BY 單位" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表查詢() ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表重複查詢() ConnOpen() : SQL1 = "SELECT 試算表, 表號, 係數 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' AND 試算表 LIKE N'" & PA3 & "' ORDER BY 表號" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表_新增() ConnOpen() : SQL1 = "INSERT INTO 合約試算分表 (合約編號, 試算表, 表號, 係數) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', 3)" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表_最後一筆資料() ConnOpen() : SQL1 = "SELECT 試算表, 表號 FROM 合約試算分表 WHERE 合約編號 LIKE N'" & PA & "' ORDER BY 表號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表_試算表修改() ConnOpen() : SQL1 = "UPDATE 合約試算分表 SET 試算表 = N'" & PA1 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號 = N'" & PA2 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算分表_物料清單一() If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If SQL1 = "SELECT 物料編碼庫.群組碼 AS No, 物料編碼庫.料號原則 AS PN_Bagian, 物料編碼庫轉語言.品名 AS Pernyataan_Prinsip, 物料編碼庫.群組碼, 物料編碼庫.料號原則, 物料編碼庫.單位 " & 低網 & " FROM 物料編碼庫 INNER JOIN 物料圖庫 ON 物料編碼庫.群組碼 = 物料圖庫.群組碼 AND 物料編碼庫.料號原則 = 物料圖庫.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 WHERE (物料編碼庫.群組碼 LIKE N'" & PA1 & "%') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ORDER BY Pernyataan_Prinsip, PN_Bagian" End Sub Friend Sub SQL_合約試算控制表_查詢() ConnOpen() SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭" CmdSet_For_DGV() End Sub Friend Sub SQL_合約試算明細表_查詢() ConnOpen() SQL1 = "SELECT 合約試算明細表.料號, 物料編碼庫轉語言.品名 AS [物料], 物料編碼庫.原則說明 AS [樓層/迴路], 合約試算明細表.A1 AS [" & 合約試算表頭(1) & "], 合約試算明細表.A2 AS [" & 合約試算表頭(2) & "], 合約試算明細表.A3 AS [" & 合約試算表頭(3) & "], 合約試算明細表.A4 AS [" & 合約試算表頭(4) & "], 合約試算明細表.A5 AS [" & 合約試算表頭(5) & "], 合約試算明細表.A6 AS [" & 合約試算表頭(6) & "], 合約試算明細表.A7 AS [" & 合約試算表頭(7) & "], 合約試算明細表.A8 AS [" & 合約試算表頭(8) & "], 合約試算明細表.A9 AS [" & 合約試算表頭(9) & "], 合約試算明細表.A10 AS [" & 合約試算表頭(10) & "], 合約試算明細表.A11 AS [" & 合約試算表頭(11) & "], 合約試算明細表.A12 AS [" & 合約試算表頭(12) & "], 合約試算明細表.A13 AS [" & 合約試算表頭(13) & "], 合約試算明細表.A14 AS [" & 合約試算表頭(14) & "], 合約試算明細表.A15 AS [" & 合約試算表頭(15) & "], 合約試算明細表.A16 AS [" & 合約試算表頭(16) & "], 合約試算明細表.A17 AS [" & 合約試算表頭(17) & "], 合約試算明細表.A18 AS [" & 合約試算表頭(18) & "], 合約試算明細表.A19 AS [" & 合約試算表頭(19) & "], 合約試算明細表.A20 AS [" & 合約試算表頭(20) & "], 合約試算明細表.A21 AS [" & 合約試算表頭(21) & "], 合約試算明細表.A22 AS [" & 合約試算表頭(22) & "], 合約試算明細表.A23 AS [" & 合約試算表頭(23) & "], 合約試算明細表.A24 AS [" & 合約試算表頭(24) & "], 合約試算明細表.A25 AS [" & 合約試算表頭(25) & "], 合約試算明細表.A26 AS [" & 合約試算表頭(26) & "], 合約試算明細表.A27 AS [" & 合約試算表頭(27) & "], 合約試算明細表.A28 AS [" & 合約試算表頭(28) & "], 合約試算明細表.A29 AS [" & 合約試算表頭(29) & "], 合約試算明細表.A30 AS [" & 合約試算表頭(30) & "], 合約試算明細表.A31 AS [" & 合約試算表頭(31) & "], 合約試算明細表.A32 AS [" & 合約試算表頭(32) & "], 合約試算明細表.A33 AS [" & 合約試算表頭(33) & "], 合約試算明細表.A34 AS [" & 合約試算表頭(34) & "], 合約試算明細表.A35 AS [" & 合約試算表頭(35) & "], 合約試算明細表.A36 AS [" & 合約試算表頭(36) & "], 合約試算明細表.A37 AS [" & 合約試算表頭(37) & "], 合約試算明細表.A38 AS [" & 合約試算表頭(38) & "], 合約試算明細表.A39 AS [" & 合約試算表頭(39) & "], 合約試算明細表.A40 AS [" & 合約試算表頭(40) & "], 合約試算明細表.係數, 合約試算明細表.Total, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8 FROM 合約試算明細表 INNER JOIN 物料規格表 ON 合約試算明細表.料號 = 物料規格表.料號 INNER JOIN 物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN 物料資訊控制表 ON 物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料編碼庫.料號原則 = 物料編碼庫轉語言.料號原則 AND 物料編碼庫.群組碼 = 物料編碼庫轉語言.群組碼 WHERE (合約編號 LIKE N'" & PA & "') AND (表號 LIKE N'" & PA2 & "') AND (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "') ORDER BY 物料編碼庫.原則說明" CmdSet_For_DGV() End Sub Friend Sub SQL_合約試算控制表重複查詢() ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND [樓層/迴路] LIKE N'" & PA4 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算控制表_最後一筆資料() ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表頭 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算控制表_新增() ConnOpen() : SQL1 = "INSERT INTO 合約試算控制表 (合約編號, 表號, [樓層/迴路], 表頭) VALUES (N'" & PA & "', N'" & PA2 & "', N'" & PA4 & "', N'" & PA5 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算控制表查詢() ConnOpen() : SQL1 = "SELECT [樓層/迴路], 表頭 FROM 合約試算控制表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' ORDER BY 表號" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算控制表_樓層迴路修改() ConnOpen() : SQL1 = "UPDATE 合約試算控制表 SET [樓層/迴路] = N'" & PA4 & "' WHERE (合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND 表頭 LIKE N'" & PA5 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算明細表重複查詢() ConnOpen() : SQL1 = "SELECT 合約編號 FROM 合約試算明細表 WHERE 合約編號 LIKE N'" & PA & "' AND 表號 LIKE N'" & PA2 & "' AND 料號 LIKE N'" & PA6 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約試算明細表_新增物料() ConnOpen() SQL1 = "INSERT INTO 合約試算明細表 (合約編號, 表號, 料號, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24, A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36, A37, A38, A39, A40, 係數, Total) 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', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價總表() ConnOpen() SQL1 = "SELECT 排序, 項目 AS [ITEM], 內容 AS [DESCRIPTION], 單位 AS [UNIT], 數量 AS [QTY], 單價 AS [UNIT PRICE" & 幣別 & "], 總價 AS [AMOUNT" & 幣別 & "], 備註 AS [REMARKS], 流水號, 明細連動 FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序" CmdSet_For_DGV() End Sub Friend Sub SQL_合約報價總表_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價總表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價總表_最後一筆排序() ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 合約報價總表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價總表_新增資料() ConnOpen() SQL1 = "INSERT INTO 合約報價總表 (合約號碼, 排序, 項目, 內容, 單位, 數量, 單價, 總價, 備註, 流水號, 明細連動) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價總表_存檔() ConnOpen() SQL1 = "UPDATE 合約報價總表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 數量 = N'" & PA5 & "', 單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 明細連動 = N'" & PA10 & "' WHERE 流水號 LIKE N'" & PA9 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價總表_刪除資料() ConnOpen() : SQL1 = "DELETE 合約報價總表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數() ConnOpen() SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目" CmdSet_For_DGV() End Sub Friend Sub SQL_合約報價係數_下拉() ConnOpen() SQL1 = "SELECT 項目 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 項目" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表() ConnOpen() SQL1 = "SELECT 合約報價明細表.排序, 合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS QTY, 合約報價明細表.單價 AS [UNIT PRICE" & 幣別 & "], 合約報價明細表.總價 AS [AMOUNT" & 幣別 & "], 合約報價明細表.備註 AS REMARKS, 合約報價明細表.實際數量, 合約報價明細表.工資成本單價, 合約報價明細表.工資成本單價 AS 工資成本後價, 合約報價明細表.工資報價單價, 合約報價明細表.工資成本單價 AS 工資報價後價, 合約報價明細表.材料成本單價, 合約報價明細表.材料成本單價 AS 材料成本後價, 合約報價明細表.材料報價單價, 合約報價明細表.材料成本單價 AS 材料報價後價, 合約報價明細表.材料成本單價 AS 利潤, 合約報價明細表.流水號, QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, QQQ.AA8, 合約報價明細表.不計算 AS [S] FROM (SELECT 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8 FROM 物料規格表 INNER JOIN 物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 物料編碼庫轉語言.語言 = 規格庫抬頭.語言 WHERE (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN 合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號 WHERE (合約報價明細表.合約號碼 LIKE N'" & PA & "') ORDER BY 合約報價明細表.排序" CmdSet_For_DGV() End Sub Friend Sub SQL_合約報價明細表_存檔() ConnOpen() SQL1 = "UPDATE 合約報價明細表 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 內容 = N'" & PA3 & "', 單位 = N'" & PA4 & "', 報價數量 = N'" & PA5 & "', 單價 = N'" & PA6 & "', 總價 = N'" & PA7 & "', 備註 = N'" & PA8 & "', 實際數量 = N'" & PA10 & "', 工資成本單價 = N'" & PA11 & "', 工資報價單價 = N'" & PA12 & "', 材料成本單價 = N'" & PA13 & "', 材料報價單價 = N'" & PA14 & "', 料號 = N'" & PA15 & "', 不計算 = N'" & BL & "', 材料係數 = N'" & PA16 & "', D1 = N'" & BL1 & "', D2 = N'" & BL2 & "', D3 = N'" & BL3 & "', D4 = N'" & BL4 & "', D5 = N'" & BL5 & "', D6 = N'" & BL6 & "', D7 = N'" & BL7 & "', D8 = N'" & BL8 & "', 預設 = 0 WHERE 流水號 LIKE N'" & PA9 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表_存檔_料號() ConnOpen() SQL1 = "UPDATE 合約報價明細表 SET 料號 = N'" & PA15 & "', 項目 = N'" & PA2 & "', 報價數量 = N'" & PA5 & "', 實際數量 = N'" & PA5 & "' , 單位 = N'" & PA4 & "', 預設 = 1 " & SQL2 & " WHERE 流水號 LIKE N'" & PA9 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價明細表 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表_最後一筆排序() ConnOpen() : SQL1 = "SELECT TOP (1) 排序 FROM 合約報價明細表 WHERE 合約號碼 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表_新增資料() ConnOpen() SQL1 = "INSERT INTO 合約報價明細表 (合約號碼, 排序, 項目, 內容, 單位, 報價數量, 單價, 總價, 備註, 流水號, 實際數量, 工資成本單價, 工資報價單價, 材料成本單價, 材料報價單價, 料號, 不計算, 材料係數, D1, D2, D3, D4, D5, D6, D7, D8, 預設) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', '" & BL & "', N'" & PA16 & "', '" & BL1 & "', '" & BL2 & "', '" & BL3 & "', '" & BL4 & "', '" & BL5 & "', '" & BL6 & "', '" & BL7 & "', '" & BL8 & "', '" & BL9 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價明細表_刪除資料() ConnOpen() : SQL1 = "DELETE 合約報價明細表 WHERE 流水號 LIKE N'" & PA9 & "' " : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數資料不重複() ConnOpen() : SQL1 = "SELECT 合約號碼, 流水號, 項目, 係數, 單位 FROM 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 項目 LIKE N'" & PA2 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數刪除() ConnOpen() : SQL1 = "DELETE 合約報價係數 WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數修改() ConnOpen() SQL1 = "UPDATE 合約報價係數 SET 係數 = N'" & 合約報價單.係數_nup.Text & "', 單位 = N'" & 合約報價單.係數單位_cb.Text & "' WHERE 合約號碼 LIKE N'" & PA & "' AND 流水號 LIKE N'" & PA1 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 流水號 FROM 合約報價係數 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約報價係數_新增() ConnOpen() : SQL1 = "INSERT INTO 合約報價係數 (合約號碼, 流水號, 項目, 係數, 單位) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')" : CmdSet_For_dr() End Sub '---------------------------附錄合約---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_附錄合約_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 附錄編號 FROM 合約附錄 ORDER BY 附錄編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_附錄合約_最後一筆資料1() ConnOpen() : SQL1 = "SELECT TOP (1) 附錄編號 FROM 合約附錄 WHERE 附錄編號 LIKE N'" & PA1 & "' ORDER BY 附錄編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_附錄合約_清單查詢() ConnOpen() SQL1 = "SELECT 合約號碼, 附錄編號 AS [" & 表頭(99) & "], 日期, 原金額, 追加減, 結算, 其他內容, 停用 AS [" & 表頭(179) & "] FROM 合約附錄 WHERE (合約號碼 LIKE N'" & PA & "') ORDER BY 附錄編號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_附錄合約_刪除() ConnOpen() : SQL1 = "DELETE FROM 合約附錄 WHERE (附錄編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_附錄合約_新增() ConnOpen() SQL1 = "INSERT INTO 合約附錄 (合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', '0')" CmdSet_For_dr() End Sub Friend Sub SQL_附錄合約_修改() ConnOpen() SQL1 = "UPDATE 合約附錄 SET 日期 = N'" & PA2 & "', 原金額 = N'" & PA3 & "', 追加減 = N'" & PA4 & "', 結算 = N'" & PA5 & "', 其他內容 = N'" & PA6 & "', 停用 = '" & BL1 & "' WHERE 附錄編號 LIKE N'" & PA1 & "'" CmdSet_For_dr() End Sub '---------------------------附錄合約---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_附錄合約_清單查詢1() ConnOpen() SQL1 = "SELECT 合約號碼, 附錄編號, 日期, 原金額, 追加減, 結算, 其他內容, 停用 FROM 合約附錄 WHERE (合約號碼 LIKE N'" & PA & "') AND (停用 = 0) ORDER BY 附錄編號 DESC" CmdSet_For_DGV() End Sub '---------------------------合約請款單---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_請款單_最後一筆資料() ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 ORDER BY 請款編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_請款單_最後一筆資料1() ConnOpen() : SQL1 = "SELECT TOP (1) 請款編號 FROM 合約請款 WHERE 請款編號 LIKE N'" & PA1 & "' ORDER BY 請款編號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_請款單_清單查詢() ConnOpen() SQL1 = "SELECT 請款編號, 期數, 請款內容, 比例, 請款金額, 稅金, 付款期限, 審批意見, 請款總額, 申請時間 FROM 合約請款 WHERE (合約編號 LIKE N'" & PA & "') ORDER BY CHARINDEX(LEFT(期數, 1), '一二三四五'), 請款編號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_請款單_刪除() ConnOpen() : SQL1 = "DELETE FROM 合約請款 WHERE (請款編號 LIKE N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_請款單_新增() ConnOpen() SQL1 = "INSERT INTO 合約請款 (合約編號, 請款編號, 期數, 請款內容, 請款金額, 稅金, 付款期限, 申請時間, 審批意見, 請款總額, 比例) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_請款單_修改() ConnOpen() SQL1 = "UPDATE 合約請款 SET 期數 = N'" & PA2 & "', 請款內容 = N'" & PA3 & "', 請款金額 = N'" & PA4 & "', 稅金 = N'" & PA5 & "', 付款期限 = N'" & PA6 & "', 申請時間 = N'" & PA7 & "', 審批意見 = N'" & PA8 & "', 請款總額 = N'" & PA9 & "', 比例 = N'" & PA10 & "' WHERE 請款編號 LIKE N'" & PA1 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_控制表_請款修改() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 追加減 = N'" & PA1 & "', 結算金額 = N'" & PA2 & "', 已請款 = N'" & PA3 & "', 剩餘款 = N'" & PA4 & "', 預付款 = N'" & PA5 & "', 到貨款 = N'" & PA6 & "', 施工款 = N'" & PA7 & "', 驗收款 = N'" & PA8 & "', 保留款 = N'" & PA9 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub '---------------------------合約請款控制表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約請款控制表查詢() ConnOpen() SQL1 = "SELECT 合約控制表.合約編號 AS [" & 表頭(134) & "], 合約控制表." & SQL3 & " AS [" & 表頭(151) & "], 合約控制表.工程總價 AS [" & 表頭(27) & "], 合約控制表.追加減 AS [" & 表頭(180) & "], 合約控制表.結算金額 AS [" & 表頭(181) & "], 合約控制表.已請款 AS [" & 表頭(182) & "], 合約控制表.已請款 AS 比例1, 合約控制表.剩餘款 AS [" & 表頭(183) & "], 合約控制表.剩餘款 AS 比例2, QQ.請款總額 AS [" & 表頭(184) & "], WW.請款總額 AS [" & 表頭(185) & "], EE.請款總額 AS [" & 表頭(186) & "], FF.請款總額 AS [" & 表頭(187) & "], RR.請款總額 AS [" & 表頭(188) & "], 簽回檔圖庫, 請款簽回 AS 簽回 FROM 合約控制表 LEFT OUTER JOIN (SELECT 合約編號, SUM(請款總額) AS 請款總額 FROM 合約請款 AS 合約請款_5 WHERE (期數 LIKE '五') GROUP BY 合約編號) AS RR ON 合約控制表.合約編號 = RR.合約編號 LEFT OUTER JOIN (SELECT 合約編號, SUM(請款總額) AS 請款總額 FROM 合約請款 AS 合約請款_4 WHERE (期數 LIKE '四') GROUP BY 合約編號) AS FF ON 合約控制表.合約編號 = FF.合約編號 LEFT OUTER JOIN (SELECT 合約編號, SUM(請款總額) AS 請款總額 FROM 合約請款 AS 合約請款_3 WHERE (期數 LIKE '三') GROUP BY 合約編號) AS EE ON 合約控制表.合約編號 = EE.合約編號 LEFT OUTER JOIN (SELECT 合約編號, SUM(請款總額) AS 請款總額 FROM 合約請款 AS 合約請款_2 WHERE (期數 LIKE '二') GROUP BY 合約編號) AS WW ON 合約控制表.合約編號 = WW.合約編號 LEFT OUTER JOIN (SELECT 合約編號, SUM(請款總額) AS 請款總額 FROM 合約請款 AS 合約請款_1 WHERE (期數 LIKE '一') GROUP BY 合約編號) AS QQ ON 合約控制表.合約編號 = QQ.合約編號 " & SQL2 & " ORDER BY 合約控制表.約號甲方, 合約控制表.約號排序 DESC, 合約控制表.約號尾序 DESC" CmdSet_For_DGV() End Sub '---------------------------合約驗收單---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約報價明細表_驗收存檔() ConnOpen() : SQL1 = "UPDATE 合約報價明細表 SET 驗收數量 = N'" & PA1 & "', 驗收備註 = N'" & PA2 & "' WHERE 流水號 LIKE N'" & PA9 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_驗收用() ConnOpen() SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 驗收開始日期, 驗收結果, 驗收備註, 工地驗收備註, 驗收完成日期, 保固期限 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) AND (工程主管 LIKE N'%" & PA45 & "%') ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" CmdSet_For_DGV() End Sub Friend Sub SQL_合約驗收明細表() ConnOpen() SQL1 = "SELECT 合約報價明細表.項目 AS ITEM, 合約報價明細表.內容 AS DESCRIPTION, 合約報價明細表.單位 AS UNIT, 合約報價明細表.報價數量 AS 合約, 合約報價明細表.驗收數量 AS 實際, 合約報價明細表.驗收數量 AS 差異, 合約報價明細表.驗收備註 AS REMARKS, 合約報價明細表.流水號, QQQ.A1, QQQ.A2, QQQ.A3, QQQ.A4, QQQ.A5, QQQ.A6, QQQ.A7, QQQ.A8, QQQ.規格庫抬頭指定, QQQ.規格庫編號, QQQ.品名, 合約報價明細表.料號, QQQ.料號原則, 合約報價明細表.材料係數, 合約報價明細表.不計算 AS 不計, QQQ.S1, QQQ.S2, QQQ.S3, QQQ.S4, QQQ.S5, QQQ.S6, QQQ.S7, QQQ.S8, 合約報價明細表.預設, 合約報價明細表.D1, 合約報價明細表.D2, 合約報價明細表.D3, 合約報價明細表.D4, 合約報價明細表.D5, 合約報價明細表.D6, 合約報價明細表.D7, 合約報價明細表.D8, QQQ.AA1, QQQ.AA2, QQQ.AA3, QQQ.AA4, QQQ.AA5, QQQ.AA6, QQQ.AA7, QQQ.AA8 FROM (SELECT 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料資訊控制表.規格庫編號, 物料資訊控制表.規格庫抬頭指定, 物料編碼庫轉語言.品名, 物料規格表.料號, 物料資訊控制表.料號原則, 物料規格表.S1, 物料規格表.S2, 物料規格表.S3, 物料規格表.S4, 物料規格表.S5, 物料規格表.S6, 物料規格表.S7, 物料規格表.S8, 規格庫抬頭.A1 AS AA1, 規格庫抬頭.A2 AS AA2, 規格庫抬頭.A3 AS AA3, 規格庫抬頭.A4 AS AA4, 規格庫抬頭.A5 AS AA5, 規格庫抬頭.A6 AS AA6, 規格庫抬頭.A7 AS AA7, 規格庫抬頭.A8 AS AA8 FROM 物料規格表 INNER JOIN 物料資訊控制表 ON 物料規格表.群組碼 = 物料資訊控制表.群組碼 AND 物料規格表.料號原則 = 物料資訊控制表.料號原則 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.群組碼 = 物料編碼庫轉語言.群組碼 AND 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN 規格庫抬頭 ON 物料資訊控制表.規格庫抬頭指定 = 規格庫抬頭.規格庫抬頭指定 AND 物料編碼庫轉語言.語言 = 規格庫抬頭.語言 WHERE (物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ RIGHT OUTER JOIN 合約報價明細表 ON QQQ.料號 = 合約報價明細表.料號 WHERE (合約報價明細表.合約號碼 LIKE N'" & PA & "') AND 合約報價明細表.項目 NOT LIKE '*' ORDER BY 合約報價明細表.排序" CmdSet_For_DGV() End Sub Friend Sub SQL_控制表_驗收確認() ConnOpen() : SQL1 = "SELECT 驗收開始日期 FROM 合約控制表 WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_控制表_驗收修改1() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 驗收開始日期 = N'" & PA1 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub '---------------------------合約驗收控制表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約驗收控制表查詢() ConnOpen() SQL1 = "SELECT 合約編號, 工程名稱_中 AS 工程, 工期, 立約日期, 驗收開始日期, 工期 AS [已完成/未完成天數], 驗收完成日期, 驗收結果, 保固期限, 驗收備註, 工地驗收備註, 工程主管, 簽回檔圖庫, 驗收簽回 AS 簽回 FROM 合約控制表 " & SQL2 & " ORDER BY 驗收開始日期 DESC, 立約日期 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_控制表_驗收修改2() ConnOpen() SQL1 = "UPDATE 合約控制表 SET 驗收完成日期 = N'" & PA1 & "', 驗收結果 = N'" & PA2 & "', 驗收備註 = N'" & PA3 & "', 保固期限 = N'" & PA4 & "' WHERE 合約編號 LIKE N'" & PA & "'" CmdSet_For_dr() End Sub Friend Sub SQL_控制表_驗收修改3() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工地驗收備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_控制表_驗收修改4() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 工程主管 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub '---------------------------合約保固書---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單_保固用() ConnOpen() SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期 AS QQ, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方 , 工期, 立約日期, 驗收開始日期, 驗收完成日期, 保固期限, 保固地址, 簽回檔圖庫, 保固簽回 AS 簽回 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (合約期數 LIKE '%" & PA47 & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (驗收結果 = 1) AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" CmdSet_For_DGV() End Sub Friend Sub SQL_控制表_保固修改() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 保固期限 = N'" & PA1 & "', 保固地址 = N'" & PA2 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub '---------------------------合約結案控制表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單_結案用() ConnOpen() SQL1 = "SELECT 合約控制表.合約編號, 合約控制表.工程名稱_中 AS 工程, 合約控制表.工期, 合約控制表.立約日期, 合約控制表.第一期比例, 合約控制表.第二期比例, 合約控制表.第三期比例, 合約控制表.第四期比例, 合約控制表.第五期比例, 合約控制表.預付款, 合約控制表.到貨款, 合約控制表.施工款, 合約控制表.驗收款, 合約控制表.保留款, HX空白圖片.圖片 AS 訂金, HX空白圖片.圖片 AS 到料, HX空白圖片.圖片 AS 施工, HX空白圖片.圖片 AS 驗收, HX空白圖片.圖片 AS 保固, 合約控制表.驗收完成日期, 合約控制表.保固期限 AS [保固期限(月)], 合約控制表.驗收完成日期 AS 保固到期日, 合約控制表.驗收完成日期 AS [保固剩餘(天)], 合約控制表.剩餘款, 合約控制表.結案備註, 客戶名稱, 合約控制表.工程總價, 合約控制表.追加減, 合約控制表.結算金額, 合約控制表.已請款,工期 AS 排序 FROM 合約控制表 LEFT OUTER JOIN HX空白圖片 ON 合約控制表.合約編號 = HX空白圖片.選擇 " & SQL2 & " ORDER BY 合約控制表.約號甲方, 合約控制表.約號排序, 合約控制表.約號尾序" CmdSet_For_DGV() End Sub Friend Sub SQL_控制表_結案修改() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 結案備註 = N'" & PA3 & "' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub '---------------------------工程項目BOM表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_BOM表控制() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 ORDER BY 項目" : CmdSet_For_DGV() End Sub Friend Sub SQL_BOM表控制_項目查詢() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號, 項目 FROM 工程項目BOM表控制 WHERE 項目 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表控制流水號查詢() ConnOpen_工程SQL() : SQL1 = "SELECT 流水號 FROM 工程項目BOM表控制 ORDER BY 流水號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表控制_新增() ConnOpen_工程SQL() : SQL1 = "INSERT INTO 工程項目BOM表控制 (流水號, 項目) VALUES (N'" & PA & "', N'" & PA1 & "')" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表控制_存檔() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表控制 SET 項目 = N'" & PA1 & "' WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表控制_刪除() ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表控制 WHERE 流水號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細() ConnOpen_工程SQL() SQL1 = "SELECT 工程項目BOM表明細.排序, 工程項目BOM表明細.排序 AS 項次, 工程項目BOM表明細.項目, 工程項目BOM表明細.單位, 工程項目BOM表明細.數量, 工程項目BOM表明細.料號, 工程項目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, 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 FROM 工程項目BOM表明細 LEFT OUTER JOIN (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, [HX-GPS-ERP-SYS].dbo.物料規格表.A5, [HX-GPS-ERP-SYS].dbo.物料規格表.A6, [HX-GPS-ERP-SYS].dbo.物料規格表.A7, [HX-GPS-ERP-SYS].dbo.物料規格表.A8, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫編號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定, [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.品名, [HX-GPS-ERP-SYS].dbo.物料規格表.料號, [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則, [HX-GPS-ERP-SYS].dbo.物料規格表.S1, [HX-GPS-ERP-SYS].dbo.物料規格表.S2, [HX-GPS-ERP-SYS].dbo.物料規格表.S3, [HX-GPS-ERP-SYS].dbo.物料規格表.S4, [HX-GPS-ERP-SYS].dbo.物料規格表.S5, [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, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A2 AS AA2, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A3 AS AA3, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A4 AS AA4, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A5 AS AA5, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A6 AS AA6, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A7 AS AA7, [HX-GPS-ERP-SYS].dbo.規格庫抬頭.A8 AS AA8 FROM [HX-GPS-ERP-SYS].dbo.物料規格表 INNER JOIN [HX-GPS-ERP-SYS].dbo.物料資訊控制表 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = [HX-GPS-ERP-SYS].dbo.物料資訊控制表.群組碼 AND [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料資訊控制表.料號原則 INNER JOIN [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言 ON [HX-GPS-ERP-SYS].dbo.物料規格表.群組碼 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.群組碼 AND [HX-GPS-ERP-SYS].dbo.物料規格表.料號原則 = [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.料號原則 INNER JOIN [HX-GPS-ERP-SYS].dbo.規格庫抬頭 ON [HX-GPS-ERP-SYS].dbo.物料資訊控制表.規格庫抬頭指定 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.規格庫抬頭指定 AND [HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 = [HX-GPS-ERP-SYS].dbo.規格庫抬頭.語言 WHERE ([HX-GPS-ERP-SYS].dbo.物料編碼庫轉語言.語言 LIKE N'" & 系統語言 & "')) AS QQQ ON 工程項目BOM表明細.料號 = QQQ.料號 WHERE 工程項目BOM表明細.流水號 LIKE '" & PA & "' ORDER BY 工程項目BOM表明細.排序" CmdSet_For_DGV() End Sub Friend Sub SQL_BOM表明細流水號查詢() ConnOpen_工程SQL() : SQL1 = "SELECT 排序 FROM 工程項目BOM表明細 WHERE 流水號 LIKE N'" & PA & "' ORDER BY 排序 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細流水號查詢1() ConnOpen_工程SQL() : SQL1 = "SELECT 明細流水 FROM 工程項目BOM表明細 ORDER BY 明細流水 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細_新增() ConnOpen_工程SQL() SQL1 = "INSERT INTO 工程項目BOM表明細 (流水號, 排序, 項目, 料號, 數量, 單位, 明細流水) VALUES (N'" & PA & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA7 & "')" CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細_刪除() ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 明細流水 LIKE '" & PA7 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細_刪除_全部() ConnOpen_工程SQL() : SQL1 = "DELETE 工程項目BOM表明細 WHERE 流水號 LIKE '" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細_存檔() ConnOpen_工程SQL() SQL1 = "UPDATE 工程項目BOM表明細 SET 排序 = N'" & PA1 & "', 項目 = N'" & PA2 & "', 料號 = N'" & PA3 & "', 數量 = N'" & PA4 & "', 單位 = N'" & PA5 & "' WHERE 明細流水 LIKE N'" & PA7 & "'" CmdSet_For_dr() End Sub Friend Sub SQL_BOM表明細_存檔_料號() ConnOpen_工程SQL() : SQL1 = "UPDATE 工程項目BOM表明細 SET 料號 = N'" & PA3 & "' WHERE 明細流水 LIKE N'" & PA7 & "'" : CmdSet_For_dr() End Sub '---------------------------合約文件簽回存檔---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單_簽回存檔() ConnOpen() SQL1 = "SELECT 合約編號, 客戶名稱, 工程名稱_中, 工程名稱_英, 簽回檔圖庫, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 保固簽回 AS 開始保固 , 保固簽回, 其他文件 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 1) ORDER BY 約號排序 DESC, 約號甲方, 約號尾序" CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單_簽回存檔_最後一筆編號查詢() ConnOpen_工程圖庫SQL() : SQL1 = "SELECT TOP(1) 文件號 FROM 合約文件簽回圖檔 WHERE (合約編號 LIKE '" & PA1 & "') ORDER BY 文件號 DESC" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_簽回存檔_圖片入系統() ConnOpen_工程圖庫SQL() SQL1 = "INSERT INTO 合約文件簽回圖檔 (合約編號, 階段, 文件號, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(2) & "\" & 合約文件簽回存檔.檔案名稱_tb.Text & 合約文件簽回存檔.副檔名_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE" CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_簽回存檔_圖片清單() ConnOpen_工程圖庫SQL() SQL1 = "SELECT 文件號 AS Item, 圖片 AS IMG FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' ORDER BY 文件號" CmdSet_For_DGV() End Sub Friend Sub SQL_合約清單_簽回存檔_圖片讀取() ConnOpen_工程圖庫SQL() SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC" CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_簽回存檔_圖片讀取1() ConnOpen_工程圖庫SQL() SQL1 = "SELECT 圖片 FROM 合約文件簽回圖檔 WHERE 合約編號 LIKE '" & PA1 & "' AND 階段 LIKE '" & PA2 & "' AND 文件號 LIKE '" & PA3 & "' ORDER BY 文件號 DESC" CmdSet_For_DGV() End Sub Friend Sub SQL_合約控制表簽回檔注記() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET " & SQL2 & " = N'" & BL1 & "', 簽回檔圖庫 = N'" & 圖片庫 & "' WHERE 合約編號 LIKE N'" & PA1 & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_簽回存檔_圖片刪除() ConnOpen_工程圖庫SQL() SQL1 = "DELETE 合約文件簽回圖檔 WHERE (合約編號 LIKE N'" & PA1 & "') AND (文件號 LIKE N'" & PA3 & "')" CmdSet_For_dr() End Sub '---------------------------合約文件簽核控制表---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約文件簽核控制表() ConnOpen() SQL1 = "SELECT 合約編號, 工程名稱_中, 工程名稱_英, 合約停止 AS 報價完成, 報價放行 AS 報價核准, 報價簽回, 合約簽回, 請款簽回, 驗收結果 AS 執行驗收, 驗收簽回, 保固簽回 AS 開始保固 , 保固簽回, 簽回檔圖庫, 保固期限 FROM 合約控制表 WHERE (合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%') AND (約號甲方 LIKE N'%" & PA46 & "%') " & SQL2 & SQL3 & SQL4 & " ORDER BY 約號排序 DESC, 約號甲方, 約號尾序" CmdSet_For_DGV() End Sub '---------------------------合約報價單審核---------------------------------------------------------------------------------------------------------------------------------------------- Friend Sub SQL_合約清單_報價放行_存檔() ConnOpen() : SQL1 = "UPDATE 合約控制表 SET 報價放行 = '1' WHERE 合約編號 LIKE N'" & PA & "'" : CmdSet_For_dr() End Sub Friend Sub SQL_合約清單_報價放行用() ConnOpen() If PA = "" Then SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 簽回檔圖庫, 報價簽回 AS 簽回 FROM 合約控制表 WHERE 約號甲方 LIKE N'%" & PA46 & "%' AND 合約期數 LIKE N'%" & PA47 & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" Else SQL1 = "SELECT 合約編號, 客戶名稱, 負責人A, 工程地點, 客戶地址, 工程名稱_中, 工程名稱_英, 我司公司, 負責人B, 我司地址, 工程總價, 第一期比例, 第二期比例, 第三期比例, 第四期比例, 第五期比例, 工期, 逾期_中, 最高扣罰_中, 逾期_英, 最高扣罰_英, 減價, 工程廠區, 頁數, 立約日期, 合約種類, 約號排序, 約號尾序, 約號甲方, 報價說明, 合約停止, 簽回檔圖庫, 報價簽回 AS 簽回 FROM 合約控制表 WHERE 合約編號 LIKE N'%" & PA & "%' OR 客戶名稱 LIKE N'%" & PA & "%' OR 負責人A LIKE N'%" & PA & "%' OR 工程地點 LIKE N'%" & PA & "%' OR 客戶地址 LIKE N'%" & PA & "%' OR 工程名稱_中 LIKE N'%" & PA & "%' OR 工程名稱_英 LIKE N'%" & PA & "%' AND (合約停止 = 0 OR 合約停止 IS NULL) AND (報價放行 = 0 OR 報價放行 IS NULL) ORDER BY 約號排序 DESC, 約號尾序, 約號甲方, 合約期數" End If CmdSet_For_DGV() End Sub End Module