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

40
Aviso/frmHauptfenster.vb
View File

@@ -2573,20 +2573,28 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
ft.BringToFront()
Exit Sub
End If
Next
Me.Cursor = Cursors.WaitCursor
Dim sped As New SDL.frmSpeditionsbuchSuche
sped.Show()
Me.Cursor = Cursors.Default
Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
Return
End If
For Each ft As Form In Application.OpenForms
If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then
ft.BringToFront()
Return
End If
Next
Me.Cursor = Cursors.WaitCursor
Dim spedForm As New SDL.frmSpeditionsbuchSuche()
AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested
spedForm.Show()
Me.Cursor = Cursors.Default
End Sub
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
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
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
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">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</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" />
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1413,6 +1410,9 @@
BXidk8YAAAAAAElFTkSuQmCC
</value>
</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">
<value>True</value>
</metadata>
@@ -1525,21 +1525,6 @@
6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
</value>
</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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
@@ -1638,56 +1623,9 @@
eWpiMRXkm9o//9k=
</value>
</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">
<value>404, 17</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>
<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">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -1722,6 +1660,36 @@
BXidk8YAAAAAAElFTkSuQmCC
</value>
</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">
<value>496, 17</value>
</metadata>
@@ -1952,9 +1920,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</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">
<value>596, 17</value>
</metadata>

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -7664,7 +7664,7 @@ Public Class frmSendungsdetailsNEU
' End If
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
If SENDUNG_LIST IsNot Nothing Then
SND = SENDUNG_LIST(CURRENT_INDEX)