Public Class TarifDetail_PADM

    Dim m_tarifnr As Integer
    Property Tarifnr As Integer
        Get
            Return m_tarifnr
        End Get
        Set(value As Integer)
            m_tarifnr = value
        End Set
    End Property

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Dim db As New clsDB
        db.Get_Tabledata("tarifgrp", "where aktiv=1")
        Me.cbboxTarifgruppe.DataSource = db.dsDaten.Tables(0)
        Me.cbboxTarifgruppe.DisplayMember = "Tarifgruppe"
        Me.cbboxTarifgruppe.ValueMember = "nrtarifgruppe"
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Abort
        Me.Close()
    End Sub

    Public Function Handle_RTF(ByVal fnkt As Integer, ByVal text As String) As String
        If fnkt = 1 Then
            Me.richTextBoxExtended1.RichTextBox.Rtf = text
            Return ""
        Else
            Return Me.richTextBoxExtended1.RichTextBox.Rtf
        End If
    End Function
    Private Sub frmTarifDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.SoftwareType = "PADM" Then
            Me.Text = "Artikel-Detail"
            Me.Label1.Text = "Key"
            Me.Label7.Visible = False
            Me.Label8.Visible = False
            Me.Label9.Visible = False
            Me.Label10.Visible = False
            Me.Label11.Visible = False
            '            Me.Label5.Visible = False
            Me.Label6.Visible = False
            Me.txtprivat.Visible = False
            Me.txtsuva.Visible = False
            Me.txtmin.Visible = False
            Me.txtmax.Visible = False
            Me.txtBezi.Visible = False
            Me.cbboxmitlabor.Visible = False
            Me.Label12.Text = "Preis"
            Me.Label12.Top = Me.txtfrankenwert.Top

            'Me.txtfrankenwert.Top = Me.txtprivat.Top
            'Me.Button1.Top = Me.txtfrankenwert.Top + Me.txtfrankenwert.Height + 15
            'Me.Button2.Top = Me.txtfrankenwert.Top + Me.txtfrankenwert.Height + 15
            'Me.Height = Me.Button1.Top + Me.Button1.Height + 50

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Public Function New_Tarif() As Integer

        Dim db As New clsDB
        Dim newkey As Integer = db.Get_DBKey("Tarif")
        db.Get_Tabledata("User", "", "Select top 1 * from [tarif] where nrtarif=-1")
        Dim dr As DataRow = db.dsDaten.Tables(0).NewRow
        dr.Item(0) = newkey

        dr.Item(1) = 0
        dr.Item(2) = ""
        dr.Item(3) = ""
        dr.Item(4) = ""
        dr.Item(5) = ""
        dr.Item(6) = 0.00
        dr.Item(7) = 0.00
        dr.Item(8) = 0.00
        dr.Item(9) = 0.00
        dr.Item(10) = 0
        dr.Item(11) = 0.00
        dr.Item(12) = Now
        dr.Item(13) = Now
        dr.Item(14) = Globals.ActUser
        dr.Item(15) = 1
        db.dsDaten.Tables(0).Rows.Add(dr)
        db.Update_Data()

        Return newkey
    End Function
End Class