API, etc.

VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb

@@ -31,6 +31,7 @@ Public Enum cAPI_ART
     AVISO_OUT_SAMMELRECHNUNG = 84
     AVISO_OUT_EINZELRECHNUNG = 85
     SDL_OUT_RS_ORIGINALRECHNUNGEN = 86
+    SDL_OUT_MDM_AUSWERTUNG = 87
 
 
 End Enum

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports System.Text.RegularExpressions
 
 Public Class cAdressen
     Property Auswahl As Object = Nothing
@@ -166,7 +167,7 @@ Public Class cAdressen
             'Prüfung Neuanlage: Nur Hinweismeldung! -> speichern soll trotzdem möglich sein!
             If checkUID(KD, kundenNameUID, UIDMehfachverwendung) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
         Else
-                Try
+            Try
                 Dim kunde = DirectCast(KD, cKunde)
                 Dim addresseTemp = New cAdressen(kunde.KundenNr)
                 If Not (addresseTemp.UstIdKz = UstIdKz And addresseTemp.UstIdNr = UstIdNr) Then
@@ -314,7 +315,7 @@ Public Class cAdressen
 
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
-                Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND (AdressenNr LIKE '15%' or AdressenNr LIKE '18%')", ""), conn)
+                Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & Regex.Replace(UIDNr, "[^0-9.-]", "") & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND (AdressenNr LIKE '15%' or AdressenNr LIKE '18%')", ""), conn)
 
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then

VERAG_PROG_ALLGEMEIN/Classes/cMDMEInarbeitung.vb

@@ -13,6 +13,9 @@ Public Class cMDMEinarbeitung
     Property completed_date As Object = Nothing
     Property import_date As Object = Nothing
     Property importfilename As Object = Nothing
+    Property billingdate As Object = Nothing
+    Property billing_completed As Boolean = False
+
 
     Public hasEntry = False
 
@@ -48,6 +51,8 @@ Public Class cMDMEinarbeitung
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("completed_date", completed_date))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("import_date", import_date))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("importfilename", importfilename))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("billingdate", billingdate))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("billing_completed", billing_completed))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -1,8 +1,6 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
-Imports System.Web.Configuration
-Imports io.konik.zugferd
 
 Public Class cRMC
     Property rmc_id As Integer