Index: BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml
===================================================================
diff -u -r319 -r417
--- BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml	(.../pxEDIOrder.cls.xml)	(revision 319)
+++ BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml	(.../pxEDIOrder.cls.xml)	(revision 417)
@@ -132,21 +132,21 @@
 <Parameter name="XMLNAME" value="URL_PRINTPAGE"/>
 </Property>
 
-<Property name="NietMeeleveren">
-<Description>
-De optie Niet Meeleveren wordt toegepast op alle lijnen van het order.  Vandaar als propt. van de hoofding i.p.v. de lijnen 
-Bevat ";"-gescheiden waarden : bvb. "NMCP;NMAK" 
-Uitzondering voor NMFB : Frontbevestiging niet meeleveren wordt per lijn gekozen :  oLijn.ItemFB="NM" </Description>
-<Type>%String</Type>
-<Parameter name="MAXLEN" value="500"/>
-<Parameter name="XMLNAME" value="DONT_DELIVER_PARTS"/>
-</Property>
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// De optie Niet Meeleveren wordt toegepast op alle lijnen van het order.  Vandaar als propt. van de hoofding i.p.v. de lijnen 
+/// Bevat ";"-gescheiden waarden : bvb. "NMCP;NMAK" 
+/// Uitzondering voor NMFB : Frontbevestiging niet meeleveren wordt per lijn gekozen :  oLijn.ItemFB="NM" 
+Property NietMeeleveren As %String(MAXLEN = 500, XMLNAME = "DONT_DELIVER_PARTS");
 
-<Property name="NietMeeleverenOms">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="DONT_DELIVER_PARTS_TXT"/>
-</Property>
+Property NietMeeleverenOms As %String(XMLNAME = "DONT_DELIVER_PARTS_TXT");
 
+Property ActieCodesList As %String(XMLITEMNAME = "ACTIONCODE", XMLNAME = "ACTIONCODES") [ Collection = list ];
+*/
+]]></Content>
+</UDLText>
+
 <Property name="IngaveTijdStip">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="LASTCALC_TS"/>
@@ -173,13 +173,6 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
-<Property name="ActieCodesList">
-<Type>%String</Type>
-<Collection>list</Collection>
-<Parameter name="XMLITEMNAME" value="ACTIONCODE"/>
-<Parameter name="XMLNAME" value="ACTIONCODES"/>
-</Property>
-
 <UDLText name="T">
 <Content><![CDATA[
 /*
Index: BL/Prod/GAData/TBXLadeXML.cls.xml
===================================================================
diff -u -r416 -r417
--- BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 416)
+++ BL/Prod/GAData/TBXLadeXML.cls.xml	(.../TBXLadeXML.cls.xml)	(revision 417)
@@ -113,11 +113,10 @@
 <FormalSpec><![CDATA[WSOrd:WS.TBX.OrderAbstract,OutputType:%String,&sc:%Status]]></FormalSpec>
 <ReturnType>%RegisteredObject</ReturnType>
 <Implementation><![CDATA[
-	  ;d WLIP^vhDBG(97,"BuildProxyDocs")
-	  ;d WL^vhDBG("WSOrd : ")
 	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>
@@ -129,7 +128,6 @@
 <ReturnType>BL.Prod.GAData.TBXLadeXML.pxEDIOrder</ReturnType>
 <Implementation><![CDATA[
  	Quit:('$IsObject(..WSOrd)) ""
-
     If ..WSOrd.%Extends("WS.TBX.GroepOrder") { 
     	Set pxOrder=..BuildDocEDIVoorGroepOrder(..WSOrd,.sc)
     }
@@ -150,19 +148,17 @@
 	Set ..pxOrder=..GeefNieuwProxyOrder()
 	Do ..VulOrderHoofdingVoorDocEDI()
 	
-	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)
+		;	If ctrWebOrders = 1 {
+		;		Do ..VulActieCodesListVanWebOrder()
+		;	}
+			Do ..VoegToeAlleLijnenVanWebOrder(.sc)
 			Do ..BerekenTotaalPrijzenVanWebOrder()
 		}
 	}
@@ -182,8 +178,7 @@
 	Set ..pxOrder=..GeefNieuwProxyOrder()
 	Do ..VulOrderHoofdingVoorDocEDI()
 
-	Set OrderBevatGlasOfInschuifElement=..OrderBevatGlasOfInschuifElement()
-	Do ..VoegToeAlleLijnenVanWebOrder(OrderBevatGlasOfInschuifElement, .sc)
+	Do ..VoegToeAlleLijnenVanWebOrder(.sc)
 	Do ..BerekenTotaalPrijzenVanWebOrder()
 	Do ..VulTotaalPrijzen()
 	
@@ -218,32 +213,40 @@
 	If ..sDomVERW="SFS" Do
 	. ; Aankoopprijzen in EUR berekend en getoond 
 	. ; Verkoopprijzen in CHF berekend en getoond
+	
+	Set ..WSLijnLaatsteVolgnummer=0
 ]]></Implementation>
 </Method>
 
 <Method name="VulOrderHoofdingVoorDocEDI">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	Do ..VulOrderHoofdingBasis()
 	Do ..VulLeverTijdData()
-	Do ..VulActieCodesList()
-	Do ..VulNietMeeleverenData()
+	;Do ..VulActieCodesList()
+	;Do ..VulNietMeeleverenData()
 	Do ..VulLoggingData()
 	Do ..VulURLPrintPage()
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeAlleLijnenVanWebOrder">
-<FormalSpec><![CDATA[OrderBevatGlasOfInschuifElement:%Boolean,&sc:%Status]]></FormalSpec>
+<FormalSpec><![CDATA[&sc:%Status]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set OrderBevatGlasOfInschuifElement=..WebOrder.BevatGlasOfInschuifElement()
+	Set NietMeeleverenOms=..GeefNietMeeleverenOmsVanWO()
+	
 	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="-"
+	. 
+	. // Extra aanpassingen op lijnniveau
+	. Set:('OrderBevatGlasOfInschuifElement) pxLijn.ItemKVOms="-"
+	. Do ..VulActieCodesListPerLijn(pxLijn)
+	. Do ..VulNietMeeleverenDataPerLijn(pxLijn,NietMeeleverenOms)
 ]]></Implementation>
 </Method>
 
@@ -271,7 +274,6 @@
 <Method name="VulOrderHoofdingBasis">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
 
 	Set ..pxOrder.OrderNr=WSOrd.OrderNr   ; Set ..pxOrder.mID=WSOrd.mID
@@ -302,31 +304,37 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VulActieCodesList">
-<Private>1</Private>
-<Implementation><![CDATA[
-	
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method VulActieCodesList() [ Private ]
+{
 	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[
-	
+Method VulActieCodesListVanWebOrder() [ Private ]
+{
 	Set ..pxOrder.ActieCodesList=..WebOrder.ActieCodesList
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="VulActieCodesListPerLijn">
+<FormalSpec>pxLijn:BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set pxLijn.ActieCodesList=..WebOrder.ActieCodesList
 ]]></Implementation>
 </Method>
 
 <Method name="VulLeverTijdData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
 	
 	Set LeverTijdID=WSOrd.LeverTijdID
@@ -355,10 +363,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VulNietMeeleverenData">
-<Private>1</Private>
-<Implementation><![CDATA[
-	
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method VulNietMeeleverenData() [ Private ]
+{
 	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
 	
 	Set str=""
@@ -370,6 +379,23 @@
 
 	Set ..pxOrder.NietMeeleveren=WSOrd.NietMeeleveren
 	Set ..pxOrder.NietMeeleverenOms=WSOrd.NietMeeleverenOms
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefNietMeeleverenOmsVanWO">
+<Description>
+Naam GeefNietMeeleverenOmsVanWebOrder() is langer dan 31 tekens; afgekort tot ...WO()</Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set str=""
+	For i=1:1:$L(..WebOrder.NietMeeleveren,";") Do
+	. Set VertalingNietMeeleveren=..GeefVertalingNietMeeleveren($P(..WebOrder.NietMeeleveren,";",i))
+	. If $L(VertalingNietMeeleveren) Do
+	. . Set str=str_$S($L(str):", ", 1:"")_$$$LCase(VertalingNietMeeleveren)
+
+	Quit str
 ]]></Implementation>
 </Method>
 
@@ -388,10 +414,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulNietMeeleverenDataPerLijn">
+<FormalSpec>pxLijn:BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn,NietMeeleverenOms:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set pxLijn.NietMeeleveren=..WebOrder.NietMeeleveren
+	Set pxLijn.NietMeeleverenOms=NietMeeleverenOms
+]]></Implementation>
+</Method>
+
 <Method name="VulLoggingData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	#define DateH(%v)                   $S(%v="":"", %v?5N1","1.5N:%v, 1:$ZDTH(%v,3))
 
 	Set WSOrd=$S($IsObject(..GroepWebOrder):..GroepWebOrder, 1:..WebOrder)
@@ -405,7 +439,6 @@
 <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 = ""
@@ -416,6 +449,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLijnVolgnummer">
+<FormalSpec>WSLn:BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set LijnVolgnummer=""
+	If $IsObject(..GroepWebOrder) {
+		Set LijnVolgnummer=..WSLijnLaatsteVolgnummer+1
+	}
+	Else {
+		Set LijnVolgnummer=WSLn.LijnNr
+	}
+	Quit LijnVolgnummer
+]]></Implementation>
+</Method>
+
 <Method name="BuildLijnEDI">
 <Description>
 Proxy-Lijn voor EDI </Description>
@@ -425,10 +473,11 @@
 	Set pxLijn=##class(BL.Prod.GAData.TBXLadeXML.pxEDIOrderLijn).%New()
 	Set sc=$$$OK
 	
-	Set ..WSLijnLaatsteVolgnummer=WSLn.LijnNr   ; TO DO ... 
+	Set ..WSLijnLaatsteVolgnummer=..GeefLijnVolgnummer(WSLn)
+	Set pxLijn.LijnNr=..WSLijnLaatsteVolgnummer
 	
 	// Copy Properties 
-	For Key="LijnNr","KlantRef","Qty","Exclude" Do   ; ,"GAMeta"
+	For Key="KlantRef","Qty","Exclude" Do   ; ,"GAMeta"
 	. Set $zobjproperty(pxLijn,Key)=$zobjproperty(WSLn,Key)
 	For Key="KL","KB","RK","KX","KV","DS" Do
 	. Set $zobjproperty(pxLijn,"Item"_Key)=$zobjproperty(WSLn,"Item"_Key)
@@ -637,7 +686,7 @@
 </Method>
 
 <Method name="EDIOrderToFile">
-<FormalSpec><![CDATA[WSOrder:%String,&FilePath:%String]]></FormalSpec>
+<FormalSpec><![CDATA[WSOrder:%String,&FilePath:%String,OutputType:%String="EDI"]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set TopTag="TBOX_ORDER_EDI"
@@ -653,7 +702,6 @@
 	Quit:('$IsObject(WSOrd)) $$$ERROR($$$GeneralError,"WSOrder is unknown.")
 	
 	// Build Proxy 
-	Set OutputType="EDI"
 	Set pxOrder=..BuildProxyDoc(WSOrd,OutputType,.sc)
 	
 	Quit:($$$ISERR(sc)) sc
@@ -709,7 +757,7 @@
 Oproepen via 
   s sc=##class(BL.Prod.GAData.TBXLadeXML).TestEDI()   w sc,!</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>wsID:%String</FormalSpec>
+<FormalSpec>wsID:%String,OutputType:%String="EDI"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set wsID=$G(wsID,720)
@@ -723,7 +771,8 @@
 	
 	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)
-	Set sc=blProxy.EDIOrderToFile(wsID,.FilePath)
+	  d WLIP^vhDBG(97,"TestEDI : "_wsID_" "_OutputType)
+	Set sc=blProxy.EDIOrderToFile(wsID,.FilePath,.OutputType)
 	Do blProxy.Close()
 	Quit:($$$ISERR(sc)) sc
 	
@@ -742,7 +791,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BuildDocEDIxxxPREV">
+<Method name="BuildDocEDIxxPREV">
 <Description>
 Proxy-Doc voor EDI 
 Previous implementation : to compare result of this version with the result of the new implementation </Description>
@@ -753,6 +802,8 @@
 	#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
@@ -782,7 +833,7 @@
 	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.Commissie=WSOrd.GeefOrderReferentie()_"_PREV"
 	Set pxOrder.KLNaam=WSOrd.KLNaam
 	Set pxOrder.KLNummer=WSOrd.KLNummer
 	Set pxOrder.KLStraatNrBus=WSOrd.KLStraatNrBus
@@ -903,10 +954,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OrderBevatGlasOfInschuifElement">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method OrderBevatGlasOfInschuifElement() As %Boolean [ Private ]
+{
 	Set BevatGlasOfInschuifElement=""
 	If $IsObject(..GroepWebOrder) { 
 		Set BevatGlasOfInschuifElement=..GroepWebOrder.BevatGlasOfInschuifElement()
@@ -915,7 +967,9 @@
 		Set BevatGlasOfInschuifElement=..WebOrder.BevatGlasOfInschuifElement()
 	}
 	Quit BevatGlasOfInschuifElement
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 </Class>
 </Export>
Index: BL/Prod/GAData/TBXLadeXML/pxEDIOrderLijn.cls.xml
===================================================================
diff -u -r117 -r417
--- BL/Prod/GAData/TBXLadeXML/pxEDIOrderLijn.cls.xml	(.../pxEDIOrderLijn.cls.xml)	(revision 117)
+++ BL/Prod/GAData/TBXLadeXML/pxEDIOrderLijn.cls.xml	(.../pxEDIOrderLijn.cls.xml)	(revision 417)
@@ -220,5 +220,27 @@
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="EXCLUDE"/>
 </Property>
+
+<Property name="NietMeeleveren">
+<Description>
+De optie Niet Meeleveren wordt toegepast op alle lijnen van het order.  Vandaar als propt. van de hoofding i.p.v. de lijnen 
+Bevat ";"-gescheiden waarden : bvb. "NMCP;NMAK" 
+Uitzondering voor NMFB : Frontbevestiging niet meeleveren wordt per lijn gekozen :  oLijn.ItemFB="NM" </Description>
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="500"/>
+<Parameter name="XMLNAME" value="DONT_DELIVER_PARTS"/>
+</Property>
+
+<Property name="NietMeeleverenOms">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="DONT_DELIVER_PARTS_TXT"/>
+</Property>
+
+<Property name="ActieCodesList">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="ACTIONCODE"/>
+<Parameter name="XMLNAME" value="ACTIONCODES"/>
+</Property>
 </Class>
 </Export>