edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IMportfunktion ustva verbessert

Browse Source
This commit is contained in:
d.breimaier
2026-09-04 09:13:19 +02:00
parent 0992ba29a2
commit f70bdbbf71
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/USTV/usrCntlUSTV.vb
View File

@@ -2098,7 +2098,7 @@ Public Class usrCntlUSTV
UStV_ERS.UStVEr_interneNr = USTV_ANTRAG.getMaxinternePosNrErst() UStV_ERS.UStVEr_interneNr = USTV_ANTRAG.getMaxinternePosNrErst()
UStV_ERS.UStVAn_ID = USTV_ANTRAG.UStVAn_ID UStV_ERS.UStVAn_ID = USTV_ANTRAG.UStVAn_ID
UStV_ERS.Belegnummer = BelegNr 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_Importfilename = fd.SafeFileName
UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UStV_ERS.UStVEr_Zeitstempel = Now 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_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 UStV_ERS.UStVEr_Umrechnungskurs = Math.floor((CDbl(UStV_ERS.UStVEr_USteuerbetrag) / CDbl(UStV_ERS.UStVEr_USteuerbetragEUR) * 100 + 0.5)) / 100
Else Else
UStV_ERS.UStVEr_USteuerbetrag = r.Cells("BetragEUR").Value UStV_ERS.UStVEr_USteuerbetrag = r.Cells("Bank").Value
UStV_ERS.UStVEr_Umrechnungskurs = 1 UStV_ERS.UStVEr_Umrechnungskurs = 1
End If End If
Dim Bemerkung As String = "" 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 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 isVZ = True
UStV_ERS.UStVEr_VZ = CDbl(r.Cells("VZ").Value) UStV_ERS.UStVEr_VZ = CDbl(r.Cells("VZ").Value)
@@ -2131,7 +2131,7 @@ Public Class usrCntlUSTV
End If 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 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) UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value)
End If End If