Index: AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportKlant.cls.xml	(.../ExportKlant.cls.xml)	(revision 50322)
@@ -46,7 +46,6 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
-	Do ..OpenOutput()
 	Set itKlant=..KlantIterator()
 	While itKlant.HasNext() {
 		Set rs=itKlant.Next()
@@ -55,13 +54,13 @@
 		Continue:'..IsGeldigeKlant(KLNr)
 		Do ..ExportKlant(KLNr)
 	}
-	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
 <Method name="ExportKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ..OpenOutput(KLNr)
 	
 	Set it=..ProductIterator(KLNr)
 	While it.HasNext() {
@@ -70,6 +69,8 @@
 		Continue:'..IsGeldigProduct(KLNr,PRNr)
 		Do ..ExportProduct(KLNr,PRNr)
 	}
+	
+	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -90,7 +91,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("Select Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=? and isnull(Excluded,0)=0")
+	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.KlantAssortiment where Klant=? and GenerationID=?")
 	
  	Set sc=rs.Execute(KLNr,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
@@ -125,37 +126,38 @@
 <FormalSpec>KLNr:%String,PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxKlantProduct).%New()
-	Set Klant=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_KLNr)
-	Do Proxy.InvullenMetProductData(PRNr,Klant.AssortimentGroep)
-
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Set Proxy.KlantID=Translator.GeefCustomerIDForAX(KLNr)
-
-	;Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
-	;Set Proxy.Excluded=KlantAssortiment.Excluded
+	Do Proxy.InvullenMetProductData(PRNr)
+	Set KlantAssortiment=##class(AX.Uitgaand.EC.Assortiment.impl.KlantAssortiment).%OpenId(..ExportDefaults.NewGenerationID_"||"_PRNr_"||"_KLNr)
+	Set Proxy.Excluded=KlantAssortiment.Excluded
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
+<FormalSpec>KLNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="KlantUitzAssortiment"
-	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
+	Set BestandsNaam=Omschrijving_" "_KLNr_".xml"
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
 
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
+	Do ..Writer.Element("Klant")
+	Do ..Writer.Write(KLNr)
+	Do ..Writer.EndElement()
+	Do ..Writer.Element("KlantNaam")
+	Do ..Writer.Write($P(^KKL(^KK1(KLNr),0),"\",2))
+	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/Translator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/ServiceAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/DataAX/impl/Testing.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Data/impl/Testing.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/Testing.cls.xml	(.../Testing.cls.xml)	(revision 50322)
@@ -37,6 +37,7 @@
 	Do ..Leveringen(KlantId)
 	Do ..Leveringen(KlantId,Periode)
 	Do ..Offertes(KlantId,Periode)
+	
 	Do ..Historiek(KlantId)
 ]]></Implementation>
 </Method>
@@ -46,33 +47,28 @@
 d ##class(AX.Uitgaand.EC.Data.impl.Testing).Doc()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	
 	Set request=##class(WS.Vhisie4.KlantDocument.GeefDocumentRequest).%New()
 	Set request.Header.KlantId=1736
-	Set request.Header.Taal="F"
+	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 
-	Set request.DocumentId="VO1800141169"
-	Set request.DocumentType="Order"
+	Set request.DocumentId=591298
+	Set request.DocumentType="Factuur"
 	Set request.ResultaatType="PDF"
 	;Set request.DocumentId=315652
 	;Set request.DocumentType="Levering"
 	
-	Set request.DocumentId="VC123339"
-	Set request.DocumentType="Factuur"
+	Set request.DocumentId=166946
+	Set request.DocumentType="Order"
 	;Set request.DocumentId="573781"
 	;Set request.DocumentType="Offerte"
 
-	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
-
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
-	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 	Set dto=bl.GeefDocument(request)
-	Do ##class(Tools.Wlip).%New(127).String(request.DocumentId)
 
 	Do ObjToXMLFile^vhLib(request,"\\notes01\shared\P V\EC Document request "_request.Header.KlantId_" "_request.DocumentId_".xml")
 	Do ObjToXMLFile^vhLib(dto,"\\notes01\shared\P V\EC Document response "_request.Header.KlantId_" "_request.DocumentId_".xml")
@@ -89,7 +85,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -111,7 +107,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode = $G(Periode)
@@ -134,7 +130,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -155,7 +151,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set bl=##class(WS.Vhisie4.KlantDocument.KlantDocumentService).%New()
@@ -176,7 +172,7 @@
 	Set request.Header.Taal="N"
 	Set request.Header.SessieId="xx"
 	Set request.Header.RequestId="yy"
-	Set request.Header.PersonalityId=1
+	Set request.Header.PersonalityId="VH"
 	Set request.Header.GebruikerId="gg"
 	Set request.Header.GebruikerIp="11.11.11.11"
 	Set request.Periode=200
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersConverteren.cls.xml	(.../HelperOrdersConverteren.cls.xml)	(revision 50322)
@@ -4,7 +4,7 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
 
 <Property name="ProductValidator">
 <Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
@@ -14,14 +14,10 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KlantId">
+<Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
-<Property name="AXCustomerID">
-<Type>%String</Type>
-</Property>
-
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
@@ -30,151 +26,156 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
-</Property>
-
-<Property name="ModeAX">
-<Type>%String</Type>
-</Property>
-
-<Property name="AlleenOpenstaand">
-<Type>%Boolean</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,AlleenOpenstaand:%Boolean,ModeAX:%String="2A"</FormalSpec>
+<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 ..AXCustomerID=AXCustomerID
+	Set ..KlantID=KlantID
+	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
 	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
 	Set ..ProductValidator=ProductValidator	
-	Set ..Translator=Translator
-	Set ..ModeAX=ModeAX
-	Set ..AlleenOpenstaand=AlleenOpenstaand
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerHoofding">
-<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,OrderId:%String</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxHoofding.OrderId=OrderId
+	Set pxHoofding.OrderId=$LG(lbHoofding,2)
+	Set pxHoofding.OorsprongDocType="ORDER"
 	
-	Set pxHoofding.OrderDatum=$zdh(^||ECCache("D",OrderId,"HFD","CREATEDDATETIME"),3)
-	Set pxHoofding.OrderReferentie=$TR(^||ECCache("D",OrderId,"HFD","PURCHORDERFORMNUM"),$C(0))
-	Set pxHoofding.VerzendWijze=$TR(^||ECCache("D",OrderId,"HFD","DLVMODE"),$C(0))
-	Set pxHoofding.EDIReferentie=""
-	Set pxHoofding.CommissieReferentie=$TR(^||ECCache("D",OrderId,"HFD","CUSTOMERREF"),$C(0))
-	
-	Set pxHoofding.IngegevenDoorMedewerker=$TR(^||ECCache("D",OrderId,"HFD","CREATEDBY"),$C(0))
-	Set:pxHoofding.IngegevenDoorMedewerker="KarelP" pxHoofding.IngegevenDoorMedewerker=""
-	Set:pxHoofding.IngegevenDoorMedewerker="AIF_User" pxHoofding.IngegevenDoorMedewerker=""
-	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",OrderId,"HFD")))
-	Set pxHoofding.OorsprongDocType=$TR(^||ECCache("D",OrderId,"HFD","SALESORIGINID"),$C(0))
+	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.FactuurLijn,OrderId:%String,VolgNr:%String</FormalSpec>
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-
-	Set pxLijn.ProductID=^||ECCache("D",OrderId,"DTL",VolgNr,"ITEMID")
-	Set pxLijn.PRNr=$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
-  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
-  	If ..ModeAX'="2A"
-  	{	
-  		Set pxLijn.ProductID=pxLijn.PRNr
+	If $LG(lbLijn,2)="P"
+	{
+		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
 	}
-	If ..AlleenOpenstaand {
-		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"REMAINSALESPHYSICAL")-^||ECCache("D",OrderId,"DTL",VolgNr,"GEPICKTEHOEVEELHEID")
-	} Else {
-		Set pxLijn.Aantal=+^||ECCache("D",OrderId,"DTL",VolgNr,"QTYORDERED")
+	Else
+	{
+		Do ..ConverteerTekstLijn(pxLijn, lbHoofding, lbLijn)
 	}
-	Set pxLijn.NettoPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"SALESPRICE")
-	Set pxLijn.Munt=^||ECCache("D",OrderId,"DTL",VolgNr,"CURRENCYCODE")
-	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",OrderId,"DTL",VolgNr,"PRICEUNIT")=100:"%",1:"")
-	Set pxLijn.TotaalPrijs=+^||ECCache("D",OrderId,"DTL",VolgNr,"LINEAMOUNT")
-	Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATECONFIRMED"),3)
-	Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",OrderId,"DTL",VolgNr,"RECEIPTDATEREQUESTED"),3)
+]]></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.Status=..TranslateStatus(pxLijn.PRNr,pxLijn.Aantal,^||ECCache("D",OrderId,"DTL",VolgNr,"SALESSTATUS"),^||ECCache("D",OrderId,"DTL",VolgNr,"ADUORDERSTATUSID"))
-	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","LIJNCONFTXT"),$C(0))
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
+	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 $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))'=""
+	If $P(OLRec,"\",5)'=""
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"PRODREF"),$C(0))
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
 	}
-	If $TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))'=""
-	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$TR(^||ECCache("D",OrderId,"DTL",VolgNr,"EXTERNALITEMID"),$C(0))
-	}
 	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
 		Set pxLijn.Afbeelding=""
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="TranslateStatus">
-<FormalSpec>PRNr:%String,Aantal:%Integer,SalesStatus:%String,BlokkeerStatus:%String</FormalSpec>
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-  ; AX SalesStatus : OpenOrder = 1, Delivered = 2, Invoiced = 3, Canceled = 4
-   ; BlokkeerStatus : Doorgegeven, Klaargezet, Geannuleerd, leeg
-	If SalesStatus=1
+	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
 	{
-		If BlokkeerStatus="Klaargezet" 
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie()
-		}
-		ElseIf BlokkeerStatus="Doorgegeven"
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() 
-		}
-		ElseIf BlokkeerStatus="Geproduceerd"
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Geproduceerd()
-		}
-		ElseIf ((BlokkeerStatus="")||(BlokkeerStatus="KlaargezetWissen"))&&($P($$GENTYP^HAD(PRNr),"\")'="")
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).WachtenOpProductie()
-		}
-		ElseIf Aantal<1
-		{
-			Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
-		}
-		Else
-		{
-			Set ECStatus=$CASE(..VoorraadStatus(PRNr,Aantal,,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 VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
 	}
-	ElseIf SalesStatus=2 
+	Elseif $P(Rec,"\",3)>0
 	{
-		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering()
+		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())
+			}
 		}
-	ElseIf SalesStatus=3 
-	{
-		Set ECStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd()
 	}
-	Quit ECStatus
+	Set LijnType="P"
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerHfdTekst">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,OrderId:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set pxLijn.Commentaar=$TR(^||ECCache("D",OrderId,"HFD","ORDERCONFTXT"),$C(0))
-	Quit:pxLijn.Commentaar="" ""
-	Set pxLijn.Type="T"
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
 <Method name="VoorraadStatus">
 <FormalSpec>PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
Index: AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Klanten/impl/pxKlant.cls.xml	(.../pxKlant.cls.xml)	(revision 50322)
@@ -55,10 +55,6 @@
 <Type>DOM.enu.Munt</Type>
 </Property>
 
-<Property name="Regio">
-<Type>%String</Type>
-</Property>
-
 <Property name="ExterneVerantwID">
 <Type>%String</Type>
 </Property>
@@ -109,24 +105,19 @@
 <Implementation><![CDATA[
 	Set D="\",U=";",Q="K"
 	Do ..KlantSetObjectId(KLNr)
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Set ..KlantID=Translator.GeefCustomerIDForAX(KLNr)
+	Set ..KlantID=KLNr
 	Set ..FirmaNaam=..Klant.Naam_$S($L(..Klant.Aanspreking):" "_..Klant.Aanspreking,1:"")
 	Set ..Naam=..Klant.Naam
 	Set ..Toenaam=..Klant.Toenaam
 	Set ..Aanspreking=..Klant.Aanspreking
 	Set ..Straat=..Klant.StraatNrBus
 	Set ..Woonplaats=..Klant.Woonplaats
-	Set ..Postcode=..Klant.Postnummer	Set ..Land=..Klant.Land.Code3
-	
+	Set ..Postcode=..Klant.Postnummer
+	Set ..Land=..Klant.LandCode
 	Set ..Munt=..Klant.Muntkode
-	Set ..Regio=..Klant.Sektor
-	
-	;Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
-	;Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
-
-	Set ..Taal=$Case(..Klant.Taal,"N":"nl-be","F":"fr","D":"de","E":"en-us",:"nl-be")
-
+	Set ..ExterneVerantwID=$$USERNAME^vhUSER($$EXTVW^KLOPV(KLNr),1)
+	Set ..InterneVerantwID=$$USERNAME^vhUSER($$INTVW^KLOPV(KLNr),1)
+	Set ..Taal=..Klant.Taal
 	Set ..BTWNr=..Klant.BTWnummer
 	Set ..IsInclusiefBTW=("GEEN"[..BTWNr)
 	Do ##class(pxAdres).ToevoegenLeveringsAdressen(..Klant, ..LeveringsAdressen)
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductReferenties.cls.xml	(.../ExportProductReferenties.cls.xml)	(revision 50322)
@@ -119,20 +119,18 @@
 <Method name="BuildProxy">
 <FormalSpec>PakNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
-
 	Set PakketHoofding=^PAKKET("D",PakNr)
 	Set pxPakket=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRef).%New()
 	Set pxPakket.Naam=$P(PakketHoofding,"\",2)
 	Set pxPakket.Omschrijving=$P(PakketHoofding,"\",4)
 	Set pxPakket.PakketID=PakNr
-	Set pxPakket.KlantID=Translator.GeefCustomerIDForAX(..KlantId)
+	Set pxPakket.KlantID=..KlantId
 
 	Set PRNr=""
 	For  Set PRNr=$O(^PAKKET("D",PakNr,PRNr)) Quit:'PRNr  Do
 	. Set Aantal=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Set pxProduct=##class(AX.Uitgaand.EC.Klanten.impl.pxPakketRefProduct).%New()
-	. Set pxProduct.ProductID=Translator.GeefItemIDForAX(PRNr)
+	. Set pxProduct.ProductID=PRNr
 	. Set pxProduct.Multiplier=$P(^PAKKET("D",PakNr,PRNr),"\")
 	. Do pxPakket.Producten.Insert(pxProduct)
 	Set:pxPakket.Producten.Count()>1 pxPakket.MultiProduct=1
@@ -156,8 +154,7 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Set Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
-	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50322)
@@ -60,6 +60,7 @@
 	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
@@ -108,9 +109,9 @@
 	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,"\",6)
-	Set:$P(HistRec,"\",8)="H" pxItem.GrootteOrde="%"
-	Set pxItem.Munt=$P(HistRec,"\",7)
+	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)
@@ -140,9 +141,7 @@
 
 <Method name="CheckProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[
-	Quit:$D(^HISTPAK("P",PRNr)) 0
-	Quit ..ProductValidator.InAssortiment(PRNr)
+<Implementation><![CDATA[	Quit ..ProductValidator.InAssortiment(PRNr)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 50322)
@@ -4,72 +4,257 @@
 <ClassType/>
 <IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.RegisteredObject</Super>
+<Super>AX.Uitgaand.EC.Data.impl.Helper</Super>
 
-<Property name="KlantId">
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
+</Property>
+
+<Property name="GenerationID">
 <Type>%String</Type>
 </Property>
 
-<Property name="AxCustomerId">
+<Property name="KlantID">
 <Type>%String</Type>
 </Property>
 
 <Property name="Taal">
 <Type>%String</Type>
 </Property>
 
-<Property name="itLijnen">
-<Type>TECH.Iterator</Type>
+<Property name="KredietWaardig">
+<Type>%String</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AxCustomerId:%String,KlantId:%String,Taal:%String</FormalSpec>
+<FormalSpec>KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..AxCustomerId=AxCustomerId
-	Set ..KlantId=KlantId
+	$$$InitOldLocals
+	Set ..KlantID=KlantID
+	Set ..KredietWaardig=$$WAARDIG^KREDIET(KlantID)
 	Set ..Taal=Taal
+	Set ..GenerationID=GenerationID
+	Set ..ProductValidator=ProductValidator	
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
-	Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxOrderLijnIterator).%New()
+<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>
 
-	Quit $$$OK
+<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="OphalenOpenstaandeOrders">
+<Method name="ConverteerProductLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Do ..itLijnen.InitOpenstaande(..AxCustomerId)
-	Do ..OphalenOrders()
+	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="OphalenRecenteOrders">
-<FormalSpec>Datum:%Date</FormalSpec>
+<Method name="ConverteerTekstLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Do ..itLijnen.InitRecente(..AxCustomerId, Datum)
-	Do ..OphalenOrders()
+	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Type="T"
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenOrders">
-<Private>1</Private>
+<Method name="VulAanLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	#dim rsLijn as TECH.ResultSet
-	Kill ^||ECCache
-	While ..itLijnen.HasNext()
+	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 rsLijn=..itLijnen.Next()
-		;k %x m %x=rsLijn.Data zw %x
-		Set OrderId=rsLijn.Data("SALESID")
-		If '$D(^||ECCache("D",OrderId))
+		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname()
+	}
+	Elseif $P(Rec,"\",3)>0
+	{
+		If $D(^ORDW("IO",ORDNr,OLUNr)) 
 		{
-			Merge ^||ECCache("D",OrderId,"HFD")=rsLijn.Data
+			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 VolgNr=$O(^||ECCache("D",OrderId,"DTL",""),-1)
-		Merge ^||ECCache("D",OrderId,"DTL",VolgNr+1)=rsLijn.Data
 	}
+	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>
 
 
Index: AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/impl/VerplaatsBestanden.cls.xml	(.../VerplaatsBestanden.cls.xml)	(revision 50322)
@@ -36,20 +36,51 @@
 <Implementation><![CDATA[
 	Set ..ExportDefaults=ExportDefaults
 	Set ..ExportSamenvatting=ExportSamenvatting
-	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 	Set ..BestandVerplaatser = $$$Inject(BestandVerplaatser, ##class(AX.Uitgaand.EC.impl.VerplaatsBestanden.BestandVerplaatser).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefConfigProduction">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.Adres="192.168.100.61" ; production 
+	Set FtpConfig.Gebruiker="ftpuser"
+	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set FtpConfig.Poort=21
+	Set FtpConfig.ServerBestandsLocatie="current"
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfigTest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	Set FtpConfig=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfig.Adres="192.168.100.60" ; test
+	Set FtpConfig.Gebruiker="ftpuser"
+	Set FtpConfig.Paswoord="fE2_hpfYFXc-6H78"
+	Set FtpConfig.Poort=21
+	Set FtpConfig.ServerBestandsLocatie="current"
+	Quit FtpConfig
+]]></Implementation>
+</Method>
+
 <Method name="InitProduction">
-<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigProduction()
+<Implementation><![CDATA[
+	Set ..FtpConfig=..GeefConfigProduction()
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="InitTest">
-<Implementation><![CDATA[	Set ..FtpConfig=##class(FTPConfig).GeefConfigTest()
+<Implementation><![CDATA[
+	Set ..FtpConfig=..GeefConfigTest()
+	Set ..FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 ]]></Implementation>
 </Method>
 
Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50282)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50322)
@@ -51,14 +51,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAXCustomerId">
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	Quit:$L(..KlantId)<5 0_..KlantId
-	Quit ..KlantId
-]]></Implementation>
-</Method>
-
 <Property name="Taal">
 <Type>TECH.String</Type>
 <Required>1</Required>
Index: AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Klanten/impl/ExportProductHistoriek.cls.xml	(.../ExportProductHistoriek.cls.xml)	(revision 50322)
@@ -123,10 +123,8 @@
 <FormalSpec>HistRec:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set pxHistItem=##class(AX.Uitgaand.EC.Klanten.impl.pxHistoriekProduct).%New()
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-
-	Set pxHistItem.KlantID=Translator.GeefCustomerIDForAX(..KlantId)
-	Set pxHistItem.ProductID=Translator.GeefItemIDForAX($P(HistRec,"\",15))
+	Set pxHistItem.KlantID=..KlantId
+	Set pxHistItem.ProductID=$P(HistRec,"\",15)
 	Set pxHistItem.JaarAfname=$P(HistRec,"\",3)
 	Set pxHistItem.LaatsteDatum=$$INTDATE^vhLib.DataTypes($P(HistRec,"\",5))
 
@@ -150,8 +148,7 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50322)
@@ -48,7 +48,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="PRE_2A"</FormalSpec>
+<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Timer=##class(TECH.Timing.Timer).%New("")
@@ -58,18 +58,11 @@
 	Set ..KlantId=..Request.Header.KlantId
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	
-	If ModeAX="2A" {
-		Set ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
+	Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 
-		Set ..ProductValidator=##class(AX.Uitgaand.EC.DataAX.impl.ProductValidator).%New(..KlantId,..GenerationId)
-		
-	} Else {
-		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
+	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator)
 
-		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-	}
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen).%New(..KlantId, ..Taal, ..GenerationId, ..ProductValidator, ModeAX)
 	Do ..GenereerLijst()	
 
 	Set ..Response.Tijd=Timer.Stop()\1
@@ -134,6 +127,8 @@
 	{
 		Do ..FacturenOphaler.OphalenOpenstaandeNaarCache()
 	}
+
+	;zw ^||ECCache r k
 ]]></Implementation>
 </Method>
 
@@ -142,6 +137,7 @@
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
 	#dim FAKNr as %String
+		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
Index: WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 50322)
@@ -37,10 +37,6 @@
 <Type>WS.Vhisie4.KlantDocument.enu.OrderStatus</Type>
 </Property>
 
-<Property name="LeverAdresTekst">
-<Type>TECH.String</Type>
-</Property>
-
 <Property name="Lijnen">
 <Type>WS.Vhisie4.KlantDocument.dto.OrderLijn</Type>
 <Collection>list</Collection>
@@ -105,9 +101,6 @@
 <Value name="17">
 <Value>Status</Value>
 </Value>
-<Value name="18">
-<Value>LeverAdresTekst</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/FTPConfig.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 50322)
@@ -161,10 +161,10 @@
 <Method name="VerplaatstOutputNaarWeb">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigProduction()
+	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigProduction()
 	Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	Try {
-		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.FTPConfig).GeefConfigTest()
+		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigTest()
 		Do ..VerplaatsBestandNaarWeb(FtpConfig)
 	} Catch {
 		Do ##class(TECH.ExceptionHandler).Catch()	
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/CorrelateHeader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/ExportKlantExcluded.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/ExportDefaultsAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/FacturenOphalen.cls.xml	(.../FacturenOphalen.cls.xml)	(revision 50322)
@@ -62,32 +62,29 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest,ModeAX:%String="2A"</FormalSpec>
+<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.GeefAXCustomerId()
+	Set ..AxCustomerId=..Request.Header.AxCustomerId
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	If ModeAX="2A" {
-		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()
-	} Else {
-		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
-		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
-	}
-	Set ..FacturenOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenOphalen).%New(..AxCustomerId,..KlantId, ..Taal)
-	Set ..FacturenConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator, ModeAX)
+	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>
@@ -108,11 +105,25 @@
 <Method name="GenereerLijst">
 <Description>
 Hoofding
-   ^||ECCache("D",FactuurNr,"HFD") = ResultSet.Data
-Datum index
-   ^||ECCache("IFAK",Datum,FactuurNr) = ResultSet.Data
-FactuurLijn
-   ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) = ResultSet.Data</Description>
+   ^||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()
@@ -122,102 +133,99 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ..Periode
-	{
-		Do ..FacturenOphaler.OphalenRecenteFacturen($H-..Periode)
-	}
-	Else
-{
-		Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
-	}
+	
+	Do ..FacturenOphaler.OphalenOpenstaandeFacturen()
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerCacheNaarXML">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim FactuurDatum as %Date
-	#dim FactuurNr as %String
+	#dim FAKNr as %String
 		
 	Set FactuurDatum=$O(^||ECCache("IFAK",""),-1)
 	While FactuurDatum'=""
 	{
-		Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,""))
-		While FactuurNr'=""
+		Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,""))
+		While FAKNr'=""
 		{
-			Do ..ConverteerFactuur(FactuurNr)
-			Set FactuurNr=$O(^||ECCache("IFAK",FactuurDatum,FactuurNr))
+			Do ..Converteer(FAKNr)
+			Set FAKNr=$O(^||ECCache("IFAK",FactuurDatum,FAKNr))
 		}
 		Set FactuurDatum=$O(^||ECCache("IFAK",FactuurDatum),-1)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerFactuur">
-<FormalSpec>FactuurNr:%String</FormalSpec>
+<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 pxOrder as WS.Vhisie4.KlantDocument.dto.DocumentLijn 
+	#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 pxHoofding=..ConverteerHoofding(FactuurNr)
-	Set LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",""))
+	Set lbHoofding=^||ECCache("FAK",FAKNr)
+	
+	Set pxHoofding=..ConverteerHoofding(lbHoofding)
+	Set LijnNiv1=$O(^||ECCache("FAK",FAKNr,""))
 	While LijnNiv1'=""
 	{	
-		; eerst order hoofding toevoegen als een lijn
-		Set pxOrder=..ConverteerOrder(FactuurNr, LijnNiv1)
-		If $isObject(pxOrder) {
-			Do pxHoofding.Lijnen.Insert(pxOrder)
-
-			Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,""))
-			While LijnNiv2'=""
+		Set LijnNiv2=$O(^||ECCache("FAK",FAKNr,LijnNiv1,""))
+		While LijnNiv2'=""
+		{	
+			Set LijnNiv3=$O(^||ECCache("FAK",FAKNr,LijnNiv1,LijnNiv2,""))
+			While LijnNiv3'=""
 			{	
-				Set pxLijn=..ConverteerLijn(FactuurNr, LijnNiv1, LijnNiv2)
-				If $isObject(pxLijn) {
-					Do pxHoofding.Lijnen.Insert(pxLijn)
-				}
-				Set LijnNiv2=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1,LijnNiv2))
+
+				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 LijnNiv1=$O(^||ECCache("D",FactuurNr,"ORD",LijnNiv1))
+			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>FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
+<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 ..FacturenConverter.ConverteerLijn(pxLijn, FactuurNr, OrderNr, VolgNr)
+	Do ..FacturenOphaler.ConverteerLijn(pxLijn,lbHoofding,lbLijn)
 	Quit pxLijn
 ]]></Implementation>
 </Method>
 
-<Method name="ConverteerOrder">
-<FormalSpec>FactuurNr:%String,OrderNr:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.FactuurLijn</ReturnType>
-<Implementation><![CDATA[
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.FactuurLijn).%New()
-	Do ..FacturenConverter.ConverteerOrderAlsLijn(pxLijn, FactuurNr, OrderNr)
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
 <Method name="ConverteerHoofding">
-<FormalSpec>FactuurNr:%String</FormalSpec>
+<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 ..FacturenConverter.ConverteerHoofding(pxHoofding, FactuurNr)
+	Do ..FacturenOphaler.ConverteerHoofding(pxHoofding,lbHoofding)
 	Quit pxHoofding
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/OrdersOphalen.cls.xml	(.../OrdersOphalen.cls.xml)	(revision 50322)
@@ -6,16 +6,26 @@
 <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="OrdersConverter">
-<Type>AX.Uitgaand.EC.DataAX.impl.HelperFacturenConverteren</Type>
+<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>
@@ -26,11 +36,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxCustomerId">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Orders">
 <Type>WS.Vhisie4.KlantDocument.dto.OrderHoofding</Type>
 <Collection>list</Collection>
@@ -63,31 +68,27 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest,ModeAX:%String</FormalSpec>
+<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 ..AxCustomerId=..Request.Header.GeefAXCustomerId()
-
 	Set ..Periode=Request.Periode
 	Set ..Taal=..Request.Header.Taal
-	If ModeAX="2A" {
-		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()
-	} Else {
-		Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
-		Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId)
-		Set ..Translator=##class(AX.Uitgaand.EC.Data.impl.Translator).%New()
-	}
+	Set ..GenerationId=..Request.GenerationId
+	Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.KlantenAX.impl.Klanten).LaatsteGenerationID()
 
-	Set ..OrdersOphaler=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersOphalen).%New(..AxCustomerId,..KlantId, ..Taal )
-	Set ..OrdersConverter=##class(AX.Uitgaand.EC.DataAX.impl.HelperOrdersConverteren).%New(..AxCustomerId,..KlantId, ..Taal, ..ProductValidator, ..Translator,$S(..Periode:0,1:1))
+	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
@@ -130,83 +131,111 @@
 <Method name="OphalenNaarCache">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ..Periode
+	
+	Kill ^||ECCache
+
+	Do ..OphalenVanAx()
+	;zw ^||ECCache r k
+]]></Implementation>
+</Method>
+
+<Method name="OphalenVanAx">
+<Implementation><![CDATA[
+	While ..OrdersIterator.HasNext()
 	{
-		Do ..OrdersOphaler.OphalenRecenteOrders($H-..Periode)
+		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
+		}
 	}
-	Else
+]]></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'=""
 	{
-		Do ..OrdersOphaler.OphalenOpenstaandeOrders()
+		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="ConverteerCacheNaarXML">
+<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 OrderId as %String
+	#dim LijnNiv2 as %String
 	#dim ObjectType as %String
 	
-	Set OrderId=$O(^||ECCache("D",""))
-	While OrderId'=""
-	{
-		Set pxHoofding=..ConverteerHoofding(OrderId)
-		
-		Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",""))
-		While LijnNiv1'=""
+	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 pxLijn=..ConverteerLijn(OrderId,LijnNiv1)
+			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:pxHoofding.MultipleDocTypes'[pxLijn.OorsprongDocType pxHoofding.MultipleDocTypes=pxHoofding.MultipleDocTypes_$S($L(pxHoofding.MultipleDocTypes):";",1:"")_pxLijn.OorsprongDocType
 			}
-			Set LijnNiv1=$O(^||ECCache("D",OrderId,"DTL",LijnNiv1))
+			Set LijnNiv2=$O(^||ECCache("ORD",ORDNr,LijnNiv1,LijnNiv2))
 		}
-		Set OrderId=$O(^||ECCache("D",OrderId))
-		Do pxHoofding.BepaalProductGroepen()
-		Do ..BepaalOrderStatus(pxHoofding)
-		; Terugnames niet toevoegen
-		;Quit:pxHoofding.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).Terugname()
-	
-		Do ..Orders.Insert(pxHoofding)
+
+		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>OrderId:%String</FormalSpec>
+<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 pxHoofding=##class(WS.Vhisie4.KlantDocument.dto.OrderHoofding).%New()
-	Do ..OrdersConverter.ConverteerHoofding(pxHoofding,OrderId)
-	
-	Set pxLijn=..OrdersConverter.ConverteerHfdTekst(##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New(),OrderId)
-	Do:$isObject(pxLijn) pxHoofding.Lijnen.Insert(pxLijn)
-	
+	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="ConverteerLijn">
-<FormalSpec>OrderId:%String,VolgNr:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>WS.Vhisie4.KlantDocument.dto.OrderLijn</ReturnType>
-<Implementation><![CDATA[
-	#dim pxLijn as WS.Vhisie4.KlantDocument.dto.OrderLijn
-
-	Set pxLijn=##class(WS.Vhisie4.KlantDocument.dto.OrderLijn).%New()
-	Do ..OrdersConverter.ConverteerLijn(pxLijn,OrderId,VolgNr)
-	;d DumpObject^%apiOBJ(pxLijn)
-	Quit pxLijn
-]]></Implementation>
-</Method>
-
 <Method name="BepaalOrderStatus">
 <FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.OrderHoofding</FormalSpec>
 <Implementation><![CDATA[
@@ -338,39 +367,87 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*Method ConverteerLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
-{
+<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 ConverteerOrderHoofding(lbHoofding As %List) As WS.Vhisie4.KlantDocument.dto.OrderHoofding [ Private ]
-{
+<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 ConverteerOrderLijn(lbHoofding As %List, lbLijn As %List) As WS.Vhisie4.KlantDocument.dto.OrderLijn [ Private ]
-{
+<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
-}
-*/
-]]></Content>
-</UDLText>
+]]></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>
 
 
Index: AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/ProductValidator.cls.xml	(.../ProductValidator.cls.xml)	(revision 50322)
@@ -20,18 +20,13 @@
 <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>
@@ -68,15 +63,6 @@
 	Quit Klant.AssortimentGroep
 ]]></Implementation>
 </Method>
-
-<Method name="GeefItemIDForAX">
-<FormalSpec>PRNr</FormalSpec>
-<Implementation><![CDATA[
-	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
-	Set:AXPRNr="" AXPRNr=PRNr
-	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Assortiment/impl/pxProduct.cls.xml	(.../pxProduct.cls.xml)	(revision 50322)
@@ -75,16 +75,14 @@
 <FormalSpec>PRNr:%String,AssortimentsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ProductSetObjectId(PRNr)
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Set ..ProductID=Translator.GeefItemIDForAX(PRNr)
+	Set ..ProductID=PRNr
 	Set ..KortTekst=..Product.KortTekst
 	Set ..Leveringstermijn=..Product.Prijs.LeveringsTermijn
 	Set ..LeveringstermijnEenheid="W"
 	Set ..StockNietStock=$S(..Product.StockNietStock=1:"S",1:"NS")
 	Set ..VerpakkingNorm=..Product.Prijs.NormaleVerpakking
 	Set ..VerpakkingGroot=..Product.Prijs.GrootVerpakking
 	Do ..BepaalVeelvoud(AssortimentsGroep)
-
 	Do ..DefinieerVoorraadNiveaus()
 ]]></Implementation>
 </Method>
@@ -145,21 +143,8 @@
 
 <Method name="DefinieerVoorraadNiveaus">
 <Implementation><![CDATA[
-	; in AX is de afname niet gekend, dus vaste defaults
 	If ..Product.StockNietStock
 	{
-
-	Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
-	Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
-
-	Set ..KleineWeekAfname=999999 ; de weekafname telt niet mee
-	Set ..GroteWeekAfname=999999
-	}
-	Q
-	
-	
-	If ..Product.StockNietStock
-	{
 		Set ..KleineVoorraadAfname=.4 ; minder dan x% is kleine afname -> voldoende voorraaad
 		Set ..GroteVoorraadAfname=.6 ; minder dan x% is grote afname -> beperkte voorraad
 		
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 50322)
@@ -23,6 +23,15 @@
 <Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
 </Property>
 
+<Method name="ToonTellingen">
+<Description>
+d ##class(AX.Uitgaand.EC.Service).%New().ToonTellingen()</Description>
+<Implementation><![CDATA[
+	d ##class(AX.Uitgaand.EC.Assortiment.impl.Tellingen).%New().ToonAll()
+	d ##class(AX.Uitgaand.EC.Prijzen.impl.Tellingen).%New().ToonAll()
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <FormalSpec>BeperkAantal:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -44,7 +53,7 @@
 
 <Method name="GenerateAndExportAll">
 <Description>
-d ##class(AX.Uitgaand.EC.Service).%New(1).GenerateAndExportAll()</Description>
+d ##class(AX.Uitgaand.EC.Service).%New().GenerateAndExportAll()</Description>
 <Implementation><![CDATA[
 	Set ..ExportDefaults.NewGenerationID=..ExportDefaults.GeefNewGenerationID() ; OldGenerationID+1
 	Do ..GenerateAll()	
@@ -100,18 +109,18 @@
 d ##class(AX.Uitgaand.EC.Service).%New().ExportAll()</Description>
 <Implementation><![CDATA[
 	Do ..ExportKlanten()
-	;Do ..ExportKlantGroepen()
+	Do ..ExportKlantGroepen()
 	Do ..ExportProductReferenties()
-	Do ..ExportHistoriek()
+	;Do ..ExportHistoriek()
 	
 	Do ..ExportBasisAssortiment()
 	Do ..ExportKlantUitzAssortiment()
 	Do ..ExportKlantExcludedAssortiment()
 	
-	;Do ..ExportCodexPrijzen()
-	;Do ..ExportKlantUitzPrijzen()
+	Do ..ExportCodexPrijzen()
+	Do ..ExportKlantUitzPrijzen()
 	
-	;Do ..ExportAlleVoorraad()
+	Do ..ExportAlleVoorraad()
 	;Do ..ExportAlleProductieTijden()
 	
 	Do ..ExportBestandsSamenvatting()
@@ -289,7 +298,6 @@
 <Method name="VerplaatsBestanden">
 <Private>1</Private>
 <Implementation><![CDATA[
-	q
 	Set service=##class(AX.Uitgaand.EC.impl.VerplaatsBestanden).%New(..ExportDefaults, ..ExportSamenvatting)
 	Do service.InitProduction()
 	Do service.DoIt()
Index: AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Klanten/impl/pxAdres.cls.xml	(.../pxAdres.cls.xml)	(revision 50322)
@@ -89,7 +89,7 @@
 	; Leveringsadressen
    	Set KLNr=Klant.%Id()
 	&sql(DECLARE FAP CURSOR FOR
-		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code3,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
+		SELECT NummerLeveringsadres,Aanspreking, Naam, PostNummer, StraatNrBus, ToeNaam, Woonplaats, Land->Code,KodeLeveringsadres,Telefoon, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
     	INTO AdresID,Aanspreking, Naam, PostCode, StraatNrBus, ToeNaam, Woonplaats, LandCode,KodeLeveringsadres,Telefoon1, Telefoon2, AlternatieveNaam, Opmerking1,Opmerking2,TypeAdres,Verzendwijze
 		FROM Derde_Klant.LevAdres
 		WHERE Klant = :KLNr and TypeAdres='L'
@@ -101,7 +101,7 @@
  	. If KodeLeveringsadres?4.6N Do  ; Het leveringsadres kan een link zijn naar het hoofdadres van een andere klant
  	. . Set oAndereKlant=##class(Derde.Klant.Klant).%OpenId(KodeLeveringsadres)
  	. . Quit:'$isObject(oAndereKlant)
- 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.Land.Code3,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
+ 	. . Do pxAdres.Fill(AdresID,oAndereKlant.Aanspreking,oAndereKlant.Naam, oAndereKlant.Toenaam, oAndereKlant.StraatNrBus, oAndereKlant.Postnummer, oAndereKlant.Woonplaats, oAndereKlant.LandCode,,,,oAndereKlant.Verzendwijze,"Link",TypeAdres,Klant.Taal)
 	. Else  Do
 	. . Do pxAdres.Fill(AdresID,Aanspreking, Naam, ToeNaam, StraatNrBus, PostCode, Woonplaats, LandCode,Telefoon1,Telefoon2,AlternatieveNaam,$S(Verzendwijze="":Klant.Verzendwijze,1:Verzendwijze),Opmerking2,TypeAdres,Klant.Taal)
 	. Do Array.SetAt(pxAdres,$I(VolgNr))
Index: WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 50322)
@@ -178,9 +178,6 @@
 <Value name="39">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="40">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 50322)
@@ -51,20 +51,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Geproduceerd">
-<ClassMethod>1</ClassMethod>
-<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
-<Implementation><![CDATA[	Quit "VoldoendeVoorraad"
-]]></Implementation>
-</Method>
-
-<Method name="WachtenOpProductie">
-<ClassMethod>1</ClassMethod>
-<ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
-<Implementation><![CDATA[	Quit "NietInVoorraad"
-]]></Implementation>
-</Method>
-
 <Method name="NietInVoorraad">
 <ClassMethod>1</ClassMethod>
 <ReturnType>WS.Vhisie4.KlantDocument.enu.OrderLijnStatus</ReturnType>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/ImportBestand.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50322)
@@ -6,11 +6,15 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="itLijnen">
-<Type>TECH.Iterator</Type>
+<Property name="ProductValidator">
+<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
 </Property>
 
-<Property name="itHoofding">
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+</Property>
+
+<Property name="LijnIterator">
 <Type>TECH.Iterator</Type>
 </Property>
 
@@ -48,73 +52,209 @@
 <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</FormalSpec>
+<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 ..itHoofding=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
-	;Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
+	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[
-	Do ..itHoofding.InitOpenstaande(..AxCustomerId)
+	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
 	Do ..OphalenFacturen()
-	;zw ^||ECCache
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenRecenteFacturen">
-<FormalSpec>Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
-	Do ..itHoofding.InitRecente(..AxCustomerId, Datum)
+	Set ..LijnIterator=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New(..AxCustomerId)
 	Do ..OphalenFacturen()
 ]]></Implementation>
 </Method>
 
 <Method name="OphalenFacturen">
-<Private>1</Private>
 <Implementation><![CDATA[
-	#dim rsHfd as TECH.ResultSet
 	Kill ^||ECCache
-	While ..itHoofding.HasNext()
+	Kill ^||ECResult
+	While ..LijnIterator.HasNext()
 	{
-		Set rsHfd=..itHoofding.Next()
-		Set FactuurNr=rsHfd.Data("INVOICEID")
-		Set FactuurDatum=$E(rsHfd.Data("INVOICEDATE"),1,10)
-		Merge ^||ECCache("D",FactuurNr,"HFD")=rsHfd.Data
-		Set ^||ECCache("IFAK",FactuurDatum,FactuurNr)=""
-		Set ..itLijnen=##class(AX.Uitgaand.EC.DataAX.impl.AxFactuurLijnIterator).%New()
-		Do ..itLijnen.InitDetail(FactuurNr)
-		Do ..OphalenLijnen(FactuurNr)
+		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="OphalenLijnen">
-<FormalSpec>FactuurNr:%String</FormalSpec>
-<Private>1</Private>
+<Method name="OphalenLevering">
+<FormalSpec>FAKNr:%String,BONNr:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim rsLijn as TECH.ResultSet
-	#dim CountLijnen as %Decimal=0
-	While ..itLijnen.HasNext()
+	#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 '= "")
 	{
-		Set rsLijn=..itLijnen.Next()
-		Set OrderNr=rsLijn.Data("SALESID")
-		Set CountLijnen=CountLijnen+1
-		Merge ^||ECCache("D",FactuurNr,"ORD",OrderNr,CountLijnen)=rsLijn.Data
+		#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))
 	}
-	If 'CountLijnen {
-		Kill ^||ECCache("D",FactuurNr)
-	}
+	
+	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>
 
 
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 50322)
@@ -42,8 +42,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
+<Property name="ProductIdConverter">
+<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -57,18 +57,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Connected2AX">
-<Type>%Boolean</Type>
-</Property>
-
-<Property name="WebsiteAXIds">
-<Type>%Boolean</Type>
-</Property>
-
-<Property name="ModeAX">
-<Type>%String</Type>
-</Property>
-
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -78,13 +66,10 @@
 	Set ..HeaderValidator = ##class(WSimpl.Vhisie4.HeaderValidator).%New()
 	Set ..SessionManager = ##class(WSimpl.Vhisie4.SessionManager).%New()
 	Set ..KlantIdConverter = ##class(AXimpl.Utils.KlantIdConverter).%New()
+	Set ..ProductIdConverter = ##class(WSimpl.Vhisie4.ProductIdConverter).%New()
 	Set ..OrderBeperker = ##class(WSimpl.Vhisie4.OrderBeperker).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	
-	Set ..ModeAX=##class(TECH.Config.ConfigMgr).Instance().GetString("AX_vHisie4_Fase")
-	Set ..Connected2AX=(..ModeAX?1(1"PRE_2A",1"2A"))
-	Set ..WebsiteAXIds=(..ModeAX="2A")
-	Set ..Translator = ##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -102,22 +87,26 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse
 	
-	If ..WebsiteAXIds
-	{
-		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen).%New(Request).GeefResponse()
-		Set Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
+	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
+	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen).%New(Request).GeefResponse()
+	
+	Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		#dim HistoriekGroepIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+		While (HistoriekGroepIterator.HasNext()) {
+			#dim HistoriekGroep As WS.Vhisie4.KlantDocument.dto.HistoriekGroep = HistoriekGroepIterator.Next()	
+			Set HistoriekGroep.Producten = ..ProductIdConverter.ConvertProductInfoToAx(HistoriekGroep.Producten)
+		}
 	}
-	Else
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
-	}
 	
 	Quit Response
 ]]></Implementation>
@@ -137,22 +126,28 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOrdersResponse
 	
-	If ..Connected2AX
-	{
-		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.OrdersOphalen).%New(Request,..ModeAX).GeefResponse()
-		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
+	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
+	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.OrdersOphalen).%New(Request).GeefResponse()
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
+		Set Response.Lijst = ..OrderBeperker.GeefBeperkteLijst(Response.Lijst, ##class(WSimpl.Vhisie4.OrderBeperker.Filter).%New())
+	
+		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+		While (HoofdingIterator.HasNext()) {
+			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OrderHoofding = HoofdingIterator.Next()	
+			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+		}
 	}
-	Else
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
-	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -170,25 +165,27 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefFacturenResponse 
-	#dim FacturenOld As %ListOfObjects
-	If ..Connected2AX
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request,..ModeAX).GeefResponse()
-		Set FacturenOld=Response.Lijst
-		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.FacturenOphalen).%New(Request,..ModeAX).GeefResponse()
-		Do ..AppendList(Response.Lijst,FacturenOld)
-		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
+	
+	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
+	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.FacturenOphalen).%New(Request).GeefResponse()
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
+	
+		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+		While (HoofdingIterator.HasNext()) {
+			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.FactuurHoofding = HoofdingIterator.Next()	
+			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+		}
 	}
-	Else
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
-	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -205,22 +202,27 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefOffertesResponse 
 	
-	If ..Connected2AX
-	{
-		Set Response="" ; geen offertes in fase 2A
+	Set:$$$Not(..#RunAX) Response = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
+	Set:..#RunAX Response = ##class(AX.Uitgaand.EC.DataAX.impl.OffertesOphalen).%New(Request).GeefResponse()
+	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response.KlantId)
+	
+		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+		While (HoofdingIterator.HasNext()) {
+			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.OfferteHoofding = HoofdingIterator.Next()	
+			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+		}
 	}
-	Else
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
-	}
-		
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -238,24 +240,26 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
+	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
 	
 	Do ..HeaderValidator.ValidateHeader(Request.Header)
 	Do ..SessionManager.RegisterSession(Request.Header)
 	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefLeveringenResponse 
 	
-	If ..WebsiteAXIds
-	{
-		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.LeveringenOphalen).%New(Request).GeefResponse()
-		Set Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
-	}
-	Else
-	{
-		Set Response = ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request).GeefResponse()
-	}
+	Set Response = ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).%New(Request).GeefResponse()
 	
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
 	
+		#dim HoofdingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Response.Lijst)
+	
+		While (HoofdingIterator.HasNext()) {
+			#dim Hoofding As WS.Vhisie4.KlantDocument.dto.LeveringHoofding = HoofdingIterator.Next()	
+			Set Hoofding.Lijnen = ..ProductIdConverter.ConvertProductInfoToAx(Hoofding.Lijnen)
+		}
+	}
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -265,36 +269,24 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(127).String("start")
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+		Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	}
+	;Do ..HeaderValidator.ValidateHeader(Request.Header)
+	;Do ..Logger.Debug("GeefDocument - ValidateHeader ok", Request.DocumentId)
+	;Do ..SessionManager.RegisterSession(Request.Header)
+	;Do ..Logger.Debug("GeefDocument - RegisterSession ok", Request.DocumentId)
 	
-	Set:..WebsiteAXIds Request.Header.KlantId = ..Translator.GeefKLNrForAdmin(Request.Header.KlantId)
-	
-	Do ..HeaderValidator.ValidateHeader(Request.Header)
-	Do ..SessionManager.RegisterSession(Request.Header)
-	
 	#dim Response As WS.Vhisie4.KlantDocument.GeefDocumentResponse
+
 	Set Response = ##class(AX.Uitgaand.EC.Data.impl.DocumentOphalen).%New(Request).GeefResponse()
-	
-	Do ##class(Tools.Wlip).%New(127).ObjToXML(Response)
-	
-	If ..Connected2AX
-	{
-	Do ##class(Tools.Wlip).%New(127).String("connected to ax")
-		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
+	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
+
+		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
 	}
 	Quit Response
 ]]></Implementation>
 </Method>
-
-<Method name="AppendList">
-<FormalSpec>List:%ListOfObjects,ListAdd:%ListOfObjects</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	For I=1:1:ListAdd.Count() {
-		Do List.Insert(ListAdd.GetAt(I))
-	}
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperFacturenConverteren.cls.xml	(.../HelperFacturenConverteren.cls.xml)	(revision 50322)
@@ -30,110 +30,350 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ModeAX">
+<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,ModeAX:%String</FormalSpec>
+<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 ..Translator=Translator
-	Set ..ModeAX=ModeAX
+	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,FactuurNr:%String</FormalSpec>
+<FormalSpec>pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List</FormalSpec>
 <Implementation><![CDATA[
-	;zw ^||ECCache("D",FactuurNr,"HFD") r k
-  	Set pxHoofding.FactuurId=FactuurNr
-  	Set pxHoofding.FactuurDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","INVOICEDATE"),3)
- 	Set pxHoofding.VervalDatum=$zdh(^||ECCache("D",FactuurNr,"HFD","DUEDATE"),3)
- 	Set pxHoofding.FactuurBedrag=+^||ECCache("D",FactuurNr,"HFD","INVOICEAMOUNT")
-	Set pxHoofding.Munt=^||ECCache("D",FactuurNr,"HFD","CURRENCYCODE")
-	
-	Set Tebetalen=^||ECCache("D",FactuurNr,"HFD","AMOUNTCUR")
-	Set Betaald=^||ECCache("D",FactuurNr,"HFD","SETTLEAMOUNTCUR")
-	Set pxHoofding.OpenstaandBedrag=Tebetalen-Betaald
-	
-	If pxHoofding.FactuurBedrag=0 {
+  	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 pxHoofding.FactuurBedrag<0 {
+	} 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="ConverteerOrderAlsLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String</FormalSpec>
+<Method name="ConverteerLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set VolgNr=$O(^||ECCache("D",FactuurNr,"ORD",OrderNr,"")) ; eerste lijn nemen voor de orderhoofding
-	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) r k
-  	Set pxLijn.OrderId=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESID")
-  	Set pxLijn.OrderDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CREATEDDATETIME"),3)
-  	Set pxLijn.CommissieReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CUSTOMERREF"),$C(0))
-  	Set pxLijn.OrderReferentie=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PURCHORDERFORMNUM"),$C(0))
-  	Set:pxLijn.OrderReferentie?2N1"."2N1"."2N.E pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,9,99) ; Strip datum van orderreferentie
-	Set:$E(pxLijn.OrderReferentie)=" " pxLijn.OrderReferentie=$E(pxLijn.OrderReferentie,2,99)
-	
-  	Set pxLijn.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAX($NAME(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr)))
-	Set pxLijn.Type="O"
+	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="ConverteerLijn">
-<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,FactuurNr:%String,OrderNr:%String,VolgNr:%String</FormalSpec>
+<Method name="ConverteerOrderHoofdingLijn">
+<FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-  	;zw ^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr) 
-  	Set pxLijn.ProductID=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ITEMID")
-  	Set pxLijn.PRNr=$TR(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"ADMINPRODUCTNUMMER"),$C(0))
-  	Set:'pxLijn.PRNr pxLijn.PRNr=..Translator.GeefPRNrForAdmin(pxLijn.ProductID)
-  	If ..ModeAX'="2A"
-  	{	
-  		Set pxLijn.ProductID=pxLijn.PRNr
+	;$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
+		}
 	}
-	Set pxLijn.Type="P"
-	Set pxLijn.Aantal=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"QTY")
-	Set pxLijn.GrootteOrde=$S(+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRICEUNIT")=100:"%",1:"")
-	Set pxLijn.NettoPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"SALESPRICE")
-	Set pxLijn.TotaalPrijs=+^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"LINEAMOUNT")
-	Set pxLijn.Munt=^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"CURRENCYCODE")
+]]></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="FACTUUR"
-	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.PRNr)
-	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.PRNr)
-	;Set pxLijn.VerwachteLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATECONFIRMED"),3)
-	;Set pxLijn.GevraagdeLeverDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"RECEIPTDATEREQUESTED"),3)
+	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 $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
+	If $P(OLRec,"\",5)'=""
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
+		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
 	}
-		If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF"))
+	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
 	{
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"PRODREF")
+		Set pxLijn.Afbeelding=""
 	}
-	If $L(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"))
-	{
-		Set pxLijn.LeveringsDatum=$zdh(^||ECCache("D",FactuurNr,"ORD",OrderNr,VolgNr,"DLVDATE"),3)
-		Set VerzendDatum=$$EXTDATE^vhLib.DataTypes(pxLijn.LeveringsDatum,"DK")
-		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Shipment date: "_VerzendDatum
+]]></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>
 
-	If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator
+<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 '= "")
 	{
-		Set pxLijn.Afbeelding=""
+		#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>
 
 
Index: WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 50322)
@@ -182,9 +182,6 @@
 <Value name="34">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="35">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Klanten/impl/ExportKlanten.cls.xml	(.../ExportKlanten.cls.xml)	(revision 50322)
@@ -95,9 +95,8 @@
 	Set Proxy=##class(pxKlant).%New()
 	Do Proxy.InvullenMetKlantData(..KLNr)
 	Set Klant=##class(Klanten).%OpenId(..ExportDefaults.NewGenerationID_"||"_..KLNr)
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Set Proxy.AssortimentSleutel=Translator.GeefAssortimentIDForAX(Klant.GeefAssortimentSleutel())
-	;Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
+	Set Proxy.AssortimentSleutel=Klant.GeefAssortimentSleutel()
+	Set Proxy.PrijsSleutel=Klant.GeefCodexSleutel()
 	Quit Proxy
 ]]></Implementation>
 </Method>
@@ -118,8 +117,7 @@
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml	(.../HelperFacturenOphalen.cls.xml)	(revision 50322)
@@ -48,20 +48,12 @@
 <Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
 </Property>
 
-<Property name="Translator">
-<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
-</Property>
-
 <Property name="TrackAndTraceService">
 <Type>APPS.OV.impl.TrackAndTraceService</Type>
 </Property>
 
-<Property name="ModeAX">
-<Type>%Boolean</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,ModeAX:%String="PRE_2A"</FormalSpec>
+<FormalSpec>KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..KlantId=KlantId
@@ -70,8 +62,6 @@
 	Set ..ProductValidator=ProductValidator
 	Set ..repOpenstaandeFactuur= ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
 	Set ..TrackAndTraceService = ##class(APPS.OV.impl.TrackAndTraceService).%New()
-	Set ..ModeAX=ModeAX="2A"
-	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -173,10 +163,6 @@
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
-	If ..ModeAX
-	{
-		Set pxLijn.ProductID=..Translator.GeefItemIDForAX(pxLijn.PRNr)
-	}
 	If $P(OLRec,"\",5)'=""
 	{
 		Set pxLijn.ProductOmschrijving= pxLijn.ProductOmschrijving_"<br/>"_"Ref: "_$P(OLRec,"\",5)
Index: AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/AxFactuurLijnIterator.cls.xml	(.../AxFactuurLijnIterator.cls.xml)	(revision 50322)
@@ -21,67 +21,26 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	Do ..VoerUitQuery()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="InitRecente">
-<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
-<Implementation><![CDATA[
-	#Dim SqlStatement as %String
-	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and INV.INVOICEDATE>'"_$ZD(VanafDatum,3)_"'" 
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
-]]></Implementation>
-</Method>
-
-<Method name="InitOpenstaande">
-<FormalSpec>CustomerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#Dim SqlStatement as %String
-	Set SqlStatement = ..GeefSQLVoorFactuurHoofding()_" where INV.INVOICEACCOUNT='"_CustomerID_"' and TRANS.CLOSED='1900-01-01' "
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
-]]></Implementation>
-</Method>
-
-<Method name="GeefSQLVoorFactuurHoofding">
+<Method name="VoerUitQuery">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
+	
 	Set SqlStatement = ""
-	_"select INV.INVOICEID, INV.ORDERACCOUNT, INV.INVOICEACCOUNT, INV.INVOICEDATE, INV.DUEDATE, INVOICEAMOUNT,SUMTAX,INV.CURRENCYCODE,INV.CASHDISC, INV.CASHDISCDATE, "
-	_"     TRANS.CLOSED,TRANS.AMOUNTCUR,TRANS.SETTLEAMOUNTCUR"
-	_" from CUSTINVOICEJOUR as INV"
-	_" join salestable as ORD on ORD.salesid = INV.salesid "
-	_" join CUSTTRANS as TRANS on TRANS.INVOICE = INV.INVOICEID "
-	_"     and TRANS.ACCOUNTNUM = INV.INVOICEACCOUNT "
-	_"     and TRANS.TRANSDATE = INV.INVOICEDATE "
-	_"     and TRANS.VOUCHER = INV.LEDGERVOUCHER "
-	_"     and TRANS.DATAAREAID = INV.DATAAREAID "
-	Quit SqlStatement
-]]></Implementation>
-</Method>
+	_"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)"
 
-<Method name="InitDetail">
-<FormalSpec>FactuurID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#Dim SqlStatement as %String
-	; toevoegen aan ADUECoResAttributeCombination where InvLine.ItemId = Kenmerk.ItemId AND
-	Set SqlStatement = ""
-	_"select INVOICEID,InvLine.LINENUM,ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME,InvLine.ITEMID,ADMINPRODUCTNUMMER,DLVDATE,MCRDLVMODE,"
-	_"     InvLine.QTY,InvLine.SALESPRICE,InvLine.PRICEUNIT,InvLine.CURRENCYCODE,InvLine.LINEAMOUNT, SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,ProdNotes.Body as PRODREF,"
-	_"     ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
-	_" from CUSTINVOICETRANS as InvLine"
-	_" join SalesLine on SalesLine.InventTransId = InvLine.InventTransId and SalesLine.DataAreaId=InvLine.DataAreaId "
-	_" join SalesTable ORD on ORD.SalesId = SalesLine.SALESID"
-	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
-    _" join InventDim  on InventDim.InventDimId = InvLine.InventDimId "
-	_"      and InventDim.DataAreaId = InvLine.DataAreaId "
-	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
-    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
-    _"   and InventDim.ConfigId<>'' "
-	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ADUBODYTYPE=5"
-	_" where InvLine.DataAreaID='vhbe' and InvLine.INVOICEID = '"_FactuurID_"' " ; specifieke factuur
+	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>
 </Method>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/BestandVerwerker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 50322)
@@ -30,11 +30,6 @@
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="PRNr">
-<Type>TECH.String</Type>
-<Parameter name="XMLPROJECTION" value="NONE"/>
-</Property>
-
 <Property name="Afbeelding">
 <Type>TECH.String</Type>
 </Property>
@@ -43,44 +38,33 @@
 <FormalSpec>Taal:TECH.String</FormalSpec>
 <Implementation><![CDATA[
 	; Caching ingebouwd voor orders, leveringen en facturen omdat dezelfe producten meerdere keren voorkomen
-	If ..PRNr="" Set ..PRNr=..ProductID ; nodig voor AX wanneer 'Mode = A2'"
-	If '..PRNr||'($D(^KPR(..PRNr))||$D(^KPRO(..PRNr)))
+	
+	If '$D(^||ECCache("PROD",..ProductID))
 	{
-		Set ..ProductGroep="Verwijderd"
-		Set ..ProductSubGroep="Verwijderd"
-		Set ..KortTekst="Deleted"
-		Set ..ProductCode=""
-		Set ..ProductOmschrijving=""
-		Set ..Afbeelding=""
-	}
-	ElseIf '$D(^||ECCache("PROD",..PRNr))
-	{
 		Set ..ProductGroep=..BepaalProdGroep()
 		Set ..ProductSubGroep=..BepaalProdSubGroep()
 		Set ..KortTekst=..GeefKortTekst()	
 		Set ..ProductCode=..GeefProductCode()
 		Set ..ProductOmschrijving=..GeefOmschrijving(Taal)
 		Set ..Afbeelding=..GeefAfbeelding()
-		Set ^||ECCache("PROD",..PRNr)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
+		Set ^||ECCache("PROD",..ProductID)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
 	}
 	Else
 	{ 
-		Set lb=^||ECCache("PROD",..PRNr)
+		Set lb=^||ECCache("PROD",..ProductID)
 		Set ..ProductGroep=$LI(lb,1)
 		Set ..ProductSubGroep=$LI(lb,2)
 		Set ..KortTekst=$LI(lb,3)
 		Set ..ProductCode=$LI(lb,4)
 		Set ..ProductOmschrijving=$LI(lb,5)
 		Set ..Afbeelding=$LI(lb,6)
 	}
-	;w ..KortTekst
-	;r:..PRNr'=..ProductID k
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKortTekst">
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..PRNr,$$$KortTekst)
+<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..ProductID,$$$KortTekst)
 ]]></Implementation>
 </Method>
 
@@ -89,7 +73,7 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	;Omschrijving met kleur maar zonder FSC, vermits de FSC berekening te veel tijd vraagt
-	Set Omschrijving=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..PRNr, Taal, "<br/>", 1)
+	#dim Omschrijving As %String = ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..ProductID, Taal, "<br/>", 1)
 	Set:Omschrijving="" Omschrijving=" "
 	Quit Omschrijving
 ]]></Implementation>
@@ -98,18 +82,18 @@
 <Method name="GeefProductCode">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	If (..ProductGroep?1(1"TAX",1"KAD",1"PRG",1"GLA",1"LBX",1"TBX"))&&($P($G(^KPR(..PRNr,"G")),"\")'="") {
-		Quit $$BARCODE^HAD(..PRNr,"F") 
+	If (..ProductGroep="Maatwerk")&&($P($G(^KPR(..ProductID,"G")),"\")'="") {
+		Quit $P(^KPR(..ProductID,"G"),"\")
 	} Else {
-		Quit $$GetOrOld^PRODUKT(..PRNr,$$$IdentNummer)	
+		Quit $$GetOrOld^PRODUKT(..ProductID,$$$IdentNummer)	
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAfbeelding">
 <Implementation><![CDATA[
 	Set blImageLink=##class(BL.Prod.ImageLink).Instantiate()
-	Set URL=blImageLink.GetProductImageURL(..PRNr,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
+	Set URL=blImageLink.GetProductImageURL(..ProductID,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
 	Set Image=$S($ZCVT(URL,"U")["GENERIEK/":$P(URL,"/",$L(URL,"/")-1,$L(URL,"/")),1:$P(URL,"/",$L(URL,"/")))
 	Quit Image
 ]]></Implementation>
@@ -118,10 +102,11 @@
 <Method name="BepaalProdGroep">
 <ReturnType>WS.Vhisie4.KlantDocument.enu.ProductGroep</ReturnType>
 <Implementation><![CDATA[
-	If '$D(^KPR(..PRNr)) { 
+	Set PRNr=..ProductID
+	If '$D(^KPR(PRNr)) { 
 		Set ProdGrp="Verwijderd"
 	} Else {
-		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..PRNr)
+		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..ProductID)
 	}
 	Quit ProdGrp
 ]]></Implementation>
@@ -132,7 +117,7 @@
 <Implementation><![CDATA[
 	If ..ProductGroep=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag()
 	{
-		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..PRNr)
+		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..ProductID)
 	}
 	Else
 	{
@@ -158,8 +143,6 @@
 <State>ProductInfoState</State>
 <StreamLocation>^WS.Vhisie4.KlaF15E.ProductInfoS</StreamLocation>
 <Data name="ProductInfoState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>ProductGroep</Value>
 </Value>
@@ -181,9 +164,6 @@
 <Value name="7">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="8">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Assortiment/impl/pxProductExcludeKlant.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/LeveringenOphalen.cls.xml	(.../LeveringenOphalen.cls.xml)	(revision 50322)
@@ -113,7 +113,7 @@
 	
 	Kill ^||ECCache
 
-	Do ..LeveringenOphaler.OphalenNaarCache("F",$S(..Request.Periode:..Request.Periode,1:5))
+	Do ..LeveringenOphaler.OphalenNaarCache("F")
 
 	If ..Request.Periode
 	{
Index: WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 50322)
@@ -177,9 +177,6 @@
 <Value name="33">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="34">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/impl/VerplaatsBestandenAX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 50322)
@@ -93,9 +93,6 @@
 <Value name="13">
 <Value>GrootteOrde</Value>
 </Value>
-<Value name="14">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/impl/ExportDefaultsBeperktAantal.cls.xml	(.../ExportDefaultsBeperktAantal.cls.xml)	(revision 50322)
@@ -8,24 +8,14 @@
 <Method name="AllowProduct">
 <FormalSpec>PRNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:PRNr=3551 1
-	Quit:PRNr=526953 1
-	Quit:PRNr=1074556 1
-	Quit (PRNr#100)=0
+<Implementation><![CDATA[	Quit (PRNr#100)=0
 ]]></Implementation>
 </Method>
 
 <Method name="AllowKlant">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:KLNr=8840 1
-	Quit:KLNr=12885 1
-	Quit:KLNr=1523 1
-	Quit:KLNr=1571 1
-	Quit:KLNr=1070 1
-	Quit (KLNr#100)=0
+<Implementation><![CDATA[	Quit (KLNr#100)=0
 ]]></Implementation>
 </Method>
 
Index: WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 50322)
@@ -59,10 +59,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="LeverAdresTekst">
-<Type>TECH.String</Type>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DocumentHoofdingState">
@@ -167,9 +163,6 @@
 <Value name="33">
 <Value>FactuurType</Value>
 </Value>
-<Value name="34">
-<Value>LeverAdresTekst</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50322)
@@ -73,10 +73,9 @@
 	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,"\",2)," #"))
-	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
+	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)
@@ -85,8 +84,6 @@
 		 	/// geen TrackAndTrace URL beschikbaar
 		}
 	}
-	Set pxHoofding.LeverAdresTekst=##class(AX.Uitgaand.EC.DataAX.impl.HelperAdresConverteren).MaakAdresTekstVanAdmin(..KlantId,$LG(lbHoofding,4))
-
 	; Niet voor AX
 	;Do ..VulAanMetFactuur(pxHoofding, lbHoofding)
 ]]></Implementation>
@@ -305,7 +302,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode ;&& (..Node'="F")
+	If Periode && (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
@@ -341,7 +338,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Ref=$P($P(ORDRec,"\",5)," - ",3)
-	Set Datum=""
+	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
@@ -352,7 +349,7 @@
 <FormalSpec>ORDRec</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Ref=$P($P(ORDRec,"\",5)," - ",3,99)
+	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)
 	
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 50322)
@@ -22,11 +22,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(PRNr)
-	Set:AXPRNr'="" PRNr=AXPRNr
-	Quit:'PRNr ""
-	Set IdentNr=$P($G(^KPR(PRNr,2)),"\",25)
-	Set:IdentNr="" IdentNr=$P($G(^KPRO(PRNr,2)),"\",25)
-	Quit IdentNr
+	Set:AXPRNr="" AXPRNr=PRNr
+	Quit $P(^KPR(PRNr,2),"\",25) ; identnr
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/DataAX/impl/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 50322)
@@ -3,6 +3,11 @@
 <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>
@@ -14,66 +19,68 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<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="InitRecente">
-<FormalSpec>CustomerID:%String,VanafDatum:%Date</FormalSpec>
+<Method name="VoerUitQueryOpenstaande">
+<FormalSpec>RecenteDatum:%Date</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and ORD.CREATEDDATETIME>='"_$ZD(VanafDatum,3)_"' and SalesLine.SALESSTATUS<>4" 
+	
+	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="InitOpenstaande">
-<FormalSpec>CustomerID:%String</FormalSpec>
-<Implementation><![CDATA[
-	#Dim SqlStatement as %String
-	Set SqlStatement = ..GeefSQLVoorOrderLijnen()_" AND ORD.CUSTACCOUNT='"_CustomerID_"' and SalesLine.SALESSTATUS = 1"
-	; SalesStatus order lines  values: Open order = 1, Delivered = 2, Invoiced = 3, Canceled = 4 
-
-	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
-]]></Implementation>
-</Method>
-
-<Method name="GeefSQLVoorOrderLijnen">
+<Method name="VoerUitQueryRecente">
+<FormalSpec>RecenteDatum:%Date</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
+	
 	Set SqlStatement = ""
-	_"select ORD.SALESID,ORD.PURCHORDERFORMNUM,ORD.CUSTOMERREF,ORD.CREATEDDATETIME, OrdNotes.Body as ORDERCONFTXT, SalesLine.EXTERNALITEMID,"
-	_"   SalesLine.EXTERNALITEMID, SalesLine.CustomerLineNum,SalesLine.ADUORDERSTATUSID,SalesLine.ADUEXPLODEINVENTTRANSID,SalesLine.CREATEDBY,SALESORIGINID,"
-    _"   SalesLine.SALESSTATUS,SalesLine.ITEMID,ADMINPRODUCTNUMMER,QTYORDERED,REMAINSALESPHYSICAL,SalesLine.RECEIPTDATECONFIRMED,SalesLine.RECEIPTDATEREQUESTED,"
-    _"   SalesLine.SALESPRICE,SalesLine.PRICEUNIT,SalesLine.LINEAMOUNT,SalesLine.CURRENCYCODE,ProdNotes.Body as PRODREF,LijnNotes.Body as LIJNCONFTXT,SalesLine.DLVMODE, "
-    _"   ADR.RECID,ADR.COUNTRYREGIONID,ADR.CITY,ADR.ZIPCODE,ADR.STREET,ADR.ADUNOTA1EXTERNAL,ADR.ADUNOTA2EXTERNAL,ADR.ADUTRANSPORTERAUTH" 
-    _"   ,isnull(( select -sum(qty) from InventTrans where InventTransOrigin.RECID = InventTrans.INVENTTRANSORIGIN and InventTrans.STATUSISSUE = 3 and "
-	_"            InventTrans.STATUSRECEIPT = 0 and InventTrans.DATAAREAID = InventTransOrigin.DATAAREAID and InventTrans.PARTITION = InventTransOrigin.PARTITION),0) as GEPICKTEHOEVEELHEID"
-	_" from SalesLine "
-	_" join SalesTable as ORD on SalesLine.SALESID = ORD.SALESID and SalesLine.DATAAREAID = ORD.DATAAREAID"
-	_" join InventTransOrigin on InventTransOrigin.INVENTTRANSID = SalesLine.INVENTTRANSID and InventTransOrigin.DATAAREAID = SalesLine.DATAAREAID and "
-	_"                           InventTransOrigin.PARTITION = SalesLine.PARTITION "
-	_" left outer join LOGISTICSPOSTALADDRESS as ADR on ADR.RECID =Salesline.DELIVERYPOSTALADDRESS "
-	_" join InventDim  on InventDim.InventDimId =SalesLine.InventDimId "
-	_"   and InventDim.DataAreaId = SalesLine.DataAreaId "
-	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
-    _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
-    _"   and InventDim.ConfigId<>'' "
-	_" left outer join AduCustomerFormNotes as ProdNotes on ProdNotes.REFTABLEID=359 and ProdNotes.REFRECID=SalesLine.RECID and ProdNotes.ADUBODYTYPE=5"
-	_" left outer join AduCustomerFormNotes as LijnNotes on LijnNotes.REFTABLEID=359 and LijnNotes.REFRECID=SalesLine.RECID and LijnNotes.ADUBODYTYPE=1"
-	_" left outer join AduCustomerFormNotes as OrdNotes on OrdNotes.REFTABLEID=366 and OrdNotes.REFRECID=ORD.RECID and OrdNotes.ADUBODYTYPE=1"
-	_" where ORD.SALESTYPE = 3 " ; SalesType values: Journal = 0, Sales (order) = 3, Return order = 4 "
+	_"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' "
 
-	Quit SqlStatement
+	
+	;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>
 
Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml	(.../HistoriekOphalen.cls.xml)	(revision 50322)
@@ -10,7 +10,7 @@
 </Parameter>
 
 <Property name="ProductValidator">
-<Type>AX.Uitgaand.EC.DataAX.impl.ProductValidator</Type>
+<Type>AX.Uitgaand.EC.Data.impl.ProductValidator</Type>
 <Private>1</Private>
 </Property>
 
Index: AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Assortiment/impl/ExportBasis.cls.xml	(.../ExportBasis.cls.xml)	(revision 50322)
@@ -21,10 +21,6 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="AssortimentsGroep">
-<Type>%String</Type>
-</Property>
-
 <Property name="ExportDefaults">
 <Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
 </Property>
@@ -50,15 +46,13 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
-	Do ..OpenOutput()
-
 	For AssortimentGroep="KS","Industrie","Handel","Consument" 
 	{
-		Set ..AssortimentsGroep=AssortimentGroep
-		Set it=..AssortimentsGroepIterator()
-		Do ..ExportAssortiment(it)
+					Do ..OpenOutput(AssortimentGroep)
+					Set it=..AssortimentsGroepIterator(AssortimentGroep)
+					Do ..ExportAssortiment(it)
+					Do ..CloseOutput()
 	}
-	Do ..CloseOutput()
 ]]></Implementation>
 </Method>
 
@@ -75,11 +69,12 @@
 </Method>
 
 <Method name="AssortimentsGroepIterator">
+<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
 	Do rs.Prepare("Select"_$S(..BeperktAantalProducten:" TOP "_..BeperktAantalProducten,1:"")_" Product from AX_Uitgaand_EC_Assortiment_impl.BasisAssortiment where AssortimentGroep=? and GenerationID=?")
 	
- 	Set sc=rs.Execute(..AssortimentsGroep,..ExportDefaults.NewGenerationID)
+ 	Set sc=rs.Execute(AssortimentGroep,..ExportDefaults.NewGenerationID)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
 ]]></Implementation>
@@ -106,31 +101,32 @@
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxBasisProduct).%New()
-	Do Proxy.InvullenMetProductData(PRNr, ..AssortimentsGroep)
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Set Proxy.AssortimentsGroep=Translator.GeefAssortimentIDForAX(..AssortimentsGroep)
+	Do Proxy.InvullenMetProductData(PRNr)
 	Quit Proxy
 ]]></Implementation>
 </Method>
 
 <Method name="OpenOutput">
+<FormalSpec>AssortimentGroep:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
 	Set Omschrijving="BasisAssortiment"
-	Set BestandsNaam=..ExportDefaults.GeefBestandsNaam(Omschrijving)
+	Set BestandsNaam=Omschrijving_" "_AssortimentGroep_".xml"
 	Do ..ExportSamenvatting.NieuwBestand(Omschrijving, BestandsNaam)
-	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefPadEnBestandsNaam(Omschrijving))
+	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,BestandsNaam))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement(Omschrijving)
+	Do ..Writer.Element("AssortimentGroep")
+	Do ..Writer.Write(AssortimentGroep)
+	Do ..Writer.EndElement()
 	Do ..Writer.Element("Domein")
 	Do ..Writer.Write(..DomeinID)
 	Do ..Writer.EndElement()
 	Do ..Writer.Element("GenerationID")
-	Set Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
-	Do ..Writer.Write(Translator.GeefGenerationIDForAX(..ExportDefaults.NewGenerationID))
+	Do ..Writer.Write(..ExportDefaults.NewGenerationID)
 	Do ..Writer.EndElement()
 ]]></Implementation>
 </Method>
Index: WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 50322)
@@ -71,10 +71,6 @@
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="LeverAdresTekst">
-<Type>TECH.String</Type>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>FactuurLijnState</State>
@@ -202,15 +198,6 @@
 <Value name="40">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="41">
-<Value>PRNr</Value>
-</Value>
-<Value name="42">
-<Value>LeverAdres</Value>
-</Value>
-<Value name="43">
-<Value>LeverAdresTekst</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/DataAX/impl/HelperAdresConverteren.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml
===================================================================
diff -u -r50282 -r50322
--- WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 50282)
+++ WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 50322)
@@ -127,9 +127,6 @@
 <Value name="37">
 <Value>Afbeelding</Value>
 </Value>
-<Value name="38">
-<Value>PRNr</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml
===================================================================
diff -u -r50282 -r50322
--- AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50282)
+++ AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml	(.../HelperLeveringenOphalen.cls.xml)	(revision 50322)
@@ -70,7 +70,7 @@
 	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?1(1"DI1",1"DD1")) ;bon nummers worden herbruikt
+	If (pxHoofding.LeveringsDatum>($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt
 	{
 		try{
 		 	Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId)
@@ -295,7 +295,7 @@
 <Method name="CheckLevering">
 <FormalSpec>BONNr,Periode</FormalSpec>
 <Implementation><![CDATA[
-	If Periode ; && (..Node'="F")
+	If Periode && (..Node'="F")
 	{
 		Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2))
 		Set Check=LeverDatum'<($H-Periode)
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/Klanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/CorrelateKlant.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/ExportProductReferenties.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/GenerateKlanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/CorrelateHeaderKlanten.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/KlantenAX/impl/ExportProductHistoriek.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/BasisAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/KlantAssortiment.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/ExportProductIDVertaling.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/GenerateExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateBasis.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderUitzondering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 50322 refers to a dead (removed) revision in file `AX/Uitgaand/EC/AssortimentAX/impl/CorrelateHeaderExclusie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?