Index: BL/Flow/Offerte/Doc.cls.xml
===================================================================
diff -u -r1835 -r1892
--- BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1835)
+++ BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1892)
@@ -31,26 +31,25 @@
 	Set ToString = ..#DocName_" ("
 	
 	Set OfferteNr = $LG(lbOfferte,1)
-	Set BronType = $LG(lbOfferte,2)	    ; [Review JBL  WV FOPQueue]  Onderscheid maken tussen BronType = KOF en WS :  komen resp. uit ^KOFKL en uit ^Flow.Offerte.Hoofding 
+	Set BronType = $LG(lbOfferte,2)
 	Set ToString = ToString _"Nr: "_OfferteNr
 	
 	If (BronType = "KOF"){
 		If $Data(^KOFKL1(OfferteNr,"F")){   ; [Review JBL  WV FOPQueue]  Dit is deel 1 (KOF) 
 			Set KLNr=$P(^KOFKL1(OfferteNr,"F"),"\")
 			Set ToString = ToString_", KlantNr: "_KLNr
 		}
-	}Else{
+	}ElseIf (BronType = "WS") {
 		Set OffBL=##class(BL.Flow.Offerte.Build).%New()
 		Set Offerte=OffBL.Open(OfferteNr)
 		If ($IsObject(Offerte) && $IsObject(Offerte.Klant)){
 			Set KLNr=Offerte.Klant.Nummer
 			Set ToString = ToString_", KlantNr: "_KLNr
 		}
+	}Else{
+		Set ToString = ToString_", BronType onbekend! "
 	}
 	
-	; [Review JBL  WV FOPQueue]  Deel 2 (WS) 
-	; Klasse Flow.Offerte.Hoofding openen en property KlantGetObjectId() opvragen 
-	
 	Set ToString = ToString _ ", BronType: "_BronType_")"
 		
 	Quit ToString