Index: ProScan/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r467 -r471
--- ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 467)
+++ ProScan/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 471)
@@ -69,7 +69,7 @@
 procedure TfmHernoemPalletScherm.actVolgendeExecute(Sender: TObject);
 begin
   inherited;
-  if pcHernoemPallet.ActivePageIndex = 0 then begin
+  if pcHernoemPallet.ActivePage = tsOudeCode then begin
     fEnkelDezeDnaCode := '';
     if TCommonFunctions.IsKaderdeurLocatie(edtOudeCode.Text) then begin
       ToonPopupScherm('Kaderdeurlocaties kunnen niet ingescand worden.','Probeer opnieuw','');
@@ -87,13 +87,12 @@
       end;
       if fEnkelDezeDnaCode = '' then begin
         HernoemPallet(edtOudeCode.Text,'');
-        pcHernoemPallet.ActivePageIndex := 1;
       end else
-        pcHernoemPallet.ActivePageIndex := 2;
+        pcHernoemPallet.ActivePage := tsNieuweCode;
     end;
-  end else if pcHernoemPallet.ActivePageIndex = 1 then begin
-    pcHernoemPallet.ActivePageIndex := 2;
-  end else if pcHernoemPallet.ActivePageIndex = 2 then begin
+  end else if pcHernoemPallet.ActivePage = tsResultaat then begin
+    pcHernoemPallet.ActivePage := tsNieuweCode;
+  end else if pcHernoemPallet.ActivePage = tsNieuweCode then begin
     if StartsText('K',edtOudeCode.Text) and not (TCommonFunctions.IsKaderdeurLocatie(edtNieuweCode.Text)) then begin
       ToonPopupScherm('Hier moet een kaderdeurlocatie ingescand worden.','Probeer opnieuw','');
       edtNieuweCode.Text := '';
@@ -182,11 +181,12 @@
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','') ;
-      pcHernoemPallet.ActivePageIndex := 0;
+      edtOudeCode.Text := '';
+      pcHernoemPallet.ActivePage := tsOudeCode;
     end else begin
       if NieuweCode = '' then begin
         VulGridMetToeleveringData(Response.DnaCodes);
-        pcHernoemPallet.ActivePageIndex := 1;
+        pcHernoemPallet.ActivePage := tsResultaat;
       end else begin
         ToonPopupScherm(Response.Header.Omschrijving, 'OK','',19,-1,-1,clGreen);
         Self.ModalResult := mrHome;
@@ -206,7 +206,7 @@
 begin
   btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actVolgende;
-  pcHernoemPallet.ActivePageIndex := 0;
+  pcHernoemPallet.ActivePage := tsOudeCode;
   edtOudeCode.Text := '';
   edtNieuweCode.Text := '';
   lblNieuweCode.Caption := 'Scan nieuwe pallet- of DNA-Code';