neu

Aviso/Anhänge/frmAddSendnung.vb

@@ -3,6 +3,7 @@
     Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim AvisoId As Integer
+    Public SendungsId As Integer = -1
     Sub New(AvisoId)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -30,6 +31,7 @@
             Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
 
             If Sendung.SAVE Then
+                SendungsId = Sendung.tblSnd_SendungID
                 Me.DialogResult = DialogResult.OK
             Else
                 Me.DialogResult = DialogResult.None