Public Enum ItemType
    Geen = 0
    Rework = 1
    Sifonlade = 2
    DubbeleSifonlade = 3
    Testlade = 4
    Staal = 5
    Voorraad = 6
    DiepereZijkant = 7
    NieuweKleur = 8
    HogereZijkant = 9
End Enum

Public Enum Kolommen
    Barcode = 0
    Batch = 1
    Toelevering = 2
    Sorteerkar = 3
    Klantnaam = 4
    DossierCode = 5
    BarcodesVoorraad = 6
    BarcodeArdis = 7
End Enum

Public Enum LinksOfRechts
    Links = 0
    Rechts = 1
End Enum

Public Module EnumMapper
#Region "ItemType"
    Public Function GeefArdisTextBijItemType(itemType As ItemType) As String
        Select Case itemType
            Case ItemType.Rework
                Return "RW_TAORRW"
            Case ItemType.Sifonlade,
                ItemType.DubbeleSifonlade,
                ItemType.DiepereZijkant,
                ItemType.HogereZijkant,
                ItemType.NieuweKleur
                Return "SPECIAL"
            Case ItemType.Testlade
                Return "TESTLADE"
            Case ItemType.Staal
                Return "STAAL"
            Case ItemType.Voorraad
                Return "VOORRAAD"
            Case Else
                Throw New Exception($"Dit itemType: '{GeefTekstVanEnumOptie(itemType)}' kan niet worden gebruikt om ArdisText op te vragen.")
        End Select
    End Function

    ''' <summary>
    ''' De letterlijke tekst opvragen van een enum optie. In uppercase.
    ''' </summary>
    ''' <param name="itemType">De enum optie</param>
    ''' <returns>De letterlijke tekst</returns>
    Public Function GeefTekstVanEnumOptie(itemType As ItemType) As String
        Return [Enum].GetName(GetType(ItemType), itemType).ToUpper()
    End Function

#End Region

#Region "Kolommen"
    Public Function GeefCacheKolomNaamBijKolom(kolom As Kolommen)
        Select Case kolom
            Case Kolommen.Barcode
                Return "verwerkingID"
            Case Kolommen.Batch
                Return "batchID"
            Case Kolommen.Toelevering
                Return "toeleveringID"
            Case Kolommen.Sorteerkar
                Return "kar"
            Case Kolommen.Klantnaam
                Return "naam"
            Case Kolommen.DossierCode
                Return "dossierCode"
            Case Else
                Throw New Exception($"Cache kolomnaam kon niet worden opgevraagd met kolom: '{GeefTekstVanEnumOptie(kolom)}'")
        End Select
    End Function

    ''' <summary>
    ''' De letterlijke tekst opvragen van een enum optie. In lowercase.
    ''' </summary>
    ''' <param name="kolom">De enum optie</param>
    ''' <returns>De letterlijke tekst</returns>
    Public Function GeefTekstVanEnumOptie(kolom As Kolommen) As String
        Return [Enum].GetName(GetType(Kolommen), kolom).ToLower()
    End Function
#End Region

End Module