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

update ports

Browse Source
This commit is contained in:
Paul Trowbridge 2022-12-20 10:09:55 -05:00
parent d75cb849e8
commit 56e00d7d5c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PriceLists.bas
View File

@ -43,7 +43,7 @@ Sub test_full20()
login.Show login.Show
If Not login.proceed Then Exit Sub If Not login.proceed Then Exit Sub
If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") Then If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm") Then
MsgBox ("not able to connect to CMS" & vbCrLf & x.ADOo_errstring) MsgBox ("not able to connect to CMS" & vbCrLf & x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
@ -251,7 +251,7 @@ Sub price_load_plcore()
login.Show login.Show
If Not login.proceed Then Exit Sub If Not login.proceed Then Exit Sub
If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU, login.tbP, "Port=5030;Database=ubm") Then If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU, login.tbP, "Port=5432;Database=ubm") Then
MsgBox (x.ADOo_errstring) MsgBox (x.ADOo_errstring)
Exit Sub Exit Sub
End If End If
@ -512,7 +512,7 @@ Sub build_customer_files()
If pricelevel.chbFULLCODE Then If pricelevel.chbFULLCODE Then
'---------------------get full code list-------------------------------------------------------------------- '---------------------get full code list--------------------------------------------------------------------
fc = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_fullcode_cust('" & plev & "', '" & effdate & "'::date)", False, 20000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") fc = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_fullcode_cust('" & plev & "', '" & effdate & "'::date)", False, 20000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm")
If fc(0, 0) <> "Currency" Then If fc(0, 0) <> "Currency" Then
MsgBox (fc(0, 0)) MsgBox (fc(0, 0))
Exit Sub Exit Sub
@ -588,7 +588,7 @@ Sub build_customer_files()
'---------------------get price list------------------------------------------------------------------------ '---------------------get price list------------------------------------------------------------------------
If pricelevel.chbNURSERY Then If pricelevel.chbNURSERY Then
pln = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "', '^N')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") pln = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "', '^N')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm")
If pln(0, 0) <> "Product" Then If pln(0, 0) <> "Product" Then
MsgBox (pln(0, 0)) MsgBox (pln(0, 0))
Exit Sub Exit Sub
@ -602,7 +602,7 @@ Sub build_customer_files()
End If End If
If pricelevel.chbFIBER Then If pricelevel.chbFIBER Then
plf = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "','^F')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") plf = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "','^F')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm")
If plf(0, 0) <> "Product" Then If plf(0, 0) <> "Product" Then
MsgBox (plf(0, 0)) MsgBox (plf(0, 0))
Exit Sub Exit Sub
@ -619,7 +619,7 @@ Sub build_customer_files()
End If End If
End If End If
pl = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "','" & segment_regex & "')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5030;Database=ubm") pl = x.ADOp_SelectS(0, "SELECT * FROM rlarp.plcore_build_pretty('" & plev & "','" & segment_regex & "')", False, 2000, True, PostgreSQLODBC, "usmidlnx01", False, login.tbU.text, login.tbP.text, "Port=5432;Database=ubm")
If pl(0, 0) <> "Product" Then If pl(0, 0) <> "Product" Then
MsgBox (pl(0, 0)) MsgBox (pl(0, 0))
Exit Sub Exit Sub