From 13a2aa365ec08c0688d37fee9b3a4198056bc4af Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 13 Jun 2024 08:36:09 +0200 Subject: [PATCH] DatevExport --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 2 +- Aviso/usrcntlAktDetails.vb | 9 +++++++-- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index e5dee9c..5940e68 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 8d9ecc7..57cb581 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -4561,7 +4561,7 @@ Public Class frmHauptfenster Try 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!") Else MsgBox("Es wurden keine Buchungen exportiert!") diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 9dde028..501734b 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -1303,9 +1303,14 @@ Public Class usrcntlAktDetails Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint If painted Then Exit Sub If dgvSendungen.RowCount = 0 Then Exit Sub - painted = True + gridVermerke_Paint(gridVermerke) - painted = False + painted = True + + + 'painted = True + 'gridVermerke_Paint(gridVermerke) + 'painted = False End Sub Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)