EzaDy

DAKOSY_Worker/cImporter_DakosyToVERAG.vb

@@ -379,7 +379,7 @@ Public Class cImporter_DakosyToVERAG
             ZOLL.LOAD()
 
             If Not ZOLL.hasEntry Then
-                Throw New Exception("Zollanmeldung nicht gefunden. za_Id=" & ZA.za_Id)
+                cErrorHandler.ERR("UpdateBrokerManagementFileTETRAPAK", "UpdateBrokerManagementFileTETRAPAK", "Zollanmeldung nicht gefunden. za_Id=" & ZA.za_Id)
             End If
 
             Debug.WriteLine(prefix & "ZA-ID: " & ZOLL.za_Id)
@@ -474,7 +474,7 @@ Public Class cImporter_DakosyToVERAG
             Dim nurKopfabgaben As Boolean = (anzahlPositionsabgaben = 0)
 
             If nurKopfabgaben AndAlso positionen.Count > 1 AndAlso ZOLL.Duties.Count > 0 Then
-                Throw New Exception("BrokerManagementFile: Es sind " & positionen.Count &
+                cErrorHandler.ERR("UpdateBrokerManagementFileTETRAPAK", "BrokerManagementFile", "BrokerManagementFile: Es sind " & positionen.Count &
                                 " Warenpositionen vorhanden, aber nur Kopfabgaben gespeichert. " &
                                 "Eine eindeutige Verteilung von Zoll/EUSt ist nicht möglich. ZA-ID=" & ZOLL.za_Id)
             End If
@@ -673,7 +673,7 @@ Public Class cImporter_DakosyToVERAG
 
         Catch ex As Exception
             Debug.WriteLine(prefix & "FEHLER: " & ex.ToString())
-            Throw
+            cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
         Finally
             Debug.WriteLine(prefix & "========== ENDE BrokerManagementFile ==========")
         End Try