cFakt, Kundenblatt, ustva, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -2061,11 +2061,17 @@ Public Class cFakturierung
 
                 einzelpreis = 0
 
-                einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / checkNull(pos.Item("Anzahl")), pos.Item("SteuerfreierBetrag") / checkNull(pos.Item("Anzahl")))
+                If IsNumeric(checkNull(pos.Item("Anzahl"))) Then anzahl = CDbl(checkNull(pos.Item("Anzahl")))
+
+                einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / anzahl, pos.Item("SteuerfreierBetrag") / anzahl)
+
+                If Double.IsNaN(einzelpreis) Then
+                    einzelpreis = 0
+                End If
 
                 Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
                                            name:=checkNull(pos.Item("LeistungsBez")),
-                                           billedQuantity:=Convert.ToDecimal(checkNull(pos.Item("Anzahl"))),
+                                           billedQuantity:=IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0),
                                            unitCode:=QuantityCodes.C62, ' immer in Stück
                                            netUnitPrice:=Convert.ToDecimal(einzelpreis),
                                            grossUnitPrice:=Convert.ToDecimal(einzelpreis),
@@ -2074,7 +2080,7 @@ Public Class cFakturierung
                                            taxType:=IIf(pos.Item("SteuerpflichtigerBetrag") > 0, TaxTypes.VAT, TaxTypes.VAT)
                                            )
                 Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
-                Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(pos.Item("Anzahl")))
+                Dim netPricePos = netUnitPrice * IIf(anzahl <> 0, Convert.ToDecimal(anzahl), 0)
                 sumNetto += netPricePos
 
 

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -26,6 +26,7 @@ Partial Class frmMDM_USTVAntrag
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.picPDF = New System.Windows.Forms.PictureBox()
         Me.btnMail = New System.Windows.Forms.Button()
         Me.btnAntrageeinarbeiten = New System.Windows.Forms.Button()
         Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
@@ -40,6 +41,8 @@ Partial Class frmMDM_USTVAntrag
         Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblLand = New System.Windows.Forms.Label()
         Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
@@ -92,8 +95,9 @@ Partial Class frmMDM_USTVAntrag
         Me.btnNeuerEintrag = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.picPDF = New System.Windows.Forms.PictureBox()
+        Me.lblMWSTAbrechnung = New System.Windows.Forms.Label()
         Me.Panel3.SuspendLayout()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel9.SuspendLayout()
         Me.Panel8.SuspendLayout()
@@ -105,7 +109,6 @@ Partial Class frmMDM_USTVAntrag
         Me.pnl.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Panel3
@@ -124,6 +127,16 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel3.Size = New System.Drawing.Size(1454, 100)
         Me.Panel3.TabIndex = 3
         '
+        'picPDF
+        '
+        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.picPDF.Location = New System.Drawing.Point(972, 29)
+        Me.picPDF.Name = "picPDF"
+        Me.picPDF.Size = New System.Drawing.Size(50, 50)
+        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.picPDF.TabIndex = 27
+        Me.picPDF.TabStop = False
+        '
         'btnMail
         '
         Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -214,7 +227,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.lblWarnung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblWarnung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblWarnung.BackColor = System.Drawing.Color.Transparent
         Me.lblWarnung.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblWarnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
         Me.lblWarnung.ForeColor = System.Drawing.Color.Red
@@ -269,7 +282,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblKdNr.BackColor = System.Drawing.Color.Transparent
         Me.lblKdNr.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblKdNr.ForeColor = System.Drawing.Color.White
@@ -322,6 +335,9 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel8.Controls.Add(Me.lblMWSTAbrechnung)
+        Me.Panel8.Controls.Add(Me.Label13)
+        Me.Panel8.Controls.Add(Me.txtGueltig)
         Me.Panel8.Controls.Add(Me.Label11)
         Me.Panel8.Controls.Add(Me.txtStNr)
         Me.Panel8.Controls.Add(Me.Label9)
@@ -346,6 +362,44 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel8.Size = New System.Drawing.Size(973, 87)
         Me.Panel8.TabIndex = 19
         '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.BackColor = System.Drawing.Color.Transparent
+        Me.Label13.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.ForeColor = System.Drawing.Color.Black
+        Me.Label13.Location = New System.Drawing.Point(10, 65)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(64, 17)
+        Me.Label13.TabIndex = 24
+        Me.Label13.Text = "gültig bis"
+        '
+        'txtGueltig
+        '
+        Me.txtGueltig._DateTimeOnly = False
+        Me.txtGueltig._numbersOnly = False
+        Me.txtGueltig._numbersOnlyKommastellen = ""
+        Me.txtGueltig._numbersOnlyTrennzeichen = False
+        Me.txtGueltig._Prozent = False
+        Me.txtGueltig._ShortDateNew = False
+        Me.txtGueltig._ShortDateOnly = True
+        Me.txtGueltig._TimeOnly = False
+        Me.txtGueltig._TimeOnly_Seconds = False
+        Me.txtGueltig._value = ""
+        Me.txtGueltig._Waehrung = False
+        Me.txtGueltig._WaehrungZeichen = False
+        Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtGueltig.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltig.Location = New System.Drawing.Point(101, 62)
+        Me.txtGueltig.MaxLength = 10
+        Me.txtGueltig.MaxLineLength = -1
+        Me.txtGueltig.MaxLines_Warning = ""
+        Me.txtGueltig.MaxLines_Warning_Label = Nothing
+        Me.txtGueltig.Name = "txtGueltig"
+        Me.txtGueltig.Size = New System.Drawing.Size(100, 23)
+        Me.txtGueltig.TabIndex = 23
+        '
         'Label11
         '
         Me.Label11.AutoSize = True
@@ -353,7 +407,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label11.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label11.ForeColor = System.Drawing.Color.Black
-        Me.Label11.Location = New System.Drawing.Point(10, 47)
+        Me.Label11.Location = New System.Drawing.Point(10, 40)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(74, 17)
         Me.Label11.TabIndex = 21
@@ -375,7 +429,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txtStNr._WaehrungZeichen = False
         Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.txtStNr.ForeColor = System.Drawing.Color.Black
-        Me.txtStNr.Location = New System.Drawing.Point(101, 44)
+        Me.txtStNr.Location = New System.Drawing.Point(101, 37)
         Me.txtStNr.MaxLength = 10
         Me.txtStNr.MaxLineLength = -1
         Me.txtStNr.MaxLines_Warning = ""
@@ -391,7 +445,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label9.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Black
-        Me.Label9.Location = New System.Drawing.Point(815, 44)
+        Me.Label9.Location = New System.Drawing.Point(815, 38)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(30, 17)
         Me.Label9.TabIndex = 19
@@ -413,7 +467,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txtVZ._WaehrungZeichen = True
         Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.txtVZ.ForeColor = System.Drawing.Color.Black
-        Me.txtVZ.Location = New System.Drawing.Point(865, 38)
+        Me.txtVZ.Location = New System.Drawing.Point(865, 32)
         Me.txtVZ.MaxLength = 10
         Me.txtVZ.MaxLineLength = -1
         Me.txtVZ.MaxLines_Warning = ""
@@ -438,7 +492,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txtAbfNr._WaehrungZeichen = False
         Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.txtAbfNr.ForeColor = System.Drawing.Color.Black
-        Me.txtAbfNr.Location = New System.Drawing.Point(654, 40)
+        Me.txtAbfNr.Location = New System.Drawing.Point(654, 34)
         Me.txtAbfNr.MaxLength = 10
         Me.txtAbfNr.MaxLineLength = -1
         Me.txtAbfNr.MaxLines_Warning = ""
@@ -454,7 +508,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label8.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.Black
-        Me.Label8.Location = New System.Drawing.Point(524, 44)
+        Me.Label8.Location = New System.Drawing.Point(524, 38)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(112, 17)
         Me.Label8.TabIndex = 17
@@ -465,10 +519,10 @@ Partial Class frmMDM_USTVAntrag
         Me.cbxFiliale._allowedValuesFreiText = Nothing
         Me.cbxFiliale._allowFreiText = False
         Me.cbxFiliale._value = ""
-        Me.cbxFiliale.DropDownWidth = 120
+        Me.cbxFiliale.DropDownWidth = 150
         Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cbxFiliale.FormattingEnabled = True
-        Me.cbxFiliale.Location = New System.Drawing.Point(429, 39)
+        Me.cbxFiliale.Location = New System.Drawing.Point(429, 33)
         Me.cbxFiliale.Name = "cbxFiliale"
         Me.cbxFiliale.Size = New System.Drawing.Size(89, 24)
         Me.cbxFiliale.TabIndex = 16
@@ -480,7 +534,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label4.ForeColor = System.Drawing.Color.Black
-        Me.Label4.Location = New System.Drawing.Point(363, 44)
+        Me.Label4.Location = New System.Drawing.Point(363, 38)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(48, 17)
         Me.Label4.TabIndex = 15
@@ -493,7 +547,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label2.ForeColor = System.Drawing.Color.Black
-        Me.Label2.Location = New System.Drawing.Point(524, 13)
+        Me.Label2.Location = New System.Drawing.Point(524, 9)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(111, 17)
         Me.Label2.TabIndex = 13
@@ -515,7 +569,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txtBezugsNr._WaehrungZeichen = False
         Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.txtBezugsNr.ForeColor = System.Drawing.Color.Black
-        Me.txtBezugsNr.Location = New System.Drawing.Point(654, 9)
+        Me.txtBezugsNr.Location = New System.Drawing.Point(654, 5)
         Me.txtBezugsNr.MaxLength = 10
         Me.txtBezugsNr.MaxLineLength = -1
         Me.txtBezugsNr.MaxLines_Warning = ""
@@ -531,7 +585,7 @@ Partial Class frmMDM_USTVAntrag
         Me.cbxWahrung._value = ""
         Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cbxWahrung.FormattingEnabled = True
-        Me.cbxWahrung.Location = New System.Drawing.Point(447, 9)
+        Me.cbxWahrung.Location = New System.Drawing.Point(447, 5)
         Me.cbxWahrung.Name = "cbxWahrung"
         Me.cbxWahrung.Size = New System.Drawing.Size(71, 24)
         Me.cbxWahrung.TabIndex = 12
@@ -543,7 +597,7 @@ Partial Class frmMDM_USTVAntrag
         Me.lblWahrung.Cursor = System.Windows.Forms.Cursors.Hand
         Me.lblWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblWahrung.ForeColor = System.Drawing.Color.Black
-        Me.lblWahrung.Location = New System.Drawing.Point(363, 13)
+        Me.lblWahrung.Location = New System.Drawing.Point(363, 9)
         Me.lblWahrung.Name = "lblWahrung"
         Me.lblWahrung.Size = New System.Drawing.Size(70, 17)
         Me.lblWahrung.TabIndex = 11
@@ -556,7 +610,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.Black
-        Me.Label1.Location = New System.Drawing.Point(815, 13)
+        Me.Label1.Location = New System.Drawing.Point(815, 9)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(44, 17)
         Me.Label1.TabIndex = 10
@@ -578,7 +632,7 @@ Partial Class frmMDM_USTVAntrag
         Me.txt3470._WaehrungZeichen = True
         Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.txt3470.ForeColor = System.Drawing.Color.Black
-        Me.txt3470.Location = New System.Drawing.Point(865, 7)
+        Me.txt3470.Location = New System.Drawing.Point(865, 3)
         Me.txt3470.MaxLength = 10
         Me.txt3470.MaxLineLength = -1
         Me.txt3470.MaxLines_Warning = ""
@@ -676,7 +730,7 @@ Partial Class frmMDM_USTVAntrag
         'lblGesamtUSteuer
         '
         Me.lblGesamtUSteuer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblGesamtUSteuer.BackColor = System.Drawing.Color.Transparent
         Me.lblGesamtUSteuer.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblGesamtUSteuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.lblGesamtUSteuer.ForeColor = System.Drawing.Color.White
@@ -691,7 +745,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label12.AutoSize = True
-        Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label12.BackColor = System.Drawing.Color.Transparent
         Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
         Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.Label12.ForeColor = System.Drawing.Color.White
@@ -704,7 +758,7 @@ Partial Class frmMDM_USTVAntrag
         'lblDiffernezbetrag
         '
         Me.lblDiffernezbetrag.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblDiffernezbetrag.BackColor = System.Drawing.Color.Transparent
         Me.lblDiffernezbetrag.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblDiffernezbetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.lblDiffernezbetrag.ForeColor = System.Drawing.Color.White
@@ -719,7 +773,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label10.AutoSize = True
-        Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label10.BackColor = System.Drawing.Color.Transparent
         Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
         Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.Label10.ForeColor = System.Drawing.Color.White
@@ -732,7 +786,7 @@ Partial Class frmMDM_USTVAntrag
         'lblGesamtErstattung
         '
         Me.lblGesamtErstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblGesamtErstattung.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblGesamtErstattung.BackColor = System.Drawing.Color.Transparent
         Me.lblGesamtErstattung.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblGesamtErstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.lblGesamtErstattung.ForeColor = System.Drawing.Color.White
@@ -747,7 +801,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label7.AutoSize = True
-        Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label7.BackColor = System.Drawing.Color.Transparent
         Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
         Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.Label7.ForeColor = System.Drawing.Color.White
@@ -975,7 +1029,7 @@ Partial Class frmMDM_USTVAntrag
         '
         Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.lblFirma.BackColor = System.Drawing.Color.Transparent
         Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Default
         Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
         Me.lblFirma.ForeColor = System.Drawing.Color.White
@@ -1094,15 +1148,17 @@ Partial Class frmMDM_USTVAntrag
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'picPDF
+        'lblMWSTAbrechnung
         '
-        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf
+        Me.lblMWSTAbrechnung.AutoSize = True
-        Me.picPDF.Location = New System.Drawing.Point(972, 29)
+        Me.lblMWSTAbrechnung.BackColor = System.Drawing.Color.Transparent
-        Me.picPDF.Name = "picPDF"
+        Me.lblMWSTAbrechnung.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picPDF.Size = New System.Drawing.Size(50, 50)
+        Me.lblMWSTAbrechnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
+        Me.lblMWSTAbrechnung.ForeColor = System.Drawing.Color.Black
-        Me.picPDF.TabIndex = 27
+        Me.lblMWSTAbrechnung.Location = New System.Drawing.Point(224, 41)
-        Me.picPDF.TabStop = False
+        Me.lblMWSTAbrechnung.Name = "lblMWSTAbrechnung"
+        Me.lblMWSTAbrechnung.Size = New System.Drawing.Size(0, 17)
+        Me.lblMWSTAbrechnung.TabIndex = 25
         '
         'frmMDM_USTVAntrag
         '
@@ -1120,6 +1176,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Text = "USTV Antrag"
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.Panel9.ResumeLayout(False)
@@ -1136,7 +1193,6 @@ Partial Class frmMDM_USTVAntrag
         Me.pnl.ResumeLayout(False)
         Me.Panel2.ResumeLayout(False)
         Me.Panel4.ResumeLayout(False)
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -1209,4 +1265,7 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents Label2 As Label
     Friend WithEvents txtBezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents picPDF As PictureBox
+    Friend WithEvents txtGueltig As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents lblMWSTAbrechnung As Label
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -218,13 +218,30 @@ Public Class frmMDM_USTVAntrag
             USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
             Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
             setValue(USTV_ANTRAG)
+
+            Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
+            Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
+            If KUNDE IsNot Nothing Then
+                Panel1.BackColor = Color.FromArgb(0, 54, 128)
+                If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
+            Else
+                Panel1.BackColor = Color.FromArgb(0, 54, 128)
+            End If
+
+
+            If KUNDE_ERW IsNot Nothing Then
+
+                If KUNDE_ERW.kde_MWStAbrechnung IsNot Nothing Then
+                    lblMWSTAbrechnung.Text = KUNDE_ERW.kde_MWStAbrechnung
+                Else
+                    lblMWSTAbrechnung.Text = ""
+                End If
+            End If
+
         End If
 
 
 
-
-
-
     End Sub
 
     Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag)
@@ -335,7 +352,7 @@ Public Class frmMDM_USTVAntrag
         dgvUSTVPositionen.VALUE_CHANGED = True
     End Sub
 
-    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub usrCntlUSTVA_Antrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
         EnableDoubleBuffered(dgvUSTVPositionen)
 
@@ -450,6 +467,8 @@ Public Class frmMDM_USTVAntrag
 
         init()
 
+        setinfofields()
+
     End Sub
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click
@@ -1006,7 +1025,7 @@ Public Class frmMDM_USTVAntrag
 
                         USTV_POS.UStVPo_Schnittstelle = True
                         USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
-                        USTV_POS.UStVPo_Leistender = "IDS EUROPE BV"
+                        USTV_POS.UStVPo_Leistender = "IDS EUROPE B.V."
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                         USTV_POS.UStVPo_Zeitstempel = Now()
 
@@ -1640,6 +1659,9 @@ Public Class frmMDM_USTVAntrag
     Private Sub cbxLand_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxLand.SelectedValueChanged
 
         lblLand.Text = IIf(cbxLand.SelectedItem IsNot Nothing, cbxLand.SelectedItem.Text, "")
+
+        setinfofields()
+
     End Sub
 
     Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
@@ -1823,5 +1845,63 @@ Public Class frmMDM_USTVAntrag
 
         Next
 
+    End Sub
+
+    Private Sub setinfofields()
+
+
+        If Not IsDBNull(USTV_ANTRAG.UStVAn_LandNr) Then
+
+            Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
+
+            If dtSteuerNr.Rows.Count > 0 Then
+                txtStNr.Text = dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")
+                txtGueltig.Text = dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")
+            End If
+
+
+
+        End If
+
+
+        '   If Not IsNull(Me!UStVAn_LandNr) Then
+        '       strSQL = "SELECT tblSteuernummern.*" &
+        '           " FROM tblSteuernummern" &
+        '           " WHERE (((tblSteuernummern.AdressenNr)=" & Me!lngKundenNr & ") AND ((tblSteuernummern.LandNr)=" & Me!UStVAn_LandNr & "));"
+        '    Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
+        '    If Not rst.EOF Then
+        '           Me!StNrFürRückerstattungUSt = rst!StNrFürRückerstattungUSt
+        '           Me!StNrGültigkeitsdatum = rst!StNrGültigkeitsdatum
+        '           Me!bezVertretungsvollmachtAusgestelltAm.ForeColor = -2147483630
+        '           Me!bezVertretungsvollmachtAusgestelltAm.Caption = "Vertretungsvollmacht ausgestellt am"
+        '           Me!VertretungsvollmachtAusgestelltAm = rst!VertretungsvollmachtAusgestelltAm
+        '           Me!bezVertretungsvollmachtErhaltenAm.ForeColor = -2147483630
+        '           Me!bezVertretungsvollmachtErhaltenAm.Caption = "Vertretungsvollmacht erhalten am"
+        '           Me!VertretungsvollmachtErhaltenAm = rst!VertretungsvollmachtErhaltenAm
+        '           Me!AuszahlungsvollmachtAusgestelltAm = rst!AuszahlungsvollmachtAusgestelltAm
+        '           Me!AuszahlungsvollmachtErhaltenAm = rst!AuszahlungsvollmachtErhaltenAm
+        '           Me!Bemerkung = rst!Bemerkung
+        '       End If
+        '       rst.Close
+        '       ' ab 25.03.2010 Generalvollmacht Eintrag in Tabelle Adressen
+        '       strSQL = "SELECT Adressen.UStV_GVAnfDat, Adressen.UStV_GVAusDat" &
+        '         " FROM Adressen" &
+        '         " WHERE (((Adressen.AdressenNr)=" & Me!lngKundenNr & ") AND" &
+        '         " (((Adressen.UStV_GVAnfDat) Is Not Null) OR ((Adressen.UStV_GVAusDat) Is Not Null)));"
+        '    Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
+        '    If Not rst.EOF Then
+        '           Me!bezVertretungsvollmachtAusgestelltAm.ForeColor = 16711808
+        '           Me!bezVertretungsvollmachtAusgestelltAm.Caption = "Generalvollmacht angefordert am"
+        '           Me!VertretungsvollmachtAusgestelltAm = rst!UStV_GVAnfDat
+        '           Me!bezVertretungsvollmachtErhaltenAm.ForeColor = 16711808
+        '           Me!bezVertretungsvollmachtErhaltenAm.Caption = "Generalvollmacht ausgestellt am"
+        '           Me!VertretungsvollmachtErhaltenAm = rst!UStV_GVAusDat
+        '       End If
+        '       rst.Close
+        '    Set rst = Nothing
+        'End If
+
+
+
     End Sub
 End Class

SDL/USTV/frmUSTVoffeneAntraege.Designer.vb

@@ -480,6 +480,7 @@ Partial Class frmUSTVoffeneAntraege
         '
         'Button4
         '
+        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Button4.Location = New System.Drawing.Point(15, 639)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(75, 23)

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -28,6 +28,8 @@ Partial Class usrCntlUSTV
         Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblVZhint = New System.Windows.Forms.Label()
+        Me.lblVZKunde = New System.Windows.Forms.Label()
         Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.txtOPSaldo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -60,13 +62,14 @@ Partial Class usrCntlUSTV
         Me.btnUSTVAloeschen = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnVorschau = New System.Windows.Forms.Button()
         Me.btnMail = New System.Windows.Forms.Button()
         Me.btnPLOSEAlle = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.btnVorschau = New System.Windows.Forms.Button()
         CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -114,6 +117,8 @@ Partial Class usrCntlUSTV
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.lblVZhint)
+        Me.Panel1.Controls.Add(Me.lblVZKunde)
         Me.Panel1.Controls.Add(Me.txtRisiko)
         Me.Panel1.Controls.Add(Me.Label10)
         Me.Panel1.Controls.Add(Me.txtOPSaldo)
@@ -149,6 +154,26 @@ Partial Class usrCntlUSTV
         Me.Panel1.Size = New System.Drawing.Size(1627, 108)
         Me.Panel1.TabIndex = 0
         '
+        'lblVZhint
+        '
+        Me.lblVZhint.AutoSize = True
+        Me.lblVZhint.Location = New System.Drawing.Point(4, 60)
+        Me.lblVZhint.Name = "lblVZhint"
+        Me.lblVZhint.Size = New System.Drawing.Size(0, 13)
+        Me.lblVZhint.TabIndex = 58
+        '
+        'lblVZKunde
+        '
+        Me.lblVZKunde.AutoSize = True
+        Me.lblVZKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVZKunde.ForeColor = System.Drawing.Color.Red
+        Me.lblVZKunde.Location = New System.Drawing.Point(4, 39)
+        Me.lblVZKunde.Name = "lblVZKunde"
+        Me.lblVZKunde.Size = New System.Drawing.Size(83, 16)
+        Me.lblVZKunde.TabIndex = 57
+        Me.lblVZKunde.Text = "VZ-KUNDE"
+        Me.lblVZKunde.Visible = False
+        '
         'txtRisiko
         '
         Me.txtRisiko._DateTimeOnly = False
@@ -644,6 +669,7 @@ Partial Class usrCntlUSTV
         'Panel3
         '
         Me.Panel3.AutoSize = True
+        Me.Panel3.Controls.Add(Me.Button2)
         Me.Panel3.Controls.Add(Me.btnVorschau)
         Me.Panel3.Controls.Add(Me.btnMail)
         Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
@@ -658,6 +684,32 @@ Partial Class usrCntlUSTV
         Me.Panel3.Size = New System.Drawing.Size(1627, 77)
         Me.Panel3.TabIndex = 0
         '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(1092, 6)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(92, 39)
+        Me.Button2.TabIndex = 27
+        Me.Button2.Text = "St.-Nr. prüfen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'btnVorschau
+        '
+        Me.btnVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnVorschau.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVorschau.ForeColor = System.Drawing.Color.Black
+        Me.btnVorschau.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVorschau.Location = New System.Drawing.Point(1190, 6)
+        Me.btnVorschau.Name = "btnVorschau"
+        Me.btnVorschau.Size = New System.Drawing.Size(92, 39)
+        Me.btnVorschau.TabIndex = 26
+        Me.btnVorschau.Text = "Vorschau"
+        Me.btnVorschau.UseVisualStyleBackColor = True
+        '
         'btnMail
         '
         Me.btnMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -724,19 +776,6 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'btnVorschau
-        '
-        Me.btnVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnVorschau.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnVorschau.ForeColor = System.Drawing.Color.Black
-        Me.btnVorschau.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVorschau.Location = New System.Drawing.Point(1190, 6)
-        Me.btnVorschau.Name = "btnVorschau"
-        Me.btnVorschau.Size = New System.Drawing.Size(92, 39)
-        Me.btnVorschau.TabIndex = 26
-        Me.btnVorschau.Text = "Vorschau"
-        Me.btnVorschau.UseVisualStyleBackColor = True
-        '
         'usrCntlUSTV
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -798,4 +837,7 @@ Partial Class usrCntlUSTV
     Friend WithEvents txtOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label11 As Label
     Friend WithEvents btnVorschau As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents lblVZhint As Label
+    Friend WithEvents lblVZKunde As Label
 End Class

SDL/USTV/usrCntlUSTV.vb

@@ -23,6 +23,9 @@ Public Class usrCntlUSTV
             Me.kdNr = kdNr
             KdSearchBox1.KdNr = kdNr
             KdSearchBox1.Enabled = False
+            setInfo(kdNr)
+        Else
+            setInfo(KdSearchBox1.KdNr)
         End If
 
         btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
@@ -254,7 +257,7 @@ Public Class usrCntlUSTV
         Return whereStr
     End Function
 
-    Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub usrCntlUSTV_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' btnFilter.Left = Panel4.Width - btnFilter.Width
         KdSearchBox1.initKdBox(Me.FindForm)
         If kdNr > 0 Then
@@ -924,5 +927,74 @@ Public Class usrCntlUSTV
 
 
 
+    End Sub
+
+    Private Sub setInfo(kdnr As Integer)
+
+        If kdnr > 0 Then
+            Panel1.BackColor = Color.FromArgb(240, 245, 255)
+            Dim KUNDE As New cKunde(kdnr)
+            Dim KUNDE_ERW As New cKundenErweitert(kdnr)
+            If KUNDE.Abfertigungsverbot Then Panel1.BackColor = Color.IndianRed
+            If KUNDE_ERW.kde_AnmerkungVZ IsNot Nothing Then
+                lblVZhint.Text = KUNDE_ERW.kde_AnmerkungVZ
+            Else
+
+            End If
+            lblVZKunde.Visible = KUNDE_ERW.kde_VZ
+
+        Else
+
+            lblVZKunde.Visible = False
+            lblVZhint.Text = ""
+            Panel1.BackColor = Color.FromArgb(240, 245, 255)
+        End If
+
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim f As New frmDatumsabfrage("Bitte Prüfdatum eingeben", False)
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then
+
+            Dim pruefdatum As Date = CDate(f.Datum)
+
+            Dim sqlKunde = ""
+            If KdSearchBox1.KdNr > 0 Then
+                sqlKunde = " AND A.AdressenNr = " & KdSearchBox1.KdNr
+            End If
+
+
+            Dim sqlQery = "SELECT 
+                            A.LandKz, 
+                            A.AdressenNr, 
+                            A.Ordnungsbegriff, 
+                            L.LandKz, 
+                            S.StNrFürRückerstattungUSt, 
+                            S.StNrGültigkeitsdatum, 
+                            CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum, 
+                            CASE 
+                                WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 
+                                ELSE 0 
+                            END AS Gültig
+                        FROM 
+                            [Länderverzeichnis für die Außenhandelsstatistik] L
+                        INNER JOIN 
+                            (Adressen A 
+                            INNER JOIN Währungstabelle W ON A.LandKz = W.LandKz
+                            INNER JOIN tblSteuernummern S ON A.AdressenNr = S.AdressenNr) 
+                            ON L.LandNr = S.LandNr
+                        WHERE 
+                            S.StNrGültigkeitsdatum IS NOT NULL 
+                            AND W.MitgliedslandEU = 0 " & sqlKunde
+
+
+            Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")
+
+            cProgramFunctions.genExcelFromDT_NEW(dtVorschau,,,,,, True)
+
+        End If
+
     End Sub
 End Class

SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb

@@ -23,7 +23,6 @@ Partial Class ustCntlUSTV_AntragPosition
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.tabDok = New System.Windows.Forms.TabPage()
         Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -31,35 +30,27 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tabFABest = New System.Windows.Forms.TabPage()
         Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
-        Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
         Me.Label8 = New System.Windows.Forms.Label()
-        Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnBildAuf = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label10 = New System.Windows.Forms.Label()
-        Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label11 = New System.Windows.Forms.Label()
-        Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label13 = New System.Windows.Forms.Label()
-        Me.cboLeistungsgeber = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.lblAenderungsdatum = New System.Windows.Forms.Label()
         Me.lblSachbearbeiter = New System.Windows.Forms.Label()
-        Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.picSave = New System.Windows.Forms.PictureBox()
+        Me.btnLeistenderSave = New System.Windows.Forms.Button()
+        Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.pnlAdresse = New System.Windows.Forms.Panel()
         Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -71,19 +62,28 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.cboLeistungsgeber = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
+        Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.tabDok.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.tabVollmachten.SuspendLayout()
         Me.tabFABest.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.pnl.SuspendLayout()
-        CType(Me.picSave, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlAdresse.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.Panel3.SuspendLayout()
@@ -92,26 +92,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.TabPage1.SuspendLayout()
         Me.SuspendLayout()
         '
-        'scanLieferschein
-        '
-        Me.scanLieferschein._ARCHIV = True
-        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
-        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
-        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
-        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
-        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
-        Me.scanLieferschein._MULTI_FILES = True
-        Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
-        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.scanLieferschein.BackColor = System.Drawing.Color.White
-        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
-        Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
-        Me.scanLieferschein.Name = "scanLieferschein"
-        Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
-        Me.scanLieferschein.TabIndex = 2
-        Me.scanLieferschein.Visible = False
-        '
         'tabDok
         '
         Me.tabDok.Controls.Add(Me.scanSonstiges)
@@ -217,21 +197,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
         Me.scanUSTVFABest.TabIndex = 1
         '
-        'cbxAPI
-        '
-        Me.cbxAPI._date = Nothing
-        Me.cbxAPI._showdate = True
-        Me.cbxAPI._value = ""
-        Me.cbxAPI.AutoSize = True
-        Me.cbxAPI.Enabled = False
-        Me.cbxAPI.Location = New System.Drawing.Point(634, 193)
-        Me.cbxAPI.Name = "cbxAPI"
-        Me.cbxAPI.Size = New System.Drawing.Size(83, 17)
-        Me.cbxAPI.TabIndex = 17
-        Me.cbxAPI.Text = "Schnittstelle"
-        Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        Me.cbxAPI.UseVisualStyleBackColor = True
-        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -243,30 +208,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Label8.TabIndex = 0
         Me.Label8.Text = "Details"
         '
-        'txtRgDatum
-        '
-        Me.txtRgDatum._DateTimeOnly = False
-        Me.txtRgDatum._numbersOnly = False
-        Me.txtRgDatum._numbersOnlyKommastellen = ""
-        Me.txtRgDatum._numbersOnlyTrennzeichen = True
-        Me.txtRgDatum._Prozent = False
-        Me.txtRgDatum._ShortDateNew = False
-        Me.txtRgDatum._ShortDateOnly = False
-        Me.txtRgDatum._TimeOnly = False
-        Me.txtRgDatum._TimeOnly_Seconds = False
-        Me.txtRgDatum._value = ""
-        Me.txtRgDatum._Waehrung = False
-        Me.txtRgDatum._WaehrungZeichen = True
-        Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
-        Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
-        Me.txtRgDatum.MaxLength = 10
-        Me.txtRgDatum.MaxLineLength = -1
-        Me.txtRgDatum.MaxLines_Warning = ""
-        Me.txtRgDatum.MaxLines_Warning_Label = Nothing
-        Me.txtRgDatum.Name = "txtRgDatum"
-        Me.txtRgDatum.Size = New System.Drawing.Size(154, 20)
-        Me.txtRgDatum.TabIndex = 6
-        '
         'Label7
         '
         Me.Label7.AutoSize = True
@@ -287,29 +228,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Panel2.Size = New System.Drawing.Size(1300, 30)
         Me.Panel2.TabIndex = 0
         '
-        'txtRgNr
-        '
-        Me.txtRgNr._DateTimeOnly = False
-        Me.txtRgNr._numbersOnly = False
-        Me.txtRgNr._numbersOnlyKommastellen = ""
-        Me.txtRgNr._numbersOnlyTrennzeichen = True
-        Me.txtRgNr._Prozent = False
-        Me.txtRgNr._ShortDateNew = False
-        Me.txtRgNr._ShortDateOnly = False
-        Me.txtRgNr._TimeOnly = False
-        Me.txtRgNr._TimeOnly_Seconds = False
-        Me.txtRgNr._value = Nothing
-        Me.txtRgNr._Waehrung = False
-        Me.txtRgNr._WaehrungZeichen = True
-        Me.txtRgNr.Location = New System.Drawing.Point(177, 49)
-        Me.txtRgNr.MaxLength = 250
-        Me.txtRgNr.MaxLineLength = -1
-        Me.txtRgNr.MaxLines_Warning = ""
-        Me.txtRgNr.MaxLines_Warning_Label = Nothing
-        Me.txtRgNr.Name = "txtRgNr"
-        Me.txtRgNr.Size = New System.Drawing.Size(183, 20)
-        Me.txtRgNr.TabIndex = 7
-        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -356,29 +274,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
         Me.Button1.UseVisualStyleBackColor = True
         '
-        'txtLeistungsbezeichnung
-        '
-        Me.txtLeistungsbezeichnung._DateTimeOnly = False
-        Me.txtLeistungsbezeichnung._numbersOnly = False
-        Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
-        Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
-        Me.txtLeistungsbezeichnung._Prozent = False
-        Me.txtLeistungsbezeichnung._ShortDateNew = False
-        Me.txtLeistungsbezeichnung._ShortDateOnly = False
-        Me.txtLeistungsbezeichnung._TimeOnly = False
-        Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
-        Me.txtLeistungsbezeichnung._value = Nothing
-        Me.txtLeistungsbezeichnung._Waehrung = False
-        Me.txtLeistungsbezeichnung._WaehrungZeichen = True
-        Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
-        Me.txtLeistungsbezeichnung.MaxLength = 22
-        Me.txtLeistungsbezeichnung.MaxLineLength = -1
-        Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
-        Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
-        Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
-        Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
-        Me.txtLeistungsbezeichnung.TabIndex = 8
-        '
         'Label2
         '
         Me.Label2.AutoSize = True
@@ -419,30 +314,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Label10.TabIndex = 10
         Me.Label10.Text = "Rechnung"
         '
-        'txtUSTBetrag
-        '
-        Me.txtUSTBetrag._DateTimeOnly = False
-        Me.txtUSTBetrag._numbersOnly = False
-        Me.txtUSTBetrag._numbersOnlyKommastellen = ""
-        Me.txtUSTBetrag._numbersOnlyTrennzeichen = False
-        Me.txtUSTBetrag._Prozent = False
-        Me.txtUSTBetrag._ShortDateNew = False
-        Me.txtUSTBetrag._ShortDateOnly = False
-        Me.txtUSTBetrag._TimeOnly = False
-        Me.txtUSTBetrag._TimeOnly_Seconds = False
-        Me.txtUSTBetrag._value = ""
-        Me.txtUSTBetrag._Waehrung = False
-        Me.txtUSTBetrag._WaehrungZeichen = True
-        Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
-        Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
-        Me.txtUSTBetrag.MaxLength = 10
-        Me.txtUSTBetrag.MaxLineLength = -1
-        Me.txtUSTBetrag.MaxLines_Warning = ""
-        Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
-        Me.txtUSTBetrag.Name = "txtUSTBetrag"
-        Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
-        Me.txtUSTBetrag.TabIndex = 16
-        '
         'Label11
         '
         Me.Label11.AutoSize = True
@@ -453,30 +324,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Label11.TabIndex = 11
         Me.Label11.Text = "USt-Betrag:"
         '
-        'txtUmrechnungskurs
-        '
-        Me.txtUmrechnungskurs._DateTimeOnly = False
-        Me.txtUmrechnungskurs._numbersOnly = True
-        Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
-        Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
-        Me.txtUmrechnungskurs._Prozent = False
-        Me.txtUmrechnungskurs._ShortDateNew = False
-        Me.txtUmrechnungskurs._ShortDateOnly = False
-        Me.txtUmrechnungskurs._TimeOnly = False
-        Me.txtUmrechnungskurs._TimeOnly_Seconds = False
-        Me.txtUmrechnungskurs._value = ""
-        Me.txtUmrechnungskurs._Waehrung = False
-        Me.txtUmrechnungskurs._WaehrungZeichen = True
-        Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
-        Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
-        Me.txtUmrechnungskurs.MaxLength = 10
-        Me.txtUmrechnungskurs.MaxLineLength = -1
-        Me.txtUmrechnungskurs.MaxLines_Warning = ""
-        Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
-        Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
-        Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
-        Me.txtUmrechnungskurs.TabIndex = 17
-        '
         'Label12
         '
         Me.Label12.AutoSize = True
@@ -487,30 +334,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Label12.TabIndex = 12
         Me.Label12.Text = "Umrechnungskurs:"
         '
-        'txtUSTBetragEUR
-        '
-        Me.txtUSTBetragEUR._DateTimeOnly = False
-        Me.txtUSTBetragEUR._numbersOnly = False
-        Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
-        Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = False
-        Me.txtUSTBetragEUR._Prozent = False
-        Me.txtUSTBetragEUR._ShortDateNew = False
-        Me.txtUSTBetragEUR._ShortDateOnly = False
-        Me.txtUSTBetragEUR._TimeOnly = False
-        Me.txtUSTBetragEUR._TimeOnly_Seconds = False
-        Me.txtUSTBetragEUR._value = ""
-        Me.txtUSTBetragEUR._Waehrung = False
-        Me.txtUSTBetragEUR._WaehrungZeichen = True
-        Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
-        Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
-        Me.txtUSTBetragEUR.MaxLength = 10
-        Me.txtUSTBetragEUR.MaxLineLength = -1
-        Me.txtUSTBetragEUR.MaxLines_Warning = ""
-        Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
-        Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
-        Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
-        Me.txtUSTBetragEUR.TabIndex = 18
-        '
         'Label13
         '
         Me.Label13.AutoSize = True
@@ -521,20 +344,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Label13.TabIndex = 13
         Me.Label13.Text = "USt-Betrag EUR"
         '
-        'cboLeistungsgeber
-        '
-        Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
-        Me.cboLeistungsgeber._allowFreiText = True
-        Me.cboLeistungsgeber._value = ""
-        Me.cboLeistungsgeber.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
-        Me.cboLeistungsgeber.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboLeistungsgeber.DropDownWidth = 350
-        Me.cboLeistungsgeber.FormattingEnabled = True
-        Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 49)
-        Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
-        Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
-        Me.cboLeistungsgeber.TabIndex = 9
-        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -575,22 +384,11 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.lblSachbearbeiter.TabIndex = 20
         Me.lblSachbearbeiter.Text = "-"
         '
-        'cboSchnittstellennr
-        '
-        Me.cboSchnittstellennr._allowedValuesFreiText = Nothing
-        Me.cboSchnittstellennr._allowFreiText = False
-        Me.cboSchnittstellennr._value = ""
-        Me.cboSchnittstellennr.Enabled = False
-        Me.cboSchnittstellennr.FormattingEnabled = True
-        Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 191)
-        Me.cboSchnittstellennr.Name = "cboSchnittstellennr"
-        Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21)
-        Me.cboSchnittstellennr.TabIndex = 18
-        '
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.White
-        Me.pnl.Controls.Add(Me.picSave)
+        Me.pnl.Controls.Add(Me.btnLeistenderSave)
+        Me.pnl.Controls.Add(Me.sbLeistender)
         Me.pnl.Controls.Add(Me.pnlAdresse)
         Me.pnl.Controls.Add(Me.Label6)
         Me.pnl.Controls.Add(Me.cboSchnittstellennr)
@@ -621,16 +419,43 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.pnl.Size = New System.Drawing.Size(1300, 239)
         Me.pnl.TabIndex = 1
         '
-        'picSave
+        'btnLeistenderSave
         '
-        Me.picSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
+        Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save
-        Me.picSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picSave.Location = New System.Drawing.Point(886, 164)
+        Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.picSave.Name = "picSave"
+        Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162)
-        Me.picSave.Size = New System.Drawing.Size(26, 22)
+        Me.btnLeistenderSave.Name = "btnLeistenderSave"
-        Me.picSave.TabIndex = 34
+        Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24)
-        Me.picSave.TabStop = False
+        Me.btnLeistenderSave.TabIndex = 21
-        Me.picSave.Visible = False
+        Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnLeistenderSave.UseVisualStyleBackColor = True
+        Me.btnLeistenderSave.Visible = False
+        '
+        'sbLeistender
+        '
+        Me.sbLeistender._allowFreitext = True
+        Me.sbLeistender._AllowSetValue = False
+        Me.sbLeistender._allowSpaceAsSplitter = False
+        Me.sbLeistender._autoSizeGross = False
+        Me.sbLeistender._hideIfListEmpty = True
+        Me.sbLeistender._value = Nothing
+        Me.sbLeistender.conn_art = "FMZOLL"
+        Me.sbLeistender.dgvpos = "LEFT"
+        Me.sbLeistender.DISPLAY_PARAM = Nothing
+        Me.sbLeistender.INVISIBLE_COLUMNS = Nothing
+        Me.sbLeistender.key_visible = False
+        Me.sbLeistender.KEYPARAM = Nothing
+        Me.sbLeistender.Location = New System.Drawing.Point(630, 49)
+        Me.sbLeistender.Name = "sbLeistender"
+        Me.sbLeistender.searchActive = True
+        Me.sbLeistender.Size = New System.Drawing.Size(283, 20)
+        Me.sbLeistender.SQL_ORDER_BY = Nothing
+        Me.sbLeistender.SQL_SELECT = Nothing
+        Me.sbLeistender.SQL_WHERE = Nothing
+        Me.sbLeistender.SQL_WhereParamList = Nothing
+        Me.sbLeistender.TabIndex = 13
+        Me.sbLeistender.usrcntl = Nothing
         '
         'pnlAdresse
         '
@@ -648,7 +473,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.pnlAdresse.Location = New System.Drawing.Point(626, 76)
         Me.pnlAdresse.Name = "pnlAdresse"
         Me.pnlAdresse.Size = New System.Drawing.Size(287, 82)
-        Me.pnlAdresse.TabIndex = 33
+        Me.pnlAdresse.TabIndex = 14
         '
         'txtStrasse
         '
@@ -672,7 +497,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtStrasse.MaxLines_Warning_Label = Nothing
         Me.txtStrasse.Name = "txtStrasse"
         Me.txtStrasse.Size = New System.Drawing.Size(169, 20)
-        Me.txtStrasse.TabIndex = 10
+        Me.txtStrasse.TabIndex = 15
         '
         'txtUIDNr
         '
@@ -696,7 +521,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtUIDNr.MaxLines_Warning_Label = Nothing
         Me.txtUIDNr.Name = "txtUIDNr"
         Me.txtUIDNr.Size = New System.Drawing.Size(106, 20)
-        Me.txtUIDNr.TabIndex = 15
+        Me.txtUIDNr.TabIndex = 20
         '
         'Label14
         '
@@ -750,7 +575,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtLand.MaxLines_Warning_Label = Nothing
         Me.txtLand.Name = "txtLand"
         Me.txtLand.Size = New System.Drawing.Size(38, 20)
-        Me.txtLand.TabIndex = 14
+        Me.txtLand.TabIndex = 19
         '
         'txtPLZ
         '
@@ -774,7 +599,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtPLZ.MaxLines_Warning_Label = Nothing
         Me.txtPLZ.Name = "txtPLZ"
         Me.txtPLZ.Size = New System.Drawing.Size(59, 20)
-        Me.txtPLZ.TabIndex = 12
+        Me.txtPLZ.TabIndex = 17
         '
         'txtStrassenNr
         '
@@ -798,7 +623,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtStrassenNr.MaxLines_Warning_Label = Nothing
         Me.txtStrassenNr.Name = "txtStrassenNr"
         Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20)
-        Me.txtStrassenNr.TabIndex = 11
+        Me.txtStrassenNr.TabIndex = 16
         '
         'Label16
         '
@@ -832,7 +657,192 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtOrt.MaxLines_Warning_Label = Nothing
         Me.txtOrt.Name = "txtOrt"
         Me.txtOrt.Size = New System.Drawing.Size(154, 20)
-        Me.txtOrt.TabIndex = 13
+        Me.txtOrt.TabIndex = 18
+        '
+        'cboSchnittstellennr
+        '
+        Me.cboSchnittstellennr._allowedValuesFreiText = Nothing
+        Me.cboSchnittstellennr._allowFreiText = False
+        Me.cboSchnittstellennr._value = ""
+        Me.cboSchnittstellennr.Enabled = False
+        Me.cboSchnittstellennr.FormattingEnabled = True
+        Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 191)
+        Me.cboSchnittstellennr.Name = "cboSchnittstellennr"
+        Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21)
+        Me.cboSchnittstellennr.TabIndex = 18
+        '
+        'txtRgNr
+        '
+        Me.txtRgNr._DateTimeOnly = False
+        Me.txtRgNr._numbersOnly = False
+        Me.txtRgNr._numbersOnlyKommastellen = ""
+        Me.txtRgNr._numbersOnlyTrennzeichen = True
+        Me.txtRgNr._Prozent = False
+        Me.txtRgNr._ShortDateNew = False
+        Me.txtRgNr._ShortDateOnly = False
+        Me.txtRgNr._TimeOnly = False
+        Me.txtRgNr._TimeOnly_Seconds = False
+        Me.txtRgNr._value = Nothing
+        Me.txtRgNr._Waehrung = False
+        Me.txtRgNr._WaehrungZeichen = True
+        Me.txtRgNr.Location = New System.Drawing.Point(177, 49)
+        Me.txtRgNr.MaxLength = 250
+        Me.txtRgNr.MaxLineLength = -1
+        Me.txtRgNr.MaxLines_Warning = ""
+        Me.txtRgNr.MaxLines_Warning_Label = Nothing
+        Me.txtRgNr.Name = "txtRgNr"
+        Me.txtRgNr.Size = New System.Drawing.Size(183, 20)
+        Me.txtRgNr.TabIndex = 7
+        '
+        'txtRgDatum
+        '
+        Me.txtRgDatum._DateTimeOnly = False
+        Me.txtRgDatum._numbersOnly = False
+        Me.txtRgDatum._numbersOnlyKommastellen = ""
+        Me.txtRgDatum._numbersOnlyTrennzeichen = True
+        Me.txtRgDatum._Prozent = False
+        Me.txtRgDatum._ShortDateNew = False
+        Me.txtRgDatum._ShortDateOnly = False
+        Me.txtRgDatum._TimeOnly = False
+        Me.txtRgDatum._TimeOnly_Seconds = False
+        Me.txtRgDatum._value = ""
+        Me.txtRgDatum._Waehrung = False
+        Me.txtRgDatum._WaehrungZeichen = True
+        Me.txtRgDatum.ForeColor = System.Drawing.Color.Red
+        Me.txtRgDatum.Location = New System.Drawing.Point(17, 49)
+        Me.txtRgDatum.MaxLength = 10
+        Me.txtRgDatum.MaxLineLength = -1
+        Me.txtRgDatum.MaxLines_Warning = ""
+        Me.txtRgDatum.MaxLines_Warning_Label = Nothing
+        Me.txtRgDatum.Name = "txtRgDatum"
+        Me.txtRgDatum.Size = New System.Drawing.Size(154, 20)
+        Me.txtRgDatum.TabIndex = 6
+        '
+        'cbxAPI
+        '
+        Me.cbxAPI._date = Nothing
+        Me.cbxAPI._showdate = True
+        Me.cbxAPI._value = ""
+        Me.cbxAPI.AutoSize = True
+        Me.cbxAPI.Enabled = False
+        Me.cbxAPI.Location = New System.Drawing.Point(634, 193)
+        Me.cbxAPI.Name = "cbxAPI"
+        Me.cbxAPI.Size = New System.Drawing.Size(83, 17)
+        Me.cbxAPI.TabIndex = 17
+        Me.cbxAPI.Text = "Schnittstelle"
+        Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.cbxAPI.UseVisualStyleBackColor = True
+        '
+        'cboLeistungsgeber
+        '
+        Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
+        Me.cboLeistungsgeber._allowFreiText = True
+        Me.cboLeistungsgeber._value = ""
+        Me.cboLeistungsgeber.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
+        Me.cboLeistungsgeber.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboLeistungsgeber.DropDownWidth = 350
+        Me.cboLeistungsgeber.Enabled = False
+        Me.cboLeistungsgeber.FormattingEnabled = True
+        Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 7)
+        Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
+        Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
+        Me.cboLeistungsgeber.TabIndex = 9
+        Me.cboLeistungsgeber.Visible = False
+        '
+        'txtLeistungsbezeichnung
+        '
+        Me.txtLeistungsbezeichnung._DateTimeOnly = False
+        Me.txtLeistungsbezeichnung._numbersOnly = False
+        Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
+        Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
+        Me.txtLeistungsbezeichnung._Prozent = False
+        Me.txtLeistungsbezeichnung._ShortDateNew = False
+        Me.txtLeistungsbezeichnung._ShortDateOnly = False
+        Me.txtLeistungsbezeichnung._TimeOnly = False
+        Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
+        Me.txtLeistungsbezeichnung._value = Nothing
+        Me.txtLeistungsbezeichnung._Waehrung = False
+        Me.txtLeistungsbezeichnung._WaehrungZeichen = True
+        Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
+        Me.txtLeistungsbezeichnung.MaxLength = 22
+        Me.txtLeistungsbezeichnung.MaxLineLength = -1
+        Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
+        Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
+        Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
+        Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
+        Me.txtLeistungsbezeichnung.TabIndex = 8
+        '
+        'txtUSTBetragEUR
+        '
+        Me.txtUSTBetragEUR._DateTimeOnly = False
+        Me.txtUSTBetragEUR._numbersOnly = False
+        Me.txtUSTBetragEUR._numbersOnlyKommastellen = ""
+        Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = False
+        Me.txtUSTBetragEUR._Prozent = False
+        Me.txtUSTBetragEUR._ShortDateNew = False
+        Me.txtUSTBetragEUR._ShortDateOnly = False
+        Me.txtUSTBetragEUR._TimeOnly = False
+        Me.txtUSTBetragEUR._TimeOnly_Seconds = False
+        Me.txtUSTBetragEUR._value = ""
+        Me.txtUSTBetragEUR._Waehrung = False
+        Me.txtUSTBetragEUR._WaehrungZeichen = True
+        Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
+        Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
+        Me.txtUSTBetragEUR.MaxLength = 10
+        Me.txtUSTBetragEUR.MaxLineLength = -1
+        Me.txtUSTBetragEUR.MaxLines_Warning = ""
+        Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
+        Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
+        Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
+        Me.txtUSTBetragEUR.TabIndex = 11
+        '
+        'txtUmrechnungskurs
+        '
+        Me.txtUmrechnungskurs._DateTimeOnly = False
+        Me.txtUmrechnungskurs._numbersOnly = True
+        Me.txtUmrechnungskurs._numbersOnlyKommastellen = ""
+        Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True
+        Me.txtUmrechnungskurs._Prozent = False
+        Me.txtUmrechnungskurs._ShortDateNew = False
+        Me.txtUmrechnungskurs._ShortDateOnly = False
+        Me.txtUmrechnungskurs._TimeOnly = False
+        Me.txtUmrechnungskurs._TimeOnly_Seconds = False
+        Me.txtUmrechnungskurs._value = ""
+        Me.txtUmrechnungskurs._Waehrung = False
+        Me.txtUmrechnungskurs._WaehrungZeichen = True
+        Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
+        Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
+        Me.txtUmrechnungskurs.MaxLength = 10
+        Me.txtUmrechnungskurs.MaxLineLength = -1
+        Me.txtUmrechnungskurs.MaxLines_Warning = ""
+        Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
+        Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
+        Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
+        Me.txtUmrechnungskurs.TabIndex = 10
+        '
+        'txtUSTBetrag
+        '
+        Me.txtUSTBetrag._DateTimeOnly = False
+        Me.txtUSTBetrag._numbersOnly = False
+        Me.txtUSTBetrag._numbersOnlyKommastellen = ""
+        Me.txtUSTBetrag._numbersOnlyTrennzeichen = False
+        Me.txtUSTBetrag._Prozent = False
+        Me.txtUSTBetrag._ShortDateNew = False
+        Me.txtUSTBetrag._ShortDateOnly = False
+        Me.txtUSTBetrag._TimeOnly = False
+        Me.txtUSTBetrag._TimeOnly_Seconds = False
+        Me.txtUSTBetrag._value = ""
+        Me.txtUSTBetrag._Waehrung = False
+        Me.txtUSTBetrag._WaehrungZeichen = True
+        Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
+        Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
+        Me.txtUSTBetrag.MaxLength = 10
+        Me.txtUSTBetrag.MaxLineLength = -1
+        Me.txtUSTBetrag.MaxLines_Warning = ""
+        Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
+        Me.txtUSTBetrag.Name = "txtUSTBetrag"
+        Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
+        Me.txtUSTBetrag.TabIndex = 9
         '
         'Panel1
         '
@@ -904,6 +914,26 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207)
         Me.UsrcntlPDFScanList1.TabIndex = 0
         '
+        'scanLieferschein
+        '
+        Me.scanLieferschein._ARCHIV = True
+        Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanLieferschein._DATENSERVER_ORDNER = "MDM"
+        Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing
+        Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing
+        Me.scanLieferschein._MULTI_FILES = True
+        Me.scanLieferschein._TEXT_PDF = "XX Vollmacht"
+        Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanLieferschein.BackColor = System.Drawing.Color.White
+        Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanLieferschein.Location = New System.Drawing.Point(146, 3)
+        Me.scanLieferschein.Name = "scanLieferschein"
+        Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
+        Me.scanLieferschein.TabIndex = 2
+        Me.scanLieferschein.Visible = False
+        '
         'ustCntlUSTV_AntragPosition
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -922,7 +952,6 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.Panel2.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
-        CType(Me.picSave, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlAdresse.ResumeLayout(False)
         Me.pnlAdresse.PerformLayout()
         Me.Panel1.ResumeLayout(False)
@@ -986,5 +1015,6 @@ Partial Class ustCntlUSTV_AntragPosition
     Friend WithEvents Label17 As Label
     Friend WithEvents txtLand As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents pnlAdresse As Panel
-    Friend WithEvents picSave As PictureBox
+    Friend WithEvents sbLeistender As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents btnLeistenderSave As Button
 End Class

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -23,7 +24,7 @@ Public Class ustCntlUSTV_AntragPosition
     Sub reset()
         txtRgDatum._value = ""
         txtRgNr._value = ""
-        picSave.Visible = False
+        btnLeistenderSave.Visible = False
         txtUmrechnungskurs._value = 1
         txtLeistungsbezeichnung._value = ""
         txtUmrechnungskurs._value = 1
@@ -37,10 +38,10 @@ Public Class ustCntlUSTV_AntragPosition
 
     Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
 
-        initSchnittstellenNR()
+        initSchnittstellenNr()
 
         gridAktiv = False
-        picSave.Visible = False
+        btnLeistenderSave.Visible = False
         Me.Antrag_LandKz = Antrag_LandKz
         Me.UStV_POS = UStV_POS
         Me.kdnr = kdnr
@@ -56,11 +57,8 @@ Public Class ustCntlUSTV_AntragPosition
         txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
         txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
 
-
+        sbLeistender.Text = UStV_Leitender.UStV_Leistender
-        If UStV_Leitender IsNot Nothing Then
+        loadChangedDSToPanel(UStV_Leitender, True)
-            UStV_Leist = UStV_Leitender
-            loadChangedDSToPanel(Not UStV_Leitender.UstV_Leistender_Adresse, UStV_Leitender)
-        End If
 
         Dim da_id = -1
         Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
@@ -75,7 +73,7 @@ Public Class ustCntlUSTV_AntragPosition
         scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
         scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
 
-
+        sbLeistender.initSearchBox(Me.FindForm, "[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt  FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, "UstV_aktiv = 1", "UStV_Leistender", "UStV_Leistender", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender"})
 
         gridAktiv = True
     End Sub
@@ -114,8 +112,12 @@ Public Class ustCntlUSTV_AntragPosition
         Else
             save = False
         End If
-        If txtUmrechnungskurs._value <> "" Then
+        If txtUmrechnungskurs.Text <> "" And txtUmrechnungskurs._value <> "" Then
-            UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
+            If txtUmrechnungskurs.Text <> "" Then
+                UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
+            ElseIf txtUmrechnungskurs._value <> "" Then
+                UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
+            End If
         Else
             save = False
         End If
@@ -125,6 +127,8 @@ Public Class ustCntlUSTV_AntragPosition
         UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
 
 
+
+
     End Sub
 
     Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -165,8 +169,8 @@ Public Class ustCntlUSTV_AntragPosition
             'End If
 
             If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
-                UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
+                'UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
-                values_changed()
+                'values_changed()
 
             Else
                 txtChanged = True
@@ -178,7 +182,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
+    Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
 
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
 
@@ -199,22 +203,33 @@ Public Class ustCntlUSTV_AntragPosition
                 '    'values_changed()
                 'End If
 
-            End If
+            ElseIf sender Is sbLeistender Then
-
+                If e.KeyValue = 9 Then
-
-
-            If e.KeyValue = 9 Then
-
                     e.SuppressKeyPress = True
-                    If txtChanged Then
+                    If UStV_Leist.hasEntry Then
+                        UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
                         values_changed()
-                        txtChanged = False
+                        'UStV_POS.SAVE()
+                        'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
                     End If
 
-
                 End If
 
+
             End If
+            If e.KeyValue = 9 Then 'SHIFT
+                e.SuppressKeyPress = True
+                If txtChanged Then
+                    values_changed()
+                    txtChanged = False
+                End If
+
+
+            End If
+
+        End If
+
+
 
     End Sub
 
@@ -227,58 +242,115 @@ Public Class ustCntlUSTV_AntragPosition
     End Sub
 
 
-    Private Sub loadChangedDSToPanel(enablePanel As Boolean, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
+    Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
-        pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
+
-        'cboLeistungsgeber._value = If(UStV_Leitender.UStV_Leistender, "")
+        UStV_Leist = UStV_Leitender
-        txtStrasse.Text = If(UStV_Leitender.UstV_Leistender_Strasse, "")
+
-        txtStrassenNr.Text = If(UStV_Leitender.UstV_Leistender_StrasseNr, "")
+        'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
-        txtPLZ.Text = If(UStV_Leitender.UstV_Leistender_PLZ, "")
+
-        txtOrt.Text = If(UStV_Leitender.UstV_Leistender_Stadt, "")
+        pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
-        txtLand.Text = If(UStV_Leitender.UstV_Leistender_Land, "")
+        txtStrasse.Text = If(UStV_Leist.UstV_Leistender_Strasse, "")
-        txtUIDNr.Text = If(UStV_Leitender.UstV_Leistender_UstNr, "")
+        txtStrassenNr.Text = If(UStV_Leist.UstV_Leistender_StrasseNr, "")
+        txtPLZ.Text = If(UStV_Leist.UstV_Leistender_PLZ, "")
+        txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
+        txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
+        txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
+
+        btnLeistenderSave.Visible = True
+
+        If Not initial Then
+            'Listener für Änderungen im Detail-Panel
+            For Each c As Control In pnlAdresse.Controls
+                If TypeOf (c) Is TextBox Then
+                    AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
+                End If
+                If TypeOf (c) Is MyComboBox Then
+                    AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
+                End If
+            Next
+        Else
+
+            btnLeistenderSave.Visible = False
+        End If
 
-        'Listener für Änderungen im Detail-Panel
-        For Each c As Control In pnlAdresse.Controls
-            If TypeOf (c) Is TextBox Then
-                AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
-            End If
-            If TypeOf (c) Is MyComboBox Then
-                AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
-            End If
-        Next
     End Sub
 
 
     Private Sub SomethingChanged(sender As Object, e As EventArgs)
-
+        btnLeistenderSave.Visible = True
-        picSave.Visible = True
     End Sub
 
-    Private Sub picSave_Click(sender As Object, e As EventArgs) Handles picSave.Click
+    Private Sub picSave_Click(sender As Object, e As EventArgs) Handles btnLeistenderSave.Click
-        If UStV_Leist Is Nothing Then Exit Sub
 
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
             MsgBox("keine Berechtigung!")
             Exit Sub
         End If
 
-        If UStV_Leist.UstV_Leistender_Adresse Then
+        Dim leistNew = sbLeistender.Text
-            If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
+
-                Exit Sub
+        UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
+
+        If Not UStV_Leist.hasEntry Then
+            If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
+
+                UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
+                UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
+                UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
+                UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
+                UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
+                UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
+
+                If UStV_Leist.SAVE() Then
+
+                    btnLeistenderSave.Visible = False
+                    UStV_POS.UStVPo_Leistender = UStV_Leist
+                    'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
+                    values_changed()
+                End If
+            End If
+
+        Else
+
+            Dim adresseChanged As Boolean = False
+
+            If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
+            If UStV_Leist.UstV_Leistender_StrasseNr <> If(txtStrassenNr.Text, "") Then adresseChanged = True
+            If UStV_Leist.UstV_Leistender_PLZ <> If(txtPLZ.Text, "") Then adresseChanged = True
+            If UStV_Leist.UstV_Leistender_Stadt <> If(txtOrt.Text, "") Then adresseChanged = True
+            If UStV_Leist.UstV_Leistender_Land <> If(txtLand.Text, "") Then adresseChanged = True
+            If UStV_Leist.UstV_Leistender_UstNr <> If(txtUIDNr.Text, "") Then adresseChanged = True
+
+
+            UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
+            UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
+            UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
+            UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
+            UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
+            UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
+            UStV_Leist.UstV_Leistender_Adresse = True
+
+            If UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then
+                If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
+
+                    btnLeistenderSave.Visible = False
+                    UStV_POS.UStVPo_Leistender = UStV_Leist
+                    'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
+                    values_changed()
+                    Exit Sub
+                End If
+            End If
+
+            If UStV_Leist.SAVE() Then
+
+                btnLeistenderSave.Visible = False
+                UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
+                'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
+                values_changed()
+
             End If
         End If
 
-        UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
-        UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
-        UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
-        UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
-        UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
-        UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
-        UStV_Leist.UstV_Leistender_Adresse = True
-        If UStV_Leist.SAVE() Then
-            picSave.Visible = False
-            RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
-        End If
 
     End Sub
 
@@ -293,7 +365,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Private Sub initSchnittstellenNR()
+    Private Sub initSchnittstellenNr()
 
         If cboSchnittstellennr.Items.Count = 0 Then
 
@@ -312,5 +384,15 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
+    Private Sub sbLeistender_VALUE_CHANGED() Handles sbLeistender.VALUE_CHANGED
+
+        If sbLeistender._value IsNot Nothing AndAlso sbLeistender._value <> "" Then
+            UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender._value)
+            loadChangedDSToPanel(UStV_Leist)
+        End If
+
+
+
+    End Sub
 
 End Class

SDL/kunden/frmKundenblatt.Designer.vb

@@ -45,6 +45,7 @@ Partial Class frmKundenblatt
         Me.txtInfotext = New System.Windows.Forms.Label()
         Me.tbFirmendaten = New System.Windows.Forms.TabPage()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
         Me.tbcntrMain = New System.Windows.Forms.TabControl()
         Me.tbAllgemein = New System.Windows.Forms.TabPage()
         Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
@@ -128,8 +129,10 @@ Partial Class frmKundenblatt
         Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
         Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
         Me.tbSDLKarten = New System.Windows.Forms.TabPage()
+        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
         Me.tbLKW = New System.Windows.Forms.TabPage()
         Me.pnlLKWRight = New System.Windows.Forms.Panel()
+        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
         Me.pnlLKW = New System.Windows.Forms.Panel()
         Me.dgvLKW = New System.Windows.Forms.DataGridView()
         Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -159,7 +162,9 @@ Partial Class frmKundenblatt
         Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
+        Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
         Me.tbOfferte = New System.Windows.Forms.TabPage()
+        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
         Me.tbUSTV = New System.Windows.Forms.TabPage()
         Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
         Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -170,6 +175,7 @@ Partial Class frmKundenblatt
         Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
+        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -195,12 +201,6 @@ Partial Class frmKundenblatt
         Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
         Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
-        Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
-        Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
-        Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
-        Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
-        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
-        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
         Me.pnlInfo.SuspendLayout()
         Me.tbFirmendaten.SuspendLayout()
         Me.Panel4.SuspendLayout()
@@ -277,7 +277,7 @@ Partial Class frmKundenblatt
         Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
         Me.tbFirmendaten.Name = "tbFirmendaten"
         Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 1067)
+        Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1067)
         Me.tbFirmendaten.TabIndex = 3
         Me.tbFirmendaten.Text = "Firmendaten"
         '
@@ -287,9 +287,19 @@ Partial Class frmKundenblatt
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel4.Location = New System.Drawing.Point(3, 3)
         Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1624, 1061)
+        Me.Panel4.Size = New System.Drawing.Size(1638, 1061)
         Me.Panel4.TabIndex = 0
         '
+        'UsrcntlKundeBearbeitenFull1
+        '
+        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
+        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
+        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1061)
+        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
+        '
         'tbcntrMain
         '
         Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -346,7 +356,7 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1084)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1067)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
@@ -456,7 +466,7 @@ Partial Class frmKundenblatt
         Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOffenePosten.RowHeadersVisible = False
         Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 485)
+        Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 468)
         Me.dgvOffenePosten.TabIndex = 175
         '
         'btnOP
@@ -796,7 +806,7 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1040)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1023)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -850,7 +860,7 @@ Partial Class frmKundenblatt
         Me.tbZoll.Location = New System.Drawing.Point(4, 25)
         Me.tbZoll.Name = "tbZoll"
         Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbZoll.Size = New System.Drawing.Size(1630, 1067)
+        Me.tbZoll.Size = New System.Drawing.Size(1644, 1067)
         Me.tbZoll.TabIndex = 9
         Me.tbZoll.Text = "ZOLL"
         Me.tbZoll.UseVisualStyleBackColor = True
@@ -862,7 +872,7 @@ Partial Class frmKundenblatt
         Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
         Me.tbcntrZOLL.Name = "tbcntrZOLL"
         Me.tbcntrZOLL.SelectedIndex = 0
-        Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 1061)
+        Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1061)
         Me.tbcntrZOLL.TabIndex = 0
         '
         'tabZoll_Artikel
@@ -870,7 +880,7 @@ Partial Class frmKundenblatt
         Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
         Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
         Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
-        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 1035)
+        Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1035)
         Me.tabZoll_Artikel.TabIndex = 1
         Me.tabZoll_Artikel.Text = "Artikel"
         Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -912,7 +922,7 @@ Partial Class frmKundenblatt
         Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
         Me.tbSDL.Name = "tbSDL"
         Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDL.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbSDL.Size = New System.Drawing.Size(1630, 1035)
         Me.tbSDL.TabIndex = 5
         Me.tbSDL.Text = "SDL-Leistungen"
         Me.tbSDL.UseVisualStyleBackColor = True
@@ -954,7 +964,7 @@ Partial Class frmKundenblatt
         DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 856)
+        Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 839)
         Me.dgvSDLLeistungenFull.TabIndex = 5
         '
         'Panel6
@@ -1059,7 +1069,7 @@ Partial Class frmKundenblatt
         Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
         Me.Panel5.Controls.Add(Me.rtbVermerke)
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(3, 906)
+        Me.Panel5.Location = New System.Drawing.Point(3, 889)
         Me.Panel5.Name = "Panel5"
         Me.Panel5.Size = New System.Drawing.Size(1624, 143)
         Me.Panel5.TabIndex = 177
@@ -1442,11 +1452,21 @@ Partial Class frmKundenblatt
         Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
         Me.tbSDLKarten.Name = "tbSDLKarten"
         Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
         Me.tbSDLKarten.TabIndex = 7
         Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
         Me.tbSDLKarten.UseVisualStyleBackColor = True
         '
+        'usrcntlKarten
+        '
+        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
+        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
+        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.usrcntlKarten.Name = "usrcntlKarten"
+        Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
+        Me.usrcntlKarten.TabIndex = 0
+        '
         'tbLKW
         '
         Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1454,7 +1474,7 @@ Partial Class frmKundenblatt
         Me.tbLKW.Location = New System.Drawing.Point(4, 22)
         Me.tbLKW.Name = "tbLKW"
         Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbLKW.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbLKW.Size = New System.Drawing.Size(178, 39)
         Me.tbLKW.TabIndex = 4
         Me.tbLKW.Text = "LKWs"
         Me.tbLKW.UseVisualStyleBackColor = True
@@ -1466,9 +1486,22 @@ Partial Class frmKundenblatt
         Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
         Me.pnlLKWRight.Name = "pnlLKWRight"
         Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1046)
+        Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
         Me.pnlLKWRight.TabIndex = 2
         '
+        'UsrCntlLKW1
+        '
+        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
+        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
+        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
+        Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
+        Me.UsrCntlLKW1.TabIndex = 0
+        '
         'pnlLKW
         '
         Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1477,7 +1510,7 @@ Partial Class frmKundenblatt
         Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
         Me.pnlLKW.Name = "pnlLKW"
-        Me.pnlLKW.Size = New System.Drawing.Size(306, 1046)
+        Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
         Me.pnlLKW.TabIndex = 3
         '
         'dgvLKW
@@ -1518,7 +1551,7 @@ Partial Class frmKundenblatt
         Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvLKW.RowHeadersVisible = False
         Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvLKW.Size = New System.Drawing.Size(306, 872)
+        Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
         Me.dgvLKW.TabIndex = 2
         '
         'pnlLKWBottom
@@ -1530,7 +1563,7 @@ Partial Class frmKundenblatt
         Me.pnlLKWBottom.Controls.Add(Me.Button13)
         Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
         Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 934)
+        Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
         Me.pnlLKWBottom.Name = "pnlLKWBottom"
         Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
         Me.pnlLKWBottom.TabIndex = 3
@@ -1671,7 +1704,7 @@ Partial Class frmKundenblatt
         Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
         Me.tbVERAGCard.Name = "tbVERAGCard"
         Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
         Me.tbVERAGCard.TabIndex = 6
         Me.tbVERAGCard.Text = "VERAG Card"
         Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1683,7 +1716,7 @@ Partial Class frmKundenblatt
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel3.Location = New System.Drawing.Point(3, 3)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(1624, 1046)
+        Me.Panel3.Size = New System.Drawing.Size(172, 33)
         Me.Panel3.TabIndex = 0
         '
         'tbDokumente
@@ -1701,7 +1734,7 @@ Partial Class frmKundenblatt
         Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
         Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbDokumente.Name = "tbDokumente"
-        Me.tbDokumente.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
         Me.tbDokumente.TabIndex = 8
         Me.tbDokumente.Text = "Dokumente"
         Me.tbDokumente.UseVisualStyleBackColor = True
@@ -1899,28 +1932,47 @@ Partial Class frmKundenblatt
         Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
         Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
         Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1052)
+        Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
         Me.tbBesuchsberichte.TabIndex = 9
         Me.tbBesuchsberichte.Text = "Besuchsberichte"
         Me.tbBesuchsberichte.UseVisualStyleBackColor = True
         '
+        'tbFremdrechnungen
+        '
+        Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
+        Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
+        Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
+        Me.tbFremdrechnungen.TabIndex = 10
+        Me.tbFremdrechnungen.Text = "Fremdrechnungen"
+        Me.tbFremdrechnungen.UseVisualStyleBackColor = True
+        '
         'tbOfferte
         '
         Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1)
         Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
         Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
         Me.tbOfferte.Name = "tbOfferte"
-        Me.tbOfferte.Size = New System.Drawing.Size(1630, 1067)
+        Me.tbOfferte.Size = New System.Drawing.Size(1644, 1067)
         Me.tbOfferte.TabIndex = 11
         Me.tbOfferte.Text = "Offerte"
         Me.tbOfferte.UseVisualStyleBackColor = True
         '
+        'UsrCntlOfferte1
+        '
+        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
+        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
+        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1067)
+        Me.UsrCntlOfferte1.TabIndex = 0
+        '
         'tbUSTV
         '
         Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
         Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
         Me.tbUSTV.Name = "tbUSTV"
-        Me.tbUSTV.Size = New System.Drawing.Size(1630, 1067)
+        Me.tbUSTV.Size = New System.Drawing.Size(1644, 1067)
         Me.tbUSTV.TabIndex = 12
         Me.tbUSTV.Text = "USTV"
         Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1934,7 +1986,7 @@ Partial Class frmKundenblatt
         Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrUSTV.Name = "tbcntrUSTV"
         Me.tbcntrUSTV.SelectedIndex = 0
-        Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 1067)
+        Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1067)
         Me.tbcntrUSTV.TabIndex = 1
         '
         'tbUSTVDokumente
@@ -1947,7 +1999,7 @@ Partial Class frmKundenblatt
         Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
         Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
-        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 1041)
+        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1041)
         Me.tbUSTVDokumente.TabIndex = 8
         Me.tbUSTVDokumente.Text = "Dokumente"
         Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2045,11 +2097,19 @@ Partial Class frmKundenblatt
         Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
         Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 1041)
+        Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
         Me.tbUSTVAntrage.TabIndex = 9
         Me.tbUSTVAntrage.Text = "USTV-Anträge"
         Me.tbUSTVAntrage.UseVisualStyleBackColor = True
         '
+        'UsrCntlUSTV
+        '
+        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
+        Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
+        Me.UsrCntlUSTV.TabIndex = 0
+        '
         'cntxtExcel
         '
         Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2192,6 +2252,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2325,66 +2386,6 @@ Partial Class frmKundenblatt
         Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
         Me.tbiVERAGCard.Text = "VERAG Card"
         '
-        'tbFremdrechnungen
-        '
-        Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
-        Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
-        Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1035)
-        Me.tbFremdrechnungen.TabIndex = 10
-        Me.tbFremdrechnungen.Text = "Fremdrechnungen"
-        Me.tbFremdrechnungen.UseVisualStyleBackColor = True
-        '
-        'UsrcntlKundeBearbeitenFull1
-        '
-        Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
-        Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
-        Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 1061)
-        Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
-        '
-        'usrcntlKarten
-        '
-        Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
-        Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
-        Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.usrcntlKarten.Name = "usrcntlKarten"
-        Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1046)
-        Me.usrcntlKarten.TabIndex = 0
-        '
-        'UsrCntlLKW1
-        '
-        Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
-        Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
-        Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
-        Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000)
-        Me.UsrCntlLKW1.TabIndex = 0
-        '
-        'UsrCntlOfferte1
-        '
-        Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
-        Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
-        Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 1067)
-        Me.UsrCntlOfferte1.TabIndex = 0
-        '
-        'UsrCntlUSTV
-        '
-        Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
-        Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 1035)
-        Me.UsrCntlUSTV.TabIndex = 0
-        '
         'frmKundenblatt
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/kunden/frmKundenblatt.vb

@@ -2017,5 +2017,7 @@ Public Class frmKundenblatt
         Dim f As New frmGoMautBoxen_Bestellung(KUNDE, ADRESSE, KUNDE_ERW)
         f.ShowDialog()
     End Sub
+
+
 End Class
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1,13 +1,4 @@
-Imports System.ComponentModel
+Public Class usrcntlKundeBearbeitenFull
-Imports System.Windows.Documents
-Imports com.sun.org.apache.bcel.internal.generic
-Imports com.sun.tools.javac
-Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports java.rmi.server
-Imports org.apache.commons.lang3.exception
-Imports VERAG_PROG_ALLGEMEIN
-
-Public Class usrcntlKundeBearbeitenFull
 
     Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
     Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
@@ -65,7 +56,9 @@ Public Class usrcntlKundeBearbeitenFull
         FISKAL = New cFiskal_Daten(kdnr)
         KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
 
-        isVerag360 = _isVerag360
+        If Not isVerag360 Then isVerag360 = _isVerag360
+
+        pnlverag360.Visible = isVerag360
 
         bankverbindungBearbeiten = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Bankverbindung_bearbeiten", "SDL")
 
@@ -76,15 +69,6 @@ Public Class usrcntlKundeBearbeitenFull
                 cbxFiBuLG.Visible = True
         End Select
 
-
-
-        'txtEORI.Visible = Not isVerag360
-        'txtEORINL.Visible = Not isVerag360
-        'lblEORI.Visible = Not isVerag360
-        'txtHandelsregisterNr.Visible = isVerag360
-        'lblHandelregisterNr.Visible = isVerag360
-
-
         If ADRESSE.AdressenNr <= 0 Then
 
             KUNDE_ERW.kde_BesonderheitenNeu = 1
@@ -111,6 +95,9 @@ Public Class usrcntlKundeBearbeitenFull
         btnKKhinzufuegen.Enabled = isVerag360
         Button9.Enabled = isVerag360
         cbxkeineMWSt.Visible = isVerag360
+        cbxVorauszahlung.Visible = isVerag360
+        cbxAbf_Vorkasse.Visible = Not isVerag360
+
 
         usrCntlAufschubkonten.initMe(kdnr)
 
@@ -214,7 +201,8 @@ Public Class usrcntlKundeBearbeitenFull
         cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "")
         txtGruendungsDatum.Text = loadValue(KUNDE_ERW.kde_GruendungsDatum, "")
         txtHandelsregisterNr.Text = loadValue(KUNDE_ERW.kde_HRNr, "")
-
+        cbxVorauszahlung.Checked = loadValue(KUNDE_ERW.kde_VZ, False)
+        txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
 
         txtEORI.Text = If(KUNDE.EORITIN, "")
         txtEORINL.Text = If(KUNDE.EORITIN_NL, "")
@@ -251,6 +239,18 @@ Public Class usrcntlKundeBearbeitenFull
         End Select
 
 
+
+        ' ----- MWST-Abrechnnung -----
+        rbJ.Checked = False
+        rbHJ.Checked = False
+        rbQ.Checked = False
+        Select Case KUNDE_ERW.kde_MWStAbrechnung
+            Case "Q" : rbQ.Checked = True
+            Case "H" : rbHJ.Checked = True
+            Case "J" : rbJ.Checked = True
+        End Select
+
+
         ' ----- Versicherung -----
         txtVers_HermesRefNr.Text = loadValue(KUNDE.Referenznummer, "")
         txtVers_Versicherungssumme._value = loadValue(KUNDE.Versicherungssumme, "")
@@ -617,6 +617,8 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital._value)
         KUNDE_ERW.kde_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value)
         KUNDE_ERW.kde_HRNr = isLeerNothing(txtHandelsregisterNr.Text)
+        KUNDE_ERW.kde_VZ = cbxVorauszahlung.Checked
+        KUNDE_ERW.kde_AnmerkungVZ = txtVorauszahlung.Text
 
         If isLeerNothing(txtGruendungsDatum.Text) IsNot Nothing AndAlso IsDate(txtGruendungsDatum.Text) Then
             KUNDE_ERW.kde_GruendungsDatum = CDate(txtGruendungsDatum.Text)
@@ -650,6 +652,14 @@ Public Class usrcntlKundeBearbeitenFull
         If RadioButton7.Checked = True Then KUNDE.Avis = 3
 
 
+
+        ' ----- MWST-Abrechnung -----
+        KUNDE_ERW.kde_MWStAbrechnung = "Q"
+        If rbJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "J"
+        If rbHJ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "H"
+        If rbQ.Checked = True Then KUNDE_ERW.kde_MWStAbrechnung = "Q"
+
+
         ' ----- Versicherung -----
         KUNDE.Referenznummer = isLeerNothing(txtVers_HermesRefNr.Text)
         'MsgBox(txtVers_Versicherungssumme._value)
@@ -840,6 +850,9 @@ Public Class usrcntlKundeBearbeitenFull
                 End If
             End If
             initBesonderheitenNEU()
+
+            pnlverag360.Visible = isVerag360
+
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try

SDL/mdm/frmDatumsabfrage.vb

@@ -2,6 +2,7 @@
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmDatumsabfrage
+    Dim onlypastDate As Boolean = True
 
     Sub New()
 
@@ -9,11 +10,21 @@ Public Class frmDatumsabfrage
         InitializeComponent()
     End Sub
 
+    Sub New(title As String, _onlypastDate As Boolean)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        onlypastDate = _onlypastDate
+        lbl.Text = title
+    End Sub
+
     Public Datum As Date = CDate(Now.ToShortDateString)
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Label1.Text = ""
 
-        If CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
+        If onlypastDate And CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
             Label1.Text = "Muss heute oder früher sein!"
             Me.DialogResult = DialogResult.None
             Exit Sub

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -21,9 +21,11 @@ Public Class cUStVLeistender
         Me.UStV_Leistender = UStV_Leistender
         LOAD()
     End Sub
+
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
-            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Leistender", UStV_Leistender,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Leistender", UStV_Leistender))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_PLZ", UstV_Leistender_PLZ))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Strasse", UstV_Leistender_Strasse))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Stadt", UstV_Leistender_Stadt))
@@ -36,19 +38,28 @@ Public Class cUStVLeistender
 
 
 
-        Public Function SAVE() As Boolean
+    Public Function SAVE() As Boolean
-            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender  WHERE UStV_Leistender=@UStV_Leistender) " &
-                       " BEGIN " & getUpdateCmd() & " END " & " commit tran "
+                      " BEGIN " & getUpdateCmd() & " END " &
-        '" Else " &
+                      " Else " &
-        '" BEGIN " & getInsertCmd() & " END " &
+                      " BEGIN " & getInsertCmd() & " END " &
-        '" commit tran "
+                      " commit tran "
 
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
-        End Function
+    End Function
 
-        Public Sub LOAD()
+
+    Public Function INSERT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = getInsertCmd()
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
             Try
                 hasEntry = False
                 Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -88,6 +88,9 @@ Public Class cKundenErweitert
     Property kde_WechselBlanko As Boolean = False
     Property kde_UStV_SummeVorschaubetragEUR_PLOSE As Object = Nothing
     Property kde_keineMWSt As Boolean = False
+    Property kde_MWStAbrechnung As Object = Nothing
+    Property kde_AnmerkungVZ As Object = Nothing
+    Property kde_VZ As Boolean = False
 
 
     Dim SQL As New SQL
@@ -178,6 +181,9 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_WechselBlanko", kde_WechselBlanko))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UStV_SummeVorschaubetragEUR_PLOSE", kde_UStV_SummeVorschaubetragEUR_PLOSE))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_keineMWSt", kde_keineMWSt))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_MWStAbrechnung", kde_MWStAbrechnung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungVZ", kde_AnmerkungVZ))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_VZ", kde_VZ))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -718,6 +718,9 @@
     <EmbeddedResource Include="Benutzerdefinierte Steuerelemente\HTMLTextBox.resx">
       <DependentUpon>HTMLTextBox.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Benutzerdefinierte Steuerelemente\MySearchBox.resx">
+      <DependentUpon>MySearchBox.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Benutzerdefinierte Steuerelemente\RichTextBoxEx.resx">
       <DependentUpon>RichTextBoxEx.vb</DependentUpon>
     </EmbeddedResource>