Erstattung.

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.9.9")>
+<Assembly: AssemblyVersion("1.4.0.0")>
-<Assembly: AssemblyFileVersion("1.3.9.9")>
+<Assembly: AssemblyFileVersion("1.4.0.0")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -21,6 +21,8 @@ Public Class frmMDM_USTVAntrag
     Dim func As New cMDMFunctionsAllgemein
     Dim dTLANDEU As New DataTable
     Dim DiffernezbetragEUR As Double
+    Dim GesamtUSteuerEUR As Double
+    Dim GesamtUSteuer As Double
 
     Sub New(UStVAn_ID)
 
@@ -192,11 +194,11 @@ Public Class frmMDM_USTVAntrag
 
         End With
 
-        Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        GesamtUSteuerEUR = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         DiffernezbetragEUR = GesamtUSteuerEUR - GesamtErstattungEUR
 
-        Dim GesamtUSteuer As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetrag),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
+        GesamtUSteuer = SQL.DLookup("isnull(sum(UStVPo_USteuerbetrag),0)", "tblUStVPositionen", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         Dim GesamtErstattung As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetrag),0)", "tblUStVErstattung", "UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL", "0")
         Dim Differnezbetrag As Double = GesamtUSteuer - GesamtErstattung
 
@@ -1571,14 +1573,32 @@ Public Class frmMDM_USTVAntrag
 
             VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen_USTVA(USTV_ANTRAG.UStVAn_ID)
 
+            If USTV_ANTRAG.UStVAn_Währungscode IsNot Nothing AndAlso USTV_ANTRAG.UStVAn_Währungscode <> "EUR" AndAlso USTV_ANTRAG.UStVAn_Währungscode <> "" Then
+                Dim averageUmrechnungskurs As Double = 1
+                If dgvUSTVPositionen.Rows.Count > 0 Then
+                    For Each row In dgvUSTVPositionen.Rows
+                        averageUmrechnungskurs += row.Cells("UStVPo_Umrechnungskurs").Value
+                    Next
+                    averageUmrechnungskurs = averageUmrechnungskurs / dgvUSTVPositionen.Rows.Count
+                End If
+
+                Dim abw As Double = Math.Abs(Math.Round(GesamtUSteuer / averageUmrechnungskurs, 2) - Math.Round(GesamtUSteuerEUR, 2))
+
+                If abw >= 250 Then
+                    MsgBox("Bitte Umrechnungskurs in den Antragspositionen kontrollieren!" & vbNewLine & "Der Steuerbetrag weicht um " & Math.Round(abw, 2) & "€ vom FW-Steuerbetrag ab! ")
+                End If
+
+            End If
+
+
         Else
 
-            Dim USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag()
+                Dim USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag()
             Dim ADR As New cAdressen(KundenNr)
             Dim ERW As New cKundenErweitert(KundenNr)
             Dim FIRMA As New cFirmen(1) 'Nr 1 weil Kontodaten von Verag.....
 
-            If KundenNr < 0 Then
+            If KundenNr <0 Then
                 MsgBox("Kunde auswählen!")
                 Exit Sub
             End If

SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb

@@ -403,7 +403,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
         Me.txtBemerkung._WaehrungZeichen = True
         Me.txtBemerkung.ForeColor = System.Drawing.Color.Red
         Me.txtBemerkung.Location = New System.Drawing.Point(468, 179)
-        Me.txtBemerkung.MaxLength = 50
+        Me.txtBemerkung.MaxLength = 255
         Me.txtBemerkung.MaxLineLength = -1
         Me.txtBemerkung.MaxLines_Warning = ""
         Me.txtBemerkung.MaxLines_Warning_Label = Nothing