neu

Aviso/frmAddSendungsvermerkShort.vb

@@ -111,13 +111,22 @@ Public Class frmAddSendungsvermerkShort
 
     Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
 
+        If insertVermerke() Then
 
+            'Jetzt wird Fenster geschlossen
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
+            Me.Close()
+        End If
+
+    End Sub
+
+    Function insertVermerke() As Boolean
 
         If txtDetail.Text <> "" Then
             If txtDetail.Text.Length > 240 Then
                 showErr(lblErr240Zeichen)
                 txtDetail.Focus()
-                Exit Sub
+                Return False
             End If
         End If
 
@@ -127,7 +136,7 @@ Public Class frmAddSendungsvermerkShort
             If txtFreierText.Text.Trim = "" Then
                 showErr(lblErrGrund)
                 txtFreierText.Focus()
-                Exit Sub
+                Return False
             End If
             insertSendungsVermerk(SendungID, myAviso.AvisoID, txtFreierText.Text.Trim, 47)
         End If
@@ -145,7 +154,7 @@ Public Class frmAddSendungsvermerkShort
 
         If cbxSonstDok.Checked Then
             If txtSonstigesDokumentFehlt.Text.Trim = "" Then
-                showErr(lblErrDokument) : txtSonstigesDokumentFehlt.Focus() : Exit Sub
+                showErr(lblErrDokument) : txtSonstigesDokumentFehlt.Focus() : Return False
             End If
             insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dokument '" & txtSonstigesDokumentFehlt.Text.Trim & "' fehlt - angefordert.", 25)
         End If
@@ -160,7 +169,7 @@ Public Class frmAddSendungsvermerkShort
             If txtSpedition.Text.Trim = "" Then
                 showErr(lblErrSpedition)
                 txtSpedition.Focus()
-                Exit Sub
+                Return False
             End If
             insertSendungsVermerk(SendungID, myAviso.AvisoID, "Fahrer muss die Sendung bei '" & txtSpedition.Text.Trim & "' abfertigen - weitergeleitet", 28)
         End If
@@ -183,7 +192,7 @@ Public Class frmAddSendungsvermerkShort
             '     If txtSendung.Text.Trim = "" Then
             'showErr(lblErrSendungProbleme)
             '     txtSendung.Focus()
-            '     Exit Sub
+            '     Return False
             '  End If
             'insertSendungsVermerk(SendungID,myAviso.AvisoID,"ATA-Nr. bei Sendung " & txtSendung.Text.Trim & " erhalten", 34)
 
@@ -195,7 +204,7 @@ Public Class frmAddSendungsvermerkShort
         '     If txtFach.Text.Trim = "" Then
         '         showErr(lblErrFach)
         '        txtFach.Focus()
-        '       Exit Sub
+        '       Return False
         '  End If
         ' insertSendungsVermerk(SendungID,myAviso.AvisoID, "Akt liegt im Fach '" & txtFach.Text.Trim & "'", 35)
 
@@ -213,17 +222,8 @@ Public Class frmAddSendungsvermerkShort
                 insertSendungsVermerk(SendungID, myAviso.AvisoID, txtDetail.Text.Substring(160, 80), 46)
             End If
         End If
-
-
-        'Jetzt wird Fenster geschlossen
-        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
-
-
-
-
-        Me.Close()
-
-    End Sub
+        Return True
+    End Function
 
     Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
         'Daten zuweisen und speichern
@@ -309,4 +309,13 @@ Public Class frmAddSendungsvermerkShort
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Me.Close()
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If insertVermerke() Then
+            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(myAviso.AvisoID, SendungID, 1, "T", 13, , 1)
+            insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
+            Me.Close()
+        End If
+    End Sub
 End Class