Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r203 -r204
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 203)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 204)
@@ -76,7 +76,7 @@
   fWaarschuwingModalResult := ToonPopupScherm('Scan ongedaan maken?'+#13#10+sgToeleveringData.Rows[sgToeleveringData.Row][0],'Ja','Nee',14,6,7);
 
   if fWaarschuwingModalResult = mrYes then begin
-    Response := TAgent.Create(UiContext).DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][0], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1);
+    Response := TAgent.Create(UiContext).DnaCodeAfmelden(sgToeleveringData.Rows[sgToeleveringData.Row][2], UiContext.Toelevering, sgToeleveringData.Rows[sgToeleveringData.Row][1], -1);
     try
       if Response.Header.Status <> '200' then begin
         ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
@@ -173,8 +173,8 @@
     if (ToonGescand and (DnaCodes[DnaCodeTeller].InitialenScanner <> '')) or
        ((not ToonGescand) and (DnaCodes[DnaCodeTeller].InitialenScanner = '')) then begin
       sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Add(TCommonFunctions.VerkorteDnaCode(DnaCodes[DnaCodeTeller].DnaCode));
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Append(DnaCodes[DnaCodeTeller].PalletCode);
-      sgToeleveringData.Rows[sgToeleveringData.RowCount-1].Append(DnaCodes[DnaCodeTeller].DnaCode);
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1][1] := (DnaCodes[DnaCodeTeller].PalletCode);
+      sgToeleveringData.Rows[sgToeleveringData.RowCount-1][2] := (DnaCodes[DnaCodeTeller].DnaCode);
       sgToeleveringData.RowCount := sgToeleveringData.RowCount + 1;
     end;
   end;