DatevExport

This commit is contained in:
2024-06-13 08:36:09 +02:00
parent 7f1ac079c0
commit 13a2aa365e
3 changed files with 10 additions and 5 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.0.4")> <Assembly: AssemblyVersion("4.0.0.5")>
<Assembly: AssemblyFileVersion("4.0.0.4")> <Assembly: AssemblyFileVersion("4.0.0.5")>

View File

@@ -4561,7 +4561,7 @@ Public Class frmHauptfenster
Try Try
Dim Pathlist As New List(Of String) Dim Pathlist As New List(Of String)
If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist) Then If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then
MsgBox("Buchungen wurden erfolgreich exportiert!") MsgBox("Buchungen wurden erfolgreich exportiert!")
Else Else
MsgBox("Es wurden keine Buchungen exportiert!") MsgBox("Es wurden keine Buchungen exportiert!")

View File

@@ -1303,9 +1303,14 @@ Public Class usrcntlAktDetails
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
If painted Then Exit Sub If painted Then Exit Sub
If dgvSendungen.RowCount = 0 Then Exit Sub If dgvSendungen.RowCount = 0 Then Exit Sub
painted = True
gridVermerke_Paint(gridVermerke) gridVermerke_Paint(gridVermerke)
painted = False painted = True
'painted = True
'gridVermerke_Paint(gridVermerke)
'painted = False
End Sub End Sub
Shared Sub gridVermerke_Paint(gridvermerke As DataGridView) Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)