Index: WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml	(.../DocumentLijn.cls.xml)	(revision 50354)
@@ -177,6 +177,9 @@
 <Value name="33">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="34">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 50354)
@@ -30,6 +30,11 @@
 <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>
@@ -38,33 +43,44 @@
 <FormalSpec>Taal:TECH.String</FormalSpec>
 <Implementation><![CDATA[
 	; Caching ingebouwd voor orders, leveringen en facturen omdat dezelfe producten meerdere keren voorkomen
-	
-	If '$D(^||ECCache("PROD",..ProductID))
+	If ..PRNr="" Set ..PRNr=..ProductID ; nodig voor AX wanneer 'Mode = A2'"
+	If '..PRNr||'($D(^KPR(..PRNr))||$D(^KPRO(..PRNr)))
 	{
+		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",..ProductID)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
+		Set ^||ECCache("PROD",..PRNr)=$LB(..ProductGroep,..ProductSubGroep,..KortTekst,..ProductCode,..ProductOmschrijving, ..Afbeelding)
 	}
 	Else
 	{ 
-		Set lb=^||ECCache("PROD",..ProductID)
+		Set lb=^||ECCache("PROD",..PRNr)
 		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(..ProductID,$$$KortTekst)
+<Implementation><![CDATA[	Quit $$GetOrOld^PRODUKT(..PRNr,$$$KortTekst)
 ]]></Implementation>
 </Method>
 
@@ -73,7 +89,7 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	;Omschrijving met kleur maar zonder FSC, vermits de FSC berekening te veel tijd vraagt
-	#dim Omschrijving As %String = ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..ProductID, Taal, "<br/>", 1)
+	Set Omschrijving=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(..PRNr, Taal, "<br/>", 1)
 	Set:Omschrijving="" Omschrijving=" "
 	Quit Omschrijving
 ]]></Implementation>
@@ -82,18 +98,18 @@
 <Method name="GeefProductCode">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	If (..ProductGroep="Maatwerk")&&($P($G(^KPR(..ProductID,"G")),"\")'="") {
-		Quit $P(^KPR(..ProductID,"G"),"\")
+	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") 
 	} Else {
-		Quit $$GetOrOld^PRODUKT(..ProductID,$$$IdentNummer)	
+		Quit $$GetOrOld^PRODUKT(..PRNr,$$$IdentNummer)	
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAfbeelding">
 <Implementation><![CDATA[
 	Set blImageLink=##class(BL.Prod.ImageLink).Instantiate()
-	Set URL=blImageLink.GetProductImageURL(..ProductID,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
+	Set URL=blImageLink.GetProductImageURL(..PRNr,"" , "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>
@@ -102,11 +118,10 @@
 <Method name="BepaalProdGroep">
 <ReturnType>WS.Vhisie4.KlantDocument.enu.ProductGroep</ReturnType>
 <Implementation><![CDATA[
-	Set PRNr=..ProductID
-	If '$D(^KPR(PRNr)) { 
+	If '$D(^KPR(..PRNr)) { 
 		Set ProdGrp="Verwijderd"
 	} Else {
-		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..ProductID)
+		Set ProdGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).GeefCodeVoorProduct(..PRNr)
 	}
 	Quit ProdGrp
 ]]></Implementation>
@@ -117,7 +132,7 @@
 <Implementation><![CDATA[
 	If ..ProductGroep=##class(WS.Vhisie4.KlantDocument.enu.ProductGroep).Beslag()
 	{
-		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..ProductID)
+		Set ProdSubGrp=##class(WS.Vhisie4.KlantDocument.enu.ProductSubGroep).GeefCodeVoorProduct(..PRNr)
 	}
 	Else
 	{
@@ -143,6 +158,8 @@
 <State>ProductInfoState</State>
 <StreamLocation>^WS.Vhisie4.KlaF15E.ProductInfoS</StreamLocation>
 <Data name="ProductInfoState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>ProductGroep</Value>
 </Value>
@@ -164,6 +181,9 @@
 <Value name="7">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="8">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 50354)
@@ -182,6 +182,9 @@
 <Value name="34">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="35">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml	(.../FactuurLijn.cls.xml)	(revision 50354)
@@ -71,6 +71,10 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="LeverAdresTekst">
+<Type>TECH.String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>FactuurLijnState</State>
@@ -198,6 +202,15 @@
 <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>
Index: WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml	(.../LeveringHoofding.cls.xml)	(revision 50354)
@@ -59,6 +59,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="LeverAdresTekst">
+<Type>TECH.String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DocumentHoofdingState">
@@ -163,6 +167,9 @@
 <Value name="33">
 <Value>FactuurType</Value>
 </Value>
+<Value name="34">
+<Value>LeverAdresTekst</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml	(.../OrderHoofding.cls.xml)	(revision 50354)
@@ -37,6 +37,10 @@
 <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>
@@ -101,6 +105,9 @@
 <Value name="17">
 <Value>Status</Value>
 </Value>
+<Value name="18">
+<Value>LeverAdresTekst</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml	(.../KlantDocumentService.cls.xml)	(revision 50354)
@@ -42,8 +42,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductIdConverter">
-<Type>WSimpl.Vhisie4.ProductIdConverter</Type>
+<Property name="Translator">
+<Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
 <Private>1</Private>
 </Property>
 
@@ -57,6 +57,18 @@
 <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>
@@ -66,10 +78,13 @@
 	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>
@@ -87,26 +102,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefVerkoopHistoriekResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	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.GeefVerkoopHistoriekResponse
 	
-	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)
-		}
+	If ..WebsiteAXIds
+	{
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.HistoriekOphalen).%New(Request).GeefResponse()
+		Set Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.HistoriekOphalen).%New(Request).GeefResponse()
+	}
 	
 	Quit Response
 ]]></Implementation>
@@ -126,28 +137,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOrdersResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	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.GeefOrdersResponse
 	
-	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)
-		}
+	If ..Connected2AX
+	{
+		Set Response = ##class(AX.Uitgaand.EC.DataAX.impl.OrdersOphalen).%New(Request,..ModeAX).GeefResponse()
+		Set:..WebsiteAXIds Response.KlantId = ..Translator.GeefCustomerIDForAX(Response.KlantId)
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).%New(Request).GeefResponse()
+	}
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -165,27 +170,25 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefFacturenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	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.GeefFacturenResponse 
-	
-	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)
-		}
+	#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)
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).%New(Request).GeefResponse()
+	}
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -202,27 +205,22 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefOffertesResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	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.GeefOffertesResponse 
 	
-	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)
-		}
+	If ..Connected2AX
+	{
+		Set Response="" ; geen offertes in fase 2A
 	}
-	
+	Else
+	{
+		Set Response = ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).%New(Request).GeefResponse()
+	}
+		
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -240,26 +238,24 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefLeveringenResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Request.Header.KlantId = ..KlantIdConverter.ConvertToVanHoecke(Request.Header.KlantId)
+	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.GeefLeveringenResponse 
 	
-	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)
-		}
+	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()
+	}
 	
+	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -269,24 +265,36 @@
 <ReturnType>WS.Vhisie4.KlantDocument.GeefDocumentResponse</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	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)
+	Do ##class(Tools.Wlip).%New(127).String("start")
 	
+	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()
-	If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("KlantIdAx2A") {
-
-		Set Response.KlantId = ..KlantIdConverter.ConvertToAx(Response)
+	
+	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)
 	}
 	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: WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/HistoriekItem.cls.xml	(.../HistoriekItem.cls.xml)	(revision 50354)
@@ -93,6 +93,9 @@
 <Value name="13">
 <Value>GrootteOrde</Value>
 </Value>
+<Value name="14">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml	(.../OfferteLijn.cls.xml)	(revision 50354)
@@ -127,6 +127,9 @@
 <Value name="37">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="38">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml	(.../LeveringLijn.cls.xml)	(revision 50354)
@@ -178,6 +178,9 @@
 <Value name="39">
 <Value>Afbeelding</Value>
 </Value>
+<Value name="40">
+<Value>PRNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50322)
+++ WS/Vhisie4/RequestHeader.cls.xml	(.../RequestHeader.cls.xml)	(revision 50354)
@@ -51,6 +51,14 @@
 ]]></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: WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml
===================================================================
diff -u -r50322 -r50354
--- WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 50322)
+++ WS/Vhisie4/KlantDocument/enu/OrderLijnStatus.cls.xml	(.../OrderLijnStatus.cls.xml)	(revision 50354)
@@ -51,6 +51,20 @@
 ]]></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>