edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FTP ATEZ

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-15 14:59:46 +02:00
parent 7e1a5286b0
commit 6b5e454662
3 changed files with 231 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -2002,7 +2002,6 @@ Public Class cWorker_NCTS
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
'=====ATEZ BEREITSTELLUNG==========
checkATEZ_Bereitstellung(DY_TMP, d)
'==================================
@@ -2025,14 +2024,14 @@ Public Class cWorker_NCTS
Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
If DY_TMP Is Nothing Then Exit Sub
Dim ATEZ = VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_DATA.LOAD_ByBezugsNr(DY_TMP.dy_BezugsNr)
If ATEZ IsNot Nothing AndAlso ATEZ.hasEntry Then
If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\")
'End If
End If
' If ATEZ.status IsNot Nothing Then
'If ATEZ.status < 40 Then
Dim fio As New IO.FileInfo(filePath)
FileCopy(filePath, "\\ftps.verag.ag\FTP\ATEZ\OUT\" & fio.Name.Replace("lock_", ""))
'End If
' End If
End If
End Sub

410
initATLASAufschubkonten/frmDatenarchivarchiv.Designer.vb generated
View File

@@ -27,22 +27,22 @@ Partial Class frmDatenarchivarchiv
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOrdner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtUOrdner1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtUOrdner2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtUOrdner3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtMax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUOrdner3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUOrdner2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUOrdner1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOrdner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.SuspendLayout()
'
'ProgressBar1
@@ -79,54 +79,6 @@ Partial Class frmDatenarchivarchiv
Me.Label3.TabIndex = 2
Me.Label3.Text = "Kategorie:"
'
'txtKategorie
'
Me.txtKategorie._DateTimeOnly = False
Me.txtKategorie._numbersOnly = False
Me.txtKategorie._numbersOnlyKommastellen = ""
Me.txtKategorie._numbersOnlyTrennzeichen = True
Me.txtKategorie._Prozent = False
Me.txtKategorie._ShortDateNew = False
Me.txtKategorie._ShortDateOnly = False
Me.txtKategorie._TimeOnly = False
Me.txtKategorie._TimeOnly_Seconds = False
Me.txtKategorie._value = "DOKUMENTE"
Me.txtKategorie._Waehrung = False
Me.txtKategorie._WaehrungZeichen = True
Me.txtKategorie.ForeColor = System.Drawing.Color.Black
Me.txtKategorie.Location = New System.Drawing.Point(29, 73)
Me.txtKategorie.MaxLineLength = -1
Me.txtKategorie.MaxLines_Warning = ""
Me.txtKategorie.MaxLines_Warning_Label = Nothing
Me.txtKategorie.Name = "txtKategorie"
Me.txtKategorie.Size = New System.Drawing.Size(128, 20)
Me.txtKategorie.TabIndex = 3
Me.txtKategorie.Text = "DOKUMENTE"
'
'txtOrdner
'
Me.txtOrdner._DateTimeOnly = False
Me.txtOrdner._numbersOnly = False
Me.txtOrdner._numbersOnlyKommastellen = ""
Me.txtOrdner._numbersOnlyTrennzeichen = True
Me.txtOrdner._Prozent = False
Me.txtOrdner._ShortDateNew = False
Me.txtOrdner._ShortDateOnly = False
Me.txtOrdner._TimeOnly = False
Me.txtOrdner._TimeOnly_Seconds = False
Me.txtOrdner._value = "AVISO_ANHAENGE"
Me.txtOrdner._Waehrung = False
Me.txtOrdner._WaehrungZeichen = True
Me.txtOrdner.ForeColor = System.Drawing.Color.Black
Me.txtOrdner.Location = New System.Drawing.Point(163, 73)
Me.txtOrdner.MaxLineLength = -1
Me.txtOrdner.MaxLines_Warning = ""
Me.txtOrdner.MaxLines_Warning_Label = Nothing
Me.txtOrdner.Name = "txtOrdner"
Me.txtOrdner.Size = New System.Drawing.Size(128, 20)
Me.txtOrdner.TabIndex = 5
Me.txtOrdner.Text = "AVISO_ANHAENGE"
'
'Label4
'
Me.Label4.AutoSize = True
@@ -136,30 +88,6 @@ Partial Class frmDatenarchivarchiv
Me.Label4.TabIndex = 4
Me.Label4.Text = "Ordner:"
'
'txtUOrdner1
'
Me.txtUOrdner1._DateTimeOnly = False
Me.txtUOrdner1._numbersOnly = False
Me.txtUOrdner1._numbersOnlyKommastellen = ""
Me.txtUOrdner1._numbersOnlyTrennzeichen = True
Me.txtUOrdner1._Prozent = False
Me.txtUOrdner1._ShortDateNew = False
Me.txtUOrdner1._ShortDateOnly = False
Me.txtUOrdner1._TimeOnly = False
Me.txtUOrdner1._TimeOnly_Seconds = False
Me.txtUOrdner1._value = ""
Me.txtUOrdner1._Waehrung = False
Me.txtUOrdner1._WaehrungZeichen = True
Me.txtUOrdner1.Enabled = False
Me.txtUOrdner1.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner1.Location = New System.Drawing.Point(297, 73)
Me.txtUOrdner1.MaxLineLength = -1
Me.txtUOrdner1.MaxLines_Warning = ""
Me.txtUOrdner1.MaxLines_Warning_Label = Nothing
Me.txtUOrdner1.Name = "txtUOrdner1"
Me.txtUOrdner1.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner1.TabIndex = 7
'
'Label5
'
Me.Label5.AutoSize = True
@@ -169,30 +97,6 @@ Partial Class frmDatenarchivarchiv
Me.Label5.TabIndex = 6
Me.Label5.Text = "U Ordner 1:"
'
'txtUOrdner2
'
Me.txtUOrdner2._DateTimeOnly = False
Me.txtUOrdner2._numbersOnly = False
Me.txtUOrdner2._numbersOnlyKommastellen = ""
Me.txtUOrdner2._numbersOnlyTrennzeichen = True
Me.txtUOrdner2._Prozent = False
Me.txtUOrdner2._ShortDateNew = False
Me.txtUOrdner2._ShortDateOnly = False
Me.txtUOrdner2._TimeOnly = False
Me.txtUOrdner2._TimeOnly_Seconds = False
Me.txtUOrdner2._value = ""
Me.txtUOrdner2._Waehrung = False
Me.txtUOrdner2._WaehrungZeichen = True
Me.txtUOrdner2.Enabled = False
Me.txtUOrdner2.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner2.Location = New System.Drawing.Point(431, 73)
Me.txtUOrdner2.MaxLineLength = -1
Me.txtUOrdner2.MaxLines_Warning = ""
Me.txtUOrdner2.MaxLines_Warning_Label = Nothing
Me.txtUOrdner2.Name = "txtUOrdner2"
Me.txtUOrdner2.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner2.TabIndex = 9
'
'Label6
'
Me.Label6.AutoSize = True
@@ -202,30 +106,6 @@ Partial Class frmDatenarchivarchiv
Me.Label6.TabIndex = 8
Me.Label6.Text = "U Ordner 2:"
'
'txtUOrdner3
'
Me.txtUOrdner3._DateTimeOnly = False
Me.txtUOrdner3._numbersOnly = False
Me.txtUOrdner3._numbersOnlyKommastellen = ""
Me.txtUOrdner3._numbersOnlyTrennzeichen = True
Me.txtUOrdner3._Prozent = False
Me.txtUOrdner3._ShortDateNew = False
Me.txtUOrdner3._ShortDateOnly = False
Me.txtUOrdner3._TimeOnly = False
Me.txtUOrdner3._TimeOnly_Seconds = False
Me.txtUOrdner3._value = ""
Me.txtUOrdner3._Waehrung = False
Me.txtUOrdner3._WaehrungZeichen = True
Me.txtUOrdner3.Enabled = False
Me.txtUOrdner3.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner3.Location = New System.Drawing.Point(565, 73)
Me.txtUOrdner3.MaxLineLength = -1
Me.txtUOrdner3.MaxLines_Warning = ""
Me.txtUOrdner3.MaxLines_Warning_Label = Nothing
Me.txtUOrdner3.Name = "txtUOrdner3"
Me.txtUOrdner3.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner3.TabIndex = 11
'
'Label7
'
Me.Label7.AutoSize = True
@@ -235,6 +115,93 @@ Partial Class frmDatenarchivarchiv
Me.Label7.TabIndex = 10
Me.Label7.Text = "U Ordner 3:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(562, 2)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(33, 13)
Me.Label8.TabIndex = 13
Me.Label8.Text = "MAX:"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(278, 194)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(165, 33)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Start"
Me.Button1.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(428, 2)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(23, 13)
Me.Label9.TabIndex = 17
Me.Label9.Text = "bis:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(294, 2)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(28, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "von:"
'
'txtBis
'
Me.txtBis._DateTimeOnly = False
Me.txtBis._numbersOnly = False
Me.txtBis._numbersOnlyKommastellen = ""
Me.txtBis._numbersOnlyTrennzeichen = True
Me.txtBis._Prozent = False
Me.txtBis._ShortDateNew = True
Me.txtBis._ShortDateOnly = False
Me.txtBis._TimeOnly = False
Me.txtBis._TimeOnly_Seconds = False
Me.txtBis._value = "31.12.2020"
Me.txtBis._Waehrung = False
Me.txtBis._WaehrungZeichen = True
Me.txtBis.ForeColor = System.Drawing.Color.Black
Me.txtBis.Location = New System.Drawing.Point(431, 19)
Me.txtBis.MaxLength = 10
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
Me.txtBis.MaxLines_Warning_Label = Nothing
Me.txtBis.Name = "txtBis"
Me.txtBis.Size = New System.Drawing.Size(128, 20)
Me.txtBis.TabIndex = 18
Me.txtBis.Text = "31.12.2020"
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = True
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = "01.01.2020"
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(297, 19)
Me.txtVon.MaxLength = 10
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(128, 20)
Me.txtVon.TabIndex = 16
Me.txtVon.Text = "01.01.2020"
'
'txtMax
'
Me.txtMax._DateTimeOnly = False
@@ -260,92 +227,125 @@ Partial Class frmDatenarchivarchiv
Me.txtMax.Text = "1000"
Me.txtMax.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label8
'txtUOrdner3
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(562, 2)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(33, 13)
Me.Label8.TabIndex = 13
Me.Label8.Text = "MAX:"
Me.txtUOrdner3._DateTimeOnly = False
Me.txtUOrdner3._numbersOnly = False
Me.txtUOrdner3._numbersOnlyKommastellen = ""
Me.txtUOrdner3._numbersOnlyTrennzeichen = True
Me.txtUOrdner3._Prozent = False
Me.txtUOrdner3._ShortDateNew = False
Me.txtUOrdner3._ShortDateOnly = False
Me.txtUOrdner3._TimeOnly = False
Me.txtUOrdner3._TimeOnly_Seconds = False
Me.txtUOrdner3._value = ""
Me.txtUOrdner3._Waehrung = False
Me.txtUOrdner3._WaehrungZeichen = True
Me.txtUOrdner3.Enabled = False
Me.txtUOrdner3.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner3.Location = New System.Drawing.Point(565, 73)
Me.txtUOrdner3.MaxLineLength = -1
Me.txtUOrdner3.MaxLines_Warning = ""
Me.txtUOrdner3.MaxLines_Warning_Label = Nothing
Me.txtUOrdner3.Name = "txtUOrdner3"
Me.txtUOrdner3.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner3.TabIndex = 11
'
'Button1
'txtUOrdner2
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(278, 194)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(165, 33)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Start"
Me.Button1.UseVisualStyleBackColor = True
Me.txtUOrdner2._DateTimeOnly = False
Me.txtUOrdner2._numbersOnly = False
Me.txtUOrdner2._numbersOnlyKommastellen = ""
Me.txtUOrdner2._numbersOnlyTrennzeichen = True
Me.txtUOrdner2._Prozent = False
Me.txtUOrdner2._ShortDateNew = False
Me.txtUOrdner2._ShortDateOnly = False
Me.txtUOrdner2._TimeOnly = False
Me.txtUOrdner2._TimeOnly_Seconds = False
Me.txtUOrdner2._value = ""
Me.txtUOrdner2._Waehrung = False
Me.txtUOrdner2._WaehrungZeichen = True
Me.txtUOrdner2.Enabled = False
Me.txtUOrdner2.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner2.Location = New System.Drawing.Point(431, 73)
Me.txtUOrdner2.MaxLineLength = -1
Me.txtUOrdner2.MaxLines_Warning = ""
Me.txtUOrdner2.MaxLines_Warning_Label = Nothing
Me.txtUOrdner2.Name = "txtUOrdner2"
Me.txtUOrdner2.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner2.TabIndex = 9
'
'txtBis
'txtUOrdner1
'
Me.txtBis._DateTimeOnly = False
Me.txtBis._numbersOnly = False
Me.txtBis._numbersOnlyKommastellen = ""
Me.txtBis._numbersOnlyTrennzeichen = True
Me.txtBis._Prozent = False
Me.txtBis._ShortDateNew = True
Me.txtBis._ShortDateOnly = False
Me.txtBis._TimeOnly = False
Me.txtBis._TimeOnly_Seconds = False
Me.txtBis._value = "02.01.2022"
Me.txtBis._Waehrung = False
Me.txtBis._WaehrungZeichen = True
Me.txtBis.ForeColor = System.Drawing.Color.Black
Me.txtBis.Location = New System.Drawing.Point(431, 19)
Me.txtBis.MaxLength = 10
Me.txtBis.MaxLineLength = -1
Me.txtBis.MaxLines_Warning = ""
Me.txtBis.MaxLines_Warning_Label = Nothing
Me.txtBis.Name = "txtBis"
Me.txtBis.Size = New System.Drawing.Size(128, 20)
Me.txtBis.TabIndex = 18
Me.txtBis.Text = "02.01.2022"
Me.txtUOrdner1._DateTimeOnly = False
Me.txtUOrdner1._numbersOnly = False
Me.txtUOrdner1._numbersOnlyKommastellen = ""
Me.txtUOrdner1._numbersOnlyTrennzeichen = True
Me.txtUOrdner1._Prozent = False
Me.txtUOrdner1._ShortDateNew = False
Me.txtUOrdner1._ShortDateOnly = False
Me.txtUOrdner1._TimeOnly = False
Me.txtUOrdner1._TimeOnly_Seconds = False
Me.txtUOrdner1._value = ""
Me.txtUOrdner1._Waehrung = False
Me.txtUOrdner1._WaehrungZeichen = True
Me.txtUOrdner1.Enabled = False
Me.txtUOrdner1.ForeColor = System.Drawing.Color.Black
Me.txtUOrdner1.Location = New System.Drawing.Point(297, 73)
Me.txtUOrdner1.MaxLineLength = -1
Me.txtUOrdner1.MaxLines_Warning = ""
Me.txtUOrdner1.MaxLines_Warning_Label = Nothing
Me.txtUOrdner1.Name = "txtUOrdner1"
Me.txtUOrdner1.Size = New System.Drawing.Size(128, 20)
Me.txtUOrdner1.TabIndex = 7
'
'Label9
'txtOrdner
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(428, 2)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(23, 13)
Me.Label9.TabIndex = 17
Me.Label9.Text = "bis:"
Me.txtOrdner._DateTimeOnly = False
Me.txtOrdner._numbersOnly = False
Me.txtOrdner._numbersOnlyKommastellen = ""
Me.txtOrdner._numbersOnlyTrennzeichen = True
Me.txtOrdner._Prozent = False
Me.txtOrdner._ShortDateNew = False
Me.txtOrdner._ShortDateOnly = False
Me.txtOrdner._TimeOnly = False
Me.txtOrdner._TimeOnly_Seconds = False
Me.txtOrdner._value = "AVISO_ANHAENGE"
Me.txtOrdner._Waehrung = False
Me.txtOrdner._WaehrungZeichen = True
Me.txtOrdner.ForeColor = System.Drawing.Color.Black
Me.txtOrdner.Location = New System.Drawing.Point(163, 73)
Me.txtOrdner.MaxLineLength = -1
Me.txtOrdner.MaxLines_Warning = ""
Me.txtOrdner.MaxLines_Warning_Label = Nothing
Me.txtOrdner.Name = "txtOrdner"
Me.txtOrdner.Size = New System.Drawing.Size(128, 20)
Me.txtOrdner.TabIndex = 5
Me.txtOrdner.Text = "AVISO_ANHAENGE"
'
'txtVon
'txtKategorie
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = True
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = "02.01.2022"
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(297, 19)
Me.txtVon.MaxLength = 10
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.Size = New System.Drawing.Size(128, 20)
Me.txtVon.TabIndex = 16
Me.txtVon.Text = "02.01.2022"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(294, 2)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(28, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "von:"
Me.txtKategorie._DateTimeOnly = False
Me.txtKategorie._numbersOnly = False
Me.txtKategorie._numbersOnlyKommastellen = ""
Me.txtKategorie._numbersOnlyTrennzeichen = True
Me.txtKategorie._Prozent = False
Me.txtKategorie._ShortDateNew = False
Me.txtKategorie._ShortDateOnly = False
Me.txtKategorie._TimeOnly = False
Me.txtKategorie._TimeOnly_Seconds = False
Me.txtKategorie._value = "DOKUMENTE"
Me.txtKategorie._Waehrung = False
Me.txtKategorie._WaehrungZeichen = True
Me.txtKategorie.ForeColor = System.Drawing.Color.Black
Me.txtKategorie.Location = New System.Drawing.Point(29, 73)
Me.txtKategorie.MaxLineLength = -1
Me.txtKategorie.MaxLines_Warning = ""
Me.txtKategorie.MaxLines_Warning_Label = Nothing
Me.txtKategorie.Name = "txtKategorie"
Me.txtKategorie.Size = New System.Drawing.Size(128, 20)
Me.txtKategorie.TabIndex = 3
Me.txtKategorie.Text = "DOKUMENTE"
'
'frmDatenarchivarchiv
'

27
initATLASAufschubkonten/frmDatenarchivarchiv.vb
View File

@@ -7,15 +7,17 @@ Public Class frmDatenarchivarchiv
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Me.Cursor = Cursors.WaitCursor
If txtMax._value = "" Then Me.Cursor = Cursors.Default : Exit Sub
If Not IsNumeric(txtMax._value) Then Me.Cursor = Cursors.Default : Exit Sub
If Not IsDate(txtVon._value) Then Me.Cursor = Cursors.Default : Exit Sub
If Not IsDate(txtBis._value) Then Me.Cursor = Cursors.Default : Exit Sub
If txtKategorie.Text Is String.Empty Then Me.Cursor = Cursors.Default : Exit Sub
If txtOrdner.Text Is String.Empty Then Me.Cursor = Cursors.Default : Exit Sub
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%'
Dim DT = SQL.loadDgvBySql(" SELECT TOP (" & txtMax._value & ") [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 coll_pfad NOT LIKE '\\DELETED\%'
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] ")
and da_id>=392150 group by [da_id] order by [da_id] ", "FMZOLL")
If DT Is Nothing Then Me.Cursor = Cursors.Default : Exit Sub
If DT.Rows.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub
@@ -25,6 +27,7 @@ Public Class frmDatenarchivarchiv
ProgressBar1.Minimum = 1
ProgressBar1.Maximum = DT.Rows.Count
ProgressBar1.Step = 1
ProgressBar1.Value = 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)
@@ -34,6 +37,16 @@ Public Class frmDatenarchivarchiv
DS.moveTo_ARCHIVARCHIV()
End If
ProgressBar1.PerformStep()
Label1.Text = ProgressBar1.Value & "/" & DT.Rows.Count
If DT.Rows.Count < 100 Then
Me.Refresh()
Else
If ProgressBar1.Value Mod 20 = 0 Then
Me.Refresh()
End If
End If
Next
End If