offert, MDM-rechnungsdruck, mdm-Zinsberechnung, Buchhaltung, etc.

2025-10-20 17:24:23 +02:00
parent 1c26105384
commit be624a11dc
15 changed files with 3588 additions and 336 deletions
--- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
+++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
@@ -0,0 +1,73 @@
+Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
+    Dim _LAN = ""
+    Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me._LAN = _LAN
+        Me.RECHNUNG = RECHNUNG
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+    Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+        If _LAN.replace("DE", "") <> "" Then
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM")
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM")
+        End If
+    End Sub
+
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
+            txtREnr.Text = ""
+            txtReDat.Text = ""
+            txtReBetrag.Text = ""
+
+            txtZE.Text = ""
+            txtTage.Text = ""
+            txtZinsen.Text = ""
+            txtVZ.Text = ""
+
+            If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
+            If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
+            If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()
+
+            If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
+            If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
+            If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
+            If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString
+
+        End If
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        If RECHNUNG Is Nothing Then Exit Sub
+
+        Dim dt As New DataTable
+        dt.Columns.Add("clmnID")
+        dt.Columns.Add("clmnReNr")
+        dt.Columns.Add("clmnReDatum")
+        dt.Columns.Add("clmnAbfNr")
+        dt.Columns.Add("clmnReBetrag")
+        dt.Columns.Add("clmnZE")
+        dt.Columns.Add("clmnTage")
+        dt.Columns.Add("clmnZinsen")
+        dt.Columns.Add("clmnVZ")
+
+        RECHNUNG.ORDER_POSITIONEN()
+
+        For Each POS In RECHNUNG.POSITIONEN
+
+            Dim dtTemp As DataTable
+            dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID, "FMZOLL")
+
+            For Each rg As DataRow In dtTemp.Rows
+                dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"))
+            Next
+
+        Next
+
+        Me.DataSource = dt
+
+    End Sub
+End Class