upload product groups

FL.bas

@@ -1674,9 +1674,30 @@ End Sub
 
 Sub convert_to_value()
     
+    Dim c As Object
+    
     For Each c In Selection.Cells
         If IsNumeric(c.value) Then c.value = CDbl(c.value)
     Next c
 
 
 End Sub
+
+Sub pricegroup_upload()
+
+    Dim sql As String
+    Selection.CurrentRegion.Select
+    
+    sql = x.SQLp_build_sql_values(x.ARRAYp_get_range_string(Selection), True, True, PostgreSQL, False)
+    sql = "BEGIN;" & vbCrLf & "DELETE FROM rlarp.price_map;" & vbCrLf & "INSERT INTO rlarp.price_map" & vbCrLf & sql & ";" & vbCrLf & "Commit;"
+    
+    If Not x.ADOp_Exec(0, sql, 1, True, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then
+        MsgBox (x.ADOo_errstring)
+    Else
+        MsgBox ("Upload Complete")
+    End If
+    
+    Call x.ADOp_CloseCon(0)
+    
+
+End Sub