Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dproj =================================================================== diff -u -r561 -r562 --- VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (.../VerpakkingsDefinitie.dproj) (revision 561) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dproj (.../VerpakkingsDefinitie.dproj) (revision 562) @@ -113,6 +113,7 @@
FormGevondenProducten
dfm + Cfg_2 Base Index: VerpakkingsDefinitie/WS/ProductsAgent.pas =================================================================== diff -u -r560 -r562 --- VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 560) +++ VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 562) @@ -2,36 +2,42 @@ interface -uses SysUtils, - ObserverPattern, ApplicationContext, SelectService; +uses SysUtils, System.Classes, + ObserverPattern, ApplicationContext, + SelectService, OptiServerService; // Resource strings are stored as resources and linked into the executable or // library so that they can be modified without recompiling the program. resourcestring - PROD_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.Select.CLS'; - KORTTEKST_FORMAT_COMPACT = 'KortTekst;IdentNr;StockType'; - KORTTEKST_FORMAT_EXPAND = 'KortTekst;IdentNr;StockType;LangTekstN'; + SELECT_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.Select.CLS'; + OPTI_SERVER_URL = 'http://cacheaccept2010:57772/csp/dev1/WS.Prod.OptiBox.OptiServer.CLS'; type TProductsAgent = class private - FProdSelectServerSoap: SelectService.ProdSelectServerSoap; - procedure RegistreerZoekresultaten(ProductsContext: TProductsContext; DataSet: string); - procedure RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: pxStatus); + FSelectServerSoap: SelectService.ProdSelectServerSoap; + FOptiBoxServerSoap: OptiServerService.OptiBoxServerSoap; + function GeefBruikbareLijnenUitXMLDataSet(DataSetXml: string): TStringList; + procedure RegistreerZoekResultaten(ProductsContext: TProductsContext; DataSet: string); + procedure RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: SelectService.pxStatus); overload; + procedure RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: OptiServerService.pxStatus); overload; + function GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext): GetBoxDataIDsViaProductResponse; public Constructor Create(); procedure ZoekOpMetKortTekst(Zoek: string; KLNr: string; At: string; UserContext: TUserContext; ProductsContext: TProductsContext); + procedure ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext; ProductsContext: TProductsContext); end; implementation uses - StrUtils, System.Classes, Xml.XMLIntf, Xml.XMLDoc; + StrUtils, Xml.XMLIntf, Xml.XMLDoc; constructor TProductsAgent.Create(); begin - FProdSelectServerSoap := SelectService.GetProdSelectServerSoap(false, PROD_SERVER_URL, nil); + FSelectServerSoap := SelectService.GetProdSelectServerSoap(false, SELECT_SERVER_URL, nil); + FOptiBoxServerSoap := OptiServerService.GetOptiBoxServerSoap(false, OPTI_SERVER_URL, nil); end; procedure TProductsAgent.ZoekOpMetKortTekst(Zoek: string; KLNr: string; At: string; UserContext: TUserContext; @@ -50,17 +56,17 @@ ZoekCriteria.KLNr := KLNr; ZoekCriteria.Zoek := Zoek; ZoekCriteria.At := At; - ZoekCriteria.FormatCompact := KORTTEKST_FORMAT_COMPACT; - ZoekCriteria.FormatExpand := KORTTEKST_FORMAT_EXPAND; + ZoekCriteria.FormatCompact := 'KortTekst;IdentNr;StockType'; + ZoekCriteria.FormatExpand := 'KortTekst;IdentNr;StockType;LangTekstN'; ZoekData.Criteria := ZoekCriteria; - SelectResponseObj := FProdSelectServerSoap.Select(ZoekData); + SelectResponseObj := FSelectServerSoap.Select(ZoekData); // Response if SelectResponseObj.SelectResult = nil then begin // Gelukt - RegistreerZoekresultaten(ProductsContext, SelectResponseObj.varDataSet); + RegistreerZoekResultaten(ProductsContext, SelectResponseObj.varDataSet); end else begin @@ -72,71 +78,81 @@ end; end; -procedure TProductsAgent.RegistreerZoekresultaten(ProductsContext: TProductsContext; DataSet: string); +function TProductsAgent.GeefBruikbareLijnenUitXMLDataSet(DataSetXml: string): TStringList; var - TempStr: string; - Lijn: string; - Lijnen: tstringlist; - LijnenProduct: tstringlist; BeginOpslaan: Boolean; - XMLDoc: IXMLDocument; - NieuwProduct: TProductInformatie; + Lijn: string; + Lijnen: TStringList; begin - // Andere velden juist zetten - ProductsContext.IsOK := True; - ProductsContext.ErrorMessage := ''; - ProductsContext.InternalErrorMessage := ''; - - // Producten inladen - - Lijnen := tstringlist.Create; - LijnenProduct := tstringlist.Create; - + Lijnen := TStringList.Create; // Elke lijn overlopen (skip lege lijnen), maar pas beginnen opslaan vanaf dat we voorbij het schema zitten - // Dus alle 'Select' elementen BeginOpslaan := false; - for Lijn in SplitString(DataSet, sLineBreak) do + for Lijn in SplitString(DataSetXml, sLineBreak) do begin if Lijn = '' then continue; if BeginOpslaan then Lijnen.Add(Lijn); if (BeginOpslaan = false) and (ContainsStr(Lijn, '')) then begin - // De tekst is nu '') then + + Result := Lijnen; +end; + +procedure TProductsAgent.RegistreerZoekResultaten(ProductsContext: TProductsContext; DataSet: string); +var + TempStr: string; + Lijn: string; + Lijnen: TStringList; + LijnenProduct: TStringList; + XMLDoc: IXMLDocument; + NieuwProduct: TProductInformatie; +begin + // Andere velden juist zetten + ProductsContext.IsOK := True; + ProductsContext.ErrorMessage := ''; + ProductsContext.InternalErrorMessage := ''; + + // Producten inladen + LijnenProduct := TStringList.Create; + Lijnen := GeefBruikbareLijnenUitXMLDataSet(DataSet); + try + // De 'Select' elementen overlopen en elk element mappen naar een property van een instantie. + // Deze instantie toevoegen aan de lijst. + for Lijn in Lijnen do begin - TempStr := LijnenProduct.Text; - XMLDoc := LoadXMLData(TempStr); // XML document van maken - // Elementen uit XML laden, toewijzen en instantie toevoegen aan lijst. - NieuwProduct := TProductInformatie.Create(); - NieuwProduct.ProductNr := XMLDoc.DocumentElement.ChildValues['ProductNr']; - NieuwProduct.Tekst := XMLDoc.DocumentElement.ChildValues['Tekst']; - NieuwProduct.Kol1 := XMLDoc.DocumentElement.ChildValues['Kol1']; - NieuwProduct.Kol2 := XMLDoc.DocumentElement.ChildValues['Kol2']; - NieuwProduct.Kol3 := XMLDoc.DocumentElement.ChildValues['Kol3']; - NieuwProduct.Kol4 := XMLDoc.DocumentElement.ChildValues['Kol4']; - ProductsContext.Producten.Add(NieuwProduct); + LijnenProduct.Add(Lijn); + if ContainsStr(Lijn, '') then + begin + // Er zit een volledig item in de lijst + TempStr := LijnenProduct.Text; + XMLDoc := LoadXMLData(TempStr); // XML document van maken + // Elementen uit XML laden, toewijzen en instantie toevoegen aan lijst. + NieuwProduct := TProductInformatie.Create(); + NieuwProduct.ProductNr := XMLDoc.DocumentElement.ChildValues['ProductNr']; + NieuwProduct.Tekst := XMLDoc.DocumentElement.ChildValues['Tekst']; + NieuwProduct.Kol1 := XMLDoc.DocumentElement.ChildValues['Kol1']; + NieuwProduct.Kol2 := XMLDoc.DocumentElement.ChildValues['Kol2']; + NieuwProduct.Kol3 := XMLDoc.DocumentElement.ChildValues['Kol3']; + NieuwProduct.Kol4 := XMLDoc.DocumentElement.ChildValues['Kol4']; + ProductsContext.Producten.Add(NieuwProduct); + end; end; + finally + Lijnen.Free(); + LijnenProduct.Free(); end; - Lijnen.Free(); - LijnenProduct.Free(); - ProductsContext.NotifyChanged(); end; -procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: pxStatus); +procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: SelectService.pxStatus); begin // Ander velden leegmaken ProductsContext.Producten.Clear(); @@ -148,4 +164,82 @@ ProductsContext.NotifyChanged(); end; +function TProductsAgent.GetBoxDataIDsViaProduct(ProductNr: Integer; UserContext: TUserContext): GetBoxDataIDsViaProductResponse; +var + ZoekData: OptiServerService.GetBoxDataIDsViaProduct; +begin + ZoekData := nil; + try + // Request + ZoekData := OptiServerService.GetBoxDataIDsViaProduct.Create(); + ZoekData.SessionKey := UserContext.SessionKey; + ZoekData.ProductNr := ProductNr; + + Result := FOptiBoxServerSoap.GetBoxDataIDsViaProduct(ZoekData); + finally + ZoekData.Free(); + end; +end; + +procedure TProductsAgent.ZoekProductDataMetProductNr(ProductNr: Integer; UserContext: TUserContext; + ProductsContext: TProductsContext); +var + GetBoxDataIDsViaProductResponseObj: OptiServerService.GetBoxDataIDsViaProductResponse; + TempStr: string; + Lijn: string; + Lijnen: TStringList; + LijnenBoxDataID: TStringList; + XMLDoc: IXMLDocument; + BoxDataID: string; +begin + GetBoxDataIDsViaProductResponseObj := GetBoxDataIDsViaProduct(ProductNr, UserContext); + + // Response + if GetBoxDataIDsViaProductResponseObj.GetBoxDataIDsViaProductResult <> nil then + // Mislukt + RegistreerMislukteOpzoeking(ProductsContext, GetBoxDataIDsViaProductResponseObj.GetBoxDataIDsViaProductResult); + + // Bruikbare informatie uit antwoord halen + + // Producten inladen + LijnenBoxDataID := TStringList.Create; + Lijnen := GeefBruikbareLijnenUitXMLDataSet(GetBoxDataIDsViaProductResponseObj.varDataSet); + try + // 'GetBoxDataIDsViaObjTypeAndRef' element overlopen en mappen naar een instantie. + for Lijn in Lijnen do + begin + LijnenBoxDataID.Add(Lijn); + if ContainsStr(Lijn, '') then + begin + // Er zit een volledig item in de lijst + TempStr := LijnenBoxDataID.Text; + XMLDoc := LoadXMLData(TempStr); // XML document van maken + // Elementen uit XML laden. + BoxDataID := XMLDoc.DocumentElement.ChildValues['ID']; + end; + end; + finally + Lijnen.Free(); + LijnenBoxDataID.Free(); + end; + + // Controleren dat er resultaat was + if BoxDataID = '' then + raise Exception.Create('Er is geen Box ID gevonden.'); + + // Met ID box data opvragen + +end; + +procedure TProductsAgent.RegistreerMislukteOpzoeking(ProductsContext: TProductsContext; pxStatusObj: OptiServerService.pxStatus); +begin + { TODO : ProductDetail leegmaken } + + ProductsContext.IsOK := pxStatusObj.IsOK; + ProductsContext.ErrorMessage := pxStatusObj.Message_; + ProductsContext.InternalErrorMessage := pxStatusObj.InternalMessage; + + ProductsContext.NotifyChanged(); +end; + end. Index: VerpakkingsDefinitie/Main.pas =================================================================== diff -u -r561 -r562 --- VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 561) +++ VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 562) @@ -28,7 +28,7 @@ private FAppContext: TApplicationContext; FUserAgent: TUserAgent; - FProductAgent: TProductsAgent; + FProductsAgent: TProductsAgent; public procedure NavigeerNaar(schermId: Integer); end; @@ -58,7 +58,7 @@ begin FAppContext := TApplicationContext.Create(); FUserAgent := TUserAgent.Create(); - FProductAgent := TProductsAgent.Create(); + FProductsAgent := TProductsAgent.Create(); { TODO -cMain: Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self); } { TODO -cMain: Kijken of "VerwerkParamStrings;" nodig is } PanelMain.Parent := Self; @@ -94,10 +94,10 @@ // Resultaten scherm daaronder links // Rechts is helemaal voor detail scherm NavGridPanelStandard.Init( - TFormGebruiker.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.UserContext,FUserAgent), - TFormZoekProducten.Create(NavGridPanelStandard, Self, FAppContext, FProductAgent), - TFormGevondenProducten.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductsContext), - TFormLogin.Create(NavGridPanelStandard, Self, FAppContext, FUserAgent) + TFormGebruiker.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.UserContext, FUserAgent), + TFormZoekProducten.Create(NavGridPanelStandard, Self, FAppContext, FProductsAgent), + TFormGevondenProducten.Create(NavGridPanelStandard, Self, FAppContext, FAppContext.ProductsContext, FProductsAgent), + TFormLogin.Create(NavGridPanelStandard, Self, FAppContext, FUserAgent) ); end; Index: VerpakkingsDefinitie/UI/GevondenProductenScherm.pas =================================================================== diff -u -r561 -r562 --- VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 561) +++ VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 562) @@ -5,10 +5,11 @@ uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, + Vcl.StdCtrls, Vcl.ComCtrls, Vcl.DBCGrids, Data.DB, Data.Win.ADODB, ObserverPattern, Util, Subscherm, - UserAgent, Main, ApplicationContext, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.DBCGrids; + ProductsAgent, Main, ApplicationContext; const GridColNamen: array [1 .. 6] of System.string = ('ProductNr', 'Tekst', 'Kol1', 'Kol2', 'Kol3', 'Kol4'); @@ -22,10 +23,11 @@ private FProductSubject: TSubject; FSubjectObserver: TSubjectObserver; + FProductsAgent: TProductsAgent; procedure UpdateGui(Sender: TObject); public Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; - ProductSubject: TSubject); + ProductSubject: TSubject; ProductsAgent: TProductsAgent); end; implementation @@ -35,12 +37,13 @@ uses SelectService; constructor TFormGevondenProducten.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; - ProductSubject: TSubject); + ProductSubject: TSubject; ProductsAgent: TProductsAgent); begin inherited Create(AOwner, Navigator, ApplicationContext); self.FProductSubject := ProductSubject; self.FSubjectObserver := TSubjectObserver.Create(self); self.FSubjectObserver.OnChange := UpdateGui; + self.FProductsAgent := ProductsAgent; end; procedure TFormGevondenProducten.FormCreate(Sender: TObject); @@ -67,7 +70,16 @@ procedure TFormGevondenProducten.ListViewProductenSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin + if Item = nil then + exit; + if Item.Data = nil then + exit; ApplicationContext.ProductDetailContext.GeselecteerdProduct := Item.Data; + FProductsAgent.ZoekProductDataMetProductNr(TProductInformatie(Item.Data).ProductNr, self.ApplicationContext.UserContext, + self.ApplicationContext.ProductsContext); + + ApplicationContext.ProductDetailContext.NotifyChanged(); + end; procedure TFormGevondenProducten.UpdateGui(Sender: TObject); Index: VerpakkingsDefinitie/WS/OptiServerService.pas =================================================================== diff -u --- VerpakkingsDefinitie/WS/OptiServerService.pas (revision 0) +++ VerpakkingsDefinitie/WS/OptiServerService.pas (revision 562) @@ -0,0 +1,5312 @@ +// ************************************************************************ // +// 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. Index: VerpakkingsDefinitie/VerpakkingsDefinitie.dpr =================================================================== diff -u -r561 -r562 --- VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (.../VerpakkingsDefinitie.dpr) (revision 561) +++ VerpakkingsDefinitie/VerpakkingsDefinitie.dpr (.../VerpakkingsDefinitie.dpr) (revision 562) @@ -15,7 +15,8 @@ SelectService in 'WS\SelectService.pas', ProductsAgent in 'WS\ProductsAgent.pas', NavGridPanel in 'UI\NavGridPanel.pas', - GevondenProductenScherm in 'UI\GevondenProductenScherm.pas' {FormGevondenProducten}; + GevondenProductenScherm in 'UI\GevondenProductenScherm.pas' {FormGevondenProducten}, + OptiServerService in 'WS\OptiServerService.pas'; {$R *.res}