Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r50088 -r51081 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 50088) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 51081) @@ -325,8 +325,19 @@ #dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI() #dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BONNr) #dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = Bon.GeefOorsprong() - Set AfzenderHoofdingBepaler = ##class(BL.Flow.Proxy.impl.AfzenderHoofdingBepaler).%New() - #dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = AfzenderHoofdingBepaler.GeefAfzenderHoofdingDto(Oorsprong) + + #dim PersonalityID As DOM.common.enu.Personality + Set PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke() + If Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).NotebornTaorCubicsWebshop() { + Set PersonalityID = ##class(DOM.common.enu.Personality).Noteborn() + } Else { + Set PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke() + } + Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New() + #dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = LeverbonHoofdingBepaler.BepaalLeverbonHoofding(##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(PersonalityID)) + + //Set AfzenderHoofdingBepaler = ##class(BL.Flow.Proxy.impl.AfzenderHoofdingBepaler).%New() + //Set AfzenderHoofdingDto = AfzenderHoofdingBepaler.GeefAfzenderHoofdingDto(Oorsprong) #dim HeeftEigenHoofding As %Boolean = (AfzenderHoofdingDto.HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()) #dim IsOrgalux As %Boolean = ..DocIsOrgalux(BONNr)