Timas -> TerminalID, Prvisionsverguetung, Rechnungssuche, etc.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.xml.internal.rngom
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -1885,6 +1886,8 @@ Public Class usrCntlFaktAbrechnung
                         .Rows.Add(0, r("anh_Art"), r("anh_Name"), r("anh_docId"), r("anh_id"))
                     Next
                 End If
+
+
             End If
 
             RECHNUNG.LOAD_ANHAENGE()
@@ -1899,7 +1902,7 @@ Public Class usrCntlFaktAbrechnung
                     End If
                 Next
                 '-----------------------------
-
+                addCBamFlyer(dgvAnhaenge)
                 '-----------------------------
                 'ANHÄNGE SELEKTIEREN
                 '-----------------------------
@@ -5363,10 +5366,7 @@ mwst:
         Return isMWST
     End Function
 
-    Private Sub ApplyPreis(
-    r As DataGridViewRow,
-    summen As AntragSummen,
-    isRMCKunde As Boolean)
+    Private Sub ApplyPreis(r As DataGridViewRow, summen As AntragSummen, isRMCKunde As Boolean)
 
         r.Cells("Anzahl").Value = 1
 
@@ -5381,24 +5381,13 @@ mwst:
 
     End Sub
 
-    Private Sub ApplyBearbeitungsGebuehr(
-    r As DataGridViewRow,
-    summen As AntragSummen,
-    ByRef summeRMC As Double,
-    ByRef summeFremd As Double,
-    ByRef fremdUndRMC As Boolean,
-    ByRef posChanged As Boolean,
-    changed As Boolean,
-    sumOffertRMC As Double,
-    sumOffertFremd As Double)
+    Private Sub ApplyBearbeitungsGebuehr(r As DataGridViewRow, summen As AntragSummen, ByRef summeRMC As Double, ByRef summeFremd As Double, ByRef fremdUndRMC As Boolean, ByRef posChanged As Boolean, changed As Boolean, sumOffertRMC As Double, sumOffertFremd As Double)
 
         If IsDBNull(r.Cells("BGebLeistungsNr").Value) Then Exit Sub
         If IsDBNull(r.Cells("BGebProzent").Value) Then Exit Sub
         If IsDBNull(r.Cells("Preis").Value) Then Exit Sub
 
-        ' hier nur noch Gebühr-Logik
-        ' KEINE MWST-Logik mehr
-        ' KEINE Antrag-Logik mehr
+
 
         posChanged = True
 
@@ -5419,4 +5408,40 @@ mwst:
             OrElse SPEDBUCH.Abfertigungsart = 10
     End Function
 
+    Private Sub addCBamFlyer(dgv As DataGridView)
+
+        If RECHNUNG 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
+
+            Select Case FIRMA.Firma_ID
+                Case 7, 19
+                Case Else
+                    If SPEDBUCH.Abfertigungsart IsNot Nothing Then
+                        If RECHNUNG.RechnungsLandKz <> "TR" AndAlso RECHNUNG.RechnungsLandKz <> "GB" Then
+                            Select Case SPEDBUCH.Abfertigungsart
+                                Case 1, 3, 5, 7, 26, 28, 38, 39, 29, 66
+                                    Dim docID As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 13567402, 13638537)
+
+                                    Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("anh_docId").Value) = docID)
+
+                                    If Not exists Then
+                                        dgv.Rows.Add(1, "INFO", "CBAM-FLYER", docID, 0)
+                                    End If
+
+                            End Select
+                        End If
+                    End If
+
+
+            End Select
+
+
+
+        End If
+
+    End Sub
+
 End Class