From 4f45a6b3f35bc0732a3c067323b5b9cfbff41594 Mon Sep 17 00:00:00 2001 From: Paul Trowbridge Date: Thu, 5 Jan 2023 14:13:29 -0500 Subject: [PATCH] point to new server, and use new function formula2r1c1 --- TheBigOne.cls | 2 +- targets.bas | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/TheBigOne.cls b/TheBigOne.cls index 2541b73..54fed2d 100644 --- a/TheBigOne.cls +++ b/TheBigOne.cls @@ -443,7 +443,7 @@ Sub SHTp_Dump(ByRef tbl() As String, ByRef sheet As String, ByRef row As Long, B If clear Then sh.Cells.clear If transpose Then Call Me.ARRAYp_Transpose(tbl) - sh.Range(sh.Cells(row, col).address & ":" & sh.Cells(row + UBound(tbl, 1), col + UBound(tbl, 2)).address).FormulaR1C1 = tbl + sh.Range(sh.Cells(row, col).address & ":" & sh.Cells(row + UBound(tbl, 1), col + UBound(tbl, 2)).address).Formula2R1C1 = tbl On Error GoTo errhndl diff --git a/targets.bas b/targets.bas index 7ff235f..004b21c 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", "report", "Port=5432;Database=ubm") - ws.Range("M1:P350").ClearContents + res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "10.56.60.254", False, "report", "report", "Port=5432;Database=ubm") + ws.Range("M1:AD350").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", "report", "Port=5432;Database=ubm") + res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "10.56.60.254", False, "report", "report", "Port=5432;Database=ubm") ws.Range("C1:K350").ClearContents Call x.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8)