fix ustva

2026-11-13 10:38:43 +01:00
parent 654ac29424
commit 6f4d20147a
3 changed files with 49 additions and 49 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.5.9.5")>
-<Assembly: AssemblyFileVersion("1.5.9.5")>
+<Assembly: AssemblyVersion("1.5.9.6")>
+<Assembly: AssemblyFileVersion("1.5.9.6")>
--- a/SDL/USTV/frmMDM_USTVAntrag.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.vb
@@ -223,7 +223,7 @@ Public Class frmMDM_USTVAntrag
                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
                    End If

-                        If Not (r.Cells("UStVPo_SchnittstellenNr").Value = 4 OrElse r.Cells("UStVPo_SchnittstellenNr").Value = 9) AndAlso Not r.Cells("UStVPo_ReNr").Value.ToString.ToLower.StartsWith("bis") Then 'MSE und "SAMMELBERIFF" ausnehmen 
+                    If Not (r.Cells("UStVPo_SchnittstellenNr").Value = 4 OrElse r.Cells("UStVPo_SchnittstellenNr").Value = 9) AndAlso Not r.Cells("UStVPo_ReNr").Value.ToString.ToLower.StartsWith("bis") Then 'MSE und "SAMMELBERIFF" ausnehmen 
                        Dim rechnungsNr = CStr(r.Cells("UStVPo_ReNr").Value)

                        If Not String.IsNullOrWhiteSpace(rechnungsNr) Then
@@ -1242,9 +1242,9 @@ Public Class frmMDM_USTVAntrag
                        End If

                        If Not IsDBNull(r.Item("rmc_daId_InvAtt")) AndAlso IsNumeric(r.Item("rmc_daId_InvAtt")) AndAlso r.Item("rmc_daId_InvAtt") > 0 Then
-                                Dim DS_ATT_ID As Integer = r.Item("rmc_daId_InvAtt")
+                            Dim DS_ATT_ID As Integer = r.Item("rmc_daId_InvAtt")

-                                If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
+                            If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
                                'merge current daId and invatt-daid


@@ -1258,49 +1258,49 @@ Public Class frmMDM_USTVAntrag


                                If DS_ATT_PATH <> "" AndAlso DS_ORG_PATH <> "" Then
-                                        If DS_NEW.uploadDataToDATENSERVER(DS_ORG_PATH) AndAlso DS_NEW.uploadDataToDATENSERVER(DS_ATT_PATH) Then
-                                            USTV_POS.UStVPo_daId = DS_NEW.da_id
-                                            USTV_POS.UStVPo_daId_loeschbar = True 'nach merge wird nicht mehr orig.ID verwendet und daher ist löschbar!!!
-                                        End If
+                                    If DS_NEW.uploadDataToDATENSERVER(DS_ORG_PATH) AndAlso DS_NEW.uploadDataToDATENSERVER(DS_ATT_PATH) Then
+                                        USTV_POS.UStVPo_daId = DS_NEW.da_id
+                                        USTV_POS.UStVPo_daId_loeschbar = True 'nach merge wird nicht mehr orig.ID verwendet und daher ist löschbar!!!
                                    End If
-
-                                End If
-                            End If
-
-
-                            ' Berechnungen
-                            'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
-                            'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
-
-                            Dim umrechKurs As Double = 1
-                            If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
-
-                                Dim Brutto_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
-                                Dim Brutto_org As Double = CDbl(r.Item("rmc_betragBrutto"))
-
-                                'umrechKurs = frmdw / eur
-
-                                umrechKurs = Math.Floor((Brutto_org / Brutto_EUR * 100 + 0.5)) / 100
-
-                            End If
-
-                            If CDbl(r.Item("rmc_betragMWST")) <> 0 Then
-                                USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") / umrechKurs), 2)
-                                USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
-                                USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
-
-                                If USTV_POS.UStVPo_NettobetragEUR Is Nothing Then
-                                    USTV_POS.UStVPo_NettobetragEUR = Math.Round((r.Item("rmc_betragNetto") / umrechKurs), 2)
                                End If

                            End If
+                        End If

-                            If USTV_POS.INSERT() Then
-                                cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
+
+                        ' Berechnungen
+                        'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
+                        'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
+
+                        Dim umrechKurs As Double = 1
+                        If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
+
+                            Dim Brutto_EUR As Double = CDbl(r.Item("rmc_euroBrutto"))
+                            Dim Brutto_org As Double = CDbl(r.Item("rmc_betragBrutto"))
+
+                            'umrechKurs = frmdw / eur
+
+                            umrechKurs = Math.Floor((Brutto_org / Brutto_EUR * 100 + 0.5)) / 100
+
+                        End If
+
+                        If CDbl(r.Item("rmc_betragMWST")) <> 0 Then
+                            USTV_POS.UStVPo_USteuerbetragEUR = Math.Round((r.Item("rmc_betragMWST") / umrechKurs), 2)
+                            USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
+                            USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
+
+                            If USTV_POS.UStVPo_NettobetragEUR Is Nothing Then
+                                USTV_POS.UStVPo_NettobetragEUR = Math.Round((r.Item("rmc_betragNetto") / umrechKurs), 2)
                            End If

-                        ElseIf USTVA_Nettobetragchanged Then
-                            updateNettobetrag(USTV_POS.UStVPo_ReNr, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_SchnittstellenNr, USTV_POS)
+                        End If
+
+                        If USTV_POS.INSERT() Then
+                            cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
+                        End If
+
+                    ElseIf USTVA_Nettobetragchanged Then
+                        updateNettobetrag(USTV_POS.UStVPo_ReNr, USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_SchnittstellenNr, USTV_POS)

                    End If

@@ -2655,7 +2655,7 @@ Public Class frmMDM_USTVAntrag
            If withPDF Then
                Dim list As New List(Of String)
                If mergePDFs Then
-                    Mail.Attachments.Add(PDFInvoicesPath("", List), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                    Mail.Attachments.Add(PDFInvoicesPath("", list), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                Else
                    PDFInvoicesPath("", list)

@@ -2667,7 +2667,7 @@ Public Class frmMDM_USTVAntrag

            End If

-                Dim subject As String = ""
+            Dim subject As String = ""
            subject &= IIf(USTV_ANTRAG.UStVAn_Name <> "", USTV_ANTRAG.UStVAn_Name & "_", "")
            subject &= IIf(Antrag_LandKz <> "", Antrag_LandKz & "_", "")
            subject &= IIf(USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing, CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & "-" & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString, "")
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
@@ -508,7 +508,7 @@ Public Class ustCntlUSTV_AntragPosition
        If e.KeyValue <> Keys.Tab Then Return

        If Not CanEdit() Then
-            lblWarning.Text = "keine Berechtigung/bereits abgerech."
+            lblWarning.Text = "keine Berechtigung"
            Return
        End If

@@ -723,11 +723,11 @@ Public Class ustCntlUSTV_AntragPosition

        allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)

-        If allowed Then
-            If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
-                allowed = False
-            End If
-        End If
+        'If allowed Then
+        '    If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
+        '        allowed = False
+        '    End If
+        'End If

        Return allowed