Abrechnungsmaske, FIBU, Spedbuch, etc.

SDL/cProgramFunctions.vb

@@ -1277,7 +1277,7 @@ Public Class cProgramFunctions
         End Try
     End Function
 
-    Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False) As String
+    Public Shared Function genExcelFromMultibleDT_NEW(datatables As IEnumerable(Of DataTable), Optional rangeAsWaehrung() As String = Nothing, Optional ShowAutoFilter As Boolean = True, Optional HeaderTxt As String = "", Optional HeaderTxt2 As String = "", Optional waehrungsZeichen As String = "€", Optional fitCellsToContent As Boolean = False, Optional mergeHeadersToCell As Char = "", Optional Landscape As Boolean = False, Optional fitToOnePage As Boolean = False, Optional openFile As Boolean = True, Optional fitWideToOnePage As Boolean = False, Optional useTableName As Boolean = False) As String
         Try
 
             Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SDL\tmp\" ' My.Computer.FileSystem.GetTempFileName
@@ -1288,7 +1288,7 @@ Public Class cProgramFunctions
             Dim wb As New XLWorkbook
             Dim counter = 0
             For Each dt In datatables
-                wb.Worksheets.Add(dt, "DATEN" & IIf(counter > 0, "_" & counter, ""))
+                wb.Worksheets.Add(dt, IIf(useTableName, dt.TableName, "DATEN" & IIf(counter > 0, "_" & counter, "")))
                 wb.Worksheets(counter).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter