Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml =================================================================== diff -u -r64281 -r64627 --- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 64281) +++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 64627) @@ -113,7 +113,28 @@ Set Verzendwijze = "DA6" } } - + 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)) { + Set Verzendwijze = "HD5" + } Elseif((Regio > 45) && (Regio < 59)) { + Set Verzendwijze = "HD6" + } Else { + Set Verzendwijze = "HD7" + } + } + if ((LandCode = "AT") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { + Set Regio = +$Extract(Postcode,1,2) + If (Regio < 40) { + Set Verzendwijze = "HD4" + } Elseif((Regio > 39) && (Regio < 70)) { + Set Verzendwijze = "HD2" + } Else { + Set Verzendwijze = "HD4" + } + } if $$$Not($$$HasLength(Verzendwijze)){ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_") combinatie voor Haefele DE"))