Index: ProScan/WS/Agent.pas =================================================================== diff -u -r492 -r512 --- ProScan/WS/Agent.pas (.../Agent.pas) (revision 492) +++ ProScan/WS/Agent.pas (.../Agent.pas) (revision 512) @@ -24,7 +24,7 @@ function ZoekViaPalletCode(PalletCode: string): ZoekViaPalletCodeResponse; function DnaCodeAfmelden(DnaCode, Toelevering, PalletCode: string; Aantal: integer; Locatie: string): DnaCodeAfmeldenResponse; function ZoekViaToelevering(Toelevering: string): ZoekViaToeleveringResponse; - function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse; + function HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse; function IsDirecteLevering(Toelevering: string): DirecteLeveringResponse; function PalletBijwerken(Pallet: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): PalletBijwerkenResponse; function ToeleveringBijwerken(Toelevering: string; Status: DnaCodeStatus; IsDirecteLevering: boolean): ToeleveringBijwerkenResponse; @@ -147,7 +147,7 @@ end; end; -function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string): HernoemPalletResponse; +function TAgent.HernoemPallet(OudeCode, NieuweCode, EnkelDezeDnaCode: string; OokEWMSverwerken: boolean): HernoemPalletResponse; var Request: HernoemPalletRequest; Header: DnaCodeService.RequestHeader; @@ -161,6 +161,7 @@ Request.OudeCode := OudeCode; Request.NieuweCode := NieuweCode; Request.EnkelDezeDnaCode := EnkelDezeDnaCode; + Request.OokEWMSverwerken := OokEWMSverwerken; result := fDnaCodeServiceSoap.HernoemPallet(Request); finally