diff --git a/targets.bas b/targets.bas index 759557d..7ff235f 100644 --- a/targets.bas +++ b/targets.bas @@ -15,12 +15,12 @@ Sub get_options() 'If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then Exit Sub sql = "SELECT * FROM rlarp.get_options('" & mold & "');" - res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "", "Port=5030;Database=ubm") + res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "report", "Port=5432;Database=ubm") ws.Range("M1:P350").ClearContents Call x.SHTp_Dump(res, ws.Name, 1, 13, False, True, 15) sql = "SELECT * FROM rlarp.get_option_costs('" & mold & "');" - res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "", "Port=5030;Database=ubm") + res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "report", "Port=5432;Database=ubm") ws.Range("C1:K350").ClearContents Call x.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8) @@ -97,7 +97,7 @@ Sub save_targets() sqlt = sqlt & sql(0, i) & vbCrLf Next i - targt = x.SQLp_build_sql_values(x.SHTp_Get(ws.Name, 1, 18, True), True, True, PostgreSQL, False, "N", "N", "S", "S", "S", "S", "S", "S", "N", "N", "N", "N", "N") + targt = x.SQLp_build_sql_values(x.SHTp_Get(ws.Name, 1, 18, True), True, True, PostgreSQL, False, True, "N", "N", "S", "S", "S", "S", "S", "S", "N", "N", "N", "N", "N") sqlt = Replace(sqlt, "replace_this", targt) @@ -113,7 +113,7 @@ Sub save_targets() sqlt = sqlt & sql(0, i) & vbCrLf Next i - targt = x.SQLp_build_sql_values(x.SHTp_Get(ws.Name, 1, 18, True), True, True, PostgreSQL, False, "N", "N", "S", "S", "S", "S", "S", "S", "N", "N", "N", "N", "N") + targt = x.SQLp_build_sql_values(x.SHTp_Get(ws.Name, 1, 18, True), True, True, PostgreSQL, False, True, "N", "N", "S", "S", "S", "S", "S", "S", "N", "N", "N", "N", "N") sqlt = Replace(sqlt, "replace_this", targt)