Index: production/models/mvx/MVX Configurator,1.0.0.xml
===================================================================
diff -u -r2214 -r2275
--- production/models/mvx/MVX Configurator,1.0.0.xml (.../MVX Configurator,1.0.0.xml) (revision 2214)
+++ production/models/mvx/MVX Configurator,1.0.0.xml (.../MVX Configurator,1.0.0.xml) (revision 2275)
@@ -5,13 +5,13 @@
-
+
-
+
@@ -25,23 +25,23 @@
-
+
-
+
-
+
-
+
-
+
-
+
@@ -56,14 +56,14 @@
-
+
-
+
-
+
@@ -79,21 +79,21 @@
-
+
-
+
-
+
-
+
-
+
@@ -102,13 +102,13 @@
-
+
-
+
@@ -141,40 +141,40 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -220,7 +220,7 @@
-
+
@@ -229,7 +229,7 @@
-
+
@@ -254,7 +254,7 @@
-
+
@@ -265,7 +265,7 @@
-
+
@@ -277,7 +277,7 @@
-
+
@@ -293,7 +293,7 @@
-
+
@@ -305,7 +305,7 @@
-
+
@@ -321,7 +321,7 @@
-
+
@@ -339,10 +339,10 @@
-
+
-
+
@@ -354,11 +354,11 @@
-
+
-
+
@@ -393,14 +393,14 @@
-
+
-
+
-
+
@@ -414,40 +414,40 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -458,15 +458,15 @@
-
+
-
+
@@ -475,17 +475,17 @@
-
+
-
+
-
+
-
+
@@ -500,13 +500,13 @@
-
+
-
+
@@ -518,18 +518,18 @@
-
+
-
+
-
+
@@ -560,7 +560,7 @@
-
+
@@ -578,7 +578,7 @@
-
+
@@ -596,103 +596,103 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -726,10 +726,10 @@
-
+
-
+
@@ -747,14 +747,14 @@
-
+
-
+
-
+
@@ -775,10 +775,10 @@
-
+
-
+
@@ -826,10 +826,10 @@
-
+
-
+
@@ -849,10 +849,10 @@
-
+
-
+
@@ -876,7 +876,7 @@
-
+
@@ -885,10 +885,10 @@
-
+
-
+
@@ -912,7 +912,7 @@
-
+
@@ -954,7 +954,7 @@
-
+
@@ -964,7 +964,7 @@
-
+
@@ -974,15 +974,15 @@
-
+
-
+
@@ -1096,19 +1096,19 @@
-
+
-
+
-
+
-
+
@@ -1137,20 +1137,20 @@
-
+
-
+
-
+
-
+
@@ -1162,7 +1162,7 @@
-
+
@@ -1173,22 +1173,20 @@
-
-
-
+
-
+
@@ -1201,15 +1199,15 @@
-
+
-
+
@@ -1234,30 +1232,30 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -1267,65 +1265,65 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
@@ -1335,45 +1333,41 @@
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
-
-
-
+
-
+
-
+
-
+
@@ -1390,15 +1384,15 @@
-
+
-
+
@@ -1412,20 +1406,20 @@
-
+
-
+
-
+
@@ -1437,11 +1431,11 @@
-
+
-
+
@@ -1451,7 +1445,7 @@
-
+
@@ -1461,7 +1455,7 @@
-
+
@@ -1478,10 +1472,10 @@
-
+
-
+
@@ -1491,7 +1485,7 @@
-
+
@@ -1501,23 +1495,23 @@
-
+
-
+
-
+
-
+
@@ -1589,37 +1583,19 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
+
@@ -1638,14 +1614,14 @@
-
+
-
+
-
+
-
+
@@ -1655,7 +1631,7 @@
-
+
@@ -2091,7 +2067,6 @@
UI.Buttons.Bottom.SaveAndExitButton@default = UI.Buttons.Top.SaveAndExitButton@default;
UI.Buttons.Bottom.SaveAndContinueButton@default = UI.Buttons.Top.SaveAndContinueButton@default;
-UI.Buttons.Bottom.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'";
local boolean _IsEditMode = (CONFIG.InputMode == "Edit");
local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label;
@@ -2110,11 +2085,9 @@
UI.Buttons.Bottom.SaveAndExitButton@visible = BEHAVIOR.IsEconWeb;
UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and BEHAVIOR.IsEconWeb;
-
-UI.Buttons.Bottom.StartMaatwerkViewerButton@label = "Maatwerk Viewer";
Buttons
- ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.bottom.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.bottom.processbutton@value;state.processedandexit@value;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.bottom.startmaatwerkviewerbutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.bottom.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible;
+ ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.bottom.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.bottom.processbutton@value;state.processedandexit@value;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.bottom.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible;
true
@@ -4616,236 +4589,6 @@
;data.kenmerken.uitsparingdata.x.hoogte@value;data.kenmerken.uitsparingdata.x.materiaal@value;data.kenmerken.uitsparingdata.m.hoogte@value;data.kenmerken.uitsparingdata.m.materiaal@value;data.kenmerken.uitsparingdata.y.hoogte@value;data.kenmerken.uitsparingdata.y.materiaal@value;data.kenmerken.uitsparingdata.z1.diepte@value;data.kenmerken.uitsparingdata.z1.hoogte@value;data.kenmerken.uitsparingdata.z1.materiaal@value;data.kenmerken.uitsparingdata.z1.vorm@value;data.kenmerken.uitsparingdata.z2.diepte@value;data.kenmerken.uitsparingdata.z2.hoogte@value;data.kenmerken.uitsparingdata.z2.materiaal@value;data.kenmerken.uitsparingdata.z2.vorm@value;
-
-
- true
-
-local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (Config.Settings.DebugMode == true);
-
-UI.Buttons.Bottom.StartMaatwerkViewerButton@visible = _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar;
-
- Gedrag MaatwerkViewer button visible
- ;ui.buttons.bottom.startmaatwerkviewerbutton@visible;
-
-
- true
-
-local boolean _BEHAVIOR_IsButtonMaatwerkViewerEnabled = false;
-
-local long _AantalOngeldigeVelden = InvalidFields();
-
-if _AantalOngeldigeVelden == 0 then
- _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
-else
- if (_AantalOngeldigeVelden == 1) then
- DATA.Lijn.InvalidFieldSet@options = InvalidFieldSet();
- if (DATA.Lijn.InvalidFieldSet@option(1)@id == "Ui.Lijn.Aantal") then
- _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
- end if
- end if
-end if;
-
-// Tijdelijk : controle op valid fields negeren; Button steeds enabled
-// _BEHAVIOR_IsButtonMaatwerkViewerEnabled = true;
-
-
-UI.Buttons.Bottom.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled;
-
- Gedrag MaatwerkViewer button enabled
- ;ui.buttons.bottom.startmaatwerkviewerbutton@enabled;
-
-
- UI.Buttons.Bottom.StartMaatwerkViewerButton@visible
-
-// local collection _PropertyNamen = {"Data.Kenmerken.Familie";"Data.Kenmerken.Variant";"Data.Kenmerken.BodemKleur";"Data.Kenmerken.Draagkracht"};
-
-// Vreemd genoeg lukt het niet via een locale collection :-(
-// Dan maar via een array-Property
-
-CONFIG.WebService.PropertyNamen@length = 999;
-
-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) = "Data.Kenmerken.Draagkracht";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Frontbevestiging";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Internebreedte";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenbreedte";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Isbinnenlade";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladediepte";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladehoogte";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladekleur";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbinnen";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapbuiten";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestigingboven";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestigingonder";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotioneenheden";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionmeenemers";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Productiewijze";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Rughoogte";
-_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) = "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) = "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) = "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) = "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) = "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";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Uitsparingdata.Z2.Vorm";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Verpakkingtype";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "DATA.Kenmerken.Voorwandtype";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandtype";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Zijwandverhogingtype";
-
-CONFIG.WebService.PropertyNamen@length = _i;
-
-
-/*
-// ==========================================
-// !!! LET OP !!! Hetvolgende werkt NIET !!!
-// ==========================================
-// Hoofdletters (UpperCamelCase) zoals de "eCon-property 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.Draagkracht";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.FrontBevestiging";
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.GeleiderTechnologie";
-...
-_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.ZijwandVerhogingType";
-*/
-
- MaatwerkViewer Properties in Array steken
- ;config.webservice.propertynamen[1]@value;
-
-
- (STATE.StartMaatwerkViewer == true)
-
-STATE.StartMaatwerkViewer = false;
-
-// ================================
-// Initialisatie
-// ================================
-local string _XmlRequest = "";
-local string _Service = GetSetting("data.vanhoecke.connectionstring.cache.maatwerkviewerservice");
-
-local string _PersonalityId = Config.Settings.PersonalityId;
-local string _KlantNummer = Config.Settings.KlantId;
-local string _Aantal = CStr(Data.Lijn.Aantal);
-local string _Datum = ""; // Default = Now
-local string _Username = "WimV-TEST";
-local string _Filename = "\\\\Notes01\\shared\\w v\\maatwerkviewer_MVX_001.xls";
-local string _EconConfiguratieKVPs = "";
-local string _PropertyNaam = "";
-
-
-// ================================
-// Lokale Development/Debugging (tijdelijk)
-// ================================
-local boolean _WebServiceAfleidenNaarLokalePC = false;
-
-if _WebServiceAfleidenNaarLokalePC then
- _Service = replace(_Service; "cachestaging2010"; "WV-W10");
- _Filename = "\\\\WV-W10\\D$\\Temp\\maatwerkviewer_MVX_001.xls";
-end if;
-
-
-// ================================
-// Fallback Default values
-// ================================
-if (_PersonalityId == "") then
- _PersonalityId = "1";
-end if;
-if (_KlantNummer == "") then
- _KlantNummer = "6819";
-end if;
-if (_Aantal == "") or (_Aantal == "0") then
- _Aantal = "1";
-end if;
-
-
-// ====================================
-// Kenmerken KeyValuePairs opbouwen
-// ====================================
-index i of CONFIG.WebService.PropertyNamen
- _PropertyNaam = CONFIG.WebService.PropertyNamen(i);
- _EconConfiguratieKVPs = _EconConfiguratieKVPs + " <view:String EconConfiguratieKey='" + _PropertyNaam + "'>" + CStr(Eval(_PropertyNaam)) + "</view:String> ";
-end index;
-
-
-// ================================
-// _XmlRequest opbouwen
-// ================================
-_XmlRequest = _XmlRequest + "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:view='http://www.vanhoecke.be/WS/PM/Maatwerk/Viewer/Viewer'>";
-_XmlRequest = _XmlRequest + "<soapenv:Header/>";
-_XmlRequest = _XmlRequest + "<soapenv:Body>";
-_XmlRequest = _XmlRequest + "<view:SchrijfExcel>";
-_XmlRequest = _XmlRequest + "<view:MaatwerkViewerRequest>";
-/* * /
-// Request Header is niet voorzien in het Caché-object WS.PM.Maatwerk.Viewer.MaatwerkViewerRequest, dus hier niet toevoegen, anders zal de WS-call crashen.
-_XmlRequest = _XmlRequest + "<view:Header>";
-_XmlRequest = _XmlRequest + "<view:PersonalityID>" + _PersonalityId + "</view:PersonalityID>";
-_XmlRequest = _XmlRequest + "</view:Header>";
-/* */
-_XmlRequest = _XmlRequest + "<view:KlantNummer>" + _KlantNummer + "</view:KlantNummer>";
-_XmlRequest = _XmlRequest + "<view:Aantal>" + _Aantal + "</view:Aantal>";
-_XmlRequest = _XmlRequest + "<view:Datum>" + _Datum + "</view:Datum>";
-_XmlRequest = _XmlRequest + "<view:Username>" + _Username + "</view:Username>";
-_XmlRequest = _XmlRequest + "<view:Filename>" + _Filename + "</view:Filename>";
-_XmlRequest = _XmlRequest + "<view:EconConfiguratie>" + _EconConfiguratieKVPs + "</view:EconConfiguratie>";
-_XmlRequest = _XmlRequest + "</view:MaatwerkViewerRequest>";
-_XmlRequest = _XmlRequest + "</view:SchrijfExcel>";
-_XmlRequest = _XmlRequest + "</soapenv:Body>";
-_XmlRequest = _XmlRequest + "</soapenv:Envelope>";
-
-
-// ================================
-// WebService call uitvoeren
-// ================================
-local boolean _Result = LoadFromXMLService("CONFIG.WebService.MaatwerkViewerSchrijfExcel.ResultaatDummy"; _Service; false; _XmlRequest);
-local string _Status = "";
-local string _Feedback = "";
-
-if (_Result) then
- _Status = "Gelukt: ";
- STATE.MaatwerkViewerServiceLoaded = true;
-else
- _Status = "Mislukt: ";
- STATE.MaatwerkViewerServiceLoaded = false;
-end if;
-
-// Debugging info :
-_Feedback = "Resultaat van de web service 'MaatwerkViewer in Excel' Status ='" + _Status + "'. " + "\n" + "(LET OP: Soap fault wordt ook als succes teruggegeven)";
-local long _FeedbackResult = MsgBox(_Feedback);
-// AaaDebugInfo = _Status + _Service;
-
- MaatwerkViewer starten
- ;state.startmaatwerkviewer@value;state.maatwerkviewerserviceloaded@value;
-
-
true