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

LKWNr Prfung, ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-18 17:22:35 +01:00
parent 4dad6898e9
commit 4e74b016a7
4 changed files with 79 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class usrCntlUSTV
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlUSTV))
Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -73,8 +73,8 @@ Partial Class usrCntlUSTV
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btn3470 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnVZ = New System.Windows.Forms.Button()
Me.btnFAPruefung = New System.Windows.Forms.Button()
Me.btnVorschau = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.btnPLOSEAlle = New System.Windows.Forms.Button()
@@ -105,8 +105,8 @@ Partial Class usrCntlUSTV
Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUSTV.AllowUserToAddRows = False
Me.dgvUSTV.AllowUserToDeleteRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUSTV.Location = New System.Drawing.Point(0, 108)
@@ -780,8 +780,8 @@ Partial Class usrCntlUSTV
Me.Panel3.AutoSize = True
Me.Panel3.Controls.Add(Me.btn3470)
Me.Panel3.Controls.Add(Me.Button4)
Me.Panel3.Controls.Add(Me.Button3)
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.btnVZ)
Me.Panel3.Controls.Add(Me.btnFAPruefung)
Me.Panel3.Controls.Add(Me.btnVorschau)
Me.Panel3.Controls.Add(Me.btnMail)
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
@@ -823,31 +823,31 @@ Partial Class usrCntlUSTV
Me.Button4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'btnVZ
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(982, 5)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(104, 39)
Me.Button3.TabIndex = 28
Me.Button3.Text = "Vorauszahlungen"
Me.Button3.UseVisualStyleBackColor = True
Me.btnVZ.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVZ.ForeColor = System.Drawing.Color.Black
Me.btnVZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVZ.Location = New System.Drawing.Point(982, 5)
Me.btnVZ.Name = "btnVZ"
Me.btnVZ.Size = New System.Drawing.Size(104, 39)
Me.btnVZ.TabIndex = 28
Me.btnVZ.Text = "Vorauszahlungen"
Me.btnVZ.UseVisualStyleBackColor = True
'
'Button2
'btnFAPruefung
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(1092, 6)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(92, 39)
Me.Button2.TabIndex = 27
Me.Button2.Text = "FA-Bestätig. prüfen"
Me.Button2.UseVisualStyleBackColor = True
Me.btnFAPruefung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnFAPruefung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFAPruefung.ForeColor = System.Drawing.Color.Black
Me.btnFAPruefung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFAPruefung.Location = New System.Drawing.Point(1092, 6)
Me.btnFAPruefung.Name = "btnFAPruefung"
Me.btnFAPruefung.Size = New System.Drawing.Size(92, 39)
Me.btnFAPruefung.TabIndex = 27
Me.btnFAPruefung.Text = "FA-Bestätig. prüfen"
Me.btnFAPruefung.UseVisualStyleBackColor = True
'
'btnVorschau
'
@@ -999,7 +999,7 @@ Partial Class usrCntlUSTV
Friend WithEvents txtOPSaldo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents btnVorschau As Button
Friend WithEvents Button2 As Button
Friend WithEvents btnFAPruefung As Button
Friend WithEvents lblVZhint As Label
Friend WithEvents lblVZKunde As Label
Friend WithEvents ContextMenuStrip3 As ContextMenuStrip
@@ -1011,7 +1011,7 @@ Partial Class usrCntlUSTV
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label12 As Label
Friend WithEvents lblID As Label
Friend WithEvents Button3 As Button
Friend WithEvents btnVZ As Button
Friend WithEvents Button4 As Button
Friend WithEvents btn3470 As Button
Friend WithEvents ContextMenuStrip4 As ContextMenuStrip

21
SDL/USTV/usrCntlUSTV.vb
View File

@@ -597,25 +597,25 @@ Public Class usrCntlUSTV
Private Sub btn2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub btnFAPruefung_Click(sender As Object, e As EventArgs) Handles btnFAPruefung.Click
If Not ContextMenuStrip3.Items.ContainsKey("dgv") Then
Dim dgv = New ToolStripMenuItem() With {.Text = "Übersicht anzeigen", .Name = "dgv", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler dgv.Click, AddressOf mnuItem3_Clicked
AddHandler dgv.Click, AddressOf mnuFAPruefungenClicked
ContextMenuStrip3.Items.Add(dgv)
End If
If Not ContextMenuStrip3.Items.ContainsKey("excel") Then
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip3.Items.Add(excel)
AddHandler excel.Click, AddressOf mnuItem3_Clicked
AddHandler excel.Click, AddressOf mnuFAPruefungenClicked
End If
If Not ContextMenuStrip3.Items.ContainsKey("mail") Then
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mail.Click, AddressOf mnuItem3_Clicked
AddHandler mail.Click, AddressOf mnuFAPruefungenClicked
ContextMenuStrip3.Items.Add(mail)
End If
@@ -632,7 +632,7 @@ Public Class usrCntlUSTV
If Not ContextMenuStrip4.Items.ContainsKey("excel") Then
Dim excel = New ToolStripMenuItem() With {.Text = "Excelauswertung starten", .Name = "excel", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip4.Items.Add(excel)
AddHandler excel.Click, AddressOf mnuItem4_Clicked
AddHandler excel.Click, AddressOf mnu3470_Clicked
End If
@@ -640,12 +640,12 @@ Public Class usrCntlUSTV
If Not ContextMenuStrip4.Items.ContainsKey("pdf") Then
Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "pdf", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip4.Items.Add(pdf)
AddHandler pdf.Click, AddressOf mnuItem4_Clicked
AddHandler pdf.Click, AddressOf mnu3470_Clicked
End If
If Not ContextMenuStrip4.Items.ContainsKey("mail") Then
Dim mail = New ToolStripMenuItem() With {.Text = "Email generieren", .Name = "mail", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mail.Click, AddressOf mnuItem4_Clicked
AddHandler mail.Click, AddressOf mnu3470_Clicked
ContextMenuStrip4.Items.Add(mail)
End If
@@ -1185,7 +1185,7 @@ Public Class usrCntlUSTV
End Sub
Private Sub mnuItem3_Clicked(sender As Object, e As EventArgs)
Private Sub mnuFAPruefungenClicked(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
@@ -1226,6 +1226,7 @@ Public Class usrCntlUSTV
Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -1386,7 +1387,7 @@ Public Class usrCntlUSTV
End Sub
Private Sub mnuItem4_Clicked(sender As Object, e As EventArgs)
Private Sub mnu3470_Clicked(sender As Object, e As EventArgs)
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
@@ -1629,7 +1630,7 @@ Public Class usrCntlUSTV
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnVZ.Click
Dim sqlKunde = ""
Dim whereStr = ""

17
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -960,6 +960,7 @@ Public Class cAviso
Property WeiterleitungTextTV As String = ""
Property VerwahrungStatus As Integer
Property VerwahrungStatusDate As Object = Nothing
Property EintragMehrfach As Boolean = False
Public VORPAPIERE As New List(Of cAvisoVorpapier)
@@ -1207,6 +1208,7 @@ Public Class cAvisoDAL
daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV"))
daten.VerwahrungStatus = VarToInt(dr.Item("VerwahrungStatus"))
daten.VerwahrungStatusDate = If(dr.Item("VerwahrungStatusDate") Is DBNull.Value, Nothing, dr.Item("VerwahrungStatusDate"))
daten.EintragMehrfach = VarToBool(dr.Item("EintragMehrfach"))
@@ -1220,8 +1222,11 @@ Public Class cAvisoDAL
Public Function Suche_LKW(LKW_Nr As String) As String
'hier wird nachgesehen, wann diese LKW-Nr zuletzt eingetragen war
Suche_LKW = ""
Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
Dim sql As String = "SELECT * FROM Aviso WHERE (LKW_Nr = '" & LKW_Nr & "' or LKW_Nr like '%" & LKW_Nr & "%') AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ORDER BY Datum DESC"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1254,8 +1259,9 @@ Public Class cAvisoDAL
End If
' LKWNr kann als einzelens Kennzeichen angegeben werden oder LKWKZ1/LKWKZ2
Dim sql As String = "SELECT * FROM Aviso WHERE LKW_Nr = '" & LKW_Nr & "' AND [Status] Not in (1,2) " & firma & " ORDER BY Datum DESC"
Dim sql As String = "SELECT * FROM Aviso WHERE (LKW_Nr = '" & LKW_Nr & "' or LKW_Nr like '%" & LKW_Nr & "%') AND [Status] Not in (1,2) " & firma & " ORDER BY Datum DESC"
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
Using dr As SqlDataReader = cmd.ExecuteReader()
@@ -1480,17 +1486,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate) VALUES (" &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV,VerwahrungStatus,VerwahrungStatusDate, EintragMehrfach) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate); SELECT CAST(scope_identity() AS int);"
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV,@VerwahrungStatus,@VerwahrungStatusDate, @EintragMehrfach); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,FIRMA=@FIRMA" &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,VerwahrungStatus=@VerwahrungStatus,VerwahrungStatusDate=@VerwahrungStatusDate,EintragMehrfach=@EintragMehrfach,FIRMA=@FIRMA" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1566,6 +1572,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@VerwahrungStatus", d.VerwahrungStatus)
cmd.Parameters.AddWithValue("@VerwahrungStatusDate", If(d.VerwahrungStatusDate Is Nothing, DBNull.Value, d.VerwahrungStatusDate))
cmd.Parameters.AddWithValue("@EintragMehrfach", d.EintragMehrfach)
Try
If d.AvisoID <= 0 Then

25
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -938,6 +938,31 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
End Function
Shared Function checkLKWNr(lkwNr As String) As List(Of String)
Dim ListOfLKWNr As New List(Of String)
If String.IsNullOrWhiteSpace(lkwNr) Then Return ListOfLKWNr
Dim listOfLkwNrTemp = lkwNr.Split("/"c)
For Each oneLKWNr In listOfLkwNrTemp
Dim e = oneLKWNr.Trim()
If e = "" Then Continue For
Try
ListOfLKWNr.Add(oneLKWNr)
Catch
End Try
Next
Return ListOfLKWNr
End Function
Public Function MakeScreenshot()