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

ustv, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-11 16:08:43 +02:00
parent 329621d2d8
commit 2759792f0b
6 changed files with 94 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1261,7 +1261,7 @@ Public Class frmBU_Mahnlauf
Dim dt = MyDatagridview1.DataSource
If cbxZahlungseingaenge.Checked Then
cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, "Zahlungseingänge vom " & txtZahlEingaenge._value,, True)
cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)},,, "Zahlungseingänge vom " & txtZahlEingaenge._value,, True)
Else
cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)})
End If
@@ -1357,7 +1357,7 @@ Public Class frmBU_Mahnlauf
Dim dt = MyDatagridview1.DataSource
Dim desc = "Zahlungseingänge vom " & txtZahlEingaenge._value
Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)},,, desc,, True,,,, False)
Dim attachment = cProgramFunctions.genExcelFromDT_NEW(dt, {"D1:D" & (dt.Rows.Count + 1)},,, desc,, True,,,, False)
Dim outl As New Outlook.Application