diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index b1fa09ee..7a5aff67 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/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 diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index ed34996f..f36dafcc 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb index 81f9d0c9..08106028 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb b/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb index 2404239b..30090b47 100644 --- a/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb +++ b/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