From f70bdbbf71563a21b4dfe7e9a272f525d4d57cf1 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 4 Sep 2026 09:13:19 +0200
Subject: [PATCH] IMportfunktion ustva verbessert

---
 SDL/USTV/usrCntlUSTV.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb
index daaff3d1..352e177b 100644
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -2098,7 +2098,7 @@ Public Class usrCntlUSTV
                                         UStV_ERS.UStVEr_interneNr = USTV_ANTRAG.getMaxinternePosNrErst()
                                         UStV_ERS.UStVAn_ID = USTV_ANTRAG.UStVAn_ID
                                         UStV_ERS.Belegnummer = BelegNr
-                                        UStV_ERS.UStVEr_USteuerbetragEUR = r.Cells("BetragEUR").Value
+                                        UStV_ERS.UStVEr_USteuerbetragEUR = r.Cells("Bank").Value
                                         UStV_ERS.UStVEr_Importfilename = fd.SafeFileName
                                         UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                                         UStV_ERS.UStVEr_Zeitstempel = Now
@@ -2108,14 +2108,14 @@ Public Class usrCntlUSTV
                                             UStV_ERS.UStVEr_USteuerbetrag = System.Math.Round(kurs.EXCHANGE_EURTOCUR(UStV_ERS.UStVEr_USteuerbetragEUR, USTV_ANTRAG.UStVAn_Währungscode, CDate(Belegdatum)), 2)
                                             UStV_ERS.UStVEr_Umrechnungskurs = Math.floor((CDbl(UStV_ERS.UStVEr_USteuerbetrag) / CDbl(UStV_ERS.UStVEr_USteuerbetragEUR) * 100 + 0.5)) / 100
                                         Else
-                                            UStV_ERS.UStVEr_USteuerbetrag = r.Cells("BetragEUR").Value
+                                            UStV_ERS.UStVEr_USteuerbetrag = r.Cells("Bank").Value
                                             UStV_ERS.UStVEr_Umrechnungskurs = 1
                                         End If
 
                                         Dim Bemerkung As String = ""
 
                                         If Not String.IsNullOrWhiteSpace(r.Cells("VZ").Value) AndAlso IsNumeric(r.Cells("VZ").Value) AndAlso Not IsDBNull(r.Cells("VZ").Value) AndAlso CDbl(r.Cells("VZ").Value) <> 0 Then
-                                            Bemerkung &= "VZ: " & CDbl(r.Cells("VZ").Value).ToString("N2") & " " & USTV_ANTRAG.UStVAn_Währungscode
+                                            Bemerkung &= "VZ: " & CDbl(r.Cells("VZ").Value).ToString("N2") & " EUR "
                                             isVZ = True
                                             UStV_ERS.UStVEr_VZ = CDbl(r.Cells("VZ").Value)
 
@@ -2131,7 +2131,7 @@ Public Class usrCntlUSTV
                                         End If
 
                                         If Not String.IsNullOrWhiteSpace(r.Cells("Bank").Value) AndAlso IsNumeric(r.Cells("Bank").Value) AndAlso Not IsDBNull(r.Cells("Bank").Value) AndAlso CDbl(r.Cells("Bank").Value) <> 0 Then
-                                            Bemerkung &= ", a.K. : " & CDbl(r.Cells("Bank").Value).ToString("N2") & " " & USTV_ANTRAG.UStVAn_Währungscode
+                                            Bemerkung &= ", a.K. : " & CDbl(r.Cells("Bank").Value).ToString("N2") & " EUR"
                                             UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value)
                                         End If