Public Class frmFirmaAP
    Dim m_firmanr As Integer
    Property firmanr As Integer
        Get
            Return m_firmanr

        End Get
        Set(value As Integer)
            m_firmanr = value
        End Set
    End Property

    Dim m_nrfirmaap As Integer
    Property nrfirmaap As Integer
        Get
            Return m_nrfirmaap
        End Get
        Set(value As Integer)
            m_nrfirmaap = value
        End Set
    End Property
    Dim db As New clsDB
    Dim anreden As New DataTable
    Dim daten As New DataTable
    Private Sub frmFirmaAP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        db.Get_Tabledata("Anrede", "", "")
        anreden = db.dsDaten.Tables(0).Copy
        Me.cbboxAnrede.DataSource = anreden
        Me.cbboxAnrede.DisplayMember = "Anrede_D"
        Me.cbboxAnrede.ValueMember = "nranrede"

        If Me.nrfirmaap <> 0 Then
            db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
            daten = db.dsDaten.Tables(0).Copy
            Me.txtName.Text = daten.Rows(0).Item(3)
            Me.txtBriefanrede.Text = daten.Rows(0).Item(4)
            Me.txtTelefon.Text = daten.Rows(0).Item(5)
            Me.txtTelefax.Text = daten.Rows(0).Item(6)
            Me.txtBemerkung.Text = daten.Rows(0).Item(7)
        End If
    End Sub

    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
        If Me.nrfirmaap <> 0 Then
            Save_Data()
            Me.Close()
        Else
            db.Insert_New_Entry("firmaap", "nrfirmaap", True, "Select top 1 * from firmaap order by nrfirmaap desc")
            Me.nrfirmaap = db.dsDaten.Tables(0).Rows(0).Item(0)
            db.Get_Tabledata("Firmaap", "where nrfirmaap=" + Me.nrfirmaap.ToString, "", "", False)
            daten = db.dsDaten.Tables(0).Copy
            Update_Table("nrfirma", Me.firmanr)
            Save_Data()
            Me.Close()
        End If
    End Sub

    Sub Save_Data()
        Update_Table("Name", Me.txtName.Text)

        Update_Table("Briefanrede", Me.txtBriefanrede.Text)
        Update_Table("Telefon", Me.txtTelefon.Text)
        Update_Table("Telefax", Me.txtTelefax.Text)
        Update_Table("Bemerkung", Me.txtBemerkung.Text)
        Update_Table("Nranrede", Me.cbboxAnrede.SelectedValue)
        Update_Table("Mutiert_am", Now)
        Update_Table("Mutierer", Globals.ActUser)
        db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
    End Sub

    Sub Update_Table(ByVal Tag As String, ByVal Val As Object)
        Try
            Try
                If Val = "  .  ." Then
                    Val = "1900-01-01"
                End If
                ' Val = Val.ToString.Replace(".", "")
                'Val = Trim(Val)
                daten.Rows(0).Item(Tag) = Val
            Catch
            End Try

            daten.Rows(0).Item(Tag) = Val

        Catch
        End Try

    End Sub

    Sub Delete_ap()
        Update_Table("aktiv", False)
        Update_Table("Mutiert_am", Now)
        Update_Table("Mutierer", Globals.ActUser)
        db.updatedata("select * from firmaap where nrfirmaap = " & Me.nrfirmaap.ToString, daten, False, True)
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub
End Class