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

open sendungsdetails from speditionsbuch

Browse Source
This commit is contained in:
m.ilhan
2025-05-08 11:08:42 +02:00
parent 640ea88bef
commit 693b770877
4 changed files with 261 additions and 1996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmHauptfenster.vb
View File

@@ -2573,20 +2573,28 @@ ELSE_ATILLA:
End Try End Try
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
Return
End If
For Each ft As Form In Application.OpenForms For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then
ft.BringToFront() ft.BringToFront()
Exit Sub Return
End If End If
Next Next
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim sped As New SDL.frmSpeditionsbuchSuche
sped.Show() Dim spedForm As New SDL.frmSpeditionsbuchSuche()
AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested
spedForm.Show()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End If
End Sub End Sub
Private Declare Function ShowWindow Lib "user32" _ Private Declare Function ShowWindow Lib "user32" _
@@ -5274,6 +5282,12 @@ ELSE_ATILLA:
Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
End Sub End Sub
Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer)
Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId)
detailForm.Show()
End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions

2114
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

101
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -117,9 +117,6 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@@ -1413,6 +1410,9 @@
BXidk8YAAAAAAElFTkSuQmCC BXidk8YAAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@@ -1525,21 +1525,6 @@
6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII= 6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="clmnAbrId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrLeistungsNr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
@@ -1638,56 +1623,9 @@
eWpiMRXkm9o//9k= eWpiMRXkm9o//9k=
</value> </value>
</data> </data>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value> <value>404, 17</value>
</metadata> </metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC
AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA
GAAAAwEBAAAAAAAAAAAAAAAAAAgJBwr/xAApEAABBQACAgAEBwEAAAAAAAABAgMEBQYABxEhMRIjFUFh
IjITMwgW/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhED
EQA/AOxIqr/tW51+q1/YrLdbvu3USHInbOnpYEWtotNbxIrDMWHcR4rCGYzDbTaG2wPAHrgJJYf6Wtze
KVVp2Sc4H0/LHn9z7ly6cjA/q+s3p0MJUofD6RA/PgNPIuKbS9MazsHIa3tWFMhYzU2UNTvcutfeqruq
gvOpSpDl2tpwsvJB8KSUn8QQfHAo1wJ+XNC9rsB2fl4zyI8q13/d0aM6seUJf/667WgK9j0VAA8BLGep
etokENaHWaqr1EVlLNlm28o7Lki0AALTDiCWHEuL/rUVgEez44DE5jNWGO/zTvau0YciSJeR7Bsm4ckA
S4kadBkFpt4AlIWEAfMAeBU3gSK7Z3lpCqddk8XpMzXaGT2x3K3drm7Opz9lTQVam3cQn5JsyO8hUlLo
UhSB5CR59eQeAsjVp3IzDMBrtClTFKFo/iHcdJ+1z4+/uvngahkN5p67r3srJbvWY+wgScDrPsEw9gVF
5dO28mKttuEhEec++6HgtRR5HogJHxA4FwOAcA4BwDgf/9k=
</value>
</data>
<data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQIBAQEBAQICAgICAgIC
AgICAgMCAgIDAwMDAwMFBQUFBQUFBQUFBQUFBQX/2wBDAQEBAQIBAgMCAgMEBAMEBAUFBQUFBQUFBQUF
BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQX/wAARCAAZABkDAREAAhEBAxEB/8QA
GAAAAwEBAAAAAAAAAAAAAAAAAAgJBwr/xAApEAABBQACAgAEBwEAAAAAAAABAgMEBQYABxEhMRIjFUFh
IjITMwgW/8QAFAEBAAAAAAAAAAAAAAAAAAAAAP/EABQRAQAAAAAAAAAAAAAAAAAAAAD/2gAMAwEAAhED
EQA/AOxIqr/tW51+q1/YrLdbvu3USHInbOnpYEWtotNbxIrDMWHcR4rCGYzDbTaG2wPAHrgJJYf6Wtze
KVVp2Sc4H0/LHn9z7ly6cjA/q+s3p0MJUofD6RA/PgNPIuKbS9MazsHIa3tWFMhYzU2UNTvcutfeqruq
gvOpSpDl2tpwsvJB8KSUn8QQfHAo1wJ+XNC9rsB2fl4zyI8q13/d0aM6seUJf/667WgK9j0VAA8BLGep
etokENaHWaqr1EVlLNlm28o7Lki0AALTDiCWHEuL/rUVgEez44DE5jNWGO/zTvau0YciSJeR7Bsm4ckA
S4kadBkFpt4AlIWEAfMAeBU3gSK7Z3lpCqddk8XpMzXaGT2x3K3drm7Opz9lTQVam3cQn5JsyO8hUlLo
UhSB5CR59eQeAsjVp3IzDMBrtClTFKFo/iHcdJ+1z4+/uvngahkN5p67r3srJbvWY+wgScDrPsEw9gVF
5dO28mKttuEhEec++6HgtRR5HogJHxA4FwOAcA4BwDgf/9k=
</value>
</data>
<data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -1722,6 +1660,36 @@
BXidk8YAAAAAAElFTkSuQmCC BXidk8YAAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<metadata name="clmnAbrId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrLeistungsNr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAbrPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>765, 17</value>
</metadata>
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>496, 17</value> <value>496, 17</value>
</metadata> </metadata>
@@ -1952,9 +1920,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value> <value>174, 17</value>
</metadata> </metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value> <value>596, 17</value>
</metadata> </metadata>

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -7664,7 +7664,7 @@ Public Class frmSendungsdetailsNEU
' End If ' End If
End Sub End Sub
Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs)
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
If SENDUNG_LIST IsNot Nothing Then If SENDUNG_LIST IsNot Nothing Then
SND = SENDUNG_LIST(CURRENT_INDEX) SND = SENDUNG_LIST(CURRENT_INDEX)