Index: AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml
===================================================================
diff -u -r38557 -r38567
--- AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 38557)
+++ AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml	(.../HelperOrdersOphalen.cls.xml)	(revision 38567)
@@ -37,25 +37,25 @@
 <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.OrderID=$LG(lbHoofding,2)
+	Set pxHoofding.DocType="O"
+
+	Set OrderRec=$LG(lbHoofding,5)
 	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)
+	Set pxHoofding.InternMedewerker=""
+	Set pxHoofding.ExterneMedewerker=""
 ]]></Implementation>
 </Method>
 
 <Method name="ConverteerLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	If $LG(lbLijn,2)="P"
+	If $LG(lbLijn,1)="P"
 	{
 		Do ..ConverteerProductLijn(pxLijn, lbHoofding, lbLijn)
 	}
@@ -69,7 +69,7 @@
 <Method name="ConverteerProductLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set OLRec=$LG(lbLijn,3)
+	Set OLRec=$LG(lbLijn,2)
 	Set pxLijn.ProductID=$P(OLRec,"\",2)
 	Set pxLijn.Aantal=$P(OLRec,"\",3)
 	Set pxLijn.NettoPrijs=+$P(OLRec,"\",6)
@@ -79,8 +79,7 @@
 	Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25)
 	Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29)
 	Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering
-	Set pxLijn.OorsprongDocType=$CASE($LG(lbLijn,1), "L":"LEVERING", "F":"FACTUUR", "P":"NUL-FACTUUR", :"ORDER")
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
 	Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID)
 	Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID)
 	Do pxLijn.VulAanMetProduct(..Taal)
@@ -90,16 +89,16 @@
 <Method name="ConverteerTekstLijn">
 <FormalSpec>pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List</FormalSpec>
 <Implementation><![CDATA[
-	Set pxLijn.Commentaar=$LG(lbLijn,4)
+	Set pxLijn.Commentaar=$LG(lbLijn,3)
 	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)
+	Set OLRec=$LG(lbLijn,2)
+	Set pxLijn.Status=$LG(lbLijn,4)
 ]]></Implementation>
 </Method>
 
@@ -122,7 +121,6 @@
 	#dim ProdGrp As %String = "*"
 	#dim LastGrpTijd As %String = "" 
 	#dim LastGrpOLUNr As %String = ""
-	#dim OrderDatum As %Date = ""
 	
 	Set HasProd=""
 	Kill Sort,GrpTekst
@@ -155,29 +153,20 @@
 	 
 	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 HoofdingVolgNr=$I(^||ECCache("D"))
+	Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",ORDNr,,,^KOD(..KlantID,"F",ORDNr,1),,,^KOD(..KlantID,"F",ORDNr,3))
+	Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr
 	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))
+	. . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr))
+	. . Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("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[
@@ -190,6 +179,30 @@
 ]]></Implementation>
 </Method>
 
+<Parameter name="vsInVoorraad">
+<Default>Voldoende voorraad</Default>
+</Parameter>
+
+<Parameter name="vsBeperkteVoorraad">
+<Default>Beperkte voorraad</Default>
+</Parameter>
+
+<Parameter name="vsNietInVoorraad">
+<Default>Geen voorraad</Default>
+</Parameter>
+
+<Parameter name="vsOpBestelling">
+<Default>In bestelling lev</Default>
+</Parameter>
+
+<Parameter name="vsInProductie">
+<Default>In productie</Default>
+</Parameter>
+
+<Parameter name="vsInLevering">
+<Default>Verwerking magazijn</Default>
+</Parameter>
+
 <Method name="CheckOrderLijn">
 <FormalSpec><![CDATA[ORDNr:%String,OLNr:%String,&LijnType:%String,&VoorraadStatus:%String]]></FormalSpec>
 <Implementation><![CDATA[
@@ -202,18 +215,13 @@
 	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
+	If $P(Rec,"\",27)'="" Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):..#vsInProductie,1:..#vsOpBestelling)
+	Else  Do 
+	. Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":..#vsNietInVoorraad,"P":..#vsBeperkteVoorraad,:..#vsInVoorraad)
 	Set OLUNr=$P(Rec,"\",15)
-	If $D(^ORDW("IO",ORDNr,OLUNr)) 
-	{
-		Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).VerwerkingMagazijn()
-	} Else {
-		If $P(Rec,"\",27)'="" 
-		{
-			Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InBestelling())
-		} Else {  
-			Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).VoldoendeVoorraad())
-		}
-	}
+	If $D(^ORDW("IO",ORDNr,OLUNr)) Set VoorraadStatus=..#vsInLevering
+	;Set:VoorraadStatus=..#vsInVoorraad VoorraadStatus=""
+	
 	Set LijnType="P"
 ]]></Implementation>
 </Method>