Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml =================================================================== diff -u -r61875 -r62774 --- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 61875) +++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 62774) @@ -7,6 +7,8 @@ LandCode:%String,Postcode:%String %String + + +LandCode:%String,Postcode:%String +1 +%String += 0) & (NumPostcode < 40000)):"HD3", + ((NumPostcode >= 40000) & (NumPostcode < 70000)):"HD2", + ((NumPostcode >= 70000) & (NumPostcode < 80000)):"HD1", + ((NumPostcode >= 80000) & (NumPostcode < 100000)):"HD2", + 1:"") + } + + if ((LandCode = "LU") & ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { + Set Verzendwijze = "HD2" + } + + if $$$Not($$$HasLength(Verzendwijze)){ + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_") combinatie voor Haefele DE")) + } + Quit Verzendwijze +]]> +