accomodate an update to the stored proc that returns accessories list
This commit is contained in:
parent
0f8a560b4b
commit
33c49f3463
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user