MDM UST, MSE-API, API-Einstellungen

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

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)

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.2.2")>
-<Assembly: AssemblyFileVersion("4.0.2.2")>
+<Assembly: AssemblyVersion("4.0.2.3")>
+<Assembly: AssemblyFileVersion("4.0.2.3")>