diff --git a/Aviso/Anhänge/frmAddSendnung.vb b/Aviso/Anhänge/frmAddSendnung.vb index 9fe8ce2..4d16505 100644 --- a/Aviso/Anhänge/frmAddSendnung.vb +++ b/Aviso/Anhänge/frmAddSendnung.vb @@ -5,6 +5,7 @@ Dim AvisoId As Integer Dim AVISOFUNC As New AvisoStatusFunctions Public SendungsId As Integer = -1 + Public frmName As String = "Sendung hinzufügen" Sub New(AvisoId) ' Dieser Aufruf ist für den Designer erforderlich. @@ -23,7 +24,24 @@ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub + + + + Sub New(AvisoId, SENDUNG, frmName) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.AvisoId = AvisoId + Me.Sendung = SENDUNG + Me.frmName = frmName + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load + + + Me.Text = frmName + cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True) txtEmpfaenger.initKdBox(Me) txtEmpfaenger.usrcntlWIDTH = 360 diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index e45fe8b..4623550 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -1738,7 +1738,7 @@ Public Class frmSendungAnhangImport If cboSendungen._value <> "" Then Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value) If SND IsNot Nothing Then - Dim f As New frmAddSendnung(AvisoId, SND) + Dim f As New frmAddSendnung(AvisoId, SND, "Sendung bearbeiten") If f.ShowDialog(Me) = DialogResult.OK Then initSendungen() cboSendungen.changeItem(f.SendungsId) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 43819b4..ac3dad7 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +