abrechnung, etc.

This commit is contained in:
2026-03-30 16:53:08 +02:00
parent e76c3f01a5
commit 6e24e1e5c2

View File

@@ -5414,7 +5414,7 @@ mwst:
If SPEDBUCH Is Nothing Then Exit Sub If SPEDBUCH Is Nothing Then Exit Sub
If RECHNUNG.ReErfZeitstempel IsNot Nothing AndAlso CDate(RECHNUNG.ReErfZeitstempel) <= DateTime.Parse("26/05/2026") AndAlso RECHNUNG.DruckDatumZeit Is Nothing Then If RECHNUNG.DruckDatumZeit Is Nothing Then
Select Case FIRMA.Firma_ID Select Case FIRMA.Firma_ID
Case 7, 19 Case 7, 19
@@ -5428,7 +5428,7 @@ mwst:
Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("clmnDsId").Value) = docID) Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("clmnDsId").Value) = docID)
If Not exists Then If Not exists Then
dgv.Rows.Add(1, "INFO", "CBAM-FLYER", docID, 0) dgv.Rows.Add(1, "INFO", "CBAM-FLYER.pdf", docID, 0)
End If End If
End Select End Select