accomodate an update to the stored proc that returns accessories list

This commit is contained in:
Paul Trowbridge 2021-10-14 09:50:59 -04:00
parent 0f8a560b4b
commit 33c49f3463

View File

@ -16,12 +16,12 @@ Sub get_options()
sql = "SELECT * FROM rlarp.get_options('" & mold & "');" 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", "", "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) Call x.SHTp_Dump(res, ws.Name, 1, 12, False, True, 13)
sql = "SELECT * FROM rlarp.get_option_costs('" & mold & "');" 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", "", "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.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8)
Call x.ADOp_CloseCon(0) Call x.ADOp_CloseCon(0)