Import Excel DY
This commit is contained in:
@@ -1135,236 +1135,228 @@ Public Class usrCntlATLAS_EZA
|
||||
|
||||
Private Function importExcel_MEYLE() As Boolean
|
||||
|
||||
Dim fd As New OpenFileDialog With {
|
||||
.Filter = "Excel Dateien|*.xls;*.xlsx",
|
||||
.Multiselect = True,
|
||||
.Title = "Bitte eine oder mehrere Excel-Dateien auswählen"
|
||||
}
|
||||
|
||||
Dim result As DialogResult = fd.ShowDialog()
|
||||
|
||||
If result <> DialogResult.OK Then
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("Keine Datei ausgewählt!")
|
||||
|
||||
Return False
|
||||
|
||||
Else
|
||||
|
||||
Dim cnt = 0
|
||||
Dim f As New frmImportFromAVISOAnhaenge(AVISO, SENDUNG)
|
||||
f.ShowDialog(Me)
|
||||
Dim LIST_FILES = f.LIST_FILES
|
||||
If Not f.DialogResult = DialogResult.OK Then Return False
|
||||
If LIST_FILES.Count = 0 Then Return False
|
||||
|
||||
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
If vbYes = MsgBox("Sollten die aktuellen Einträge gelöscht werden?", vbYesNo) Then
|
||||
EZA.eza_WARENPOS.Clear() 'Zurücksetzen
|
||||
End If
|
||||
|
||||
Dim cnt = 0
|
||||
|
||||
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
If vbYes = MsgBox("Sollten die aktuellen Einträge gelöscht werden?", vbYesNo) Then
|
||||
EZA.eza_WARENPOS.Clear() 'Zurücksetzen
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In LIST_FILES
|
||||
If Not filePath.ToLower.EndsWith(".xls") AndAlso Not filePath.ToLower.EndsWith(".xlsx") Then
|
||||
' Ungültige Datei – überspringen oder abbrechen
|
||||
Continue For
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In fd.FileNames
|
||||
If Not filePath.ToLower.EndsWith(".xls") AndAlso Not filePath.ToLower.EndsWith(".xlsx") Then
|
||||
' Ungültige Datei – überspringen oder abbrechen
|
||||
Continue For
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim exclApp As New Excel.Application 'Object 'as Application
|
||||
Dim Datei As Excel.Workbook ' 'as WorkBook
|
||||
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
|
||||
|
||||
Dim exclApp As New Excel.Application 'Object 'as Application
|
||||
Dim Datei As Excel.Workbook ' 'as WorkBook
|
||||
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
|
||||
With exclApp
|
||||
Try
|
||||
|
||||
.CutCopyMode = False
|
||||
.DisplayAlerts = False
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(filePath)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
With exclApp
|
||||
Try
|
||||
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
|
||||
Catch ex As Exception
|
||||
|
||||
.CutCopyMode = False
|
||||
.DisplayAlerts = False
|
||||
End Try
|
||||
|
||||
Dim startFound As Boolean = False
|
||||
Dim endFound As Boolean = False
|
||||
|
||||
If Not checkExcel_MEYLE(Blatt) Then 'VALIDIERUNG
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(fd.FileName)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
Dim startRows As Integer = 6
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
Try
|
||||
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Dim startFound As Boolean = False
|
||||
Dim endFound As Boolean = False
|
||||
|
||||
If Not checkExcel_MEYLE(Blatt) Then 'VALIDIERUNG
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
Dim endRows As Integer = startRows
|
||||
While endRows < Blatt.UsedRange.Rows.Count
|
||||
If Not Blatt.Range("A" & endRows) Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value.ToString.Trim = "" Then
|
||||
endFound = True
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
endRows += 1
|
||||
End While
|
||||
endRows -= 1
|
||||
|
||||
If Not endFound Then
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Dim startRows As Integer = 6
|
||||
' Neue DataTable erstellen
|
||||
Dim DATA As New DataTable()
|
||||
|
||||
Dim endRows As Integer = startRows
|
||||
While endRows < Blatt.UsedRange.Rows.Count
|
||||
If Not Blatt.Range("A" & endRows) Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value Is Nothing AndAlso Not Blatt.Range("A" & endRows).Value.ToString.Trim = "" Then
|
||||
endFound = True
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
endRows += 1
|
||||
End While
|
||||
endRows -= 1
|
||||
' Spalten anhand der Anzahl im Range anlegen
|
||||
Dim colCount As Integer = Blatt.Range("A1:M1").Columns.Count
|
||||
For c As Integer = 1 To colCount
|
||||
DATA.Columns.Add("Spalte" & c, GetType(String))
|
||||
Next
|
||||
|
||||
If Not endFound Then
|
||||
MsgBox("Keine Daten vorhanden!")
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
' Neue DataTable erstellen
|
||||
Dim DATA As New DataTable()
|
||||
|
||||
' Spalten anhand der Anzahl im Range anlegen
|
||||
Dim colCount As Integer = Blatt.Range("A1:M1").Columns.Count
|
||||
' Range direkt durchlaufen
|
||||
For r As Integer = startRows To endRows
|
||||
Dim newRow As DataRow = DATA.NewRow()
|
||||
For c As Integer = 1 To colCount
|
||||
DATA.Columns.Add("Spalte" & c, GetType(String))
|
||||
Dim value = Blatt.Cells(r, c).Value
|
||||
newRow(c - 1) = If(value IsNot Nothing, value.ToString(), "")
|
||||
Next
|
||||
DATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
' Range direkt durchlaufen
|
||||
For r As Integer = startRows To endRows
|
||||
Dim newRow As DataRow = DATA.NewRow()
|
||||
For c As Integer = 1 To colCount
|
||||
Dim value = Blatt.Cells(r, c).Value
|
||||
newRow(c - 1) = If(value IsNot Nothing, value.ToString(), "")
|
||||
Next
|
||||
DATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
' DataTable durchlaufen und Zeilen löschen, bei denen Spalte 6 "summe" enthält
|
||||
For i As Integer = DATA.Rows.Count - 1 To 0 Step -1
|
||||
Dim cellValue As String = DATA.Rows(i)(6).ToString().ToLower() ' Spalte 6 = Index 5
|
||||
If cellValue.Contains("summe") Then
|
||||
DATA.Rows.RemoveAt(i)
|
||||
End If
|
||||
Next
|
||||
' DataTable durchlaufen und Zeilen löschen, bei denen Spalte 6 "summe" enthält
|
||||
For i As Integer = DATA.Rows.Count - 1 To 0 Step -1
|
||||
Dim cellValue As String = DATA.Rows(i)(6).ToString().ToLower() ' Spalte 6 = Index 5
|
||||
If cellValue.Contains("summe") Then
|
||||
DATA.Rows.RemoveAt(i)
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
' Spaltenüberschriften ausgeben
|
||||
' Spaltenüberschriften ausgeben
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'-------------HIER WERDEN DIE Zeilen kommuliert---------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'-------------HIER WERDEN DIE Zeilen kommuliert---------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
' Neue Tabelle mit gleicher Struktur
|
||||
Dim resultDATA As DataTable = DATA.Clone()
|
||||
'0 = Wartentarifnummer
|
||||
'6 = Wartenbeschreibung
|
||||
'12 = Währung (immer gleich)?
|
||||
' Gruppieren nach den Schlüsseln Spalte 0, 6 und 12
|
||||
Dim groups = From row In DATA.AsEnumerable()
|
||||
Group row By key1 = row(0), key2 = row(6), key3 = row(12) Into grp = Group
|
||||
Select key1, key2, key3, grp
|
||||
|
||||
' Neue Tabelle mit gleicher Struktur
|
||||
Dim resultDATA As DataTable = DATA.Clone()
|
||||
'0 = Wartentarifnummer
|
||||
'6 = Wartenbeschreibung
|
||||
'12 = Währung (immer gleich)?
|
||||
' Gruppieren nach den Schlüsseln Spalte 0, 6 und 12
|
||||
Dim groups = From row In DATA.AsEnumerable()
|
||||
Group row By key1 = row(0), key2 = row(6), key3 = row(12) Into grp = Group
|
||||
Select key1, key2, key3, grp
|
||||
' Gruppen durchlaufen und kumulierte Zeilen erstellen
|
||||
For Each g In groups
|
||||
Dim newRow As DataRow = resultDATA.NewRow()
|
||||
|
||||
' Gruppen durchlaufen und kumulierte Zeilen erstellen
|
||||
For Each g In groups
|
||||
Dim newRow As DataRow = resultDATA.NewRow()
|
||||
' Gruppierungsspalten setzen
|
||||
newRow(0) = g.key1
|
||||
newRow(6) = g.key2
|
||||
newRow(12) = g.key3
|
||||
|
||||
' Gruppierungsspalten setzen
|
||||
newRow(0) = g.key1
|
||||
newRow(6) = g.key2
|
||||
newRow(12) = g.key3
|
||||
' Summen berechnen
|
||||
newRow(7) = g.grp.Sum(Function(r) ToDoubleSafe(r(7)))
|
||||
newRow(9) = g.grp.Sum(Function(r) ToDoubleSafe(r(9)))
|
||||
newRow(11) = g.grp.Sum(Function(r) ToDoubleSafe(r(11)))
|
||||
|
||||
' Summen berechnen
|
||||
newRow(7) = g.grp.Sum(Function(r) ToDoubleSafe(r(7)))
|
||||
newRow(9) = g.grp.Sum(Function(r) ToDoubleSafe(r(9)))
|
||||
newRow(11) = g.grp.Sum(Function(r) ToDoubleSafe(r(11)))
|
||||
' Restliche Spalten Nothing lassen (bleibt automatisch so)
|
||||
|
||||
' Restliche Spalten Nothing lassen (bleibt automatisch so)
|
||||
resultDATA.Rows.Add(newRow)
|
||||
Next
|
||||
|
||||
resultDATA.Rows.Add(newRow)
|
||||
Next
|
||||
' Falls du das Ergebnis in DATA zurückschreiben willst:
|
||||
DATA = resultDATA
|
||||
|
||||
' Falls du das Ergebnis in DATA zurückschreiben willst:
|
||||
DATA = resultDATA
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
' Spaltenüberschriften ausgeben
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
|
||||
' Spaltenüberschriften ausgeben
|
||||
' Alle Zeilen ausgeben
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(col.ColumnName & vbTab)
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
|
||||
' Alle Zeilen ausgeben
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
Dim HandlesRgNr = ""
|
||||
If Blatt.Range("B3") IsNot Nothing AndAlso Blatt.Range("B3").Value IsNot Nothing Then
|
||||
HandlesRgNr = Blatt.Range("B3").Value.ToString().Trim()
|
||||
End If
|
||||
Dim HandlesRgDat = ""
|
||||
If Blatt.Range("B1") IsNot Nothing AndAlso Blatt.Range("B1").Value IsNot Nothing Then
|
||||
HandlesRgDat = Blatt.Range("B1").Value.ToString().Trim()
|
||||
End If
|
||||
|
||||
' MsgBox("A" & startRows & ":I" & endRows & "")
|
||||
|
||||
|
||||
|
||||
Try
|
||||
For Each row As DataRow In DATA.Rows
|
||||
For Each col As DataColumn In DATA.Columns
|
||||
Console.Write(row(col).ToString() & vbTab)
|
||||
Next
|
||||
Console.WriteLine()
|
||||
Next
|
||||
' Prüfen, ob Spalte 1 (Index 0) gefüllt ist
|
||||
If row(0) IsNot Nothing AndAlso row(0).ToString().Trim() <> "" Then
|
||||
|
||||
'--------------------------------------------------------------------------------------------------------------
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
POSITION.ezaWP_WarennummerEZT = row(0).ToString()
|
||||
POSITION.ezaWP_PackstueckAnzahl = "0" ' row(5).ToString()
|
||||
POSITION.ezaWP_PackstueckArt = "PK"
|
||||
|
||||
' Sicher konvertieren, falls leer oder ungültig
|
||||
Dim preis As Double
|
||||
Double.TryParse(row(11).ToString(), preis)
|
||||
POSITION.ezaWP_Artikelpreis = preis.ToString("N2")
|
||||
|
||||
Dim HandlesRgNr = ""
|
||||
If Blatt.Range("B3") IsNot Nothing AndAlso Blatt.Range("B3").Value IsNot Nothing Then
|
||||
HandlesRgNr = Blatt.Range("B3").Value.ToString().Trim()
|
||||
End If
|
||||
Dim HandlesRgDat = ""
|
||||
If Blatt.Range("B1") IsNot Nothing AndAlso Blatt.Range("B1").Value IsNot Nothing Then
|
||||
HandlesRgDat = Blatt.Range("B1").Value.ToString().Trim()
|
||||
End If
|
||||
POSITION.ezaWP_ArtikelpreisWaehrung = row(12).ToString()
|
||||
POSITION.ezaWP_Warenbezeichnung = row(6).ToString()
|
||||
|
||||
' MsgBox("A" & startRows & ":I" & endRows & "")
|
||||
Dim masse As Double
|
||||
Double.TryParse(row(9).ToString(), masse)
|
||||
POSITION.ezaWP_Eigenmasse = masse.ToString("N1")
|
||||
|
||||
' Ursprungsland ggf. per Select Case setzen
|
||||
'Select Case row(3).ToString()
|
||||
' Case "TURKEY" : POSITION.ezaWP_UrsprungslandCode = "TR"
|
||||
' Case "ITALY" : POSITION.ezaWP_UrsprungslandCode = "IT"
|
||||
' ...
|
||||
'End Select
|
||||
|
||||
|
||||
Try
|
||||
For Each row As DataRow In DATA.Rows
|
||||
' Prüfen, ob Spalte 1 (Index 0) gefüllt ist
|
||||
If row(0) IsNot Nothing AndAlso row(0).ToString().Trim() <> "" Then
|
||||
|
||||
Dim POSITION As New DAKOSY_Worker.cDakosy_EZA_Warenposition
|
||||
POSITION.ezaWP_WarennummerEZT = row(0).ToString()
|
||||
POSITION.ezaWP_PackstueckAnzahl = "0" ' row(5).ToString()
|
||||
POSITION.ezaWP_PackstueckArt = "PK"
|
||||
|
||||
' Sicher konvertieren, falls leer oder ungültig
|
||||
Dim preis As Double
|
||||
Double.TryParse(row(11).ToString(), preis)
|
||||
POSITION.ezaWP_Artikelpreis = preis.ToString("N2")
|
||||
|
||||
POSITION.ezaWP_ArtikelpreisWaehrung = row(12).ToString()
|
||||
POSITION.ezaWP_Warenbezeichnung = row(6).ToString()
|
||||
|
||||
Dim masse As Double
|
||||
Double.TryParse(row(9).ToString(), masse)
|
||||
POSITION.ezaWP_Eigenmasse = masse.ToString("N1")
|
||||
|
||||
' Ursprungsland ggf. per Select Case setzen
|
||||
'Select Case row(3).ToString()
|
||||
' Case "TURKEY" : POSITION.ezaWP_UrsprungslandCode = "TR"
|
||||
' Case "ITALY" : POSITION.ezaWP_UrsprungslandCode = "IT"
|
||||
' ...
|
||||
'End Select
|
||||
|
||||
POSITION.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
|
||||
POSITION.ezaWP_UNTERLAGEN.Add(New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen With {
|
||||
.ezaWpUl_Art = "N380",
|
||||
.ezaWpUl_Bereich = "4",
|
||||
.ezaWpUl_VorlageKz = "J",
|
||||
@@ -1372,55 +1364,54 @@ Public Class usrCntlATLAS_EZA
|
||||
.ezaWpUl_DatumAusstellung = Nothing
|
||||
})
|
||||
|
||||
EZA.eza_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
End Try
|
||||
|
||||
|
||||
.Visible = False
|
||||
|
||||
' AddHandler exclApp.WorkbookBeforeClose, AddressOf BeforeBookClose
|
||||
'Excelobjekte freistellten
|
||||
' For Each obj In New Object() {exclApp, Datei, Datei, Blatt, Blatt}
|
||||
' System.Runtime.InteropServices.Marshal.FinalReleaseComObject(obj)
|
||||
' Next
|
||||
Datei.Close()
|
||||
|
||||
|
||||
|
||||
|
||||
EZA.eza_WARENPOS.Add(POSITION)
|
||||
cnt += 1
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
'
|
||||
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
Return False
|
||||
End Try
|
||||
End With
|
||||
|
||||
|
||||
.Visible = False
|
||||
|
||||
' AddHandler exclApp.WorkbookBeforeClose, AddressOf BeforeBookClose
|
||||
'Excelobjekte freistellten
|
||||
' For Each obj In New Object() {exclApp, Datei, Datei, Blatt, Blatt}
|
||||
' System.Runtime.InteropServices.Marshal.FinalReleaseComObject(obj)
|
||||
' Next
|
||||
Datei.Close()
|
||||
|
||||
|
||||
|
||||
' >>> Hier kannst du jede gültige Excel-Datei weiterverarbeiten:
|
||||
Console.WriteLine("Verarbeite Datei: " & filePath)
|
||||
' z. B. Excel öffnen, Range lesen etc.
|
||||
Next
|
||||
|
||||
Me.FindForm.SuspendLayout()
|
||||
POSITIONEN.setValues(EZA, True)
|
||||
btnPositionen.PerformClick()
|
||||
Me.FindForm.ResumeLayout()
|
||||
Catch ex As Exception
|
||||
'
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
|
||||
' Return False
|
||||
End Try
|
||||
End With
|
||||
|
||||
MsgBox(cnt & " Datensätze wurden eingelesen. ")
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return True
|
||||
|
||||
End If
|
||||
' >>> Hier kannst du jede gültige Excel-Datei weiterverarbeiten:
|
||||
Console.WriteLine("Verarbeite Datei: " & filePath)
|
||||
' z. B. Excel öffnen, Range lesen etc.
|
||||
Next
|
||||
|
||||
Me.FindForm.SuspendLayout()
|
||||
POSITIONEN.setValues(EZA, True)
|
||||
btnPositionen.PerformClick()
|
||||
Me.FindForm.ResumeLayout()
|
||||
|
||||
MsgBox(cnt & " Datensätze wurden eingelesen. ")
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return True
|
||||
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
Return False
|
||||
@@ -1487,17 +1478,15 @@ Public Class usrCntlATLAS_EZA
|
||||
End Sub
|
||||
|
||||
Private Function importExcel_Fressnapf() As Boolean
|
||||
Dim fd As New OpenFileDialog With {
|
||||
.Filter = "Excel Dateien|*.xls;*.xlsx",
|
||||
.Multiselect = True,
|
||||
.Title = "Bitte eine oder mehrere Excel-Dateien auswählen"
|
||||
}
|
||||
|
||||
If fd.ShowDialog() <> DialogResult.OK Then
|
||||
Me.Cursor = Cursors.Default
|
||||
MsgBox("Keine Datei ausgewählt!")
|
||||
Return False
|
||||
End If
|
||||
Dim f As New frmImportFromAVISOAnhaenge(AVISO, SENDUNG)
|
||||
f.ShowDialog(Me)
|
||||
Dim LIST_FILES = f.LIST_FILES
|
||||
If Not f.DialogResult = DialogResult.OK Then Return False
|
||||
If LIST_FILES.Count = 0 Then Return False
|
||||
|
||||
|
||||
|
||||
|
||||
Dim cnt As Integer = 0
|
||||
|
||||
@@ -1509,7 +1498,7 @@ Public Class usrCntlATLAS_EZA
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
For Each filePath As String In fd.FileNames
|
||||
For Each filePath As String In LIST_FILES
|
||||
If Not (filePath.ToLower().EndsWith(".xls") OrElse filePath.ToLower().EndsWith(".xlsx")) Then
|
||||
Continue For
|
||||
End If
|
||||
@@ -1783,6 +1772,8 @@ Public Class usrCntlATLAS_EZA
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub VERAGIMPORTFormatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGIMPORTFormatToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user