TECH.Mockable DOM.common.ProjectSettingsAPI 1 ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="" 1 1 %Status 1 LandCode:%String,Postcode:%String %String = 0) & (NumPostcode < 20000))||((NumPostcode >=20000) & (NumPostcode < 28000))) { Set Verzendwijze = "HD3" } elseif (((NumPostcode >=28000) & (NumPostcode <67000)) || ((NumPostcode >=80000) & (NumPostcode < 100000))) { Set Verzendwijze = "HD2" } elseif (((NumPostcode >=67000) & (NumPostcode <80000))) { Set Verzendwijze = "HD1" } } if ((LandCode = "LU") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Verzendwijze = "DA3" } if ((LandCode = "SE") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { #dim Regio as %Integer = +$Extract(Postcode,1,2) If (Regio < 78) { Set Verzendwijze = "DA8" } Elseif ((Regio > 77) && (Regio < 90)) { Set Verzendwijze = "DA9" } Else { Set Verzendwijze = "DAX" } } if ((LandCode = "FI") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Regio = +$Extract(Postcode,1,2) If (Regio < 16) { Set Verzendwijze = "DA8" } Else { 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) { 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 = "DA3" } Elseif((Regio > 39) && (Regio < 70)) { Set Verzendwijze = "DA2" } Else { Set Verzendwijze = "DA3" } } if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { #dim PostcodeText as %String = ##class(TECH.StringUtils).AddLeadingChar(Postcode,"0",5) Set Regio = +$Extract(PostcodeText,1,2) If (Regio < 2) { Set Verzendwijze = "HD2" } Elseif((Regio > 1) && (Regio < 40)) { Set Verzendwijze = "HD4" } Elseif((Regio > 39) && (Regio < 67)) { Set Verzendwijze = "HD3" } Elseif((Regio > 66) && (Regio < 78)) { Set Verzendwijze = "HD2" } Elseif((Regio > 77) && (Regio < 88)) { Set Verzendwijze = "HD4" } Elseif((Regio > 87) && (Regio < 96)) { Set Verzendwijze = "HD2" } Else { Set Verzendwijze = "" } } if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Verzendwijze="DA2" } if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() { Set Verzendwijze="HW3" } else { Set Verzendwijze="HD3" } } 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 ]]> LandCode:%String,Postcode:%String 1 %String = 0) & (NumPostcode < 40000)):"HD5", ((NumPostcode >= 40000) & (NumPostcode < 70000)):"HD4", ((NumPostcode >= 70000) & (NumPostcode < 80000)):"HD3", ((NumPostcode >= 80000) & (NumPostcode < 100000)):"HD4", 1:"") } if ((LandCode = "LU") & ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Verzendwijze = "DA3" } if ((LandCode = "SE") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { #dim Regio as %Integer = +$Extract(Postcode,1,2) If (Regio < 78) { Set Verzendwijze = "DA8" } Elseif ((Regio > 77) && (Regio < 90)) { Set Verzendwijze = "DA9" } Else { Set Verzendwijze = "DAX" } } if ((LandCode = "FI") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Regio = +$Extract(Postcode,1,2) If (Regio < 16) { Set Verzendwijze = "DA8" } Else { 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) { 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 = "DA3" } Elseif((Regio > 39) && (Regio < 70)) { Set Verzendwijze = "DA2" } Else { Set Verzendwijze = "DA3" } } if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { #dim PostcodeText as %String = ##class(TECH.StringUtils).AddLeadingChar(Postcode,"0",5) Set Regio = +$Extract(PostcodeText,1,2) If (Regio < 2) { Set Verzendwijze = "HD2" } Elseif((Regio > 1) && (Regio < 40)) { Set Verzendwijze = "HD4" } Elseif((Regio > 39) && (Regio < 67)) { Set Verzendwijze = "HD3" } Elseif((Regio > 66) && (Regio < 78)) { Set Verzendwijze = "HD2" } Elseif((Regio > 77) && (Regio < 88)) { Set Verzendwijze = "HD4" } Elseif((Regio > 87) && (Regio < 96)) { Set Verzendwijze = "HD2" } Else { Set Verzendwijze = "" } } if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { Set Verzendwijze="DA2" } if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() { Set Verzendwijze="HW3" } else { Set Verzendwijze="HD3" } } 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 ]]>