Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r196 -r201
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 196)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 201)
@@ -51,7 +51,7 @@
 implementation
 
 uses
-  UiContext, Agent;
+  UiContext, Agent, CommonFunctions;
 
 {$R *.dfm}
 
@@ -167,7 +167,7 @@
 begin
   GridLeegMaken();
   for DnaCodeTeller := 0 to length(DnaCodes)-1  do begin
-    sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(DnaCodes[DnaCodeTeller].DnaCode);
+    sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
     sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
   end;
   if sgToeleveringData.RowCount > 2 then