Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r429 -r433
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 429)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 433)
@@ -118,7 +118,6 @@
 	Set ..WSOrd=WSOrd
 	Set:(OutputType="PRINT") pxOrder=..BuildDocPrint(.sc)
 	Set:(OutputType="EDI"  ) pxOrder=..BuildDocEDI(.sc)
-	Set:(OutputType="EDIxx") pxOrder=..BuildDocEDIxxPREV(.sc)
 	Quit pxOrder
 ]]></Implementation>
 </Method>
@@ -252,23 +251,23 @@
 <Method name="BerekenTotaalPrijzenVanWebOrder">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set TotPrijsVK=0
-	Set TotPrijsAK=0
+	Set OrderTotaalPrijsVK=0
+	Set OrderTotaalPrijsAK=0
 	Set i=""
 	For  Set WSLn=..WebOrder.Lijnen.GetNext(.i) Quit:(i="")  Do
-	. Set TotPrijsVK=TotPrijsVK+(WSLn.KostPrijs*WSLn.Qty)
-	. Set TotPrijsAK=TotPrijsAK+(WSLn.AKPrijs*WSLn.Qty)
+	. Set OrderTotaalPrijsVK=OrderTotaalPrijsVK+(WSLn.KostPrijs*WSLn.Qty)
+	. Set OrderTotaalPrijsAK=OrderTotaalPrijsAK+(WSLn.AKPrijs*WSLn.Qty)
 
-	Set ..TotPrijsVK=..TotPrijsVK+TotPrijsVK
-	Set ..TotPrijsAK=..TotPrijsAK+TotPrijsAK
+	Set ..TotPrijsVK=..TotPrijsVK+OrderTotaalPrijsVK
+	Set ..TotPrijsAK=..TotPrijsAK+OrderTotaalPrijsAK
 ]]></Implementation>
 </Method>
 
 <Method name="VulTotaalPrijzen">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..pxOrder.TotPrijsVK=$S(..blnShowVKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(..TotPrijsVK,..Munt  ), 1:"")   ; =..PrijsConvert(MuntCalc  ,TotPrijsVK)
-	Set ..pxOrder.TotPrijsAK=$S(..blnShowAKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(..TotPrijsAK,..MuntAK), 1:"")   ; =..PrijsConvert(MuntCalcAK,TotPrijsAK)
+	Set ..pxOrder.TotPrijsVK=$S(..blnShowVKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(..TotPrijsVK,..Munt  ), 1:"")   ; =..PrijsConvert(MuntCalc  ,..TotPrijsVK)
+	Set ..pxOrder.TotPrijsAK=$S(..blnShowAKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(..TotPrijsAK,..MuntAK), 1:"")   ; =..PrijsConvert(MuntCalcAK,..TotPrijsAK)
 	;Set ..pxOrder.Munt=""
 ]]></Implementation>
 </Method>
@@ -744,132 +743,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BuildDocEDIxxPREV">
-<Description>
-Proxy-Doc voor EDI 
-Previous implementation : to compare result of this version with the result of the new implementation </Description>
-<FormalSpec><![CDATA[&sc:%Status]]></FormalSpec>
-<ReturnType>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</ReturnType>
-<Implementation><![CDATA[
-	#define DateH(%v)                   $S(%v="":"", %v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
-	#define GetVertaling(%i,%tl,%tt)    ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1)
-	
-	Quit:('$IsObject(..WSOrd)) ""
-
-	  d WLIP^vhDBG(97,"BuildDocEDI_PREV")
-	
-	// Prepare variables 
-	Set WSOrd=..WSOrd
-	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(WSOrd.WebDomain,"")
-	Set ..sDomVERW=TBXContext.GeefDomeinVerwerker()
-	
-	Set Taal=""
-	If TBXContext.KlantGegevensViaDataOpt() Do
-	. Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(..sDomVERW,WSOrd.KLNummer)   ; ,$LB("Stg","NoAction"))
-	. Set:($IsObject(KLMini)) Taal=KLMini.Taal
-	. Set KLMini=""
-	Else  Do
-	. ;Set Taal=WSOrd.Taal
-	Set:(Taal?1(1"N",1"F",1"E",1"D")) ..Taal=Taal
-	 
-	Set ..MuntAK="EUR"
-	Set ..Munt=$$GetUserMunt^cspBasis.Library(..sDomVERW,)
-	If ..sDomVERW="SFS" Do
-	. ; Aankoopprijzen in EUR berekend en getoond 
-	. ; Verkoopprijzen in CHF berekend en getoond 
-	Set sc=$$$OK
-	
-	// Create Proxy 
-	Set pxOrder=##class(BL.Prod.GAData.TBXLadeXML.pxEDIOrder).%New()
-	
-	// Copy Properties 
-	Set pxOrder.OrderNr=WSOrd.OrderNr   ; Set pxOrder.mID=WSOrd.mID
-	Set pxOrder.Taal=$S($L(WSOrd.Taal):WSOrd.Taal,1:..Taal)
-	Set pxOrder.BonType=WSOrd.BonType
-	Set pxOrder.Commissie=WSOrd.GeefOrderReferentie()_"_PREV"
-	Set pxOrder.KLNaam=WSOrd.KLNaam
-	Set pxOrder.KLNummer=WSOrd.KLNummer
-	Set pxOrder.KLStraatNrBus=WSOrd.KLStraatNrBus
-	Set pxOrder.KLPostNr=WSOrd.KLPostNr
-	Set pxOrder.KLWoonPlaats=WSOrd.KLWoonPlaats
-	Set pxOrder.KLTelefoon=WSOrd.KLTelefoon
-	Set pxOrder.KLFax=WSOrd.KLFax
-	Set pxOrder.KLEMail=WSOrd.KLEMail
-	Set pxOrder.KLBTWNr=WSOrd.KLBTWNr
-	Set pxOrder.KLKorting=WSOrd.KLKorting
-	
-	Set pxOrder.TotAantal=WSOrd.TotAantal
-	Set pxOrder.ExtraTekst=WSOrd.ExtraTekst
-	Set pxOrder.Opmerking1=WSOrd.Opmerking1
-	Set pxOrder.ActieCodesList=WSOrd.ActieCodesList   ; niet bij groeporder 
-	
-	// Levertijd 
-	;Set pxOrder.LeverTijdID=WSOrd.LeverTijdID
-	If WSOrd.LeverTijdID="ASAP" Do
-	. Set LevTOms=WSOrd.LeverTijd
-	. Set:(LevTOms[" (") $P(LevTOms," (",1)="ASAP"
-	. Set pxOrder.LeverTijd=LevTOms
-	Else  If WSOrd.LeverTijdID="LATER" Do
-	. Set pxOrder.LeverTijd=WSOrd.LeverTijd
-	Else  If $L(WSOrd.LeverTijdID) Do
-	. Set LevTOms=$TR(WSOrd.LeverTijd,$C(160)," ")
-	. Set LevTOms=$$$Replace(LevTOms," - ","-")
-	. Set:($L(LevTOms," (")>1) LevTOms=$$$Trim($P(LevTOms," (",1))_" ("_$P(LevTOms," (",2,99)
-	. Set LevTOms=$$$Replace(LevTOms,"Semaine","Sem.")
-	. Set pxOrder.LeverTijd=LevTOms
-	Else  Do
-	. Set pxOrder.LeverTijd=WSOrd.LeverTijd
-	
-	// Niet Meeleveren 
-	Do   ; If $L(WSOrd.NietMeeleveren) Do
-	. Set str=""
-	. For i=1:1:$L(WSOrd.NietMeeleveren,";") Do
-	. . Set NietMeeKey=($P(WSOrd.NietMeeleveren,";",i))
-	. . Set:($E(NietMeeKey,1,2)="NM")&&($E(NietMeeKey,3)'="_") $E(NietMeeKey,1,2)="NM_"
-	. . Set:($L(NietMeeKey)) str=str_$S($L(str):", ", 1:"")_$$$LCase($$$GetVertaling(NietMeeKey,..Taal,"L"))
-	. Set WSOrd.NietMeeleverenOms=str
-	Set pxOrder.NietMeeleveren=WSOrd.NietMeeleveren
-	Set pxOrder.NietMeeleverenOms=WSOrd.NietMeeleverenOms
-	
-	Set:($L(WSOrd.IngaveTijdStip)) pxOrder.IngaveTijdStip=$$FormatDateTime^vhLib("yyyy-mm-dd hh:nn:ss", $$$DateH(WSOrd.IngaveTijdStip))
-	Set:($L(WSOrd.SubmitTS)) pxOrder.SubmitTS=$$FormatDateTime^vhLib("yyyy-mm-dd hh:nn:ss", $$$DateH(WSOrd.SubmitTS))
-	Set:($LG($LG(WSOrd.SubmitToVHLog,1),1)>0) pxOrder.SubmitToVHTS=$$FormatDateTime^vhLib("yyyy-mm-dd hh:nn:ss", $LG($LG(WSOrd.SubmitToVHLog,1),1), ..Taal)
-	
-	Set pxOrder.URLPrintPage = WSOrd.GetPrintPageURL(,..Taal)   ; niet bij groeporder 
-	
-	;Set pxOrder.KLPrijsKlasse=WSOrd.KLPrijsKlasse
-	;Set pxOrder.TransferLog=WSOrd.TransferLog
-	;Set pxOrder.WebDomain=WSOrd.WebDomain
-	;Set pxOrder.WebQSData=WSOrd.WebQSData
-	;Set pxOrder.WebURL=WSOrd.WebURL
-	;Set pxOrder.ShowInHist=WSOrd.ShowInHist
-	
-	Set blnContainsGlas=0
-	Set i=""
-	For  Set WSLn=pxOrder.Lijnen.GetNext(.i) Quit:(i="")  Set blnContainsGlas=(blnContainsGlas)||(WSLn.LadeBevatGlasOfInschuifElement())
-
-	// Fill Order Lijnen 
-	Set i=""
-	For  Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="")  Do  Quit:($$$ISERR(sc))
-	. Set pxLijn=..BuildLijnEDI(WSLn, .sc)
-	. Quit:($$$ISERR(sc))||('$IsObject(pxLijn))
-	. Do pxOrder.Lijnen.Insert(pxLijn)
-	. Set:(blnContainsGlas) pxLijn.ItemKVOms="-"
-	
-	/// Prijzen invullen 
-	Set (TotPrijsVK,TotPrijsAK)=0
-	Set i=""
-	For  Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="")  Do
-	. Set TotPrijsVK=TotPrijsVK+(WSLn.KostPrijs*WSLn.Qty)
-	. Set TotPrijsAK=TotPrijsAK+(WSLn.AKPrijs*WSLn.Qty)
-	Set pxOrder.TotPrijsVK=$S(..blnShowVKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(TotPrijsVK,..Munt  ), 1:"")   ; =..PrijsConvert(MuntCalc  ,TotPrijsVK)
-	Set pxOrder.TotPrijsAK=$S(..blnShowAKP:##class(BL.Prod.GAData.TBXLadeXML.pxAttribMunt).Create(TotPrijsAK,..MuntAK), 1:"")   ; =..PrijsConvert(MuntCalcAK,TotPrijsAK)
-	;Set pxOrder.Munt=""
-	
-	Quit pxOrder
-]]></Implementation>
-</Method>
-
 <Method name="GeefOrderDomein">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>