Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r47503 -r47565
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 47503)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 47565)
@@ -186,7 +186,7 @@
 		#Dim LeverAdres As DOM.VKP.LeverAdres = ..AdresUtils.ConverteerNaarLeverAdres(Offerte.KlantID, Offerte.LeverAdres)
 
 		Do Order.ZetAfleveradres(LeverAdres)
-		Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())
+		Do Order.ZetOorsprong($$$If(Offerte.IsVhisie4(), ##class(BL.Flow.Offerte.enu.Oorsprong).Vhisie4Webshop(), ##class(BL.Flow.Offerte.enu.Oorsprong).UniShop()))
 		Do Order.ZetOorsprongKetting($$$LCVT(..BepaalOorsprongKetting(Offerte)))
 		Do Order.ZetEDINummer(Offerte.GeefEDINummerVoorEindklant())
 		
@@ -199,7 +199,6 @@
 			Do Order.ZetVerzendingWijze(LeverAdres.GeefVerzendingWijze())
 		}
 
-
 		Do ..TekstLijnenToevoeger.VoegToeOpmerkingLijnenAanOrder(Order, Offerte)
 		Do ..VoegToeWinkelkarLijnenAanOrder(Order, Offerte, GegevenBevestigingen)
 		
@@ -211,6 +210,7 @@
 		Do ..OfferteRepository.Bewaar(Offerte)
 
 		Do OperatieScope.Gelukt()
+		
 	} Catch {
 		Do OperatieScope.Gefaald()
 		Do ##class(TECH.ExceptionHandler).Rethrow()