Index: AAPClient/WS/DnaCodeService.pas =================================================================== diff -u -r257 -r315 --- AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 257) +++ AAPClient/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 315) @@ -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 -// (13/02/2020 14:45:19 - - $Rev: 45757 $) +// (16/03/2020 11:37:39 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -31,6 +31,7 @@ // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] @@ -80,7 +81,6 @@ end; ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - Horolog = type string; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } // ************************************************************************ // @@ -107,7 +107,7 @@ FLijn_Specified: boolean; FInitialenScanner: string; FInitialenScanner_Specified: boolean; - FScanTijdstip: Horolog; + FScanTijdstip: TXSDateTime; FScanTijdstip_Specified: boolean; FLadeCode: string; FLadeCode_Specified: boolean; @@ -121,6 +121,8 @@ FSequentieNummer_Specified: boolean; FIsWegwerpPallet: Boolean; FIsWegwerpPallet_Specified: boolean; + FBatchId: string; + FBatchId_Specified: boolean; procedure SetAxProductieOrderNummer(Index: Integer; const Astring: string); function AxProductieOrderNummer_Specified(Index: Integer): boolean; procedure SetProductNummer(Index: Integer; const Astring: string); @@ -139,7 +141,7 @@ function Lijn_Specified(Index: Integer): boolean; procedure SetInitialenScanner(Index: Integer; const Astring: string); function InitialenScanner_Specified(Index: Integer): boolean; - procedure SetScanTijdstip(Index: Integer; const AHorolog: Horolog); + procedure SetScanTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); function ScanTijdstip_Specified(Index: Integer): boolean; procedure SetLadeCode(Index: Integer; const Astring: string); function LadeCode_Specified(Index: Integer): boolean; @@ -153,6 +155,10 @@ function SequentieNummer_Specified(Index: Integer): boolean; procedure SetIsWegwerpPallet(Index: Integer; const ABoolean: Boolean); function IsWegwerpPallet_Specified(Index: Integer): boolean; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; + public + destructor Destroy; override; 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; @@ -163,13 +169,14 @@ property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; property Lijn: string Index (IS_OPTN) read FLijn write SetLijn stored Lijn_Specified; property InitialenScanner: string Index (IS_OPTN) read FInitialenScanner write SetInitialenScanner stored InitialenScanner_Specified; - property ScanTijdstip: Horolog Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified; + property ScanTijdstip: TXSDateTime Index (IS_OPTN) read FScanTijdstip write SetScanTijdstip stored ScanTijdstip_Specified; property LadeCode: string Index (IS_OPTN) read FLadeCode write SetLadeCode stored LadeCode_Specified; property Status: DnaCodeStatus Index (IS_OPTN) read FStatus write SetStatus stored Status_Specified; property IsDirecteLevering: Boolean Index (IS_OPTN) read FIsDirecteLevering write SetIsDirecteLevering stored IsDirecteLevering_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; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; @@ -238,10 +245,14 @@ FToelevering: string; FToelevering_Specified: boolean; FPalletCode: string; + FLocatie: string; + FLocatie_Specified: boolean; procedure SetAantal(Index: Integer; const AInt64: Int64); function Aantal_Specified(Index: Integer): boolean; procedure SetToelevering(Index: Integer; const Astring: string); function Toelevering_Specified(Index: Integer): boolean; + procedure SetLocatie(Index: Integer; const Astring: string); + function Locatie_Specified(Index: Integer): boolean; public destructor Destroy; override; published @@ -250,6 +261,7 @@ property Aantal: Int64 Index (IS_OPTN) read FAantal write SetAantal stored Aantal_Specified; property Toelevering: string Index (IS_OPTN) read FToelevering write SetToelevering stored Toelevering_Specified; property PalletCode: string read FPalletCode write FPalletCode; + property Locatie: string Index (IS_OPTN) read FLocatie write SetLocatie stored Locatie_Specified; end; @@ -681,6 +693,12 @@ end; +destructor DnaCode.Destroy; +begin + SysUtils.FreeAndNil(FScanTijdstip); + inherited Destroy; +end; + procedure DnaCode.SetAxProductieOrderNummer(Index: Integer; const Astring: string); begin FAxProductieOrderNummer := Astring; @@ -780,9 +798,9 @@ Result := FInitialenScanner_Specified; end; -procedure DnaCode.SetScanTijdstip(Index: Integer; const AHorolog: Horolog); +procedure DnaCode.SetScanTijdstip(Index: Integer; const ATXSDateTime: TXSDateTime); begin - FScanTijdstip := AHorolog; + FScanTijdstip := ATXSDateTime; FScanTijdstip_Specified := True; end; @@ -857,6 +875,17 @@ Result := FIsWegwerpPallet_Specified; end; +procedure DnaCode.SetBatchId(Index: Integer; const Astring: string); +begin + FBatchId := Astring; + FBatchId_Specified := True; +end; + +function DnaCode.BatchId_Specified(Index: Integer): boolean; +begin + Result := FBatchId_Specified; +end; + destructor ZoekViaToeleveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -903,6 +932,17 @@ Result := FToelevering_Specified; end; +procedure DnaCodeAfmeldenRequest.SetLocatie(Index: Integer; const Astring: string); +begin + FLocatie := Astring; + FLocatie_Specified := True; +end; + +function DnaCodeAfmeldenRequest.Locatie_Specified(Index: Integer): boolean; +begin + Result := FLocatie_Specified; +end; + destructor GeneriekeResponse.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1148,7 +1188,6 @@ RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); - RemClassRegistry.RegisterXSInfo(TypeInfo(Horolog), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Horolog'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest');