Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r52735 -r60514
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 52735)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 60514)
@@ -28,11 +28,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FormatAPI">
-<Type>TECH.Format.FormatAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OfferteRepository">
 <Type>APPS.VKP.Offerte.impl.OfferteRepository</Type>
 <Private>1</Private>
@@ -83,16 +78,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime.DateTimeAPI="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,AdresUtils:APPS.VKP.OrderIngave.impl.AdresUtils,WinkelkarLijnenNaarOrderKopieerder:APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder,LeveradresAanpasser:APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem</FormalSpec>
+<FormalSpec>TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime.DateTimeAPI="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,AdresUtils:APPS.VKP.OrderIngave.impl.AdresUtils,WinkelkarLijnenNaarOrderKopieerder:APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder,LeveradresAanpasser:APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem,ProductAPI:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..TekstLijnenToevoeger = $$$Implementation(TekstLijnenToevoeger, ##class(APPS.VKP.OrderIngaveService.TekstLijnenToevoeger).%New(DateTimeAPI))
 	Set ..DateTimeAPI = $$$Implementation(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
-	Set ..FormatAPI = ##class(APPS.VKP.OrderIngave.IoCContainer).Instance().Resolve("Formatter")
 	Set ..WinkelkarLijnenNaarOrderKopieerder = $$$Inject(WinkelkarLijnenNaarOrderKopieerder,##class(APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder).%New())
 	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
 	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
@@ -104,6 +103,7 @@
 	Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
 	Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New())
 	set ..LeveradresAanpasser = $$$Inject(LeveradresAanpasser,##class(APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem).%New())
+	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -174,7 +174,7 @@
 			
 			Set Boodschap = "Van deze webofferte is reeds een order gemaakt met nummer " _ Offerte.OrderID _ ", op tijdstip " _ Order.GeefIngegevenOpTijdstip() _ " door "_Gebruiker.GeefNaam()_". Weet u zeker dat u nóg een order wilt maken van deze webofferte?"
 		} Else {
-			Set Boodschap = "Van deze webofferte is reeds een order gemaakt met nummer " _ Offerte.OrderID _ ", dit order bestaat nu niet meer. Weet u zeker dat u nóg een order wilt maken van deze webofferte?"
+			Set Boodschap = "Van deze webofferte is al een "_..GeefTekstVoorOrder(Offerte)_" gemaakt. Dit order bestaat nu niet meer. Controleer de orders in AX. "_$$$CRLF_"Weet u zeker dat u nóg een order wilt maken van deze webofferte?"
 		}
 		
 		Set BevestigingControleur = ##class(APPS.common.Bevestigen.impl.BevestigingControleur).Instance()
@@ -183,13 +183,10 @@
 		Do BevestigingControleur.VerzekerBevestiging(..#MaakOrderVanOfferteDubbelBestellen, GegevenBevestigingen)
 	}
 
-	#Dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-
 	Try {
 		#Dim OrderDocRef As DOM.VKP.DocumentReferenties = Offerte.GeefDocumentReferenties().%ConstructClone(1)		
 		
 		Set Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(Offerte.KlantID)
-		Set OrderDocRef.OrderReferentie = ..FormatAPI.FormatHorolog(..DateTimeAPI.CurrentHorolog(), "DD.MM.JJ")_" "_OrderDocRef.OrderReferentie
 		
 		Do ..DocumentReferentiesRepository.Bewaar(OrderDocRef)
 		Do Order.ZetDocumentReferenties(OrderDocRef)	
@@ -203,6 +200,7 @@
 		Do Order.ZetOorsprongKetting($$$LCVT(..BepaalOorsprongKetting(Offerte)))
 		Do Order.ZetEDINummer(Offerte.GeefEDINummerVoorEindklant())
 		Do Order.ZetEmailAdresBesteller(Offerte.GeefEmailAdresBesteller())
+		Do Order.ZetEmailAdresBevestiging(Offerte.GeefEmailAdresBevestiging())
 		
 		If ..GebruiktExternTransport(Offerte) {
 			Do Order.ZetLeveringVoorwaarde(##class(DOM.CRM.enu.LeveringVoorwaarde).KostInManueleLijn())
@@ -222,11 +220,7 @@
 		
 		Do Offerte.ZetOrderID(Order.GeefID())
 		Do ..OfferteRepository.Bewaar(Offerte)
-
-		Do OperatieScope.Gelukt()
-		
 	} Catch {
-		Do OperatieScope.Gefaald()
 		Do ##class(TECH.ExceptionHandler).Rethrow()
 	}
 	
@@ -244,6 +238,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTekstVoorOrder">
+<FormalSpec>Offerte:APPS.VKP.impl.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IsTijdelijkOrder As %Boolean = ##class(APPS.VKP.impl.AdminOrderService).IsTijdelijkOrder(Offerte.OrderID)
+	Quit $S(IsTijdelijkOrder:"tijdelijk order '" _ Offerte.OrderID _ "' in Admin", 1:"order '" _ Offerte.OrderID _ "'")
+]]></Implementation>
+</Method>
+
 <Method name="VoegToePalletten">
 <FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte</FormalSpec>
 <Private>1</Private>
@@ -269,6 +273,11 @@
 	#dim TransportProductLijn As DOM.VKP.ProductOrderlijn = Order.MaakNieuweProductLijn( ..#TransportProductID)
 	Do TransportProductLijn.ZetAantal(1)	
 	Do TransportProductLijn.ZetTotaalExclBTW(EenheidPrijsExclBTW)
+
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(..#TransportProductID)
+	Do TransportProductLijn.ZetBTWCode(Product.GeefBTWCode())
+	Do TransportProductLijn.ZetAfrondingRegel(Product.GeefGrootteOrdeVerkoop()_1)
+
 	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
 	Do TransportProductLijn.ZetTekstVoorAfdrukDocumentType(ManueleLijnOmschrijving,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
 ]]></Implementation>
@@ -309,16 +318,21 @@
 <FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID)	
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID)	
+	
+	Set LeverDatumBepaler = ##class(APPS.VKP.OrderIngaveService.LeverDatumBepaler).%New()
+	
+	#dim LeverDatum As %Date = LeverDatumBepaler.Bepaal(Offerte)
+	
 	If Offerte.WensLeverDatum = "ASAP" {
-		Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("LEVERTERMIJN EC PV","WINKELKAR MET ASAP "_Offerte.WinkelkarID_"  "_Order.GeefID()_" WensLevDatum:"_Offerte.WensLeverDatum_" LevDatum:"_Offerte.LeverDatum)
+		Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("LEVERTERMIJN EC PV","WINKELKAR MET ASAP "_Offerte.WinkelkarID_"  "_Order.GeefID()_" WensLevDatum:"_Offerte.WensLeverDatum_" LevDatum:"_LeverDatum)
 
 		#dim VroegsteLeverdatums as array of %Date = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar)
-		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen,Offerte.LeverDatum,VroegsteLeverdatums)
+		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen, LeverDatum,VroegsteLeverdatums)
 	} else {
-		Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("LEVERTERMIJN EC PV","WINKELKAR ZONDER ASAP "_Offerte.WinkelkarID_"  "_Order.GeefID()_"  WensLevDatum:"_Offerte.WensLeverDatum_" LevDatum:"_Offerte.LeverDatum)
+		Do ##class(vhLib.Logger).%New("SalesPriceService").Debug("LEVERTERMIJN EC PV","WINKELKAR ZONDER ASAP "_Offerte.WinkelkarID_"  "_Order.GeefID()_"  WensLevDatum:"_Offerte.WensLeverDatum_" LevDatum:"_LeverDatum)
 
-		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen,Offerte.LeverDatum,"")
+		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen, LeverDatum,"")
 	}
 ]]></Implementation>
 </Method>