Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r491 -r512 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 491) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 512) @@ -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 -// (19/10/2020 8:33:37 - - $Rev: 45757 $) +// (18/11/2020 8:49:28 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -157,15 +157,20 @@ FNieuweCode: string; FEnkelDezeDnaCode: string; FEnkelDezeDnaCode_Specified: boolean; + FOokEWMSverwerken: Boolean; + FOokEWMSverwerken_Specified: boolean; procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); function EnkelDezeDnaCode_Specified(Index: Integer): boolean; + procedure SetOokEWMSverwerken(Index: Integer; const ABoolean: Boolean); + function OokEWMSverwerken_Specified(Index: Integer): boolean; public destructor Destroy; override; published property Header: RequestHeader read FHeader write FHeader; property OudeCode: string read FOudeCode write FOudeCode; property NieuweCode: string read FNieuweCode write FNieuweCode; property EnkelDezeDnaCode: string Index (IS_OPTN) read FEnkelDezeDnaCode write SetEnkelDezeDnaCode stored EnkelDezeDnaCode_Specified; + property OokEWMSverwerken: Boolean Index (IS_OPTN) read FOokEWMSverwerken write SetOokEWMSverwerken stored OokEWMSverwerken_Specified; end; @@ -1206,6 +1211,17 @@ Result := FEnkelDezeDnaCode_Specified; end; +procedure HernoemPalletRequest.SetOokEWMSverwerken(Index: Integer; const ABoolean: Boolean); +begin + FOokEWMSverwerken := ABoolean; + FOokEWMSverwerken_Specified := True; +end; + +function HernoemPalletRequest.OokEWMSverwerken_Specified(Index: Integer): boolean; +begin + Result := FOokEWMSverwerken_Specified; +end; + destructor DirecteLeveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader);