Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml =================================================================== diff -u -r53152 -r53372 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 53152) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 53372) @@ -187,9 +187,22 @@ Set Hoofding.Referentie.CommissieReferentie = BestelWinkelkarRequest.Winkelkar.CommissieReferentie If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefVhisieEmailadressenNaarAx()) { - #dim EmailAdresBevestiging As %String = $$$If(##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBevestiging),"impersonificatie"),"",BestelWinkelkarRequest.Header.EmailAdresBevestiging) - Set Hoofding.EmailAdresBevestiging = $$$If(##class(TECH.MailUtils).Check(EmailAdresBevestiging),EmailAdresBevestiging,"") - Set Hoofding.EmailAdresBesteller = $$$If(##class(TECH.MailUtils).Check(BestelWinkelkarRequest.Header.EmailAdresBesteller),BestelWinkelkarRequest.Header.EmailAdresBesteller,"") + If (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBevestiging),"impersonificatie")) || + (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBevestiging),"multi")) { + Set Hoofding.EmailAdresBevestiging = "" + } ElseIf $$$Not(##class(TECH.MailUtils).Check(BestelWinkelkarRequest.Header.EmailAdresBevestiging)) { + Set Hoofding.EmailAdresBevestiging = "" + } Else { + Set Hoofding.EmailAdresBevestiging = BestelWinkelkarRequest.Header.EmailAdresBevestiging + } + + If (##class(TECH.StringUtils).StartsWith(##class(TECH.StringUtils).ToLower(BestelWinkelkarRequest.Header.EmailAdresBesteller),"multi")) { + Set Hoofding.EmailAdresBesteller = "" + } ElseIf $$$Not(##class(TECH.MailUtils).Check(BestelWinkelkarRequest.Header.EmailAdresBesteller)) { + Set Hoofding.EmailAdresBesteller = "" + } Else { + Set Hoofding.EmailAdresBesteller = BestelWinkelkarRequest.Header.EmailAdresBesteller + } } // ALS DE LOGGING WEER WEG MAG, VERGEET DAN NIET DE SPECIAAL HIERVOOR AANGEMAAKTE NIEUWE PROPERTY OfferteIDVoorLogging TERUG TE VERWIJDEREN !!! Do ##class(vhLib.Logger).%New("Vhisie4EmailAdressen").Debug("EmailAdresBevestiging", "OfferteId: '"_..OfferteIDVoorLogging_"' - Input vanuit Vhisie4 - EmailAdresBevestiging: '"_BestelWinkelkarRequest.Header.EmailAdresBevestiging_"'") Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r53267 -r53372 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 53267) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 53372) @@ -89,6 +89,114 @@ ]]> + + + + + + + + + + + +