Aviso, etc.

Aviso/AktenErfassung/frmEintragAviso.vb

@@ -32,6 +32,8 @@ Public Class frmEintragAviso
     Dim PROG As New cProgramFunctions
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
+    Dim INFO As String = ""
+
 
     Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
 
@@ -40,6 +42,14 @@ Public Class frmEintragAviso
         Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
     End Sub
 
+
+    Public Sub New(INFO As String)
+        InitializeComponent()
+        Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
+
+        Me.INFO = INFO
+    End Sub
+
     Private Sub frmEintragAviso_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         If FIRMA_TMP = "ATILLA" And myAviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
             If myAviso.Frächter = "" Then
@@ -325,6 +335,9 @@ Public Class frmEintragAviso
             dtpAvisoEingangDatum.Value = Now.Date
             dtpAvisoEingangZeit.Value = LeerDatum
             txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
+            If INFO <> "" Then txtÄnderungen.Text &= vbNewLine & vbNewLine & INFO
+
+
             lblStatus.Text = "Neuanlage"
             optAvisoEingang.Checked = True
             kdAvisierer.Text = ""
@@ -666,18 +679,18 @@ Public Class frmEintragAviso
             'If Neuanlage Then
             '  If optAvisoEingang.Checked Then
             '  If optAvisoEingang.Checked Thensend
-            '    If dtpAvisoEingangDatum.Value < Now.Date Then
+            '    If dtpAvisoEingangDatum.Value <Now.Date Then
             '         Dim antwort As MsgBoxResult = MsgBox("Das Aviso-Eingangsdatum liegt in der Vergangenheit. Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
-            '                                 "Aviso speichern")
-            '        If antwort = vbNo Then
-            '          dtpAvisoEingangDatum.Focus()
-            '          Exit Sub
-            '      End If
-            '    End If
-            '  End If
-            'End If
+                                        '                                 "Aviso speichern")
+                                        '        If antwort = vbNo Then
+                                        '          dtpAvisoEingangDatum.Focus()
+                                        '          Exit Sub
+                                        '      End If
+                                        '    End If
+                                        '  End If
+                                        'End If
 
-            If txtLKW_Nr.Text.Trim = "" Then
+                                        If txtLKW_Nr.Text.Trim = "" Then
                 ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
                 lblErr_LKW.Visible = True
                 txtLKW_Nr.Focus()
@@ -1079,6 +1092,10 @@ Public Class frmEintragAviso
                 End If
             End If
 
+            If INFO <> "" Then
+                AvisoStatusFunctions.insertVermerkAllg(tmpId, INFO, 123)
+            End If
+
             If myAviso.Warenort Then
                 AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
             End If