Index: zTryout/PRA/SFSLijstDossierCodePlusReferentie.cls.xml
===================================================================
diff -u
--- zTryout/PRA/SFSLijstDossierCodePlusReferentie.cls.xml	(revision 0)
+++ zTryout/PRA/SFSLijstDossierCodePlusReferentie.cls.xml	(revision 49154)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PRA.SFSLijstDossierCodePlusReferentie">
+<Description>
+DO ##class(zTryout.PRA.SFSLijstDossierCodePlusReferentie).Zoek()</Description>
+<Super>%RegisteredObject</Super>
+
+<Method name="Zoek">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim OrderApi as DOM.VKP.impl.DataM.DataMOrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	#dim Bonnen As TECH.Iterator = OrderApi.GeefBonIterator()
+	While Bonnen.HasNext() {
+		#dim Bon as DOM.VKP.Bon = Bonnen.Next()
+		Try {
+			If ( ("K||12486" = Bon.GeefKlantID()) ) {
+				#dim RitId = ""
+				Try {
+					Set RitId = Bon.GeefRitID()
+				} Catch {}
+				
+				#dim Lijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator( ##class(DOM.VKP.enu.BonLijnType).Tekst() )
+				#dim SFSRef = ""
+				While ( (""=SFSRef	) && Lijnen.HasNext() ) {
+					#dim Lijn As DOM.VKP.TekstOrderlijn = Lijnen.Next()
+					#dim Tekst = Lijn.GeefTekst()
+					If Tekst?.E3"0"7N.E {
+						#dim StartPositie = $Find(Tekst, "000")-3	
+						Set SFSRef = $Extract(Tekst, StartPositie, StartPositie+10)
+					}
+				}
+				
+				Set Lijnen = Bon.GeefTypeBonLijnIterator( ##class(DOM.VKP.enu.BonLijnType).Product() )
+				While Lijnen.HasNext() {
+					#dim ProductLijn As DOM.VKP.ProductOrderlijn = Lijnen.Next()
+					#dim Product As DOM.PM.Product = ProductApi.GeefProduct(ProductLijn.GeefProductID())
+					Write Product.GeefDossierNr(), ";", Product.GeefIdentNr(),";", SFSRef, ";", Bon.GeefID(), ";", RitId, !
+				}	
+			}
+		} Catch {
+			Write ##class(TECH.ExceptionHandler).Catch().ToString(), !
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>