Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml =================================================================== diff -u -r66984 -r67229 --- APPS/EC/impl/VerzendWijzeBepaler.cls.xml (.../VerzendWijzeBepaler.cls.xml) (revision 66984) +++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml (.../VerzendWijzeBepaler.cls.xml) (revision 67229) @@ -106,6 +106,11 @@ Set Partij = ..PartijApi.GeefPartij(KlantID) Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode()) Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode()) + } ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleNO){ + Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNoorwegen() + Set Partij = ..PartijApi.GeefPartij(KlantID) + Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode()) + Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode()) } ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleIT){ Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleItalie() Set Partij = ..PartijApi.GeefPartij(KlantID)