Dim abfr_MAXIMO As String
        abfr_MAXIMO = MAXIMOTextBox.Text.Trim
 
        'Abfrage ob MAXIMO bereits vorhanden
        Dim AbfrageName = From Reihe In LagerDB.Lagerliste
                          Where IsDBNull(Reihe.RowState) <> _
                            DataRowState.Deleted AndAlso _
                          (Reihe.MAXIMO.ToLower = abfr_MAXIMO.ToLower)
                          Select Reihe.Standort, Reihe.Artikelbezeichnung
 
        If AbfrageName.Count > 0 Then
            Dim Form_Rueckgabewert As Boolean
 
            Using Dialog_Form As New frm_Dialog()
                With Dialog_Form
                    .ShowInTaskbar = True
 
                    'Titel an frm_Dialog übergeben
                    .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                    'Meldung an frm_Dialog übergeben
                    Dim sbMeldung As New System.Text.StringBuilder
                    sbMeldung.AppendFormat("{0} {1} {2}", "Die Maximo-Nummer ", _
                      abfr_MAXIMO)
                    sbMeldung.AppendLine()
                    sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                      AbfrageName.Count, " mal vergeben.")
                    sbMeldung.AppendLine()
                    sbMeldung.AppendLine()
                    sbMeldung.Append("Soll die Maximo-Nr trotzdem hinzugefügt" & _
                      "werden?")
                    .lbl_Meldung.Text = sbMeldung.ToString
 
                    'Alle Wohnorte an frm_Dialog übergeben
                    .ListBox_Daten.Items.AddRange(AbfrageName.ToArray)
 
                    'frm_Dialog anzeigen
                    .ShowDialog(Me)
                End With
 
                'Abfragen, ob Ja oder Nein geklickt wurde
                Form_Rueckgabewert = Dialog_Form.return_wert

   Dim q = From row As DataRow In LagerDB.Lagerliste
              Where row.RowState <> DataRowState.Deleted
              Order By row.Field(Of String)("Kostenstelle"), row.Field(Of _
                String)("Artikelbezeichnung") _
              Group By art = row.Field(Of String)("MAXIMO") Into Count()
 
        Dim df As New DataTable
        df.Columns.Add("Kostenstelle") : df.Columns.Add("Artikelbezeichnung") : _
          df.Columns.Add("MAXIMO", GetType(String)) : df.Columns.Add("Count", _
          GetType(Integer))
 
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        dgv_Auswertung.DataSource = bs

   dgv_Auswertung.Rows.Clear()
 
        Dim Abfrage_Maximo = From Eintrag In LagerDB.Lagerliste
                              Where Eintrag.RowState <> DataRowState.Deleted
                              Order By Eintrag.Standort Order By _
                                Eintrag.Kostenstelle Order By _
                                Eintrag.IsArtikelbezeichnungNull Order By _
                                Eintrag.IsArtikelnummerNull
                              Group By Art = Eintrag.IsMAXIMONull Into _
                              maximo_Gruppe = Group
 
        Dim ue As LagerlisteRow
        Dim Anz_Maximo As Integer 'Anzahl des gefundenen Maximo
        Dim Liste_Anzahl As Integer = 0
 
        For Each Artikel_Reihe In Abfrage_Maximo
            ue = Artikel_Reihe.maximo_Gruppe.First
 
            If Anz_Maximo = 0 Then 'Maximo wurde bisher nicht gefunden
 
                Anz_Maximo = Artikel_Reihe.maximo_Gruppe.Count
 
                dgv_Auswertung.Rows.Add({ue.Standort, ue.Kostenstelle, _
                  ue.Artikelbezeichnung, ue.Artikelnummer, ue.MAXIMO, _
                  Anz_Maximo})
 
                End If
 
            Liste_Anzahl += Anz_Maximo
 
        Next

  dgv_Auswertung.Rows.Clear()
 
        Dim Abfrage = From Eintrag In LagerDB.Lagerliste
                     Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                       Eintrag.INMAXIMO = True _
                     AndAlso Not IsDBNull(Eintrag.Artikelbezeichnung) _
                     AndAlso Not IsDBNull(Eintrag.Artikelnummer) _
                     AndAlso Not IsDBNull(Eintrag.MAXIMO)
                     Order By Eintrag.MAXIMO
                     Order By Eintrag.Artikelbezeichnung
                     Order By Eintrag.Artikelnummer
                     Order By Eintrag.USERNAME
                     Group By Art = Eintrag.MAXIMO Into UGruppe = Group
 
        Dim Benutzer As String
 
        Dim ue As LagerlisteRow
        Dim AnzMaximo, AnzMaximoGesamt As Integer
 
        For Each Reihe In Abfrage
            AnzMaximo = Reihe.UGruppe.Count
            AnzMaximoGesamt += AnzMaximo
 
            ue = Reihe.UGruppe.First
 
            Dim rowBenutzer = BenutzerDB.Benutzer.First(Function(f) f.ID = _
              ue.USERID)
 
            If Not rowBenutzer Is Nothing Then
 
                Benutzer = rowBenutzer.Benutzername
                dgv_Auswertung.Rows.Add({ue.Standort, ue.Kostenstelle, _
                  ue.Artikelbezeichnung, ue.Artikelnummer, ue.MAXIMO, _
                  ue.USERNAME, Reihe.UGruppe.Count})
            End If
        Next
 
        lbl_Anzahl_Gesamt.Text = String.Concat("Auswertung: Es wurden " & _
          AnzMaximoGesamt & " Maximo Nummern ermittelt!").ToString

EALA FREYA FRESENA

    'Anzahl der gefundenen Zeilen 
        Dim row_found As Integer = _
               Aggregate row As DataRow In LagerDB.Lagerliste.AsEnumerable _
                  Where row(search_columnindex).ToString.StartsWith( _
                  MAXIMOTextBox.Text) _
               Into Count()
 
        If row_found > 0 AndAlso Not searchlist.Contains(MAXIMOTextBox.Text) Then
            searchlist.Add(MAXIMOTextBox.Text)
            'LagerlisteDataGridView.InvalidateColumn(search_columnindex)
            Dim Form_Rueckgabewert As Boolean
 
            Using Dialog_Form As New frm_Dialog()
                With Dialog_Form
                    .ShowInTaskbar = True
 
                    'Titel an frm_Dialog übergeben
                    .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                    'Meldung an frm_Dialog übergeben
                    Dim sbMeldung As New System.Text.StringBuilder
                    sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                      MAXIMOTextBox.Text)
                    sbMeldung.AppendLine()
                    sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                      row_found, " mal vergeben.")
                    sbMeldung.AppendLine()
                    sbMeldung.AppendLine()
                    sbMeldung.Append("Soll die Maximo-Nr trotzdem hinzugefügt" & _
                      "werden?")
                    .lbl_Meldung.Text = sbMeldung.ToString
 
                    'Alle Wohnorte an frm_Dialog übergeben
                    .ListBox_Daten.Items.AddRange(searchlist.ToArray)
 
                    'frm_Dialog anzeigen
                    .ShowDialog(Me)
                End With
 
                'Abfragen, ob Ja oder Nein geklickt wurde
                Form_Rueckgabewert = Dialog_Form.return_wert
                If Form_Rueckgabewert = True Then
 
                End If
            End Using
 
        Else
        End If

EALA FREYA FRESENA

EALA FREYA FRESENA

 'Ermittlung der Jahreszahlen als Liste (LINQ)
   Dim dates As List(Of Integer) = _
    (From rw As DataRow In dt.AsEnumerable _
     Select yr = rw.Field(Of Date)("Date").Year Distinct Order By yr).ToList

 Private Function pruefe_Maximo(ByVal strPruefstring As String) As Boolean
        Dim Anz = (From Eintrag In LagerDB.Lagerliste
                  Where Eintrag.RowState <> DataRowState.Deleted _
                  AndAlso Eintrag.INMAXIMO = True _
                  AndAlso Eintrag.MAXIMO.ToLower = strPruefstring.ToLower _
                  Select Eintrag).Count
 
        If modus_Datensatz_Lagerliste = DatensatzModus.Neu Then
            If Anz > 0 Then Return False
        ElseIf modus_Datensatz_Lagerliste = DatensatzModus.Bearbeiten Then
            If Anz > 1 Then
 
                Dim Form_Rueckgabewert As Boolean
 
                Using Dialog_Form As New frm_Dialog()
                    With Dialog_Form
                        .ShowInTaskbar = True
 
                        'Titel an frm_Dialog übergeben
                        .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                        'Meldung an frm_Dialog übergeben
                        Dim sbMeldung As New System.Text.StringBuilder
                        sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                          strPruefstring)
                        sbMeldung.AppendLine()
                        sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                          Anz, " mal vergeben.")
                        sbMeldung.AppendLine()
                        sbMeldung.AppendLine()
                        sbMeldung.Append("Soll die Maximo-Nr trotzdem" & _
                          "hinzugefügt werden?")
                        .lbl_Meldung.Text = sbMeldung.ToString
 
                        'Alle Maximo mit 
                        ' Standort,Kostenstelle,Artikelbezeichnung,Artikelnumme
                        ' r an frm_Dialog übergeben
                        '.ListBox_Daten.Items.AddRange(???.ToArray)
 
                        'frm_Dialog anzeigen
                        .ShowDialog(Me)
                    End With
 
                    'Abfragen, ob Ja oder Nein geklickt wurde
                    Form_Rueckgabewert = Dialog_Form.return_wert
                    If Form_Rueckgabewert = True Then
                    Else
                        Return False
                    End If
                End Using
 
            End If
 
            End If
            Return True
    End Function

EALA FREYA FRESENA

 Private Function pruefe_Maximo(ByVal strPruefstring As String) As Boolean
        Dim Anz = From Eintrag In LagerDB.Lagerliste
                  Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                  (Eintrag.INMAXIMO = True) AndAlso (Eintrag.MAXIMO.ToLower = _
                  strPruefstring.ToLower) _
                  Select Eintrag.Standort, Eintrag.Kostenstelle, _
                  Eintrag.Artikelbezeichnung, Eintrag.Artikelnummer
 
        If modus_Datensatz_Lagerliste = DatensatzModus.Neu Then
            If Anz.Count > 0 Then
 
                Dim Form_Rueckgabewert As Boolean
 
                Using Dialog_Form As New frm_Dialog()
                    With Dialog_Form
                        .ShowInTaskbar = True
 
                        'Titel an frm_Dialog übergeben
                        .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                        'Meldung an frm_Dialog übergeben
                        Dim sbMeldung As New System.Text.StringBuilder
                        sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                          strPruefstring)
                        sbMeldung.AppendLine()
                        sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                          Anz.Count, " mal vergeben.")
                        sbMeldung.AppendLine()
                        sbMeldung.AppendLine()
                        sbMeldung.Append("Soll die Maximo-Nr trotzdem" & _
                          "hinzugefügt werden?")
                        .lbl_Meldung.Text = sbMeldung.ToString
 
                        'Alle Maximo mit 
                        ' Standort,Kostenstelle,Artikelbezeichnung,Artikelnumme
                        ' r an frm_Dialog übergeben
                        .ListBox_Daten.Items.AddRange(Anz.ToArray)
 
                        'frm_Dialog anzeigen
                        .ShowDialog(Me)
                    End With
 
                    'Abfragen, ob Ja oder Nein geklickt wurde
                    Form_Rueckgabewert = Dialog_Form.return_wert
                    If Form_Rueckgabewert = True Then
                    Else
                        Return False
                    End If
                End Using
 
            End If
 
        ElseIf modus_Datensatz_Lagerliste = DatensatzModus.Bearbeiten Then
            If Anz.Count > 1 Then
 
                Dim Form_Rueckgabewert As Boolean
 
                Using Dialog_Form As New frm_Dialog()
                    With Dialog_Form
                        .ShowInTaskbar = True
 
                        'Titel an frm_Dialog übergeben
                        .lbl_Titel.Text = "MAXIMO ist bereits vergeben!"
 
                        'Meldung an frm_Dialog übergeben
                        Dim sbMeldung As New System.Text.StringBuilder
                        sbMeldung.AppendFormat("{0} {1}", "Die Maximo-Nummer ", _
                          strPruefstring)
                        sbMeldung.AppendLine()
                        sbMeldung.AppendFormat("{0} {1} {2}", "ist bereits", _
                          Anz.Count, " mal vergeben.")
                        sbMeldung.AppendLine()
                        sbMeldung.AppendLine()
                        sbMeldung.Append("Soll die Maximo-Nr trotzdem" & _
                          "hinzugefügt werden?")
                        .lbl_Meldung.Text = sbMeldung.ToString
 
                        'Alle Maximo mit 
                        ' Standort,Kostenstelle,Artikelbezeichnung,Artikelnumme
                        ' r an frm_Dialog übergeben
                        .ListBox_Daten.Items.AddRange(Anz.ToArray)
 
                        'frm_Dialog anzeigen
                        .ShowDialog(Me)
                    End With
 
                    'Abfragen, ob Ja oder Nein geklickt wurde
                    Form_Rueckgabewert = Dialog_Form.return_wert
                    If Form_Rueckgabewert = True Then
                    Else
                        Return False
                    End If
                End Using
 
            End If
 
            End If
            Return True
    End Function