Index: AAPClient/WS/Agent.pas
===================================================================
diff -u -r196 -r197
--- AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 196)
+++ AAPClient/WS/Agent.pas	(.../Agent.pas)	(revision 197)
@@ -21,6 +21,9 @@
     function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer): DnaCodeAfmeldenResponse;
     function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse;
     function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse;
+    function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
+    function PalletBijwerken(Pallet: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): PalletBijwerkenResponse;
+    function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
   end;
 
 implementation
@@ -134,6 +137,78 @@
   end;
 end;
 
+function TAgent.IsDirecteLevering(Toelevering: string): DirecteLeveringResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: DirecteLeveringRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := DirecteLeveringRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.Toelevering := Toelevering;
+
+    result := Service.IsDirecteLevering(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
+function TAgent.PalletBijwerken(Pallet: string; Status: DnaCodeStatus;
+  IsDirecteLevering: boolean): PalletBijwerkenResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: PalletBijwerkenRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := PalletBijwerkenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.Pallet := Pallet;
+    Request.Status := Status;
+    Request.IsGlsDirect := IsDirecteLevering;
+
+    result := Service.PalletBijwerken(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
+function TAgent.ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus;
+  IsDirecteLevering: boolean): ToeleveringBijwerkenResponse;
+var
+  Service: DnaCodeServiceSoap;
+  Request: ToeleveringBijwerkenRequest;
+  Header: DnaCodeService.RequestHeader;
+begin
+  Service := DnaCodeService.GetDnaCodeServiceSoap();
+
+  Request := ToeleveringBijwerkenRequest.Create;
+  Header := DnaCodeService.RequestHeader.Create;
+  try
+    Header.Initialen := fUiContext.Initialen;
+    Header.ComputerNaam := FullName();
+    Request.Header := Header;
+    Request.Toelevering := Toelevering;
+    Request.Status := Status;
+    Request.IsGlsDirect := IsDirecteLevering;
+
+    result := Service.ToeleveringBijwerken(Request);
+  finally
+    Request.Free;
+  end;
+end;
+
 function TAgent.ValideerPalletCode(PalletCode: string): ValideerPalletCodeResponse;
 var
   Service: DnaCodeServiceSoap;