fix

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -19,16 +19,19 @@ Public Class cUStVLeistender
         Dim SQL As New SQL
 
     Sub New(UStV_Leistender As String, Optional searchbyUID As Boolean = False)
-        If Not searchbyUID Then
-            Me.UStV_Leistender = UStV_Leistender
-            LOAD()
+        If UStV_Leistender <> "" Then
+            If Not searchbyUID Then
+                Me.UStV_Leistender = UStV_Leistender
+                LOAD()
 
-        Else
-            Me.UstV_Leistender_UstNr = UStV_Leistender
-            LOADBYUID()
+            Else
+                Me.UstV_Leistender_UstNr = UStV_Leistender
+                LOADByUID()
 
+            End If
         End If
 
+
     End Sub
 
     Sub New(Id As Integer)