neu

Aviso/frmEintragTV.vb

@@ -25,23 +25,33 @@ Public Class frmEintragTV
     Private Sub frmEintragTV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
         Me.CenterToParent()
 
-        cGlobal.Aktive_ID = 1    'standardmäßig ist der Wert 1
-
-        If cGlobal.Aktive_ID = 0 Then
-            'es erfolgt eine Neuanlage
-            Neuanlage = True
-            Me.Text = "Neuanlage TV-Text"
-        Else
-            Me.Text = "Änderung Text für TV-Anzeige"
-            'ausgewählter Datensatz wird geladen
-            myAvisoTV = AvisoTVDAL.LesenAvisoTV(cGlobal.Aktive_ID, "", "", "")
+        'cGlobal.Aktive_ID = 1    'standardmäßig ist der Wert 1
 
+        'If cGlobal.Aktive_ID = 0 Then
+        '    'es erfolgt eine Neuanlage
+        '   
+        '    
+        'Else
+        '    Me.Text = "Änderung Text für TV-Anzeige"
+        'ausgewählter Datensatz wird geladen
+        myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "")
+        If myAvisoTV IsNot Nothing Then
             'Werte(zuweisen)
             txtZeile1.Text = myAvisoTV.FixeZeile1
             txtZeile2.Text = myAvisoTV.FixeZeile2
+            Me.Text = "Änderung Text für TV-Anzeige"
+        Else
+            myAvisoTV = New cAvisoTV
+            myAvisoTV.Standort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+            myAvisoTV.Art = "INFO"
+            'Werte(zuweisen)
+            Neuanlage = True
+            txtZeile1.Text = ""
+            txtZeile2.Text = ""
+            Me.Text = "Neuanlage TV-Text"
         End If
 
-        hÄnderung = False
+
     End Sub
 
 
@@ -92,6 +102,7 @@ Public Class frmEintragTV
         'Änderungen werden gespeichert
         myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
         myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim
+        myAvisoTV.FixeZeile3 = ""
 
         AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)