20200108

Aviso/frmAddAktenvermerkShort.vb

@@ -1,4 +1,5 @@
 
+Imports System.ComponentModel
 Imports VERAG_PROG_ALLGEMEIN
 
 
@@ -85,6 +86,8 @@ Public Class frmAddAktenvermerkShort
             btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
         End If
         btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
+
+        txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
     End Sub
 
 
@@ -101,6 +104,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
             Exit Sub
         End If
 
+        Dim tmpSndId = -1
+
 
         'Plausibilität prüfen
         If sender Is btnNichtAvisiert Then
@@ -232,4 +237,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
         Me.Close()
     End Sub
 
+    Private Sub frmAddAktenvermerkShort_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        Try
+            myAviso.UPDATE_FreigabeInfo(txtFreigabeInfo.Text)
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class