Index: ProScan/UI/DnaCodeScherm.pas
===================================================================
diff -u -r624 -r696
--- ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 624)
+++ ProScan/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 696)
@@ -25,10 +25,11 @@
     imgPallet: TImage;
     imgLaatstGescand: TImage;
     imgExport: TImage;
+    imgBlumXs: TImage;
     lblAantalOpPallet: TLabel;
+    imgKartonnenPallet: TImage;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
-    procedure actHomeExecute(Sender: TObject);
     procedure actAfrondenExecute(Sender: TObject);
     procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
     procedure FormCreate(Sender: TObject);
@@ -53,6 +54,8 @@
     procedure ZetAfrondActieStatus(actief: boolean);
     function GeefJuisteToelevering(fDnaCodeAfmeldenResponse: DnaCodeAfmeldenResponse; fDnaCode: string): string;
     function GeefAantalOpPallet(Palletcode: String): integer;
+    procedure GenereerTbpCode(DnaCode: DnaCode);
+    procedure ZetPalletContext(PalletCode: string);
   public
   end;
 
@@ -82,7 +85,6 @@
 procedure TfmDnaCodeScherm.FormShow(Sender: TObject);
 begin
   btnLinksOnder.Action := actPallet;
-  btnCentraalOnder.Action := actHome;
   btnRechtsOnder.Action := actAfronden;
   edtDnaCode.Text := '';
   lblHuidigePalletData.Caption := UiContext.Pallet;
@@ -97,6 +99,8 @@
   fImagesScherm.ilAlgemeen32.GetIcon(5, imgWegwerpPallet.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(3, imgDirecteLevering.Picture.Icon);
   fImagesScherm.ilAlgemeen32.GetIcon(4, imgExport.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(6, imgBlumXs.Picture.Icon);
+  fImagesScherm.ilAlgemeen32.GetIcon(7, imgKartonnenPallet.Picture.Icon);
 
   if UiContext.Modus = modusVHOSS then begin
      VhossDataOphalen();
@@ -107,25 +111,15 @@
       imgDirecteLevering.Visible := false;
       imgWegwerpPallet.Visible := false;
       imgExport.Visible := false;
+      imgBlumXs.Visible := false;
+      imgKartonnenPallet.Visible := false;
     end;
   end;
   ZetIcoontjesBovenaan;
   edtDnaCode.SetFocus;
   inherited;
 end;
 
-procedure TfmDnaCodeScherm.actHomeExecute(Sender: TObject);
-begin
-  inherited;
-  if UiContext.Modus = modusVhoss then begin
-    UiContext.Pallet := '';
-    UiContext.Toelevering := '';
-    UiContext.BatchId := '';
-  end;
-  PostMessage(Self.Handle,WM_Close,0,0);
-  (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
-end;
-
 procedure TfmDnaCodeScherm.actPalletExecute(Sender: TObject);
 var
   fAantalLadesOpHuidigePallet: integer;
@@ -169,8 +163,10 @@
       end else begin
         Self.ModalResult := mrDnaCode;
       end;
-    end else
+    end else begin
+      UiContext.Pallet := '';
       Self.ModalResult := mrPallet;
+    end;
   finally
     ZetAfrondActieStatus(true);
     PostMessage(Self.Handle,WM_Close,0,0);
@@ -249,7 +245,9 @@
   if UiContext.LaatsteDnaCode = '' then
     exit;
 
-  if StartsText('O1',UiContext.Pallet) then begin
+  if UiContext.Pallet = '' then begin
+    result := 0;
+  end else if StartsText('O1',UiContext.Pallet) then begin
     fAgent := TAgent.Create(UiContext);
     fZoekAlleVhossLadesBijDnaCodeResponse := fAgent.ZoekAlleVhossLadesBijDnaCode(UiContext.LaatsteDnaCode);
     fAgent.Free;
@@ -285,7 +283,6 @@
   fDirecteLeveringResponse: DirecteLeveringResponse;
   fAgent: TAgent;
 begin
-  result := false;
   fAgent := TAgent.Create(UiContext);
   fDirecteLeveringResponse := fAgent.IsDirecteLevering(UiContext.Toelevering);
   fAgent.Free;
@@ -349,6 +346,8 @@
 
 procedure TfmDnaCodeScherm.MeldDnaCodeAf;
 var
+  fZoekViaDnaCodeResponse: ZoekViaDnaCodeResponse;
+  fDnaCode: DnaCode;
   Response: DnaCodeAfmeldenResponse;
   List: TStrings;
   Locatie: string;
@@ -357,6 +356,20 @@
   if edtDnaCode.Text = '' then
     exit;
 
+  if UiContext.MoetTbpCodeGenereren then begin
+    fAgent := TAgent.Create(UiContext);
+    fZoekViaDnaCodeResponse := fAgent.ZoekViaDnaCode(edtDnaCode.Text);
+    fAgent.Free;
+
+    if fZoekViaDnaCodeResponse.Header.Status <> '200' then begin
+      ToonPopupScherm(fZoekViaDnaCodeResponse.Header.Omschrijving, 'Probeer opnieuw')
+    end else begin
+      fDnaCode := fZoekViaDnaCodeResponse.DnaCodes;
+      GenereerTbpCode(fDnaCode);
+      UiContext.MoetTbpCodeGenereren := false;
+    end;
+  end;
+
   UiContext.LaatsteDnaCode := edtDnaCode.Text;
   lblLaatstGescandData.Caption := edtDnaCode.Text;
 
@@ -389,8 +402,13 @@
                Self.ModalResult := mrDnaCodeReedsGescand;
                UiContext.LaatsteDnaCodeGoedAfgemeld := false;
              end;
+       -1021: begin //Geen geldige DNA code
+               Self.ModalResult := mrDnaCode;
+               ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
+               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
+             end;
        else begin
-              Self.ModalResult := mrDnaCode;
+              Self.ModalResult := mrPallet;
               ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw');
               UiContext.LaatsteDnaCodeGoedAfgemeld := false;
             end;
@@ -402,6 +420,31 @@
   (Self.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(Self.ModalResult);
 end;
 
+procedure TfmDnaCodeScherm.GenereerTbpCode(DnaCode: DnaCode);
+var
+  fGeefVolgendeTbpCodeResponse: GeefVolgendeTbpCodeResponse;
+  fTbpCode: string;
+  fAgent: TAgent;
+begin
+  inherited;
+  fAgent := TAgent.Create(UiContext);
+  fGeefVolgendeTbpCodeResponse := fAgent.GeefVolgendeTbpCode(DnaCode.Toelevering, DnaCode.ProductNummer);
+  fAgent.Free;
+  try
+    if fGeefVolgendeTbpCodeResponse.Header.Status <> '200' then begin
+      Self.ModalResult := mrPallet;
+      ToonPopupScherm(fGeefVolgendeTbpCodeResponse.Header.Omschrijving, 'Probeer opnieuw');
+      fTbpCode := '';
+    end else begin
+      fTbpCode := fGeefVolgendeTbpCodeResponse.VolgendeTbpCode;
+      UiContext.Toelevering := '';
+    end;
+    ZetPalletContext(fTbpCode);
+  finally
+    fGeefVolgendeTbpCodeResponse.Free;
+  end;
+end;
+
 function TfmDnaCodeScherm.GeefJuisteToelevering(fDnaCodeAfmeldenResponse: DnaCodeAfmeldenResponse; fDnaCode: string): string;
 var
   fDnaCodeTeller: integer;
@@ -569,7 +612,7 @@
     if not UiContext.IsExportPopupGetoond then begin
       try
         fAgent := TAgent.Create(UiContext);
-        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false, false, false);
         fAgent.Free;
         while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
           if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
@@ -588,7 +631,52 @@
       imgExport.Visible := true;
     end;
 
+    ii := 0;
+    if not UiContext.IsBlumXsPopupGetoond then begin
+      try
+        fAgent := TAgent.Create(UiContext);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false, false, false);
+        fAgent.Free;
+        while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
+             if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].IsBlumXs then begin
+                ToonPopupScherm('Blum XS', 'OK','',22,-1,-1,clWebDarkOrange);
+                UiContext.IsBlumXsPopupGetoond := true;
+                imgBlumXs.Visible := true;
+             end;
+          end;
+          ii := ii + 1;
+        end;
+      finally
+        fBewerkKlantinstellingenResponse.Free;
+      end;
+    end else begin
+      imgBlumXs.Visible := true;
+    end;
 
+    ii := 0;
+    if not UiContext.IsKartonnenPalletPopupGetoond then begin
+      try
+        fAgent := TAgent.Create(UiContext);
+        fBewerkKlantinstellingenResponse := fAgent.BewerkKlantinstellingen('List','',false, false, false, false, false, false);
+        fAgent.Free;
+        while ii <= length(fBewerkKlantinstellingenResponse.Klantinstellingen)-1 do begin
+          if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KlantId = DnaCodes[fIndexEersteRelevanteDnaCode].KlantNummer then begin
+             if fBewerkKlantinstellingenResponse.Klantinstellingen[ii].KartonnenPallet then begin
+                ToonPopupScherm('Kartonnen pallet', 'OK','',23,-1,-1,clRed);
+                UiContext.IsKartonnenPalletPopupGetoond := true;
+                imgKartonnenPallet.Visible := true;
+             end;
+          end;
+          ii := ii + 1;
+        end;
+      finally
+        fBewerkKlantinstellingenResponse.Free;
+      end;
+    end else begin
+      imgKartonnenPallet.Visible := true;
+    end;
+
     Repaint;
   end;
 end;
@@ -599,7 +687,6 @@
     pnlLinksOnder.Color := $001717CD;
     actPallet.OnExecute := actPalletExecute;
     pnlCentraalOnder.Color := $001717CD;
-    actHome.OnExecute := actHomeExecute;
     pnlRechtsOnder.Color := $001717CD;
     actAfronden.OnExecute := actAfrondenExecute;
   end else begin
@@ -608,7 +695,6 @@
     pnlRechtsOnder.Color := clGray;
     actAfronden.OnExecute := nil;
     actPallet.OnExecute := nil;
-    actHome.OnExecute := nil;
   end;
   Repaint;
 end;
@@ -813,12 +899,26 @@
   fZoekViaPalletCodeResponse: ZoekViaPalletCodeResponse;
   fAantal: integer;
 begin
-  fAgent := TAgent.Create(UiContext);
-  fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(PalletCode);
-  fAgent.Free;
-  fAantal := length(fZoekViaPalletCodeResponse.DnaCodes);
-  fZoekViaPalletCodeResponse.Free;
+  if (UiContext.MoetTbpCodeGenereren = true) then begin
+    fAantal := 0;
+  end else begin
+    fAgent := TAgent.Create(UiContext);
+    fZoekViaPalletCodeResponse := fAgent.ZoekViaPalletCode(PalletCode);
+    fAgent.Free;
+    fAantal := length(fZoekViaPalletCodeResponse.DnaCodes);
+    fZoekViaPalletCodeResponse.Free;
+  end;
   Result := fAantal;
 end;
 
+procedure TfmDnaCodeScherm.ZetPalletContext(PalletCode: string);
+begin
+  if TCommonFunctions.IsKaderdeurLocatie(PalletCode) then
+    UiContext.Pallet := PalletCode
+  else
+    UiContext.Pallet := UpperCase(PalletCode);
+
+  lblHuidigePalletData.Caption := UiContext.Pallet;
+end;
+
 end.