fix ustva, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -5,6 +5,7 @@ Imports System.Web.UI.WebControls.Expressions
 Imports System.Windows.Documents
 Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
+Imports TAlex.WPF.Helpers
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDM_USTVAntrag
@@ -55,6 +56,7 @@ Public Class frmMDM_USTVAntrag
 
         suppressSelectionChanged = True
 
+
         pnlBody.AutoScroll = False
 
         lblGesamtUSteuerFW.Text = "-"
@@ -354,6 +356,12 @@ Public Class frmMDM_USTVAntrag
             End If
         End If
 
+        If dgvUSTVPositionen.Rows.Count = 1 Then
+            posIndex = dgvUSTVPositionen.Rows.Count
+            suppressSelectionChanged = False
+        End If
+
+
         If posIndex > 0 Then
             Dim idx As Integer = posIndex - 1
             If idx >= 0 AndAlso dgvUSTVPositionen.Rows.Count > idx Then
@@ -595,7 +603,7 @@ Public Class frmMDM_USTVAntrag
             Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
             setValue(USTV_ANTRAG)
 
-            If (CInt(USTV_ANTRAG.UStVAn_KuNr) >= 150000 AndAlso CInt(USTV_ANTRAG.UStVAn_KuNr) <160000) Or (CInt(USTV_ANTRAG.UStVAn_KuNr) >= 180000 AndAlso CInt(USTV_ANTRAG.UStVAn_KuNr) <190000) Then
+            If (CInt(USTV_ANTRAG.UStVAn_KuNr) >= 150000 AndAlso CInt(USTV_ANTRAG.UStVAn_KuNr) < 160000) Or (CInt(USTV_ANTRAG.UStVAn_KuNr) >= 180000 AndAlso CInt(USTV_ANTRAG.UStVAn_KuNr) < 190000) Then
                 btnRMCQuartal.Visible = True
             Else
                 btnRMCQuartal.Visible = False
@@ -2324,6 +2332,8 @@ Public Class frmMDM_USTVAntrag
         UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
         UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr
         UstCntlUSTV_AntragPosition1.Enabled = True
+        UstCntlUSTV_AntragPosition1.txtRgDatum.Focus()
+
 
     End Sub
 
@@ -2343,53 +2353,54 @@ Public Class frmMDM_USTVAntrag
             End If
 
 
-                If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
+            If UstCntlUSTV_AntragPosition1.cbxAPI IsNot Nothing AndAlso UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value IsNot Nothing Then
 
-                    If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = -1 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId_loeschbar Then 'nur Dokumente löschen, die nicht über Schnittstellen geladen wurden!
+                If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = -1 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId_loeschbar Then 'nur Dokumente löschen, die nicht über Schnittstellen geladen wurden!
 
-                        If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId < 0 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId Is Nothing Then
+                    If UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId < 0 OrElse UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId Is Nothing Then
 
-                            Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & "_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
+                        Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVA_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & "_" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
 
-                            If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
+                        If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
-                                If DS.DELETE_COMPLETE() Then
+                            If DS.DELETE_COMPLETE() Then
-                                    'löschen nicht vorhandenen Verweis!
+                                'löschen nicht vorhandenen Verweis!
-                                    SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
+                                SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
-
-                                End If
-                            End If
-
-                        ElseIf UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId > 0 Then
-
-                            Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId)
-
-                            If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
-                                If DS.DELETE_COMPLETE() Then
-                                    'löschen nicht vorhandenen Verweis!
-                                    SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
-                                End If
 
                             End If
-
                         End If
-
-
                     End If
 
-                    Dim Leistungsbezeichnung = ""
+                ElseIf UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId > 0 Then
-                    If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = 3 Then Leistungsbezeichnung = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung
 
-                    If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, Leistungsbezeichnung) Then
+                    Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId)
-                        If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
+
-                            reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
+                    If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
+                        If DS.DELETE_COMPLETE() Then
+                            'löschen nicht vorhandenen Verweis!
+                            SQL.doSQL("update tblUStVPositionen set UStVPo_daId = NULL where UStVAn_ID = " & UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID & " and UStVPo_daId > 0 and isnull(UStVPo_daId, 0) not in (select da_id from tblDatenarchiv)  ", "FMZOLL")
                         End If
-                        init()
+
                     End If
                 End If
 
-                UstCntlUSTV_AntragPosition1.Enabled = False
-
             End If
+
+
+        End If
+
+        Dim Leistungsbezeichnung = ""
+        If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = 3 Then Leistungsbezeichnung = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung
+
+        If setArchiv(UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr, Leistungsbezeichnung) Then
+            If UstCntlUSTV_AntragPosition1.UStV_POS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID) Then
+                reorderUSTVAPositions(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID)
+            End If
+            init()
+        End If
+        init()
+
+        UstCntlUSTV_AntragPosition1.Enabled = False
+
     End Sub
 
     Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -26,9 +26,8 @@ Public Class ustCntlUSTV_AntragPosition
         txtRgDatum._value = ""
         txtRgNr._value = ""
         btnLeistenderSave.Visible = False
-        txtUmrechnungskurs._value = 1
+        txtUmrechnungskurs._value = ""
         txtLeistungsbezeichnung._value = ""
-        txtUmrechnungskurs._value = 1
         txtUSTBetrag._value = 0
         txtUSTBetragEUR._value = 0
         txtNettobetrag._value = 0
@@ -773,15 +772,11 @@ Public Class ustCntlUSTV_AntragPosition
             Return
         End If
 
-        Dim oldValueChanged As Boolean =
+        Dim oldValueChanged As Boolean = UStV_POS Is Nothing OrElse UStV_POS.UStVPo_USteuerbetragEUR Is Nothing OrElse Convert.ToDecimal(UStV_POS.UStVPo_USteuerbetragEUR) <> ustBetragEUR
-        UStV_POS Is Nothing OrElse
-        UStV_POS.UStVPo_USteuerbetragEUR Is Nothing OrElse
-        Convert.ToDecimal(UStV_POS.UStVPo_USteuerbetragEUR) <> ustBetragEUR
 
         If Not oldValueChanged Then Return
 
-        Dim kurs As Decimal =
+        Dim kurs As Decimal = RoundCurrency(ustBetrag / ustBetragEUR)
-        RoundCurrency(ustBetrag / ustBetragEUR)
 
         txtUmrechnungskurs.Text = kurs.ToString()