Index: development/models/mvx/MVX Configurator,1.0.0.xml =================================================================== diff -u -r2762 -r2926 --- development/models/mvx/MVX Configurator,1.0.0.xml (.../MVX Configurator,1.0.0.xml) (revision 2762) +++ development/models/mvx/MVX Configurator,1.0.0.xml (.../MVX Configurator,1.0.0.xml) (revision 2926) @@ -5399,15 +5399,16 @@ CONFIG.WebService.PropertyNamen@length = 999; +local string _NumPrefix = "NUM;"; // de numerieke properties moeten met deze prefix aangeduid worden, want moeten omgezet worden van "," naar "." voor de webservice request. local Long _i = 0; // Hoofdletters (Firstcase) zoals de "eCon-ConfigAnalyse Namen" : _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Familie"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Variant"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Bodemkleur"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Corpusbreedte"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Corpuswanddikte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpusbreedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Corpuswanddikte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Draagkracht"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; @@ -5449,21 +5450,21 @@ _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rugwandmateriaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Toepassing"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Uitsparingaantal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.M.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.M.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.X.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.X.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Y.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Y.Materiaal"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z1.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Diepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Materiaal"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z1.Vorm"; -_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Breedte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = _NumPrefix + "Data.Kenmerken.Uitsparingdata.Z2.Breedte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Diepte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Hoogte"; _i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Materiaal"; @@ -5543,6 +5544,7 @@ local string _FullFilename = _Filepath + _Filename; local string _EconConfiguratieKVPs = ""; local string _PropertyNaam = ""; +local string _PropertyWaarde = ""; // ================================ @@ -5576,7 +5578,13 @@ // ==================================== index i of CONFIG.WebService.PropertyNamen _PropertyNaam = CONFIG.WebService.PropertyNamen(i); - _EconConfiguratieKVPs = _EconConfiguratieKVPs + " <view:String EconConfiguratieKey='" + _PropertyNaam + "'>" + CStr(Eval(_PropertyNaam)) + "</view:String> "; + if Mid(_PropertyNaam; 1; 4) == "NUM;" then + _PropertyNaam = Mid(_PropertyNaam; 5); // "NUM;" prefix afkappen. + _PropertyWaarde = Replace(CStr(Eval(_PropertyNaam)); ","; "."); + else + _PropertyWaarde = CStr(Eval(_PropertyNaam)); + end if; + _EconConfiguratieKVPs = _EconConfiguratieKVPs + " &lt;view:String EconConfiguratieKey='" + _PropertyNaam + "'&gt;" + _PropertyWaarde + "&lt;/view:String&gt; "; end index;