From 56e00d7d5cac44d6f15ad55de80803558ce6912e Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <paul@hptrow.me>
Date: Tue, 20 Dec 2022 10:09:55 -0500
Subject: [PATCH] update ports

---
 PriceLists.bas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/PriceLists.bas b/PriceLists.bas
index 63037fa..cf5b405 100644
--- a/PriceLists.bas
+++ b/PriceLists.bas
@@ -43,7 +43,7 @@ Sub test_full20()
     login.Show
     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)
         Exit Sub
     End If
@@ -251,7 +251,7 @@ Sub price_load_plcore()
     login.Show
     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)
         Exit Sub
     End If
@@ -512,7 +512,7 @@ Sub build_customer_files()
     
     If pricelevel.chbFULLCODE Then
         '---------------------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
             MsgBox (fc(0, 0))
             Exit Sub
@@ -588,7 +588,7 @@ Sub build_customer_files()
     
     '---------------------get price list------------------------------------------------------------------------
     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
             MsgBox (pln(0, 0))
             Exit Sub
@@ -602,7 +602,7 @@ Sub build_customer_files()
     End If
     
     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
             MsgBox (plf(0, 0))
             Exit Sub
@@ -619,7 +619,7 @@ Sub build_customer_files()
         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
         MsgBox (pl(0, 0))
         Exit Sub