From 6f4d20147aca0dbc61e0f8ea8c722d67b2f44b52 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 13 Nov 2026 10:38:43 +0100 Subject: [PATCH] fix ustva --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 82 +++++++++++++------------- SDL/USTV/ustCntlUSTV_AntragPosition.vb | 12 ++-- 3 files changed, 49 insertions(+), 49 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 98c3d75e..9b22bd32 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index a07aacbb..4777438a 100644 --- 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, "") diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 161f355b..281e1ad9 100644 --- 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