From 28cf68eebbb02f3f2deceb74d9dbe91c3e4d980c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 17 Feb 2025 09:45:28 +0100 Subject: [PATCH] ustva_Erstattungen --- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 146 ++++++++++++-------- SDL/USTV/frmMDM_USTVAntrag.vb | 117 +++++++++++++--- SDL/USTV/ustCntlUSTV_ErstattungPosition .vb | 73 ++++++++-- 3 files changed, 241 insertions(+), 95 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 8de53bf6..28f35a6a 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/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 Button5 As Button + Friend WithEvents UstCntlUSTV_AntragErstattungen1 As ustCntlUSTV_ErstattungPosition + Friend WithEvents Panel1 As Panel + Friend WithEvents Button2 As Button + Friend WithEvents Button3 As Button End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 2cbabf60..55dcb9d3 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/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 - If TabControl1.SelectedTab Is TabPage1 Then - If dgvUSTVPositionen.SelectedRows.Count > 0 Then - initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value) - End If - ElseIf TabControl1.SelectedTab Is TabPage2 Then - 'TODO-Logik für Erstattung - + Sub initErstsattungsPosition(UStVEr_ID) + If UStVEr_ID > 0 Then + Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, UStVEr_ID) + UstCntlUSTV_AntragErstattungen1.Enabled = True + UstCntlUSTV_AntragErstattungen1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_ERSTATTUNG) + Else + 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 - UstCntlUSTV_AntragPosition1_EV_NEXT() - End If - If e.KeyValue = Keys.PageUp Then - UstCntlUSTV_AntragPosition1_EV_PREV() + If posTabisSelected = True Then + If e.KeyValue = Keys.PageDown Then + UstCntlUSTV_AntragPosition1_EV_NEXT() + End If + 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" diff --git a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb index 7e193597..ef59ba65 100644 --- a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb +++ b/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.UStVPo_Zeitstempel = Now + UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + 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 - Else - save = False + UStV_ERS.GutschriftsDatum = txtGuDatum.Text 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