ustva_Erstattungen

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -101,13 +101,15 @@ Partial Class frmMDM_USTVAntrag
         Me.btnEintragloeschen = New System.Windows.Forms.Button()
         Me.btnNeuerEintrag = New System.Windows.Forms.Button()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.Panel3 = New System.Windows.Forms.Panel()
         Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.Button5 = New System.Windows.Forms.Button()
         Me.pnlBottom.SuspendLayout()
         CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlHeader.SuspendLayout()
@@ -124,9 +126,10 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel2.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.TabPage2.SuspendLayout()
-        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel3.SuspendLayout()
+        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlErstattungsdetails.SuspendLayout()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'pnlBottom
@@ -1251,6 +1254,18 @@ Partial Class frmMDM_USTVAntrag
         Me.TabPage2.Text = "Erstattungspositionen"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'Panel3
+        '
+        Me.Panel3.BackColor = System.Drawing.Color.White
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel3.Controls.Add(Me.dgvErstattungspositionen)
+        Me.Panel3.Controls.Add(Me.pnlErstattungsdetails)
+        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(1438, 438)
+        Me.Panel3.TabIndex = 3
+        '
         'dgvErstattungspositionen
         '
         Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
@@ -1272,6 +1287,66 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
         Me.dgvErstattungspositionen.TabIndex = 1
         '
+        'pnlErstattungsdetails
+        '
+        Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.pnlErstattungsdetails.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlErstattungsdetails.Controls.Add(Me.UstCntlUSTV_AntragErstattungen1)
+        Me.pnlErstattungsdetails.Controls.Add(Me.Panel1)
+        Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 175)
+        Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails"
+        Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
+        Me.pnlErstattungsdetails.TabIndex = 0
+        '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.Button3)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(154, 259)
+        Me.Panel1.TabIndex = 3
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.Image = Global.SDL.My.Resources.Resources.del
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(6, 50)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(135, 39)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Eintrag löschen"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.Black
+        Me.Button3.Image = Global.SDL.My.Resources.Resources.plus
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.Location = New System.Drawing.Point(6, 5)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(135, 39)
+        Me.Button3.TabIndex = 0
+        Me.Button3.Text = "Neuer Eintrag"
+        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
@@ -1282,58 +1357,6 @@ Partial Class frmMDM_USTVAntrag
         Me.ContextMenuStrip2.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
-        'Panel3
-        '
-        Me.Panel3.BackColor = System.Drawing.Color.White
-        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel3.Controls.Add(Me.dgvErstattungspositionen)
-        Me.Panel3.Controls.Add(Me.pnlErstattungsdetails)
-        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(1438, 438)
-        Me.Panel3.TabIndex = 3
-        '
-        'pnlErstattungsdetails
-        '
-        Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.pnlErstattungsdetails.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.pnlErstattungsdetails.Controls.Add(Me.Button4)
-        Me.pnlErstattungsdetails.Controls.Add(Me.Button5)
-        Me.pnlErstattungsdetails.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlErstattungsdetails.Location = New System.Drawing.Point(0, 175)
-        Me.pnlErstattungsdetails.Name = "pnlErstattungsdetails"
-        Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
-        Me.pnlErstattungsdetails.TabIndex = 0
-        '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.Black
-        Me.Button4.Image = Global.SDL.My.Resources.Resources.del
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(6, 50)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(135, 39)
-        Me.Button4.TabIndex = 1
-        Me.Button4.Text = "Eintrag löschen"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'Button5
-        '
-        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button5.ForeColor = System.Drawing.Color.Black
-        Me.Button5.Image = Global.SDL.My.Resources.Resources.plus
-        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.Location = New System.Drawing.Point(6, 5)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(135, 39)
-        Me.Button5.TabIndex = 0
-        Me.Button5.Text = "Neuer Eintrag"
-        Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button5.UseVisualStyleBackColor = True
-        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1369,9 +1392,10 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel2.ResumeLayout(False)
         Me.Panel4.ResumeLayout(False)
         Me.TabPage2.ResumeLayout(False)
-        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel3.ResumeLayout(False)
+        CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlErstattungsdetails.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -1456,6 +1480,8 @@ Partial Class frmMDM_USTVAntrag
     Friend WithEvents dgvErstattungspositionen As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents Panel3 As Panel
     Friend WithEvents pnlErstattungsdetails As Panel
-    Friend WithEvents Button4 As Button
+    Friend WithEvents UstCntlUSTV_AntragErstattungen1 As ustCntlUSTV_ErstattungPosition
-    Friend WithEvents Button5 As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
 End Class

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -14,6 +14,7 @@ Public Class frmMDM_USTVAntrag
     Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing
     Dim Antrag_LandKz As String = ""
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim posTabisSelected As Boolean = True
 
     Dim von, bis As Date
 
@@ -1141,18 +1142,33 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
-    Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged
+    Sub initErstsattungsPosition(UStVEr_ID)
-        If TabControl1.SelectedTab Is TabPage1 Then
+        If UStVEr_ID > 0 Then
-            If dgvUSTVPositionen.SelectedRows.Count > 0 Then
+            Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, UStVEr_ID)
-                initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
+            UstCntlUSTV_AntragErstattungen1.Enabled = True
-            End If
+            UstCntlUSTV_AntragErstattungen1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_ERSTATTUNG)
-        ElseIf TabControl1.SelectedTab Is TabPage2 Then
+        Else
-            'TODO-Logik für Erstattung
+            UstCntlUSTV_AntragErstattungen1.reset()
-
+            UstCntlUSTV_AntragErstattungen1.Enabled = False
         End If
 
     End Sub
 
+    Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged
+
+
+        If dgvUSTVPositionen.SelectedRows.Count > 0 Then
+            initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value)
+        End If
+
+    End Sub
+
+    Private Sub dgvErstattungspositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvErstattungspositionen.SelectionChanged
+        If dgvErstattungspositionen.SelectedRows.Count > 0 Then
+            initErstsattungsPosition(dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID").Value)
+        End If
+    End Sub
+
     Private Sub UstCntlUSTV_AntragPosition1_EV_NEXT() Handles UstCntlUSTV_AntragPosition1.EV_NEXT
 
         If dgvUSTVPositionen.SelectedRows.Count > 0 Then
@@ -1165,6 +1181,21 @@ Public Class frmMDM_USTVAntrag
             End If
         End If
 
+    End Sub
+
+    Private Sub UstCntlUSTV_AntragErstattungen1_EV_NEXT() Handles UstCntlUSTV_AntragErstattungen1.EV_NEXT
+
+
+        If dgvErstattungspositionen.SelectedRows.Count > 0 Then
+            If dgvErstattungspositionen.RowCount > dgvErstattungspositionen.SelectedRows(0).Index + 1 Then
+                UstCntlUSTV_AntragErstattungen1.Enabled = True
+                Dim selIndex = dgvErstattungspositionen.SelectedRows(0).Index + 1
+                dgvErstattungspositionen.ClearSelection()
+                dgvErstattungspositionen.Rows(selIndex).Selected = True
+                dgvErstattungspositionen.CurrentCell = dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID")
+            End If
+        End If
+
     End Sub
     Private Sub UstCntlUSTV_AntragPosition1_EV_PREV() Handles UstCntlUSTV_AntragPosition1.EV_PREV
         If dgvUSTVPositionen.SelectedRows.Count > 0 Then
@@ -1179,14 +1210,38 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Sub UstCntlUSTV_AntragErstattungen1_EV_PREV() Handles UstCntlUSTV_AntragErstattungen1.EV_PREV
+        If dgvErstattungspositionen.SelectedRows.Count > 0 Then
+            If dgvErstattungspositionen.SelectedRows(0).Index > 0 Then
+                UstCntlUSTV_AntragErstattungen1.Enabled = True
+                Dim selIndex = dgvErstattungspositionen.SelectedRows(0).Index - 1
+                dgvErstattungspositionen.ClearSelection()
+                dgvErstattungspositionen.Rows(selIndex).Selected = True
+                dgvErstattungspositionen.CurrentCell = dgvErstattungspositionen.SelectedRows(0).Cells("UStVEr_ID")
+            End If
+        End If
+
+    End Sub
+
 
     Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
-        If e.KeyValue = Keys.PageDown Then
+        If posTabisSelected = True Then
-            UstCntlUSTV_AntragPosition1_EV_NEXT()
+            If e.KeyValue = Keys.PageDown Then
-        End If
+                UstCntlUSTV_AntragPosition1_EV_NEXT()
-        If e.KeyValue = Keys.PageUp Then
+            End If
-            UstCntlUSTV_AntragPosition1_EV_PREV()
+            If e.KeyValue = Keys.PageUp Then
+                UstCntlUSTV_AntragPosition1_EV_PREV()
+            End If
+        Else
+            If e.KeyValue = Keys.PageDown Then
+                UstCntlUSTV_AntragErstattungen1_EV_NEXT()
+            End If
+            If e.KeyValue = Keys.PageUp Then
+                UstCntlUSTV_AntragErstattungen1_EV_PREV()
+            End If
+
         End If
+
     End Sub
 
     Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown
@@ -1412,7 +1467,7 @@ Public Class frmMDM_USTVAntrag
                 End If
 
                 If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
-                    reorderPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
+                    reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
                 End If
 
                 init()
@@ -1842,7 +1897,7 @@ Public Class frmMDM_USTVAntrag
 
     End Function
 
-    Private Sub reorderPositions(UStVAn_ID As Integer)
+    Private Sub reorderUSTVAPositions(UStVAn_ID As Integer)
 
         If UStVAn_ID < 0 Then Exit Sub
 
@@ -1916,6 +1971,10 @@ Public Class frmMDM_USTVAntrag
         End If
 
 
+        picPDF.Visible = posTabisSelected
+        btnAntrageeinarbeiten.Enabled = posTabisSelected
+        cbxArchivierteEintracheNochmalsEinarbetien.Enabled = posTabisSelected
+
     End Sub
 
     Private Sub setinfofields()
@@ -1976,10 +2035,23 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
-
+        UstCntlUSTV_AntragErstattungen1.reset()
+        UstCntlUSTV_AntragErstattungen1.UStV_ERS = Nothing
+        UstCntlUSTV_AntragErstattungen1.Enabled = True
     End Sub
 
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+
+        If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
+        If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
+
+            UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS)
+        End If
+    End Sub
+
+
+
     Private Sub initdgvErstattungen()
 
 
@@ -2003,7 +2075,7 @@ Public Class frmMDM_USTVAntrag
                 .Columns("UStVEr_ID").Width = 40
 
                 .Columns("Belegdatum").Width = 80
-                .Columns("Belegnummer").Width = 180
+                .Columns("Belegnummer").Width = 130
 
                 .Columns("UStVEr_USteuerbetrag").HeaderText = "USt-Betrag"
                 .Columns("UStVEr_USteuerbetrag").Width = 110
@@ -2014,11 +2086,16 @@ Public Class frmMDM_USTVAntrag
                 .Columns("GutschriftsNr").HeaderText = "GS-Nr"
 
                 .Columns("GutschriftsDatum").Width = 80
-                .Columns("GutschriftsNr").Width = 180
+                .Columns("GutschriftsNr").Width = 130
+
+
+                .Columns("Berufungsdatum").HeaderText = "BE-Datum"
+                .Columns("Berufungshöhe").HeaderText = "BE-Höhe"
+                .Columns("Berufungsgrund").HeaderText = "BE-Grund"
 
                 .Columns("Berufungsdatum").Width = 80
                 .Columns("Berufungshöhe").Width = 100
-                .Columns("Berufungsgrund").Width = 200
+                .Columns("Berufungsgrund").Width = 150
                 .Columns("Bemerkung").Width = 200
 
                 .Columns("UStVEr_Umrechnungskurs").HeaderText = "Umrechnungskurs"

SDL/USTV/ustCntlUSTV_ErstattungPosition .vb

@@ -24,11 +24,17 @@ Public Class ustCntlUSTV_ErstattungPosition
         txtBelegDatum._value = ""
         txtBelegNr._value = ""
 
-        txtUmrechnungskurs._value = 1
         txtGuDatum._value = ""
+        txtGuNr._value = ""
+
+        txtBerufungsdatum._value = ""
+        txtBerufungshoehe._value = ""
+        txtBerurunfgrund._value = ""
+
         txtUmrechnungskurs._value = 1
         txtUSTBetrag._value = 0
         txtUSTBetragEUR._value = 0
+        txtBemerkung.Text = ""
 
 
 
@@ -36,8 +42,6 @@ Public Class ustCntlUSTV_ErstattungPosition
 
     Sub setValues(kdnr As Integer, UStV_ERS As VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen)
 
-
-
         gridAktiv = False
 
 
@@ -46,59 +50,98 @@ Public Class ustCntlUSTV_ErstattungPosition
 
         txtBelegDatum._value = If(UStV_ERS.Belegdatum, "")
         txtBelegNr._value = If(UStV_ERS.Belegnummer, "")
+
+        txtGuDatum._value = If(UStV_ERS.GutschriftsDatum, "")
+        txtGuNr._value = If(UStV_ERS.GutschriftsNr, "")
+
+        txtBerufungsdatum._value = If(UStV_ERS.Berufungsdatum, "")
+        txtBerurunfgrund._value = If(UStV_ERS.Berufungsgrund, "")
+        txtBerufungshoehe._value = If(UStV_ERS.Berufungshöhe, "")
+
+
         lblSachbearbeiter.Text = If(UStV_ERS.UStVEr_Sachbearbeiter, "")
         If UStV_ERS.UStVEr_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_ERS.UStVEr_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
 
-        txtGuDatum.Text = If(UStV_ERS.Bemerkung, "")
         txtUSTBetrag.Text = If(UStV_ERS.UStVEr_USteuerbetrag, "")
         txtUmrechnungskurs.Text = If(UStV_ERS.UStVEr_Umrechnungskurs, "")
         txtUSTBetragEUR.Text = If(UStV_ERS.UStVEr_USteuerbetragEUR, "")
+        txtBemerkung.Text = If(UStV_ERS.Bemerkung, "")
 
         gridAktiv = True
     End Sub
 
-    Sub getValues(ByRef UStV_ERS, ByRef save)
+    Sub getValues(ByRef UStV_ERS As cUStVErstattungPositionen, ByRef save As Boolean)
 
         If UStV_ERS Is Nothing Then UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
 
-        UStV_ERS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-        UStV_ERS.UStVPo_Zeitstempel = Now
+        UStV_ERS.UStVEr_Zeitstempel = Now
 
         If txtBelegNr.Text <> "" Then
-            UStV_ERS.UStVPo_ReNr = txtBelegNr.Text
+            UStV_ERS.Belegnummer = txtBelegNr.Text
         Else
             save = False
         End If
 
         If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then
-            UStV_ERS.UStVPo_ReDat = txtBelegDatum._value
+            UStV_ERS.Belegdatum = txtBelegDatum._value
         Else
             save = False
         End If
+
         If txtUSTBetrag.Text <> "" Then
-            UStV_ERS.UStVPo_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
+            UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
         Else
             save = False
         End If
 
         If txtUSTBetragEUR.Text <> "" Then
-            UStV_ERS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
+            UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
         Else
             save = False
         End If
+
         If txtGuDatum.Text <> "" Then
-            UStV_ERS.UStVPo_Leistungsbezeichnung = txtGuDatum.Text
+            UStV_ERS.GutschriftsDatum = txtGuDatum.Text
-        Else
-            save = False
         End If
+
         If Not txtUmrechnungskurs.Text = "" Then
             If txtUmrechnungskurs.Text <> "" Then
-                UStV_ERS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
+                UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
             End If
         Else
             save = False
         End If
 
+        If txtGuDatum.Text <> "" Then
+            UStV_ERS.GutschriftsDatum = txtGuDatum.Text
+        End If
+
+        If txtGuNr.Text <> "" Then
+            UStV_ERS.GutschriftsNr = txtGuNr.Text
+        End If
+
+
+
+        If txtBemerkung.Text <> "" Then
+            UStV_ERS.Bemerkung = txtBemerkung.Text
+        End If
+
+        If txtBerufungsdatum.Text <> "" Then
+            UStV_ERS.Berufungsdatum = txtBerufungsdatum.Text
+        End If
+
+
+        If txtBerufungshoehe.Text <> "" Then
+            UStV_ERS.Berufungshöhe = txtBerufungshoehe.Text
+        End If
+
+        If txtBerurunfgrund.Text <> "" Then
+            UStV_ERS.Berufungsgrund = txtBerurunfgrund.Text
+        End If
+
+
+
 
     End Sub