DPM_PADM/DPM2016 - Kopie/Sysadmin/frmAuswertungen.vb

Imports C1.Win.C1TrueDBGrid
Imports System.Drawing.Printing
Imports System.IO

Public Class frmAuswertungen

    Dim db As New clsDB
    Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub frmAuswertungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        For Each existing_printer As String In PrinterSettings.InstalledPrinters
            Me.cbboxprinter.Items.Add(existing_printer)
        Next existing_printer
        Dim oPS As New System.Drawing.Printing.PrinterSettings
        For i = 0 To cbboxprinter.Items.Count - 1
            If cbboxprinter.Items(i) = oPS.PrinterName Then cbboxprinter.SelectedItem = oPS.PrinterName
        Next
        Dim dt As New DataTable
        db.Get_Tabledata("Auswertung")
        dt = db.dsDaten.Tables(0).Copy
        Me.C1Auswertungen.DataSource = db.dsDaten.Tables(0)
        Me.C1Auswertungen.DataMember = db.dsDaten.Tables(0).TableName

        Dim printer As New clsPrinter
        printer.Get_Printers()
        Me.C1TrueDBDropdown1.DataSource = printer.Printers
        Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName
        Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName
        Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName
        Me.C1Auswertungen.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1
        Me.C1TrueDBDropdown1.DisplayColumns(0).AutoSize()

        Dim spalten As New Tabellenspalte
        spalten.Spaltentitel_aktualisieren(Me.C1Auswertungen, "Auswertung", db.dsDaten.Tables(0))
    End Sub

    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
        Dim db1 As New clsDB
        Try
            'If C1Auswertungen.Columns("Design_Funktion").Value = "Fakturierung" Then

            Dim fnkt As String = Me.C1Auswertungen.Columns("Design_Funktion").Value
                Dim param As String = Me.C1Auswertungen.Columns("SQL").Value
                Dim behandlung As String = db1.Get_Datavalue("Select top 1 nrbehandlung from behandlu order by nrbehandlung desc", "")
                Dim f As New frmReportView(Me.C1Auswertungen.Columns("AuswertungNr").Value, True, "Design" + Me.C1Auswertungen.Columns("Bezeichnung").Value, param, behandlung)
                f.Show()
                f.Print_Rechnung(False, True)
                f.Close()


            'End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub



    Private Sub C1Auswertungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Auswertungen.RowColChange
        Me.C1TrueDBDropdown2.DataSource = Nothing
        Dim printer As New clsPrinter
        printer.Get_Papersources(Me.C1Auswertungen.Columns("Drucker").Value.ToString)
        Me.C1TrueDBDropdown2.DataSource = printer.Papersources
        Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName
        Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName
        Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName
        Me.C1Auswertungen.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2
        Me.C1TrueDBDropdown2.DisplayColumns(0).AutoSize()
        Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
    End Sub

    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
        Me.Close()
    End Sub

    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
        db.Update_Data()

        MsgBox("Daten wurden gespeichert")
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim ppath As String
        ppath = Application.StartupPath + "\" + Globals.Auswertungsverzeicnis + "\PrinterConfig"
        If Not System.IO.Directory.Exists(ppath) Then
            MsgBox("Pfad für Printer-Konfigurationen fehlt - bitte erstellen:" + ppath)
            Exit Sub
        End If
        Dim PName As String
        PName = InputBox("Name für die Drucker-Konfiguration:")
        If PName = "" Then Exit Sub

        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter(ppath + "\" + PName + ".cfg", True)
        file.WriteLine(Me.cbboxprinter.Text)
        Dim dt As New DataTable
        dt = C1Auswertungen.DataSource

        For Each row In dt.Rows





            file.WriteLine(row("Auswertungnr").ToString + ";" + row("Drucker").ToString + ";" + row("Papierschacht").ToString + ";" + row("Kopien").ToString)
        Next
        file.Close()
        evh.Fire_Refresh_PrinterConfig()
    End Sub

    Shared Sub Chenge_Profile(ByVal Filename As String)
        Dim i As Integer = 0
        Dim line As String
        Dim readFile As System.IO.TextReader = New StreamReader(Filename)
        While True
            line = readFile.ReadLine()
            i = i + 1
            If line Is Nothing Then
                Exit While
            Else
                If i = 1 Then
                    Globals.defaultprinter = line
                Else
                    Update_Printerdata(line)

                End If
            End If
        End While
        readFile.Close()
        readFile = Nothing

    End Sub

    Shared Sub Update_Printerdata(ByVal line As String)
        Try
            Dim splitter() As String
            splitter = line.Split(";")
            Dim db As New clsDB
            db.Get_Tabledata("Auswertung", "Where auswertungnr=" + splitter(0))
            db.dsDaten.Tables(0).Rows(0).Item("Drucker") = splitter(1)
            db.dsDaten.Tables(0).Rows(0).Item("Papierschacht") = splitter(2)
            db.dsDaten.Tables(0).Rows(0).Item("Kopien") = splitter(3)
            db.Update_Data()
            db.Dispose()
        Catch
        End Try


    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click

    End Sub

    Private Sub VorlageImportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageImportierenToolStripMenuItem.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim nr As Integer
            Dim name As String
            nr = C1Auswertungen.Columns("Auswertungnr").Value
            name = OpenFileDialog1.FileName
            Dim db2 As New clsDB
            db2.Save_RptDatei(nr, name)

        End If

    End Sub

    Private Sub VorlageExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageExportierenToolStripMenuItem.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            Dim nr As Integer
            Dim name As String
            nr = C1Auswertungen.Columns("Auswertungnr").Value
            name = SaveFileDialog1.FileName
            Dim db2 As New clsDB
            db2.Get_RptDatei(nr, name)
            db2.Dispose()
        End If


    End Sub
End Class