Compare commits
5 Commits
ac074fa2ea
...
15653490b1
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
15653490b1 | ||
|
|
c9c0becda4 | ||
|
|
ac4da26fa7 | ||
|
|
f7df0f1a27 | ||
|
|
d88c7186ef |
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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")>
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
@@ -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")>
|
||||||
|
|||||||
Reference in New Issue
Block a user