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

Sammelrechnung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-05 17:07:03 +02:00
parent 1d137b969c
commit 1b31bae783
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -188,7 +188,7 @@ Public Class frmAbrechnungsMaske
If cbx.Checked Then If cbx.Checked Then
reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
Else Else
reNrSQL = " cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, "
End If End If
@@ -987,7 +987,7 @@ Public Class frmAbrechnungsMaske
Dim ListOfRK_ID As New List(Of Integer) Dim ListOfRK_ID As New List(Of Integer)
Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value)) Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value) OrElse (r.Cells("RENR").Value) <> "-")
If noRE_DATE Then MsgBox("ACHTUNG, Rechnungsdatum wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub If noRE_DATE Then MsgBox("ACHTUNG, Rechnungsdatum wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub

5
SDL/Fakturierung/frmFaktSammelRgDrucken.vb
View File

@@ -669,13 +669,14 @@ Public Class frmFaktSammelRgDrucken
Me.Enabled = True Me.Enabled = True
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If
End If
Else Else
MsgBox("Es wurde keine RE-Nr vergeben !") : Exit Sub
End If End If
End If
End If
setMailversand_ALL(True, Firma, Sammelrechung) setMailversand_ALL(True, Firma, Sammelrechung)
Me.Enabled = True Me.Enabled = True