better status messages, updated version numbers for hydro toolbox

Author: PaulDudaRESPEC

BASINS/frmAbout.vb

@@ -372,7 +372,7 @@ Public Class frmAbout
 
             Try
                 'lblPluginVersion.Text = " Build Date:  " & IO.File.GetLastWriteTime(Me.GetType().Assembly.Location).ToShortDateString
-                lblPluginVersion.Text = " Release Date: February 20, 2026"
+                lblPluginVersion.Text = " Release Date: June 2026"
             Catch
             End Try
             Try

BASINS/modBasinsPlugin.vb

@@ -53,7 +53,7 @@ Public Module modBasinsPlugin
 #ElseIf ProgramName = "USGS Hydrologic Toolbox" Then
     Public Const g_AppNameRegistry As String = "USGS-Hydro" 'For preferences in registry
     Friend Const g_AppNameShort As String = "Hydro Toolbox"
-    Friend Const g_AppNameLong As String = "USGS Hydrologic Toolbox" & vbCrLf & "(1.1.3)"
+    Friend Const g_AppNameLong As String = "USGS Hydrologic Toolbox" & vbCrLf & "(1.1.4)"
     'Friend Const g_URL_Home As String = "https://water.usgs.gov/ogw/gwtoolbox/"
     Friend Const g_URL_Home As String = "https://doi.org/10.5066/P13VDNAK"
     Friend Const g_URL_Register As String = "http://hspf.com/pub/USGS-SW/register.html"

BASINS/modDownloadDS.vb

@@ -39,6 +39,9 @@ Public Module modDownload
                 atcDataManager.UserManage()
             End If
         End If
+        If lMessage.Length = 2 AndAlso Logger.DisplayMessageBoxes Then
+            Logger.Msg("No data found at selected locations.", "Data Download")
+        End If
     End Sub
 
     Private Function ProcessDownloadResult(ByVal aInstructions As String) As String

D4EMDownloadData/DownloadDataPlugin.vb

@@ -75,6 +75,9 @@ Public Class DownloadDataPlugin
                         Dim lResult As String = Nothing
                         If lQuery.Length > 0 Then
                             If UsingWaterDataAPI And lQuery.Contains("GetNWIS") Then
+                                Logger.Status("LABEL TITLE BASINS Data Download")
+                                Logger.Status("SHOW")
+                                Logger.Status("Downloading with waterdata_toolbox.exe")
                                 Dim lWaterToolboxExe As String = IO.Path.Combine(PathNameOnly(Reflection.Assembly.GetEntryAssembly.Location), "waterdata_toolbox") & pPathChar & "waterdata_toolbox.exe"
                                 If Not FileExists(lWaterToolboxExe) Then
                                     lWaterToolboxExe = FindFile("Please Locate waterdata_toolbox.exe", "waterdata_toolbox.exe")  'hard code for debug

USGSHydroToolboxDS/Utilities.cs

@@ -278,8 +278,8 @@ public static bool LoadDataSourcePlugins()
                 atcDataManager.DataPlugins.Add(script);
                 var lRDB = new atcTimeseriesRDB.atcTimeseriesRDB();
                 atcDataManager.DataPlugins.Add(lRDB);
-                var lWDM = new atcWDM.atcDataSourceWDM();
-                atcDataManager.DataPlugins.Add(lWDM);
+                //var lWDM = new atcWDM.atcDataSourceWDM();
+                //atcDataManager.DataPlugins.Add(lWDM);
                 //var lJSON = new atcTimeseriesJSON.atcTimeseriesJSON();
                 //atcDataManager.DataPlugins.Add(lJSON);
                 var lCSV = new atcTimeseriesCSV_USGS.atcTimeseriesCSV_USGS();