ustva, cbam, autofakt, etc.

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -1,6 +1,4 @@
-Imports com.sun.org.apache.xpath.internal.functions
-Imports javax.validation.constraints
-Imports Org.BouncyCastle.Asn1
+
 
 Public Class cMDMFunctionsAllgemein
 
@@ -792,4 +790,5 @@ Public Class cMDMFunctionsAllgemein
         End Try
     End Function
 
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -117,6 +117,7 @@ Public Class cRechnungsausgang
     Property FakturierungsGruppe As String = ""
     Property TextZZ As Object = Nothing
     Property ForceSteuerschlüssel As Object = Nothing
+    Property Automailversand As Boolean = False
 
 
     ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
@@ -360,6 +361,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FakturierungsGruppe", FakturierungsGruppe))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextZZ", TextZZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ForceSteuerschlüssel", ForceSteuerschlüssel))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand", Automailversand))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1391,7 +1391,7 @@ Public Class cUTA
     End Function
 
 
-    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, uta_kdNr As Integer, ustvaId As Integer) As Boolean
+    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Single, uta_kdNr As String, ustvaId As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL