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

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

@@ -108,8 +108,8 @@ Public Class frmSendungAnhangImport
If pAnchor IsNot Nothing AndAlso pAnchor Is pClick Then
Dim i1 As Integer = pAnchor.Controls.IndexOf(anchor)
Dim i2 As Integer = pAnchor.Controls.IndexOf(USRCNTL)
Dim fromIdx As Integer = Math.Min(i1, i2)
Dim toIdx As Integer = Math.Max(i1, i2)
Dim fromIdx As Integer = Math.min(i1, i2)
Dim toIdx As Integer = Math.max(i1, i2)
' Vorher alles deselektieren (beide Panels)
For Each c As Control In flpnlAviso.Controls
@@ -183,7 +183,7 @@ Public Class frmSendungAnhangImport
End Sub
End Sub
Sub initLocationViewer(loc, typ)
Sub initLocationViewer(loc As String, typ As String)
Try
@@ -206,7 +206,7 @@ Public Class frmSendungAnhangImport
If loc <> "" Then
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
@@ -219,9 +219,9 @@ Public Class frmSendungAnhangImport
End If
'NOT WORKING
'PdfViewer.LoadFromFile(loc) NOT WORKING
End If
'NOT WORKING
'PdfViewer.LoadFromFile(loc) NOT WORKING
End If
ElseIf typ = "BILD" Or typ = ".jpg" Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
@@ -236,7 +236,7 @@ Public Class frmSendungAnhangImport
Button5.Visible = PdfViewer.Visible
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 Sub

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.0.2")>
<Assembly: AssemblyFileVersion("4.3.0.2")>
<Assembly: AssemblyVersion("4.3.0.3")>
<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
btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbuch Eingetrag öffnen")
setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbucheintrag öffnen")
End If