Index: zTryout/PRA/IngekortOrgaluxInOrdw.cls.xml
===================================================================
diff -u
--- zTryout/PRA/IngekortOrgaluxInOrdw.cls.xml	(revision 0)
+++ zTryout/PRA/IngekortOrgaluxInOrdw.cls.xml	(revision 1435)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.PRA.IngekortOrgaluxInOrdw">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ZoekIngekortOrgaluxInOrdw">
+<Description>
+Do ##class(zTryout.PRA.IngekortOrgaluxInOrdw).ZoekIngekortOrgaluxInOrdw()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set D="\"
+	set bon=""
+	for  set bon=$O(^ORDW("D",bon)) quit:bon=""  do
+	. set order=""
+	. for  set order=$O(^ORDW("D",bon,"D",order)) quit:order=""  do 
+	. . set olu=""
+	. . for  set olu=$O(^ORDW("D",bon,"D",order,olu)) quit:olu=""  do 
+	. . . set lijn=^ORDW("D",bon,"D",order,olu)
+	. . . quit:$Piece(lijn,D,2)'="W" // enkel wachtende lijnen
+	. . . quit:$Piece(lijn,D,8)'="E" // enkel EWMS verwerking
+	. . . set MPRNr=$Piece(lijn,D,1)
+	. . . if $D(^PRBS("BS",MPRNr))  do
+	. . . . if '$D(PRLINK("D",MPRNr))  do
+	. . . . . w bon, " ", order, " ", olu, " ", MPRNr, !
+	quit
+]]></Implementation>
+</Method>
+</Class>
+</Export>