fix ustva, etc.

2026-08-31 09:18:48 +02:00
parent b3e2bc81a0
commit a912be044a
2 changed files with 47 additions and 41 deletions
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/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.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
-
-                        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
+                        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

-                    Dim Leistungsbezeichnung = ""
-                    If UstCntlUSTV_AntragPosition1.cboSchnittstellennr._value = 3 Then Leistungsbezeichnung = UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_Leistungsbezeichnung
+                ElseIf UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_daId > 0 Then

-                    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)
+                    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
-                        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
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/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 =
-        UStV_POS Is Nothing OrElse
-        UStV_POS.UStVPo_USteuerbetragEUR Is Nothing OrElse
-        Convert.ToDecimal(UStV_POS.UStVPo_USteuerbetragEUR) <> ustBetragEUR
+        Dim oldValueChanged As Boolean = 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 =
-        RoundCurrency(ustBetrag / ustBetragEUR)
+        Dim kurs As Decimal = RoundCurrency(ustBetrag / ustBetragEUR)

        txtUmrechnungskurs.Text = kurs.ToString()