Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml =================================================================== diff -u -r65183 -r67251 --- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 65183) +++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 67251) @@ -44,6 +44,20 @@ Set Verzendwijze = "DAX" } } + + if ((LandCode = "NO") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { + Set Regio = +$Extract(Postcode,1,2) + If (Regio < 13) { + Set Verzendwijze = "DA4" + } Elseif (Regio < 80) { + Set Verzendwijze = "DA5" + } Elseif (Regio < 90) { + Set Verzendwijze = "DA6" + } Else { + Set Verzendwijze = "DA7" + } + } + if ((LandCode = "IT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Regio = +$Extract(Postcode,1,2) If (Regio < 10) { @@ -141,8 +155,22 @@ Set Verzendwijze = "DAX" } } - if ((LandCode = "IT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { + + if ((LandCode = "NO") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Regio = +$Extract(Postcode,1,2) + If (Regio < 13) { + Set Verzendwijze = "DA4" + } Elseif (Regio < 80) { + Set Verzendwijze = "DA5" + } Elseif (Regio < 90) { + Set Verzendwijze = "DA6" + } Else { + Set Verzendwijze = "DA7" + } + } + + if ((LandCode = "IT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { + Set Regio = +$Extract(Postcode,1,2) If (Regio < 10) { Set Verzendwijze = "HD4" } Elseif((Regio > 9) && (Regio < 46)) {