From adb2969fe6c89d083295cbe2d732a6c9f98cc2a7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 17 Mar 2025 08:20:21 +0100 Subject: [PATCH] offertenNr --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/kunden/usrCntlOfferte.vb | 26 +++++++++++++++++++++----- 2 files changed, 23 insertions(+), 7 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 29588c10..386114cd 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/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 2115496a..f5762ef7 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -847,13 +847,15 @@ Public Class usrCntlOfferte Dim ExcelBez = "Kostenkalkulation" + Dim offertenNr As Integer = dtKostenkalk.Rows(0).Item("OffertenNr") + If offertenNr = 26 Or offertenNr = 38 Then FIRMA_TMP = "CS" + Select Case FIRMA_TMP Case "IMEX" : ExcelBez &= "_IMEX " Case "VERAG" : ExcelBez &= "_AG " Case Else : ExcelBez &= " " End Select - With exclApp .Visible = False @@ -863,6 +865,8 @@ Public Class usrCntlOfferte Path = sPath & ExcelBez & kdNr & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While + + Select Case FIRMA_TMP Case "IMEX" : My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Kostenkalkulation_IMEX, False) Case "VERAG" : My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Kostenkalkulation_AG, False) @@ -885,20 +889,32 @@ Public Class usrCntlOfferte Blatt.Range("B8").Value = ADR.Name_1 Blatt.Range("B9").Value = ADR.AdressenNr + Blatt.Range("H11").Value = "Tarif für " & Today().Year Dim currentRow As Integer = 13 - Dim dtkeineMdtKostenkalk_mitPreise As DataTable = dtKostenkalk.Select("Preis <> ''", "Preis desc").CopyToDataTable + Dim dtkeineMdtKostenkalk_mitPreise As DataTable = dtKostenkalk.Select("Preis <> ''").CopyToDataTable + dtkeineMdtKostenkalk_mitPreise.Columns.Add("price_new", System.Type.GetType("System.Int32")) + + Dim DatumDerZollabf As String = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Geändert am") + + If DatumDerZollabf = "" Then DatumDerZollabf = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Eingegeben am") + + If IsDate(DatumDerZollabf) Then Blatt.Range("B11").Value = "aktueller Tarif " & CDate(DatumDerZollabf).Year + + For Each row In dtkeineMdtKostenkalk_mitPreise.Rows + row("price_new") = CDbl(row("Preis")) + Next + + dtkeineMdtKostenkalk_mitPreise.DefaultView.Sort = "price_new desc" + dtkeineMdtKostenkalk_mitPreise = dtkeineMdtKostenkalk_mitPreise.DefaultView.ToTable For Each row In dtkeineMdtKostenkalk_mitPreise.Rows Blatt.Range("A" & currentRow).Value = row("LeistungsBez") Blatt.Range("B" & currentRow).Value = CDbl(row("Preis")) - Dim DatumDerZollabf As String = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Geändert am") - - If DatumDerZollabf = "" Then DatumDerZollabf = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Eingegeben am") If IsDate(DatumDerZollabf) Then