Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r296 -r416
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 296)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 416)
@@ -7,9 +7,24 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="WSOrd">
+<Type>WS.TBX.OrderAbstract</Type>
+</Property>
+
+<Property name="WebOrder">
 <Type>WS.TBX.Order</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="GroepWebOrder">
+<Type>WS.TBX.GroepOrder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="pxOrder">
+<Type>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Taal">
 <Description>
 Settings voor BuildProxyDoc </Description>
@@ -42,6 +57,20 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="TotPrijsVK">
+<Type>%Float</Type>
+</Property>
+
+<Property name="TotPrijsAK">
+<Type>%Float</Type>
+</Property>
+
+<Property name="WSLijnLaatsteVolgnummer">
+<Description>
+LijnNummer moet opeenvolgend zijn.</Description>
+<Type>%Integer</Type>
+</Property>
+
 <Method name="Instantiate">
 <Description>
 Set blProxy=##class(BL.Sys.FOP.DataXML).Instantiate(...) </Description>
@@ -81,7 +110,7 @@
 <Description>
 Aanmaken van het proxy-object pxOrder. 
 OutputType = "PRINT" / "EDI" </Description>
-<FormalSpec><![CDATA[WSOrd:WS.TBX.Order,OutputType:%String,&sc:%Status]]></FormalSpec>
+<FormalSpec><![CDATA[WSOrd:WS.TBX.OrderAbstract,OutputType:%String,&sc:%Status]]></FormalSpec>
 <ReturnType>%RegisteredObject</ReturnType>
 <Implementation><![CDATA[
 	  ;d WLIP^vhDBG(97,"BuildProxyDocs")
@@ -99,19 +128,85 @@
 <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)) ""
+
+    If ..WSOrd.%Extends("WS.TBX.GroepOrder") { 
+    	Set pxOrder=..BuildDocEDIVoorGroepOrder(..WSOrd,.sc)
+    }
+    Else { 
+    	Set pxOrder=..BuildDocEDIVoorOrder(..WSOrd,.sc)
+    }
+    Quit pxOrder
+]]></Implementation>
+</Method>
+
+<Method name="BuildDocEDIVoorGroepOrder">
+<FormalSpec><![CDATA[GroepWebOrder:WS.TBX.GroepOrder,&sc:%Status]]></FormalSpec>
+<ReturnType>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</ReturnType>
+<Implementation><![CDATA[
+	Set ..GroepWebOrder = GroepWebOrder
+
+	Do ..InitialiseerVoorDocEDI()
+	Set ..pxOrder=..GeefNieuwProxyOrder()
+	Do ..VulOrderHoofdingVoorDocEDI()
 	
-	Quit:('$IsObject(..WSOrd)) ""
+	Set OrderBevatGlasOfInschuifElement=..OrderBevatGlasOfInschuifElement()
+
+	Set ctrWebOrders=0
+	Set sc=$$$OK
+	Set WebOrderIterator = ##class(TECH.ListIterator).%New(GroepWebOrder.Orders)
+	While WebOrderIterator.HasNext() {
+		Set ..WebOrder = WebOrderIterator.Next()			
+		If ($$$ISOK(sc)) {
+			Set ctrWebOrders = ctrWebOrders + 1
+			If ctrWebOrders = 1 {
+				Do ..VulActieCodesListVanWebOrder()
+			}
+			Do ..VoegToeAlleLijnenVanWebOrder(OrderBevatGlasOfInschuifElement, .sc)
+			Do ..BerekenTotaalPrijzenVanWebOrder()
+		}
+	}
+	Do ..VulTotaalPrijzen()
+
+	Quit ..pxOrder
+]]></Implementation>
+</Method>
+
+<Method name="BuildDocEDIVoorOrder">
+<FormalSpec><![CDATA[WebOrder:WS.TBX.Order,&sc:%Status]]></FormalSpec>
+<ReturnType>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</ReturnType>
+<Implementation><![CDATA[
+	Set ..WebOrder = WebOrder
+
+	Do ..InitialiseerVoorDocEDI()
+	Set ..pxOrder=..GeefNieuwProxyOrder()
+	Do ..VulOrderHoofdingVoorDocEDI()
+
+	Set OrderBevatGlasOfInschuifElement=..OrderBevatGlasOfInschuifElement()
+	Do ..VoegToeAlleLijnenVanWebOrder(OrderBevatGlasOfInschuifElement, .sc)
+	Do ..BerekenTotaalPrijzenVanWebOrder()
+	Do ..VulTotaalPrijzen()
 	
-	// Prepare variables 
-	Set WSOrd=..WSOrd
-	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(WSOrd.WebDomain,"")
+	Quit ..pxOrder
+]]></Implementation>
+</Method>
+
+<Method name="GeefNieuwProxyOrder">
+<Private>1</Private>
+<ReturnType>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.Prod.GAData.TBXLadeXML.pxEDIOrder).%New()
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseerVoorDocEDI">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).%New(..GeefOrderDomein(),"")
 	Set ..sDomVERW=TBXContext.GeefDomeinVerwerker()
 	
 	Set Taal=""
 	If TBXContext.KlantGegevensViaDataOpt() Do
-	. Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(..sDomVERW,WSOrd.KLNummer)   ; ,$LB("Stg","NoAction"))
+	. Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(..sDomVERW,..GeefOrderKlantnummer())
 	. Set:($IsObject(KLMini)) Taal=KLMini.Taal
 	. Set KLMini=""
 	Else  Do
@@ -122,100 +217,205 @@
 	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
+	. ; Verkoopprijzen in CHF berekend en getoond
+]]></Implementation>
+</Method>
+
+<Method name="VulOrderHoofdingVoorDocEDI">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	// Create Proxy 
-	Set pxOrder=##class(BL.Prod.GAData.TBXLadeXML.pxEDIOrder).%New()
+	Do ..VulOrderHoofdingBasis()
+	Do ..VulLeverTijdData()
+	Do ..VulActieCodesList()
+	Do ..VulNietMeeleverenData()
+	Do ..VulLoggingData()
+	Do ..VulURLPrintPage()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeAlleLijnenVanWebOrder">
+<FormalSpec><![CDATA[OrderBevatGlasOfInschuifElement:%Boolean,&sc:%Status]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set i=""
+	For  Set WSLn=..WebOrder.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:(OrderBevatGlasOfInschuifElement) pxLijn.ItemKVOms="-"
+]]></Implementation>
+</Method>
+
+<Method name="BerekenTotaalPrijzenVanWebOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TotPrijsVK=0
+	Set ..TotPrijsAK=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)
+]]></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.Munt=""
+]]></Implementation>
+</Method>
+
+<Method name="VulOrderHoofdingBasis">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	// 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.Commissie
-	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 WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
+
+	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()
+	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
+	Set ..pxOrder.TotAantal=WSOrd.TotAantal
+	Set ..pxOrder.ExtraTekst=WSOrd.ExtraTekst
+	Set ..pxOrder.Opmerking1=WSOrd.Opmerking1
 	
-	// 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
+	;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
+]]></Implementation>
+</Method>
+
+<Method name="VulActieCodesList">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	// 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
+	If $IsObject(..GroepWebOrder) {
+		// Voorlopig niks; wachten totdat ActieCodesList verplaatst is van Order naar OrderAbstract 
+	}
+	Else {
+		Do ..VulActieCodesListVanWebOrder()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulActieCodesListVanWebOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	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.ActieCodesList=..WebOrder.ActieCodesList
+]]></Implementation>
+</Method>
+
+<Method name="VulLeverTijdData">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	Set pxOrder.URLPrintPage = WSOrd.GetPrintPageURL(,..Taal)
+	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
 	
-	;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 LeverTijdID=WSOrd.LeverTijdID
+	Set LeverTijdOms=WSOrd.LeverTijd
+
+	// Levertijd 
+	;Set ..pxOrder.LeverTijdID=LeverTijdID
+	If LeverTijdID="ASAP" {
+		Set LevTOms=LeverTijdOms
+		Set:(LevTOms[" (") $P(LevTOms," (",1)="ASAP"
+		Set ..pxOrder.LeverTijd=LevTOms
+	}
+	ElseIf LeverTijdID="LATER" {
+		Set ..pxOrder.LeverTijd=LeverTijdOms
+	}
+	ElseIf $L(LeverTijdID) {
+		Set LevTOms=$TR(LeverTijdOms,$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 {
+		Set ..pxOrder.LeverTijd=LeverTijdOms
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulNietMeeleverenData">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	Set blnContainsGlas=0
-	Set i=""
-	For  Set WSLn=pxOrder.Lijnen.GetNext(.i) Quit:(i="")  Set blnContainsGlas=(blnContainsGlas)||(WSLn.ItemBX?1(1"BG",1"COV",1"INSCHF"))||(WSLn.ItemBGRP?1(1"V"))
+	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
+	
+	Set str=""
+	For i=1:1:$L(WSOrd.NietMeeleveren,";") Do
+	. Set VertalingNietMeeleveren=..GeefVertalingNietMeeleveren($P(WSOrd.NietMeeleveren,";",i))
+	. If $L(VertalingNietMeeleveren) Do
+	. . Set str=str_$S($L(str):", ", 1:"")_$$$LCase(VertalingNietMeeleveren)
+	Set WSOrd.NietMeeleverenOms=str
 
-	// 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="-"
+	Set ..pxOrder.NietMeeleveren=WSOrd.NietMeeleveren
+	Set ..pxOrder.NietMeeleverenOms=WSOrd.NietMeeleverenOms
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertalingNietMeeleveren">
+<FormalSpec>NietMeeKey:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define GetVertaling(%i,%tl,%tt)    ##class(Res.Vertaling).GetVertalingPlus("TBW",%i,%tt,%tl,,1)
+
+	Set VertalingNietMeeleveren=""
+	If $L(NietMeeKey) {
+		Set:($E(NietMeeKey,1,2)="NM")&&($E(NietMeeKey,3)'="_") $E(NietMeeKey,1,2)="NM_"   ; Underscore tussenvoegen indien nog niet aanwezig 
+		Set VertalingNietMeeleveren=$$$GetVertaling(NietMeeKey,..Taal,"L")
+	}
+	Quit VertalingNietMeeleveren
+]]></Implementation>
+</Method>
+
+<Method name="VulLoggingData">
+<Private>1</Private>
+<Implementation><![CDATA[
 	
-	/// 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=""
+	#define DateH(%v)                   $S(%v="":"", %v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
+
+	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
 	
-	Quit pxOrder
+	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)
 ]]></Implementation>
 </Method>
 
+<Method name="VulURLPrintPage">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	If $IsObject(..GroepWebOrder) {
+		// Voorlopig niks; wachten totdat de Printpage (XML+XSLT) aangepast is voor GroepOrder 
+		Set ..pxOrder.URLPrintPage = ""
+	}
+	Else {
+		Set ..pxOrder.URLPrintPage = ..WebOrder.GetPrintPageURL(,..Taal)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BuildLijnEDI">
 <Description>
 Proxy-Lijn voor EDI </Description>
@@ -225,6 +425,8 @@
 	Set pxLijn=##class(BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn).%New()
 	Set sc=$$$OK
 	
+	Set ..WSLijnLaatsteVolgnummer=WSLn.LijnNr   ; TO DO ... 
+	
 	// Copy Properties 
 	For Key="LijnNr","KlantRef","Qty","Exclude" Do   ; ,"GAMeta"
 	. Set $zobjproperty(pxLijn,Key)=$zobjproperty(WSLn,Key)
@@ -348,7 +550,7 @@
 	
 	Set blnContainsGlas=0
 	Set i=""
-	For  Set WSLn=pxOrder.Lijnen.GetNext(.i) Quit:(i="")  Set blnContainsGlas=(blnContainsGlas)||(WSLn.ItemBX?1(1"BG",1"COV",1"INSCHF"))||(WSLn.ItemBGRP?1(1"V"))
+	For  Set WSLn=pxOrder.Lijnen.GetNext(.i) Quit:(i="")  Set blnContainsGlas=(blnContainsGlas)||(WSLn.LadeBevatGlasOfInschuifElement())
 
 	// Fill Order Lijnen 
 	Set i=""
@@ -447,7 +649,7 @@
 	. Set WSOrd=WSOrder
 	Else  Do
 	. Set wsID=WSOrder
-	. Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
+	. Set WSOrd=##class(WS.TBX.OrderAbstract).%OpenId(wsID)
 	Quit:('$IsObject(WSOrd)) $$$ERROR($$$GeneralError,"WSOrder is unknown.")
 	
 	// Build Proxy 
@@ -511,13 +713,13 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set wsID=$G(wsID,720)
-	Set FileName="EDI_SFS_TBoxOrder_"_##class(WS.TBX.Order).OrderNrCalc(wsID)_".xml"
+	Set FileName="EDI_SFS_TBoxOrder_"_##class(WS.TBX.OrderAbstract).OrderNrCalc(wsID)_".xml"
 	Set FilePathTest="c:\Temp\"
 	;Set FilePathTest="\\Notes01\Shared\W V\"
 	Set FilePath=##class(%File).NormalizeDirectory(FilePathTest)_FileName
 	
 	// Open WSOrd 
-	;Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
+	;Set WSOrd=##class(WS.TBX.OrderAbstract).%OpenId(wsID)
 	
 	Set blProxy=##class(BL.Prod.GAData.TBXLadeXML).Instantiate()
 	Do blProxy.Init("D","EUR","",1,1,)   ; Taal As %String, Munt As %String = "EUR", sDomVERW As %String = "", blnShowAKP As %Boolean, blnShowVKP As %Boolean, blnBeursUser As %Boolean = 0)
@@ -539,5 +741,181 @@
 	Quit sc
 ]]></Implementation>
 </Method>
+
+<Method name="BuildDocEDIxxxPREV">
+<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)) ""
+	
+	// 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()
+	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>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefOrderDomein">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Domein=""
+	If $IsObject(..GroepWebOrder) { 
+		Set Domein=..GroepWebOrder.WebDomain
+	} 
+	Else {
+		Set Domein=..WebOrder.WebDomain
+	}
+	Quit Domein
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderKlantnummer">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Klantnummer=""
+	If $IsObject(..GroepWebOrder) { 
+		Set Klantnummer=..GroepWebOrder.KLNummer
+	} 
+	Else {
+		Set Klantnummer=..WebOrder.KLNummer
+	}
+	Quit Klantnummer
+]]></Implementation>
+</Method>
+
+<Method name="OrderBevatGlasOfInschuifElement">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set BevatGlasOfInschuifElement=""
+	If $IsObject(..GroepWebOrder) { 
+		Set BevatGlasOfInschuifElement=..GroepWebOrder.BevatGlasOfInschuifElement()
+	} 
+	Else {
+		Set BevatGlasOfInschuifElement=..WebOrder.BevatGlasOfInschuifElement()
+	}
+	Quit BevatGlasOfInschuifElement
+]]></Implementation>
+</Method>
 </Class>
 </Export>