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

Version, cFakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-28 08:22:31 +02:00
parent 92cc9e342b
commit b0a24c37cf
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -108,8 +108,8 @@ Public Class frmSendungAnhangImport
If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then
Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor) Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor)
Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL) Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL)
Dim fromIdx As Integer = Math.Min(i1, i2) Dim fromIdx As Integer = Math.min(i1, i2)
Dim toIdx As Integer = Math.Max(i1, i2) Dim toIdx As Integer = Math.max(i1, i2)
' Vorher alles deselektieren (beide Panels) ' Vorher alles deselektieren (beide Panels)
For Each c As Control In flpnlAviso.Controls For Each c As Control In flpnlAviso.Controls
@@ -183,7 +183,7 @@ Public Class frmSendungAnhangImport
End Sub End Sub
End Sub End Sub
Sub initLocationViewer(loc, typ) Sub initLocationViewer(loc As String, typ As String)
Try Try
@@ -206,7 +206,7 @@ Public Class frmSendungAnhangImport
If loc <> "" Then If loc <> "" Then
Dim data = File.ReadAllBytes(loc) Dim data = File.ReadAllBytes(loc)
Dim header As String = System.Text.Encoding.ASCII.GetString(data, 0, Math.Min(4, data.Length)) Dim header As String = System.Text.Encoding.ASCII.GetString(data, 0, Math.min(4, data.Length))
If header = "%PDF" Then If header = "%PDF" Then
@@ -236,7 +236,7 @@ Public Class frmSendungAnhangImport
Button5.Visible = PdfViewer.Visible Button5.Visible = PdfViewer.Visible
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Path: " & loc, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub

4
Aviso/My Project/AssemblyInfo.vb
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.3.0.2")> <Assembly: AssemblyVersion("4.3.0.3")>
<Assembly: AssemblyFileVersion("4.3.0.2")> <Assembly: AssemblyFileVersion("4.3.0.3")>

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2018,7 +2018,7 @@ Public Class frmSendungsdetailsNEU
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbuch Eingetrag öffnen") setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbucheintrag öffnen")
End If End If