From df5a69ae6469bcc2cb280952b21dc1564e71f8cf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 3 Sep 2026 16:05:30 +0200 Subject: [PATCH] fakt, ustva, etc --- SDL/Fakturierung/cFakturierung.vb | 14 +++++++++--- SDL/Fakturierung/frmFaktEmail.vb | 19 ++++++++++------- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 26 ++++++++++++----------- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 10 +++++---- 5 files changed, 44 insertions(+), 29 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 2b795787..7106d981 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2627,12 +2627,20 @@ Public Class cFakturierung If listVZMonth.Count > 0 Then If listVZMonth.Count = 1 Then - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthStart = IIf(listVZMonth(0) < 10, "0", "") & listVZMonth(0).ToString MonthEnd = "" Else - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString + MonthStart = IIf(listVZMonth(0) < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = IIf(listVZMonth(listVZMonth.Count - 1) < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString End If + + 'If listVZMonth.Count = 1 Then + ' MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + ' MonthEnd = "" + 'Else + ' MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + ' MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString + 'End If End If diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 66eb9f1e..81f78734 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -832,14 +832,6 @@ Public Class frmFaktEmail End If - 'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum)) - 'If Not ANTR_ERSTATTUNG.hasEntry Then - ' ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr() - ' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum - ' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr - ' ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID - ' ANTR_ERSTATTUNG.SAVE() - 'End If If durchREWurdeVZAbgerechnet Then @@ -858,6 +850,17 @@ Public Class frmFaktEmail USTV_ANTRAG.SAVE() End If + Else + + Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum)) + If Not ANTR_ERSTATTUNG.hasEntry Then + ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr() + ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum + ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr + ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID + ANTR_ERSTATTUNG.SAVE() + End If + End If If hatNichtAbgerechneteVZ Then diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d26a4e70..fcfd83e6 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 0557a088..606de055 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -3321,25 +3321,27 @@ Public Class frmMDM_USTVAntrag Dim kunde As New cKunde(USTV_ANTRAG.UStVAn_KuNr) Dim kunde_erw As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr) - Dim BezAntrag = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung " + Dim BezAntrag = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung " & IIf(kunde_erw.kde_VZ, "VZ ", "") If kunde_erw IsNot Nothing Then - If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then + 'NICHT ÜBERSETZEN - Select Case kunde_erw.kde_Fakturierung_Sprache - Case "EN", "TR" : BezAntrag = "Excise duty " - Case "RO" : BezAntrag = "Rambursare acciza " - End Select + 'If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then - Else + ' Select Case kunde_erw.kde_Fakturierung_Sprache + ' Case "EN", "TR" : BezAntrag = "Excise duty " + ' Case "RO" : BezAntrag = "Rambursare acciza " + ' End Select - Select Case kunde_erw.kde_Fakturierung_Sprache - Case "EN", "TR" : BezAntrag = "VAT refund " - Case "RO" : BezAntrag = "Rambursare TVA " - End Select + 'Else - End If + ' Select Case kunde_erw.kde_Fakturierung_Sprache + ' Case "EN", "TR" : BezAntrag = "VAT refund " + ' Case "RO" : BezAntrag = "Rambursare TVA " + ' End Select + + 'End If End If diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 1f3a6990..d3c35e40 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -958,15 +958,17 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( End If - - - mySmtpsvr.UseDefaultCredentials = False mySmtpsvr.Credentials = myCredentials Try 'Msg.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8") Msg.BodyEncoding = System.Text.Encoding.UTF8 'System.Text.Encoding.GetEncoding("ISO-8859-1") - Msg.From = New MailAddress(eMailfrom) + + If myCredentials.UserName.ToLower.Contains("no-reply") AndAlso eMailfrom.ToString.ToLower.Contains("no-reply") Then + Msg.From = New MailAddress(myCredentials.UserName) + Else + Msg.From = New MailAddress(eMailfrom) + End If If eMailTo IsNot Nothing Then For Each s As String In eMailTo.ToString.Split(";"c)