Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r664 -r665
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 664)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 665)
@@ -355,7 +355,7 @@
   end;
 
   fAgent := TAgent.Create(UiContext);
-  Response := fAgent.DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,1,Locatie);
+  Response := fAgent.DnaCodeAfmelden(edtDnaCode.Text,UiContext.Toelevering,UiContext.Pallet,UiContext.LpnCode,1,Locatie);
   fAgent.Free;
   try
     List := TStringList.Create;