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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:32:29 +01:00
parent 0be9927381
commit 3bc1c8a309
48 changed files with 19407 additions and 302 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/zoll/usrCntlZollArtikel.vb
View File

@@ -635,7 +635,7 @@ Public Class usrCntlZollArtikel
a.Artikelnummer = myArray(i, 1).ToString
If Not myArray(i, 2) Is Nothing Then a.Dynamische_Ergänzung_1 = myArray(i, 2).ToString
If Not myArray(i, 3) Is Nothing Then a.Dynamische_Ergänzung_2 = myArray(i, 3).ToString
a.Warencodenummer = myArray(i, 4).ToStringReplace(" ", "").Replace(".", "")
a.Warencodenummer = myArray(i, 4).ToString.Replace(" ", "").Replace(".", "")
a.Kurzbezeichnung = myArray(i, 5).ToString
a.Warenbeschreibung = myArray(i, 6).ToString
a.Verarbeitungskennzeichen = "0"
@@ -646,7 +646,7 @@ Public Class usrCntlZollArtikel
artikel.Add(a)
Next
Catch ex As Exception
MsgBox("Fehler beim Einlesen der Excel-Datei!")
MsgBox("Fehler beim Einlesen der Excel-Datei!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
Me.Cursor = Cursors.Default
Exit Sub
End Try
@@ -661,7 +661,7 @@ Public Class usrCntlZollArtikel
End If
Next
Catch ex As Exception
MsgBox("Fehler beim Einlesen in die Datenbank!")
MsgBox("Fehler beim Einlesen in die Datenbank!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
Me.Cursor = Cursors.Default
Exit Sub
End Try
@@ -675,7 +675,7 @@ Public Class usrCntlZollArtikel
' AddHandler frmStatusFSSAtlas.FormClosed, AddressOf Me_Load
Catch ex As Exception
MsgBox("Fehler beim Einlesen in ATLAS!")
MsgBox("Fehler beim Einlesen in ATLAS!" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
Me.Cursor = Cursors.Default
Exit Sub
End Try
@@ -699,7 +699,7 @@ Public Class usrCntlZollArtikel
Catch ex As Exception
'
Me.Cursor = Cursors.Default
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message)
MsgBox("FEHLER! Datei im richtigen Format?" & vbNewLine & vbNewLine & ex.Message & ex.StackTrace)
' Return False
End Try
End With