// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.CLS?WSDL=1 // >Import : http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.CLS?WSDL=1>0 // Encoding : UTF-8 // Codegen : [wfUnwindLiteralParameters-, wfOutputLiteralTypes+] // Version : 1.0 // (11/08/2021 9:46:30 - - $Rev: 45757 $) // ************************************************************************ // unit OptiServerService; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_ATTR = $0010; IS_TEXT = $0020; IS_REF = $0080; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // 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. // ************************************************************************ // // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] GetOptimizerQueueResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetMetaViaProductGroepResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetMetaViaIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetUIResourceResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetSnijInfoResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetProductURLResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDatasViaMetaResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataViaIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataIDsViaVerpakkingResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetDataUIResourceResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } ReProcessItemResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } ProcessNextBatchItemsResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } OptimizeViaVerpakkingResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } SnijResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } SaveBoxMetaResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } SaveBoxDataResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetWPBatchIDsViaWerkpostResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetVerpakkingNamenViaGroepResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } OptimizeViaProductResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } ModifyStatusResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetWPQueueViaBatchIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetCalcParamsViaBoxDataResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetCalcParamsViaBoxDataIDsResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } pxemBoxSelect = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxemSnijParam = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxUIResource = class; { "http://vhintra.vanhoecke.be"[GblCplx] } ModifyStatus = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetWPQueueViaBatchID = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetVolumeVanID = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetVolumeVanIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetWPBatchIDsViaWerkpost = class; { "http://vhintra.vanhoecke.be"[GblElm] } SaveBoxMeta = class; { "http://vhintra.vanhoecke.be"[GblElm] } SaveBoxData = class; { "http://vhintra.vanhoecke.be"[GblElm] } ReProcessItem = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetVerpakkingNamenViaGroep = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetCalcParamsViaBoxDataIDs = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetDataUIResource = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetCalcParamsViaBoxData = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataViaID = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDatasViaMeta = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetMetaViaID = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetSnijInfo = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetUIResource = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetProductURL = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetMetaViaProductGroep = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetOptimizerQueue = class; { "http://vhintra.vanhoecke.be"[GblElm] } anyType = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxStatus = class; { "http://vhintra.vanhoecke.be"[GblCplx] } OptimizeViaProduct = class; { "http://vhintra.vanhoecke.be"[GblElm] } OptimizeViaVerpakking = class; { "http://vhintra.vanhoecke.be"[GblElm] } ProcessNextBatchItems = class; { "http://vhintra.vanhoecke.be"[GblElm] } pxemDataParam = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxemPPSPrioriteit = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxBoxMeta = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxBoxData = class; { "http://vhintra.vanhoecke.be"[GblCplx] } pxemMetaParam = class; { "http://vhintra.vanhoecke.be"[GblCplx] } GetAllBoxSelectResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetAllProductGroepen = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetAllBoxSelect = class; { "http://vhintra.vanhoecke.be"[GblElm] } DeleteMetaViaID = class; { "http://vhintra.vanhoecke.be"[GblElm] } DeleteMetaViaIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetAllProductGroepenResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataIDsViaProductResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataIDsViaVerpakking = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetBoxDataIDsViaProduct = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetAllVerpakkingGroepen = class; { "http://vhintra.vanhoecke.be"[GblElm] } GetAllVerpakkingGroepenResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } DeleteBoxDataViaIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } AllFromBatchResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } Bulk = class; { "http://vhintra.vanhoecke.be"[GblElm] } AllFromBatch = class; { "http://vhintra.vanhoecke.be"[GblElm] } Snij = class; { "http://vhintra.vanhoecke.be"[GblElm] } PairOfSnijOpdrachtenKeyString = class; { "http://vhintra.vanhoecke.be"[GblCplx] } BulkResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } ChangeBasedOnMetaIDResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } DeleteBoxDataViaID = class; { "http://vhintra.vanhoecke.be"[GblElm] } ChangeBasedOnMetaID = class; { "http://vhintra.vanhoecke.be"[GblElm] } CalcBoxDataViaCalcParams = class; { "http://vhintra.vanhoecke.be"[GblElm] } CalcBoxDataViaCalcParamsResponse = class; { "http://vhintra.vanhoecke.be"[GblElm] } // ************************************************************************ // // XML : GetOptimizerQueueResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetOptimizerQueueResponse = class(TRemotable) private FGetOptimizerQueueResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetOptimizerQueueResult: pxStatus read FGetOptimizerQueueResult write FGetOptimizerQueueResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetMetaViaProductGroepResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetMetaViaProductGroepResponse = class(TRemotable) private FGetMetaViaProductGroepResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetMetaViaProductGroepResult: pxStatus read FGetMetaViaProductGroepResult write FGetMetaViaProductGroepResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetMetaViaIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetMetaViaIDResponse = class(TRemotable) private FGetMetaViaIDResult: pxStatus; FvarBoxMeta: pxBoxMeta; FvarBoxMeta_Specified: boolean; procedure SetvarBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); function varBoxMeta_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetMetaViaIDResult: pxStatus read FGetMetaViaIDResult write FGetMetaViaIDResult; property varBoxMeta: pxBoxMeta Index(IS_OPTN)read FvarBoxMeta write SetvarBoxMeta stored varBoxMeta_Specified; end; // ************************************************************************ // // XML : GetUIResourceResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetUIResourceResponse = class(TRemotable) private FGetUIResourceResult: pxStatus; FvarUIResource: pxUIResource; FvarUIResource_Specified: boolean; procedure SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); function varUIResource_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetUIResourceResult: pxStatus read FGetUIResourceResult write FGetUIResourceResult; property varUIResource: pxUIResource Index(IS_OPTN)read FvarUIResource write SetvarUIResource stored varUIResource_Specified; end; // ************************************************************************ // // XML : GetSnijInfoResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetSnijInfoResponse = class(TRemotable) private FGetSnijInfoResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetSnijInfoResult: pxStatus read FGetSnijInfoResult write FGetSnijInfoResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetProductURLResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetProductURLResponse = class(TRemotable) private FGetProductURLResult: pxStatus; public destructor Destroy; override; published property GetProductURLResult: pxStatus read FGetProductURLResult write FGetProductURLResult; end; // ************************************************************************ // // XML : GetBoxDatasViaMetaResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDatasViaMetaResponse = class(TRemotable) private FGetBoxDatasViaMetaResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetBoxDatasViaMetaResult: pxStatus read FGetBoxDatasViaMetaResult write FGetBoxDatasViaMetaResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetBoxDataViaIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataViaIDResponse = class(TRemotable) private FGetBoxDataViaIDResult: pxStatus; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetBoxDataViaIDResult: pxStatus read FGetBoxDataViaIDResult write FGetBoxDataViaIDResult; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; end; // ************************************************************************ // // XML : GetBoxDataIDsViaVerpakkingResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataIDsViaVerpakkingResponse = class(TRemotable) private FGetBoxDataIDsViaVerpakkingResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetBoxDataIDsViaVerpakkingResult: pxStatus read FGetBoxDataIDsViaVerpakkingResult write FGetBoxDataIDsViaVerpakkingResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetDataUIResourceResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetDataUIResourceResponse = class(TRemotable) private FGetDataUIResourceResult: pxStatus; FvarUIResource: pxUIResource; FvarUIResource_Specified: boolean; procedure SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); function varUIResource_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetDataUIResourceResult: pxStatus read FGetDataUIResourceResult write FGetDataUIResourceResult; property varUIResource: pxUIResource Index(IS_OPTN)read FvarUIResource write SetvarUIResource stored varUIResource_Specified; end; // ************************************************************************ // // XML : ReProcessItemResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ReProcessItemResponse = class(TRemotable) private FReProcessItemResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ReProcessItemResult: pxStatus read FReProcessItemResult write FReProcessItemResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : ProcessNextBatchItemsResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ProcessNextBatchItemsResponse = class(TRemotable) private FProcessNextBatchItemsResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ProcessNextBatchItemsResult: pxStatus read FProcessNextBatchItemsResult write FProcessNextBatchItemsResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : OptimizeViaVerpakkingResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // OptimizeViaVerpakkingResponse = class(TRemotable) private FOptimizeViaVerpakkingResult: pxStatus; public destructor Destroy; override; published property OptimizeViaVerpakkingResult: pxStatus read FOptimizeViaVerpakkingResult write FOptimizeViaVerpakkingResult; end; // ************************************************************************ // // XML : SnijResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // SnijResponse = class(TRemotable) private FSnijResult: pxStatus; public destructor Destroy; override; published property SnijResult: pxStatus read FSnijResult write FSnijResult; end; // ************************************************************************ // // XML : SaveBoxMetaResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // SaveBoxMetaResponse = class(TRemotable) private FSaveBoxMetaResult: pxStatus; public destructor Destroy; override; published property SaveBoxMetaResult: pxStatus read FSaveBoxMetaResult write FSaveBoxMetaResult; end; // ************************************************************************ // // XML : SaveBoxDataResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // SaveBoxDataResponse = class(TRemotable) private FSaveBoxDataResult: pxStatus; public destructor Destroy; override; published property SaveBoxDataResult: pxStatus read FSaveBoxDataResult write FSaveBoxDataResult; end; // ************************************************************************ // // XML : GetWPBatchIDsViaWerkpostResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetWPBatchIDsViaWerkpostResponse = class(TRemotable) private FGetWPBatchIDsViaWerkpostResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetWPBatchIDsViaWerkpostResult: pxStatus read FGetWPBatchIDsViaWerkpostResult write FGetWPBatchIDsViaWerkpostResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetVerpakkingNamenViaGroepResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetVerpakkingNamenViaGroepResponse = class(TRemotable) private FGetVerpakkingNamenViaGroepResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetVerpakkingNamenViaGroepResult: pxStatus read FGetVerpakkingNamenViaGroepResult write FGetVerpakkingNamenViaGroepResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : OptimizeViaProductResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // OptimizeViaProductResponse = class(TRemotable) private FOptimizeViaProductResult: pxStatus; public destructor Destroy; override; published property OptimizeViaProductResult: pxStatus read FOptimizeViaProductResult write FOptimizeViaProductResult; end; // ************************************************************************ // // XML : ModifyStatusResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ModifyStatusResponse = class(TRemotable) private FModifyStatusResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ModifyStatusResult: pxStatus read FModifyStatusResult write FModifyStatusResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetWPQueueViaBatchIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetWPQueueViaBatchIDResponse = class(TRemotable) private FGetWPQueueViaBatchIDResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetWPQueueViaBatchIDResult: pxStatus read FGetWPQueueViaBatchIDResult write FGetWPQueueViaBatchIDResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; ArrayOfpxemSnijParampxemSnijParam = array of pxemSnijParam; { "http://vhintra.vanhoecke.be"[GblCplx] } // ************************************************************************ // // XML : GetCalcParamsViaBoxDataResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetCalcParamsViaBoxDataResponse = class(TRemotable) private FGetCalcParamsViaBoxDataResult: pxStatus; FvarCalcParams: ArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified: boolean; procedure SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function varCalcParams_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetCalcParamsViaBoxDataResult: pxStatus read FGetCalcParamsViaBoxDataResult write FGetCalcParamsViaBoxDataResult; property varCalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FvarCalcParams write SetvarCalcParams stored varCalcParams_Specified; end; // ************************************************************************ // // XML : GetCalcParamsViaBoxDataIDsResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetCalcParamsViaBoxDataIDsResponse = class(TRemotable) private FGetCalcParamsViaBoxDataIDsResult: pxStatus; FvarCalcParams: ArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified: boolean; procedure SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function varCalcParams_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetCalcParamsViaBoxDataIDsResult: pxStatus read FGetCalcParamsViaBoxDataIDsResult write FGetCalcParamsViaBoxDataIDsResult; property varCalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FvarCalcParams write SetvarCalcParams stored varCalcParams_Specified; end; ArrayOfpxemBoxSelectpxemBoxSelect = array of pxemBoxSelect; { "http://vhintra.vanhoecke.be"[GblCplx] } ArrayOfpxemMetaParampxemMetaParam = array of pxemMetaParam; { "http://vhintra.vanhoecke.be"[GblCplx] } WaardeExec = type string; { "http://vhintra.vanhoecke.be"[Smpl] } // ************************************************************************ // // XML : pxemBoxSelect, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxemBoxSelect = class(TRemotable) private FNaam: string; FNaam_Specified: boolean; FKlanten: string; FKlanten_Specified: boolean; FKlantenCaption: string; FKlantenCaption_Specified: boolean; procedure SetNaam(Index: Integer; const Astring: string); function Naam_Specified(Index: Integer): boolean; procedure SetKlanten(Index: Integer; const Astring: string); function Klanten_Specified(Index: Integer): boolean; procedure SetKlantenCaption(Index: Integer; const Astring: string); function KlantenCaption_Specified(Index: Integer): boolean; published property Naam: string Index(IS_OPTN)read FNaam write SetNaam stored Naam_Specified; property Klanten: string Index(IS_OPTN)read FKlanten write SetKlanten stored Klanten_Specified; property KlantenCaption: string Index(IS_OPTN)read FKlantenCaption write SetKlantenCaption stored KlantenCaption_Specified; end; Default_ = type string; { "http://vhintra.vanhoecke.be"[Smpl] } WaardeExecResult = type string; { "http://vhintra.vanhoecke.be"[Smpl] } // ************************************************************************ // // XML : pxemSnijParam, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxemSnijParam = class(TRemotable) private FName_: string; FName__Specified: boolean; FNameCaption: string; FNameCaption_Specified: boolean; FValue: string; FValue_Specified: boolean; procedure SetName_(Index: Integer; const Astring: string); function Name__Specified(Index: Integer): boolean; procedure SetNameCaption(Index: Integer; const Astring: string); function NameCaption_Specified(Index: Integer): boolean; procedure SetValue(Index: Integer; const Astring: string); function Value_Specified(Index: Integer): boolean; published property Name_: string Index(IS_OPTN)read FName_ write SetName_ stored Name__Specified; property NameCaption: string Index(IS_OPTN)read FNameCaption write SetNameCaption stored NameCaption_Specified; property Value: string Index(IS_OPTN)read FValue write SetValue stored Value_Specified; end; // ************************************************************************ // // XML : pxUIResource, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxUIResource = class(TRemotable) private FValuesURL: string; FValuesURL_Specified: boolean; procedure SetValuesURL(Index: Integer; const Astring: string); function ValuesURL_Specified(Index: Integer): boolean; published property ValuesURL: string Index(IS_OPTN)read FValuesURL write SetValuesURL stored ValuesURL_Specified; end; ArrayOfBoxDataIDsItemString = array of string; { "http://vhintra.vanhoecke.be"[GblCplx] } // ************************************************************************ // // XML : ModifyStatus, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ModifyStatus = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FBatchID: string; FBatchID_Specified: boolean; FQueueIDs: string; FQueueIDs_Specified: boolean; FActie: string; FActie_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetBatchID(Index: Integer; const Astring: string); function BatchID_Specified(Index: Integer): boolean; procedure SetQueueIDs(Index: Integer; const Astring: string); function QueueIDs_Specified(Index: Integer): boolean; procedure SetActie(Index: Integer; const Astring: string); function Actie_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property BatchID: string Index(IS_OPTN)read FBatchID write SetBatchID stored BatchID_Specified; property QueueIDs: string Index(IS_OPTN)read FQueueIDs write SetQueueIDs stored QueueIDs_Specified; property Actie: string Index(IS_OPTN)read FActie write SetActie stored Actie_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetWPQueueViaBatchID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetWPQueueViaBatchID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FBatchID: string; FBatchID_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetBatchID(Index: Integer; const Astring: string); function BatchID_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property BatchID: string Index(IS_OPTN)read FBatchID write SetBatchID stored BatchID_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetVolumeVanID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetVolumeVanID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FGroep: string; FGroep_Specified: boolean; FVerpakking: string; FVerpakking_Specified: boolean; FVolumeVanCaption: string; FVolumeVanCaption_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetGroep(Index: Integer; const Astring: string); function Groep_Specified(Index: Integer): boolean; procedure SetVerpakking(Index: Integer; const Astring: string); function Verpakking_Specified(Index: Integer): boolean; procedure SetVolumeVanCaption(Index: Integer; const Astring: string); function VolumeVanCaption_Specified(Index: Integer): boolean; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Groep: string Index(IS_OPTN)read FGroep write SetGroep stored Groep_Specified; property Verpakking: string Index(IS_OPTN)read FVerpakking write SetVerpakking stored Verpakking_Specified; property VolumeVanCaption: string Index(IS_OPTN)read FVolumeVanCaption write SetVolumeVanCaption stored VolumeVanCaption_Specified; end; // ************************************************************************ // // XML : GetVolumeVanIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetVolumeVanIDResponse = class(TRemotable) private FGetVolumeVanIDResult: pxStatus; FVolumeVanCaption: string; FVolumeVanCaption_Specified: boolean; procedure SetVolumeVanCaption(Index: Integer; const Astring: string); function VolumeVanCaption_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetVolumeVanIDResult: pxStatus read FGetVolumeVanIDResult write FGetVolumeVanIDResult; property VolumeVanCaption: string Index(IS_OPTN)read FVolumeVanCaption write SetVolumeVanCaption stored VolumeVanCaption_Specified; end; // ************************************************************************ // // XML : GetWPBatchIDsViaWerkpost, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetWPBatchIDsViaWerkpost = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : SaveBoxMeta, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // SaveBoxMeta = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FpxBoxMeta: pxBoxMeta; FpxBoxMeta_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetpxBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); function pxBoxMeta_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property pxBoxMeta: pxBoxMeta Index(IS_OPTN)read FpxBoxMeta write SetpxBoxMeta stored pxBoxMeta_Specified; end; // ************************************************************************ // // XML : SaveBoxData, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // SaveBoxData = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FpxBoxData: pxBoxData; FpxBoxData_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetpxBoxData(Index: Integer; const ApxBoxData: pxBoxData); function pxBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property pxBoxData: pxBoxData Index(IS_OPTN)read FpxBoxData write SetpxBoxData stored pxBoxData_Specified; end; // ************************************************************************ // // XML : ReProcessItem, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ReProcessItem = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FBatchID: string; FBatchID_Specified: boolean; FQueueID: string; FQueueID_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetBatchID(Index: Integer; const Astring: string); function BatchID_Specified(Index: Integer): boolean; procedure SetQueueID(Index: Integer; const Astring: string); function QueueID_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property BatchID: string Index(IS_OPTN)read FBatchID write SetBatchID stored BatchID_Specified; property QueueID: string Index(IS_OPTN)read FQueueID write SetQueueID stored QueueID_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetVerpakkingNamenViaGroep, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetVerpakkingNamenViaGroep = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FGroep: string; FGroep_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetGroep(Index: Integer; const Astring: string); function Groep_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Groep: string Index(IS_OPTN)read FGroep write SetGroep stored Groep_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetCalcParamsViaBoxDataIDs, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetCalcParamsViaBoxDataIDs = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FBoxDataIDs: ArrayOfBoxDataIDsItemString; FBoxDataIDs_Specified: boolean; FvarCalcParams: ArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetBoxDataIDs(Index: Integer; const AArrayOfBoxDataIDsItemString: ArrayOfBoxDataIDsItemString); function BoxDataIDs_Specified(Index: Integer): boolean; procedure SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function varCalcParams_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property BoxDataIDs: ArrayOfBoxDataIDsItemString Index(IS_OPTN)read FBoxDataIDs write SetBoxDataIDs stored BoxDataIDs_Specified; property varCalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FvarCalcParams write SetvarCalcParams stored varCalcParams_Specified; end; // ************************************************************************ // // XML : GetDataUIResource, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetDataUIResource = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarUIResource: pxUIResource; FvarUIResource_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); function varUIResource_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varUIResource: pxUIResource Index(IS_OPTN)read FvarUIResource write SetvarUIResource stored varUIResource_Specified; end; // ************************************************************************ // // XML : GetCalcParamsViaBoxData, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetCalcParamsViaBoxData = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FpxBoxData: pxBoxData; FpxBoxData_Specified: boolean; FvarCalcParams: ArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetpxBoxData(Index: Integer; const ApxBoxData: pxBoxData); function pxBoxData_Specified(Index: Integer): boolean; procedure SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function varCalcParams_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property pxBoxData: pxBoxData Index(IS_OPTN)read FpxBoxData write SetpxBoxData stored pxBoxData_Specified; property varCalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FvarCalcParams write SetvarCalcParams stored varCalcParams_Specified; end; // ************************************************************************ // // XML : GetBoxDataViaID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataViaID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FBasedOnMetaID: string; FBasedOnMetaID_Specified: boolean; FBoxDataID: string; FBoxDataID_Specified: boolean; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetBasedOnMetaID(Index: Integer; const Astring: string); function BasedOnMetaID_Specified(Index: Integer): boolean; procedure SetBoxDataID(Index: Integer; const Astring: string); function BoxDataID_Specified(Index: Integer): boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property BasedOnMetaID: string Index(IS_OPTN)read FBasedOnMetaID write SetBasedOnMetaID stored BasedOnMetaID_Specified; property BoxDataID: string Index(IS_OPTN)read FBoxDataID write SetBoxDataID stored BoxDataID_Specified; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; end; // ************************************************************************ // // XML : GetBoxDatasViaMeta, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDatasViaMeta = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FMetaID: string; FMetaID_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetMetaID(Index: Integer; const Astring: string); function MetaID_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property MetaID: string Index(IS_OPTN)read FMetaID write SetMetaID stored MetaID_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetMetaViaID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetMetaViaID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FMetaID: string; FMetaID_Specified: boolean; FvarBoxMeta: pxBoxMeta; FvarBoxMeta_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetMetaID(Index: Integer; const Astring: string); function MetaID_Specified(Index: Integer): boolean; procedure SetvarBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); function varBoxMeta_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property MetaID: string Index(IS_OPTN)read FMetaID write SetMetaID stored MetaID_Specified; property varBoxMeta: pxBoxMeta Index(IS_OPTN)read FvarBoxMeta write SetvarBoxMeta stored varBoxMeta_Specified; end; // ************************************************************************ // // XML : GetSnijInfo, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetSnijInfo = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FObjType: string; FObjType_Specified: boolean; FObjRef: string; FObjRef_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetObjType(Index: Integer; const Astring: string); function ObjType_Specified(Index: Integer): boolean; procedure SetObjRef(Index: Integer; const Astring: string); function ObjRef_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property ObjType: string Index(IS_OPTN)read FObjType write SetObjType stored ObjType_Specified; property ObjRef: string Index(IS_OPTN)read FObjRef write SetObjRef stored ObjRef_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetUIResource, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetUIResource = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarUIResource: pxUIResource; FvarUIResource_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); function varUIResource_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varUIResource: pxUIResource Index(IS_OPTN)read FvarUIResource write SetvarUIResource stored varUIResource_Specified; end; // ************************************************************************ // // XML : GetProductURL, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetProductURL = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FQueueID: string; FQueueID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetQueueID(Index: Integer; const Astring: string); function QueueID_Specified(Index: Integer): boolean; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property QueueID: string Index(IS_OPTN)read FQueueID write SetQueueID stored QueueID_Specified; end; // ************************************************************************ // // XML : GetMetaViaProductGroep, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetMetaViaProductGroep = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FProductGroep: string; FProductGroep_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetProductGroep(Index: Integer; const Astring: string); function ProductGroep_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property ProductGroep: string Index(IS_OPTN)read FProductGroep write SetProductGroep stored ProductGroep_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetOptimizerQueue, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetOptimizerQueue = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FType_: string; FType__Specified: boolean; FObjType: string; FObjType_Specified: boolean; FViewOptions: string; FViewOptions_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetType_(Index: Integer; const Astring: string); function Type__Specified(Index: Integer): boolean; procedure SetObjType(Index: Integer; const Astring: string); function ObjType_Specified(Index: Integer): boolean; procedure SetViewOptions(Index: Integer; const Astring: string); function ViewOptions_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Type_: string Index(IS_OPTN)read FType_ write SetType_ stored Type__Specified; property ObjType: string Index(IS_OPTN)read FObjType write SetObjType stored ObjType_Specified; property ViewOptions: string Index(IS_OPTN)read FViewOptions write SetViewOptions stored ViewOptions_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : anyType, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // anyType = class(TRemotable) private published end; // ************************************************************************ // // XML : pxStatus, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxStatus = class(TRemotable) private FIsOK: boolean; FIsOK_Specified: boolean; FMessage_: string; FMessage__Specified: boolean; FInternalMessage: string; FInternalMessage_Specified: boolean; FData: string; FData_Specified: boolean; procedure SetIsOK(Index: Integer; const ABoolean: boolean); function IsOK_Specified(Index: Integer): boolean; procedure SetMessage_(Index: Integer; const Astring: string); function Message__Specified(Index: Integer): boolean; procedure SetInternalMessage(Index: Integer; const Astring: string); function InternalMessage_Specified(Index: Integer): boolean; procedure SetData(Index: Integer; const Astring: string); function Data_Specified(Index: Integer): boolean; published property IsOK: boolean Index(IS_OPTN)read FIsOK write SetIsOK stored IsOK_Specified; property Message_: string Index(IS_OPTN)read FMessage_ write SetMessage_ stored Message__Specified; property InternalMessage: string Index(IS_OPTN)read FInternalMessage write SetInternalMessage stored InternalMessage_Specified; property Data: string Index(IS_OPTN)read FData write SetData stored Data_Specified; end; // ************************************************************************ // // XML : OptimizeViaProduct, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // OptimizeViaProduct = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FProductNr: Int64; FProductNr_Specified: boolean; FCalcParams: ArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified: boolean; FQty: Int64; FQty_Specified: boolean; FSnijPrioriteit: string; FSnijPrioriteit_Specified: boolean; FPPSOutput: string; FPPSOutput_Specified: boolean; FMachineID: string; FMachineID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetProductNr(Index: Integer; const AInt64: Int64); function ProductNr_Specified(Index: Integer): boolean; procedure SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function CalcParams_Specified(Index: Integer): boolean; procedure SetQty(Index: Integer; const AInt64: Int64); function Qty_Specified(Index: Integer): boolean; procedure SetSnijPrioriteit(Index: Integer; const Astring: string); function SnijPrioriteit_Specified(Index: Integer): boolean; procedure SetPPSOutput(Index: Integer; const Astring: string); function PPSOutput_Specified(Index: Integer): boolean; procedure SetMachineID(Index: Integer; const Astring: string); function MachineID_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property ProductNr: Int64 Index(IS_OPTN)read FProductNr write SetProductNr stored ProductNr_Specified; property CalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FCalcParams write SetCalcParams stored CalcParams_Specified; property Qty: Int64 Index(IS_OPTN)read FQty write SetQty stored Qty_Specified; property SnijPrioriteit: string Index(IS_OPTN)read FSnijPrioriteit write SetSnijPrioriteit stored SnijPrioriteit_Specified; property PPSOutput: string Index(IS_OPTN)read FPPSOutput write SetPPSOutput stored PPSOutput_Specified; property MachineID: string Index(IS_OPTN)read FMachineID write SetMachineID stored MachineID_Specified; end; // ************************************************************************ // // XML : OptimizeViaVerpakking, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // OptimizeViaVerpakking = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FGroep: string; FGroep_Specified: boolean; FNaam: string; FNaam_Specified: boolean; FCalcParams: ArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified: boolean; FQty: Int64; FQty_Specified: boolean; FSnijPrioriteit: string; FSnijPrioriteit_Specified: boolean; FPPSOutput: string; FPPSOutput_Specified: boolean; FMachineID: string; FMachineID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetGroep(Index: Integer; const Astring: string); function Groep_Specified(Index: Integer): boolean; procedure SetNaam(Index: Integer; const Astring: string); function Naam_Specified(Index: Integer): boolean; procedure SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function CalcParams_Specified(Index: Integer): boolean; procedure SetQty(Index: Integer; const AInt64: Int64); function Qty_Specified(Index: Integer): boolean; procedure SetSnijPrioriteit(Index: Integer; const Astring: string); function SnijPrioriteit_Specified(Index: Integer): boolean; procedure SetPPSOutput(Index: Integer; const Astring: string); function PPSOutput_Specified(Index: Integer): boolean; procedure SetMachineID(Index: Integer; const Astring: string); function MachineID_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Groep: string Index(IS_OPTN)read FGroep write SetGroep stored Groep_Specified; property Naam: string Index(IS_OPTN)read FNaam write SetNaam stored Naam_Specified; property CalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FCalcParams write SetCalcParams stored CalcParams_Specified; property Qty: Int64 Index(IS_OPTN)read FQty write SetQty stored Qty_Specified; property SnijPrioriteit: string Index(IS_OPTN)read FSnijPrioriteit write SetSnijPrioriteit stored SnijPrioriteit_Specified; property PPSOutput: string Index(IS_OPTN)read FPPSOutput write SetPPSOutput stored PPSOutput_Specified; property MachineID: string Index(IS_OPTN)read FMachineID write SetMachineID stored MachineID_Specified; end; // ************************************************************************ // // XML : ProcessNextBatchItems, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ProcessNextBatchItems = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FBatchID: string; FBatchID_Specified: boolean; FProcessCnt: Int64; FProcessCnt_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetBatchID(Index: Integer; const Astring: string); function BatchID_Specified(Index: Integer): boolean; procedure SetProcessCnt(Index: Integer; const AInt64: Int64); function ProcessCnt_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property BatchID: string Index(IS_OPTN)read FBatchID write SetBatchID stored BatchID_Specified; property ProcessCnt: Int64 Index(IS_OPTN)read FProcessCnt write SetProcessCnt stored ProcessCnt_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; Waarde = type string; { "http://vhintra.vanhoecke.be"[Smpl] } // ************************************************************************ // // XML : pxemDataParam, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxemDataParam = class(TRemotable) private FID: string; FID_Specified: boolean; FProgLabel: string; FProgLabel_Specified: boolean; FToolTip: string; FToolTip_Specified: boolean; FWaarde: Waarde; FWaarde_Specified: boolean; FWaardeExec: WaardeExec; FWaardeExec_Specified: boolean; FWaardeExecResult: WaardeExecResult; FWaardeExecResult_Specified: boolean; procedure SetID(Index: Integer; const Astring: string); function ID_Specified(Index: Integer): boolean; procedure SetProgLabel(Index: Integer; const Astring: string); function ProgLabel_Specified(Index: Integer): boolean; procedure SetToolTip(Index: Integer; const Astring: string); function ToolTip_Specified(Index: Integer): boolean; procedure SetWaarde(Index: Integer; const AWaarde: Waarde); function Waarde_Specified(Index: Integer): boolean; procedure SetWaardeExec(Index: Integer; const AWaardeExec: WaardeExec); function WaardeExec_Specified(Index: Integer): boolean; procedure SetWaardeExecResult(Index: Integer; const AWaardeExecResult: WaardeExecResult); function WaardeExecResult_Specified(Index: Integer): boolean; published property ID: string Index(IS_OPTN)read FID write SetID stored ID_Specified; property ProgLabel: string Index(IS_OPTN)read FProgLabel write SetProgLabel stored ProgLabel_Specified; property ToolTip: string Index(IS_OPTN)read FToolTip write SetToolTip stored ToolTip_Specified; property Waarde: Waarde Index(IS_OPTN)read FWaarde write SetWaarde stored Waarde_Specified; property WaardeExec: WaardeExec Index(IS_OPTN)read FWaardeExec write SetWaardeExec stored WaardeExec_Specified; property WaardeExecResult: WaardeExecResult Index(IS_OPTN)read FWaardeExecResult write SetWaardeExecResult stored WaardeExecResult_Specified; end; // ************************************************************************ // // XML : pxemPPSPrioriteit, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxemPPSPrioriteit = class(TRemotable) private FKey: string; FKey_Specified: boolean; FValue: Int64; FValue_Specified: boolean; procedure SetKey(Index: Integer; const Astring: string); function Key_Specified(Index: Integer): boolean; procedure SetValue(Index: Integer; const AInt64: Int64); function Value_Specified(Index: Integer): boolean; published property Key: string Index(IS_OPTN)read FKey write SetKey stored Key_Specified; property Value: Int64 Index(IS_OPTN)read FValue write SetValue stored Value_Specified; end; ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit = array of pxemPPSPrioriteit; { "http://vhintra.vanhoecke.be"[GblCplx] } // ************************************************************************ // // XML : pxBoxMeta, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxBoxMeta = class(TRemotable) private FID: string; FID_Specified: boolean; FName_: string; FName__Specified: boolean; FProductGroep: string; FProductGroep_Specified: boolean; FBoxSelect: ArrayOfpxemBoxSelectpxemBoxSelect; FBoxSelect_Specified: boolean; FOptiType: string; FOptiType_Specified: boolean; FPositie: string; FPositie_Specified: boolean; FPlaatsing: string; FPlaatsing_Specified: boolean; FRotatie: string; FRotatie_Specified: boolean; FHoogte: string; FHoogte_Specified: boolean; FBreedte: string; FBreedte_Specified: boolean; FDiepte: string; FDiepte_Specified: boolean; FPPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit; FPPSPrioriteit_Specified: boolean; FPPSGroep: string; FPPSGroep_Specified: boolean; FPPSSubgroep: string; FPPSSubgroep_Specified: boolean; FPPSOutput: string; FPPSOutput_Specified: boolean; FParams: ArrayOfpxemMetaParampxemMetaParam; FParams_Specified: boolean; procedure SetID(Index: Integer; const Astring: string); function ID_Specified(Index: Integer): boolean; procedure SetName_(Index: Integer; const Astring: string); function Name__Specified(Index: Integer): boolean; procedure SetProductGroep(Index: Integer; const Astring: string); function ProductGroep_Specified(Index: Integer): boolean; procedure SetBoxSelect(Index: Integer; const AArrayOfpxemBoxSelectpxemBoxSelect: ArrayOfpxemBoxSelectpxemBoxSelect); function BoxSelect_Specified(Index: Integer): boolean; procedure SetOptiType(Index: Integer; const Astring: string); function OptiType_Specified(Index: Integer): boolean; procedure SetPositie(Index: Integer; const Astring: string); function Positie_Specified(Index: Integer): boolean; procedure SetPlaatsing(Index: Integer; const Astring: string); function Plaatsing_Specified(Index: Integer): boolean; procedure SetRotatie(Index: Integer; const Astring: string); function Rotatie_Specified(Index: Integer): boolean; procedure SetHoogte(Index: Integer; const Astring: string); function Hoogte_Specified(Index: Integer): boolean; procedure SetBreedte(Index: Integer; const Astring: string); function Breedte_Specified(Index: Integer): boolean; procedure SetDiepte(Index: Integer; const Astring: string); function Diepte_Specified(Index: Integer): boolean; procedure SetPPSPrioriteit(Index: Integer; const AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit : ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit); function PPSPrioriteit_Specified(Index: Integer): boolean; procedure SetPPSGroep(Index: Integer; const Astring: string); function PPSGroep_Specified(Index: Integer): boolean; procedure SetPPSSubgroep(Index: Integer; const Astring: string); function PPSSubgroep_Specified(Index: Integer): boolean; procedure SetPPSOutput(Index: Integer; const Astring: string); function PPSOutput_Specified(Index: Integer): boolean; procedure SetParams(Index: Integer; const AArrayOfpxemMetaParampxemMetaParam: ArrayOfpxemMetaParampxemMetaParam); function Params_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ID: string Index(IS_OPTN)read FID write SetID stored ID_Specified; property Name_: string Index(IS_OPTN)read FName_ write SetName_ stored Name__Specified; property ProductGroep: string Index(IS_OPTN)read FProductGroep write SetProductGroep stored ProductGroep_Specified; property BoxSelect: ArrayOfpxemBoxSelectpxemBoxSelect Index(IS_OPTN)read FBoxSelect write SetBoxSelect stored BoxSelect_Specified; property OptiType: string Index(IS_OPTN)read FOptiType write SetOptiType stored OptiType_Specified; property Positie: string Index(IS_OPTN)read FPositie write SetPositie stored Positie_Specified; property Plaatsing: string Index(IS_OPTN)read FPlaatsing write SetPlaatsing stored Plaatsing_Specified; property Rotatie: string Index(IS_OPTN)read FRotatie write SetRotatie stored Rotatie_Specified; property Hoogte: string Index(IS_OPTN)read FHoogte write SetHoogte stored Hoogte_Specified; property Breedte: string Index(IS_OPTN)read FBreedte write SetBreedte stored Breedte_Specified; property Diepte: string Index(IS_OPTN)read FDiepte write SetDiepte stored Diepte_Specified; property PPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit Index(IS_OPTN)read FPPSPrioriteit write SetPPSPrioriteit stored PPSPrioriteit_Specified; property PPSGroep: string Index(IS_OPTN)read FPPSGroep write SetPPSGroep stored PPSGroep_Specified; property PPSSubgroep: string Index(IS_OPTN)read FPPSSubgroep write SetPPSSubgroep stored PPSSubgroep_Specified; property PPSOutput: string Index(IS_OPTN)read FPPSOutput write SetPPSOutput stored PPSOutput_Specified; property Params: ArrayOfpxemMetaParampxemMetaParam Index(IS_OPTN)read FParams write SetParams stored Params_Specified; end; ArrayOfpxemDataParampxemDataParam = array of pxemDataParam; { "http://vhintra.vanhoecke.be"[GblCplx] } // ************************************************************************ // // XML : pxBoxData, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxBoxData = class(TRemotable) private FID: string; FID_Specified: boolean; FObjType: string; FObjType_Specified: boolean; FObjRef: string; FObjRef_Specified: boolean; FCutOrder: Int64; FCutOrder_Specified: boolean; FDeelVanCaption: string; FDeelVanCaption_Specified: boolean; FDeelVanID: string; FDeelVanID_Specified: boolean; FVolumeVanCaption: string; FVolumeVanCaption_Specified: boolean; FVolumeVanID: string; FVolumeVanID_Specified: boolean; FMetaCaption: string; FMetaCaption_Specified: boolean; FMetaID: string; FMetaID_Specified: boolean; FDefaultData: pxBoxData; FDefaultData_Specified: boolean; FPositie: string; FPositie_Specified: boolean; FOptiType: string; FOptiType_Specified: boolean; FBoxSelect: string; FBoxSelect_Specified: boolean; FRotatie: string; FRotatie_Specified: boolean; FPlaatsing: string; FPlaatsing_Specified: boolean; FHoogte: string; FHoogte_Specified: boolean; FHoogteExec: string; FHoogteExec_Specified: boolean; FHoogteExecResult: string; FHoogteExecResult_Specified: boolean; FBreedte: string; FBreedte_Specified: boolean; FBreedteExec: string; FBreedteExec_Specified: boolean; FBreedteExecResult: string; FBreedteExecResult_Specified: boolean; FDiepte: string; FDiepte_Specified: boolean; FDiepteExec: string; FDiepteExec_Specified: boolean; FDiepteExecResult: string; FDiepteExecResult_Specified: boolean; FAantal: string; FAantal_Specified: boolean; FAantalExec: string; FAantalExec_Specified: boolean; FAantalExecResult: string; FAantalExecResult_Specified: boolean; FMaxCombinAantal: string; FMaxCombinAantal_Specified: boolean; FPPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit; FPPSPrioriteit_Specified: boolean; FPPSGroep: string; FPPSGroep_Specified: boolean; FPPSSubgroep: string; FPPSSubgroep_Specified: boolean; FPPSOutput: string; FPPSOutput_Specified: boolean; FParams: ArrayOfpxemDataParampxemDataParam; FParams_Specified: boolean; procedure SetID(Index: Integer; const Astring: string); function ID_Specified(Index: Integer): boolean; procedure SetObjType(Index: Integer; const Astring: string); function ObjType_Specified(Index: Integer): boolean; procedure SetObjRef(Index: Integer; const Astring: string); function ObjRef_Specified(Index: Integer): boolean; procedure SetCutOrder(Index: Integer; const AInt64: Int64); function CutOrder_Specified(Index: Integer): boolean; procedure SetDeelVanCaption(Index: Integer; const Astring: string); function DeelVanCaption_Specified(Index: Integer): boolean; procedure SetDeelVanID(Index: Integer; const Astring: string); function DeelVanID_Specified(Index: Integer): boolean; procedure SetVolumeVanCaption(Index: Integer; const Astring: string); function VolumeVanCaption_Specified(Index: Integer): boolean; procedure SetVolumeVanID(Index: Integer; const Astring: string); function VolumeVanID_Specified(Index: Integer): boolean; procedure SetMetaCaption(Index: Integer; const Astring: string); function MetaCaption_Specified(Index: Integer): boolean; procedure SetMetaID(Index: Integer; const Astring: string); function MetaID_Specified(Index: Integer): boolean; procedure SetDefaultData(Index: Integer; const ApxBoxData: pxBoxData); function DefaultData_Specified(Index: Integer): boolean; procedure SetPositie(Index: Integer; const Astring: string); function Positie_Specified(Index: Integer): boolean; procedure SetOptiType(Index: Integer; const Astring: string); function OptiType_Specified(Index: Integer): boolean; procedure SetBoxSelect(Index: Integer; const Astring: string); function BoxSelect_Specified(Index: Integer): boolean; procedure SetRotatie(Index: Integer; const Astring: string); function Rotatie_Specified(Index: Integer): boolean; procedure SetPlaatsing(Index: Integer; const Astring: string); function Plaatsing_Specified(Index: Integer): boolean; procedure SetHoogte(Index: Integer; const Astring: string); function Hoogte_Specified(Index: Integer): boolean; procedure SetHoogteExec(Index: Integer; const Astring: string); function HoogteExec_Specified(Index: Integer): boolean; procedure SetHoogteExecResult(Index: Integer; const Astring: string); function HoogteExecResult_Specified(Index: Integer): boolean; procedure SetBreedte(Index: Integer; const Astring: string); function Breedte_Specified(Index: Integer): boolean; procedure SetBreedteExec(Index: Integer; const Astring: string); function BreedteExec_Specified(Index: Integer): boolean; procedure SetBreedteExecResult(Index: Integer; const Astring: string); function BreedteExecResult_Specified(Index: Integer): boolean; procedure SetDiepte(Index: Integer; const Astring: string); function Diepte_Specified(Index: Integer): boolean; procedure SetDiepteExec(Index: Integer; const Astring: string); function DiepteExec_Specified(Index: Integer): boolean; procedure SetDiepteExecResult(Index: Integer; const Astring: string); function DiepteExecResult_Specified(Index: Integer): boolean; procedure SetAantal(Index: Integer; const Astring: string); function Aantal_Specified(Index: Integer): boolean; procedure SetAantalExec(Index: Integer; const Astring: string); function AantalExec_Specified(Index: Integer): boolean; procedure SetAantalExecResult(Index: Integer; const Astring: string); function AantalExecResult_Specified(Index: Integer): boolean; procedure SetMaxCombinAantal(Index: Integer; const Astring: string); function MaxCombinAantal_Specified(Index: Integer): boolean; procedure SetPPSPrioriteit(Index: Integer; const AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit : ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit); function PPSPrioriteit_Specified(Index: Integer): boolean; procedure SetPPSGroep(Index: Integer; const Astring: string); function PPSGroep_Specified(Index: Integer): boolean; procedure SetPPSSubgroep(Index: Integer; const Astring: string); function PPSSubgroep_Specified(Index: Integer): boolean; procedure SetPPSOutput(Index: Integer; const Astring: string); function PPSOutput_Specified(Index: Integer): boolean; procedure SetParams(Index: Integer; const AArrayOfpxemDataParampxemDataParam: ArrayOfpxemDataParampxemDataParam); function Params_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ID: string Index(IS_OPTN)read FID write SetID stored ID_Specified; property ObjType: string Index(IS_OPTN)read FObjType write SetObjType stored ObjType_Specified; property ObjRef: string Index(IS_OPTN)read FObjRef write SetObjRef stored ObjRef_Specified; property CutOrder: Int64 Index(IS_OPTN)read FCutOrder write SetCutOrder stored CutOrder_Specified; property DeelVanCaption: string Index(IS_OPTN)read FDeelVanCaption write SetDeelVanCaption stored DeelVanCaption_Specified; property DeelVanID: string Index(IS_OPTN)read FDeelVanID write SetDeelVanID stored DeelVanID_Specified; property VolumeVanCaption: string Index(IS_OPTN)read FVolumeVanCaption write SetVolumeVanCaption stored VolumeVanCaption_Specified; property VolumeVanID: string Index(IS_OPTN)read FVolumeVanID write SetVolumeVanID stored VolumeVanID_Specified; property MetaCaption: string Index(IS_OPTN)read FMetaCaption write SetMetaCaption stored MetaCaption_Specified; property MetaID: string Index(IS_OPTN)read FMetaID write SetMetaID stored MetaID_Specified; property DefaultData: pxBoxData Index(IS_OPTN)read FDefaultData write SetDefaultData stored DefaultData_Specified; property Positie: string Index(IS_OPTN)read FPositie write SetPositie stored Positie_Specified; property OptiType: string Index(IS_OPTN)read FOptiType write SetOptiType stored OptiType_Specified; property BoxSelect: string Index(IS_OPTN)read FBoxSelect write SetBoxSelect stored BoxSelect_Specified; property Rotatie: string Index(IS_OPTN)read FRotatie write SetRotatie stored Rotatie_Specified; property Plaatsing: string Index(IS_OPTN)read FPlaatsing write SetPlaatsing stored Plaatsing_Specified; property Hoogte: string Index(IS_OPTN)read FHoogte write SetHoogte stored Hoogte_Specified; property HoogteExec: string Index(IS_OPTN)read FHoogteExec write SetHoogteExec stored HoogteExec_Specified; property HoogteExecResult: string Index(IS_OPTN)read FHoogteExecResult write SetHoogteExecResult stored HoogteExecResult_Specified; property Breedte: string Index(IS_OPTN)read FBreedte write SetBreedte stored Breedte_Specified; property BreedteExec: string Index(IS_OPTN)read FBreedteExec write SetBreedteExec stored BreedteExec_Specified; property BreedteExecResult: string Index(IS_OPTN)read FBreedteExecResult write SetBreedteExecResult stored BreedteExecResult_Specified; property Diepte: string Index(IS_OPTN)read FDiepte write SetDiepte stored Diepte_Specified; property DiepteExec: string Index(IS_OPTN)read FDiepteExec write SetDiepteExec stored DiepteExec_Specified; property DiepteExecResult: string Index(IS_OPTN)read FDiepteExecResult write SetDiepteExecResult stored DiepteExecResult_Specified; property Aantal: string Index(IS_OPTN)read FAantal write SetAantal stored Aantal_Specified; property AantalExec: string Index(IS_OPTN)read FAantalExec write SetAantalExec stored AantalExec_Specified; property AantalExecResult: string Index(IS_OPTN)read FAantalExecResult write SetAantalExecResult stored AantalExecResult_Specified; property MaxCombinAantal: string Index(IS_OPTN)read FMaxCombinAantal write SetMaxCombinAantal stored MaxCombinAantal_Specified; property PPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit Index(IS_OPTN)read FPPSPrioriteit write SetPPSPrioriteit stored PPSPrioriteit_Specified; property PPSGroep: string Index(IS_OPTN)read FPPSGroep write SetPPSGroep stored PPSGroep_Specified; property PPSSubgroep: string Index(IS_OPTN)read FPPSSubgroep write SetPPSSubgroep stored PPSSubgroep_Specified; property PPSOutput: string Index(IS_OPTN)read FPPSOutput write SetPPSOutput stored PPSOutput_Specified; property Params: ArrayOfpxemDataParampxemDataParam Index(IS_OPTN)read FParams write SetParams stored Params_Specified; end; Omschrijving = type string; { "http://vhintra.vanhoecke.be"[Smpl] } // ************************************************************************ // // XML : pxemMetaParam, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // pxemMetaParam = class(TRemotable) private FType_: string; FType__Specified: boolean; FID: string; FID_Specified: boolean; FDefault_: Default_; FDefault__Specified: boolean; FOmschrijving: Omschrijving; FOmschrijving_Specified: boolean; FProgLabel: string; FProgLabel_Specified: boolean; procedure SetType_(Index: Integer; const Astring: string); function Type__Specified(Index: Integer): boolean; procedure SetID(Index: Integer; const Astring: string); function ID_Specified(Index: Integer): boolean; procedure SetDefault_(Index: Integer; const ADefault_: Default_); function Default__Specified(Index: Integer): boolean; procedure SetOmschrijving(Index: Integer; const AOmschrijving: Omschrijving); function Omschrijving_Specified(Index: Integer): boolean; procedure SetProgLabel(Index: Integer; const Astring: string); function ProgLabel_Specified(Index: Integer): boolean; published property Type_: string Index(IS_OPTN)read FType_ write SetType_ stored Type__Specified; property ID: string Index(IS_OPTN)read FID write SetID stored ID_Specified; property Default_: Default_ Index(IS_OPTN)read FDefault_ write SetDefault_ stored Default__Specified; property Omschrijving: Omschrijving Index(IS_OPTN)read FOmschrijving write SetOmschrijving stored Omschrijving_Specified; property ProgLabel: string Index(IS_OPTN)read FProgLabel write SetProgLabel stored ProgLabel_Specified; end; // ************************************************************************ // // XML : GetAllBoxSelectResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllBoxSelectResponse = class(TRemotable) private FGetAllBoxSelectResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetAllBoxSelectResult: pxStatus read FGetAllBoxSelectResult write FGetAllBoxSelectResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetAllProductGroepen, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllProductGroepen = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetAllBoxSelect, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllBoxSelect = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : DeleteMetaViaID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // DeleteMetaViaID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FMetaID: string; FMetaID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetMetaID(Index: Integer; const Astring: string); function MetaID_Specified(Index: Integer): boolean; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property MetaID: string Index(IS_OPTN)read FMetaID write SetMetaID stored MetaID_Specified; end; // ************************************************************************ // // XML : DeleteMetaViaIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // DeleteMetaViaIDResponse = class(TRemotable) private FDeleteMetaViaIDResult: pxStatus; public destructor Destroy; override; published property DeleteMetaViaIDResult: pxStatus read FDeleteMetaViaIDResult write FDeleteMetaViaIDResult; end; // ************************************************************************ // // XML : GetAllProductGroepenResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllProductGroepenResponse = class(TRemotable) private FGetAllProductGroepenResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetAllProductGroepenResult: pxStatus read FGetAllProductGroepenResult write FGetAllProductGroepenResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetBoxDataIDsViaProductResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataIDsViaProductResponse = class(TRemotable) private FGetBoxDataIDsViaProductResult: pxStatus; FvarDataSet: string; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: string); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetBoxDataIDsViaProductResult: pxStatus read FGetBoxDataIDsViaProductResult write FGetBoxDataIDsViaProductResult; property varDataSet: string Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetBoxDataIDsViaVerpakking, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataIDsViaVerpakking = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FGroep: string; FGroep_Specified: boolean; FNaam: string; FNaam_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetGroep(Index: Integer; const Astring: string); function Groep_Specified(Index: Integer): boolean; procedure SetNaam(Index: Integer; const Astring: string); function Naam_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Groep: string Index(IS_OPTN)read FGroep write SetGroep stored Groep_Specified; property Naam: string Index(IS_OPTN)read FNaam write SetNaam stored Naam_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetBoxDataIDsViaProduct, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetBoxDataIDsViaProduct = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FProductNr: Int64; FProductNr_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetProductNr(Index: Integer; const AInt64: Int64); function ProductNr_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property ProductNr: Int64 Index(IS_OPTN)read FProductNr write SetProductNr stored ProductNr_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetAllVerpakkingGroepen, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllVerpakkingGroepen = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : GetAllVerpakkingGroepenResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // GetAllVerpakkingGroepenResponse = class(TRemotable) private FGetAllVerpakkingGroepenResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property GetAllVerpakkingGroepenResult: pxStatus read FGetAllVerpakkingGroepenResult write FGetAllVerpakkingGroepenResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : DeleteBoxDataViaIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // DeleteBoxDataViaIDResponse = class(TRemotable) private FDeleteBoxDataViaIDResult: pxStatus; public destructor Destroy; override; published property DeleteBoxDataViaIDResult: pxStatus read FDeleteBoxDataViaIDResult write FDeleteBoxDataViaIDResult; end; // ************************************************************************ // // XML : AllFromBatchResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // AllFromBatchResponse = class(TRemotable) private FAllFromBatchResult: pxStatus; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property AllFromBatchResult: pxStatus read FAllFromBatchResult write FAllFromBatchResult; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; // ************************************************************************ // // XML : Bulk, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // Bulk = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FDoosType: string; FDoosType_Specified: boolean; FAantal: Int64; FAantal_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetDoosType(Index: Integer; const Astring: string); function DoosType_Specified(Index: Integer): boolean; procedure SetAantal(Index: Integer; const AInt64: Int64); function Aantal_Specified(Index: Integer): boolean; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property DoosType: string Index(IS_OPTN)read FDoosType write SetDoosType stored DoosType_Specified; property Aantal: Int64 Index(IS_OPTN)read FAantal write SetAantal stored Aantal_Specified; end; // ************************************************************************ // // XML : AllFromBatch, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // AllFromBatch = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FWerkpost: string; FWerkpost_Specified: boolean; FBatchID: string; FBatchID_Specified: boolean; FExcludeList: string; FExcludeList_Specified: boolean; FvarDataSet: anyType; FvarDataSet_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetWerkpost(Index: Integer; const Astring: string); function Werkpost_Specified(Index: Integer): boolean; procedure SetBatchID(Index: Integer; const Astring: string); function BatchID_Specified(Index: Integer): boolean; procedure SetExcludeList(Index: Integer; const Astring: string); function ExcludeList_Specified(Index: Integer): boolean; procedure SetvarDataSet(Index: Integer; const AanyType: anyType); function varDataSet_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property Werkpost: string Index(IS_OPTN)read FWerkpost write SetWerkpost stored Werkpost_Specified; property BatchID: string Index(IS_OPTN)read FBatchID write SetBatchID stored BatchID_Specified; property ExcludeList: string Index(IS_OPTN)read FExcludeList write SetExcludeList stored ExcludeList_Specified; property varDataSet: anyType Index(IS_OPTN)read FvarDataSet write SetvarDataSet stored varDataSet_Specified; end; ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString = array of PairOfSnijOpdrachtenKeyString; { "http://vhintra.vanhoecke.be"[GblCplx] } // ************************************************************************ // // XML : Snij, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // Snij = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FSnijOpdrachten: ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString; FSnijOpdrachten_Specified: boolean; FSnijPrioriteit: string; FSnijPrioriteit_Specified: boolean; FPPSOutput: string; FPPSOutput_Specified: boolean; FMachineID: string; FMachineID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetSnijOpdrachten(Index: Integer; const AArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString : ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString); function SnijOpdrachten_Specified(Index: Integer): boolean; procedure SetSnijPrioriteit(Index: Integer; const Astring: string); function SnijPrioriteit_Specified(Index: Integer): boolean; procedure SetPPSOutput(Index: Integer; const Astring: string); function PPSOutput_Specified(Index: Integer): boolean; procedure SetMachineID(Index: Integer; const Astring: string); function MachineID_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property SnijOpdrachten: ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString Index(IS_OPTN)read FSnijOpdrachten write SetSnijOpdrachten stored SnijOpdrachten_Specified; property SnijPrioriteit: string Index(IS_OPTN)read FSnijPrioriteit write SetSnijPrioriteit stored SnijPrioriteit_Specified; property PPSOutput: string Index(IS_OPTN)read FPPSOutput write SetPPSOutput stored PPSOutput_Specified; property MachineID: string Index(IS_OPTN)read FMachineID write SetMachineID stored MachineID_Specified; end; // ************************************************************************ // // XML : PairOfSnijOpdrachtenKeyString, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // PairOfSnijOpdrachtenKeyString = class(TRemotable) private FText: string; FSnijOpdrachtenKey: string; published property Text: string Index(IS_TEXT)read FText write FText; property SnijOpdrachtenKey: string Index(IS_ATTR)read FSnijOpdrachtenKey write FSnijOpdrachtenKey; end; // ************************************************************************ // // XML : BulkResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // BulkResponse = class(TRemotable) private FBulkResult: pxStatus; public destructor Destroy; override; published property BulkResult: pxStatus read FBulkResult write FBulkResult; end; // ************************************************************************ // // XML : ChangeBasedOnMetaIDResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ChangeBasedOnMetaIDResponse = class(TRemotable) private FChangeBasedOnMetaIDResult: pxStatus; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property ChangeBasedOnMetaIDResult: pxStatus read FChangeBasedOnMetaIDResult write FChangeBasedOnMetaIDResult; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; end; // ************************************************************************ // // XML : DeleteBoxDataViaID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // DeleteBoxDataViaID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FBoxDataID: string; FBoxDataID_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetBoxDataID(Index: Integer; const Astring: string); function BoxDataID_Specified(Index: Integer): boolean; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property BoxDataID: string Index(IS_OPTN)read FBoxDataID write SetBoxDataID stored BoxDataID_Specified; end; // ************************************************************************ // // XML : ChangeBasedOnMetaID, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // ChangeBasedOnMetaID = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FBasedOnMetaID: string; FBasedOnMetaID_Specified: boolean; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetBasedOnMetaID(Index: Integer; const Astring: string); function BasedOnMetaID_Specified(Index: Integer): boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property BasedOnMetaID: string Index(IS_OPTN)read FBasedOnMetaID write SetBasedOnMetaID stored BasedOnMetaID_Specified; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; end; // ************************************************************************ // // XML : CalcBoxDataViaCalcParams, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // CalcBoxDataViaCalcParams = class(TRemotable) private FSessionKey: string; FSessionKey_Specified: boolean; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; FCalcParams: ArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified: boolean; procedure SetSessionKey(Index: Integer; const Astring: string); function SessionKey_Specified(Index: Integer): boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; procedure SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); function CalcParams_Specified(Index: Integer): boolean; public destructor Destroy; override; published property SessionKey: string Index(IS_OPTN)read FSessionKey write SetSessionKey stored SessionKey_Specified; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; property CalcParams: ArrayOfpxemSnijParampxemSnijParam Index(IS_OPTN)read FCalcParams write SetCalcParams stored CalcParams_Specified; end; // ************************************************************************ // // XML : CalcBoxDataViaCalcParamsResponse, global, // Namespace : http://vhintra.vanhoecke.be // ************************************************************************ // CalcBoxDataViaCalcParamsResponse = class(TRemotable) private FCalcBoxDataViaCalcParamsResult: pxStatus; FvarBoxData: pxBoxData; FvarBoxData_Specified: boolean; procedure SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); function varBoxData_Specified(Index: Integer): boolean; public destructor Destroy; override; published property CalcBoxDataViaCalcParamsResult: pxStatus read FCalcBoxDataViaCalcParamsResult write FCalcBoxDataViaCalcParamsResult; property varBoxData: pxBoxData Index(IS_OPTN)read FvarBoxData write SetvarBoxData stored varBoxData_Specified; end; // ************************************************************************ // // Namespace : http://vhintra.vanhoecke.be // soapAction: http://vhintra.vanhoecke.be/WS.Prod.OptiBox.OptiServer.%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : OptiBoxServerSoap // service : OptiBoxServer // port : OptiBoxServerSoap // URL : http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.cls // ************************************************************************ // OptiBoxServerSoap = interface(IInvokable) ['{09D63066-324A-723D-D752-6EDD4FAD53BF}'] function AllFromBatch(const parameters: AllFromBatch): AllFromBatchResponse; stdcall; function Bulk(const parameters: Bulk): BulkResponse; stdcall; function CalcBoxDataViaCalcParams(const parameters: CalcBoxDataViaCalcParams): CalcBoxDataViaCalcParamsResponse; stdcall; function ChangeBasedOnMetaID(const parameters: ChangeBasedOnMetaID): ChangeBasedOnMetaIDResponse; stdcall; function DeleteBoxDataViaID(const parameters: DeleteBoxDataViaID): DeleteBoxDataViaIDResponse; stdcall; function DeleteMetaViaID(const parameters: DeleteMetaViaID): DeleteMetaViaIDResponse; stdcall; function GetAllBoxSelect(const parameters: GetAllBoxSelect): GetAllBoxSelectResponse; stdcall; function GetAllProductGroepen(const parameters: GetAllProductGroepen): GetAllProductGroepenResponse; stdcall; function GetAllVerpakkingGroepen(const parameters: GetAllVerpakkingGroepen): GetAllVerpakkingGroepenResponse; stdcall; function GetBoxDataIDsViaProduct(const parameters: GetBoxDataIDsViaProduct): GetBoxDataIDsViaProductResponse; stdcall; function GetBoxDataIDsViaVerpakking(const parameters: GetBoxDataIDsViaVerpakking) : GetBoxDataIDsViaVerpakkingResponse; stdcall; function GetBoxDataViaID(const parameters: GetBoxDataViaID): GetBoxDataViaIDResponse; stdcall; function GetBoxDatasViaMeta(const parameters: GetBoxDatasViaMeta): GetBoxDatasViaMetaResponse; stdcall; function GetCalcParamsViaBoxData(const parameters: GetCalcParamsViaBoxData): GetCalcParamsViaBoxDataResponse; stdcall; function GetCalcParamsViaBoxDataIDs(const parameters: GetCalcParamsViaBoxDataIDs) : GetCalcParamsViaBoxDataIDsResponse; stdcall; function GetDataUIResource(const parameters: GetDataUIResource): GetDataUIResourceResponse; stdcall; function GetMetaViaID(const parameters: GetMetaViaID): GetMetaViaIDResponse; stdcall; function GetMetaViaProductGroep(const parameters: GetMetaViaProductGroep): GetMetaViaProductGroepResponse; stdcall; function GetOptimizerQueue(const parameters: GetOptimizerQueue): GetOptimizerQueueResponse; stdcall; function GetProductURL(const parameters: GetProductURL): GetProductURLResponse; stdcall; function GetSnijInfo(const parameters: GetSnijInfo): GetSnijInfoResponse; stdcall; function GetUIResource(const parameters: GetUIResource): GetUIResourceResponse; stdcall; function GetVerpakkingNamenViaGroep(const parameters: GetVerpakkingNamenViaGroep) : GetVerpakkingNamenViaGroepResponse; stdcall; function GetVolumeVanID(const parameters: GetVolumeVanID): GetVolumeVanIDResponse; stdcall; function GetWPBatchIDsViaWerkpost(const parameters: GetWPBatchIDsViaWerkpost): GetWPBatchIDsViaWerkpostResponse; stdcall; function GetWPQueueViaBatchID(const parameters: GetWPQueueViaBatchID): GetWPQueueViaBatchIDResponse; stdcall; function ModifyStatus(const parameters: ModifyStatus): ModifyStatusResponse; stdcall; function OptimizeViaProduct(const parameters: OptimizeViaProduct): OptimizeViaProductResponse; stdcall; function OptimizeViaVerpakking(const parameters: OptimizeViaVerpakking): OptimizeViaVerpakkingResponse; stdcall; function ProcessNextBatchItems(const parameters: ProcessNextBatchItems): ProcessNextBatchItemsResponse; stdcall; function ReProcessItem(const parameters: ReProcessItem): ReProcessItemResponse; stdcall; function SaveBoxData(const parameters: SaveBoxData): SaveBoxDataResponse; stdcall; function SaveBoxMeta(const parameters: SaveBoxMeta): SaveBoxMetaResponse; stdcall; function Snij(const parameters: Snij): SnijResponse; stdcall; end; function GetOptiBoxServerSoap(UseWSDL: boolean = System.False; Addr: string = ''; HTTPRIO: THTTPRIO = nil): OptiBoxServerSoap; implementation uses SysUtils; function GetOptiBoxServerSoap(UseWSDL: boolean; Addr: string; HTTPRIO: THTTPRIO): OptiBoxServerSoap; const defWSDL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.CLS?WSDL=1'; defURL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.cls'; defSvc = 'OptiBoxServer'; defPrt = 'OptiBoxServerSoap'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as OptiBoxServerSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; destructor GetOptimizerQueueResponse.Destroy; begin SysUtils.FreeAndNil(FGetOptimizerQueueResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetOptimizerQueueResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetOptimizerQueueResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetMetaViaProductGroepResponse.Destroy; begin SysUtils.FreeAndNil(FGetMetaViaProductGroepResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetMetaViaProductGroepResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetMetaViaProductGroepResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetMetaViaIDResponse.Destroy; begin SysUtils.FreeAndNil(FGetMetaViaIDResult); SysUtils.FreeAndNil(FvarBoxMeta); inherited Destroy; end; procedure GetMetaViaIDResponse.SetvarBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); begin FvarBoxMeta := ApxBoxMeta; FvarBoxMeta_Specified := True; end; function GetMetaViaIDResponse.varBoxMeta_Specified(Index: Integer): boolean; begin Result := FvarBoxMeta_Specified; end; destructor GetUIResourceResponse.Destroy; begin SysUtils.FreeAndNil(FGetUIResourceResult); SysUtils.FreeAndNil(FvarUIResource); inherited Destroy; end; procedure GetUIResourceResponse.SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); begin FvarUIResource := ApxUIResource; FvarUIResource_Specified := True; end; function GetUIResourceResponse.varUIResource_Specified(Index: Integer): boolean; begin Result := FvarUIResource_Specified; end; destructor GetSnijInfoResponse.Destroy; begin SysUtils.FreeAndNil(FGetSnijInfoResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetSnijInfoResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetSnijInfoResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetProductURLResponse.Destroy; begin SysUtils.FreeAndNil(FGetProductURLResult); inherited Destroy; end; destructor GetBoxDatasViaMetaResponse.Destroy; begin SysUtils.FreeAndNil(FGetBoxDatasViaMetaResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDatasViaMetaResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDatasViaMetaResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetBoxDataViaIDResponse.Destroy; begin SysUtils.FreeAndNil(FGetBoxDataViaIDResult); SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure GetBoxDataViaIDResponse.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function GetBoxDataViaIDResponse.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; destructor GetBoxDataIDsViaVerpakkingResponse.Destroy; begin SysUtils.FreeAndNil(FGetBoxDataIDsViaVerpakkingResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDataIDsViaVerpakkingResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDataIDsViaVerpakkingResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetDataUIResourceResponse.Destroy; begin SysUtils.FreeAndNil(FGetDataUIResourceResult); SysUtils.FreeAndNil(FvarUIResource); inherited Destroy; end; procedure GetDataUIResourceResponse.SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); begin FvarUIResource := ApxUIResource; FvarUIResource_Specified := True; end; function GetDataUIResourceResponse.varUIResource_Specified(Index: Integer): boolean; begin Result := FvarUIResource_Specified; end; destructor ReProcessItemResponse.Destroy; begin SysUtils.FreeAndNil(FReProcessItemResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ReProcessItemResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ReProcessItemResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor ProcessNextBatchItemsResponse.Destroy; begin SysUtils.FreeAndNil(FProcessNextBatchItemsResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ProcessNextBatchItemsResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ProcessNextBatchItemsResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor OptimizeViaVerpakkingResponse.Destroy; begin SysUtils.FreeAndNil(FOptimizeViaVerpakkingResult); inherited Destroy; end; destructor SnijResponse.Destroy; begin SysUtils.FreeAndNil(FSnijResult); inherited Destroy; end; destructor SaveBoxMetaResponse.Destroy; begin SysUtils.FreeAndNil(FSaveBoxMetaResult); inherited Destroy; end; destructor SaveBoxDataResponse.Destroy; begin SysUtils.FreeAndNil(FSaveBoxDataResult); inherited Destroy; end; destructor GetWPBatchIDsViaWerkpostResponse.Destroy; begin SysUtils.FreeAndNil(FGetWPBatchIDsViaWerkpostResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetWPBatchIDsViaWerkpostResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetWPBatchIDsViaWerkpostResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetVerpakkingNamenViaGroepResponse.Destroy; begin SysUtils.FreeAndNil(FGetVerpakkingNamenViaGroepResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetVerpakkingNamenViaGroepResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetVerpakkingNamenViaGroepResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor OptimizeViaProductResponse.Destroy; begin SysUtils.FreeAndNil(FOptimizeViaProductResult); inherited Destroy; end; destructor ModifyStatusResponse.Destroy; begin SysUtils.FreeAndNil(FModifyStatusResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ModifyStatusResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ModifyStatusResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetWPQueueViaBatchIDResponse.Destroy; begin SysUtils.FreeAndNil(FGetWPQueueViaBatchIDResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetWPQueueViaBatchIDResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetWPQueueViaBatchIDResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetCalcParamsViaBoxDataResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FvarCalcParams) - 1 do SysUtils.FreeAndNil(FvarCalcParams[I]); System.SetLength(FvarCalcParams, 0); SysUtils.FreeAndNil(FGetCalcParamsViaBoxDataResult); inherited Destroy; end; procedure GetCalcParamsViaBoxDataResponse.SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FvarCalcParams := AArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified := True; end; function GetCalcParamsViaBoxDataResponse.varCalcParams_Specified(Index: Integer): boolean; begin Result := FvarCalcParams_Specified; end; destructor GetCalcParamsViaBoxDataIDsResponse.Destroy; var I: Integer; begin for I := 0 to System.Length(FvarCalcParams) - 1 do SysUtils.FreeAndNil(FvarCalcParams[I]); System.SetLength(FvarCalcParams, 0); SysUtils.FreeAndNil(FGetCalcParamsViaBoxDataIDsResult); inherited Destroy; end; procedure GetCalcParamsViaBoxDataIDsResponse.SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FvarCalcParams := AArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified := True; end; function GetCalcParamsViaBoxDataIDsResponse.varCalcParams_Specified(Index: Integer): boolean; begin Result := FvarCalcParams_Specified; end; procedure pxemBoxSelect.SetNaam(Index: Integer; const Astring: string); begin FNaam := Astring; FNaam_Specified := True; end; function pxemBoxSelect.Naam_Specified(Index: Integer): boolean; begin Result := FNaam_Specified; end; procedure pxemBoxSelect.SetKlanten(Index: Integer; const Astring: string); begin FKlanten := Astring; FKlanten_Specified := True; end; function pxemBoxSelect.Klanten_Specified(Index: Integer): boolean; begin Result := FKlanten_Specified; end; procedure pxemBoxSelect.SetKlantenCaption(Index: Integer; const Astring: string); begin FKlantenCaption := Astring; FKlantenCaption_Specified := True; end; function pxemBoxSelect.KlantenCaption_Specified(Index: Integer): boolean; begin Result := FKlantenCaption_Specified; end; procedure pxemSnijParam.SetName_(Index: Integer; const Astring: string); begin FName_ := Astring; FName__Specified := True; end; function pxemSnijParam.Name__Specified(Index: Integer): boolean; begin Result := FName__Specified; end; procedure pxemSnijParam.SetNameCaption(Index: Integer; const Astring: string); begin FNameCaption := Astring; FNameCaption_Specified := True; end; function pxemSnijParam.NameCaption_Specified(Index: Integer): boolean; begin Result := FNameCaption_Specified; end; procedure pxemSnijParam.SetValue(Index: Integer; const Astring: string); begin FValue := Astring; FValue_Specified := True; end; function pxemSnijParam.Value_Specified(Index: Integer): boolean; begin Result := FValue_Specified; end; procedure pxUIResource.SetValuesURL(Index: Integer; const Astring: string); begin FValuesURL := Astring; FValuesURL_Specified := True; end; function pxUIResource.ValuesURL_Specified(Index: Integer): boolean; begin Result := FValuesURL_Specified; end; destructor ModifyStatus.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ModifyStatus.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function ModifyStatus.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure ModifyStatus.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function ModifyStatus.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure ModifyStatus.SetBatchID(Index: Integer; const Astring: string); begin FBatchID := Astring; FBatchID_Specified := True; end; function ModifyStatus.BatchID_Specified(Index: Integer): boolean; begin Result := FBatchID_Specified; end; procedure ModifyStatus.SetQueueIDs(Index: Integer; const Astring: string); begin FQueueIDs := Astring; FQueueIDs_Specified := True; end; function ModifyStatus.QueueIDs_Specified(Index: Integer): boolean; begin Result := FQueueIDs_Specified; end; procedure ModifyStatus.SetActie(Index: Integer; const Astring: string); begin FActie := Astring; FActie_Specified := True; end; function ModifyStatus.Actie_Specified(Index: Integer): boolean; begin Result := FActie_Specified; end; procedure ModifyStatus.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ModifyStatus.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetWPQueueViaBatchID.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetWPQueueViaBatchID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetWPQueueViaBatchID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetWPQueueViaBatchID.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function GetWPQueueViaBatchID.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure GetWPQueueViaBatchID.SetBatchID(Index: Integer; const Astring: string); begin FBatchID := Astring; FBatchID_Specified := True; end; function GetWPQueueViaBatchID.BatchID_Specified(Index: Integer): boolean; begin Result := FBatchID_Specified; end; procedure GetWPQueueViaBatchID.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetWPQueueViaBatchID.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; procedure GetVolumeVanID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetVolumeVanID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetVolumeVanID.SetGroep(Index: Integer; const Astring: string); begin FGroep := Astring; FGroep_Specified := True; end; function GetVolumeVanID.Groep_Specified(Index: Integer): boolean; begin Result := FGroep_Specified; end; procedure GetVolumeVanID.SetVerpakking(Index: Integer; const Astring: string); begin FVerpakking := Astring; FVerpakking_Specified := True; end; function GetVolumeVanID.Verpakking_Specified(Index: Integer): boolean; begin Result := FVerpakking_Specified; end; procedure GetVolumeVanID.SetVolumeVanCaption(Index: Integer; const Astring: string); begin FVolumeVanCaption := Astring; FVolumeVanCaption_Specified := True; end; function GetVolumeVanID.VolumeVanCaption_Specified(Index: Integer): boolean; begin Result := FVolumeVanCaption_Specified; end; destructor GetVolumeVanIDResponse.Destroy; begin SysUtils.FreeAndNil(FGetVolumeVanIDResult); inherited Destroy; end; procedure GetVolumeVanIDResponse.SetVolumeVanCaption(Index: Integer; const Astring: string); begin FVolumeVanCaption := Astring; FVolumeVanCaption_Specified := True; end; function GetVolumeVanIDResponse.VolumeVanCaption_Specified(Index: Integer): boolean; begin Result := FVolumeVanCaption_Specified; end; destructor GetWPBatchIDsViaWerkpost.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetWPBatchIDsViaWerkpost.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetWPBatchIDsViaWerkpost.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetWPBatchIDsViaWerkpost.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function GetWPBatchIDsViaWerkpost.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure GetWPBatchIDsViaWerkpost.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetWPBatchIDsViaWerkpost.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor SaveBoxMeta.Destroy; begin SysUtils.FreeAndNil(FpxBoxMeta); inherited Destroy; end; procedure SaveBoxMeta.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function SaveBoxMeta.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure SaveBoxMeta.SetpxBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); begin FpxBoxMeta := ApxBoxMeta; FpxBoxMeta_Specified := True; end; function SaveBoxMeta.pxBoxMeta_Specified(Index: Integer): boolean; begin Result := FpxBoxMeta_Specified; end; destructor SaveBoxData.Destroy; begin SysUtils.FreeAndNil(FpxBoxData); inherited Destroy; end; procedure SaveBoxData.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function SaveBoxData.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure SaveBoxData.SetpxBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FpxBoxData := ApxBoxData; FpxBoxData_Specified := True; end; function SaveBoxData.pxBoxData_Specified(Index: Integer): boolean; begin Result := FpxBoxData_Specified; end; destructor ReProcessItem.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ReProcessItem.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function ReProcessItem.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure ReProcessItem.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function ReProcessItem.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure ReProcessItem.SetBatchID(Index: Integer; const Astring: string); begin FBatchID := Astring; FBatchID_Specified := True; end; function ReProcessItem.BatchID_Specified(Index: Integer): boolean; begin Result := FBatchID_Specified; end; procedure ReProcessItem.SetQueueID(Index: Integer; const Astring: string); begin FQueueID := Astring; FQueueID_Specified := True; end; function ReProcessItem.QueueID_Specified(Index: Integer): boolean; begin Result := FQueueID_Specified; end; procedure ReProcessItem.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ReProcessItem.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetVerpakkingNamenViaGroep.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetVerpakkingNamenViaGroep.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetVerpakkingNamenViaGroep.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetVerpakkingNamenViaGroep.SetGroep(Index: Integer; const Astring: string); begin FGroep := Astring; FGroep_Specified := True; end; function GetVerpakkingNamenViaGroep.Groep_Specified(Index: Integer): boolean; begin Result := FGroep_Specified; end; procedure GetVerpakkingNamenViaGroep.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetVerpakkingNamenViaGroep.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetCalcParamsViaBoxDataIDs.Destroy; var I: Integer; begin for I := 0 to System.Length(FvarCalcParams) - 1 do SysUtils.FreeAndNil(FvarCalcParams[I]); System.SetLength(FvarCalcParams, 0); inherited Destroy; end; procedure GetCalcParamsViaBoxDataIDs.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetCalcParamsViaBoxDataIDs.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetCalcParamsViaBoxDataIDs.SetBoxDataIDs(Index: Integer; const AArrayOfBoxDataIDsItemString: ArrayOfBoxDataIDsItemString); begin FBoxDataIDs := AArrayOfBoxDataIDsItemString; FBoxDataIDs_Specified := True; end; function GetCalcParamsViaBoxDataIDs.BoxDataIDs_Specified(Index: Integer): boolean; begin Result := FBoxDataIDs_Specified; end; procedure GetCalcParamsViaBoxDataIDs.SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FvarCalcParams := AArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified := True; end; function GetCalcParamsViaBoxDataIDs.varCalcParams_Specified(Index: Integer): boolean; begin Result := FvarCalcParams_Specified; end; destructor GetDataUIResource.Destroy; begin SysUtils.FreeAndNil(FvarUIResource); inherited Destroy; end; procedure GetDataUIResource.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetDataUIResource.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetDataUIResource.SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); begin FvarUIResource := ApxUIResource; FvarUIResource_Specified := True; end; function GetDataUIResource.varUIResource_Specified(Index: Integer): boolean; begin Result := FvarUIResource_Specified; end; destructor GetCalcParamsViaBoxData.Destroy; var I: Integer; begin for I := 0 to System.Length(FvarCalcParams) - 1 do SysUtils.FreeAndNil(FvarCalcParams[I]); System.SetLength(FvarCalcParams, 0); SysUtils.FreeAndNil(FpxBoxData); inherited Destroy; end; procedure GetCalcParamsViaBoxData.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetCalcParamsViaBoxData.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetCalcParamsViaBoxData.SetpxBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FpxBoxData := ApxBoxData; FpxBoxData_Specified := True; end; function GetCalcParamsViaBoxData.pxBoxData_Specified(Index: Integer): boolean; begin Result := FpxBoxData_Specified; end; procedure GetCalcParamsViaBoxData.SetvarCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FvarCalcParams := AArrayOfpxemSnijParampxemSnijParam; FvarCalcParams_Specified := True; end; function GetCalcParamsViaBoxData.varCalcParams_Specified(Index: Integer): boolean; begin Result := FvarCalcParams_Specified; end; destructor GetBoxDataViaID.Destroy; begin SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure GetBoxDataViaID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetBoxDataViaID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetBoxDataViaID.SetBasedOnMetaID(Index: Integer; const Astring: string); begin FBasedOnMetaID := Astring; FBasedOnMetaID_Specified := True; end; function GetBoxDataViaID.BasedOnMetaID_Specified(Index: Integer): boolean; begin Result := FBasedOnMetaID_Specified; end; procedure GetBoxDataViaID.SetBoxDataID(Index: Integer; const Astring: string); begin FBoxDataID := Astring; FBoxDataID_Specified := True; end; function GetBoxDataViaID.BoxDataID_Specified(Index: Integer): boolean; begin Result := FBoxDataID_Specified; end; procedure GetBoxDataViaID.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function GetBoxDataViaID.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; destructor GetBoxDatasViaMeta.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDatasViaMeta.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetBoxDatasViaMeta.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetBoxDatasViaMeta.SetMetaID(Index: Integer; const Astring: string); begin FMetaID := Astring; FMetaID_Specified := True; end; function GetBoxDatasViaMeta.MetaID_Specified(Index: Integer): boolean; begin Result := FMetaID_Specified; end; procedure GetBoxDatasViaMeta.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDatasViaMeta.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetMetaViaID.Destroy; begin SysUtils.FreeAndNil(FvarBoxMeta); inherited Destroy; end; procedure GetMetaViaID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetMetaViaID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetMetaViaID.SetMetaID(Index: Integer; const Astring: string); begin FMetaID := Astring; FMetaID_Specified := True; end; function GetMetaViaID.MetaID_Specified(Index: Integer): boolean; begin Result := FMetaID_Specified; end; procedure GetMetaViaID.SetvarBoxMeta(Index: Integer; const ApxBoxMeta: pxBoxMeta); begin FvarBoxMeta := ApxBoxMeta; FvarBoxMeta_Specified := True; end; function GetMetaViaID.varBoxMeta_Specified(Index: Integer): boolean; begin Result := FvarBoxMeta_Specified; end; destructor GetSnijInfo.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetSnijInfo.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetSnijInfo.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetSnijInfo.SetObjType(Index: Integer; const Astring: string); begin FObjType := Astring; FObjType_Specified := True; end; function GetSnijInfo.ObjType_Specified(Index: Integer): boolean; begin Result := FObjType_Specified; end; procedure GetSnijInfo.SetObjRef(Index: Integer; const Astring: string); begin FObjRef := Astring; FObjRef_Specified := True; end; function GetSnijInfo.ObjRef_Specified(Index: Integer): boolean; begin Result := FObjRef_Specified; end; procedure GetSnijInfo.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetSnijInfo.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetUIResource.Destroy; begin SysUtils.FreeAndNil(FvarUIResource); inherited Destroy; end; procedure GetUIResource.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetUIResource.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetUIResource.SetvarUIResource(Index: Integer; const ApxUIResource: pxUIResource); begin FvarUIResource := ApxUIResource; FvarUIResource_Specified := True; end; function GetUIResource.varUIResource_Specified(Index: Integer): boolean; begin Result := FvarUIResource_Specified; end; procedure GetProductURL.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetProductURL.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetProductURL.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function GetProductURL.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure GetProductURL.SetQueueID(Index: Integer; const Astring: string); begin FQueueID := Astring; FQueueID_Specified := True; end; function GetProductURL.QueueID_Specified(Index: Integer): boolean; begin Result := FQueueID_Specified; end; destructor GetMetaViaProductGroep.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetMetaViaProductGroep.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetMetaViaProductGroep.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetMetaViaProductGroep.SetProductGroep(Index: Integer; const Astring: string); begin FProductGroep := Astring; FProductGroep_Specified := True; end; function GetMetaViaProductGroep.ProductGroep_Specified(Index: Integer): boolean; begin Result := FProductGroep_Specified; end; procedure GetMetaViaProductGroep.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetMetaViaProductGroep.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetOptimizerQueue.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetOptimizerQueue.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetOptimizerQueue.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetOptimizerQueue.SetType_(Index: Integer; const Astring: string); begin FType_ := Astring; FType__Specified := True; end; function GetOptimizerQueue.Type__Specified(Index: Integer): boolean; begin Result := FType__Specified; end; procedure GetOptimizerQueue.SetObjType(Index: Integer; const Astring: string); begin FObjType := Astring; FObjType_Specified := True; end; function GetOptimizerQueue.ObjType_Specified(Index: Integer): boolean; begin Result := FObjType_Specified; end; procedure GetOptimizerQueue.SetViewOptions(Index: Integer; const Astring: string); begin FViewOptions := Astring; FViewOptions_Specified := True; end; function GetOptimizerQueue.ViewOptions_Specified(Index: Integer): boolean; begin Result := FViewOptions_Specified; end; procedure GetOptimizerQueue.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetOptimizerQueue.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; procedure pxStatus.SetIsOK(Index: Integer; const ABoolean: boolean); begin FIsOK := ABoolean; FIsOK_Specified := True; end; function pxStatus.IsOK_Specified(Index: Integer): boolean; begin Result := FIsOK_Specified; end; procedure pxStatus.SetMessage_(Index: Integer; const Astring: string); begin FMessage_ := Astring; FMessage__Specified := True; end; function pxStatus.Message__Specified(Index: Integer): boolean; begin Result := FMessage__Specified; end; procedure pxStatus.SetInternalMessage(Index: Integer; const Astring: string); begin FInternalMessage := Astring; FInternalMessage_Specified := True; end; function pxStatus.InternalMessage_Specified(Index: Integer): boolean; begin Result := FInternalMessage_Specified; end; procedure pxStatus.SetData(Index: Integer; const Astring: string); begin FData := Astring; FData_Specified := True; end; function pxStatus.Data_Specified(Index: Integer): boolean; begin Result := FData_Specified; end; destructor OptimizeViaProduct.Destroy; var I: Integer; begin for I := 0 to System.Length(FCalcParams) - 1 do SysUtils.FreeAndNil(FCalcParams[I]); System.SetLength(FCalcParams, 0); inherited Destroy; end; procedure OptimizeViaProduct.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function OptimizeViaProduct.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure OptimizeViaProduct.SetProductNr(Index: Integer; const AInt64: Int64); begin FProductNr := AInt64; FProductNr_Specified := True; end; function OptimizeViaProduct.ProductNr_Specified(Index: Integer): boolean; begin Result := FProductNr_Specified; end; procedure OptimizeViaProduct.SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FCalcParams := AArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified := True; end; function OptimizeViaProduct.CalcParams_Specified(Index: Integer): boolean; begin Result := FCalcParams_Specified; end; procedure OptimizeViaProduct.SetQty(Index: Integer; const AInt64: Int64); begin FQty := AInt64; FQty_Specified := True; end; function OptimizeViaProduct.Qty_Specified(Index: Integer): boolean; begin Result := FQty_Specified; end; procedure OptimizeViaProduct.SetSnijPrioriteit(Index: Integer; const Astring: string); begin FSnijPrioriteit := Astring; FSnijPrioriteit_Specified := True; end; function OptimizeViaProduct.SnijPrioriteit_Specified(Index: Integer): boolean; begin Result := FSnijPrioriteit_Specified; end; procedure OptimizeViaProduct.SetPPSOutput(Index: Integer; const Astring: string); begin FPPSOutput := Astring; FPPSOutput_Specified := True; end; function OptimizeViaProduct.PPSOutput_Specified(Index: Integer): boolean; begin Result := FPPSOutput_Specified; end; procedure OptimizeViaProduct.SetMachineID(Index: Integer; const Astring: string); begin FMachineID := Astring; FMachineID_Specified := True; end; function OptimizeViaProduct.MachineID_Specified(Index: Integer): boolean; begin Result := FMachineID_Specified; end; destructor OptimizeViaVerpakking.Destroy; var I: Integer; begin for I := 0 to System.Length(FCalcParams) - 1 do SysUtils.FreeAndNil(FCalcParams[I]); System.SetLength(FCalcParams, 0); inherited Destroy; end; procedure OptimizeViaVerpakking.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function OptimizeViaVerpakking.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure OptimizeViaVerpakking.SetGroep(Index: Integer; const Astring: string); begin FGroep := Astring; FGroep_Specified := True; end; function OptimizeViaVerpakking.Groep_Specified(Index: Integer): boolean; begin Result := FGroep_Specified; end; procedure OptimizeViaVerpakking.SetNaam(Index: Integer; const Astring: string); begin FNaam := Astring; FNaam_Specified := True; end; function OptimizeViaVerpakking.Naam_Specified(Index: Integer): boolean; begin Result := FNaam_Specified; end; procedure OptimizeViaVerpakking.SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FCalcParams := AArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified := True; end; function OptimizeViaVerpakking.CalcParams_Specified(Index: Integer): boolean; begin Result := FCalcParams_Specified; end; procedure OptimizeViaVerpakking.SetQty(Index: Integer; const AInt64: Int64); begin FQty := AInt64; FQty_Specified := True; end; function OptimizeViaVerpakking.Qty_Specified(Index: Integer): boolean; begin Result := FQty_Specified; end; procedure OptimizeViaVerpakking.SetSnijPrioriteit(Index: Integer; const Astring: string); begin FSnijPrioriteit := Astring; FSnijPrioriteit_Specified := True; end; function OptimizeViaVerpakking.SnijPrioriteit_Specified(Index: Integer): boolean; begin Result := FSnijPrioriteit_Specified; end; procedure OptimizeViaVerpakking.SetPPSOutput(Index: Integer; const Astring: string); begin FPPSOutput := Astring; FPPSOutput_Specified := True; end; function OptimizeViaVerpakking.PPSOutput_Specified(Index: Integer): boolean; begin Result := FPPSOutput_Specified; end; procedure OptimizeViaVerpakking.SetMachineID(Index: Integer; const Astring: string); begin FMachineID := Astring; FMachineID_Specified := True; end; function OptimizeViaVerpakking.MachineID_Specified(Index: Integer): boolean; begin Result := FMachineID_Specified; end; destructor ProcessNextBatchItems.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure ProcessNextBatchItems.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function ProcessNextBatchItems.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure ProcessNextBatchItems.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function ProcessNextBatchItems.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure ProcessNextBatchItems.SetBatchID(Index: Integer; const Astring: string); begin FBatchID := Astring; FBatchID_Specified := True; end; function ProcessNextBatchItems.BatchID_Specified(Index: Integer): boolean; begin Result := FBatchID_Specified; end; procedure ProcessNextBatchItems.SetProcessCnt(Index: Integer; const AInt64: Int64); begin FProcessCnt := AInt64; FProcessCnt_Specified := True; end; function ProcessNextBatchItems.ProcessCnt_Specified(Index: Integer): boolean; begin Result := FProcessCnt_Specified; end; procedure ProcessNextBatchItems.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function ProcessNextBatchItems.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; procedure pxemDataParam.SetID(Index: Integer; const Astring: string); begin FID := Astring; FID_Specified := True; end; function pxemDataParam.ID_Specified(Index: Integer): boolean; begin Result := FID_Specified; end; procedure pxemDataParam.SetProgLabel(Index: Integer; const Astring: string); begin FProgLabel := Astring; FProgLabel_Specified := True; end; function pxemDataParam.ProgLabel_Specified(Index: Integer): boolean; begin Result := FProgLabel_Specified; end; procedure pxemDataParam.SetToolTip(Index: Integer; const Astring: string); begin FToolTip := Astring; FToolTip_Specified := True; end; function pxemDataParam.ToolTip_Specified(Index: Integer): boolean; begin Result := FToolTip_Specified; end; procedure pxemDataParam.SetWaarde(Index: Integer; const AWaarde: Waarde); begin FWaarde := AWaarde; FWaarde_Specified := True; end; function pxemDataParam.Waarde_Specified(Index: Integer): boolean; begin Result := FWaarde_Specified; end; procedure pxemDataParam.SetWaardeExec(Index: Integer; const AWaardeExec: WaardeExec); begin FWaardeExec := AWaardeExec; FWaardeExec_Specified := True; end; function pxemDataParam.WaardeExec_Specified(Index: Integer): boolean; begin Result := FWaardeExec_Specified; end; procedure pxemDataParam.SetWaardeExecResult(Index: Integer; const AWaardeExecResult: WaardeExecResult); begin FWaardeExecResult := AWaardeExecResult; FWaardeExecResult_Specified := True; end; function pxemDataParam.WaardeExecResult_Specified(Index: Integer): boolean; begin Result := FWaardeExecResult_Specified; end; procedure pxemPPSPrioriteit.SetKey(Index: Integer; const Astring: string); begin FKey := Astring; FKey_Specified := True; end; function pxemPPSPrioriteit.Key_Specified(Index: Integer): boolean; begin Result := FKey_Specified; end; procedure pxemPPSPrioriteit.SetValue(Index: Integer; const AInt64: Int64); begin FValue := AInt64; FValue_Specified := True; end; function pxemPPSPrioriteit.Value_Specified(Index: Integer): boolean; begin Result := FValue_Specified; end; destructor pxBoxMeta.Destroy; var I: Integer; begin for I := 0 to System.Length(FBoxSelect) - 1 do SysUtils.FreeAndNil(FBoxSelect[I]); System.SetLength(FBoxSelect, 0); for I := 0 to System.Length(FPPSPrioriteit) - 1 do SysUtils.FreeAndNil(FPPSPrioriteit[I]); System.SetLength(FPPSPrioriteit, 0); for I := 0 to System.Length(FParams) - 1 do SysUtils.FreeAndNil(FParams[I]); System.SetLength(FParams, 0); inherited Destroy; end; procedure pxBoxMeta.SetID(Index: Integer; const Astring: string); begin FID := Astring; FID_Specified := True; end; function pxBoxMeta.ID_Specified(Index: Integer): boolean; begin Result := FID_Specified; end; procedure pxBoxMeta.SetName_(Index: Integer; const Astring: string); begin FName_ := Astring; FName__Specified := True; end; function pxBoxMeta.Name__Specified(Index: Integer): boolean; begin Result := FName__Specified; end; procedure pxBoxMeta.SetProductGroep(Index: Integer; const Astring: string); begin FProductGroep := Astring; FProductGroep_Specified := True; end; function pxBoxMeta.ProductGroep_Specified(Index: Integer): boolean; begin Result := FProductGroep_Specified; end; procedure pxBoxMeta.SetBoxSelect(Index: Integer; const AArrayOfpxemBoxSelectpxemBoxSelect: ArrayOfpxemBoxSelectpxemBoxSelect); begin FBoxSelect := AArrayOfpxemBoxSelectpxemBoxSelect; FBoxSelect_Specified := True; end; function pxBoxMeta.BoxSelect_Specified(Index: Integer): boolean; begin Result := FBoxSelect_Specified; end; procedure pxBoxMeta.SetOptiType(Index: Integer; const Astring: string); begin FOptiType := Astring; FOptiType_Specified := True; end; function pxBoxMeta.OptiType_Specified(Index: Integer): boolean; begin Result := FOptiType_Specified; end; procedure pxBoxMeta.SetPositie(Index: Integer; const Astring: string); begin FPositie := Astring; FPositie_Specified := True; end; function pxBoxMeta.Positie_Specified(Index: Integer): boolean; begin Result := FPositie_Specified; end; procedure pxBoxMeta.SetPlaatsing(Index: Integer; const Astring: string); begin FPlaatsing := Astring; FPlaatsing_Specified := True; end; function pxBoxMeta.Plaatsing_Specified(Index: Integer): boolean; begin Result := FPlaatsing_Specified; end; procedure pxBoxMeta.SetRotatie(Index: Integer; const Astring: string); begin FRotatie := Astring; FRotatie_Specified := True; end; function pxBoxMeta.Rotatie_Specified(Index: Integer): boolean; begin Result := FRotatie_Specified; end; procedure pxBoxMeta.SetHoogte(Index: Integer; const Astring: string); begin FHoogte := Astring; FHoogte_Specified := True; end; function pxBoxMeta.Hoogte_Specified(Index: Integer): boolean; begin Result := FHoogte_Specified; end; procedure pxBoxMeta.SetBreedte(Index: Integer; const Astring: string); begin FBreedte := Astring; FBreedte_Specified := True; end; function pxBoxMeta.Breedte_Specified(Index: Integer): boolean; begin Result := FBreedte_Specified; end; procedure pxBoxMeta.SetDiepte(Index: Integer; const Astring: string); begin FDiepte := Astring; FDiepte_Specified := True; end; function pxBoxMeta.Diepte_Specified(Index: Integer): boolean; begin Result := FDiepte_Specified; end; procedure pxBoxMeta.SetPPSPrioriteit(Index: Integer; const AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit); begin FPPSPrioriteit := AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit; FPPSPrioriteit_Specified := True; end; function pxBoxMeta.PPSPrioriteit_Specified(Index: Integer): boolean; begin Result := FPPSPrioriteit_Specified; end; procedure pxBoxMeta.SetPPSGroep(Index: Integer; const Astring: string); begin FPPSGroep := Astring; FPPSGroep_Specified := True; end; function pxBoxMeta.PPSGroep_Specified(Index: Integer): boolean; begin Result := FPPSGroep_Specified; end; procedure pxBoxMeta.SetPPSSubgroep(Index: Integer; const Astring: string); begin FPPSSubgroep := Astring; FPPSSubgroep_Specified := True; end; function pxBoxMeta.PPSSubgroep_Specified(Index: Integer): boolean; begin Result := FPPSSubgroep_Specified; end; procedure pxBoxMeta.SetPPSOutput(Index: Integer; const Astring: string); begin FPPSOutput := Astring; FPPSOutput_Specified := True; end; function pxBoxMeta.PPSOutput_Specified(Index: Integer): boolean; begin Result := FPPSOutput_Specified; end; procedure pxBoxMeta.SetParams(Index: Integer; const AArrayOfpxemMetaParampxemMetaParam: ArrayOfpxemMetaParampxemMetaParam); begin FParams := AArrayOfpxemMetaParampxemMetaParam; FParams_Specified := True; end; function pxBoxMeta.Params_Specified(Index: Integer): boolean; begin Result := FParams_Specified; end; destructor pxBoxData.Destroy; var I: Integer; begin for I := 0 to System.Length(FPPSPrioriteit) - 1 do SysUtils.FreeAndNil(FPPSPrioriteit[I]); System.SetLength(FPPSPrioriteit, 0); for I := 0 to System.Length(FParams) - 1 do SysUtils.FreeAndNil(FParams[I]); System.SetLength(FParams, 0); SysUtils.FreeAndNil(FDefaultData); inherited Destroy; end; procedure pxBoxData.SetID(Index: Integer; const Astring: string); begin FID := Astring; FID_Specified := True; end; function pxBoxData.ID_Specified(Index: Integer): boolean; begin Result := FID_Specified; end; procedure pxBoxData.SetObjType(Index: Integer; const Astring: string); begin FObjType := Astring; FObjType_Specified := True; end; function pxBoxData.ObjType_Specified(Index: Integer): boolean; begin Result := FObjType_Specified; end; procedure pxBoxData.SetObjRef(Index: Integer; const Astring: string); begin FObjRef := Astring; FObjRef_Specified := True; end; function pxBoxData.ObjRef_Specified(Index: Integer): boolean; begin Result := FObjRef_Specified; end; procedure pxBoxData.SetCutOrder(Index: Integer; const AInt64: Int64); begin FCutOrder := AInt64; FCutOrder_Specified := True; end; function pxBoxData.CutOrder_Specified(Index: Integer): boolean; begin Result := FCutOrder_Specified; end; procedure pxBoxData.SetDeelVanCaption(Index: Integer; const Astring: string); begin FDeelVanCaption := Astring; FDeelVanCaption_Specified := True; end; function pxBoxData.DeelVanCaption_Specified(Index: Integer): boolean; begin Result := FDeelVanCaption_Specified; end; procedure pxBoxData.SetDeelVanID(Index: Integer; const Astring: string); begin FDeelVanID := Astring; FDeelVanID_Specified := True; end; function pxBoxData.DeelVanID_Specified(Index: Integer): boolean; begin Result := FDeelVanID_Specified; end; procedure pxBoxData.SetVolumeVanCaption(Index: Integer; const Astring: string); begin FVolumeVanCaption := Astring; FVolumeVanCaption_Specified := True; end; function pxBoxData.VolumeVanCaption_Specified(Index: Integer): boolean; begin Result := FVolumeVanCaption_Specified; end; procedure pxBoxData.SetVolumeVanID(Index: Integer; const Astring: string); begin FVolumeVanID := Astring; FVolumeVanID_Specified := True; end; function pxBoxData.VolumeVanID_Specified(Index: Integer): boolean; begin Result := FVolumeVanID_Specified; end; procedure pxBoxData.SetMetaCaption(Index: Integer; const Astring: string); begin FMetaCaption := Astring; FMetaCaption_Specified := True; end; function pxBoxData.MetaCaption_Specified(Index: Integer): boolean; begin Result := FMetaCaption_Specified; end; procedure pxBoxData.SetMetaID(Index: Integer; const Astring: string); begin FMetaID := Astring; FMetaID_Specified := True; end; function pxBoxData.MetaID_Specified(Index: Integer): boolean; begin Result := FMetaID_Specified; end; procedure pxBoxData.SetDefaultData(Index: Integer; const ApxBoxData: pxBoxData); begin FDefaultData := ApxBoxData; FDefaultData_Specified := True; end; function pxBoxData.DefaultData_Specified(Index: Integer): boolean; begin Result := FDefaultData_Specified; end; procedure pxBoxData.SetPositie(Index: Integer; const Astring: string); begin FPositie := Astring; FPositie_Specified := True; end; function pxBoxData.Positie_Specified(Index: Integer): boolean; begin Result := FPositie_Specified; end; procedure pxBoxData.SetOptiType(Index: Integer; const Astring: string); begin FOptiType := Astring; FOptiType_Specified := True; end; function pxBoxData.OptiType_Specified(Index: Integer): boolean; begin Result := FOptiType_Specified; end; procedure pxBoxData.SetBoxSelect(Index: Integer; const Astring: string); begin FBoxSelect := Astring; FBoxSelect_Specified := True; end; function pxBoxData.BoxSelect_Specified(Index: Integer): boolean; begin Result := FBoxSelect_Specified; end; procedure pxBoxData.SetRotatie(Index: Integer; const Astring: string); begin FRotatie := Astring; FRotatie_Specified := True; end; function pxBoxData.Rotatie_Specified(Index: Integer): boolean; begin Result := FRotatie_Specified; end; procedure pxBoxData.SetPlaatsing(Index: Integer; const Astring: string); begin FPlaatsing := Astring; FPlaatsing_Specified := True; end; function pxBoxData.Plaatsing_Specified(Index: Integer): boolean; begin Result := FPlaatsing_Specified; end; procedure pxBoxData.SetHoogte(Index: Integer; const Astring: string); begin FHoogte := Astring; FHoogte_Specified := True; end; function pxBoxData.Hoogte_Specified(Index: Integer): boolean; begin Result := FHoogte_Specified; end; procedure pxBoxData.SetHoogteExec(Index: Integer; const Astring: string); begin FHoogteExec := Astring; FHoogteExec_Specified := True; end; function pxBoxData.HoogteExec_Specified(Index: Integer): boolean; begin Result := FHoogteExec_Specified; end; procedure pxBoxData.SetHoogteExecResult(Index: Integer; const Astring: string); begin FHoogteExecResult := Astring; FHoogteExecResult_Specified := True; end; function pxBoxData.HoogteExecResult_Specified(Index: Integer): boolean; begin Result := FHoogteExecResult_Specified; end; procedure pxBoxData.SetBreedte(Index: Integer; const Astring: string); begin FBreedte := Astring; FBreedte_Specified := True; end; function pxBoxData.Breedte_Specified(Index: Integer): boolean; begin Result := FBreedte_Specified; end; procedure pxBoxData.SetBreedteExec(Index: Integer; const Astring: string); begin FBreedteExec := Astring; FBreedteExec_Specified := True; end; function pxBoxData.BreedteExec_Specified(Index: Integer): boolean; begin Result := FBreedteExec_Specified; end; procedure pxBoxData.SetBreedteExecResult(Index: Integer; const Astring: string); begin FBreedteExecResult := Astring; FBreedteExecResult_Specified := True; end; function pxBoxData.BreedteExecResult_Specified(Index: Integer): boolean; begin Result := FBreedteExecResult_Specified; end; procedure pxBoxData.SetDiepte(Index: Integer; const Astring: string); begin FDiepte := Astring; FDiepte_Specified := True; end; function pxBoxData.Diepte_Specified(Index: Integer): boolean; begin Result := FDiepte_Specified; end; procedure pxBoxData.SetDiepteExec(Index: Integer; const Astring: string); begin FDiepteExec := Astring; FDiepteExec_Specified := True; end; function pxBoxData.DiepteExec_Specified(Index: Integer): boolean; begin Result := FDiepteExec_Specified; end; procedure pxBoxData.SetDiepteExecResult(Index: Integer; const Astring: string); begin FDiepteExecResult := Astring; FDiepteExecResult_Specified := True; end; function pxBoxData.DiepteExecResult_Specified(Index: Integer): boolean; begin Result := FDiepteExecResult_Specified; end; procedure pxBoxData.SetAantal(Index: Integer; const Astring: string); begin FAantal := Astring; FAantal_Specified := True; end; function pxBoxData.Aantal_Specified(Index: Integer): boolean; begin Result := FAantal_Specified; end; procedure pxBoxData.SetAantalExec(Index: Integer; const Astring: string); begin FAantalExec := Astring; FAantalExec_Specified := True; end; function pxBoxData.AantalExec_Specified(Index: Integer): boolean; begin Result := FAantalExec_Specified; end; procedure pxBoxData.SetAantalExecResult(Index: Integer; const Astring: string); begin FAantalExecResult := Astring; FAantalExecResult_Specified := True; end; function pxBoxData.AantalExecResult_Specified(Index: Integer): boolean; begin Result := FAantalExecResult_Specified; end; procedure pxBoxData.SetMaxCombinAantal(Index: Integer; const Astring: string); begin FMaxCombinAantal := Astring; FMaxCombinAantal_Specified := True; end; function pxBoxData.MaxCombinAantal_Specified(Index: Integer): boolean; begin Result := FMaxCombinAantal_Specified; end; procedure pxBoxData.SetPPSPrioriteit(Index: Integer; const AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit: ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit); begin FPPSPrioriteit := AArrayOfpxemPPSPrioriteitpxemPPSPrioriteit; FPPSPrioriteit_Specified := True; end; function pxBoxData.PPSPrioriteit_Specified(Index: Integer): boolean; begin Result := FPPSPrioriteit_Specified; end; procedure pxBoxData.SetPPSGroep(Index: Integer; const Astring: string); begin FPPSGroep := Astring; FPPSGroep_Specified := True; end; function pxBoxData.PPSGroep_Specified(Index: Integer): boolean; begin Result := FPPSGroep_Specified; end; procedure pxBoxData.SetPPSSubgroep(Index: Integer; const Astring: string); begin FPPSSubgroep := Astring; FPPSSubgroep_Specified := True; end; function pxBoxData.PPSSubgroep_Specified(Index: Integer): boolean; begin Result := FPPSSubgroep_Specified; end; procedure pxBoxData.SetPPSOutput(Index: Integer; const Astring: string); begin FPPSOutput := Astring; FPPSOutput_Specified := True; end; function pxBoxData.PPSOutput_Specified(Index: Integer): boolean; begin Result := FPPSOutput_Specified; end; procedure pxBoxData.SetParams(Index: Integer; const AArrayOfpxemDataParampxemDataParam: ArrayOfpxemDataParampxemDataParam); begin FParams := AArrayOfpxemDataParampxemDataParam; FParams_Specified := True; end; function pxBoxData.Params_Specified(Index: Integer): boolean; begin Result := FParams_Specified; end; procedure pxemMetaParam.SetType_(Index: Integer; const Astring: string); begin FType_ := Astring; FType__Specified := True; end; function pxemMetaParam.Type__Specified(Index: Integer): boolean; begin Result := FType__Specified; end; procedure pxemMetaParam.SetID(Index: Integer; const Astring: string); begin FID := Astring; FID_Specified := True; end; function pxemMetaParam.ID_Specified(Index: Integer): boolean; begin Result := FID_Specified; end; procedure pxemMetaParam.SetDefault_(Index: Integer; const ADefault_: Default_); begin FDefault_ := ADefault_; FDefault__Specified := True; end; function pxemMetaParam.Default__Specified(Index: Integer): boolean; begin Result := FDefault__Specified; end; procedure pxemMetaParam.SetOmschrijving(Index: Integer; const AOmschrijving: Omschrijving); begin FOmschrijving := AOmschrijving; FOmschrijving_Specified := True; end; function pxemMetaParam.Omschrijving_Specified(Index: Integer): boolean; begin Result := FOmschrijving_Specified; end; procedure pxemMetaParam.SetProgLabel(Index: Integer; const Astring: string); begin FProgLabel := Astring; FProgLabel_Specified := True; end; function pxemMetaParam.ProgLabel_Specified(Index: Integer): boolean; begin Result := FProgLabel_Specified; end; destructor GetAllBoxSelectResponse.Destroy; begin SysUtils.FreeAndNil(FGetAllBoxSelectResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllBoxSelectResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllBoxSelectResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetAllProductGroepen.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllProductGroepen.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetAllProductGroepen.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetAllProductGroepen.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllProductGroepen.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetAllBoxSelect.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllBoxSelect.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetAllBoxSelect.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetAllBoxSelect.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllBoxSelect.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; procedure DeleteMetaViaID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function DeleteMetaViaID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure DeleteMetaViaID.SetMetaID(Index: Integer; const Astring: string); begin FMetaID := Astring; FMetaID_Specified := True; end; function DeleteMetaViaID.MetaID_Specified(Index: Integer): boolean; begin Result := FMetaID_Specified; end; destructor DeleteMetaViaIDResponse.Destroy; begin SysUtils.FreeAndNil(FDeleteMetaViaIDResult); inherited Destroy; end; destructor GetAllProductGroepenResponse.Destroy; begin SysUtils.FreeAndNil(FGetAllProductGroepenResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllProductGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllProductGroepenResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetBoxDataIDsViaProductResponse.Destroy; begin SysUtils.FreeAndNil(FGetBoxDataIDsViaProductResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDataIDsViaProductResponse.SetvarDataSet(Index: Integer; const AanyType: string); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDataIDsViaProductResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetBoxDataIDsViaVerpakking.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDataIDsViaVerpakking.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetBoxDataIDsViaVerpakking.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetBoxDataIDsViaVerpakking.SetGroep(Index: Integer; const Astring: string); begin FGroep := Astring; FGroep_Specified := True; end; function GetBoxDataIDsViaVerpakking.Groep_Specified(Index: Integer): boolean; begin Result := FGroep_Specified; end; procedure GetBoxDataIDsViaVerpakking.SetNaam(Index: Integer; const Astring: string); begin FNaam := Astring; FNaam_Specified := True; end; function GetBoxDataIDsViaVerpakking.Naam_Specified(Index: Integer): boolean; begin Result := FNaam_Specified; end; procedure GetBoxDataIDsViaVerpakking.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDataIDsViaVerpakking.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetBoxDataIDsViaProduct.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetBoxDataIDsViaProduct.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetBoxDataIDsViaProduct.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetBoxDataIDsViaProduct.SetProductNr(Index: Integer; const AInt64: Int64); begin FProductNr := AInt64; FProductNr_Specified := True; end; function GetBoxDataIDsViaProduct.ProductNr_Specified(Index: Integer): boolean; begin Result := FProductNr_Specified; end; procedure GetBoxDataIDsViaProduct.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetBoxDataIDsViaProduct.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetAllVerpakkingGroepen.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllVerpakkingGroepen.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function GetAllVerpakkingGroepen.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure GetAllVerpakkingGroepen.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllVerpakkingGroepen.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor GetAllVerpakkingGroepenResponse.Destroy; begin SysUtils.FreeAndNil(FGetAllVerpakkingGroepenResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure GetAllVerpakkingGroepenResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function GetAllVerpakkingGroepenResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor DeleteBoxDataViaIDResponse.Destroy; begin SysUtils.FreeAndNil(FDeleteBoxDataViaIDResult); inherited Destroy; end; destructor AllFromBatchResponse.Destroy; begin SysUtils.FreeAndNil(FAllFromBatchResult); SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure AllFromBatchResponse.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function AllFromBatchResponse.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; procedure Bulk.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function Bulk.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure Bulk.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function Bulk.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure Bulk.SetDoosType(Index: Integer; const Astring: string); begin FDoosType := Astring; FDoosType_Specified := True; end; function Bulk.DoosType_Specified(Index: Integer): boolean; begin Result := FDoosType_Specified; end; procedure Bulk.SetAantal(Index: Integer; const AInt64: Int64); begin FAantal := AInt64; FAantal_Specified := True; end; function Bulk.Aantal_Specified(Index: Integer): boolean; begin Result := FAantal_Specified; end; destructor AllFromBatch.Destroy; begin SysUtils.FreeAndNil(FvarDataSet); inherited Destroy; end; procedure AllFromBatch.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function AllFromBatch.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure AllFromBatch.SetWerkpost(Index: Integer; const Astring: string); begin FWerkpost := Astring; FWerkpost_Specified := True; end; function AllFromBatch.Werkpost_Specified(Index: Integer): boolean; begin Result := FWerkpost_Specified; end; procedure AllFromBatch.SetBatchID(Index: Integer; const Astring: string); begin FBatchID := Astring; FBatchID_Specified := True; end; function AllFromBatch.BatchID_Specified(Index: Integer): boolean; begin Result := FBatchID_Specified; end; procedure AllFromBatch.SetExcludeList(Index: Integer; const Astring: string); begin FExcludeList := Astring; FExcludeList_Specified := True; end; function AllFromBatch.ExcludeList_Specified(Index: Integer): boolean; begin Result := FExcludeList_Specified; end; procedure AllFromBatch.SetvarDataSet(Index: Integer; const AanyType: anyType); begin FvarDataSet := AanyType; FvarDataSet_Specified := True; end; function AllFromBatch.varDataSet_Specified(Index: Integer): boolean; begin Result := FvarDataSet_Specified; end; destructor Snij.Destroy; var I: Integer; begin for I := 0 to System.Length(FSnijOpdrachten) - 1 do SysUtils.FreeAndNil(FSnijOpdrachten[I]); System.SetLength(FSnijOpdrachten, 0); inherited Destroy; end; procedure Snij.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function Snij.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure Snij.SetSnijOpdrachten(Index: Integer; const AArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString : ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString); begin FSnijOpdrachten := AArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString; FSnijOpdrachten_Specified := True; end; function Snij.SnijOpdrachten_Specified(Index: Integer): boolean; begin Result := FSnijOpdrachten_Specified; end; procedure Snij.SetSnijPrioriteit(Index: Integer; const Astring: string); begin FSnijPrioriteit := Astring; FSnijPrioriteit_Specified := True; end; function Snij.SnijPrioriteit_Specified(Index: Integer): boolean; begin Result := FSnijPrioriteit_Specified; end; procedure Snij.SetPPSOutput(Index: Integer; const Astring: string); begin FPPSOutput := Astring; FPPSOutput_Specified := True; end; function Snij.PPSOutput_Specified(Index: Integer): boolean; begin Result := FPPSOutput_Specified; end; procedure Snij.SetMachineID(Index: Integer; const Astring: string); begin FMachineID := Astring; FMachineID_Specified := True; end; function Snij.MachineID_Specified(Index: Integer): boolean; begin Result := FMachineID_Specified; end; destructor BulkResponse.Destroy; begin SysUtils.FreeAndNil(FBulkResult); inherited Destroy; end; destructor ChangeBasedOnMetaIDResponse.Destroy; begin SysUtils.FreeAndNil(FChangeBasedOnMetaIDResult); SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure ChangeBasedOnMetaIDResponse.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function ChangeBasedOnMetaIDResponse.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; procedure DeleteBoxDataViaID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function DeleteBoxDataViaID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure DeleteBoxDataViaID.SetBoxDataID(Index: Integer; const Astring: string); begin FBoxDataID := Astring; FBoxDataID_Specified := True; end; function DeleteBoxDataViaID.BoxDataID_Specified(Index: Integer): boolean; begin Result := FBoxDataID_Specified; end; destructor ChangeBasedOnMetaID.Destroy; begin SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure ChangeBasedOnMetaID.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function ChangeBasedOnMetaID.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure ChangeBasedOnMetaID.SetBasedOnMetaID(Index: Integer; const Astring: string); begin FBasedOnMetaID := Astring; FBasedOnMetaID_Specified := True; end; function ChangeBasedOnMetaID.BasedOnMetaID_Specified(Index: Integer): boolean; begin Result := FBasedOnMetaID_Specified; end; procedure ChangeBasedOnMetaID.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function ChangeBasedOnMetaID.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; destructor CalcBoxDataViaCalcParams.Destroy; var I: Integer; begin for I := 0 to System.Length(FCalcParams) - 1 do SysUtils.FreeAndNil(FCalcParams[I]); System.SetLength(FCalcParams, 0); SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure CalcBoxDataViaCalcParams.SetSessionKey(Index: Integer; const Astring: string); begin FSessionKey := Astring; FSessionKey_Specified := True; end; function CalcBoxDataViaCalcParams.SessionKey_Specified(Index: Integer): boolean; begin Result := FSessionKey_Specified; end; procedure CalcBoxDataViaCalcParams.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function CalcBoxDataViaCalcParams.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; procedure CalcBoxDataViaCalcParams.SetCalcParams(Index: Integer; const AArrayOfpxemSnijParampxemSnijParam: ArrayOfpxemSnijParampxemSnijParam); begin FCalcParams := AArrayOfpxemSnijParampxemSnijParam; FCalcParams_Specified := True; end; function CalcBoxDataViaCalcParams.CalcParams_Specified(Index: Integer): boolean; begin Result := FCalcParams_Specified; end; destructor CalcBoxDataViaCalcParamsResponse.Destroy; begin SysUtils.FreeAndNil(FCalcBoxDataViaCalcParamsResult); SysUtils.FreeAndNil(FvarBoxData); inherited Destroy; end; procedure CalcBoxDataViaCalcParamsResponse.SetvarBoxData(Index: Integer; const ApxBoxData: pxBoxData); begin FvarBoxData := ApxBoxData; FvarBoxData_Specified := True; end; function CalcBoxDataViaCalcParamsResponse.varBoxData_Specified(Index: Integer): boolean; begin Result := FvarBoxData_Specified; end; initialization { OptiBoxServerSoap } InvRegistry.RegisterInterface(TypeInfo(OptiBoxServerSoap), 'http://vhintra.vanhoecke.be', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(OptiBoxServerSoap), 'http://vhintra.vanhoecke.be/WS.Prod.OptiBox.OptiServer.%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(OptiBoxServerSoap), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(OptiBoxServerSoap), ioLiteral); RemClassRegistry.RegisterXSClass(GetOptimizerQueueResponse, 'http://vhintra.vanhoecke.be', 'GetOptimizerQueueResponse'); RemClassRegistry.RegisterXSClass(GetMetaViaProductGroepResponse, 'http://vhintra.vanhoecke.be', 'GetMetaViaProductGroepResponse'); RemClassRegistry.RegisterXSClass(GetMetaViaIDResponse, 'http://vhintra.vanhoecke.be', 'GetMetaViaIDResponse'); RemClassRegistry.RegisterXSClass(GetUIResourceResponse, 'http://vhintra.vanhoecke.be', 'GetUIResourceResponse'); RemClassRegistry.RegisterXSClass(GetSnijInfoResponse, 'http://vhintra.vanhoecke.be', 'GetSnijInfoResponse'); RemClassRegistry.RegisterXSClass(GetProductURLResponse, 'http://vhintra.vanhoecke.be', 'GetProductURLResponse'); RemClassRegistry.RegisterXSClass(GetBoxDatasViaMetaResponse, 'http://vhintra.vanhoecke.be', 'GetBoxDatasViaMetaResponse'); RemClassRegistry.RegisterXSClass(GetBoxDataViaIDResponse, 'http://vhintra.vanhoecke.be', 'GetBoxDataViaIDResponse'); RemClassRegistry.RegisterXSClass(GetBoxDataIDsViaVerpakkingResponse, 'http://vhintra.vanhoecke.be', 'GetBoxDataIDsViaVerpakkingResponse'); RemClassRegistry.RegisterXSClass(GetDataUIResourceResponse, 'http://vhintra.vanhoecke.be', 'GetDataUIResourceResponse'); RemClassRegistry.RegisterXSClass(ReProcessItemResponse, 'http://vhintra.vanhoecke.be', 'ReProcessItemResponse'); RemClassRegistry.RegisterXSClass(ProcessNextBatchItemsResponse, 'http://vhintra.vanhoecke.be', 'ProcessNextBatchItemsResponse'); RemClassRegistry.RegisterXSClass(OptimizeViaVerpakkingResponse, 'http://vhintra.vanhoecke.be', 'OptimizeViaVerpakkingResponse'); RemClassRegistry.RegisterXSClass(SnijResponse, 'http://vhintra.vanhoecke.be', 'SnijResponse'); RemClassRegistry.RegisterXSClass(SaveBoxMetaResponse, 'http://vhintra.vanhoecke.be', 'SaveBoxMetaResponse'); RemClassRegistry.RegisterXSClass(SaveBoxDataResponse, 'http://vhintra.vanhoecke.be', 'SaveBoxDataResponse'); RemClassRegistry.RegisterXSClass(GetWPBatchIDsViaWerkpostResponse, 'http://vhintra.vanhoecke.be', 'GetWPBatchIDsViaWerkpostResponse'); RemClassRegistry.RegisterXSClass(GetVerpakkingNamenViaGroepResponse, 'http://vhintra.vanhoecke.be', 'GetVerpakkingNamenViaGroepResponse'); RemClassRegistry.RegisterXSClass(OptimizeViaProductResponse, 'http://vhintra.vanhoecke.be', 'OptimizeViaProductResponse'); RemClassRegistry.RegisterXSClass(ModifyStatusResponse, 'http://vhintra.vanhoecke.be', 'ModifyStatusResponse'); RemClassRegistry.RegisterXSClass(GetWPQueueViaBatchIDResponse, 'http://vhintra.vanhoecke.be', 'GetWPQueueViaBatchIDResponse'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfpxemSnijParampxemSnijParam), 'http://vhintra.vanhoecke.be', 'ArrayOfpxemSnijParampxemSnijParam'); RemClassRegistry.RegisterXSClass(GetCalcParamsViaBoxDataResponse, 'http://vhintra.vanhoecke.be', 'GetCalcParamsViaBoxDataResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetCalcParamsViaBoxDataResponse), 'varCalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(GetCalcParamsViaBoxDataIDsResponse, 'http://vhintra.vanhoecke.be', 'GetCalcParamsViaBoxDataIDsResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetCalcParamsViaBoxDataIDsResponse), 'varCalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfpxemBoxSelectpxemBoxSelect), 'http://vhintra.vanhoecke.be', 'ArrayOfpxemBoxSelectpxemBoxSelect'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfpxemMetaParampxemMetaParam), 'http://vhintra.vanhoecke.be', 'ArrayOfpxemMetaParampxemMetaParam'); RemClassRegistry.RegisterXSInfo(TypeInfo(WaardeExec), 'http://vhintra.vanhoecke.be', 'WaardeExec'); RemClassRegistry.RegisterXSClass(pxemBoxSelect, 'http://vhintra.vanhoecke.be', 'pxemBoxSelect'); RemClassRegistry.RegisterXSInfo(TypeInfo(Default_), 'http://vhintra.vanhoecke.be', 'Default_', 'Default'); RemClassRegistry.RegisterXSInfo(TypeInfo(WaardeExecResult), 'http://vhintra.vanhoecke.be', 'WaardeExecResult'); RemClassRegistry.RegisterXSClass(pxemSnijParam, 'http://vhintra.vanhoecke.be', 'pxemSnijParam'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxemSnijParam), 'Name_', '[ExtName="Name"]'); RemClassRegistry.RegisterXSClass(pxUIResource, 'http://vhintra.vanhoecke.be', 'pxUIResource'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBoxDataIDsItemString), 'http://vhintra.vanhoecke.be', 'ArrayOfBoxDataIDsItemString'); RemClassRegistry.RegisterXSClass(ModifyStatus, 'http://vhintra.vanhoecke.be', 'ModifyStatus'); RemClassRegistry.RegisterXSClass(GetWPQueueViaBatchID, 'http://vhintra.vanhoecke.be', 'GetWPQueueViaBatchID'); RemClassRegistry.RegisterXSClass(GetVolumeVanID, 'http://vhintra.vanhoecke.be', 'GetVolumeVanID'); RemClassRegistry.RegisterXSClass(GetVolumeVanIDResponse, 'http://vhintra.vanhoecke.be', 'GetVolumeVanIDResponse'); RemClassRegistry.RegisterXSClass(GetWPBatchIDsViaWerkpost, 'http://vhintra.vanhoecke.be', 'GetWPBatchIDsViaWerkpost'); RemClassRegistry.RegisterXSClass(SaveBoxMeta, 'http://vhintra.vanhoecke.be', 'SaveBoxMeta'); RemClassRegistry.RegisterXSClass(SaveBoxData, 'http://vhintra.vanhoecke.be', 'SaveBoxData'); RemClassRegistry.RegisterXSClass(ReProcessItem, 'http://vhintra.vanhoecke.be', 'ReProcessItem'); RemClassRegistry.RegisterXSClass(GetVerpakkingNamenViaGroep, 'http://vhintra.vanhoecke.be', 'GetVerpakkingNamenViaGroep'); RemClassRegistry.RegisterXSClass(GetCalcParamsViaBoxDataIDs, 'http://vhintra.vanhoecke.be', 'GetCalcParamsViaBoxDataIDs'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetCalcParamsViaBoxDataIDs), 'BoxDataIDs', '[ArrayItemName="BoxDataIDsItem"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetCalcParamsViaBoxDataIDs), 'varCalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(GetDataUIResource, 'http://vhintra.vanhoecke.be', 'GetDataUIResource'); RemClassRegistry.RegisterXSClass(GetCalcParamsViaBoxData, 'http://vhintra.vanhoecke.be', 'GetCalcParamsViaBoxData'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetCalcParamsViaBoxData), 'varCalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(GetBoxDataViaID, 'http://vhintra.vanhoecke.be', 'GetBoxDataViaID'); RemClassRegistry.RegisterXSClass(GetBoxDatasViaMeta, 'http://vhintra.vanhoecke.be', 'GetBoxDatasViaMeta'); RemClassRegistry.RegisterXSClass(GetMetaViaID, 'http://vhintra.vanhoecke.be', 'GetMetaViaID'); RemClassRegistry.RegisterXSClass(GetSnijInfo, 'http://vhintra.vanhoecke.be', 'GetSnijInfo'); RemClassRegistry.RegisterXSClass(GetUIResource, 'http://vhintra.vanhoecke.be', 'GetUIResource'); RemClassRegistry.RegisterXSClass(GetProductURL, 'http://vhintra.vanhoecke.be', 'GetProductURL'); RemClassRegistry.RegisterXSClass(GetMetaViaProductGroep, 'http://vhintra.vanhoecke.be', 'GetMetaViaProductGroep'); RemClassRegistry.RegisterXSClass(GetOptimizerQueue, 'http://vhintra.vanhoecke.be', 'GetOptimizerQueue'); RemClassRegistry.RegisterExternalPropName(TypeInfo(GetOptimizerQueue), 'Type_', '[ExtName="Type"]'); RemClassRegistry.RegisterXSClass(anyType, 'http://vhintra.vanhoecke.be', 'anyType'); RemClassRegistry.RegisterXSClass(pxStatus, 'http://vhintra.vanhoecke.be', 'pxStatus'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxStatus), 'Message_', '[ExtName="Message"]'); RemClassRegistry.RegisterXSClass(OptimizeViaProduct, 'http://vhintra.vanhoecke.be', 'OptimizeViaProduct'); RemClassRegistry.RegisterExternalPropName(TypeInfo(OptimizeViaProduct), 'CalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(OptimizeViaVerpakking, 'http://vhintra.vanhoecke.be', 'OptimizeViaVerpakking'); RemClassRegistry.RegisterExternalPropName(TypeInfo(OptimizeViaVerpakking), 'CalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(ProcessNextBatchItems, 'http://vhintra.vanhoecke.be', 'ProcessNextBatchItems'); RemClassRegistry.RegisterXSInfo(TypeInfo(Waarde), 'http://vhintra.vanhoecke.be', 'Waarde'); RemClassRegistry.RegisterXSClass(pxemDataParam, 'http://vhintra.vanhoecke.be', 'pxemDataParam'); RemClassRegistry.RegisterXSClass(pxemPPSPrioriteit, 'http://vhintra.vanhoecke.be', 'pxemPPSPrioriteit'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit), 'http://vhintra.vanhoecke.be', 'ArrayOfpxemPPSPrioriteitpxemPPSPrioriteit'); RemClassRegistry.RegisterXSClass(pxBoxMeta, 'http://vhintra.vanhoecke.be', 'pxBoxMeta'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxMeta), 'Name_', '[ExtName="Name"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxMeta), 'BoxSelect', '[ArrayItemName="pxemBoxSelect"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxMeta), 'PPSPrioriteit', '[ArrayItemName="pxemPPSPrioriteit"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxMeta), 'Params', '[ArrayItemName="pxemMetaParam"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfpxemDataParampxemDataParam), 'http://vhintra.vanhoecke.be', 'ArrayOfpxemDataParampxemDataParam'); RemClassRegistry.RegisterXSClass(pxBoxData, 'http://vhintra.vanhoecke.be', 'pxBoxData'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxData), 'PPSPrioriteit', '[ArrayItemName="pxemPPSPrioriteit"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxBoxData), 'Params', '[ArrayItemName="pxemDataParam"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(Omschrijving), 'http://vhintra.vanhoecke.be', 'Omschrijving'); RemClassRegistry.RegisterXSClass(pxemMetaParam, 'http://vhintra.vanhoecke.be', 'pxemMetaParam'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxemMetaParam), 'Type_', '[ExtName="Type"]'); RemClassRegistry.RegisterExternalPropName(TypeInfo(pxemMetaParam), 'Default_', '[ExtName="Default"]'); RemClassRegistry.RegisterXSClass(GetAllBoxSelectResponse, 'http://vhintra.vanhoecke.be', 'GetAllBoxSelectResponse'); RemClassRegistry.RegisterXSClass(GetAllProductGroepen, 'http://vhintra.vanhoecke.be', 'GetAllProductGroepen'); RemClassRegistry.RegisterXSClass(GetAllBoxSelect, 'http://vhintra.vanhoecke.be', 'GetAllBoxSelect'); RemClassRegistry.RegisterXSClass(DeleteMetaViaID, 'http://vhintra.vanhoecke.be', 'DeleteMetaViaID'); RemClassRegistry.RegisterXSClass(DeleteMetaViaIDResponse, 'http://vhintra.vanhoecke.be', 'DeleteMetaViaIDResponse'); RemClassRegistry.RegisterXSClass(GetAllProductGroepenResponse, 'http://vhintra.vanhoecke.be', 'GetAllProductGroepenResponse'); RemClassRegistry.RegisterXSClass(GetBoxDataIDsViaProductResponse, 'http://vhintra.vanhoecke.be', 'GetBoxDataIDsViaProductResponse'); RemClassRegistry.RegisterXSClass(GetBoxDataIDsViaVerpakking, 'http://vhintra.vanhoecke.be', 'GetBoxDataIDsViaVerpakking'); RemClassRegistry.RegisterXSClass(GetBoxDataIDsViaProduct, 'http://vhintra.vanhoecke.be', 'GetBoxDataIDsViaProduct'); RemClassRegistry.RegisterXSClass(GetAllVerpakkingGroepen, 'http://vhintra.vanhoecke.be', 'GetAllVerpakkingGroepen'); RemClassRegistry.RegisterXSClass(GetAllVerpakkingGroepenResponse, 'http://vhintra.vanhoecke.be', 'GetAllVerpakkingGroepenResponse'); RemClassRegistry.RegisterXSClass(DeleteBoxDataViaIDResponse, 'http://vhintra.vanhoecke.be', 'DeleteBoxDataViaIDResponse'); RemClassRegistry.RegisterXSClass(AllFromBatchResponse, 'http://vhintra.vanhoecke.be', 'AllFromBatchResponse'); RemClassRegistry.RegisterXSClass(Bulk, 'http://vhintra.vanhoecke.be', 'Bulk'); RemClassRegistry.RegisterXSClass(AllFromBatch, 'http://vhintra.vanhoecke.be', 'AllFromBatch'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString), 'http://vhintra.vanhoecke.be', 'ArrayOfSnijOpdrachtenItemPairOfSnijOpdrachtenKeyString'); RemClassRegistry.RegisterXSClass(Snij, 'http://vhintra.vanhoecke.be', 'Snij'); RemClassRegistry.RegisterExternalPropName(TypeInfo(Snij), 'SnijOpdrachten', '[ArrayItemName="SnijOpdrachtenItem"]'); RemClassRegistry.RegisterXSClass(PairOfSnijOpdrachtenKeyString, 'http://vhintra.vanhoecke.be', 'PairOfSnijOpdrachtenKeyString'); RemClassRegistry.RegisterXSClass(BulkResponse, 'http://vhintra.vanhoecke.be', 'BulkResponse'); RemClassRegistry.RegisterXSClass(ChangeBasedOnMetaIDResponse, 'http://vhintra.vanhoecke.be', 'ChangeBasedOnMetaIDResponse'); RemClassRegistry.RegisterXSClass(DeleteBoxDataViaID, 'http://vhintra.vanhoecke.be', 'DeleteBoxDataViaID'); RemClassRegistry.RegisterXSClass(ChangeBasedOnMetaID, 'http://vhintra.vanhoecke.be', 'ChangeBasedOnMetaID'); RemClassRegistry.RegisterXSClass(CalcBoxDataViaCalcParams, 'http://vhintra.vanhoecke.be', 'CalcBoxDataViaCalcParams'); RemClassRegistry.RegisterExternalPropName(TypeInfo(CalcBoxDataViaCalcParams), 'CalcParams', '[ArrayItemName="pxemSnijParam"]'); RemClassRegistry.RegisterXSClass(CalcBoxDataViaCalcParamsResponse, 'http://vhintra.vanhoecke.be', 'CalcBoxDataViaCalcParamsResponse'); end.