Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(revision 48574)
@@ -0,0 +1,380 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="AxCustomerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Node">
+<Type>%String</Type>
+</Property>
+
+<Property name="GlobalData">
+<Type>%String</Type>
+</Property>
+
+<Property name="GlobalIndex">
+<Type>%String</Type>
+</Property>
+
+<Property name="FactuurProforma">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="repOpenstaandeFactuur">
+<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
+</Property>
+
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxCustomerID=AxCustomerID
+	Set ..KlantId=KlantId
+	Set ..Taal=Taal
+	Set ..ProductValidator=ProductValidator
+	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+  	Set pxHoofding.FactuurId=$LG(lbHoofding,2)
+	Set FactuurRec=$LG(lbHoofding,3)
+
+ 	Set pxHoofding.FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6),"DK")
+
+	Set pxHoofding.Munt=$P(FactuurRec,"\",5)
+	If $LG(lbHoofding,1)="P" {
+		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Nulfactuur()
+	} ElseIf $P(FactuurRec,"\",2)="C" {
+		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Kredietnota()
+		Set pxHoofding.FactuurBedrag=-$P(FactuurRec,"\",12)
+	} Else {
+		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Factuur()
+		If ..repOpenstaandeFactuur.BestaatViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
+		{ 
+			#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = ..repOpenstaandeFactuur.GeefViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
+			set pxHoofding.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
+			set pxHoofding.AantalHerinneringen= OpenstaandeFactuur.GeefAantalHerinneringen()
+			set pxHoofding.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
+			set pxHoofding.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
+		}
+		Else
+		{
+			Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,2)="O"
+	{
+		Do ..ConverteerOrderHoofdingLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	ElseIf $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOrderHoofdingLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+	; Order
+	Set pxLijn.Type="O"
+	Set pxLijn.OrderId=$LG(lbLijn,5)
+	Set pxLijn.OrderDatum=..GeefOrderDatum($LG(lbLijn,3))
+	Set pxLijn.OrderReferentie=..GeefOrderReferentie($LG(lbLijn,3))
+	; Levering
+	Set LeveringRec=$LG(lbLijn,7)
+	Set pxLijn.LeveringId=$LG(lbLijn,6)
+	Set pxLijn.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P(LeveringRec,"\",2))
+	Set pxLijn.VerzendWijze=$P($P(LeveringRec,"\",7)," #")
+	If (pxLijn.LeveringsDatum>($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd
+	{
+		try{
+		 	Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringId)
+		}Catch {	
+			Do ##class(TECH.ExceptionHandler).Catch()	
+	 	 	/// geen TrackAndTrace URL beschikbaar
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"P",OLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
+
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.ProductID=$P(OLRec,"\",2)
+	Set pxLijn.Aantal=$P(OLRec,"\",3)
+	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
+	Set pxLijn.Munt=$P(OLRec,"\",22)
+	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
+	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
+	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+	If $P(OLRec,"\",5)'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+	}
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+	{
+		Set pxLijn.Afbeelding=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB(..FactuurProforma,"T",,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr)
+
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGlobal">
+<FormalSpec>FactuurProforma:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..FactuurProforma=FactuurProforma
+	Set ..Node="F"
+	If FactuurProforma="P" { 
+		Set ..GlobalData="^KFAP"
+		Set ..GlobalIndex="^KFAP1"
+	}Else{
+		Set ..GlobalData="^KFA"
+		Set ..GlobalIndex="^KFA1"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenOpenstaandeNaarCache">
+<Implementation><![CDATA[
+	
+	Do ..BepaalGlobal("F")
+	#dim Iterator As TECH.Iterator = ..repOpenstaandeFactuur.ZoekViaKlantID("K||"_..KlantId)
+	while Iterator.HasNext() {
+		#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = Iterator.Next()
+		Do ..OphalenFactuur(OpenstaandeFactuur.GeefFactuurID())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenRecenteNaarCache">
+<FormalSpec>FactuurProforma:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ..BepaalGlobal(FactuurProforma)
+	Set TotDatum=-($H-$S(Periode="":365,1:Periode)) ; alle openstaande of voor een bep periode
+	Set FAKNr=""
+	Set Datum=""
+	
+	For  Set Datum=$O(@..GlobalIndex@(..Node,..KlantId,Datum)) Quit:Datum=""  Quit:Datum>TotDatum  Do
+	. For  Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantId,Datum,FAKNr)) Quit:FAKNr=""  Do
+	. . Quit:'..CheckFactuur(FAKNr,Periode)
+	. . Do ..OphalenFactuur(FAKNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenFactuur">
+<FormalSpec>FAKNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BONNr="U"
+	For  Set BONNr=$O(@..GlobalData@(..Node,FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
+	. Quit:'..CheckLevering(FAKNr,BONNr)
+	. Do ..OphalenLevering(FAKNr,BONNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenLevering">
+<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim BLNr As %Integer = 99
+	#dim HasProd As %Boolean = 0
+	#dim ORDCnt As %Integer = 0
+	#dim Totaal As %Float = 0
+	#dim ProdGrp As %String = "*"
+	#dim LastGrpTijd As %String = "" 
+	#dim LastGrpOLUNr As %String = ""
+	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+	While (BLNr '= "")
+	{
+		#dim LijnType As %String = ""
+		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
+		If (LijnType '=""){
+			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
+			If LijnType="O" { 										; Orderhoofding
+				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
+			}else{
+				Set Totaal = Totaal+$P(BLRec,"\",16)
+				#dim PRNr As %String = $P(BLRec,"\",2)
+				Set:PRNr?4.7N HasProd=1
+				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
+				If ProdGrp="" {
+					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
+				}Else{
+					Merge Sort(ORDCnt,ProdGrp)=MemSort
+					Kill MemSort
+					
+					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
+				}
+				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
+					#dim Groep As %String = $P(BLRec,"\",18)
+					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
+					Set LastGrpTijd=$P(Groep,";")
+					#dim GrpOLUNr As %String = $P(Groep,";",3)
+					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
+					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
+					If (GrpOLUNr'=""){
+						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
+						Set LastGrpOLUNr=GrpOLUNr	
+					}
+				}
+			}
+		}
+		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+	}
+	
+	Set ORDCnt = ""
+	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
+		
+		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
+		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
+		Continue:ORDNr=""
+		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
+
+		If '$D(^||ECCache("FAK",FAKNr))
+		{
+			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
+			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
+			
+			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
+			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
+		}
+
+		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+		Set ProdGrp = ""
+		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
+			Set BLNr = ""
+			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
+				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
+				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
+				#dim OLUNr As %String = $P(BLRec,"\",15)
+				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+				}
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	SEt Datum=""
+	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
+	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderReferentie">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
+	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
+	
+	Quit Ref
+]]></Implementation>
+</Method>
+
+<Method name="CheckFactuur">
+<FormalSpec>FAKNr,Periode</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckLevering">
+<FormalSpec>FAKNr,BONNr</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckLeveringLijn">
+<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ProdGrp="*"
+	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
+	Set PRNr=$P(Rec,"\",2)
+	Set LijnType=""
+	Quit:Rec=""
+	
+	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
+	
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
+
+	Quit:PRNr'?4.7N 
+	
+	Set:PRNr?4.7N LijnType="P"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,261 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="LijnIterator">
+<Type>TECH.Iterator</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AxCustomerId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Node">
+<Type>%String</Type>
+</Property>
+
+<Property name="GlobalData">
+<Type>%String</Type>
+</Property>
+
+<Property name="GlobalIndex">
+<Type>%String</Type>
+</Property>
+
+<Property name="FactuurProforma">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="repOpenstaandeFactuur">
+<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
+</Property>
+
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.DataAX.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..AxCustomerId=AxCustomerId
+	Set ..KlantId=KlantId
+	Set ..Taal=Taal
+	Set ..ProductValidator=ProductValidator
+	Set ..Translator=Translator
+	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OphalenOpenstaandeFacturen">
+<Implementation><![CDATA[
+	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..OphalenFacturen()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenRecenteFacturen">
+<Implementation><![CDATA[
+	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
+	Do ..OphalenFacturen()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenFacturen">
+<Implementation><![CDATA[
+	Kill ^||ECCache
+	Kill ^||ECResult
+	While ..LijnIterator.HasNext()
+	{
+		Set rs=..LijnIterator.Next()
+		Set FactuurNr=rs.Data("INVOICEID")
+		Set OrderNr=rs.Data("ORIGSALESID")
+		Set:$C(0)[OrderNr OrderNr="*"
+		Set PRNr=..Translator.GeefPRNrForAdmin(rs.Data("ITEMID"))
+	
+		If (OrderNr'="*")&&PRNr
+		{
+			If ('$D(^||ECCache(FactuurNr)))
+			{
+				Set FactuurDatum=$zdh($E(rs.Data("INVOICEDATE"),1,10),3)
+				Set ^||ECCache(FactuurNr)=$LB(FactuurNr,FactuurDatum,rs.Data("CURRENCYCODE"))
+				Set MemFactuurNr=FactuurNr
+			}
+			/// $LB(PRNr,ItemId,Aantal,NettorPrijs,GO,LijnTotaalExclBTW, LijnTotaalInclBTW,ExterneRef)
+			Set ExterneRef=rs.Data("EXTERNALITEMID") Set:ExterneRef=$C(0) ExterneRef=""
+			Set lb=$LB(PRNr,rs.Data("ITEMID"),+rs.Data("QTY"),+rs.Data("SALESPRICE"),+rs.Data("PRICEUNIT"),+rs.Data("LINEAMOUNT"),+rs.Data("LINEAMOUNTMST"),ExterneRef)
+			Set ^||ECCache(FactuurNr,OrderNr,$I(^||ECCache))=lb
+			Merge ^||ECResult(FactuurNr,OrderNr,^||ECCache)=rs.Data
+		
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenLevering">
+<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim BLNr As %Integer = 99
+	#dim HasProd As %Boolean = 0
+	#dim ORDCnt As %Integer = 0
+	#dim Totaal As %Float = 0
+	#dim ProdGrp As %String = "*"
+	#dim LastGrpTijd As %String = "" 
+	#dim LastGrpOLUNr As %String = ""
+	Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+	While (BLNr '= "")
+	{
+		#dim LijnType As %String = ""
+		Do ..CheckLeveringLijn(FAKNr,BONNr,BLNr,.LijnType,)
+		If (LijnType '=""){
+			#dim BLRec As %String = @..GlobalData@(..Node,FAKNr,BONNr,BLNr)
+			If LijnType="O" { 										; Orderhoofding
+				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
+			}else{
+				Set Totaal = Totaal+$P(BLRec,"\",16)
+				#dim PRNr As %String = $P(BLRec,"\",2)
+				Set:PRNr?4.7N HasProd=1
+				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
+				If ProdGrp="" {
+					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
+				}Else{
+					Merge Sort(ORDCnt,ProdGrp)=MemSort
+					Kill MemSort
+					
+					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
+				}
+				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
+					#dim Groep As %String = $P(BLRec,"\",18)
+					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
+					Set LastGrpTijd=$P(Groep,";")
+					#dim GrpOLUNr As %String = $P(Groep,";",3)
+					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
+					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
+					If (GrpOLUNr'=""){
+						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
+						Set LastGrpOLUNr=GrpOLUNr	
+					}
+				}
+			}
+		}
+		Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr))
+	}
+	
+	Set ORDCnt = ""
+	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
+		
+		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
+		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
+		Continue:ORDNr=""
+		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
+
+		If '$D(^||ECCache("FAK",FAKNr))
+		{
+			Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0)
+			Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6))
+			
+			Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec)
+			Set ^||ECCache("IFAK",FactuurDatum,FAKNr)=""
+		}
+
+		Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+		Set ProdGrp = ""
+		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
+			Set BLNr = ""
+			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
+				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
+				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
+				#dim OLUNr As %String = $P(BLRec,"\",15)
+				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+				Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0))
+				}
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	SEt Datum=""
+	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
+	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderReferentie">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
+	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
+	
+	Quit Ref
+]]></Implementation>
+</Method>
+
+<Method name="CheckFactuur">
+<FormalSpec>FAKNr,Periode</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckLevering">
+<FormalSpec>FAKNr,BONNr</FormalSpec>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckLeveringLijn">
+<FormalSpec><![CDATA[FAKNr:%String,BONNr:%String,LNr:%String,&LijnType,&ProdGrp]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ProdGrp="*"
+	Set Rec=$G(@..GlobalData@(..Node,FAKNr,BONNr,LNr))
+	Set PRNr=$P(Rec,"\",2)
+	Set LijnType=""
+	Quit:Rec=""
+	
+	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
+	
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
+
+	Quit:PRNr'?4.7N 
+	
+	Set:PRNr?4.7N LijnType="P"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,454 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.OrdersOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrdersIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrdersOphaler">
+<Type>AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveringenOphaler">
+<Type>AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FacturenOphaler">
+<Type>AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Orders">
+<Type>WS.Vhisie4.KlantDocument.dto.OrderHoofding</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Periode">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefOrdersRequest</Type>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefOrdersResponse</Type>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..Periode=Request.Periode
+	Set ..Taal=..Request.Header.Taal
+	Set ..GenerationId=..Request.GenerationId
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
+	Set ..OrdersIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New(..Request.Header.AxCustomerId)
+	;Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+	;Set ..LeveringenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+	;Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+
+	Do ..GenereerLijst()	
+
+	Set ..Response.Tijd=Timer.Stop()\1
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<ReturnType>WS.Vhisie4.KlantDocument.GeefOrdersResponse</ReturnType>
+<Implementation><![CDATA[
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.KlantId=..KlantId
+	Set ..Response.GenerationId=..GenerationId
+	Set ..Response.Lijst=..Orders
+
+	Quit ..Response
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Description>
+Hoofding
+   ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData)
+	   waar Oorsprong = O,L,F,P (order, levering, factuur, proforma)
+       waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur
+Lijn (product of tekst)
+   ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData)
+	   waar Type = P of T (Product of Tekst)
+	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
+Index
+   ^||ECCache("IORD",OrderDatum,ORDNr)=""</Description>
+<Implementation><![CDATA[
+	Do ..OphalenNaarCache()
+	Do ..ConverteerCacheNaarXML()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Kill ^||ECCache
+
+	Do ..OphalenVanAx()
+	;zw ^||ECCache r k
+]]></Implementation>
+</Method>
+
+<Method name="OphalenVanAx">
+<Implementation><![CDATA[
+	While ..OrdersIterator.HasNext()
+	{
+		Set rs=..OrdersIterator.Next()
+		IF rs.Data("ITEMID")'=$C(0)||(rs.Data("ITEMCODEID")'=$C(0))||(rs.Data("EXTERNALITEMID")'=$C(0))
+		{
+		k %q
+		m %q=rs.Data
+		zw %q
+		r k
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCacheNaarXML">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderDatum as %Date
+	#dim ORDNr as %String
+		
+	Set OrderDatum=$O(^||ECCache("IORD",""),-1)
+	While OrderDatum'=""
+	{
+		Set ORDNr=$O(^||ECCache("IORD",OrderDatum,""))
+		While ORDNr'=""
+		{
+			Do ..Converteer(ORDNr)
+			Set ORDNr=$O(^||ECCache("IORD",OrderDatum,ORDNr))
+		}
+		Set OrderDatum=$O(^||ECCache("IORD",OrderDatum),-1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
+	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
+	#dim lbHoofding as %List
+	#dim lbLijn as %List
+	#dim LijnNiv1 as %String
+	#dim LijnNiv2 as %String
+	#dim ObjectType as %String
+	
+	Set lbHoofding=^||ECCache("ORD",ORDNr)
+	
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,""))
+	While LijnNiv1'=""
+	{	
+		Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,""))
+		While LijnNiv2'=""
+		{	
+			Set lbLijn=^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2)
+			Set ObjectType=$LG(lbLijn)
+			Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+			If $isObject(pxLijn) {
+				Do pxHoofding.Lijnen.Insert(pxLijn)
+				Set:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
+			}
+			Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2))
+		}
+
+		Set LijnNiv1=$O(^||ECCache("ORD",ORDNr,LijnNiv1))
+	}
+	Do pxHoofding.BepaalProductGroepen()
+	Do ..BepaalOrderStatus(pxHoofding)
+	; Terugnames niet toevoegen
+	Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
+	
+	Do ..Orders.Insert(pxHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectType as %String
+	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.OrderHoofding
+
+	Set ObjectType=$LG(lbHoofding)
+	If ObjectType="O" { 
+		Set pxHoofding=..ConverteerOrderHoofding(lbHoofding) 
+	} Else { ; (ObjectType="L")||(ObjectType="F")||(ObjectType="P") 
+		Set pxHoofding=..ConverteerLeveringHoofding(lbHoofding) 
+	}
+	;d DumpObject^%apiOBJ(pxHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="BepaalOrderStatus">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.OrderHoofding</FormalSpec>
+<Implementation><![CDATA[
+	#dim SamenvattingStatus as WS.Vhisie4.KlantDocument.enu.OrderStatus =""
+	Set it=##class(TECH.ListIterator).%New(pxHoofding.Lijnen)
+	While it.HasNext()
+	{
+		#dim pxLijn as WS.Vhisie4.KlantDocument.dto.OrderLijn
+		Set pxLijn=it.Next()
+		If (pxLijn.Type="L")||(pxLijn.Type="R")
+		{
+			Set SamenvattingStatus=..CombineerStatus(pxLijn, SamenvattingStatus)
+		}
+	}
+	Set pxHoofding.Status=SamenvattingStatus
+]]></Implementation>
+</Method>
+
+<Method name="CombineerStatus">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.OrderLijn,VorigeOrderStatus:WS.Vhisie4.KlantDocument.enu.OrderStatus</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderStatus</ReturnType>
+<Implementation><![CDATA[
+	#dim NieuweOrderStatus as WS.Vhisie4.KlantDocument.enu.OrderStatus=VorigeOrderStatus
+	#dim OrderStatus as WS.Vhisie4.KlantDocument.enu.OrderStatus
+	
+	Set OrderStatus=..ConverteerNaarOrderStatus(pxLijn)
+	If NieuweOrderStatus="" Set NieuweOrderStatus=OrderStatus
+
+	If (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geblokeerd()) || (VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geblokeerd()) {
+
+		Set NieuweOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geblokeerd()
+		
+	} ElseIf (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()) || (VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()) {
+
+		Set NieuweOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
+
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering() {
+		
+		If OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd())||(OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering()) {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		}
+		
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen() {
+
+		If OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd())||(OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering()) {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		}
+	
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie() {
+		
+		If OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+		} ElseIf (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd())||(OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering()) {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		}
+	
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten() {	
+		If (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd())||(OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering()) {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		}
+		
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering() {
+		
+		If OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		} ElseIf (OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd()){
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd()
+		}
+		
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd() {
+		
+		If OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		} ElseIf OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering() {
+			Set NieuweOrderStatus = ##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+		}
+	} ElseIf VorigeOrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd() {
+	}	
+	Quit NieuweOrderStatus
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarOrderStatus">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.OrderLijn</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderStatus</ReturnType>
+<Implementation><![CDATA[
+	#dim LijnStatus as WS.Vhisie4.KlantDocument.enu.OrderLijnStatus=pxLijn.Status
+	#dim OrderStatus as WS.Vhisie4.KlantDocument.enu.OrderStatus
+	If LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpGoederen()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(){
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpProductie()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).WachtenOpLevering()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Geblokeerd() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geblokeerd()
+	} ElseIf LijnStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname() {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
+	} Else {
+		Set OrderStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Wachten()
+	}	
+	Quit OrderStatus
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ObjectType as %String
+	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.OrderLijn 
+
+	Set ObjectType=$LG(lbLijn)
+	If ObjectType="O" { 
+		Set pxLijn=..ConverteerOrderLijn(lbHoofding,lbLijn) 
+	} ElseIf ObjectType="L" {
+		Set pxLijn=..ConverteerLeveringLijn(lbHoofding,lbLijn) 
+	} ElseIf (ObjectType="F")||(ObjectType="P") {
+		Set pxLijn=..ConverteerFactuurLijn(lbHoofding,lbLijn) 
+	}
+	;d DumpObject^%apiOBJ(pxLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOrderHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
+	Do ..OrdersOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLeveringHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
+	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Do ..OrdersOphaler.ConverteerAdres(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOrderLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
+	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..OrdersOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLeveringLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
+	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerFactuurLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
+	Do ..OrdersOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..LeveringenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Do ..FacturenOphaler.VulAanLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,286 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.LeveringenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="LeveringenOphaler">
+<Type>AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Leveringen">
+<Type>WS.Vhisie4.KlantDocument.dto.LeveringHoofding</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefLeveringenRequest</Type>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefLeveringenRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..Taal=..Request.Header.Taal
+	Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	Set ..LeveringenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperLeveringenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
+
+	Do ..GenereerLijst()	
+
+	Set ..Response.Tijd=Timer.Stop()\1
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<ReturnType>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</ReturnType>
+<Implementation><![CDATA[
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.KlantId=..KlantId
+	Set ..Response.GenerationId=..GenerationId
+	Set ..Response.Lijst=..Leveringen
+
+	Quit ..Response
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Description>
+Hoofding
+   ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData)
+	   waar Type = O,L,F,P (order, levering, factuur, proforma)
+Lijn (product of tekst)
+   ^||ECCache("D",HoofdingVolgNr,LijnVolgNr) = $LB(Type,OrderlijnData, Tekst, VoorraadStatus)
+	   waar Type = P of T (Product of Tekst)
+	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
+Index
+   ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr
+   ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr
+Hoofding
+   ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData)
+	   waar Oorsprong = O,L,F,P (order, levering, factuur, proforma)
+       waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur
+Lijn (product of tekst)
+   ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData)
+	   waar Type = P of T (Product of Tekst)
+	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
+Index
+   ^||ECCache("IORD",OrderDatum,ORDNr)=""</Description>
+<Implementation><![CDATA[
+	Do ..OphalenNaarCache()
+	Do ..ConverteerCacheNaarXML()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Kill ^||ECCache
+
+	Do ..LeveringenOphaler.OphalenNaarCache("F")
+
+	If ..Request.Periode
+	{
+		Do ..LeveringenOphaler.OphalenNaarCache("G",..Request.Periode)
+		Do ..LeveringenOphaler.OphalenNaarCache("M",..Request.Periode)
+	}
+
+	;zw ^||ECCache r k
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCacheNaarXML">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LeverDatum as %Date
+	#dim FAKNr as %String
+		
+	Set LeverDatum=$O(^||ECCache("IL",""),-1)
+	While LeverDatum'=""
+	{
+		Set BONNr=$O(^||ECCache("IL",LeverDatum,""))
+		While BONNr'=""
+		{
+			Do ..Converteer(BONNr)
+			Set BONNr=$O(^||ECCache("IL",LeverDatum,BONNr))
+		}
+		Set LeverDatum=$O(^||ECCache("IL",LeverDatum),-1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>BONNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.DocumentHoofding
+	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
+	#dim lbHoofding as %List
+	#dim lbLijn as %List
+	#dim LijnNiv1 as %String
+	#dim LijnNiv2 as %String
+	#dim LijnNiv3 as %String
+	#dim LijnNiv4 as %String
+	#dim ObjectType as %String
+	
+	Set lbHoofding=^||ECCache("L",BONNr)
+	
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnNiv1=$O(^||ECCache("L",BONNr,""))
+	While LijnNiv1'=""
+	{	
+		Set LijnNiv2=$O(^||ECCache("L",BONNr,LijnNiv1,""))
+		While LijnNiv2'=""
+		{	
+			Set LijnNiv3=$O(^||ECCache("L",BONNr,LijnNiv1,LijnNiv2,""))
+			While LijnNiv3'=""
+			{	
+				Set lbLijn=^||ECCache("L",BONNr,LijnNiv1,LijnNiv2,LijnNiv3)
+				Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+				If $isObject(pxLijn) {
+					Do pxHoofding.Lijnen.Insert(pxLijn)
+				}
+				Set LijnNiv3=$O(^||ECCache("L",BONNr,LijnNiv1,LijnNiv2,LijnNiv3))
+		}
+			Set LijnNiv2=$O(^||ECCache("L",BONNr,LijnNiv1,LijnNiv2))
+		}
+
+		Set LijnNiv1=$O(^||ECCache("L",BONNr,LijnNiv1))
+	}
+	Do pxHoofding.BepaalProductGroepen()
+	Do ..BepaalLeverStatus(pxHoofding)
+	Do ..Leveringen.Insert(pxHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLeverStatus">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.LeveringHoofding</FormalSpec>
+<Implementation><![CDATA[
+	#dim SamenvattingStatus as WS.Vhisie4.KlantDocument.enu.LeverStatus =""
+	Set it=##class(TECH.ListIterator).%New(pxHoofding.Lijnen)
+	While it.HasNext()
+	{
+		#dim pxLijn as WS.Vhisie4.KlantDocument.dto.LeveringsLijn
+		Set pxLijn=it.Next()
+		If (pxLijn.Type="L")||(pxLijn.Type="R")
+		{
+			Set SamenvattingStatus=..CombineerStatus(pxLijn, SamenvattingStatus)
+		}
+	}
+	
+	If SamenvattingStatus'=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Terugname()
+	{
+		If pxHoofding.LeveringsDatum'<+$H {
+			Set SamenvattingStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).InLevering()
+		} Else {
+			Set SamenvattingStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Geleverd()
+		}
+	}
+	Else  ; Terugname : status op leeg zetten
+	{
+		Set it=##class(TECH.ListIterator).%New(pxHoofding.Lijnen)
+		While it.HasNext()
+		{
+			Set pxLijn=it.Next()
+			Set pxLijn.Status=""
+		}
+	}	
+	Set pxHoofding.Status=SamenvattingStatus
+]]></Implementation>
+</Method>
+
+<Method name="CombineerStatus">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.LeveringLijn,VorigeLeverStatus:WS.Vhisie4.KlantDocument.enu.LeverStatus</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.LeverStatus</ReturnType>
+<Implementation><![CDATA[
+	#dim NieuweLeverStatus as WS.Vhisie4.KlantDocument.enu.LeverStatus=VorigeLeverStatus
+	#dim LeverStatus as WS.Vhisie4.KlantDocument.enu.LeverStatus
+	
+	Set LeverStatus=..ConverteerNaarLeverStatus(pxLijn)
+	If NieuweLeverStatus="" {
+		
+			Set NieuweLeverStatus=LeverStatus
+			
+	} ElseIf (LeverStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Terugname()) || (VorigeLeverStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Terugname()) {
+
+		Set NieuweLeverStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Terugname()
+
+	} 
+		
+	Quit NieuweLeverStatus
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarLeverStatus">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.LeveringLijn</FormalSpec>
+<ReturnType>WS.Vhisie4.KlantDocument.enu.LeverStatus</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverStatus as WS.Vhisie4.KlantDocument.enu.LeverStatus
+	If pxLijn.Aantal<0 {
+		Set LeverStatus=##class(WS.Vhisie4.KlantDocument.enu.LeverStatus).Terugname()
+	}
+	Quit $G(LeverStatus)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.LeveringLijn).%New()
+	Do ..LeveringenOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.LeveringHoofding).%New()
+	Do ..LeveringenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/ProductValidator.cls.xml	(revision 48574)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.ProductValidator">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AssortimentGroep">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,GenerationID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID=KlantID
+	Set ..GenerationID=GenerationID
+	Set ..AssortimentGroep=..GeefAssortimentGroep()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InConfigurator">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:PRNr'?4.9N 0
+	Quit:'$D(^KPR(PRNr)) 0
+	Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
+	Quit:GenTyp="TBX" 1
+	Quit:GenTyp="LBX" 1
+	Quit:GenTyp="TAO" 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="InAssortiment">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:PRNr'?4.9N 0
+	Quit:'$D(^KPR(PRNr)) 0
+	Quit:##class(AX.Uitgaand.EC.AssortimentAX.impl.KlantAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..KlantID) 1
+	Quit:##class(AX.Uitgaand.EC.AssortimentAX.impl.BasisAssortiment).%ExistsId(..GenerationID_"||"_PRNr_"||"_..AssortimentGroep) 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefAssortimentGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Klant=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).%OpenId(..GenerationID_"||"_..KlantID)
+	Quit Klant.AssortimentGroep
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(revision 48574)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	Do ..VoerUitQuery()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = ""
+	_"select custinvoicetrans.* from CUSTINVOICETRANS "
+	_"join INVENTDIM on INVENTDIM.INVENTDIMID = CUSTINVOICETRANS.INVENTDIMID and INVENTDIM.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
+	_"join CUSTINVOICEJOUR on CUSTINVOICEJOUR.INVOICEID = CUSTINVOICETRANS.INVOICEID and CUSTINVOICEJOUR.INVOICEDATE = CUSTINVOICETRANS.INVOICEDATE and CUSTINVOICEJOUR.DATAAREAID = CUSTINVOICETRANS.DATAAREAID "
+	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = CUSTINVOICEJOUR.INVOICEPOSTALADDRESS "
+	_" where exists (select * from CUSTTRANS where CUSTTRANS.INVOICE = CUSTINVOICEJOUR.INVOICEID and CUSTTRANS.ACCOUNTNUM = CUSTINVOICEJOUR.INVOICEACCOUNT and CUSTTRANS.TRANSDATE = CUSTINVOICEJOUR.INVOICEDATE "
+	_"               and CUSTTRANS.VOUCHER = CUSTINVOICEJOUR.LEDGERVOUCHER and CUSTTRANS.CLOSED = '1900-01-01' and  CUSTTRANS.DATAAREAID = CUSTINVOICEJOUR.DATAAREAID)"
+
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[	Quit ..ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,172 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest</Type>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</Type>
+</Property>
+
+<Property name="ProductGroepen">
+<Type>WS.Vhisie4.KlantDocument.dto.HistoriekGroep</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="arProductGroepen">
+<Type>WS.Vhisie4.KlantDocument.dto.HistoriekGroep</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+
+	Set ..Request=Request
+	Set ..Taal=Request.Header.Taal
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..GenerationId=..Request.GenerationId
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+
+
+	Do ..GenereerLijst()
+		
+	Set ..Response.Tijd=Timer.Stop()\1
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
+<Implementation><![CDATA[
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.KlantId=..KlantId
+	Set ..Response.GenerationId=..GenerationId
+	Set ..Response.Lijst=..ProductGroepen
+
+	Quit ..Response
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Implementation><![CDATA[
+ 	Set HoofdGroep=0
+ 	Set LijnCnt=0
+ 	For  Set HoofdGroep=$O(^KKAAP(..KlantId,HoofdGroep)) Quit:HoofdGroep=""  Do
+	. Set Groep=""
+	. For  Set Groep=$O(^KKAAP(..KlantId,HoofdGroep,Groep)) Quit:Groep=""  Do
+	. . Set SubGroep=""
+	. . For  Set SubGroep=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep)) Quit:SubGroep=""  Do
+	. . . Set KortText=""
+	. . . For  Set KortText=$O(^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)) Quit:KortText=""  Do
+	. . . . Set HistRec=^KKAAP(..KlantId,HoofdGroep,Groep,SubGroep,KortText)
+	. . . . Set PRNr=$P(HistRec,"\",15)
+	. . . . Quit:'..CheckProduct(PRNr)
+	. . . . Do ..ToevoegenHistoriek(HistRec)
+	Do ..SorteerProductGroepen()
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenHistoriek">
+<FormalSpec>HistRec:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxItem=##class(WS.Vhisie4.KlantDocument.dto.HistoriekItem).%New()
+	Set pxItem.PRNr=$P(HistRec,"\",15)
+	Set pxItem.ProductID=..Translator.GeefItemIDForAX($P(HistRec,"\",15))
+	Set pxItem.JaarAfname=$P(HistRec,"\",3)
+	Set pxItem.JaarOmzet=$P(HistRec,"\",12)
+	Set pxItem.NettoPrijs=$P(HistRec,"\",9)
+	Set:$P(HistRec,"\",11)="H" pxItem.GrootteOrde="%"
+	Set pxItem.Munt=$P(HistRec,"\",10)
+	Set pxItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
+	Do pxItem.VulAanMetProduct(..Taal)
+	Do ..ToevoegenAanGroep(pxItem)
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenAanGroep">
+<FormalSpec>pxItem:WS.Vhisie4.KlantDocument.dto.HistoriekItem</FormalSpec>
+<Implementation><![CDATA[
+	#Dim ProductGroep as WS.Vhisie4.KlantDocument.enu.ProductGroep
+	#Dim pxProductGroep as  WS.Vhisie4.KlantDocument.dto.HistoriekGroep
+	Set GroepSleutel=pxItem.GeefSubgroepSorteerSleutel()
+	Set pxProductGroep=..arProductGroepen.GetAt(GroepSleutel)
+	If '$isObject(pxProductGroep)
+	{
+		Set pxProductGroep=##class(WS.Vhisie4.KlantDocument.dto.HistoriekGroep).%New()
+		Set pxProductGroep.ProductGroep=pxItem.ProductGroep
+		Set pxProductGroep.ProductSubGroep=pxItem.ProductSubGroep
+		Do ..arProductGroepen.SetAt(pxProductGroep,GroepSleutel)
+	}
+	Set pxProductGroep.AantalLijnen=pxProductGroep.AantalLijnen+1
+	Set pxProductGroep.AantalStuks=pxProductGroep.AantalStuks+pxItem.JaarAfname
+	Set pxProductGroep.Omzet=pxProductGroep.Omzet+pxItem.JaarOmzet
+	Do pxProductGroep.Producten.Insert(pxItem)
+]]></Implementation>
+</Method>
+
+<Method name="CheckProduct">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
+]]></Implementation>
+</Method>
+
+<Method name="SorteerProductGroepen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim pxProductGroep as  WS.Vhisie4.KlantDocument.dto.HistoriekGroep
+	Set it=##class(TECH.ListIterator).%New(..arProductGroepen)
+	While it.HasNext()
+	{
+		Set pxProductGroep=it.Next()
+		Do:$isObject(pxProductGroep) ..ProductGroepen.Insert(pxProductGroep)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="InsertProductGroep">
+<FormalSpec>ProductGroep:WS.Vhisie4.KlantDocument.enu.ProductGroep</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim pxProductGroep as WS.Vhisie4.KlantDocument.dto.ProductGroepInfo =..arProductGroepen.GetAt(ProductGroep)
+	Do:$isObject(pxProductGroep) ..ProductGroepen.Insert(pxProductGroep)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,235 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.FacturenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Periode">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="FacturenOphaler">
+<Type>AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FacturenConverter">
+<Type>AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Facturen">
+<Type>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="GenerationId">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AxCustomerId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Request">
+<Type>WS.Vhisie4.KlantDocument.GeefFacturenRequest</Type>
+</Property>
+
+<Property name="Response">
+<Type>WS.Vhisie4.KlantDocument.GeefFacturenResponse</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Timer=##class(TECH.Timing.Timer).%New("")
+	Do Timer.Start()
+
+	Set ..Request=Request
+	Set ..KlantId=..Request.Header.KlantId
+	Set ..AxCustomerId=..Request.Header.AxCustomerId
+	Set ..Periode=Request.Periode
+	Set ..Taal=..Request.Header.Taal
+	Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
+	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator)
+
+	Do ..GenereerLijst()	
+
+	Set ..Response.Tijd=Timer.Stop()\1
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefResponse">
+<ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
+<Implementation><![CDATA[
+	Set ..Response.SessieId=..Request.Header.SessieId
+	Set ..Response.RequestId=..Request.Header.RequestId
+	Set ..Response.KlantId=..KlantId
+	Set ..Response.GenerationId=..GenerationId
+	Set ..Response.Lijst=..Facturen
+
+	Quit ..Response
+]]></Implementation>
+</Method>
+
+<Method name="GenereerLijst">
+<Description>
+Hoofding
+   ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData)
+	   waar Type = O,L,F,P (order, levering, factuur, proforma)
+Lijn (product of tekst)
+   ^||ECCache("D",HoofdingVolgNr,LijnVolgNr) = $LB(Type,OrderlijnData, Tekst, VoorraadStatus)
+	   waar Type = P of T (Product of Tekst)
+	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
+Index
+   ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr
+   ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr
+Hoofding
+   ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData)
+	   waar Oorsprong = O,L,F,P (order, levering, factuur, proforma)
+       waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur
+Lijn (product of tekst)
+   ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData)
+	   waar Type = P of T (Product of Tekst)
+	   de lijnData kan van zowel KOD, KUL, KFA als KFAP komen
+Index
+   ^||ECCache("IORD",OrderDatum,ORDNr)=""</Description>
+<Implementation><![CDATA[
+	Do ..OphalenNaarCache()
+	Do ..ConverteerCacheNaarXML()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerCacheNaarXML">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FactuurDatum as %Date
+	#dim FAKNr as %String
+		
+	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
+	While FactuurDatum'=""
+	{
+		Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,""))
+		While FAKNr'=""
+		{
+			Do ..Converteer(FAKNr)
+			Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,FAKNr))
+		}
+		Set FactuurDatum=$O(^||ECCache("IFAK",FactuurDatum),-1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>FAKNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim pxHoofding as WS.Vhisie4.KlantDocument.dto.DocumentHoofding
+	#dim pxLijn  as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
+	#dim lbHoofding as %List
+	#dim lbLijn as %List
+	#dim LijnNiv1 as %String
+	#dim LijnNiv2 as %String
+	#dim LijnNiv3 as %String
+	#dim LijnNiv4 as %String
+	#dim ObjectType as %String
+	
+	Set lbHoofding=^||ECCache("FAK",FAKNr)
+	
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,""))
+	While LijnNiv1'=""
+	{	
+		Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,""))
+		While LijnNiv2'=""
+		{	
+			Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,""))
+			While LijnNiv3'=""
+			{	
+
+				Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,""))
+				While LijnNiv4'=""
+				{	
+
+					Set lbLijn=^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3,LijnNiv4)
+					Set pxLijn=..ConverteerLijn(lbHoofding,lbLijn)
+					If $isObject(pxLijn) {
+						Do pxHoofding.Lijnen.Insert(pxLijn)
+					}
+					Set LijnNiv4=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3, LijnNiv4))
+			}
+				Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,LijnNiv3))
+		}
+			Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2))
+		}
+
+		Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,LijnNiv1))
+	}
+	Do pxHoofding.BepaalProductGroepen()
+	Do ..Facturen.Insert(pxHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
+<Implementation><![CDATA[
+	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
+	Do ..FacturenOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
+	Quit pxLijn
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>lbHoofding:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.FactuurHoofding).%New()
+	Do ..FacturenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
+	Quit pxHoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,362 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperLeveringenOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductValidator">
+<Type>ProductValidator</Type>
+</Property>
+
+<Property name="KlantId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Node">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderType">
+<Description>
+Standaard of Contract</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="TrackAndTraceService">
+<Type>APPS.OV.impl.TrackAndTraceService</Type>
+</Property>
+
+<Property name="Translator">
+<Type>Translator</Type>
+</Property>
+
+<Property name="repOpenstaandeFactuur">
+<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantId=KlantId
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Set ..Translator=##class(Translator).%New()
+	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
+	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TranslateVerzendWijze">
+<FormalSpec>VerzendWijze:%String</FormalSpec>
+<Implementation><![CDATA[	Quit VerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.LeveringHoofding,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.LeveringId=$LG(lbHoofding,2)
+	Set pxHoofding.OorsprongDocType="L"
+
+	Set LeveringRec=$LG(lbHoofding,3)
+	Set pxHoofding.VerzendWijze=..TranslateVerzendWijze($P($P(LeveringRec,"\",7)," #"))
+	Set pxHoofding.LeveringsDatum=$$INTDATE^vhLib.DataTypes($P($P(LeveringRec,"\",7)," #"))
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
+	{
+		try{
+		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
+		}Catch E{	
+		 	Do ##class(TECH.ExceptionHandler).Catch()	
+		 	/// geen TrackAndTrace URL beschikbaar
+		}
+	}
+	; Niet voor AX
+	;Do ..VulAanMetFactuur(pxHoofding, lbHoofding)
+]]></Implementation>
+</Method>
+
+<Method name="VulAanMetFactuur">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.LeveringHoofding,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbHoofding,1)="G" {
+		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Factuur()	
+		Set pxHoofding.FactuurId=$P($G(^KU1(pxHoofding.LeveringId,"F")),"\",2)
+			
+		If pxHoofding.FactuurId'=""
+		{
+			#dim FactuurRec as %String=^KFA("F",pxHoofding.FactuurId,0,0)
+			Set pxHoofding.Munt=$P(FactuurRec,"\",5)
+			If $P(FactuurRec,"\",2)="C" {
+				Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Kredietnota()
+				Set pxHoofding.FactuurBedrag=-$P(FactuurRec,"\",12)
+			} Else {
+				Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Factuur()	
+				If ..repOpenstaandeFactuur.BestaatViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
+				{ 
+					#dim OpenstaandeFactuur As DOM.BKH.OpenstaandeFactuur = ..repOpenstaandeFactuur.GeefViaKlantIDEnFactuurID("K||"_..KlantId,pxHoofding.FactuurId)
+					set pxHoofding.OpenstaandBedrag = OpenstaandeFactuur.GeefNogTeBetalenInMuntKlant()
+					set pxHoofding.AantalHerinneringen= OpenstaandeFactuur.GeefAantalHerinneringen()
+					set pxHoofding.FactuurBedrag = OpenstaandeFactuur.GeefTotaalBedragInMuntKlant()
+					set pxHoofding.VervalDatum = OpenstaandeFactuur.GeefVervalDatum()
+				}
+				Else
+				{
+					Set pxHoofding.FactuurBedrag=$P(FactuurRec,"\",12)
+				}
+			}
+		}
+		
+	} ElseIf $LG(lbHoofding,1)="M" {
+		Set pxHoofding.FactuurType=##class(WS.Vhisie4.KlantDocument.enu.FactuurType).Nulfactuur()
+		Set pxHoofding.FactuurId=$P($G(^KU1(pxHoofding.LeveringId,"F")),"\",2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,1)="O"
+	{
+		Do ..ConverteerOrderHoofdingLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	ElseIf $LG(lbLijn,1)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerOrderHoofdingLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	; $LB("O",Sort(ORDCnt),,ORDNr)
+	; Order
+	Set pxLijn.Type="O"
+	Set pxLijn.OrderId=$LG(lbLijn,4)
+	Set OrdRec=$LG(lbLijn,2)
+	Set pxLijn.OrderDatum=..GeefOrderDatum(OrdRec)
+	Set pxLijn.OrderReferentie=..GeefOrderReferentie(OrdRec)
+	
+	If $D(^KOD(..KlantId,"F",pxLijn.OrderId)) {
+		Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).DeelsGeleverd()
+	} Else {
+		Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Geleverd()
+	}
+	Set IngegevenDoorMedewerker=$P($P(OrdRec,"\",19),"#",1)
+	Set:IngegevenDoorMedewerker pxLijn.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
+
+	Set OLRec=$LG(lbLijn,2)
+	Set pxLijn.ProductID=..Translator.GeefItemIDForAX($P(OLRec,"\",2))
+	Set pxLijn.PRNr=$P(OLRec,"\",2)
+	Set pxLijn.Aantal=$P(OLRec,"\",3)
+	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
+	Set pxLijn.Munt=$P(OLRec,"\",22)
+	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
+	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
+	Set pxLijn.OorsprongDocType=$Case($LG(lbHoofding,1),"G":"FACTUUR", "M":"NUL-FACTUUR", :"LEVERING")
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
+	Do pxLijn.VulAanMetProduct(..Taal)
+	If $P(OLRec,"\",5)'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+	}
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+	{
+		Set pxLijn.Afbeelding=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	;$LB("T",,GrpTekst(OLUNr))
+
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<FormalSpec>Node:%String,Periode:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set BONNr=""
+	Set ..Node=Node
+	For  Set BONNr=$O(^KUL(..KlantId,..Node,BONNr)) Quit:BONNr=""  Do
+	. Quit:'..CheckLevering(BONNr,$G(Periode))
+	. Do ..OphalenLevering(BONNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenLevering">
+<FormalSpec>BONNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim BLNr As %Integer = 99
+	#dim HasProd As %Boolean = 0
+	#dim ORDCnt As %Integer = 0
+	#dim Totaal As %Float = 0
+	#dim ProdGrp As %String = "*"
+	#dim LastGrpTijd As %String = "" 
+	#dim LastGrpOLUNr As %String = ""
+	Set BLNr=$O(^KUL(..KlantId,..Node,BONNr,BLNr))
+	While (BLNr '= "")
+	{
+		#dim LijnType As %String = ""
+		Do ..CheckLeveringLijn(BONNr,BLNr,.LijnType)
+		If (LijnType '=""){
+			#dim BLRec As %String = ^KUL(..KlantId,..Node,BONNr,BLNr)
+			If LijnType="O" { 										; Orderhoofding
+				Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(BLRec)
+			}else{
+				Set Totaal = Totaal+$P(BLRec,"\",16)
+				#dim PRNr As %String = $P(BLRec,"\",2)
+				Set:PRNr?4.7N HasProd=1
+				; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
+				If ProdGrp="" {
+					Set MemSort(BLNr)=$LB(LijnType,BLRec) 			; onthouden van de lijn totdat prodgrp gekend
+				}Else{
+					Merge Sort(ORDCnt,ProdGrp)=MemSort
+					Kill MemSort
+					
+					Set Sort(ORDCnt,ProdGrp,BLNr)=$LB(LijnType,BLRec) ; onthouden van de lijn
+				}
+				If (LijnType="T"){ 									; alleen tekstlijnen groeperen
+					#dim Groep As %String = $P(BLRec,"\",18)
+					Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" 	; nieuwe groep
+					Set LastGrpTijd=$P(Groep,";")
+					#dim GrpOLUNr As %String = $P(Groep,";",3)
+					Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
+					Set:GrpOLUNr="" GrpOLUNr=$P(BLRec,"\",15)
+					If (GrpOLUNr'=""){
+						Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"<br>",1:"")_$P(BLRec,"\",5)
+						Set LastGrpOLUNr=GrpOLUNr	
+					}
+				}
+			}
+		}
+		Set BLNr=$O(^KUL(..KlantId,..Node,BONNr,BLNr))
+	}
+
+	Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
+	Set ORDCnt = ""
+	For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt=""  
+		
+		Continue:'$D(Sort(ORDCnt))>1  // heeft Sort subnodes
+		Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ")
+		Continue:ORDNr=""
+		Continue:ORDNr=999999 ; dummy order voor plus/min bonnen
+		If '$D(^||ECCache("L",BONNr))
+		{
+			Set ^||ECCache("L",BONNr)=$LB(..Node,BONNr,^KUL(..KlantId,..Node,BONNr,1),^KUL(..KlantId,..Node,BONNr,3))
+			Set ^||ECCache("IL",LeverDatum,BONNr)=""
+		}
+		
+		Set ProdGrp = ""
+		for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" 
+			Set ^||ECCache("L",BONNr,ORDNr,1,1)=$LB("O",Sort(ORDCnt),,ORDNr)
+
+			Set BLNr = ""
+			for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" 
+				Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1)
+				Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2)
+				#dim OLUNr As %String = $P(BLRec,"\",15)
+				Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("L",BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+				Set:LijnType="P" ^||ECCache("L",BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)))
+				}
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="CheckLevering">
+<FormalSpec>BONNr,Periode</FormalSpec>
+<Implementation><![CDATA[
+	If Periode && (..Node'="F")
+	{
+		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
+		Set Check=LeverDatum'<($H-Periode)
+	}
+	Else 
+	{
+		Set Check=1
+	}
+	Quit Check
+]]></Implementation>
+</Method>
+
+<Method name="CheckLeveringLijn">
+<FormalSpec><![CDATA[BONNr:%String,LNr:%String,&LijnType:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=$G(^KUL(..KlantId,..Node,BONNr,LNr))
+	Set PRNr=$P(Rec,"\",2)
+	Set LijnType=""
+	Quit:Rec=""
+	
+	If $P(Rec,"\",17)="KF5" Set LijnType="O"  Quit ; Orderhoofding
+	
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["B" LijnType="T"  Quit  ; Tekst dat op een leveringsbon mag verschijnen
+
+	Quit:PRNr'?4.7N 
+	
+	Set:PRNr?4.7N LijnType="P"
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	SEt Datum=""
+	Set:Ref?2N1"."2N1"."2N.E Datum=$$INTDATE^vhLib.DataTypes($E(Ref,1,8))
+	Set:(Datum<($H-365))||(Datum>($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3)
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderReferentie">
+<FormalSpec>ORDRec</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
+	Set:Ref?2N1"."2N1"."2N.E Ref=$E(Ref,9,99) ; Strip datum
+	Set:$E(Ref)=" " Ref=$E(Ref,2,99)
+	
+	Quit Ref
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(revision 48574)
@@ -0,0 +1,194 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperOrdersConverteren">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="KredietWaardig">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	Set ..KlantID=KlantID
+	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.OrderId=$LG(lbHoofding,2)
+	Set pxHoofding.OorsprongDocType="ORDER"
+	
+	Set OrderRec=$LG(lbHoofding,3)
+	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
+	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
+	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
+	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
+	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
+	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.ProductID=$P(OLRec,"\",2)
+	Set pxLijn.Aantal=$P(OLRec,"\",3)
+	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
+	Set pxLijn.Munt=$P(OLRec,"\",22)
+	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
+	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
+	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
+	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$P(OLRec,"\",5)
+	
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+	If $P(OLRec,"\",5)'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+	}
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+	{
+		Set pxLijn.Afbeelding=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.Status=$LG(lbLijn,5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrder">
+<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
+	Set OrderType=$P(Rec,"\",25)
+	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
+	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
+		
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrderLijn">
+<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
+<Implementation><![CDATA[
+
+	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
+	Set PRNr=$P(Rec,"\",2)
+	; ProdGrp behoud in eerste instantie de oude waarde
+	Set (LijnType,VoorraadStatus)=""
+	; Tekstlijn
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
+	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
+	;Voorraadstatus beperking
+	Set OLUNr=$P(Rec,"\",15)
+	If $P(Rec,"\",3)<0
+	{
+		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+	}
+	Elseif $P(Rec,"\",3)>0
+	{
+		If $D(^ORDW("IO",ORDNr,OLUNr)) 
+		{
+			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
+		} Else {
+			If $P(Rec,"\",27)'="" 
+			{
+				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
+			} Else {  
+				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
+			}
+		}
+	}
+	Set LijnType="P"
+]]></Implementation>
+</Method>
+
+<Method name="VoorraadStatus">
+<FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	Set FysStock=$$GETSTOCK^PRODUKT4(PRNr,"F")
+	If $G(Aantal),FysStock<Aantal Quit "F"
+	Set PrakStock=$$GETSTOCK^PRODUKT4(PRNr,"P")
+	If PrakStock<$S($G(ReedsInOrder):0,1:Aantal) Quit "P"
+	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(revision 48574)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection,RecenteDatum:%Date=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	If RecenteDatum
+	{
+		Do ..VoerUitQueryRecente(RecenteDatum)
+	}
+	Else
+	{
+		Do ..VoerUitQueryOpenstaande()
+	}
+	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQueryOpenstaande">
+<FormalSpec>RecenteDatum:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = ""
+	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
+	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
+	_" and SALESTABLE.SALESSTATUS <> 4"
+	_" and SALESLINE.SALESSTATUS <> 4"
+	_" and SALESTABLE.SALESTYPE = 3"
+	
+	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
+	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
+	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQueryRecente">
+<FormalSpec>RecenteDatum:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = ""
+	_"select * from SALESTABLE left outer join SALESLINE on SALESLINE.SALESID = SALESTABLE.SALESID"
+	_" where SALESLINE.DATAAREAID = SALESTABLE.DATAAREAID "
+	_" and SALESTABLE.SALESSTATUS = 1"
+	_" and SALESLINE.SALESSTATUS = 1"
+	_" and SALESTABLE.SALESTYPE = 3"
+	_" and SALESTABLE.CREATEDDATETIME >= '"_$zd(RecenteDatum) _ " 20171201 00:00:00.000' "
+
+	
+	;SalesStatus order header values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4
+	;SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
+	;SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[		Quit ..ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(revision 48574)
@@ -0,0 +1,261 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen">
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
+
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+</Property>
+
+<Property name="GenerationID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="KredietWaardig">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	Set ..KlantID=KlantID
+	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
+	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxHoofding.OrderId=$LG(lbHoofding,2)
+	Set pxHoofding.OorsprongDocType="ORDER"
+	
+	Set OrderRec=$LG(lbHoofding,3)
+	Set pxHoofding.OrderDatum=$$INTDATE^vhLib.DataTypes($P(OrderRec,"\",2),"DK")
+	Set pxHoofding.OrderReferentie=$P(OrderRec,"\",3)
+	Set:$P(OrderRec,"\",35)'="" pxHoofding.OrderReferentie=$P(OrderRec,"\",35) ; specieke EDI referentie
+	Set pxHoofding.VerzendWijze=$P($P(OrderRec,"\",7),";")
+	Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40)
+	Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19)
+	Set IngegevenDoorMedewerker=$P($P(OrderRec,"\",24),"#",1)
+	Set:IngegevenDoorMedewerker pxHoofding.IngegevenDoorMedewerker=$$USERNAME^vhUSER(IngegevenDoorMedewerker,1)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	If $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
+	}
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.ProductID=$P(OLRec,"\",2)
+	Set pxLijn.Aantal=$P(OLRec,"\",3)
+	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
+	Set pxLijn.Munt=$P(OLRec,"\",22)
+	Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"")
+	Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16)
+	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
+	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
+	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
+	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
+	Set pxLijn.Commentaar=$P(OLRec,"\",5) ; projectreferentie
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$P(OLRec,"\",5)
+	
+	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
+	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
+	Do pxLijn.VulAanMetProduct(..Taal)
+	If $P(OLRec,"\",5)'=""
+	{
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
+	}
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+	{
+		Set pxLijn.Afbeelding=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
+]]></Implementation>
+</Method>
+
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set OLRec=$LG(lbLijn,3)
+	Set pxLijn.Status=$LG(lbLijn,5)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenNaarCache">
+<FormalSpec>BeperkOrderType:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ORDNr=""
+	For  Set ORDNr=$O(^KOD(..KlantID,"F",ORDNr)) Quit:ORDNr=""  Do
+	. Quit:'..CheckOrder(ORDNr,BeperkOrderType)
+	. Do ..OphalenOrder(ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="OphalenOrder">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim OLNr As %Integer = 99
+	#dim HasProd As %Boolean = 0
+	#dim ORDCnt As %Integer = 0
+	#dim ProdGrp As %String = "*"
+	#dim LastGrpTijd As %String = "" 
+	#dim LastGrpOLUNr As %String = ""
+	#dim OrderDatum As %Date = ""
+	
+	Set HasProd=""
+	Kill Sort,GrpTekst
+	Set OrderTotaal=0
+	Set LastGrpTijd="",LastGrpOLUNr=""
+	For  Set OLNr=$O(^KOD(..KlantID,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
+	. Do ..CheckOrderLijn(ORDNr,OLNr,.LijnType,.VoorraadStatus)
+	. Quit:LijnType=""
+	. Set OLRec=^KOD(..KlantID,"F",ORDNr,OLNr)
+	. Set OrderTotaal=OrderTotaal+$P(OLRec,"\",16)
+	. Set PRNr=$P(OLRec,"\",2)
+	. Set:PRNr?4.8N HasProd=1
+	. ; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen
+	. If ProdGrp="" Do
+	. . Set MemSort(OLNr)=$LB(LijnType,OLRec) ; onthouden van de lijn totdat prodgrp gekend
+	. Else  Do
+	. . Merge Sort(ProdGrp)=MemSort
+	. . Kill MemSort
+	. . Set Sort(ProdGrp,OLNr)=$LB(LijnType,OLRec,VoorraadStatus) ; onthouden van de lijn
+	. Quit:LijnType'="T" ; alleen tekstlijnen groeperen
+	. Set Groep=$P(OLRec,"\",18)
+	. Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" ; nieuwe groep
+	. Set LastGrpTijd=$P(Groep,";")
+	. Set GrpOLUNr=$P(Groep,";",3)
+	. Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr
+	. Set:GrpOLUNr="" GrpOLUNr=$P(OLRec,"\",15)
+	. Quit:GrpOLUNr=""
+	. Set GrpTekst(GrpOLUNr)=$G(GrpTekst(GrpOLUNr))_$S($D(GrpTekst(GrpOLUNr)):"<br>",1:"")_$P(OLRec,"\",5)
+	. Set LastGrpOLUNr=GrpOLUNr
+	 
+	Quit:'HasProd
+	Set LijnCnt=0
+	Set OrderDatum=..GeefOrderDatum(^KOD(..KlantID,"F",ORDNr,1))
+	Set ^||ECCache("ORD",ORDNr)=$LB("O",ORDNr,^KOD(..KlantID,"F",ORDNr,1),^KOD(..KlantID,"F",ORDNr,3))
+	Set ^||ECCache("IORD",OrderDatum,ORDNr)=""
+
+	Set (ProdGrp,OLNr)=""
+	For  Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp=""  Do
+ 	. For  Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr=""  Do
+	. . Set LijnType=$LI(Sort(ProdGrp,OLNr),1)
+	. . Set OLRec=$LI(Sort(ProdGrp,OLNr),2)
+	. . Set OLUNr=$P(OLRec,"\",15)
+	. . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","T",,GrpTekst(OLUNr))
+	. . Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3))
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<FormalSpec>ORDRec</FormalSpec>
+<Implementation><![CDATA[
+	Set Datum=$$INTDATE^vhLib.DataTypes($P(ORDRec,"\",2))
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrder">
+<FormalSpec>ORDNr:%String,BeperkOrderType:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Rec=^KOD(..KlantID,"F",ORDNr,1)
+	Set OrderType=$P(Rec,"\",25)
+	If OrderType="C",BeperkOrderType="S" Quit 0 ; Is een contractorder maar geen contracten toegelaten
+	If OrderType'="C",BeperkOrderType="C" Quit 0 ; Is geen contractorder maar alleen contracten toegelaten
+		
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="CheckOrderLijn">
+<FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:WS.Vhisie4.KlantDocument.enu.OrderLijnStatus]]></FormalSpec>
+<Implementation><![CDATA[
+
+	Set Rec=^KOD(..KlantID,"F",ORDNr,OLNr)
+	Set PRNr=$P(Rec,"\",2)
+	; ProdGrp behoud in eerste instantie de oude waarde
+	Set (LijnType,VoorraadStatus)=""
+	; Tekstlijn
+	If $P($P(Rec,"\",17),"#")="KF11" Set:$P($P(Rec,"\",18),";",4)["O" LijnType="T"  Quit  ; Tekst dat op een orderbevestiging mag verschijnen
+	Quit:PRNr'?4.8N "" ; Geen product, manuele product nog te implementeren
+	;Voorraadstatus beperking
+	Set OLUNr=$P(Rec,"\",15)
+	If $P(Rec,"\",3)<0
+	{
+		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+	}
+	Elseif $P(Rec,"\",3)>0
+	{
+		If $D(^ORDW("IO",ORDNr,OLUNr)) 
+		{
+			Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn()
+		} Else {
+			If $P(Rec,"\",27)'="" 
+			{
+				Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling())
+			} Else {  
+				Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad())
+			}
+		}
+	}
+	Set LijnType="P"
+]]></Implementation>
+</Method>
+
+<Method name="VoorraadStatus">
+<FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	Set FysStock=$$GETSTOCK^PRODUKT4(PRNr,"F")
+	If $G(Aantal),FysStock<Aantal Quit "F"
+	Set PrakStock=$$GETSTOCK^PRODUKT4(PRNr,"P")
+	If PrakStock<$S($G(ReedsInOrder):0,1:Aantal) Quit "P"
+	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>