Mail Erstellen Maske

SDL/Fakturierung/frmSendEmail.Designer.vb

@@ -0,0 +1,378 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmSendEmail
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendEmail))
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.txtSubject = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.dgvEmailBCC = New System.Windows.Forms.DataGridView()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.dgvEmailCC = New System.Windows.Forms.DataGridView()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.dgvEmail = New System.Windows.Forms.DataGridView()
+        Me.clmnEmail = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.RichTextBox = New System.Windows.Forms.RichTextBox()
+        Me.lkl = New System.Windows.Forms.LinkLabel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblKunde = New System.Windows.Forms.LinkLabel()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label7 = New System.Windows.Forms.Label()
+        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(12, 48)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(39, 13)
+        Me.lbl.TabIndex = 1
+        Me.lbl.Text = "E-Mail:"
+        '
+        'txtSubject
+        '
+        Me.txtSubject._DateTimeOnly = False
+        Me.txtSubject._numbersOnly = False
+        Me.txtSubject._numbersOnlyKommastellen = ""
+        Me.txtSubject._numbersOnlyTrennzeichen = True
+        Me.txtSubject._Prozent = False
+        Me.txtSubject._ShortDateNew = False
+        Me.txtSubject._ShortDateOnly = False
+        Me.txtSubject._TimeOnly = False
+        Me.txtSubject._TimeOnly_Seconds = False
+        Me.txtSubject._value = ""
+        Me.txtSubject._Waehrung = False
+        Me.txtSubject._WaehrungZeichen = True
+        Me.txtSubject.ForeColor = System.Drawing.Color.Black
+        Me.txtSubject.Location = New System.Drawing.Point(67, 143)
+        Me.txtSubject.MaxLineLength = -1
+        Me.txtSubject.MaxLines_Warning = ""
+        Me.txtSubject.MaxLines_Warning_Label = Nothing
+        Me.txtSubject.Name = "txtSubject"
+        Me.txtSubject.Size = New System.Drawing.Size(674, 20)
+        Me.txtSubject.TabIndex = 6
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 146)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Betreff:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 169)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(31, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Text:"
+        '
+        'dgvEmailBCC
+        '
+        Me.dgvEmailBCC.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmailBCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmailBCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2})
+        Me.dgvEmailBCC.Location = New System.Drawing.Point(521, 48)
+        Me.dgvEmailBCC.Name = "dgvEmailBCC"
+        Me.dgvEmailBCC.RowHeadersVisible = False
+        Me.dgvEmailBCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmailBCC.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmailBCC.TabIndex = 4
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail (BCC)"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'dgvEmailCC
+        '
+        Me.dgvEmailCC.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmailCC.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmailCC.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1})
+        Me.dgvEmailCC.Location = New System.Drawing.Point(295, 48)
+        Me.dgvEmailCC.Name = "dgvEmailCC"
+        Me.dgvEmailCC.RowHeadersVisible = False
+        Me.dgvEmailCC.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmailCC.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmailCC.TabIndex = 3
+        '
+        'DataGridViewTextBoxColumn1
+        '
+        Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn1.HeaderText = "E-Mail (CC)"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        '
+        'dgvEmail
+        '
+        Me.dgvEmail.BackgroundColor = System.Drawing.Color.White
+        Me.dgvEmail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvEmail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnEmail})
+        Me.dgvEmail.Location = New System.Drawing.Point(67, 48)
+        Me.dgvEmail.Name = "dgvEmail"
+        Me.dgvEmail.RowHeadersVisible = False
+        Me.dgvEmail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvEmail.Size = New System.Drawing.Size(220, 89)
+        Me.dgvEmail.TabIndex = 2
+        '
+        'clmnEmail
+        '
+        Me.clmnEmail.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnEmail.HeaderText = "E-Mail"
+        Me.clmnEmail.Name = "clmnEmail"
+        '
+        'btn
+        '
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btn.Location = New System.Drawing.Point(610, 380)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(131, 53)
+        Me.btn.TabIndex = 16
+        Me.btn.Text = "Mail öffnen   "
+        Me.btn.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        'RichTextBox
+        '
+        Me.RichTextBox.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.RichTextBox.Location = New System.Drawing.Point(67, 167)
+        Me.RichTextBox.Name = "RichTextBox"
+        Me.RichTextBox.Size = New System.Drawing.Size(674, 194)
+        Me.RichTextBox.TabIndex = 11
+        Me.RichTextBox.Text = ""
+        '
+        'lkl
+        '
+        Me.lkl.Location = New System.Drawing.Point(67, 27)
+        Me.lkl.Name = "lkl"
+        Me.lkl.Size = New System.Drawing.Size(220, 18)
+        Me.lkl.TabIndex = 0
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(41, 13)
+        Me.Label4.TabIndex = 21
+        Me.Label4.Text = "Kunde:"
+        '
+        'lblKunde
+        '
+        Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText
+        Me.lblKunde.LinkColor = System.Drawing.Color.Black
+        Me.lblKunde.Location = New System.Drawing.Point(64, 9)
+        Me.lblKunde.Name = "lblKunde"
+        Me.lblKunde.Size = New System.Drawing.Size(677, 18)
+        Me.lblKunde.TabIndex = 22
+        Me.lblKunde.TabStop = True
+        Me.lblKunde.Text = "Kunde"
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn3, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(70, 380)
+        Me.dgvAnhaenge.MultiSelect = False
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.RowHeadersWidth = 62
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(537, 124)
+        Me.dgvAnhaenge.TabIndex = 91
+        Me.dgvAnhaenge.TabStop = False
+        '
+        'optAnhSel
+        '
+        Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.optAnhSel.FillWeight = 78.74017!
+        Me.optAnhSel.HeaderText = ""
+        Me.optAnhSel.MinimumWidth = 8
+        Me.optAnhSel.Name = "optAnhSel"
+        Me.optAnhSel.ReadOnly = True
+        Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.optAnhSel.Visible = False
+        Me.optAnhSel.Width = 35
+        '
+        'DataGridViewTextBoxColumn3
+        '
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle2.Format = "N0"
+        DataGridViewCellStyle2.NullValue = Nothing
+        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridViewTextBoxColumn3.HeaderText = "Art"
+        Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        Me.DataGridViewTextBoxColumn3.ReadOnly = True
+        Me.DataGridViewTextBoxColumn3.Width = 70
+        '
+        'clmnBezeichnung
+        '
+        Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Format = "c2"
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
+        Me.clmnBezeichnung.FillWeight = 121.2598!
+        Me.clmnBezeichnung.HeaderText = "Bezeichnung"
+        Me.clmnBezeichnung.MinimumWidth = 8
+        Me.clmnBezeichnung.Name = "clmnBezeichnung"
+        Me.clmnBezeichnung.ReadOnly = True
+        '
+        'clmnDsId
+        '
+        Me.clmnDsId.HeaderText = "clmnDsId"
+        Me.clmnDsId.MinimumWidth = 8
+        Me.clmnDsId.Name = "clmnDsId"
+        Me.clmnDsId.ReadOnly = True
+        Me.clmnDsId.Visible = False
+        Me.clmnDsId.Width = 150
+        '
+        'clmnAnhId
+        '
+        Me.clmnAnhId.HeaderText = "clmnAnhId"
+        Me.clmnAnhId.MinimumWidth = 8
+        Me.clmnAnhId.Name = "clmnAnhId"
+        Me.clmnAnhId.ReadOnly = True
+        Me.clmnAnhId.Visible = False
+        Me.clmnAnhId.Width = 150
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(11, 380)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(53, 13)
+        Me.Label7.TabIndex = 92
+        Me.Label7.Text = "Anhänge:"
+        '
+        'frmSendEmail
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.ClientSize = New System.Drawing.Size(750, 575)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Controls.Add(Me.lblKunde)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.lkl)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.dgvEmailBCC)
+        Me.Controls.Add(Me.dgvEmailCC)
+        Me.Controls.Add(Me.dgvEmail)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtSubject)
+        Me.Controls.Add(Me.lbl)
+        Me.Controls.Add(Me.RichTextBox)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSendEmail"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Fakturierung E-Mail"
+        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents lbl As Label
+    Friend WithEvents txtSubject As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents dgvEmailBCC As DataGridView
+    Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
+    Friend WithEvents dgvEmailCC As DataGridView
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents dgvEmail As DataGridView
+    Friend WithEvents clmnEmail As DataGridViewTextBoxColumn
+    Friend WithEvents btn As Button
+    Friend WithEvents RichTextBox As RichTextBox
+    Friend WithEvents lkl As LinkLabel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents lblKunde As LinkLabel
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label7 As Label
+    Friend WithEvents optAnhSel As DataGridViewCheckBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+    Friend WithEvents clmnBezeichnung As DataGridViewTextBoxColumn
+    Friend WithEvents clmnDsId As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAnhId As DataGridViewTextBoxColumn
+End Class

SDL/Fakturierung/frmSendEmail.vb

@@ -0,0 +1,472 @@
+Imports GrapeCity.DataVisualization.TypeScript
+Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop.Outlook
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmSendEmail
+
+    ' Felder / Instanzvariablen
+    Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+    Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+    Private ReadOnly FUNC As New cProgramFunctions
+    Private printOriginalRg As Object = Nothing
+    Private ATTACHMENTS As New List(Of cFakt_SendMailATTach)
+    Private SR_List As List(Of cFakt_SR_List) = Nothing
+    Private SR_DT As DataTable = Nothing
+
+    Private Firma_ID As Integer
+    Private SammelrechungArt As Integer
+    Private KdNr As Integer
+    Private DatumBis As Date
+    Private Rechnungsdatum As Date?
+    Private SB As String
+    Private Rechnungsdruck As Integer = 3
+
+    Private EinzelAnlagen As Boolean
+    Private Sammelbericht As Boolean
+    Private xlsEvolog As Boolean
+    Private xlsTransFerry As Boolean
+    Private RechnungsNr As Integer
+    Private FakturierungsGruppe As String
+    Private Abfertigungsart As String
+    Private DruckDatumZeit As DateTime
+    Private AvisoIds As List(Of Integer)
+    Private printRgCopy As Boolean = False
+
+    Private SR As Boolean = False
+
+    ' Konstruktor 1
+    Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
+                   ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch,
+                   ByVal printOriginalRg As Object,
+                   ByVal Rechnungsdruck As Integer,
+                   Optional ByVal Rechnungsdatum As Object = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.RECHNUNG = RECHNUNG
+        ' Hinweis: Firma_ID wird hier nicht als Parameter übergeben.
+        Me.Firma_ID = Firma_ID
+        Me.SPEDBUCH = SPEDBUCH
+        Me.printOriginalRg = printOriginalRg
+        Me.KdNr = RECHNUNG.RechnungsKundenNr
+        Me.Rechnungsdruck = Rechnungsdruck
+        If Rechnungsdatum IsNot Nothing Then
+            Me.Rechnungsdatum = CDate(Rechnungsdatum)
+        End If
+    End Sub
+
+    ' Konstruktor 2
+    Public Sub New(ByVal Firma_ID As Integer,
+                   ByVal SammelrechungArt As Integer,
+                   ByVal DatumBis As Date,
+                   ByVal Rechnungsdatum As Date,
+                   ByVal PrinterName As String,
+                   ByVal Rechnungsdruck As Integer,
+                   Optional ByVal EinzelAnlagen As Boolean = True,
+                   Optional ByVal Sammelbericht As Boolean = True,
+                   Optional ByVal KdNr As Integer = -1,
+                   Optional ByVal RechnungsdruckArt As Integer = -1,
+                   Optional ByRef listPDFs As List(Of String) = Nothing,
+                   Optional ByVal SB As String = "",
+                   ByRef Optional lastAktuelle_RgNr As Integer = -1,
+                   Optional ByVal AvisoIds As List(Of Integer) = Nothing,
+                   Optional ByVal xlsEvolog As Boolean = False,
+                   Optional ByVal xlsTransFerry As Boolean = False,
+                   Optional ByVal FakturierungsGruppe As String = "",
+                   Optional ByVal Abfertigungsart As String = "",
+                   Optional ByVal printRgCopy As Boolean = False)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID,
+                                              SammelrechungArt,
+                                              DatumBis,
+                                              KdNr,
+                                              SB,
+                                              AvisoIds,
+                                              FakturierungsGruppe,
+                                              Abfertigungsart)
+
+        Me.Firma_ID = Firma_ID
+        Me.SammelrechungArt = SammelrechungArt
+        Me.DatumBis = DatumBis
+        Me.SB = SB
+        Me.EinzelAnlagen = EinzelAnlagen
+        Me.Sammelbericht = Sammelbericht
+        Me.xlsEvolog = xlsEvolog
+        Me.xlsTransFerry = xlsTransFerry
+        Me.KdNr = KdNr
+        Me.Rechnungsdatum = Rechnungsdatum
+        Me.RechnungsNr = lastAktuelle_RgNr
+        Me.FakturierungsGruppe = FakturierungsGruppe
+        Me.Abfertigungsart = Abfertigungsart
+        Me.AvisoIds = AvisoIds
+        Me.Rechnungsdruck = Rechnungsdruck
+        Me.printRgCopy = printRgCopy
+        SR = True
+    End Sub
+
+    ' Ereignishandler: Form-Load
+    Private Sub frmFaktEmail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen
+        Dim FISKAL As cFiskal_Daten = Nothing
+
+        AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+        FISKAL = New cFiskal_Daten(KdNr)
+
+        setMailText()
+
+        If AD.E_Mail IsNot Nothing AndAlso AD.E_Mail <> "" Then
+            lkl.Text = """" & AD.E_Mail & """ anfügen"
+            lkl.Tag = AD.E_Mail
+        End If
+
+        lblKunde.Text = AD.AdressenNr & " - " & AD.Ordnungsbegriff
+
+        Dim email_receipt As String = ""
+        If SR Then
+            Dim allAtilla As Boolean = (Firma_ID = 7)
+            If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                For Each r As DataRow In SR_DT.Rows
+                    If "4801" <> r("FilialenNr").ToString() AndAlso "4802" <> r("FilialenNr").ToString() Then
+                        allAtilla = False
+                        Exit For
+                    End If
+                Next
+            End If
+            email_receipt = If(allAtilla, VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)"), "")
+        Else
+            If RECHNUNG.FilialenNr = "4801" OrElse RECHNUNG.FilialenNr = "4802" Then
+                email_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an (ATILLA)")
+            End If
+        End If
+
+        Dim EMAILTMP As String = If(email_receipt = "",
+                                    VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an"),
+                                    email_receipt)
+        If EMAILTMP <> "" Then dgvEmail.Rows.Add(EMAILTMP)
+
+        Dim EMAILTMPCC As String = If(email_receipt = "",
+                                      VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an"),
+                                      VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+        If EMAILTMPCC <> "" Then dgvEmailCC.Rows.Add(EMAILTMPCC)
+
+        Dim EMAILTMPBCC As String = If(email_receipt = "",
+                                       VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an"),
+                                       VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an (ATILLA)"))
+        If EMAILTMPBCC <> "" Then dgvEmailBCC.Rows.Add(EMAILTMPBCC)
+
+        initDGVAnhaenge()
+    End Sub
+
+    ' Linklabel-Klick: Kunde anzeigen
+    Private Sub lblKunde_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblKunde.LinkClicked
+        FUNC.showKd(KdNr)
+    End Sub
+
+    ' Initialisierung der Anlagen-DGV
+    Private Sub initDGVAnhaenge()
+        With dgvAnhaenge
+            .Rows.Clear()
+            .Enabled = True
+
+            If SR AndAlso SammelrechungArt <> 6 Then
+                .Enabled = False
+                Exit Sub
+            End If
+
+            If SammelrechungArt = 6 AndAlso RECHNUNG Is Nothing Then
+                For Each r As DataRow In SR_DT.Rows
+                    Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
+                    If RG IsNot Nothing Then
+                        RG.LOAD_ANHAENGE()
+                        For Each RG_AH In RG.ANHAENGE
+                            .Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
+                        Next
+                    End If
+                Next
+            Else
+                RECHNUNG.LOAD_ANHAENGE()
+                If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ANHAENGE IsNot Nothing Then
+                    For Each RG_AH In RECHNUNG.ANHAENGE
+                        .Rows.Add(0, "", RG_AH.Bezeichnung, RG_AH.dsId, RG_AH.anhId)
+                    Next
+                End If
+            End If
+        End With
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+    ' Anzeige von HTML im WebBrowser
+    Private Sub wbShowHTML(ByVal WebBrowser As WebBrowser, ByVal HtmlText As String)
+        Try
+            With WebBrowser
+                If .Url Is Nothing OrElse .Url.AbsoluteUri <> "about:blank" Then
+                    .Navigate("about:blank")
+                    System.Windows.Forms.Application.DoEvents()
+                End If
+                ' Hier ggf. den HTML-Inhalt setzen, z. B.:
+                ' .Document.Body.InnerHtml = HtmlText
+            End With
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+    ' Gibt die Rechnungsnummer als String zurück
+    Private Function getRgNr(ByVal RechnungsNr As Integer) As String
+        If RechnungsNr <= 0 Then Return "%RgNr%"
+        Return RechnungsNr.ToString()
+    End Function
+
+    ' Setzt den Mail-Text
+    Private Sub setMailText()
+        Dim abfNr As String = " Pos-Nr.: " & RECHNUNG.LKW_Kennzeichen & "/" & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
+
+        txtSubject.Text = "Verzollungsunterlagen zu " & abfNr
+
+        RichTextBox.Text = "Sehr geehrte Damen und Herren," & Environment.NewLine & Environment.NewLine &
+                            "anbei erhalten Sie die Verzollungsunterlagen zu Ihrer weiteren Verwendung." & Environment.NewLine & Environment.NewLine &
+                            "Für weitere Fragen stehen wir Ihnen natürlich gerne zur Verfügung." & Environment.NewLine & Environment.NewLine &
+                            "Mit freundlichen Grüßen" & Environment.NewLine
+    End Sub
+
+    ' Klick-Event des Buttons
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim additionalLine As String = ""
+
+        If SR Then
+            Try
+                If RechnungsNr > 1 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang erstellen?", vbYesNoCancel) Then
+
+                    VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("Zusammenfassung")
+                    Dim listPDFs As New List(Of String)
+                    Dim SonstAnlagen As New List(Of String)
+                    Dim lastAktuelle_RgNr As Integer = -1
+                    Dim RechnungsNrisSet As Boolean = False
+                    Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+
+                    Dim outl As New Outlook.Application
+
+                    Dim Mail_StbFA As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                    Mail_StbFA.Subject = txtSubject.Text
+
+                    If Firma_ID = 24 Then
+                        Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
+                    End If
+
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                    Mail.Subject = txtSubject.Text
+
+                    If Firma_ID = 24 Then
+                        Try
+                            Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
+                            For Each oAccount As Outlook.Account In outl.Session.Accounts
+                                If oAccount.SmtpAddress = accountToSent Then
+                                    Mail.SendUsingAccount = oAccount
+                                    Exit For
+                                End If
+                            Next
+                        Catch ex As System.Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+                    End If
+
+                    For Each r As DataGridViewRow In dgvEmail.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.To &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.CC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailBCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.BCC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+
+                    Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
+                                               RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
+                                               cFakturierung.getSignature(AD.LandKz, Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
+                                               "</div>"
+
+                    Mail.HTMLBody = TextHTML
+                    Mail.Subject = txtSubject.Text
+
+                    ATTACHMENTS.Clear()
+                    For Each l As String In listPDFs
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
+                    Next
+                    For Each l As String In SonstAnlagen
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(l, ""))
+                    Next
+
+                    If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+                        For Each r As DataRow In SR_DT.Rows
+                            Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
+                            If RG_ANH IsNot Nothing Then
+                                For Each ANH In RG_ANH
+                                    ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                                Next
+                            End If
+                        Next
+                    End If
+
+                    If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                    End If
+                    addAttachments(Mail, lastAktuelle_RgNr, False)
+
+                    Mail.Display()
+                End If
+            Catch ex As System.Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        Else ' ER-Fall
+            If RECHNUNG.FakturierungsGruppe <> "" Then
+                additionalLine = "Abrechnungsstelle: " & RECHNUNG.FakturierungsGruppe.Replace("WAI", "Waidhaus")
+            End If
+
+            If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang  erstellen?", vbYesNoCancel) Then
+                Try
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem = outl.CreateItem(0)
+                    Dim RechnungsNrisSet As Boolean = False
+
+                    If Firma_ID = 24 Then
+                        Try
+                            Dim accountToSent As String = SDL.cFakturierung.getDefaultMail("AMBAR", , True)
+                            For Each oAccount As Outlook.Account In outl.Session.Accounts
+                                If oAccount.SmtpAddress = accountToSent Then
+                                    Mail.SendUsingAccount = oAccount
+                                    Exit For
+                                End If
+                            Next
+                        Catch ex As System.Exception
+                            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Ermitteln des Mail-Accounts." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        End Try
+                    End If
+
+                    For Each r As DataGridViewRow In dgvEmail.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.To &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.CC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+                    For Each r As DataGridViewRow In dgvEmailBCC.Rows
+                        If r.Cells(0).Value IsNot Nothing AndAlso r.Cells(0).Value.ToString() <> "" Then
+                            Mail.BCC &= r.Cells(0).Value.ToString() & ";"
+                        End If
+                    Next
+
+
+                    Dim TextHTML As String = "<div style=""font-family:Calibri, Arial"">" &
+                                               RichTextBox.Text.Replace(ControlChars.Lf, "<br>") &
+                                               cFakturierung.getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID, , , , additionalLine, , If(Firma_ID = "24", True, False)) &
+                                               "</div>"
+
+                    Mail.HTMLBody = TextHTML
+                    Mail.Subject = txtSubject.Text
+
+                    RECHNUNG.LOAD_ANHAENGE()
+                    For Each ANH In RECHNUNG.ANHAENGE
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId), ANH.Bezeichnung))
+                    Next
+
+                    If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing Then
+                        ATTACHMENTS.Add(New cFakt_SendMailATTach(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBUCH.DokumentId_Steuerbeleg), "Steuerbescheid.pdf"))
+                    End If
+                    addAttachments(Mail, RECHNUNG.RechnungsNr, False)
+
+                    Mail.Display()
+                Catch ex As System.Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler beim Öffnen des Mail-Programmes." & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+            End If
+        End If
+
+        ATTACHMENTS.Clear()
+    End Sub
+
+    ' Fügt die gesammelten Anlagen der Mail hinzu
+    Private Sub addAttachments(ByRef Mail As Microsoft.Office.Interop.Outlook.MailItem, ByVal RgNr As Integer, ByVal MergePDF As Boolean)
+        If ATTACHMENTS.Count = 0 Then Exit Sub
+
+        Try
+            For Each a In ATTACHMENTS
+                If System.IO.File.Exists(a.Pfad) Then
+                    Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+                Else
+                    ' Optional: Fehlermeldung protokollieren oder Benutzer informieren
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Anhang wurde nicht hinzugefügt, da Datei nicht gefunden wurde: " & a.Pfad, "", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End If
+            Next
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+    ' Linklabel-Klick: E-Mail-Adresse hinzufügen
+    Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
+        dgvEmail.Rows.Add(lkl.Tag)
+    End Sub
+
+    ' DataGridView-Verlassen: Auswahl löschen
+    Private Sub dgvEmail_SelectionChanged(sender As Object, e As EventArgs) _
+        Handles dgvEmail.Leave, dgvEmailCC.Leave, dgvEmailBCC.Leave
+        CType(sender, DataGridView).ClearSelection()
+    End Sub
+
+    ' Doppelklick in Anlagen-DGV: Anlage öffnen
+    Private Sub dgvAnhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) _
+        Handles dgvAnhaenge.CellDoubleClick
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                Dim docId = dgvAnhaenge.SelectedRows(0).Cells("clmnDsId").Value
+                Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docId))
+            End If
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+End Class
+
+' Klasse für Mail-Anhänge
+Public Class cFakt_SendMailATTach
+    Public Property Pfad As String
+    Public Property MailName As String
+
+    Public Sub New(ByVal pfad As String, ByVal MailName As String)
+        Me.Pfad = pfad
+        Me.MailName = MailName
+    End Sub
+End Class
+
+' Klasse für SR-Listen
+Public Class cFaktSend_SR_List
+    Private RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+    Private SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+
+    Public Sub New(ByVal RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang,
+                   ByVal SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
+        Me.RECHNUNG = RECHNUNG
+        Me.SPEDBUCH = SPEDBUCH
+    End Sub
+End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb

@@ -23,27 +23,27 @@ Partial Class usrCntlFaktAbrechnung
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung))
         Me.Label9 = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -152,6 +152,7 @@ Partial Class usrCntlFaktAbrechnung
         Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.pnlRechnungAn = New System.Windows.Forms.Panel()
+        Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label56 = New System.Windows.Forms.Label()
         Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button15 = New System.Windows.Forms.Button()
@@ -236,7 +237,6 @@ Partial Class usrCntlFaktAbrechnung
         Me.lblEUR_4 = New System.Windows.Forms.Label()
         Me.Label55 = New System.Windows.Forms.Label()
         Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
         Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
         Me.Label46 = New System.Windows.Forms.Label()
         Me.Button9 = New System.Windows.Forms.Button()
@@ -279,7 +279,8 @@ Partial Class usrCntlFaktAbrechnung
         Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
         Me.pnlTop.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -795,6 +796,7 @@ Partial Class usrCntlFaktAbrechnung
         'Panel1
         '
         Me.Panel1.AutoScroll = True
+        Me.Panel1.Controls.Add(Me.Button17)
         Me.Panel1.Controls.Add(Me.txtTextZZ)
         Me.Panel1.Controls.Add(Me.dgvAnhaenge)
         Me.Panel1.Controls.Add(Me.Label36)
@@ -869,36 +871,36 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvAnhaenge.AllowUserToResizeColumns = False
         Me.dgvAnhaenge.AllowUserToResizeRows = False
         Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle64
+        Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
-        DataGridViewCellStyle67.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle67.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle67.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle67.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle67.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle67.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle67
+        Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4
         Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911)
         Me.dgvAnhaenge.MultiSelect = False
         Me.dgvAnhaenge.Name = "dgvAnhaenge"
         Me.dgvAnhaenge.ReadOnly = True
-        DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle68
+        Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
         Me.dgvAnhaenge.RowHeadersVisible = False
         Me.dgvAnhaenge.RowHeadersWidth = 62
         Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -920,10 +922,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'DataGridViewTextBoxColumn2
         '
-        DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle65.Format = "N0"
+        DataGridViewCellStyle2.Format = "N0"
-        DataGridViewCellStyle65.NullValue = Nothing
+        DataGridViewCellStyle2.NullValue = Nothing
-        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle65
+        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridViewTextBoxColumn2.HeaderText = "Art"
         Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
@@ -933,9 +935,9 @@ Partial Class usrCntlFaktAbrechnung
         'clmnBezeichnung
         '
         Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle66.Format = "c2"
+        DataGridViewCellStyle3.Format = "c2"
-        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle66
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3
         Me.clmnBezeichnung.FillWeight = 121.2598!
         Me.clmnBezeichnung.HeaderText = "Bezeichnung"
         Me.clmnBezeichnung.MinimumWidth = 8
@@ -2001,6 +2003,17 @@ Partial Class usrCntlFaktAbrechnung
         Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153)
         Me.pnlRechnungAn.TabIndex = 0
         '
+        'cboVorauskasse
+        '
+        Me.cboVorauskasse._allowedValuesFreiText = Nothing
+        Me.cboVorauskasse._allowFreiText = False
+        Me.cboVorauskasse._value = ""
+        Me.cboVorauskasse.FormattingEnabled = True
+        Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
+        Me.cboVorauskasse.Name = "cboVorauskasse"
+        Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
+        Me.cboVorauskasse.TabIndex = 244
+        '
         'Label56
         '
         Me.Label56.AutoSize = True
@@ -2905,35 +2918,35 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False
         Me.dgvRechnungenPositionen.AllowUserToResizeRows = False
         Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle69
+        Me.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
         Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto})
-        DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle74.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle74
+        Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11
         Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258)
         Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen"
         Me.dgvRechnungenPositionen.ReadOnly = True
-        DataGridViewCellStyle75.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle75.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle75.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle75.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle75.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle75
+        Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
         Me.dgvRechnungenPositionen.RowHeadersVisible = False
         Me.dgvRechnungenPositionen.RowHeadersWidth = 62
         Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -2951,10 +2964,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'Anzahl
         '
-        DataGridViewCellStyle70.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle70.Format = "N0"
+        DataGridViewCellStyle7.Format = "N0"
-        DataGridViewCellStyle70.NullValue = Nothing
+        DataGridViewCellStyle7.NullValue = Nothing
-        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle70
+        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7
         Me.Anzahl.HeaderText = "Anzahl"
         Me.Anzahl.MinimumWidth = 8
         Me.Anzahl.Name = "Anzahl"
@@ -2963,9 +2976,9 @@ Partial Class usrCntlFaktAbrechnung
         '
         'Preis
         '
-        DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle71.Format = "c2"
+        DataGridViewCellStyle8.Format = "c2"
-        Me.Preis.DefaultCellStyle = DataGridViewCellStyle71
+        Me.Preis.DefaultCellStyle = DataGridViewCellStyle8
         Me.Preis.HeaderText = "Preis"
         Me.Preis.MinimumWidth = 8
         Me.Preis.Name = "Preis"
@@ -2974,9 +2987,9 @@ Partial Class usrCntlFaktAbrechnung
         '
         'SteuerpflichtigerBetrag
         '
-        DataGridViewCellStyle72.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle72.Format = "c2"
+        DataGridViewCellStyle9.Format = "c2"
-        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle72
+        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9
         Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
         Me.SteuerpflichtigerBetrag.MinimumWidth = 8
         Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
@@ -2985,10 +2998,10 @@ Partial Class usrCntlFaktAbrechnung
         '
         'SteuerfreierBetrag
         '
-        DataGridViewCellStyle73.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        DataGridViewCellStyle73.Format = "C2"
+        DataGridViewCellStyle10.Format = "C2"
-        DataGridViewCellStyle73.NullValue = Nothing
+        DataGridViewCellStyle10.NullValue = Nothing
-        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle73
+        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10
         Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
         Me.SteuerfreierBetrag.MinimumWidth = 8
         Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
@@ -3011,41 +3024,41 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
         Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle76.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle76.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle76.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle76.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle76.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle76
+        Me.dgvOffertenSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle77.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle77
+        Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle14
         Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29)
         Me.dgvOffertenSperrliste.MultiSelect = False
         Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
         Me.dgvOffertenSperrliste.ReadOnly = True
-        DataGridViewCellStyle78.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle78.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle78.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle78.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle78.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle78.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle78
+        Me.dgvOffertenSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvOffertenSperrliste.RowHeadersVisible = False
         Me.dgvOffertenSperrliste.RowHeadersWidth = 62
-        DataGridViewCellStyle79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle79.SelectionBackColor = System.Drawing.Color.PapayaWhip
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.PapayaWhip
-        DataGridViewCellStyle79.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle79
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201)
         Me.dgvOffertenSperrliste.TabIndex = 2
@@ -3058,44 +3071,44 @@ Partial Class usrCntlFaktAbrechnung
         Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
         Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
         Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle80.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle80
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
         Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle81.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle81.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle81.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle81.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle81.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle81.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle81
+        Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle82.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle82.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle82.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle82.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle82.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle82.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle82
+        Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19
         Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29)
         Me.dgvOfferteDetailsUebersicht.MultiSelect = False
         Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht"
-        DataGridViewCellStyle83.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle83.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle83.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle83.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle83.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle83.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle83
+        Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20
         Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False
         Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62
-        DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle84.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle84.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle84
+        Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201)
         Me.dgvOfferteDetailsUebersicht.TabIndex = 3
@@ -3482,17 +3495,6 @@ Partial Class usrCntlFaktAbrechnung
         Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21)
         Me.cboSteuerschlüssel.TabIndex = 3
         '
-        'rtbAbf_Besonderheiten
-        '
-        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
-        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
-        Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
-        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
-        Me.rtbAbf_Besonderheiten.TabIndex = 235
-        Me.rtbAbf_Besonderheiten.Visible = False
-        '
         'cbxOriginalPrint
         '
         Me.cbxOriginalPrint.AutoSize = True
@@ -3934,25 +3936,25 @@ Partial Class usrCntlFaktAbrechnung
         '
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.GutschriftAnVeragToolStripMenuItem})
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 70)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(225, 70)
         '
         'GutschriftAusRechnungToolStripMenuItem
         '
         Me.GutschriftAusRechnungToolStripMenuItem.Name = "GutschriftAusRechnungToolStripMenuItem"
-        Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.GutschriftAusRechnungToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.GutschriftAusRechnungToolStripMenuItem.Text = "Gutschrift aus Rechnung"
         '
         'SeperateRechnungFürEUSTToolStripMenuItem
         '
         Me.SeperateRechnungFürEUSTToolStripMenuItem.Name = "SeperateRechnungFürEUSTToolStripMenuItem"
-        Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.SeperateRechnungFürEUSTToolStripMenuItem.Text = "Seperate Rechnung für EUST"
         '
         'GutschriftAnVeragToolStripMenuItem
         '
         Me.GutschriftAnVeragToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VeragAGToolStripMenuItem, Me.VeragCSToolStripMenuItem})
         Me.GutschriftAnVeragToolStripMenuItem.Name = "GutschriftAnVeragToolStripMenuItem"
-        Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.GutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
         Me.GutschriftAnVeragToolStripMenuItem.Text = "Gutschrift an"
         '
         'VeragAGToolStripMenuItem
@@ -3967,16 +3969,29 @@ Partial Class usrCntlFaktAbrechnung
         Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
         Me.VeragCSToolStripMenuItem.Text = "Verag CS"
         '
-        'cboVorauskasse
+        'Button17
         '
-        Me.cboVorauskasse._allowedValuesFreiText = Nothing
+        Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.cboVorauskasse._allowFreiText = False
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.cboVorauskasse._value = ""
+        Me.Button17.Location = New System.Drawing.Point(656, 887)
-        Me.cboVorauskasse.FormattingEnabled = True
+        Me.Button17.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5)
+        Me.Button17.Name = "Button17"
-        Me.cboVorauskasse.Name = "cboVorauskasse"
+        Me.Button17.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
-        Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21)
+        Me.Button17.Size = New System.Drawing.Size(166, 24)
-        Me.cboVorauskasse.TabIndex = 244
+        Me.Button17.TabIndex = 92
+        Me.Button17.Text = "E-Mail Erstellen"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'rtbAbf_Besonderheiten
+        '
+        Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
+        Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19)
+        Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
+        Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133)
+        Me.rtbAbf_Besonderheiten.TabIndex = 235
+        Me.rtbAbf_Besonderheiten.Visible = False
         '
         'usrCntlFaktAbrechnung
         '
@@ -4263,4 +4278,5 @@ Partial Class usrCntlFaktAbrechnung
     Friend WithEvents VeragCSToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents lblOFgesperrt As Label
     Friend WithEvents cboVorauskasse As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button17 As Button
 End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.resx

@@ -153,26 +153,26 @@
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3495,6 +3495,7 @@ Nächste_Textzeile_lesen:
         cbxOriginalPrint.Checked = False
     End Sub
 
+
     Function getPrinterFromParent()
         Try
             If Me.FindForm IsNot Nothing Then
@@ -4221,4 +4222,30 @@ Nächste_Textzeile_lesen:
             txtText.Text = cFakturierung.przRechnungstextTXT(RECHNUNG, SPEDBUCH)
         End If
     End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        If Not checkUIDNR() Then Exit Sub
+
+        If RECHNUNG.Status <> 0 OrElse saveMe() Then
+            ' Anhänge sichern, falls geändert
+            If RECHNUNG.RK_ID > 0 And RECHNUNG.Status <> 0 Then
+                getValues_ANHAENGE()
+                RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID)
+            End If
+
+            'RG-Druck - Mail (+Kopie)
+            Dim RG_DRUCK = 2
+            If sender Is Button16 Then
+                RG_DRUCK = 5
+            End If
+
+            Dim f As New frmSendEmail(RECHNUNG, SPEDBUCH, If(cbxOriginalPrint.Visible, cbxOriginalPrint.Checked, Nothing), RG_DRUCK)
+            f.ShowDialog(Me)
+            initRECHNUNG()
+            RaiseEvent SOMETHING_CHANGED(-1)
+
+
+        End If
+        cbxOriginalPrint.Checked = False
+    End Sub
 End Class