WhatsApp, Anhänge SR, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -3884,7 +3884,7 @@ Public Class frmMDM_USTVAntrag
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
 
-            If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then
+            If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktivieren?", vbYesNoCancel) Then
 
                 For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
 

SDL/seriendruck/usrCntlFakturierung.vb

@@ -1135,7 +1135,12 @@ Public Class usrcntlFakturierung
             ANH.dsId = CInt(DS.da_id)
             ANH.Bezeichnung = DS.da_name
             RECHNUNG.ANHAENGE.Add(ANH)
-            Return RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID, False, False)
+
+            If Not ANH.INSERT(RECHNUNG.RK_ID, False) Then
+                Return False
+            End If
+
+            Return True
         Else
             MsgBox("Rechnung nicht initialisiert.")
             Return False

VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb

@@ -481,9 +481,7 @@ Public Class cSMS
             If Originator = "" Then Originator = absenderFirma
             If Originator.Length > 11 Then Originator = Originator.Substring(0, 11)
 
-            If Message.Contains(vbLf) Then
-                Message = Message.Replace(vbLf, ", ")
-            End If
+            Message = System.Text.RegularExpressions.Regex.Replace(Message, "\r\n|\r|\n", ", ")
 
             Dim json As New Chilkat.JsonObject
 

VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb

@@ -235,7 +235,7 @@ Partial Class frmDatumsabfrage
     Friend WithEvents btn As Button
     Friend WithEvents lbl As Label
     Friend WithEvents Label1 As Label
-    Friend WithEvents dtp_date As DateTimePicker
+    Public WithEvents dtp_date As DateTimePicker
     Friend WithEvents pnlKunde As Panel
     Public WithEvents cboKundenkreis As VERAG_PROG_ALLGEMEIN.MyComboBox
     Public WithEvents cbxKunden As CheckBox