From 9fd1c28b5ab5d29a29c0eb2bcfbebe436c1b9804 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 3 Dec 2024 13:22:29 +0100 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 18 +++++++++--------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b13904de..7be6477d 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 3f0d1bae..e7620d42 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1034,16 +1034,16 @@ Public Class frmMDM_USTVAntrag inner Join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID Where [tblUStVPositionen].UStVAn_ID ='" & UStVAn_ID & "' ORDER BY UStVPo_ID" - Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel) - Return True - Else - If feedback Then MsgBox("keine Daten vorhanden!") - Return False - End If + Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel) + Return True + Else + If feedback Then MsgBox("keine Daten vorhanden!") + Return False + End If - End Function + End Function Private Sub mailmitExcelauswertung()