119 lines
4.1 KiB
VB.net
119 lines
4.1 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
|
|
|
Public Class frmEintragTV
|
|
'Public frmHilf As frmHauptfenster
|
|
|
|
Dim AvisoTVDAL As New cAvisoTVDAL
|
|
Dim myAvisoTV As New cAvisoTV
|
|
Dim hÄnderung As Boolean = False
|
|
Dim Neuanlage As Boolean = False
|
|
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Icon = cMeineFunktionenAVISO.GetProgrammIcon
|
|
End Sub
|
|
|
|
Private Sub frmEintragTV_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
|
'Escape händisch abfangen und auf Abbruch-Taste legen
|
|
If e.KeyCode = Keys.Escape Then
|
|
btnAbbruch.PerformClick()
|
|
End If
|
|
End Sub
|
|
|
|
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
|
|
'
|
|
'
|
|
'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
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
|
|
'Irgendwas wurde geändert, deshalb ein Hinweis, ob auch wirklich abgebrochen werden soll
|
|
'If hÄnderung Then
|
|
' Dim antwort As MsgBoxResult = MsgBox("Wollen Sie wirklich abbrechen?" & vbCrLf & vbCrLf & "Alle Änderungen gehen dabei verloren.", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
|
|
' "Dateneingabe wird abgebrochen")
|
|
' If antwort = vbNo Then
|
|
' Exit Sub
|
|
' End If
|
|
'End If
|
|
|
|
Me.Close()
|
|
End Sub
|
|
|
|
'Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtAnkunft_Betreff.GotFocus, txtFreigabe_Betreff.GotFocus
|
|
' CType(sender, TextBox).SelectAll()
|
|
'End Sub
|
|
|
|
'Private Sub txtBilanzart_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtBilanzart.TextChanged, txtBilanzart.TextChanged, txtAIS_Bilanzart.TextChanged, txtInfo.TextChanged, txtAvisoTV.TextChanged
|
|
' hÄnderung = True 'es wurde etwas geändert
|
|
'End Sub
|
|
|
|
'Private Sub txtAvisoTV_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
|
|
' 'Es sind nur Zahleneingaben erlaubt
|
|
' Dim asc As Integer = Convert.ToInt32(e.KeyChar)
|
|
' Select Case asc
|
|
' 'Folgende Tasten sind erlaubt
|
|
' '8 = Rücktaste (Back)
|
|
' '13 = Enter
|
|
' '27 = Esc
|
|
' '48 To 57 = 0 bis 9
|
|
' Case 8, 13, 27, 48 To 57
|
|
' Case Else
|
|
' e.Handled = True
|
|
' End Select
|
|
'End Sub
|
|
|
|
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
|
|
'Falls keine Änderung oder Neuanlage, dann kann Fenster geschlossen werden
|
|
'If Not hÄnderung And myAvisoTV.AvisoTVID > 0 Then Me.Close()
|
|
|
|
'Logische Prüfungen vor dem Speichern
|
|
|
|
'keine Prüfungen notwendig
|
|
|
|
'Änderungen werden gespeichert
|
|
myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
|
|
myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim
|
|
myAvisoTV.FixeZeile3 = ""
|
|
|
|
AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)
|
|
|
|
If Neuanlage Then
|
|
'bei Neuanlage KZ setzen, damit Tabelle neu anzeigt wird
|
|
cGlobal.Aktive_ID = 1
|
|
End If
|
|
|
|
'Jetzt wird Fenster geschlossen
|
|
Me.Close()
|
|
End Sub
|
|
|
|
End Class
|