pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

accomodate an update to the stored proc that returns accessories list

Browse Source
This commit is contained in:
Paul Trowbridge 2021-10-14 09:50:59 -04:00
parent 0f8a560b4b
commit 33c49f3463
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
targets.bas
View File

@ -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)