From 33c49f346395ac85d64855a5c0b30c116f70e30e Mon Sep 17 00:00:00 2001 From: Paul Trowbridge Date: Thu, 14 Oct 2021 09:50:59 -0400 Subject: [PATCH] accomodate an update to the stored proc that returns accessories list --- targets.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/targets.bas b/targets.bas index 2de2983..977d4d4 100644 --- a/targets.bas +++ b/targets.bas @@ -16,12 +16,12 @@ Sub get_options() sql = "SELECT * FROM rlarp.get_options('" & mold & "');" res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "", "Port=5030;Database=ubm") - ws.Range("L1:O35").ClearContents + ws.Range("L1:O350").ClearContents Call x.SHTp_Dump(res, ws.Name, 1, 12, False, True, 13) 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") - ws.Range("C1:I35").ClearContents + ws.Range("C1:J350").ClearContents Call x.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8) Call x.ADOp_CloseCon(0)