abrechnung, etc.
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user