Index: PlanScan/PlanScan.dpr =================================================================== diff -u -r349 -r360 --- PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 349) +++ PlanScan/PlanScan.dpr (.../PlanScan.dpr) (revision 360) @@ -10,12 +10,12 @@ Agent in 'WS\Agent.pas', UiContext in 'UI\UiContext.pas', Images in 'UI\Images.pas', - DnaCodeService in 'WS\DnaCodeService.pas', GebruikerService in 'WS\GebruikerService.pas', LoginScherm in 'UI\LoginScherm.pas' {fmLogin}, MidasLib, frameDnaCodes in 'UI\frameDnaCodes.pas' {frmDnaCodes: TFrame}, - frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame}; + frameGebruikers in 'UI\frameGebruikers.pas' {frmGebruikers: TFrame}, + DnaCodeService in 'WS\DnaCodeService.pas'; {$R *.res} Index: PlanScan/PlanScan.dproj =================================================================== diff -u -r349 -r360 --- PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 349) +++ PlanScan/PlanScan.dproj (.../PlanScan.dproj) (revision 360) @@ -70,7 +70,7 @@ true - server=tve-w10 + server=cacheaccept2010 false @@ -90,7 +90,6 @@ -
fmLogin
@@ -106,6 +105,7 @@ dfm TFrame + Cfg_2 Index: PlanScan/WS/DnaCodeService.pas =================================================================== diff -u -r262 -r360 --- PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 262) +++ PlanScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 360) @@ -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 -// (18/02/2020 11:21:59 - - $Rev: 45757 $) +// (21/04/2020 13:47:34 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -30,45 +30,49 @@ // typically map to predefined/known XML or Embarcadero types; however, they could also // 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] + // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] DataTransferObject = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCode = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } GeneriekeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RequestHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ResponseHeader = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - GeefVolgendeTbpCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } HernoemPalletResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + PalletBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } DnaCodeStatus = (Nieuw, Gescand, Ongedaan, OnHold, InBuffer, InBatch); {$SCOPEDENUMS OFF} + ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // @@ -80,10 +84,24 @@ published end; - ArrayOfDnaCodeDnaCode = array of DnaCode; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // + // XML : GeefVolgendeTbpCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + GeefVolgendeTbpCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + end; + + + + // ************************************************************************ // // XML : DnaCode, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -182,35 +200,35 @@ // ************************************************************************ // - // XML : ZoekViaToeleveringRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaToeleveringRequest = class(TRemotable) + ValideerPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; + FPalletCode: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // - // XML : ZoekViaDnaCodeRequest, global, + // XML : ZoekViaToeleveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekViaDnaCodeRequest = class(TRemotable) + ZoekViaToeleveringRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCode: string; + FToelevering: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; @@ -233,6 +251,23 @@ // ************************************************************************ // + // XML : ZoekViaDnaCodeRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ZoekViaDnaCodeRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCode: string; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: string read FDnaCode write FDnaCode; + end; + + + + // ************************************************************************ // // XML : DnaCodeAfmeldenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -245,10 +280,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 @@ -257,6 +296,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; @@ -277,17 +317,6 @@ // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) - private - published - end; - - - - // ************************************************************************ // // XML : ZoekViaPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -334,6 +363,17 @@ // ************************************************************************ // + // XML : ValideerPalletCodeResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ValideerPalletCodeResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // // XML : ZoekViaDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -408,33 +448,34 @@ property Omschrijving: String_ read FOmschrijving write FOmschrijving; end; - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, + // XML : GeefVolgendeTbpCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) + GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FDnaCodes: ArrayOfStringString; - public - destructor Destroy; override; + FVolgendeTbpCode: string; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; end; // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + RondAfKaderdeurDagRequest = class(TRemotable) private + FHeader: RequestHeader; + FDnaCode: String_; + public + destructor Destroy; override; published + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: String_ read FDnaCode write FDnaCode; end; @@ -451,18 +492,27 @@ // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ToeleveringMetAantallen = class(DataTransferObject) private - FHeader: RequestHeader; - FPalletCode: string; - public - destructor Destroy; override; + FToeleveringID: string; + FToeleveringID_Specified: boolean; + FAantalKaderdeuren: string; + FAantalKaderdeuren_Specified: boolean; + FAantalKaderdeurenGescand: string; + FAantalKaderdeurenGescand_Specified: boolean; + procedure SetToeleveringID(Index: Integer; const Astring: string); + function ToeleveringID_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeuren(Index: Integer; const Astring: string); + function AantalKaderdeuren_Specified(Index: Integer): boolean; + procedure SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); + function AantalKaderdeurenGescand_Specified(Index: Integer): boolean; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property ToeleveringID: string Index (IS_OPTN) read FToeleveringID write SetToeleveringID stored ToeleveringID_Specified; + property AantalKaderdeuren: string Index (IS_OPTN) read FAantalKaderdeuren write SetAantalKaderdeuren stored AantalKaderdeuren_Specified; + property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; @@ -497,56 +547,41 @@ property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; + ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : HernoemPalletRequest, global, + // XML : RondAfKaderdeurDagResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - HernoemPalletRequest = class(TRemotable) + RondAfKaderdeurDagResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FOudeCode: string; - FNieuweCode: string; - FEnkelDezeDnaCode: string; - FEnkelDezeDnaCode_Specified: boolean; - procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); - function EnkelDezeDnaCode_Specified(Index: Integer): boolean; + FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; + FToeleveringMetAantallen_Specified: boolean; + procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); + function ToeleveringMetAantallen_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 ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : GeefVolgendeTbpCodeResponse, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - GeefVolgendeTbpCodeResponse = class(GeneriekeResponse) + DirecteLeveringRequest = class(TRemotable) private - FVolgendeTbpCode: string; - published - property VolgendeTbpCode: string read FVolgendeTbpCode write FVolgendeTbpCode; - end; - - - - // ************************************************************************ // - // XML : GeefVolgendeTbpCodeRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - GeefVolgendeTbpCodeRequest = class(TRemotable) - private FHeader: RequestHeader; + FToelevering: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; @@ -570,22 +605,25 @@ // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + HernoemPalletRequest = class(TRemotable) private FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FOudeCode: string; + FNieuweCode: string; + FEnkelDezeDnaCode: string; + FEnkelDezeDnaCode_Specified: boolean; + procedure SetEnkelDezeDnaCode(Index: Integer; const Astring: string); + function EnkelDezeDnaCode_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Pallet: string read FPallet write FPallet; - property Status: DnaCodeStatus read FStatus write FStatus; - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + 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; end; @@ -604,23 +642,55 @@ // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + ProboxEtiketAfdrukkenRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; + FDnaCodes: ArrayOfStringString; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; + property Header: RequestHeader read FHeader write FHeader; + property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; end; + // ************************************************************************ // + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + PalletBijwerkenResponse = class(GeneriekeResponse) + private + published + end; + + + + // ************************************************************************ // + // XML : PalletBijwerkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + PalletBijwerkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Pallet: string read FPallet write FPallet; + property Status: DnaCodeStatus read FStatus write FStatus; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + end; + + + // ************************************************************************ // + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // soapAction: http://www.vanhoecke.be/Halux/AAP/DnaCode/WS.Halux.AAP.DnaCodeService.%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document @@ -638,6 +708,7 @@ function IsDirecteLevering(const DirecteLeveringRequest: DirecteLeveringRequest): DirecteLeveringResponse; stdcall; function PalletBijwerken(const PalletBijwerkenRequest: PalletBijwerkenRequest): PalletBijwerkenResponse; stdcall; function ProboxEtiketAfdrukken(const ProboxEtiketAfdrukkenRequest: ProboxEtiketAfdrukkenRequest): ProboxEtiketAfdrukkenResponse; stdcall; + function RondAfKaderdeurDag(const RondAfKaderdeurDagRequest: RondAfKaderdeurDagRequest): RondAfKaderdeurDagResponse; stdcall; function ToeleveringBijwerken(const ToeleveringBijwerkenRequest: ToeleveringBijwerkenRequest): ToeleveringBijwerkenResponse; stdcall; function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; @@ -688,6 +759,12 @@ end; +destructor GeefVolgendeTbpCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor DnaCode.Destroy; begin SysUtils.FreeAndNil(FScanTijdstip); @@ -881,13 +958,13 @@ Result := FBatchId_Specified; end; -destructor ZoekViaToeleveringRequest.Destroy; +destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekViaDnaCodeRequest.Destroy; +destructor ZoekViaToeleveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -899,6 +976,12 @@ inherited Destroy; end; +destructor ZoekViaDnaCodeRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -927,6 +1010,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); @@ -1057,42 +1151,73 @@ Result := FDnaCodes_Specified; end; -destructor ProboxEtiketAfdrukkenRequest.Destroy; +destructor RondAfKaderdeurDagRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ValideerPalletCodeRequest.Destroy; +procedure ToeleveringMetAantallen.SetToeleveringID(Index: Integer; const Astring: string); begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; + FToeleveringID := Astring; + FToeleveringID_Specified := True; end; +function ToeleveringMetAantallen.ToeleveringID_Specified(Index: Integer): boolean; +begin + Result := FToeleveringID_Specified; +end; + +procedure ToeleveringMetAantallen.SetAantalKaderdeuren(Index: Integer; const Astring: string); +begin + FAantalKaderdeuren := Astring; + FAantalKaderdeuren_Specified := True; +end; + +function ToeleveringMetAantallen.AantalKaderdeuren_Specified(Index: Integer): boolean; +begin + Result := FAantalKaderdeuren_Specified; +end; + +procedure ToeleveringMetAantallen.SetAantalKaderdeurenGescand(Index: Integer; const Astring: string); +begin + FAantalKaderdeurenGescand := Astring; + FAantalKaderdeurenGescand_Specified := True; +end; + +function ToeleveringMetAantallen.AantalKaderdeurenGescand_Specified(Index: Integer): boolean; +begin + Result := FAantalKaderdeurenGescand_Specified; +end; + destructor ToeleveringBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor HernoemPalletRequest.Destroy; +destructor RondAfKaderdeurDagResponse.Destroy; +var + I: Integer; begin - SysUtils.FreeAndNil(FHeader); + for I := 0 to System.Length(FToeleveringMetAantallen)-1 do + SysUtils.FreeAndNil(FToeleveringMetAantallen[I]); + System.SetLength(FToeleveringMetAantallen, 0); inherited Destroy; end; -procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); +procedure RondAfKaderdeurDagResponse.SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); begin - FEnkelDezeDnaCode := Astring; - FEnkelDezeDnaCode_Specified := True; + FToeleveringMetAantallen := AArrayOfToeleveringMetAantallenToeleveringMetAantallen; + FToeleveringMetAantallen_Specified := True; end; -function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; +function RondAfKaderdeurDagResponse.ToeleveringMetAantallen_Specified(Index: Integer): boolean; begin - Result := FEnkelDezeDnaCode_Specified; + Result := FToeleveringMetAantallen_Specified; end; -destructor GeefVolgendeTbpCodeRequest.Destroy; +destructor DirecteLeveringRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -1119,18 +1244,35 @@ Result := FDnaCodes_Specified; end; -destructor PalletBijwerkenRequest.Destroy; +destructor HernoemPalletRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor DirecteLeveringRequest.Destroy; +procedure HernoemPalletRequest.SetEnkelDezeDnaCode(Index: Integer; const Astring: string); begin + FEnkelDezeDnaCode := Astring; + FEnkelDezeDnaCode_Specified := True; +end; + +function HernoemPalletRequest.EnkelDezeDnaCode_Specified(Index: Integer): boolean; +begin + Result := FEnkelDezeDnaCode_Specified; +end; + +destructor ProboxEtiketAfdrukkenRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; +destructor PalletBijwerkenRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -1154,6 +1296,9 @@ { DnaCodeServiceSoap.ProboxEtiketAfdrukken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ProboxEtiketAfdrukken', '', '[ReturnName="ProboxEtiketAfdrukkenResult"]'); + { DnaCodeServiceSoap.RondAfKaderdeurDag } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'RondAfKaderdeurDag', '', + '[ReturnName="RondAfKaderdeurDagResult"]'); { DnaCodeServiceSoap.ToeleveringBijwerken } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ToeleveringBijwerken', '', '[ReturnName="ToeleveringBijwerkenResult"]'); @@ -1169,41 +1314,46 @@ { DnaCodeServiceSoap.ZoekViaToelevering } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaToelevering', '', '[ReturnName="ZoekViaToeleveringResult"]'); - RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDnaCodeDnaCode), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfDnaCodeDnaCode'); + RemClassRegistry.RegisterXSClass(DataTransferObject, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DataTransferObject'); + RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); RemClassRegistry.RegisterXSClass(DnaCode, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCode'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); RemClassRegistry.RegisterXSClass(GeneriekeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeneriekeResponse'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaPalletCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaToeleveringResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(DnaCodeAfmeldenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); RemClassRegistry.RegisterXSClass(RequestHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RequestHeader'); RemClassRegistry.RegisterXSClass(ResponseHeader, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ResponseHeader'); - RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); - RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeResponse'); - RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); + RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfStringString), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfStringString'); + RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); RemClassRegistry.RegisterXSClass(HernoemPalletResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(HernoemPalletResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); - RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenRequest'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ProboxEtiketAfdrukkenRequest), 'DnaCodes', '[ArrayItemName="String"]'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); end. \ No newline at end of file Index: PlanScan/PlanScan.dproj.local =================================================================== diff -u -r349 -r360 --- PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 349) +++ PlanScan/PlanScan.dproj.local (.../PlanScan.dproj.local) (revision 360) @@ -5,10 +5,10 @@ 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas 2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm 2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj - 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas 2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas - 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas + 2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas 2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history + 2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas 2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas 2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas= 2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas @@ -26,17 +26,20 @@ 2020/03/02 09:30:46.000.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas= 2020/03/02 09:31:23.000.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas 2020/03/04 11:43:31.000.229,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.pas=E:\svn\Delphi\PlanScan\Unit1.pas + 2020/03/04 11:49:17.000.078,E:\svn\Delphi\PlanScan\UI\LoginScherm.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm 2020/04/20 08:48:05.552,=E:\svn\Delphi\PlanScan\Unit1.pas - 2020/04/20 08:48:21.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 08:48:21.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/20 08:48:21.787,E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 09:19:59.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.pas=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.pas 2020/04/20 09:19:59.705,E:\svn\Delphi\PlanScan\UI\frameDnaCodes.dfm=E:\svn\Delphi\PlanScan\UI\frmDnaCodes.dfm 2020/04/20 09:21:17.241,=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:46:18.858,=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:49:21.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.pas=E:\svn\Delphi\PlanScan\Unit1.pas 2020/04/20 10:49:21.229,E:\svn\Delphi\PlanScan\UI\frameGebruikers.dfm=E:\svn\Delphi\PlanScan\Unit1.dfm + 2020/04/21 13:47:35.169,=E:\svn\Delphi\PlanScan\WS.pas + 2020/04/21 13:47:43.211,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas= + 2020/04/21 13:47:54.335,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas @@ -51,8 +54,8 @@ - + Index: PlanScan/PlanScan.identcache =================================================================== diff -u -r295 -r360 Binary files differ