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

SDL/Fakturierung/rptRechnungDruck.Designer.vb

@@ -1,4 +1,4 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Public Class rptRechnungDruck
     Inherits GrapeCity.ActiveReports.SectionReport
 
@@ -14,7 +14,7 @@ Partial Public Class rptRechnungDruck
     'Do not modify it using the code editor.
     Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
     Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptRechnungDruck))
         Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()

SDL/Fakturierung/rptRechnungDruck_MDM.vb

@@ -0,0 +1,24 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptRechnungDruck_MDM
+    Public _LAN = ""
+    Sub New()
+        InitializeComponent()
+    End Sub
+    Sub New(_LAN)
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me._LAN = _LAN
+        ' 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.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM")
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM")
+            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
+
+End Class

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb

@@ -0,0 +1,318 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.CanGrow = False
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ})
+        Me.Detail.Height = 0.1755249!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'txtREnr
+        '
+        Me.txtREnr.Height = 0.1338583!
+        Me.txtREnr.Left = 0.005119062!
+        Me.txtREnr.Name = "txtREnr"
+        Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtREnr.Text = "-"
+        Me.txtREnr.Top = 0!
+        Me.txtREnr.Width = 1.562204!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'GroupHeader4
+        '
+        Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6})
+        Me.GroupHeader4.Height = 0.1433071!
+        Me.GroupHeader4.KeepTogether = True
+        Me.GroupHeader4.Name = "GroupHeader4"
+        '
+        'GroupFooter4
+        '
+        Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18})
+        Me.GroupFooter4.Height = 0.1875001!
+        Me.GroupFooter4.Name = "GroupFooter4"
+        '
+        'Line18
+        '
+        Me.Line18.Height = 0.00004923344!
+        Me.Line18.Left = 0.03444719!
+        Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
+        Me.Line18.LineWeight = 1.0!
+        Me.Line18.Name = "Line18"
+        Me.Line18.Top = 0.0937008!
+        Me.Line18.Width = 7.323034!
+        Me.Line18.X1 = 0.03444719!
+        Me.Line18.X2 = 7.357481!
+        Me.Line18.Y1 = 0.09375003!
+        Me.Line18.Y2 = 0.0937008!
+        '
+        'txtReDat
+        '
+        Me.txtReDat.Height = 0.1338583!
+        Me.txtReDat.Left = 1.567323!
+        Me.txtReDat.Name = "txtReDat"
+        Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtReDat.Text = "-"
+        Me.txtReDat.Top = 0!
+        Me.txtReDat.Width = 1.562204!
+        '
+        'txtZE
+        '
+        Me.txtZE.Height = 0.1338583!
+        Me.txtZE.Left = 4.691732!
+        Me.txtZE.Name = "txtZE"
+        Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtZE.Text = "-"
+        Me.txtZE.Top = 0!
+        Me.txtZE.Width = 0.8539373!
+        '
+        'txtReBetrag
+        '
+        Me.txtReBetrag.Height = 0.1338583!
+        Me.txtReBetrag.Left = 3.129528!
+        Me.txtReBetrag.Name = "txtReBetrag"
+        Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtReBetrag.Text = "-"
+        Me.txtReBetrag.Top = 0!
+        Me.txtReBetrag.Width = 1.562204!
+        '
+        'txtTage
+        '
+        Me.txtTage.Height = 0.1338583!
+        Me.txtTage.Left = 5.54567!
+        Me.txtTage.Name = "txtTage"
+        Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtTage.Text = "-"
+        Me.txtTage.Top = 0!
+        Me.txtTage.Width = 0.6039373!
+        '
+        'txtZinsen
+        '
+        Me.txtZinsen.Height = 0.1338583!
+        Me.txtZinsen.Left = 6.149607!
+        Me.txtZinsen.Name = "txtZinsen"
+        Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtZinsen.Text = "-"
+        Me.txtZinsen.Top = 0!
+        Me.txtZinsen.Width = 0.6039373!
+        '
+        'txtVZ
+        '
+        Me.txtVZ.Height = 0.1338583!
+        Me.txtVZ.Left = 6.753544!
+        Me.txtVZ.Name = "txtVZ"
+        Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
+        Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
+        Me.txtVZ.Text = "-"
+        Me.txtVZ.Top = 0!
+        Me.txtVZ.Width = 0.6039373!
+        '
+        'lblReNr
+        '
+        Me.lblReNr.Height = 0.1433071!
+        Me.lblReNr.HyperLink = Nothing
+        Me.lblReNr.Left = 0.005118132!
+        Me.lblReNr.Name = "lblReNr"
+        Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.lblReNr.Text = "RechnungsNr"
+        Me.lblReNr.Top = 0!
+        Me.lblReNr.Width = 1.562205!
+        '
+        'Label1
+        '
+        Me.Label1.Height = 0.1433071!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 1.567323!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label1.Text = "Rechnungsdatum"
+        Me.Label1.Top = 0!
+        Me.Label1.Width = 1.562205!
+        '
+        'Label2
+        '
+        Me.Label2.Height = 0.1433071!
+        Me.Label2.HyperLink = Nothing
+        Me.Label2.Left = 3.129528!
+        Me.Label2.Name = "Label2"
+        Me.Label2.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label2.Text = "Rechnungsbetrag"
+        Me.Label2.Top = 0!
+        Me.Label2.Width = 1.562205!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.1433071!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 4.691732!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label3.Text = "Zahlungsdatum"
+        Me.Label3.Top = 0!
+        Me.Label3.Width = 0.8539371!
+        '
+        'Label4
+        '
+        Me.Label4.Height = 0.1433071!
+        Me.Label4.HyperLink = Nothing
+        Me.Label4.Left = 5.518111!
+        Me.Label4.Name = "Label4"
+        Me.Label4.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label4.Text = "Tage"
+        Me.Label4.Top = 0!
+        Me.Label4.Width = 0.6314961!
+        '
+        'Label5
+        '
+        Me.Label5.Height = 0.1433071!
+        Me.Label5.HyperLink = Nothing
+        Me.Label5.Left = 6.149607!
+        Me.Label5.Name = "Label5"
+        Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label5.Text = "Zinsen"
+        Me.Label5.Top = 0!
+        Me.Label5.Width = 0.6039373!
+        '
+        'Label6
+        '
+        Me.Label6.Height = 0.1433071!
+        Me.Label6.HyperLink = Nothing
+        Me.Label6.Left = 6.753544!
+        Me.Label6.Name = "Label6"
+        Me.Label6.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
+    "har-set: 0"
+        Me.Label6.Text = "Verzugszinsen"
+        Me.Label6.Top = 0!
+        Me.Label6.Width = 0.6039373!
+        '
+        'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.452378!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader4)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter4)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Public WithEvents txtREnr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents txtReDat As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtZE As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtReBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtTage As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
+End Class

SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

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

SDL/SDL.vbproj

@@ -682,6 +682,18 @@
     <Compile Include="Fakturierung\frmSendEmail.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Fakturierung\rptRechnungDruck_MDM.Designer.vb">
+      <DependentUpon>rptRechnungDruck_MDM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\rptRechnungDruck_MDM.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb">
+      <DependentUpon>rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb">
       <DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
     </Compile>
@@ -3387,6 +3399,13 @@
     <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\rptRechnungDruck_MDM.resx">
+      <DependentUpon>rptRechnungDruck_MDM.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx">
+      <DependentUpon>rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.resx">
       <DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
     </EmbeddedResource>

SDL/buchhaltung/usrCntlBH.vb

@@ -835,15 +835,16 @@ Public Class usrCntlBH
                 ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP, 
                 isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
                 ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor, 
-                isnull(dbo.fibu_zahlziel.si_ntage,14) as ZZinTage ,
+                case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage,
 				DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
 				DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
 
-                case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
+                case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end  + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
 
-                    op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ")  / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 
+                    op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ")  / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 
 
                 else 0 end as Zinsbetrag,
+
                 cast(0 as bit) as abgerechnet
 
                 FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
@@ -1050,7 +1051,7 @@ Public Class usrCntlBH
 
             RG.SteuerpflichtigerGesamtbetrag = 0
             RG.SteuerfreierGesamtbetrag = 0
-            RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
+            RG.Status = 0
 
             RG.[Vorkosten] = 0
             RG.[Erlös] = 0
@@ -1069,12 +1070,22 @@ Public Class usrCntlBH
 
             Dim dt As New DataTable
             cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr)
-
+            'Dim zahlungsperiodeStart
+            'Dim zahlungsperiodeEnde
 
             For Each r In dt.Rows
 
+                'If r(0) AndAlso Not IsDBNull(r("zahlungsperiode_start")) AndAlso Not IsDBNull(r("zahlungsperiode_ende")) AndAlso IsDate(r("zahlungsperiode_start")) AndAlso IsDate(r("zahlungsperiode_ende")) Then
+                '    zahlungsperiodeStart = CDate(r("zahlungsperiode_start"))
+                '    zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende"))
+                'End If
+
+                'If CDate(zahlungsperiodeStart) < CDate(r("zahlungsperiode_start")) Then zahlungsperiodeStart = CDate(r("zahlungsperiode_start"))
+                'If CDate(zahlungsperiodeEnde) > CDate(r("zahlungsperiode_ende")) Then zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende"))
+
                 Dim NettoBetrag As Double = r("zinsbetrag")
                 Dim BruttoBetrag As Double = r("zinsbetrag")
+                Dim id As Integer = r("id")
                 Dim UstBetrag As Double = BruttoBetrag = NettoBetrag
                 Dim LeistungsNr As Integer = 950
                 Dim LeistungsBezAdd As String = ""
@@ -1086,7 +1097,7 @@ Public Class usrCntlBH
                 End If
 
 
-                allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd)
+                allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id)
 
             Next
 
@@ -1099,6 +1110,9 @@ Public Class usrCntlBH
 
             RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
 
+            'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString
+            'SPEDBUCH.SAVE()
+
             If RG.SAVE Then
                 RK_ID = RG.RK_ID
                 Return True
@@ -1115,7 +1129,7 @@ Public Class usrCntlBH
 
 
 
-    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
+    Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "", Optional nachzahlungsID As Integer = -1)
         Try
 
             For Each o In OFFERTE.POSITIONEN
@@ -1141,7 +1155,7 @@ Public Class usrCntlBH
                         POS.SteuerfreierBetrag = BruttoBetrag
                         POS.Preis = BruttoBetrag
                     End If
-
+                    POS.NachzahlungsID = nachzahlungsID
                     POS.BGebLeistungsNr = o.BGebLeistungsNr
                     POS.BGebProzent = o.BGebProzent
                     POS.BGebMinBetrag = o.BGebMinBetrag

SDL/kunden/usrCntlOfferte.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrCntlOfferte
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.lblBesonderheiten = New System.Windows.Forms.Label()
         Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox()
         Me.lblOffert = New System.Windows.Forms.TextBox()
@@ -67,6 +67,7 @@ Partial Class usrCntlOfferte
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.btnSaveBes = New System.Windows.Forms.Button()
+        Me.btnOffertPreisliste = New System.Windows.Forms.Button()
         CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxtAddSdl.SuspendLayout()
@@ -125,8 +126,8 @@ Partial Class usrCntlOfferte
         Me.dgvOfferteDetails.AllowUserToDeleteRows = False
         Me.dgvOfferteDetails.AllowUserToOrderColumns = True
         Me.dgvOfferteDetails.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -145,8 +146,8 @@ Partial Class usrCntlOfferte
         Me.dgvOfferte.AllowUserToAddRows = False
         Me.dgvOfferte.AllowUserToDeleteRows = False
         Me.dgvOfferte.AllowUserToResizeRows = False
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
@@ -391,6 +392,7 @@ Partial Class usrCntlOfferte
         '
         Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlEdit.Controls.Add(Me.btnOffertPreisliste)
         Me.pnlEdit.Controls.Add(Me.Button1)
         Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung)
         Me.pnlEdit.Controls.Add(Me.Label3)
@@ -413,7 +415,7 @@ Partial Class usrCntlOfferte
         Me.Button1.ForeColor = System.Drawing.Color.Black
         Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(607, 0)
+        Me.Button1.Location = New System.Drawing.Point(617, 0)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(51, 36)
         Me.Button1.TabIndex = 33
@@ -661,6 +663,21 @@ Partial Class usrCntlOfferte
         Me.btnSaveBes.Tag = ""
         Me.btnSaveBes.UseVisualStyleBackColor = True
         '
+        'btnOffertPreisliste
+        '
+        Me.btnOffertPreisliste.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnOffertPreisliste.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
+        Me.btnOffertPreisliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnOffertPreisliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOffertPreisliste.ForeColor = System.Drawing.Color.Black
+        Me.btnOffertPreisliste.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOffertPreisliste.Location = New System.Drawing.Point(569, 0)
+        Me.btnOffertPreisliste.Name = "btnOffertPreisliste"
+        Me.btnOffertPreisliste.Size = New System.Drawing.Size(51, 36)
+        Me.btnOffertPreisliste.TabIndex = 34
+        Me.btnOffertPreisliste.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnOffertPreisliste.UseVisualStyleBackColor = True
+        '
         'usrCntlOfferte
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -748,4 +765,5 @@ Partial Class usrCntlOfferte
     Friend WithEvents Button2 As Button
     Friend WithEvents Panel1 As Panel
     Friend WithEvents btnSaveBes As Button
+    Friend WithEvents btnOffertPreisliste As Button
 End Class

SDL/kunden/usrCntlOfferte.vb

@@ -1039,5 +1039,13 @@ Public Class usrCntlOfferte
 
 
 
+    End Sub
+
+    Private Sub btnOffertPreisliste_Click(sender As Object, e As EventArgs) Handles btnOffertPreisliste.Click
+
+        'dgvOfferteDetails
+
+
+
     End Sub
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1125,7 +1125,7 @@ Public Class frmMDMDatenverarbetiung
 
 
     Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean
-        Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr  where plose_Fakturiert = 0 AND  plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND  plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND AdressenNr = 401280  group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
+        Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr  where plose_Fakturiert = 0 AND  plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND  plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
         'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr  where AND plose_Fakturiert = 0 AND  plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'  group by [AdressenNr],PLOSEKundenNr ")
         If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
             MsgBox("Keine Daten!")
@@ -1202,7 +1202,7 @@ Public Class frmMDMDatenverarbetiung
                         INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer) 
                         INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
                         INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImportNew.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImportNew.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
-                        where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) and KundenNr = 401280 " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") &
+                        where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") &
                         " group by Kundennummer, KundenNr, UTAExportCSV,Rechnungsdruck"
 
         Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
@@ -1501,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung
         Dim top = ""
         Dim sqlWhere = ""
         Select Case art
-            Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
+            Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
-            Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
+            Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
             Case Else
                 MsgBox("falscher Typ!") : Return False
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb

@@ -178,7 +178,7 @@ Public Class cMDMZinsberechnung
 
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
 
-                Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag
+                Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende
                                             
                                         FROM 
                                             tblMDM_Zinsberechnung

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -903,6 +903,7 @@ Public Class cRechnungsausgangPositionen
     Property BGebBgl As Object = Nothing
     Property BGebMinBetrag As Object = Nothing
     Property RePosZeitstempel As Object = Nothing
+    Property NachzahlungsID As Object = Nothing
 
     'FROM [VERAG].[dbo].[RechnungsausgangPositionen]
 
@@ -945,6 +946,7 @@ Public Class cRechnungsausgangPositionen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NachzahlungsID", NachzahlungsID))
 
         'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
         Return list