Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r1383 -r1385
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1383)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1385)
@@ -66,6 +66,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalInTransfert">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalKlaarGezet">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="implStockOverKinderen">
 <Type>APPS.common.impl.StockOverKinderen</Type>
 <Private>1</Private>
@@ -102,6 +112,8 @@
 	set dtoStock.InReservatie = ..GeefAantalInReservatie()
 	set dtoStock.InReceptie = ..GeefAantalInReceptie()
 	set dtoStock.InReceptieGestockeerd = ..GeefAantalInReceptieGestockeerd()
+	set dtoStock.InTransfert = ..GeefAantalInTransfert()
+	set dtoStock.KlaarGezet = ..GeefAantalKlaarGezet()
 	
 	quit dtoStock
 ]]></Implementation>
@@ -248,7 +260,7 @@
 	set Result = 0
 
 	set idxWNode = "W    0.0R"
-	for { set idxWNode = $Order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
+	for { set idxWNode = $order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
 		 set OrderNr = $extract(idxWNode,18,23)
 		 set OrderLijnNr = $translate($extract(idxWNode,24,26)," ","")+100
 		 If '..IsInReservatie(OrderNr,OrderLijnNr) {
@@ -301,5 +313,67 @@
 	quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalInTransfert">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..AantalInTransfert) ..AantalInTransfert
+
+	set Result = 0
+
+	set idxWNode = "W    0.0R"
+	for { set idxWNode = $Order(^KPR(..PRNr,idxWNode)) Quit:'$$$StartsWith(idxWNode,"W    0.0R")
+		 set OrderNr = $extract(idxWNode,18,23)
+		 set OrderLijnNr = $translate($extract(idxWNode,24,26)," ","")+100
+		 if ( ..IsTransfertOrder(OrderNr) ) {
+			 set Rec = ^KPR(..PRNr,idxWNode)
+			 set Leverdag = $P(Rec,"\",2)
+			 continue:($length(..Datum)&&(Leverdag'>..Datum))
+			 set Aantal = $piece(Rec,"\",1)
+			 set Result = Result + Aantal
+		 }
+	}
+	
+	set ..AantalInTransfert = Result
+	
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="IsTransfertOrder">
+<FormalSpec>OrderNr</FormalSpec>
+<Implementation><![CDATA[
+	set KlantNr = $piece(^KO1(OrderNr,"F"),"\",1)
+	set Result = $piece(^KOD(KlantNr,"F",OrderNr,1),"\",25)="T"
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalKlaarGezet">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	quit:$length(..AantalKlaarGezet) ..AantalKlaarGezet
+	
+	set Result = 0
+	set idxFabKey=""
+	for  { set idxFabKey=$order(^HADPR("F",idxFabKey)) quit:idxFabKey=""
+		continue:'$data(^HADPR("F",idxFabKey,"F"))  ; verder doen indien niet klaargezet
+		set LevbonNr = $piece(idxFabKey,";",1)
+		set LevbonUniekLijnNr = $piece(idxFabKey,";",2)
+		continue:'$data(^TO("IU",LevbonNr,LevbonUniekLijnNr)) ; skippen indien levbon niet meer bestaat
+		set idxBSKey=""
+		set Found=0
+		for  { set idxBSKey = $order(^HADPR("F",idxFabKey,"AR",idxBSKey)) quit:idxBSKey=""  quit:Found
+			set Info = ^HADPR("F",idxFabKey,"AR",idxBSKey)
+			set Found = $piece(Info,"\",1)=..PRNr
+			if Found set Result = Result + $piece(Info,"\",2)
+		}
+	}
+	
+	set ..AantalKlaarGezet = Result
+	
+	quit Result
+]]></Implementation>
+</Method>
 </Class>
 </Export>