UID-Pruefung, BH, etc.

2025-11-07 09:58:39 +01:00
parent cf130e2056
commit a0dd0b0213
3 changed files with 473 additions and 448 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
+++ b/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" WARUM?
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
                    FO.initValues()
                    Dim counter = 0
                    Dim errorCounter As Integer = 0