Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r277 -r278
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 277)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 278)
@@ -35,7 +35,7 @@
   private
     fImagesScherm: TImagesScherm;
     procedure MeldDnaCodeAf();
-    procedure ZetToeleveringStatus(Status: DnaCodeStatus);
+    procedure ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
     procedure ToeleveringDataOphalen();
     procedure VerwerkMogelijkePopups(EersteDnaCode: DnaCode);
     function BepaalAantalLadesOpHuidigePallet: integer;
@@ -83,6 +83,7 @@
   fImagesScherm.ilAlgemeen64.GetIcon(9, imgPallet.Picture.Icon);
   fImagesScherm.ilAlgemeen64.GetIcon(10, imgLaatstGescand.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(4, imgWegwerpPallet.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
   if not (UiContext.Toelevering = '') then
     ToeleveringDataOphalen()
   else begin
@@ -105,18 +106,19 @@
 var
   fWaarschuwingModalResult: TModalResult;
   fAantalLadesOpHuidigePallet: integer;
+  fIsDirecteLevering: boolean;
 begin
   inherited;
   fAantalLadesOpHuidigePallet := BepaalAantalLadesOpHuidigePallet;
   if fAantalLadesOpHuidigePallet > 0 then begin
     fWaarschuwingModalResult := ToonPopupScherm(lblHuidigePalletData.Caption+' volledig?'+#13#10+inttostr(fAantalLadesOpHuidigePallet)+' lades','Ja','Annuleren',14,6,7);
     if fWaarschuwingModalResult = mrYes then begin
-      if BepaalDirecteLevering then begin
+      fIsDirecteLevering := BepaalDirecteLevering;
+      if fIsDirecteLevering then begin
         ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
-        fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
         imgDirecteLevering.Visible := true;
       end;
-      PalletBijwerken(DnaCodeStatus.InBuffer,BepaalDirecteLevering);
+      PalletBijwerken(DnaCodeStatus.InBuffer,fIsDirecteLevering);
       Self.ModalResult := mrPallet;
     end else begin
       Self.ModalResult := mrDnaCode;
@@ -132,7 +134,11 @@
 begin
   inherited;
   if lblAantalGescand.Caption = lblTotaalAantal.Caption then begin
-    ZetToeleveringStatus(DnaCodeStatus.InBuffer);
+    if BepaalDirecteLevering then begin
+      ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
+      imgDirecteLevering.Visible := true;
+    end;
+    ZetToeleveringStatus(DnaCodeStatus.InBuffer, BepaalDirecteLevering);
     if Self.ModalResult = mrPallet then begin
       ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen);
       DrukProboxEtiketAfIndienNodig;
@@ -299,13 +305,10 @@
   if EersteDnaCode.IsDirecteLevering then begin
     if not UiContext.IsDirecteLeveringPopupGetoond then begin
       ToonPopupScherm('Directe levering', 'OK','',15,-1,-1,clBlue);
-      fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
-      imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
       UiContext.IsDirecteLeveringPopupGetoond := true;
     end;
-  end else begin
-    imgDirecteLevering.Visible := false;
   end;
+  imgDirecteLevering.Visible := EersteDnaCode.IsDirecteLevering;
 
   if EersteDnaCode.IsWegwerpPallet then begin
     if not UiContext.IsWegwerpPalletPopupGetoond then begin
@@ -343,11 +346,11 @@
 
 end;
 
-procedure TfmDnaCodeScherm.ZetToeleveringStatus(Status: DnaCodeStatus);
+procedure TfmDnaCodeScherm.ZetToeleveringStatus(Status: DnaCodeStatus; isDirecteLevering: boolean = false);
 var
   Response: ToeleveringBijwerkenResponse;
 begin
-  Response := TAgent.Create(UiContext).ToeleveringBijwerken(UiContext.Toelevering,Status,false);
+  Response := TAgent.Create(UiContext).ToeleveringBijwerken(UiContext.Toelevering,Status,isDirecteLevering);
   try
     if Response.Header.Status <> '200' then begin
       Self.ModalResult := mrDnaCode;