cFakt, etc.

VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb

@@ -145,6 +145,7 @@ Public Class cDY_Zollanmeldungen_Import
     Property Importstatus As Object = Nothing
     Property Importdate As Object = Nothing
     Property Importfile As Object = Nothing
+    Property Ursprungsland_ISO2 As Object = Nothing
 
     Public hasEntry = False
 
@@ -301,6 +302,7 @@ Public Class cDY_Zollanmeldungen_Import
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importfile", Importfile))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland_ISO2", Ursprungsland_ISO2))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -219,7 +219,7 @@ Public Class cUIDPruefung
 
                 Case "FINANZONLINE"
                     Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
-                    VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
+                    'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM?
                     FO.initValues()
                     Dim counter = 0
                     Dim errorCounter As Integer = 0