edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WhatsApp, Anhänge SR, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-24 08:20:51 +02:00
parent 05a84e20d4
commit 6dc4001cac
4 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -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 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 For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows

7
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1135,7 +1135,12 @@ Public Class usrcntlFakturierung
ANH.dsId = CInt(DS.da_id) ANH.dsId = CInt(DS.da_id)
ANH.Bezeichnung = DS.da_name ANH.Bezeichnung = DS.da_name
RECHNUNG.ANHAENGE.Add(ANH) 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 Else
MsgBox("Rechnung nicht initialisiert.") MsgBox("Rechnung nicht initialisiert.")
Return False Return False

4
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
View File

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

2
VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb generated
View File

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