diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index a1bf802b..1fa32907 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -23,7 +23,7 @@ Partial Class usrCntlUSTV 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 diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index dff1de04..66a037e1 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -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 = "" diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 1eef2876..a3621da2 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 2644b523..093511df 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -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()