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
+]]>
+