5 Commits

Author SHA1 Message Date
Jonathan Jenne
15653490b1 Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo 2021-01-29 11:35:56 +01:00
Jonathan Jenne
c9c0becda4 Jobs: Version 1.3.2.0 2021-01-27 15:55:40 +01:00
Jonathan Jenne
ac4da26fa7 Jobs/ZUGFeRD: Create subfolders per date for processed files 2021-01-27 15:54:08 +01:00
Jonathan Jenne
f7df0f1a27 LookupGrid: Version 1.0.3.0 2021-01-26 14:36:06 +01:00
Jonathan Jenne
d88c7186ef LookupGrid: Hide unused button instead of disabling them 2021-01-26 14:16:41 +01:00
4 changed files with 9 additions and 9 deletions

View File

@@ -88,23 +88,23 @@ Public Class LookupControl2
AddHandler QueryPopUp, AddressOf HandleQueryPopup AddHandler QueryPopUp, AddressOf HandleQueryPopup
End Sub End Sub
Private Sub SetFormButtonEnabled(Enabled As Boolean) Private Sub SetFormButtonEnabled(pVisible As Boolean)
Dim oButton As EditorButton = Properties.Buttons. Dim oButton As EditorButton = Properties.Buttons.
Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM). Where(Function(b) b.Tag = TAG_BUTTON_LOOKUP_FORM).
FirstOrDefault() FirstOrDefault()
If oButton IsNot Nothing Then If oButton IsNot Nothing Then
oButton.Enabled = Enabled oButton.Visible = pVisible
End If End If
End Sub End Sub
Private Sub SetDropdownButtonEnabled(Enabled As Boolean) Private Sub SetDropdownButtonEnabled(pVisible As Boolean)
Dim oButton As EditorButton = Properties.Buttons. Dim oButton As EditorButton = Properties.Buttons.
Where(Function(b) b.Tag = TAG_DROPDOWN). Where(Function(b) b.Tag = TAG_DROPDOWN).
FirstOrDefault() FirstOrDefault()
If oButton IsNot Nothing Then If oButton IsNot Nothing Then
oButton.Enabled = Enabled oButton.Visible = pVisible
End If End If
End Sub End Sub

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("1.0.2.3")> <Assembly: AssemblyVersion("1.0.3.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -467,8 +467,8 @@ Public Class ImportZUGFeRDFiles
IsSuccess As Boolean) IsSuccess As Boolean)
Dim oFinalMoveDirectory As String = MoveDirectory Dim oFinalMoveDirectory As String = MoveDirectory
Dim oDateSubDirectoryName As String = Now.ToString("yyyy-MM-dd") Dim oDateSubDirectoryName As String = Now.ToString("yyyy\\MM\\dd")
Dim oAttachmentDirectory As String = Path.Combine(MoveDirectory, Args.AttachmentsSubDirectory, oDateSubDirectoryName) Dim oAttachmentDirectory As String = Path.Combine(oFinalMoveDirectory, Args.AttachmentsSubDirectory, oDateSubDirectoryName)
' Files will be moved to a subfolder for the current day if they are rejected ' Files will be moved to a subfolder for the current day if they are rejected
If Not IsSuccess Then If Not IsSuccess Then

View File

@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern ' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
<Assembly: AssemblyVersion("1.3.1.0")> <Assembly: AssemblyVersion("1.3.2.0")>
<Assembly: AssemblyFileVersion("1.3.1.0")> <Assembly: AssemblyFileVersion("1.3.2.0")>