edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix cam

Browse Source
This commit is contained in:
d.breimaier
2024-12-30 13:23:03 +01:00
parent a6ab0aecc8
commit 1f35a9814b
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/kunden/usrCntlCBAM.vb
View File

@@ -1092,7 +1092,7 @@ Public Class usrCntlCBAM
Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False)
btnCBAM_DS_DAKOSY_Deteil.Tag = path
btnCBAM_DS_DAKOSY_Deteil.Enabled = True
btnCBAM_DS_DAKOSY_Copy.Enabled = True

4
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -270,11 +270,11 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
If autoAdjust Then
'Spaltenbreite auto:
wb.Worksheets(0).Columns().AdjustToContents()
If wb.Worksheets(0).ColumnCount > 0 Then wb.Worksheets(0).Columns().AdjustToContents()
End If
Dim filename As String = ""
Dim filename As String = ""
If optFileName <> "" Then
filename = sPath & optFileName & endung '".xlsx"
While System.IO.File.Exists(filename)