AMBAR, Ueberstundenauszahlung, etc.

2024-04-30 17:38:24 +02:00
parent 54f7a3ca76
commit 1dc6528253
10 changed files with 609 additions and 279 deletions
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb
@@ -45,6 +45,11 @@ Partial Class usrCntlFaktAbrechnung
        Dim DataGridViewCellStyle20 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))
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.pnlTop = New System.Windows.Forms.Panel()
@@ -84,11 +89,11 @@ Partial Class usrCntlFaktAbrechnung
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = 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.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.Label54 = New System.Windows.Forms.Label()
        Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -206,12 +211,12 @@ Partial Class usrCntlFaktAbrechnung
        Me.Label29 = New System.Windows.Forms.Label()
        Me.Label30 = New System.Windows.Forms.Label()
        Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView()
        Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -236,7 +241,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()
@@ -276,6 +280,18 @@ Partial Class usrCntlFaktAbrechnung
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.GutschriftAusRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.SeperateRechnungFürEUSTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EUStGutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten()
        Me.pnlTop.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -874,7 +890,7 @@ Partial Class usrCntlFaktAbrechnung
        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.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId})
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewCheckBoxColumn1, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
        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))
@@ -902,59 +918,60 @@ Partial Class usrCntlFaktAbrechnung
        Me.dgvAnhaenge.TabIndex = 90
        Me.dgvAnhaenge.TabStop = False
        '
-        'optAnhSel
+        'DataGridViewCheckBoxColumn1
        '
-        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.Width = 35
+        Me.DataGridViewCheckBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None
+        Me.DataGridViewCheckBoxColumn1.FillWeight = 78.74017!
+        Me.DataGridViewCheckBoxColumn1.HeaderText = ""
+        Me.DataGridViewCheckBoxColumn1.MinimumWidth = 8
+        Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
+        Me.DataGridViewCheckBoxColumn1.ReadOnly = True
+        Me.DataGridViewCheckBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridViewCheckBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.DataGridViewCheckBoxColumn1.Width = 35
        '
-        'DataGridViewTextBoxColumn2
+        'DataGridViewTextBoxColumn1
        '
        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
        DataGridViewCellStyle2.Format = "N0"
        DataGridViewCellStyle2.NullValue = Nothing
-        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridViewTextBoxColumn1.HeaderText = "Art"
+        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
+        Me.DataGridViewTextBoxColumn1.ReadOnly = True
+        Me.DataGridViewTextBoxColumn1.Width = 70
+        '
+        'DataGridViewTextBoxColumn2
+        '
+        Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle3.Format = "N0"
+        DataGridViewCellStyle3.NullValue = Nothing
+        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridViewTextBoxColumn2.FillWeight = 121.2598!
        Me.DataGridViewTextBoxColumn2.HeaderText = "Art"
        Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        Me.DataGridViewTextBoxColumn2.ReadOnly = True
-        Me.DataGridViewTextBoxColumn2.Width = 70
        '
-        'clmnBezeichnung
+        'DataGridViewTextBoxColumn3
        '
-        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
+        Me.DataGridViewTextBoxColumn3.HeaderText = "clmnDsId"
+        Me.DataGridViewTextBoxColumn3.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
+        Me.DataGridViewTextBoxColumn3.ReadOnly = True
+        Me.DataGridViewTextBoxColumn3.Visible = False
+        Me.DataGridViewTextBoxColumn3.Width = 150
        '
-        'clmnDsId
+        'DataGridViewTextBoxColumn4
        '
-        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
+        Me.DataGridViewTextBoxColumn4.HeaderText = "clmnAnhId"
+        Me.DataGridViewTextBoxColumn4.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
+        Me.DataGridViewTextBoxColumn4.ReadOnly = True
+        Me.DataGridViewTextBoxColumn4.Visible = False
+        Me.DataGridViewTextBoxColumn4.Width = 150
        '
        'Label36
        '
@@ -2908,7 +2925,7 @@ Partial Class usrCntlFaktAbrechnung
        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        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})
+        Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10})
        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2935,67 +2952,67 @@ Partial Class usrCntlFaktAbrechnung
        Me.dgvRechnungenPositionen.TabIndex = 5
        Me.dgvRechnungenPositionen.TabStop = False
        '
-        'Leistung
+        'DataGridViewTextBoxColumn5
        '
-        Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.Leistung.HeaderText = "Leistung"
-        Me.Leistung.MinimumWidth = 8
-        Me.Leistung.Name = "Leistung"
-        Me.Leistung.ReadOnly = True
+        Me.DataGridViewTextBoxColumn5.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.DataGridViewTextBoxColumn5.HeaderText = "Leistung"
+        Me.DataGridViewTextBoxColumn5.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
+        Me.DataGridViewTextBoxColumn5.ReadOnly = True
        '
-        'Anzahl
+        'DataGridViewTextBoxColumn6
        '
        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
        DataGridViewCellStyle7.Format = "N0"
        DataGridViewCellStyle7.NullValue = Nothing
-        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7
-        Me.Anzahl.HeaderText = "Anzahl"
-        Me.Anzahl.MinimumWidth = 8
-        Me.Anzahl.Name = "Anzahl"
-        Me.Anzahl.ReadOnly = True
-        Me.Anzahl.Width = 50
+        Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle7
+        Me.DataGridViewTextBoxColumn6.HeaderText = "Anzahl"
+        Me.DataGridViewTextBoxColumn6.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
+        Me.DataGridViewTextBoxColumn6.ReadOnly = True
+        Me.DataGridViewTextBoxColumn6.Width = 50
        '
-        'Preis
+        'DataGridViewTextBoxColumn7
        '
        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
        DataGridViewCellStyle8.Format = "c2"
-        Me.Preis.DefaultCellStyle = DataGridViewCellStyle8
-        Me.Preis.HeaderText = "Preis"
-        Me.Preis.MinimumWidth = 8
-        Me.Preis.Name = "Preis"
-        Me.Preis.ReadOnly = True
-        Me.Preis.Width = 80
+        Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle8
+        Me.DataGridViewTextBoxColumn7.HeaderText = "Preis"
+        Me.DataGridViewTextBoxColumn7.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
+        Me.DataGridViewTextBoxColumn7.ReadOnly = True
+        Me.DataGridViewTextBoxColumn7.Width = 80
        '
-        'SteuerpflichtigerBetrag
+        'DataGridViewTextBoxColumn8
        '
        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
        DataGridViewCellStyle9.Format = "c2"
-        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9
-        Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
-        Me.SteuerpflichtigerBetrag.MinimumWidth = 8
-        Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
-        Me.SteuerpflichtigerBetrag.ReadOnly = True
-        Me.SteuerpflichtigerBetrag.Width = 120
+        Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle9
+        Me.DataGridViewTextBoxColumn8.HeaderText = "Steuerpfl."
+        Me.DataGridViewTextBoxColumn8.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
+        Me.DataGridViewTextBoxColumn8.ReadOnly = True
+        Me.DataGridViewTextBoxColumn8.Width = 120
        '
-        'SteuerfreierBetrag
+        'DataGridViewTextBoxColumn9
        '
        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
        DataGridViewCellStyle10.Format = "C2"
        DataGridViewCellStyle10.NullValue = Nothing
-        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10
-        Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
-        Me.SteuerfreierBetrag.MinimumWidth = 8
-        Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
-        Me.SteuerfreierBetrag.ReadOnly = True
-        Me.SteuerfreierBetrag.Width = 120
+        Me.DataGridViewTextBoxColumn9.DefaultCellStyle = DataGridViewCellStyle10
+        Me.DataGridViewTextBoxColumn9.HeaderText = "Steuerfrei"
+        Me.DataGridViewTextBoxColumn9.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
+        Me.DataGridViewTextBoxColumn9.ReadOnly = True
+        Me.DataGridViewTextBoxColumn9.Width = 120
        '
-        'Aufschubkonto
+        'DataGridViewTextBoxColumn10
        '
-        Me.Aufschubkonto.HeaderText = "Aufschubkonto"
-        Me.Aufschubkonto.MinimumWidth = 8
-        Me.Aufschubkonto.Name = "Aufschubkonto"
-        Me.Aufschubkonto.ReadOnly = True
-        Me.Aufschubkonto.Width = 120
+        Me.DataGridViewTextBoxColumn10.HeaderText = "Aufschubkonto"
+        Me.DataGridViewTextBoxColumn10.MinimumWidth = 8
+        Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
+        Me.DataGridViewTextBoxColumn10.ReadOnly = True
+        Me.DataGridViewTextBoxColumn10.Width = 120
        '
        'dgvOffertenSperrliste
        '
@@ -3476,17 +3493,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
@@ -3926,9 +3932,9 @@ Partial Class usrCntlFaktAbrechnung
        '
        'ContextMenuStrip2
        '
-        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem})
+        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GutschriftAusRechnungToolStripMenuItem, Me.SeperateRechnungFürEUSTToolStripMenuItem, Me.EUStGutschriftAnVeragToolStripMenuItem})
        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 48)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(224, 92)
        '
        'GutschriftAusRechnungToolStripMenuItem
        '
@@ -3942,6 +3948,128 @@ Partial Class usrCntlFaktAbrechnung
        Me.SeperateRechnungFürEUSTToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
        Me.SeperateRechnungFürEUSTToolStripMenuItem.Text = "Seperate Rechnung für EUST"
        '
+        'EUStGutschriftAnVeragToolStripMenuItem
+        '
+        Me.EUStGutschriftAnVeragToolStripMenuItem.Name = "EUStGutschriftAnVeragToolStripMenuItem"
+        Me.EUStGutschriftAnVeragToolStripMenuItem.Size = New System.Drawing.Size(223, 22)
+        Me.EUStGutschriftAnVeragToolStripMenuItem.Text = "EUSt Gutschrift an Verag"
+        Me.EUStGutschriftAnVeragToolStripMenuItem.Visible = 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.Width = 35
+        '
+        'clmnBezeichnung
+        '
+        Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.Format = "c2"
+        Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle22
+        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
+        '
+        'Leistung
+        '
+        Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Leistung.HeaderText = "Leistung"
+        Me.Leistung.MinimumWidth = 8
+        Me.Leistung.Name = "Leistung"
+        Me.Leistung.ReadOnly = True
+        '
+        'Anzahl
+        '
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle23.Format = "N0"
+        DataGridViewCellStyle23.NullValue = Nothing
+        Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle23
+        Me.Anzahl.HeaderText = "Anzahl"
+        Me.Anzahl.MinimumWidth = 8
+        Me.Anzahl.Name = "Anzahl"
+        Me.Anzahl.ReadOnly = True
+        Me.Anzahl.Width = 50
+        '
+        'Preis
+        '
+        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle24.Format = "c2"
+        Me.Preis.DefaultCellStyle = DataGridViewCellStyle24
+        Me.Preis.HeaderText = "Preis"
+        Me.Preis.MinimumWidth = 8
+        Me.Preis.Name = "Preis"
+        Me.Preis.ReadOnly = True
+        Me.Preis.Width = 80
+        '
+        'SteuerpflichtigerBetrag
+        '
+        DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle25.Format = "c2"
+        Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle25
+        Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl."
+        Me.SteuerpflichtigerBetrag.MinimumWidth = 8
+        Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag"
+        Me.SteuerpflichtigerBetrag.ReadOnly = True
+        Me.SteuerpflichtigerBetrag.Width = 120
+        '
+        'SteuerfreierBetrag
+        '
+        DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle26.Format = "C2"
+        DataGridViewCellStyle26.NullValue = Nothing
+        Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle26
+        Me.SteuerfreierBetrag.HeaderText = "Steuerfrei"
+        Me.SteuerfreierBetrag.MinimumWidth = 8
+        Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag"
+        Me.SteuerfreierBetrag.ReadOnly = True
+        Me.SteuerfreierBetrag.Width = 120
+        '
+        'Aufschubkonto
+        '
+        Me.Aufschubkonto.HeaderText = "Aufschubkonto"
+        Me.Aufschubkonto.MinimumWidth = 8
+        Me.Aufschubkonto.Name = "Aufschubkonto"
+        Me.Aufschubkonto.ReadOnly = True
+        Me.Aufschubkonto.Width = 120
+        '
+        '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
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4223,4 +4351,15 @@ Partial Class usrCntlFaktAbrechnung
    Friend WithEvents SeperateRechnungFürEUSTToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents Label56 As Label
    Friend WithEvents txtRechnungAnZusatz As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents EUStGutschriftAnVeragToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DataGridViewCheckBoxColumn1 As DataGridViewCheckBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn
+    Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
 End Class