Imports DocumentFormat.OpenXml.Wordprocessing

Public Class frmDatenarchivarchiv


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Me.Cursor = Cursors.WaitCursor

            Dim maxEintraege As Integer
            Dim datumVon As Date
            Dim datumBis As Date

            If Not Integer.TryParse(txtMax._value, maxEintraege) OrElse maxEintraege <= 0 Then Exit Sub
            If Not Date.TryParse(txtVon._value, datumVon) Then Exit Sub
            If Not Date.TryParse(txtBis._value, datumBis) Then Exit Sub
            If datumVon.Date > datumBis.Date Then Exit Sub
            If String.IsNullOrWhiteSpace(txtKategorie.Text) Then Exit Sub
            If String.IsNullOrWhiteSpace(txtOrdner.Text) Then Exit Sub

            Dim sqlText As String =
                "SELECT TOP (" & maxEintraege & ") da.da_id " &
                "FROM tblDatenarchiv da " &
                "WHERE da.da_vorlage = 0 " &
                "AND da.da_kategorie = '" & txtKategorie.Text.Replace("'", "''") & "' " &
                "AND da.da_ordner = '" & txtOrdner.Text.Replace("'", "''") & "' " &
                "AND da.da_id >= 392150 " &
                "AND EXISTS (" &
                "SELECT 1 FROM tblDatenarchiv_Collection coll " &
                "WHERE coll.coll_daId = da.da_id " &
                "AND coll.coll_date >= '" & datumVon.ToString("yyyyMMdd") & "' " &
                "AND coll.coll_date < '" & datumBis.AddDays(1).ToString("yyyyMMdd") & "' " &
                "AND coll.coll_pfad NOT LIKE '%\\stor01.verag.ost.dmn\DatenArchivArchiv%' " &
                "AND coll.coll_pfad NOT LIKE '\\DELETED\%' " &
                ") ORDER BY da.da_id"

            Dim DT = SQL.loadDgvBySql(sqlText, "FMZOLL")

            If DT Is Nothing OrElse DT.Rows.Count = 0 Then Exit Sub

            If MsgBox("Es werden '" & DT.Rows.Count & "' Einträge verschoben - fortfahren?", vbYesNoCancel) <> vbYes Then Exit Sub

            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = DT.Rows.Count
            ProgressBar1.Value = 0

            Dim erfolgreich As Integer = 0
            Dim fehler As Integer = 0

            For Each ROW As DataRow In DT.Rows
                Try
                    Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(ROW("da_id"))

                    If DS.DATA_LIST.LIST.Count > 0 Then
                        If DS.moveTo_ARCHIVARCHIV() Then
                            erfolgreich += 1
                        Else
                            fehler += 1
                        End If
                    End If

                Catch ex2 As Exception
                    fehler += 1
                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, "da_id: " & ROW("da_id").ToString() & vbNewLine & ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
                End Try

                ProgressBar1.Value += 1
                Label1.Text = ProgressBar1.Value & "/" & DT.Rows.Count & " | Fehler: " & fehler

                If DT.Rows.Count < 10 OrElse ProgressBar1.Value Mod 20 = 0 Then
                    Me.Refresh()
                End If
            Next

            MsgBox("Archivierung abgeschlossen." & vbNewLine &
                   "Erfolgreich: " & erfolgreich & vbNewLine &
                   "Fehler: " & fehler, vbInformation)

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
        Finally
            Me.Cursor = Cursors.Default
        End Try
    End Sub



    Private Sub frmDatenarchivarchiv_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim monate As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)

        For i As Integer = 1 To 12
            monate.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(New Date(2000, i, 1).ToString("MMMM", New System.Globalization.CultureInfo("de-AT")), i.ToString()))
        Next

        MyComboBox1.fillWithMyListItem(monate)
        MyComboBox1._value = Date.Today.Month.ToString()
        MyTextBox1._value = Date.Today.Year.ToString()

        UpdateZeitraum()
    End Sub

    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
        UpdateZeitraum()
    End Sub

    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
        UpdateZeitraum()
    End Sub

    Private Sub UpdateZeitraum()
        Dim jahr As Integer
        Dim monat As Integer

        If Not Integer.TryParse(MyTextBox1._value, jahr) Then Exit Sub
        If Not Integer.TryParse(MyComboBox1._value, monat) Then Exit Sub
        If jahr < 1 OrElse jahr > 9999 OrElse monat < 1 OrElse monat > 12 Then Exit Sub

        txtVon._value = New Date(jahr, monat, 1).ToString("dd.MM.yyyy")
        txtBis._value = New Date(jahr, monat, Date.DaysInMonth(jahr, monat)).ToString("dd.MM.yyyy")
    End Sub
End Class