46 lines
2.3 KiB
VB.net
46 lines
2.3 KiB
VB.net
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 DT = SQL.loadDgvBySql(" SELECT TOP (1) [da_id] FROM [tblDatenarchiv] inner join tblDatenarchiv_Collection on da_id=coll_daId
|
|
where da_vorlage=0 and coll_date BETWEEN '" & txtVon._value & "' and '" & txtBis._value & "' and coll_pfad NOT LIKE '%\\stor01.verag.ost.dmn\DatenArchivArchiv%'
|
|
AND da_kategorie='" & txtKategorie.Text & "' and da_ordner='" & txtOrdner.Text & "'
|
|
group by [da_id] ", "FMZOLL")
|
|
MsgBox(" SELECT TOP (1) [da_id] FROM [tblDatenarchiv] inner join tblDatenarchiv_Collection on da_id=coll_daId
|
|
where da_vorlage=0 and coll_date BETWEEN '" & txtVon._value & "' and '" & txtBis._value & "' and coll_pfad NOT LIKE '%\\stor01.verag.ost.dmn\DatenArchivArchiv%'
|
|
AND da_kategorie='" & txtKategorie.Text & "' and da_ordner='" & txtOrdner.Text & "'
|
|
group by [da_id] ")
|
|
|
|
If DT Is Nothing Then Me.Cursor = Cursors.Default : Exit Sub
|
|
If DT.Rows.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
|
|
|
If vbYes = MsgBox("Es werden '" & DT.Rows.Count & "' Einträge verschoben - fortfahren?", vbYesNoCancel) Then
|
|
|
|
ProgressBar1.Minimum = 1
|
|
ProgressBar1.Maximum = DT.Rows.Count
|
|
ProgressBar1.Step = 1
|
|
|
|
For Each ROW In DT.Rows
|
|
'Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(txtKategorie._value, txtOrdner._value, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, txtMax._value)
|
|
|
|
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(ROW("da_id"))
|
|
If DS.DATA_LIST.LIST.Count > 0 Then
|
|
DS.moveTo_ARCHIVARCHIV()
|
|
End If
|
|
ProgressBar1.PerformStep()
|
|
Next
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
End Class |