Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36336 -r36380
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36336)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36380)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller">
-<IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
+<IncludeCode>APPS.TBXWeb.DomeinNamen,BL.EC.Common</IncludeCode>
 <Super>TECH.Mockable</Super>
 
 <Property name="Aanvraag">
@@ -39,6 +39,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WS">
+<Type>WS.TBX.DataIOWWWSoap</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,ProductlijnToevoeger:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</FormalSpec>
 <Private>1</Private>
@@ -52,6 +57,7 @@
 	Set ..OrderVerwerker = ##class(APPS.TBXWeb.impl.OrderVerwerker).%New()
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
 	Set ..NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
+	Set ..WS = ##class(WS.TBX.DataIOWWWSoap).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -67,6 +73,9 @@
 		If ..WebOrder.Lijnen.Count(){
 			Do ..ZetHoofding()
 			Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
+			Do ..BerekenPrijzen()
+			Set ..WebOrder.BonType = "OFF"
+			Set ..WebOrder.mID = $listget(..WS.WSOrdToWWW(..WebOrder,$$$WSInternalSecureKey),1)		
 			Set Resultaat.OfferteID = ..WebOrder.mID
 		}
 	} Catch {
@@ -79,13 +88,15 @@
 </Method>
 
 <Method name="BestelOfferte">
+<FormalSpec>OfferteID:%String</FormalSpec>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Try {
-		Do ..OrderVerwerker.ConverteerWebOrderNaarOfferte(..WebOrder)
-		Set Resultaat.OfferteID = ..WebOrder.mID
-		Do ..MailBevestiging()
+		#dim WebOrder As WS.TBX.Order = ..WS.GetWSOrdFromWWW(OfferteID,$$$WSInternalSecureKey)
+		Set WebOrder.BonType = "BBON"
+		Do ..WS.WSOrdToWWW(WebOrder,$$$WSInternalSecureKey,"Bestel=1;REQ=VHEPN;SHOP=VHEPN")		
+		Set Resultaat.OfferteID = WebOrder.mID
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 	 	Set Resultaat.Exceptie = Exception
@@ -103,11 +114,10 @@
 <Method name="ZetHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..WebOrder.BonType = "BBON"
-	Set ..WebOrder.mID = ..BepaalWebOrderID()
+	Set ..WebOrder.BonType = "OFF"
 	Set ..WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN
 	Set ..WebOrder.Opmerking1 = ""
-	Set ..WebOrder.ShowInHist = "10"
+	Set ..WebOrder.ShowInHist = 80
 	Set ..WebOrder.LeverTijd = ..Aanvraag.Order.GevraagdeLeverdatum
 	Set ..WebOrder.IngaveTijdStip = ..Aanvraag.Order.IngaveTijdStip
 	Set ..WebOrder.Commissie = ..Aanvraag.Order.CommissieReferentie
@@ -135,26 +145,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalWebOrderID">
+<Method name="BerekenPrijzen">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "0"
-]]></Implementation>
-</Method>
-
-<Method name="MailBevestiging">
-<Private>1</Private>
 <Implementation><![CDATA[
-	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
-	#dim Mail As TECH.Mail.Mail = ##class(TECH.Context).Instance().GeefMailAPI().MaakNieuwMail()
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(..Aanvraag.Header.KlantID)
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Aanvraag.Header.KlantID)	
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Partij.GeefID())
-	Do Mail.ZetVerzender("TBX EDI Verwerker")
-	Do Mail.ZetOnderwerp("TBX EDI bestelling van klant "_KlantNr_" '"_Klant.GeefNaam()_"' ontvangen")
-	Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())	
-	Do Mail.ZetInhoud("Er is een TBX EDI Bestelling van "_Klant.GeefNaam()_" met nr "_..WebOrder.mID_" ontvangen")
-	Do MailAPI.VerstuurMail(Mail)
+	Set blTBox=##class(BL.PR.GA.TandemBox).%New()
+	Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
+	Do blTBox.BuildFromWS(..WebOrder,"PRS=1;SAV=0;KPR=0")
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn
+	#dim LijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..WebOrder.Lijnen)
+	While LijnenIterator.HasNext(){
+		Set WebOrderLijn = LijnenIterator.Next()
+		If $$$Not((+WebOrderLijn.KostPrijs > 0) && (+WebOrderLijn.AKPrijs > 0)){
+			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Prijs kon niet berekend worden")
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>