Index: AAPClient/ProScan.identcache
===================================================================
diff -u -r134 -r175
Binary files differ
Index: AAPClient/UI/DnaCodeReedsGescandScherm.pas
===================================================================
diff -u -r174 -r175
--- AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 174)
+++ AAPClient/UI/DnaCodeReedsGescandScherm.pas	(.../DnaCodeReedsGescandScherm.pas)	(revision 175)
@@ -116,7 +116,8 @@
     edtPallet.SetFocus;
 end;
 
-procedure TfmDnaCodeReedsGescandScherm.Verplaatsen;var
+procedure TfmDnaCodeReedsGescandScherm.Verplaatsen;
+var
   Service: DnaCodeServiceSoap;
   Request: HernoemPalletRequest;
   Response: HernoemPalletResponse;
Index: AAPClient/WS/DnaCodeService.pas
===================================================================
diff -u -r172 -r175
--- AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 172)
+++ AAPClient/WS/DnaCodeService.pas	(.../DnaCodeService.pas)	(revision 175)
@@ -5,7 +5,7 @@
 //  >Import : http://tve-w10:57772/csp/dev1/WS.Halux.AAP.DnaCodeService.CLS?WSDL=1>0
 // Encoding : UTF-8
 // Version  : 1.0
-// (26/09/2019 8:53:19 - - $Rev: 45757 $)
+// (1/10/2019 13:49:36 - - $Rev: 45757 $)
 // ************************************************************************ //
 
 unit DnaCodeService;
@@ -424,6 +424,8 @@
     FParentDnaCode_Specified: boolean;
     FSequentieNummer: string;
     FSequentieNummer_Specified: boolean;
+    FIsWegwerpPallet: Boolean;
+    FIsWegwerpPallet_Specified: boolean;
     procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string);
     function  AxProductieOrderNummer_Specified(Index: Integer): boolean;
     procedure SetProductNummer(Index: Integer; const Astring: string);
@@ -454,6 +456,8 @@
     function  ParentDnaCode_Specified(Index: Integer): boolean;
     procedure SetSequentieNummer(Index: Integer; const Astring: string);
     function  SequentieNummer_Specified(Index: Integer): boolean;
+    procedure SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean);
+    function  IsWegwerpPallet_Specified(Index: Integer): boolean;
   published
     property AxProductieOrderNummer: string         Index (IS_OPTN) read FAxProductieOrderNummer write SetAxProductieOrderNummer stored AxProductieOrderNummer_Specified;
     property ProductNummer:          string         Index (IS_OPTN) read FProductNummer write SetProductNummer stored ProductNummer_Specified;
@@ -470,6 +474,7 @@
     property IsGlsDirect:            Boolean        Index (IS_OPTN) read FIsGlsDirect write SetIsGlsDirect stored IsGlsDirect_Specified;
     property ParentDnaCode:          string         Index (IS_OPTN) read FParentDnaCode write SetParentDnaCode stored ParentDnaCode_Specified;
     property SequentieNummer:        string         Index (IS_OPTN) read FSequentieNummer write SetSequentieNummer stored SequentieNummer_Specified;
+    property IsWegwerpPallet:        Boolean        Index (IS_OPTN) read FIsWegwerpPallet write SetIsWegwerpPallet stored IsWegwerpPallet_Specified;
   end;
 
 
@@ -912,6 +917,17 @@
   Result := FSequentieNummer_Specified;
 end;
 
+procedure DnaCode.SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean);
+begin
+  FIsWegwerpPallet := ABoolean;
+  FIsWegwerpPallet_Specified := True;
+end;
+
+function DnaCode.IsWegwerpPallet_Specified(Index: Integer): boolean;
+begin
+  Result := FIsWegwerpPallet_Specified;
+end;
+
 initialization
   { DnaCodeServiceSoap }
   InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8');
Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r170 -r175
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 170)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 175)
@@ -161,7 +161,10 @@
                  lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
                  imgInfo.Visible := true;
                  if Response.DnaCodes[0].IsGlsDirect then begin
-                   ToonPopupScherm('GLS DIRECT', 'OK');
+                   ToonPopupScherm('GLS Direct', 'OK');
+                 end;
+                 if Response.DnaCodes[0].IsWegwerpPallet then begin
+                   ToonPopupScherm('Wegwerppallet', 'OK');
                    imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
                  end;
                  Self.ModalResult := mrDnaCode;