Index: TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb =================================================================== diff -u -r1614 -r1626 --- TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1614) +++ TAOR-rework-bugfixing/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1626) @@ -93,7 +93,7 @@ ''' Een optionele filter ''' Private Function GetDataReader(kolom As Kolommen, waarde As String, Optional filter As String = Nothing) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'") + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'") Try Dim kolomnaam As String = EnumMapper.geefCacheKolomNaamBijKolom(kolom) Dim equalsOfLikeSleutelwoord As String @@ -120,10 +120,10 @@ 'Uitvoeren van query en datareader retourneren. Dim dr = ExecuteIntoDataReader(query) - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'", True) + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'", True) Return dr Catch ex As Exception - Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.geefWaardeBijEnumValue(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") + Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") End Try End Function