Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml =================================================================== diff -u -r67251 -r70888 --- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 67251) +++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml (.../HaefeleDEVerzendwijzeBepaler.cls.xml) (revision 70888) @@ -3,6 +3,23 @@ TECH.Mockable + +DOM.common.ProjectSettingsAPI +1 + + + +ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="" +1 +1 +%Status +1 + + + LandCode:%String,Postcode:%String %String @@ -104,9 +121,13 @@ 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))="")) { - Set Verzendwijze="HD3" + if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() { + Set Verzendwijze="HW3" + } else { + Set Verzendwijze="HD3" + } } if $$$Not($$$HasLength(Verzendwijze)){ @@ -216,7 +237,11 @@ } if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) { - Set Verzendwijze="HD3" + if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() { + Set Verzendwijze="HW3" + } else { + Set Verzendwijze="HD3" + } } if $$$Not($$$HasLength(Verzendwijze)){