Index: ProScan/WS/Agent.pas =================================================================== diff -u -r431 -r451 --- ProScan/WS/Agent.pas (.../Agent.pas) (revision 431) +++ ProScan/WS/Agent.pas (.../Agent.pas) (revision 451) @@ -73,7 +73,7 @@ Request.PalletCode := PalletCode; Request.Aantal := Aantal; Request.Locatie := Locatie; - Request.GuiVhossVolgnummer := fUiContext.InternVhossId; + Request.BatchId := fUiContext.BatchId; Result := fDnaCodeServiceSoap.DnaCodeAfmelden(Request); Index: ProScan/WS/DnaCodeService.pas =================================================================== diff -u -r425 -r451 --- ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 425) +++ ProScan/WS/DnaCodeService.pas (.../DnaCodeService.pas) (revision 451) @@ -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 -// (30/06/2020 8:56:11 - - $Rev: 45757 $) +// (10/07/2020 14:00:01 - - $Rev: 45757 $) // ************************************************************************ // unit DnaCodeService; @@ -30,14 +30,15 @@ // 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. // ************************************************************************ // - // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] + // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] GeefVolgendeTbpCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DnaCodeAfmeldenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + HernoemPalletRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaToeleveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaLadecodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } @@ -58,26 +59,27 @@ ZoekViaLadecodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaOrdernummerResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } Klantinstellingen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekAlleDnaCodesDieOpVhossMoetenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ValideerPalletCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringBijwerkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekAlleDnaCodesDieOpVhossMoetenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ValideerPalletCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaKlantnummerRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ZoekViaDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekAlleVhossLadesBijDnaCodeRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ZoekAlleVhossLadesBijDnaCodeResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaBatchRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ZoekViaBatchResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenResponse = 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] } - DirecteLeveringRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } DirecteLeveringResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ProboxEtiketAfdrukkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } - RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + PalletBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } ProboxEtiketAfdrukkenResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringBijwerkenRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + ToeleveringMetAantallen = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } RondAfKaderdeurDagRequest = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + RondAfKaderdeurDagResponse = class; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } {$SCOPEDENUMS ON} { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblSmpl] } @@ -105,6 +107,45 @@ // ************************************************************************ // + // XML : DnaCodeAfmeldenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + DnaCodeAfmeldenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FDnaCode: string; + FAantal: Int64; + FAantal_Specified: boolean; + FToelevering: string; + FToelevering_Specified: boolean; + FPalletCode: string; + FLocatie: string; + FLocatie_Specified: boolean; + FBatchId: string; + FBatchId_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; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: string read FDnaCode write FDnaCode; + 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; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; + end; + + + + // ************************************************************************ // // XML : HernoemPalletRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -129,40 +170,18 @@ // ************************************************************************ // - // XML : DnaCodeAfmeldenRequest, global, + // XML : DirecteLeveringRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DnaCodeAfmeldenRequest = class(TRemotable) + DirecteLeveringRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCode: string; - FAantal: Int64; - FAantal_Specified: boolean; FToelevering: string; - FToelevering_Specified: boolean; - FPalletCode: string; - FLocatie: string; - FLocatie_Specified: boolean; - FGuiVhossVolgnummer: string; - FGuiVhossVolgnummer_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; - procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string); - function GuiVhossVolgnummer_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; - 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; - property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; end; @@ -476,23 +495,23 @@ FAantalReedsGescand_Specified: boolean; FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; - FInterneVhossKastId: string; - FInterneVhossKastId_Specified: boolean; + FBatchId: string; + FBatchId_Specified: boolean; procedure SetAantalInToelevering(Index: Integer; const AInt64: Int64); function AantalInToelevering_Specified(Index: Integer): boolean; procedure SetAantalReedsGescand(Index: Integer; const AInt64: Int64); function AantalReedsGescand_Specified(Index: Integer): boolean; procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); function DnaCodes_Specified(Index: Integer): boolean; - procedure SetInterneVhossKastId(Index: Integer; const Astring: string); - function InterneVhossKastId_Specified(Index: Integer): boolean; + procedure SetBatchId(Index: Integer; const Astring: string); + function BatchId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property AantalInToelevering: Int64 Index (IS_OPTN) read FAantalInToelevering write SetAantalInToelevering stored AantalInToelevering_Specified; property AantalReedsGescand: Int64 Index (IS_OPTN) read FAantalReedsGescand write SetAantalReedsGescand stored AantalReedsGescand_Specified; property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; - property InterneVhossKastId: string Index (IS_OPTN) read FInterneVhossKastId write SetInterneVhossKastId stored InterneVhossKastId_Specified; + property BatchId: string Index (IS_OPTN) read FBatchId write SetBatchId stored BatchId_Specified; end; @@ -639,87 +658,95 @@ // ************************************************************************ // - // XML : ValideerPalletCodeResponse, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeResponse = class(GeneriekeResponse) + ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse) private + FDnaCodes: ArrayOfDnaCodeDnaCode; + FDnaCodes_Specified: boolean; + procedure SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); + function DnaCodes_Specified(Index: Integer): boolean; + public + destructor Destroy; override; published + property DnaCodes: ArrayOfDnaCodeDnaCode Index (IS_OPTN or IS_UNBD or IS_NLBL) read FDnaCodes write SetDnaCodes stored DnaCodes_Specified; end; // ************************************************************************ // - // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, + // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) + ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FFrameId: string; + FDnaCode: string; + FGuiVhossVolgnummer: string; + FGuiVhossVolgnummer_Specified: boolean; + procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string); + function GuiVhossVolgnummer_Specified(Index: Integer): boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property FrameId: string read FFrameId write FFrameId; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: string read FDnaCode write FDnaCode; + property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; end; // ************************************************************************ // - // XML : ValideerPalletCodeRequest, global, + // XML : ZoekAlleDnaCodesDieOpVhossMoetenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ValideerPalletCodeRequest = class(TRemotable) + ZoekAlleDnaCodesDieOpVhossMoetenRequest = class(TRemotable) private FHeader: RequestHeader; - FPalletCode: string; + FFrameId: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property PalletCode: string read FPalletCode write FPalletCode; + property Header: RequestHeader read FHeader write FHeader; + property FrameId: string read FFrameId write FFrameId; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenRequest, global, + // XML : ValideerPalletCodeRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenRequest = class(TRemotable) + ValideerPalletCodeRequest = class(TRemotable) private FHeader: RequestHeader; - FToelevering: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FPalletCode: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; - property Status: DnaCodeStatus read FStatus write FStatus; - property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + property Header: RequestHeader read FHeader write FHeader; + property PalletCode: string read FPalletCode write FPalletCode; end; // ************************************************************************ // - // XML : ToeleveringBijwerkenResponse, global, + // XML : ValideerPalletCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ToeleveringBijwerkenResponse = class(GeneriekeResponse) + ValideerPalletCodeResponse = class(GeneriekeResponse) private published end; // ************************************************************************ // - // XML : ZoekAlleDnaCodesDieOpVhossMoetenResponse, global, + // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleDnaCodesDieOpVhossMoetenResponse = class(GeneriekeResponse) + ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -786,32 +813,27 @@ // ************************************************************************ // - // XML : ZoekAlleVhossLadesBijDnaCodeRequest, global, + // XML : ZoekViaBatchRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleVhossLadesBijDnaCodeRequest = class(TRemotable) + ZoekViaBatchRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCode: string; - FGuiVhossVolgnummer: string; - FGuiVhossVolgnummer_Specified: boolean; - procedure SetGuiVhossVolgnummer(Index: Integer; const Astring: string); - function GuiVhossVolgnummer_Specified(Index: Integer): boolean; + FBatchId: string; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCode: string read FDnaCode write FDnaCode; - property GuiVhossVolgnummer: string Index (IS_OPTN) read FGuiVhossVolgnummer write SetGuiVhossVolgnummer stored GuiVhossVolgnummer_Specified; + property Header: RequestHeader read FHeader write FHeader; + property BatchId: string read FBatchId write FBatchId; end; // ************************************************************************ // - // XML : ZoekAlleVhossLadesBijDnaCodeResponse, global, + // XML : ZoekViaBatchResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ZoekAlleVhossLadesBijDnaCodeResponse = class(GeneriekeResponse) + ZoekViaBatchResponse = class(GeneriekeResponse) private FDnaCodes: ArrayOfDnaCodeDnaCode; FDnaCodes_Specified: boolean; @@ -826,50 +848,41 @@ // ************************************************************************ // - // XML : PalletBijwerkenResponse, global, + // XML : ToeleveringBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenResponse = class(GeneriekeResponse) + ToeleveringBijwerkenResponse = class(GeneriekeResponse) private published end; + ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : PalletBijwerkenRequest, global, + // XML : ProboxEtiketAfdrukkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - PalletBijwerkenRequest = class(TRemotable) + ProboxEtiketAfdrukkenRequest = class(TRemotable) private FHeader: RequestHeader; - FPallet: string; - FStatus: DnaCodeStatus; - FIsDirecteLevering: Boolean; + FDnaCodes: ArrayOfStringString; 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 DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; end; // ************************************************************************ // - // XML : DirecteLeveringRequest, global, + // XML : PalletBijwerkenResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - DirecteLeveringRequest = class(TRemotable) + PalletBijwerkenResponse = class(GeneriekeResponse) private - FHeader: RequestHeader; - FToelevering: string; - public - destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property Toelevering: string read FToelevering write FToelevering; end; @@ -885,27 +898,63 @@ property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; end; - ArrayOfStringString = array of String_; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenRequest, global, + // XML : PalletBijwerkenRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenRequest = class(TRemotable) + PalletBijwerkenRequest = class(TRemotable) private FHeader: RequestHeader; - FDnaCodes: ArrayOfStringString; + FPallet: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; public destructor Destroy; override; published - property Header: RequestHeader read FHeader write FHeader; - property DnaCodes: ArrayOfStringString Index (IS_UNBD) read FDnaCodes write FDnaCodes; + 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; // ************************************************************************ // + // XML : ProboxEtiketAfdrukkenResponse, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + private + published + end; + + ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } + + + // ************************************************************************ // + // XML : ToeleveringBijwerkenRequest, global, + // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode + // ************************************************************************ // + ToeleveringBijwerkenRequest = class(TRemotable) + private + FHeader: RequestHeader; + FToelevering: string; + FStatus: DnaCodeStatus; + FIsDirecteLevering: Boolean; + public + destructor Destroy; override; + published + property Header: RequestHeader read FHeader write FHeader; + property Toelevering: string read FToelevering write FToelevering; + property Status: DnaCodeStatus read FStatus write FStatus; + property IsDirecteLevering: Boolean read FIsDirecteLevering write FIsDirecteLevering; + end; + + + + // ************************************************************************ // // XML : ToeleveringMetAantallen, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // @@ -929,51 +978,39 @@ property AantalKaderdeurenGescand: string Index (IS_OPTN) read FAantalKaderdeurenGescand write SetAantalKaderdeurenGescand stored AantalKaderdeurenGescand_Specified; end; - ArrayOfToeleveringMetAantallenToeleveringMetAantallen = array of ToeleveringMetAantallen; { "http://www.vanhoecke.be/Halux/AAP/DnaCode"[GblCplx] } // ************************************************************************ // - // XML : RondAfKaderdeurDagResponse, global, + // XML : RondAfKaderdeurDagRequest, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - RondAfKaderdeurDagResponse = class(GeneriekeResponse) + RondAfKaderdeurDagRequest = class(TRemotable) private - FToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen; - FToeleveringMetAantallen_Specified: boolean; - procedure SetToeleveringMetAantallen(Index: Integer; const AArrayOfToeleveringMetAantallenToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen); - function ToeleveringMetAantallen_Specified(Index: Integer): boolean; + FHeader: RequestHeader; + FDnaCode: String_; public destructor Destroy; override; published - property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; + property Header: RequestHeader read FHeader write FHeader; + property DnaCode: String_ read FDnaCode write FDnaCode; end; // ************************************************************************ // - // XML : ProboxEtiketAfdrukkenResponse, global, + // XML : RondAfKaderdeurDagResponse, global, // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode // ************************************************************************ // - ProboxEtiketAfdrukkenResponse = class(GeneriekeResponse) + RondAfKaderdeurDagResponse = class(GeneriekeResponse) private - published - end; - - - - // ************************************************************************ // - // XML : RondAfKaderdeurDagRequest, global, - // Namespace : http://www.vanhoecke.be/Halux/AAP/DnaCode - // ************************************************************************ // - RondAfKaderdeurDagRequest = class(TRemotable) - private - FHeader: RequestHeader; - FDnaCode: String_; + 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 DnaCode: String_ read FDnaCode write FDnaCode; + property ToeleveringMetAantallen: ArrayOfToeleveringMetAantallenToeleveringMetAantallen Index (IS_OPTN or IS_UNBD or IS_NLBL) read FToeleveringMetAantallen write SetToeleveringMetAantallen stored ToeleveringMetAantallen_Specified; end; @@ -1002,6 +1039,7 @@ function ValideerPalletCode(const ValideerPalletCodeRequest: ValideerPalletCodeRequest): ValideerPalletCodeResponse; stdcall; function ZoekAlleDnaCodesDieOpVhossMoeten(const ZoekAlleDnaCodesDieOpVhossMoetenRequest: ZoekAlleDnaCodesDieOpVhossMoetenRequest): ZoekAlleDnaCodesDieOpVhossMoetenResponse; stdcall; function ZoekAlleVhossLadesBijDnaCode(const ZoekAlleVhossLadesBijDnaCode: ZoekAlleVhossLadesBijDnaCodeRequest): ZoekAlleVhossLadesBijDnaCodeResponse; stdcall; + function ZoekViaBatch(const ZoekViaBatchRequest: ZoekViaBatchRequest): ZoekViaBatchResponse; stdcall; function ZoekViaDnaCode(const ZoekViaDnaCodeRequest: ZoekViaDnaCodeRequest): ZoekViaDnaCodeResponse; stdcall; function ZoekViaKlantnummer(const ZoekViaKlantnummerRequest: ZoekViaKlantnummerRequest): ZoekViaKlantnummerResponse; stdcall; function ZoekViaLadecode(const ZoekViaLadecodeRequest: ZoekViaLadecodeRequest): ZoekViaLadecodeResponse; stdcall; @@ -1059,23 +1097,6 @@ inherited Destroy; end; -destructor HernoemPalletRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - -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 DnaCodeAfmeldenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1115,17 +1136,40 @@ Result := FLocatie_Specified; end; -procedure DnaCodeAfmeldenRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenRequest.SetBatchId(Index: Integer; const Astring: string); begin - FGuiVhossVolgnummer := Astring; - FGuiVhossVolgnummer_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenRequest.BatchId_Specified(Index: Integer): boolean; begin - Result := FGuiVhossVolgnummer_Specified; + Result := FBatchId_Specified; end; +destructor HernoemPalletRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + +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 DirecteLeveringRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor ZoekViaPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); @@ -1440,15 +1484,15 @@ Result := FDnaCodes_Specified; end; -procedure DnaCodeAfmeldenResponse.SetInterneVhossKastId(Index: Integer; const Astring: string); +procedure DnaCodeAfmeldenResponse.SetBatchId(Index: Integer; const Astring: string); begin - FInterneVhossKastId := Astring; - FInterneVhossKastId_Specified := True; + FBatchId := Astring; + FBatchId_Specified := True; end; -function DnaCodeAfmeldenResponse.InterneVhossKastId_Specified(Index: Integer): boolean; +function DnaCodeAfmeldenResponse.BatchId_Specified(Index: Integer): boolean; begin - Result := FInterneVhossKastId_Specified; + Result := FBatchId_Specified; end; destructor ZoekViaKlantnummerResponse.Destroy; @@ -1644,25 +1688,57 @@ Result := FMeerdereToeleveringen_Specified; end; -destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; +var + I: Integer; begin + for I := 0 to System.Length(FDnaCodes)-1 do + SysUtils.FreeAndNil(FDnaCodes[I]); + System.SetLength(FDnaCodes, 0); + inherited Destroy; +end; + +procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +begin + FDnaCodes := AArrayOfDnaCodeDnaCode; + FDnaCodes_Specified := True; +end; + +function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean; +begin + Result := FDnaCodes_Specified; +end; + +destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ValideerPalletCodeRequest.Destroy; +procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); begin + FGuiVhossVolgnummer := Astring; + FGuiVhossVolgnummer_Specified := True; +end; + +function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; +begin + Result := FGuiVhossVolgnummer_Specified; +end; + +destructor ZoekAlleDnaCodesDieOpVhossMoetenRequest.Destroy; +begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ToeleveringBijwerkenRequest.Destroy; +destructor ValideerPalletCodeRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ZoekAlleDnaCodesDieOpVhossMoetenResponse.Destroy; +destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy; var I: Integer; begin @@ -1672,13 +1748,13 @@ inherited Destroy; end; -procedure ZoekAlleDnaCodesDieOpVhossMoetenResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekAlleDnaCodesDieOpVhossMoetenResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; @@ -1712,24 +1788,13 @@ inherited Destroy; end; -destructor ZoekAlleVhossLadesBijDnaCodeRequest.Destroy; +destructor ZoekViaBatchRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -procedure ZoekAlleVhossLadesBijDnaCodeRequest.SetGuiVhossVolgnummer(Index: Integer; const Astring: string); -begin - FGuiVhossVolgnummer := Astring; - FGuiVhossVolgnummer_Specified := True; -end; - -function ZoekAlleVhossLadesBijDnaCodeRequest.GuiVhossVolgnummer_Specified(Index: Integer): boolean; -begin - Result := FGuiVhossVolgnummer_Specified; -end; - -destructor ZoekAlleVhossLadesBijDnaCodeResponse.Destroy; +destructor ZoekViaBatchResponse.Destroy; var I: Integer; begin @@ -1739,30 +1804,30 @@ inherited Destroy; end; -procedure ZoekAlleVhossLadesBijDnaCodeResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); +procedure ZoekViaBatchResponse.SetDnaCodes(Index: Integer; const AArrayOfDnaCodeDnaCode: ArrayOfDnaCodeDnaCode); begin FDnaCodes := AArrayOfDnaCodeDnaCode; FDnaCodes_Specified := True; end; -function ZoekAlleVhossLadesBijDnaCodeResponse.DnaCodes_Specified(Index: Integer): boolean; +function ZoekViaBatchResponse.DnaCodes_Specified(Index: Integer): boolean; begin Result := FDnaCodes_Specified; end; -destructor PalletBijwerkenRequest.Destroy; +destructor ProboxEtiketAfdrukkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor DirecteLeveringRequest.Destroy; +destructor PalletBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; end; -destructor ProboxEtiketAfdrukkenRequest.Destroy; +destructor ToeleveringBijwerkenRequest.Destroy; begin SysUtils.FreeAndNil(FHeader); inherited Destroy; @@ -1801,6 +1866,12 @@ Result := FAantalKaderdeurenGescand_Specified; end; +destructor RondAfKaderdeurDagRequest.Destroy; +begin + SysUtils.FreeAndNil(FHeader); + inherited Destroy; +end; + destructor RondAfKaderdeurDagResponse.Destroy; var I: Integer; @@ -1822,12 +1893,6 @@ Result := FToeleveringMetAantallen_Specified; end; -destructor RondAfKaderdeurDagRequest.Destroy; -begin - SysUtils.FreeAndNil(FHeader); - inherited Destroy; -end; - initialization { DnaCodeServiceSoap } InvRegistry.RegisterInterface(TypeInfo(DnaCodeServiceSoap), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'UTF-8'); @@ -1869,6 +1934,9 @@ { DnaCodeServiceSoap.ZoekAlleVhossLadesBijDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekAlleVhossLadesBijDnaCode', '', '[ReturnName="ZoekAlleVhossLadesBijDnaCodeResult"]'); + { DnaCodeServiceSoap.ZoekViaBatch } + InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaBatch', '', + '[ReturnName="ZoekViaBatchResult"]'); { DnaCodeServiceSoap.ZoekViaDnaCode } InvRegistry.RegisterMethodInfo(TypeInfo(DnaCodeServiceSoap), 'ZoekViaDnaCode', '', '[ReturnName="ZoekViaDnaCodeResult"]'); @@ -1891,8 +1959,9 @@ RemClassRegistry.RegisterXSInfo(TypeInfo(DnaCodeStatus), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeStatus'); RemClassRegistry.RegisterXSClass(GeefVolgendeTbpCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'GeefVolgendeTbpCodeRequest'); RemClassRegistry.RegisterXSInfo(TypeInfo(String_), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'String_', 'String'); - RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); RemClassRegistry.RegisterXSClass(DnaCodeAfmeldenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DnaCodeAfmeldenRequest'); + RemClassRegistry.RegisterXSClass(HernoemPalletRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'HernoemPalletRequest'); + RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaPalletCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekViaToeleveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaToeleveringRequest'); RemClassRegistry.RegisterXSClass(ZoekViaLadecodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaLadecodeRequest'); @@ -1922,31 +1991,33 @@ RemClassRegistry.RegisterXSClass(ZoekViaOrdernummerResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaOrdernummerResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaOrdernummerResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); RemClassRegistry.RegisterXSClass(Klantinstellingen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'Klantinstellingen'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); - RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleDnaCodesDieOpVhossMoetenResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); - RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); - RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekAlleDnaCodesDieOpVhossMoetenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleDnaCodesDieOpVhossMoetenRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeRequest'); + RemClassRegistry.RegisterXSClass(ValideerPalletCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ValideerPalletCodeResponse'); RemClassRegistry.RegisterXSClass(ZoekAlleVhossLadesBijDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekAlleVhossLadesBijDnaCodeResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekAlleVhossLadesBijDnaCodeResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); - RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); - RemClassRegistry.RegisterXSClass(DirecteLeveringRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringRequest'); - RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeResponse'); + RemClassRegistry.RegisterXSClass(ZoekViaKlantnummerRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaKlantnummerRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaDnaCodeRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaDnaCodeRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaBatchRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchRequest'); + RemClassRegistry.RegisterXSClass(ZoekViaBatchResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ZoekViaBatchResponse'); + RemClassRegistry.RegisterExternalPropName(TypeInfo(ZoekViaBatchResponse), 'DnaCodes', '[ArrayItemName="DnaCode"]'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenResponse'); 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(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenResponse'); + RemClassRegistry.RegisterXSClass(DirecteLeveringResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'DirecteLeveringResponse'); + RemClassRegistry.RegisterXSClass(PalletBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'PalletBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfToeleveringMetAantallenToeleveringMetAantallen), 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ArrayOfToeleveringMetAantallenToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(ToeleveringBijwerkenRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringBijwerkenRequest'); + RemClassRegistry.RegisterXSClass(ToeleveringMetAantallen, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ToeleveringMetAantallen'); + RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(RondAfKaderdeurDagResponse), 'ToeleveringMetAantallen', '[ArrayItemName="ToeleveringMetAantallen"]'); - RemClassRegistry.RegisterXSClass(ProboxEtiketAfdrukkenResponse, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'ProboxEtiketAfdrukkenResponse'); - RemClassRegistry.RegisterXSClass(RondAfKaderdeurDagRequest, 'http://www.vanhoecke.be/Halux/AAP/DnaCode', 'RondAfKaderdeurDagRequest'); end. \ No newline at end of file Index: ProScan/UI/DnaCodeScherm.pas =================================================================== diff -u -r450 -r451 --- ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 450) +++ ProScan/UI/DnaCodeScherm.pas (.../DnaCodeScherm.pas) (revision 451) @@ -176,6 +176,7 @@ if Self.ModalResult = mrPallet then begin ToonPopupScherm('Toelevering succesvol afgerond','OK','',19,-1,-1,clGreen); UiContext.Toelevering := ''; + UiContext.BatchId := ''; DrukProboxEtiketAfIndienNodig; end; end else begin @@ -186,6 +187,7 @@ if fWaarschuwingModalResult = mrNo then begin ZetToeleveringStatus(DnaCodeStatus.InBuffer, fIsDirecteLevering); UiContext.Toelevering := ''; + UiContext.BatchId := ''; Self.ModalResult := mrPallet; end else begin Self.ModalResult := mrDnaCode; @@ -303,7 +305,7 @@ case strtoint(List[0]) of 200: begin UiContext.Toelevering := Response.DnaCodes[0].Toelevering; - UiContext.InternVhossId := Response.InterneVhossKastId; + UiContext.BatchId := Response.BatchId; lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand); lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering); ZetInfoIcoontjeZichtbaar; Index: ProScan/ProScan.dpr =================================================================== diff -u -r445 -r451 --- ProScan/ProScan.dpr (.../ProScan.dpr) (revision 445) +++ ProScan/ProScan.dpr (.../ProScan.dpr) (revision 451) @@ -20,8 +20,8 @@ Agent in 'WS\Agent.pas', CommonFunctions in 'UI\CommonFunctions.pas', MidasLib, - DnaCodeService in 'WS\DnaCodeService.pas', - OnvolledigeToeleveringScherm in 'UI\OnvolledigeToeleveringScherm.pas' {fmOnvolledigeToeleveringScherm}; + OnvolledigeToeleveringScherm in 'UI\OnvolledigeToeleveringScherm.pas' {fmOnvolledigeToeleveringScherm}, + DnaCodeService in 'WS\DnaCodeService.pas'; {$R *.res} Index: ProScan/ProScan.dproj =================================================================== diff -u -r445 -r451 --- ProScan/ProScan.dproj (.../ProScan.dproj) (revision 445) +++ ProScan/ProScan.dproj (.../ProScan.dproj) (revision 451) @@ -131,11 +131,11 @@ -
fmOnvolledigeToeleveringScherm
dfm + Cfg_2 Base Index: ProScan/UI/UiContext.pas =================================================================== diff -u -r432 -r451 --- ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 432) +++ ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 451) @@ -35,6 +35,7 @@ fServerName: string; fModus: integer; fInternVhossId: string; + fBatchId: String; public Property Initialen: String Read fInitialen Write fInitialen; Property LoginCode: String Read fLoginCode Write fLoginCode; @@ -50,6 +51,7 @@ Property Modus: integer Read fModus Write fModus; Property InternVhossId: string read fInternVhossId Write fInternVhossId; Property IsExportPopupGetoond: boolean Read fIsExportPopupGetoond write fIsExportPopupGetoond; + Property BatchId: string Read fBatchId Write fBatchId; end; implementation Index: ProScan/ProScan.dproj.local =================================================================== diff -u -r444 -r451 --- ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 444) +++ ProScan/ProScan.dproj.local (.../ProScan.dproj.local) (revision 451) @@ -14,47 +14,47 @@ 2019/03/04 07:46:54.000.107,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/04 07:48:44.000.257,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/04 07:48:53.000.280,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas= - 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/03/04 07:49:00.000.838,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/05 10:51:12.000.820,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/05 10:53:16.000.806,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/05 10:56:57.000.976,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\GebruikerService.pas 2019/03/05 11:54:27.000.053,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/05 11:57:08.000.016,E:\svn\Delphi\AAPClient\UI\PopupScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/06 07:41:24.000.503,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\UI\Images.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/06 07:41:41.000.580,E:\svn\Delphi\AAPClient\UI\Images.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/07 08:39:12.000.150,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/07 08:39:29.000.118,E:\svn\Delphi\AAPClient\UI\HomeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/07 11:22:02.000.536,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas + 2019/03/07 11:29:09.000.427,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/07 15:18:54.000.922,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/07 15:19:13.000.507,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas 2019/03/08 10:21:18.000.208,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/08 10:26:55.000.996,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= - 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\UI\PalletScherm.pas - 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas + 2019/03/08 10:27:08.000.419,E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm=E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm + 2019/03/08 10:27:45.000.805,E:\svn\Delphi\AAPClient\UI\PalletScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/03/08 10:28:02.000.451,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas 2019/03/08 11:14:25.000.860,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm 2019/03/08 11:15:19.000.292,E:\svn\Delphi\AAPClient\UI\BestaandePalletScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 13:41:42.000.692,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 13:43:18.000.168,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/03/08 13:43:18.000.167,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/03/08 16:42:04.000.691,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/08 16:42:12.000.086,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/08 16:42:32.000.114,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas=E:\svn\Delphi\AAPClient\WS.pas 2019/03/12 11:42:34.000.194,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/12 11:42:41.000.845,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/12 11:42:52.000.715,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/03/18 09:44:48.000.103,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.dfm + 2019/03/18 09:46:03.000.084,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\InfoLogScherm.pas 2019/03/18 11:06:46.000.842,=E:\svn\Delphi\AAPClient\WS.pas 2019/03/18 11:07:10.000.880,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/03/18 11:07:23.000.750,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas @@ -76,20 +76,20 @@ 2019/09/03 15:56:30.000.060,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\LoginScherm2.pas 2019/09/03 15:56:30.000.060,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\LoginScherm2.dfm 2019/09/04 13:14:25.000.076,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/09/04 13:17:21.000.462,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DimmerForm.pas 2019/09/04 13:17:21.000.462,E:\svn\Delphi\AAPClient\Unit1.dfm=E:\svn\Delphi\AAPClient\UI\DimmerForm.dfm + 2019/09/04 13:17:21.000.462,E:\svn\Delphi\AAPClient\Unit1.pas=E:\svn\Delphi\AAPClient\UI\DimmerForm.pas 2019/09/04 14:42:49.000.071,=E:\svn\Delphi\AAPClient\Unit1.pas 2019/09/06 07:39:37.000.990,=E:\svn\Delphi\AAPClient\WS.pas 2019/09/06 07:39:48.000.040,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= - 2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.dfm=E:\svn\Delphi\AAPClient\WS\DnaCodeService.dfm + 2019/09/06 07:40:00.000.929,E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/09/06 07:44:11.000.442,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/09/06 07:45:06.000.602,=E:\svn\Delphi\AAPClient\UI\DnaCodeScherm.pas 2019/09/06 07:46:50.000.159,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas 2019/09/09 10:12:07.000.120,E:\svn\Delphi\AAPClient\UI\LoginScherm.pas= 2019/09/25 09:00:58.000.441,=E:\svn\Delphi\AAPClient\Unit1.pas - 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.dfm=E:\svn\Delphi\AAPClient\Unit1.dfm + 2019/09/25 09:40:05.000.670,E:\svn\Delphi\AAPClient\UI\DnaCodeReedsGescandScherm.pas=E:\svn\Delphi\AAPClient\Unit1.pas 2019/10/01 13:49:36.000.449,=E:\svn\Delphi\AAPClient\WS.pas 2019/10/01 13:49:56.000.314,E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas= 2019/10/01 13:50:07.000.220,E:\svn\Delphi\AAPClient\WS.pas=E:\svn\Delphi\AAPClient\WS\DnaCodeService.pas @@ -153,8 +153,11 @@ 2020/07/03 13:25:23.372,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas 2020/07/03 13:28:16.574,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas= 2020/07/03 13:28:35.965,=E:\svn\Delphi\ProScan\Unit1.pas - 2020/07/03 13:28:49.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm 2020/07/03 13:28:49.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.pas=E:\svn\Delphi\ProScan\Unit1.pas + 2020/07/03 13:28:49.735,E:\svn\Delphi\ProScan\UI\OnvolledigeToeleveringScherm.dfm=E:\svn\Delphi\ProScan\Unit1.dfm + 2020/07/10 14:00:01.992,=E:\svn\Delphi\ProScan\WS.pas + 2020/07/10 14:00:10.387,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas= + 2020/07/10 14:00:36.160,E:\svn\Delphi\ProScan\WS\DnaCodeService.pas=E:\svn\Delphi\ProScan\WS.pas