Index: APPS/common/dto/StockNiveaus.cls.xml
===================================================================
diff -u -r1118 -r1385
--- APPS/common/dto/StockNiveaus.cls.xml	(.../StockNiveaus.cls.xml)	(revision 1118)
+++ APPS/common/dto/StockNiveaus.cls.xml	(.../StockNiveaus.cls.xml)	(revision 1385)
@@ -40,5 +40,13 @@
 <Property name="InReceptieGestockeerd">
 <Type>%Integer</Type>
 </Property>
+
+<Property name="InTransfert">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KlaarGezet">
+<Type>%Integer</Type>
+</Property>
 </Class>
 </Export>
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>
Index: vhDeploy/Deploy201106081001.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy201106081001.cls.xml	(revision 0)
+++ vhDeploy/Deploy201106081001.cls.xml	(revision 1385)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy201106081001">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Wijzigen scherm 7 producten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	for Index = 700 : 1 : 799 {
+	 	kill ^KPR(0,Index)
+	 	kill ^KPRNL(0,Index)
+	}
+	
+	set ^KPR(0,702)="RESERVATIE;7;2;;7;25;;$S($G(PR):$P($G(^PRSTOCK(""D"",PR)),D,6),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,703)="KLAARGEZET;8;2;;8;25;;$S($G(PR):$$KlaarGezet^APPS.common.StockNiveauService(PR),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,704)="IN TRANSFERT;9;2;;9;25;;$S($G(PR):$$InTransfert^APPS.common.StockNiveauService(PR),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,705)="VOORRAAD;10;2;;10;25;;$S($G(PR):$P($G(^PRSTOCK(""D"",PR)),D,5),1:"""");6;;K?.N;1;;;1;"";;;;;;1;;"
+	set ^KPR(0,706)="HERBESTELSURPLUS;12;2;;12;25;;$S(K:+K_"" ""_$P(""\Stuk\Kleinverpakking\Normverpakking\Grootverpakking\Pallet"",D,$F(""KNGP"",$P(K,+K,2))+1),1:K)_$S(+K>1:$P(""\s\en\en\en\ten"",D,$F(""KNGP"",$P(K,+K,2))+1),1:"""")_$S(K:"" (""_$$QTYVPK^MRP(PR,K)_"")"",1:"""");7;xxx, xxxK, xxxN, xxxG, xxxP[] = xxx stuks,klein-, norm-, grootverpakkingen      of palletten;K?.N!(K?.N1""K"")!(K?.N1""N"")!(K?.N1""G"")!(K?.N1""P"");;22;;;1605;;;;;;1;;"
+	set ^KPR(0,707)="HERBESTELAFR;13;2;;13;25;;$S($L(K):$$POPUP^PRODUKT5(""HFWVHBROUND"",K,1),1:K);35;;;;;;;1606;;;D WVHBRND^PRODUKT5;1;;1;;"
+	set ^KPR(0,708)="GROOTTE NETTO;14;2;;14;25;;;35;;;;;;;1607;;;;;;1;;"
+	set ^KPR(0,709)="GROOTTE BRUTO;15;2;;15;25;;;35;;;;;;;1608;;;;;;1;;"
+	set ^KPR(0,710)="EENHEID;16;2;;16;25;;$$POPUP^PRODUKT5(""HFWVEENH"",$S(K="""":""ST"",1:K),1);35;;;;;;;1609;;;D WVEENH^PRODUKT5;1;;1;;"
+	set ^KPR(0,711)="DEFAULTMAGAZIJN;17;2;;17;25;;$$POPUP^PRODUKT5(""HFWVDEFMAG"",$S(K="""":""M"",1:K),1);35;;;;;;;1611;;;D WVDMAG^PRODUKT5;1;;1;;"
+	set ^KPR(0,712)="SUBMAGAZIJN;18;2;;18;25;;$S($L(K):$$POPUP^PRODUKT5(""HFWVSUBMAG"",K,1),1:K);35;;;;;;;1612;;;D WVSMAG^PRODUKT5;1;;1;;"
+	set ^KPR(0,713)="FSC hout;19;2;;19;25;"";$$POPUP^PRODUKT5(""FSC"",K,1);20;;;;;K'=""-"";;405;;;D FSCHout^PRODUKT5;1;;1;;"
+	
+	for Index = 700 : 1 : 799 {
+		if $data(^KPR(0,Index)) set ^KPRNL(0,Index)=^KPR(0,Index)	
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/StockNiveauService.mac.rou
===================================================================
diff -u
--- APPS/common/StockNiveauService.mac.rou	(revision 0)
+++ APPS/common/StockNiveauService.mac.rou	(revision 1385)
@@ -0,0 +1,13 @@
+ 
+InTransfert(PRNr)
+	new impl set impl = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr)
+	quit impl.GeefAantalInTransfert()
+ 
+ 
+KlaarGezet(PRNr)
+	new impl set impl = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr)
+	quit impl.GeefAantalKlaarGezet()
+ 
+ 
+ 
+ 
\ No newline at end of file
Index: APPS/common/StockNiveauService.cls.xml
===================================================================
diff -u -r1308 -r1385
--- APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1308)
+++ APPS/common/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 1385)
@@ -69,5 +69,15 @@
 <Abstract>1</Abstract>
 <ReturnType>%Float</ReturnType>
 </Method>
+
+<Method name="GeefAantalInTransfert">
+<Abstract>1</Abstract>
+<ReturnType>%Float</ReturnType>
+</Method>
+
+<Method name="GeefAantalKlaarGezet">
+<Abstract>1</Abstract>
+<ReturnType>%Float</ReturnType>
+</Method>
 </Class>
 </Export>