DPM_PADM/DPM2016/Recall/Recall.vb

Public Class Recall
    Dim spalten As New Tabellenspalte
    Dim m_patientnr As Integer
    Dim Recalls As New DataTable
    Property Patientnr As Integer
        Get
            Return m_patientnr
        End Get
        Set(value As Integer)
            m_patientnr = value
            Get_Data()
        End Set
    End Property


    Sub Get_Data()
        Dim db As New clsDB
        Me.cbboxnrbehandler.Dataselection = db.Get_SQL(2)
        Me.cbboxnrbehandler.TableAlias = "Behandler_BH"
        Me.cbboxnrbehandler.Table = "Behandler"
        Me.cbboxnrbehandler.Displaymember = "Name"
        Me.cbboxnrbehandler.Valuemember = "nrprivat"
        Refresh_Recalls()

    End Sub

    Sub Refresh_Recalls()
        Dim db As New clsDB
        db.Get_Tabledata("Recall", "where nrprivat=" + Me.Patientnr.ToString + " order by datum desc")
        Recalls = db.dsDaten.Tables(0).Copy
        Me.C1Recall.DataSource = Nothing
        Me.C1Recall.DataSource = Me.Recalls
        Me.C1Recall.DataMember = Me.Recalls.TableName
        spalten.Spaltentitel_aktualisieren(Me.C1Recall, "RECALL", Recalls)

    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        Dim db As New clsDB
        Dim newkey As Integer
        newkey = db.Get_DBKey("Recall")

        db.Get_Tabledata("Recall", " where nrrecall=0")
        Dim r As DataRow
        r = db.dsDaten.Tables(0).NewRow
        r.Item(0) = newkey
        r.Item(1) = m_patientnr
        r.Item(2) = 1
        r.Item(3) = Me.cbboxnrbehandler.SelectedValue
        r.Item(4) = True
        r.Item(5) = Me.DDTTermin.Value
        r.Item(8) = Me.txtRechnungsbemerkung.Text
        r.Item(9) = 0
        r.Item(10) = Now
        r.Item(11) = Now
        r.Item(12) = Globals.ActUser
        r.Item(13) = True
        db.dsDaten.Tables(0).Rows.Add(r)
        db.Update_Data()
        Refresh_Recalls()

    End Sub

    Public Sub SetValues(ByVal Datum As DateTime, ByVal Patientnr As Integer, ByVal Behandler As Integer)
        Me.DDTTermin.Value = Datum
        Me.btnInsert.Select()
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        Try
            If MsgBox("Recall-Eintrag löschen?", vbYesNo + vbQuestion) = vbYes Then
                Dim db As New clsDB
                db.Exec_SQL("update Recall set aktiv=0,mutiert_am=getdate(),mutierer=" + Globals.ActUser.ToString + " where nrrecall=" + Me.C1Recall.Columns("nrrecall").Value.ToString)
                'db.Dispose()
                Refresh_Recalls()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub DDTTermin_Click(sender As Object, e As EventArgs) Handles DDTTermin.Click

    End Sub

    Private Sub DDTTermin_KeyDown(sender As Object, e As KeyEventArgs) Handles DDTTermin.KeyDown
        If e.KeyCode = Keys.Escape Then delete_date(sender)
        If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
        If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")

    End Sub

    Sub delete_date(sender)
        sender.value = Nothing
    End Sub

    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

    End Sub

    Private Sub C1Recall_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Recall.MouseDown
        Me.C1Recall.Bookmark = Me.C1Recall.RowContaining(e.Y)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Select Case ListBox1.SelectedIndex
            Case 0
                Dim pat As New clsDB
                pat.Get_Tabledata("Privat", "where nrprivat=" + Me.Patientnr.ToString)
                Try
                    If pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall") > 0 Then
                        Dim Newdate As DateTime
                        Newdate = DateAdd(DateInterval.Month, pat.dsDaten.Tables(0).Rows(0).Item("ZAZRecall"), Now)
                        Me.DDTTermin.Value = Newdate
                    End If
                Catch ex As Exception

                End Try
            Case 1
                Me.DDTTermin.Value = DateAdd(DateInterval.Month, 3, Now)
            Case 2
                Me.DDTTermin.Value = DateAdd(DateInterval.Month, 6, Now)
            Case 3
                Me.DDTTermin.Value = DateAdd(DateInterval.Month, 9, Now)
            Case 4
                Me.DDTTermin.Value = DateAdd(DateInterval.Month, 12, Now)
            Case 5
                Me.DDTTermin.Value = DateAdd(DateInterval.Month, 24, Now)

        End Select
    End Sub

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString
    End Sub

    Private Sub LocalizeString(sender As Object, e As DevComponents.DotNetBar.LocalizeEventArgs) Handles DDTTermin.LocalizeString
        'If e.Key = "monthcalendar_todaybutton" Then
        '    e.LocalizedValue = "Heute"
        'End If

        'If e.Key = "monthcalendar_clearbutton" Then
        '    e.LocalizedValue = "Löschen"
        'End If

        e.Handled = True
    End Sub
End Class