Index: APPS/AKP/Receptie/impl/ReceptieService.cls.xml
===================================================================
diff -u -r36478 -r36524
--- APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 36478)
+++ APPS/AKP/Receptie/impl/ReceptieService.cls.xml	(.../ReceptieService.cls.xml)	(revision 36524)
@@ -9,15 +9,18 @@
 </Parameter>
 
 <Method name="UpdateReceptie">
-<FormalSpec>ReceptieNummer:%String,ToeleveringNummer:%String,FaktuurNummerVan:%String,VervLijnNummerVan:%Integer,FaktuurNummerNaar:%String,VervLijnNummerNaar:%Integer</FormalSpec>
+<FormalSpec>ReceptieNummer:%String,ToeleveringInfo:%String,FaktuurNummerVan:%String,VervLijnNummerVan:%Integer,FaktuurNummerNaar:%String,VervLijnNummerNaar:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	#dim rec as %String
 	#dim indextlunr as %Integer
 	#dim recsubnr as %String
 	#dim indexsubnr as %Integer
+	#dim ToeleveringNummer As %String
 	
+	set ToeleveringNummer = $Piece(ToeleveringInfo,".",1)
+	
 	set indextlunr = -1
-	set indextlunr = $Order(@..#Global("D",ReceptieNummer,"D",ToeleveringNummer,indextlunr))
+	set indextlunr = $Order(@..#Global("D", ReceptieNummer, "D", ToeleveringNummer, indextlunr))
 	While ((indextlunr '= "")){
 		set rec = @..#Global("D",ReceptieNummer,"D",ToeleveringNummer,indextlunr)		
 		if (($Piece(rec,"\",10) = FaktuurNummerVan) && ($Piece(rec,"\",11) = VervLijnNummerVan)){