Kd VeranlKd

2024-05-23 15:38:33 +02:00
parent a77dd979a7
commit 88d17b3cb5
4 changed files with 109 additions and 72 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.2.9.0")>
-<Assembly: AssemblyFileVersion("1.2.9.0")>
+<Assembly: AssemblyVersion("1.2.9.2")>
+<Assembly: AssemblyFileVersion("1.2.9.2")>
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -208,12 +208,13 @@ Public Class usrCntlUSTV
        '              AND cast( [UStVAn_USteuerbetragEUR] as decimal(17,2))-cast( [UStVAn_ErstattungsbetragEUR]  as decimal(17,2))<>0
        '              AND UStVAn_AntragEingereichtAm is not null
        '          order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc"
-        Dim sqlStr = "SELECT   [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],(cast([UStVAn_USteuerbetragEUR] as decimal(17,2)) - cast( [UStVAn_ErstattungsbetragEUR]  as decimal(17,2))) as Differenzbetrag, [UStVAn_Sachbearbeiter]
-                  FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
+        Dim sqlStr = "SELECT   [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],Adressen.LandKz as Land_Kunde, case when UstIdKz is not null and UstIdNr is not null THEN UstIdKz +'' + UstIdNr ELSE isnull(Steuernummer,'') END as SteuerUIDNr,  LfdA .LandKz Land_Antrag,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],(cast([UStVAn_USteuerbetragEUR] as decimal(17,2)) - cast( [UStVAn_ErstattungsbetragEUR]  as decimal(17,2))) as Differenzbetrag, [UStVAn_Sachbearbeiter]
+                  FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] as LfdA on UStVAn_LandNr=Landnr
+				  inner join Adressen on AdressenNr=UStVAn_KuNr
                    where 1=1  
                      AND cast( [UStVAn_USteuerbetragEUR] as decimal(17,2))-cast( [UStVAn_ErstattungsbetragEUR]  as decimal(17,2))<>0
                      AND UStVAn_AntragEingereichtAm is not null
-                  order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc"
+                  order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LfdA .LandKz,[UStVAn_ReDatVon] desc"

        Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -377,21 +378,21 @@ Public Class usrCntlUSTV
                Mail.Subject = subject


-                    Dim TextHTML = ""
-                    TextHTML &= "Ladies and Gentlemen,<br>"
-                    TextHTML &= "<br>"
-                    TextHTML &= "In the attachment we will send you the Excel list and the corresponding invoices for the VAT refund.<br>"
-                    TextHTML &= "Please submit these invoices to the tax office.<br>"
-                    TextHTML &= "We are always available to answer more questions.<br>"
+                Dim TextHTML = ""
+                TextHTML &= "Ladies and Gentlemen,<br>"
+                TextHTML &= "<br>"
+                TextHTML &= "In the attachment we will send you the Excel list and the corresponding invoices for the VAT refund.<br>"
+                TextHTML &= "Please submit these invoices to the tax office.<br>"
+                TextHTML &= "We are always available to answer more questions.<br>"

-                    TextHTML &= "Mit freundlichen Grüßen<br>"
-                    TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
-                    TextHTML &= "<br>"
-                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+                TextHTML &= "Mit freundlichen Grüßen<br>"
+                TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                TextHTML &= "<br>"
+                Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"


-                    Mail.Display()
-                End If
+                Mail.Display()
+            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
    <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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 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 DataGridViewCellStyle6 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()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnExcel = New System.Windows.Forms.Button()
@@ -257,6 +257,8 @@ Partial Class usrCntlKundenuebersicht
        Me.btnReloadOP = New System.Windows.Forms.Button()
        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
+        Me.lblVeranlKd = New System.Windows.Forms.Label()
+        Me.txtVeranlKd = New System.Windows.Forms.TextBox()
        Me.cntxtAddVM.SuspendLayout()
        Me.tbWeitereKundenDetails.SuspendLayout()
        Me.tbOfferten.SuspendLayout()
@@ -378,6 +380,8 @@ Partial Class usrCntlKundenuebersicht
        '
        Me.tbOfferten.BackColor = System.Drawing.Color.White
        Me.tbOfferten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.tbOfferten.Controls.Add(Me.Label12)
+        Me.tbOfferten.Controls.Add(Me.txtSammelrechnung)
        Me.tbOfferten.Controls.Add(Me.dgvOfferteDetailsUebersicht)
        Me.tbOfferten.Controls.Add(Me.dgvOffertenSperrliste)
        Me.tbOfferten.Controls.Add(Me.lblKeineSperren)
@@ -395,8 +399,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
        Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
        Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
        Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
        Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -416,8 +420,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
        Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
        Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
        Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
        Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -427,10 +431,10 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
        Me.dgvOffertenSperrliste.ReadOnly = True
        Me.dgvOffertenSperrliste.RowHeadersVisible = False
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.Color.Black
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle27
        Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
        Me.dgvOffertenSperrliste.TabIndex = 0
@@ -568,8 +572,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvOffenePosten.AllowUserToAddRows = False
        Me.dgvOffenePosten.AllowUserToDeleteRows = False
        Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle28.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle28
        Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
        Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -649,8 +653,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
        Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
        Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
        Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
        Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -712,8 +716,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvAnhaenge.AllowUserToAddRows = False
        Me.dgvAnhaenge.AllowUserToDeleteRows = False
        Me.dgvAnhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
        Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -827,8 +831,6 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.Controls.Add(Me.UsrCntlKundenBesonderheiten1)
        Me.grpAbfertigung.Controls.Add(Me.lblAbfertigungsverbot)
        Me.grpAbfertigung.Controls.Add(Me.Label45)
-        Me.grpAbfertigung.Controls.Add(Me.txtSammelrechnung)
-        Me.grpAbfertigung.Controls.Add(Me.Label12)
        Me.grpAbfertigung.Controls.Add(Me.pnlVERAGSnspr)
        Me.grpAbfertigung.Controls.Add(Me.btnPunkt2Save)
        Me.grpAbfertigung.Controls.Add(Me.Button7)
@@ -848,6 +850,8 @@ Partial Class usrCntlKundenuebersicht
        Me.grpAbfertigung.Controls.Add(Me.Panel7)
        Me.grpAbfertigung.Controls.Add(Me.lblVorkasse)
        Me.grpAbfertigung.Controls.Add(Me.txtZahlungsziel)
+        Me.grpAbfertigung.Controls.Add(Me.txtVeranlKd)
+        Me.grpAbfertigung.Controls.Add(Me.lblVeranlKd)
        Me.grpAbfertigung.Cursor = System.Windows.Forms.Cursors.Default
        Me.grpAbfertigung.Location = New System.Drawing.Point(509, 3)
        Me.grpAbfertigung.Name = "grpAbfertigung"
@@ -1045,7 +1049,7 @@ Partial Class usrCntlKundenuebersicht
        Me.txtSammelrechnung.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtSammelrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtSammelrechnung.ForeColor = System.Drawing.Color.Black
-        Me.txtSammelrechnung.Location = New System.Drawing.Point(557, 230)
+        Me.txtSammelrechnung.Location = New System.Drawing.Point(76, 244)
        Me.txtSammelrechnung.Name = "txtSammelrechnung"
        Me.txtSammelrechnung.ReadOnly = True
        Me.txtSammelrechnung.Size = New System.Drawing.Size(95, 13)
@@ -1054,7 +1058,7 @@ Partial Class usrCntlKundenuebersicht
        'Label12
        '
        Me.Label12.AutoSize = True
-        Me.Label12.Location = New System.Drawing.Point(492, 230)
+        Me.Label12.Location = New System.Drawing.Point(11, 244)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(59, 13)
        Me.Label12.TabIndex = 23
@@ -2457,8 +2461,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvVollmachten.AllowUserToDeleteRows = False
        Me.dgvVollmachten.AllowUserToOrderColumns = True
        Me.dgvVollmachten.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
        Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
        Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2511,8 +2515,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvVertraege.AllowUserToDeleteRows = False
        Me.dgvVertraege.AllowUserToOrderColumns = True
        Me.dgvVertraege.AllowUserToResizeRows = False
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
        Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
        Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2687,8 +2691,8 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvGestGarantie.AllowUserToDeleteRows = False
        Me.dgvGestGarantie.AllowUserToOrderColumns = True
        Me.dgvGestGarantie.AllowUserToResizeRows = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
        Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
        Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3141,24 +3145,24 @@ Partial Class usrCntlKundenuebersicht
        Me.dgvAufschub.AllowUserToResizeColumns = False
        Me.dgvAufschub.AllowUserToResizeRows = False
        Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle34.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle34.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle34.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle34.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle34.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle34
        Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL})
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle36
        Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
        Me.dgvAufschub.MultiSelect = False
        Me.dgvAufschub.Name = "dgvAufschub"
@@ -3185,8 +3189,8 @@ Partial Class usrCntlKundenuebersicht
        '
        'HZA
        '
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        Me.HZA.DefaultCellStyle = DataGridViewCellStyle35
        Me.HZA.HeaderText = "HZA"
        Me.HZA.Name = "HZA"
        Me.HZA.ReadOnly = True
@@ -3370,6 +3374,27 @@ Partial Class usrCntlKundenuebersicht
        Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
        Me.SessionService1.UseDefaultCredentials = False
        '
+        'lblVeranlKd
+        '
+        Me.lblVeranlKd.AutoSize = True
+        Me.lblVeranlKd.Location = New System.Drawing.Point(492, 230)
+        Me.lblVeranlKd.Name = "lblVeranlKd"
+        Me.lblVeranlKd.Size = New System.Drawing.Size(59, 13)
+        Me.lblVeranlKd.TabIndex = 47
+        Me.lblVeranlKd.Text = "Veranl.Kd.:"
+        '
+        'txtVeranlKd
+        '
+        Me.txtVeranlKd.BackColor = System.Drawing.Color.White
+        Me.txtVeranlKd.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtVeranlKd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVeranlKd.ForeColor = System.Drawing.Color.Black
+        Me.txtVeranlKd.Location = New System.Drawing.Point(556, 230)
+        Me.txtVeranlKd.Name = "txtVeranlKd"
+        Me.txtVeranlKd.ReadOnly = True
+        Me.txtVeranlKd.Size = New System.Drawing.Size(35, 13)
+        Me.txtVeranlKd.TabIndex = 49
+        '
        'usrCntlKundenuebersicht
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3683,4 +3708,6 @@ Partial Class usrCntlKundenuebersicht
    Friend WithEvents PictureBox6 As PictureBox
    Friend WithEvents txtOVK As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label19 As Label
+    Friend WithEvents txtVeranlKd As TextBox
+    Friend WithEvents lblVeranlKd As Label
 End Class
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -520,7 +520,7 @@ Public Class usrCntlKundenuebersicht
            lblAviso.BackColor = Color.White
            txtNeutralisierung.BackColor = Color.White
            txtVorauskasse.BackColor = Color.White
-
+            txtVeranlKd.BackColor = Color.White


            Select Case checkNullStr(KUNDE.Avis)
@@ -551,6 +551,15 @@ Public Class usrCntlKundenuebersicht
                txtVorauskasse.BackColor = Color.White
            End If

+            If KUNDE_ERW.Veranlagungskunde Then
+                txtVeranlKd.Text = "JA"
+                txtVeranlKd.BackColor = Color.Yellow
+            Else
+                txtVeranlKd.Text = "NEIN"
+                txtVeranlKd.BackColor = Color.White
+            End If
+
+            lblVeranlKd.BackColor = txtVeranlKd.BackColor
            lblVorkasse.BackColor = txtVorauskasse.BackColor
            lblNeutralisierung.BackColor = txtNeutralisierung.BackColor