Index: ProScan/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r396 -r669
--- ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 396)
+++ ProScan/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 669)
@@ -13,8 +13,9 @@
     lblScanPallet: TLabel;
     btnVerplaatsen: TButton;
     btnWegnemen: TButton;
-    btnTerug: TButton;
     lblBestaandeDnaCode: TLabel;
+    btnTerug: TButton; //deze staat invisible, want de onderste button geeft een AV... geen tijd gehad om verder uit te zoeken
+    btnTerugZonderAV: TButton;
     procedure FormShow(Sender: TObject);
     procedure edtPalletKeyUp(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -74,16 +75,16 @@
 
 procedure TfmDnaCodeReedsGescandScherm.FormShow(Sender: TObject);
 begin
-  inherited;
   edtPallet.Enabled := False;
   edtPallet.Visible := False;
   lblScanPallet.Visible := False;
   lblBestaandeDnaCode.Caption := 'Bestaande DNA-Code: '+TCommonFunctions.VerkorteDnaCode(UiContext.LaatsteDnaCode);
   if UiContext.Modus = modusKAD then begin
       btnWegnemen.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
-      btnVerplaatsen.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
-      lblScanPallet.Caption := StringReplace(btnWegnemen.Caption,'pallet','locatie',[rfReplaceAll]);
+      btnVerplaatsen.Caption := StringReplace(btnVerplaatsen.Caption,'pallet','locatie',[rfReplaceAll]);
+      lblScanPallet.Caption := StringReplace(lblScanPallet.Caption,'pallet','locatie',[rfReplaceAll]);
   end;
+  inherited;
 end;
 
 procedure TfmDnaCodeReedsGescandScherm.SetPalletControlsVisibility(
@@ -99,15 +100,24 @@
 procedure TfmDnaCodeReedsGescandScherm.Verplaatsen;
 var
   Response: HernoemPalletResponse;
+  fAgent: TAgent;
 begin
+  if TCommonFunctions.IsFrameId(edtPallet.Text) then begin
+    ToonPopupScherm('Je kan hier geen Vhoss inscannen', 'Probeer opnieuw','');
+    exit;
+  end;
+
   if not TCommonFunctions.IsKaderdeurLocatie(edtPallet.Text) then
     edtPallet.Text := UpperCase(edtPallet.Text);
-  Response := TAgent.Create(UiContext).HernoemPallet(UiContext.Pallet, edtPallet.Text, UiContext.LaatsteDnaCode);
+
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.HernoemPallet(UiContext.Pallet, edtPallet.Text, UiContext.LaatsteDnaCode, false);
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
     end else begin
-      ToonPopupScherm(Response.Header.Omschrijving, 'OK','');
+      ToonPopupScherm(Response.Header.Omschrijving, 'OK','',19,-1,-1,clGreen);
       Self.ModalResult := mrDnaCode;
     end;
   finally
@@ -122,8 +132,11 @@
 procedure TfmDnaCodeReedsGescandScherm.Wegnemen;
 var
   Response: DnaCodeAfmeldenResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).DnaCodeAfmelden(UiContext.LaatsteDnaCode,UiContext.Toelevering,UiContext.Pallet,-1,'');
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.DnaCodeAfmelden(UiContext.LaatsteDnaCode,UiContext.Toelevering,UiContext.Pallet,-1,'');
+  fAgent.Free;
   try
     if Response.Header.Status <> '200' then begin
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw','')
@@ -138,8 +151,11 @@
 function TfmDnaCodeReedsGescandScherm.GeefStatusVanDnaCode(Code: string): DnaCodeStatus;
 var
   Response: ZoekViaDnaCodeResponse;
+  fAgent: TAgent;
 begin
-  Response := TAgent.Create(UiContext).ZoekViaDnaCode(Code);
+  fAgent := TAgent.Create(UiContext);
+  Response := fAgent.ZoekViaDnaCode(Code);
+  fAgent.Free;
   try
     begin
         result := DnaCodeStatus(Response.DnaCodes);