Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r1074 -r2784
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 1074)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 2784)
@@ -168,7 +168,9 @@
  ;aan deze lijn en laten we voor de rest de scangegevens zoals ze waren
  If AttachTLNrAndQuitIfLineExists && (UseThisTLNr'="") && (LijnNr'=0) Do  Quit $LB(4,"Product '"_ProductNr_"' gekoppeld aan toelevering '""', scanaantal ongewijzigd.")
  . Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,UseThisTLNr)
-
+  
+ 
+ 
  If LijnNr'=0 Do
  . If UseThisTLNr="" Do   ;Bufferlijn bestaat reeds, geen assoc toeleveringsnummer meegegeven, inhoud van de lijn gewoon +1
  ..  Set Status=..INCBufferQty(bfrRGID,bfrVolgNr,LijnNr)
@@ -791,8 +793,11 @@
 <Implementation><![CDATA[
  New LeverancierNr
  Set LeverancierNr=..GetLevNrViaTLNr(ToeleveringsNr)
-
- Quit ($P(^KTO(LeverancierNr,ToeleveringsNr,1),"\",22)=2)
+ if ($Data(^KTO(LeverancierNr,ToeleveringsNr,1))) {
+ 	Quit ($P(^KTO(LeverancierNr,ToeleveringsNr,1),"\",22)=2)
+ }Else{
+	Quit 0	 
+}
 ]]></Implementation>
 </Method>
 
@@ -1123,7 +1128,6 @@
  ....    Set QtyDone=QtyDone+$P(Rec,SEP,5)
 
  Set ProdIsShared=(Cnt>1)
-
  Quit QtyDone
 ]]></Implementation>
 </Method>