Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r482 -r486
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 482)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 486)
@@ -39,7 +39,7 @@
     procedure ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
     procedure ToeleveringDataOphalen();
     procedure VhossDataOphalen();
-    procedure VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
+    procedure VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String);
     function BepaalAantalLadesOpHuidigePallet: integer;
     function BepaalDirecteLevering: boolean;
     procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
@@ -322,7 +322,7 @@
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                ZetInfoIcoontjeZichtbaar;
                ZetIcoontjesBovenaan;
-               VerwerkMogelijkePopups(Response.DnaCodes[0]);
+               VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering);
                Self.ModalResult := mrDnaCode;
              end;
        1005: begin //reeds gescand
@@ -383,7 +383,7 @@
       lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
       ZetInfoIcoontjeZichtbaar;
       ZetIcoontjesBovenaan;
-      VerwerkMogelijkePopups(Response.DnaCodes[0]);
+      VerwerkMogelijkePopups(Response.DnaCodes, UiContext.Toelevering);
       Self.ModalResult := mrDnaCode;
     end;
   finally
@@ -461,28 +461,28 @@
   end;
 end;
 
-procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
+procedure TfmDnaCodeScherm.VerwerkMogelijkePopups(DnaCodes: ArrayofDnaCodeDnaCode; Toelevering: String);
 var
   fBewerkKlantinstellingenResponse: BewerkKlantinstellingenResponse;
   ii: integer;
   fAgent: TAgent;
 begin
   if UiContext.Modus = modusDefault then begin
-    if EersteDnaCode.IsDirecteLevering then begin
+    if DnaCodes[0].IsDirecteLevering then begin
       if not UiContext.IsDirecteLeveringPopupGetoond then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
         UiContext.IsDirecteLeveringPopupGetoond := true;
       end;
     end;
-    imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
+    imgDirecteLevering.Visible := DnaCodes[0].IsDirecteLevering;
 
-    if EersteDnaCode.IsWegwerpPallet then begin
+    if DnaCodes[0].IsWegwerpPallet then begin
       if not UiContext.IsWegwerpPalletPopupGetoond then begin
         ToonPopupScherm('Wegwerppallet', 'OK','',16,-1,-1,clYellow);
         UiContext.IsWegwerpPalletPopupGetoond := true;
       end;
     end;
-    imgWegwerpPallet.Visible := EersteDnaCode.IsWegwerpPallet;
+    imgWegwerpPallet.Visible := DnaCodes[0].IsWegwerpPallet;
 
     ii := 0;
     if not UiContext.IsExportPopupGetoond then begin
@@ -491,7 +491,7 @@
         fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
         fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
-          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = EersteDnaCode.KlantNummer then begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[0].KlantNummer then begin
              if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsExport then begin
                 ToonPopupScherm('Export', 'OK','',21,-1,-1,clRed);
                 UiContext.IsExportPopupGetoond := true;