Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -990,16 +990,20 @@ Public Class cFormularManager
 
                 Try
                     Dim f = stamper.AcroFields
-                    f.GenerateAppearances = True
-                    For Each r In f.Fields
-                        Dim key = r.Key.ToString
-                        Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString)
-                        Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem
-                        listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(r.Key.ToString))
+                    If f IsNot Nothing Then
+                        f.GenerateAppearances = True
+                        For Each r In f.Fields
+                            Dim key = r.Key.ToString
+                            Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString)
+                            Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem
+                            listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(r.Key.ToString))
+                            list.Add(listItem)
 
-                        list.Add(listItem)
+                        Next
+                    Else
+                        MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
+                    End If
 
-                    Next
 
                 Catch ex As Exception
                     VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)