Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml =================================================================== diff -u -r41052 -r49488 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml (.../Test.cls.xml) (revision 41052) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml (.../Test.cls.xml) (revision 49488) @@ -59,6 +59,21 @@ #dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = EconConfiguratieConverter.Convert(EconConfiguratie) ]]> + + + + Index: WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml =================================================================== diff -u -r41051 -r49488 --- WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 41051) +++ WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter.cls.xml (.../EconConfiguratieConverter.cls.xml) (revision 49488) @@ -28,6 +28,11 @@ Do EconConfiguratieAsObject.IngegevenKenmerken.FromArray(EconConfiguratie) + If (EconConfiguratie.GetAt("Data.Lijn.Isgeldig") = "false") { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.Exceptions.InvalidUserInputException).%New("The requested configuration is invalid!") + Do ##class(TECH.ExceptionHandler).Throw(Exception) + } + Set EconConfiguratieAsObject.Aantal = EconConfiguratie.GetAt("Data.Lijn.Aantal") Set EconConfiguratieAsObject.Referentie = EconConfiguratie.GetAt("Data.Lijn.Referentie") Set EconConfiguratieAsObject.GroeperingCode = EconConfiguratie.GetAt("Data.Lijn.Groeperingcode")