Imports Telerik.Web.UI
Imports System.Web.Configuration
Public Class Stammdaten
    Inherits System.Web.UI.Page
    Dim dh As New clsDatahandling
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Try
                Dim ds As New DataSet
                ds = dh.Get_Tabledata("Select * from web_lehrer where lehrernr=" + Session("lehrer").ToString, False, True)
                If dh.Get_Option(11) = "1/2" Then
                    Me.btnSpeichern.Visible = False
                    Me.btnSpeichern_Stammdaten.Visible = True
                Else
                    Me.btnSpeichern_Stammdaten.Visible = False
                    Me.btnSpeichern.Visible = True
                End If
                Me.txtAnredea.SelectedValue = ds.Tables(0).Rows(0).Item("Anrede").ToString
                Me.txtName.Text = ds.Tables(0).Rows(0).Item("name").ToString
                Me.txtVorname.Text = ds.Tables(0).Rows(0).Item("Vorname").ToString
                Me.RadComboBox1.SelectedValue = ds.Tables(0).Rows(0).Item("Schulhausnr")
                Me.txtNatel.Text = ds.Tables(0).Rows(0).Item("Natel").ToString
                Me.txtTelefon.Text = ds.Tables(0).Rows(0).Item("Telefon").ToString
                Me.txtEMail.Text = ds.Tables(0).Rows(0).Item("email").ToString
                'Me.txtBriefanrede.Text = ds.Tables(0).Rows(0).Item("Briefanrede").ToString
                Me.txtAnredea.Focus()
            Catch ex As Exception
                'Me.txtBriefanrede.Text = ex.Message
                Response.Redirect("~/Default.aspx")
            End Try
        End If
    End Sub

    Protected Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
        dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
        'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
        Dim ds As New DataSet
        ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
        If ds.Tables(0).Rows.Count < 1 Then
            Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
            Return
        End If
        Response.Redirect("~/lehrer/schueler.aspx")
    End Sub

    Private Sub RadGrid1_InsertCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.InsertCommand
        Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
        Dim editMan As GridEditManager = editedItem.EditManager
        Dim haserror As Boolean = False
        Dim column As GridColumn

        For Each column In e.Item.OwnerTableView.Columns
            If TypeOf column Is IGridEditableColumn Then
                Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
                If (editableCol.IsEditable) Then
                    Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)

                    Dim editorType As String = CType(editor, Object).ToString()
                    Dim editorText As String = "unknown"
                    Dim editorValue As Object = Nothing

                    If (TypeOf editor Is GridTextColumnEditor) Then
                        editorText = CType(editor, GridTextColumnEditor).Text
                        editorValue = CType(editor, GridTextColumnEditor).Text
                        If editorText.Trim = "" Then haserror = True
                    End If

                    If (TypeOf editor Is GridBoolColumnEditor) Then
                        editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
                        editorValue = CType(editor, GridBoolColumnEditor).Value
                    End If

                    If (TypeOf editor Is GridDropDownColumnEditor) Then
                        editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
                        editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
                    End If
                    If (TypeOf editor Is GridDateTimeColumnEditor) Then
                        editorText = CType(editor, GridDateTimeColumnEditor).Text
                        editorValue = CType(editor, GridDateTimeColumnEditor).Text
                    End If
                    'Try
                    '    Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
                    '    changedRows(0)(column.UniqueName) = editorValue
                    '    Me.EmployeesData.Tables("Employees").AcceptChanges()
                    'Catch ex As Exception
                    '    RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
                    '    e.Canceled = True
                    'End Try

                End If
            End If
        Next
        If haserror Then
            Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
            e.Canceled = True
        End If

    End Sub


    Private Sub RadGrid1_UpdateCommand(sender As Object, e As Telerik.Web.UI.GridCommandEventArgs) Handles RadGrid1.UpdateCommand
        Dim editedItem As GridEditableItem = CType(e.Item, GridEditableItem)
        Dim editMan As GridEditManager = editedItem.EditManager
        Dim haserror As Boolean = False
        Dim column As GridColumn


        For Each column In e.Item.OwnerTableView.Columns

            If TypeOf column Is IGridEditableColumn Then
                Dim editableCol As IGridEditableColumn = CType(column, IGridEditableColumn)
                If (editableCol.IsEditable) Then
                    Dim editor As IGridColumnEditor = editMan.GetColumnEditor(editableCol)

                    Dim editorType As String = CType(editor, Object).ToString()
                    Dim editorText As String = "unknown"
                    Dim editorValue As Object = Nothing

                    If (TypeOf editor Is GridTextColumnEditor) Then
                        editorText = CType(editor, GridTextColumnEditor).Text
                        editorValue = CType(editor, GridTextColumnEditor).Text
                        If editorText.Trim = "" Then haserror = True
                    End If
                   
                    If (TypeOf editor Is GridBoolColumnEditor) Then
                        editorText = CType(editor, GridBoolColumnEditor).Value.ToString()
                        editorValue = CType(editor, GridBoolColumnEditor).Value
                    End If

                    If (TypeOf editor Is GridDropDownColumnEditor) Then
                        editorText = CType(editor, GridDropDownColumnEditor).SelectedText & "; " & CType(editor, GridDropDownColumnEditor).SelectedValue
                        editorValue = CType(editor, GridDropDownColumnEditor).SelectedValue
                    End If
                    If (TypeOf editor Is GridDateTimeColumnEditor) Then
                        editorText = CType(editor, GridDateTimeColumnEditor).Text
                        editorValue = CType(editor, GridDateTimeColumnEditor).Text
                    End If
                    'Try
                    '    Dim changedRows As DataRow() = Me.EmployeesData.Tables("Employees").Select("EmployeeID = " & editedItem.OwnerTableView.DataKeyValues(editedItem.ItemIndex)("EmployeeID"))
                    '    changedRows(0)(column.UniqueName) = editorValue
                    '    Me.EmployeesData.Tables("Employees").AcceptChanges()
                    'Catch ex As Exception
                    '    RadGrid1.Controls.Add(New LiteralControl("<strong>Unable to set value of column '" & column.UniqueName & "'</strong> - " + ex.Message))
                    '    e.Canceled = True
                    'End Try

                End If
            End If
        Next
        If haserror Then
            Show_Message(1, "Daten können nicht gespeichert werden. Es sind zwinged alle Felder zu befüllen.")
            e.Canceled = True
        End If
    End Sub

    Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
        Dim image1 As String
        Select Case type
            Case 1
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
            Case 2
                image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
        End Select
        RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)

    End Sub

    Protected Sub btnSpeichern_Stammdaten_Click(sender As Object, e As EventArgs) Handles btnSpeichern_Stammdaten.Click
        dh.UpdateTable("web_lehrer", "Anrede", Me.txtAnredea.SelectedValue, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Name", Me.txtName.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Vorname", Me.txtVorname.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Schulhausnr", Me.RadComboBox1.SelectedValue.ToString, False, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "Natel", Me.txtNatel.Text, True, "lehrernr", Session("lehrer"))
        dh.UpdateTable("web_lehrer", "EMail", Me.txtEMail.Text, True, "lehrernr", Session("lehrer"))
        'dh.UpdateTable("web_lehrer", "Briefanrede", Me.txtBriefanrede.Text, True, "lehrernr", Session("lehrer"))
        Dim ds As New DataSet
        ds = dh.Get_Tabledata("Select * from klasse where lehrernr=" + Session("Lehrer").ToString + " and aktiv=1", False, True)
        If ds.Tables(0).Rows.Count < 1 Then
            Show_Message(1, "Es ist noch keine Klasse erfasst. Bitte erfassen Sie Ihre Klasse.")
            Return
        End If
    End Sub
End Class