Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb =================================================================== diff -u -r1938 -r1941 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb (.../LaseropdrachtController.vb) (revision 1938) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb (.../LaseropdrachtController.vb) (revision 1941) @@ -55,6 +55,8 @@ ' Graveer instelling opzoeken aan de hand van de kleur Dim graveerInstelling = _graveerInstellingenRepository.GraveerInstellingen.Find(Function(x) x.Kleur = _laserOpdracht.LadeKleur) + If IsNothing(graveerInstelling) Then Throw New Exception($"Er is nog geen configuratie voor kleur '{_laserOpdracht.LadeKleur}'") + 'Graveer instelling attributen splitsen in een string tussen aanhalingstekens Dim graveerInstellingString = $"""{graveerInstelling.MateriaalHoogte}"" " & $"""{graveerInstelling.Graveervermogen}"" " &