Index: development/models/tax/TAX Configurator,1.0.0.xml =================================================================== diff -u -r2316 -r2348 --- development/models/tax/TAX Configurator,1.0.0.xml (.../TAX Configurator,1.0.0.xml) (revision 2316) +++ development/models/tax/TAX Configurator,1.0.0.xml (.../TAX Configurator,1.0.0.xml) (revision 2348) @@ -13,7 +13,7 @@ - + @@ -27,10 +27,10 @@ - + - + @@ -42,7 +42,7 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -327,21 +327,21 @@ - + - + - + - + @@ -350,12 +350,12 @@ - + - + - + @@ -366,10 +366,10 @@ - + - + @@ -381,7 +381,7 @@ - + @@ -394,10 +394,10 @@ - + - + @@ -412,10 +412,10 @@ - + - + @@ -427,11 +427,11 @@ - + - + @@ -466,16 +466,16 @@ - + - + - + @@ -487,39 +487,39 @@ - + - + - + - + - + - + - + - + - + - + - + @@ -563,40 +563,40 @@ - + - + - + - + - + - + - + - + - + - + - + @@ -780,7 +780,7 @@ - + @@ -918,7 +918,7 @@ - + @@ -1056,7 +1056,7 @@ - + @@ -1202,7 +1202,7 @@ - + @@ -1244,7 +1244,7 @@ - + @@ -1286,10 +1286,10 @@ - + - + - + - + - + - + @@ -1333,7 +1333,7 @@ - + @@ -1369,10 +1369,10 @@ - + - + @@ -1385,7 +1385,7 @@ - + @@ -1426,10 +1426,10 @@ - + - + @@ -1450,7 +1450,7 @@ - + @@ -1484,321 +1484,321 @@ - - + - + - + - + @@ -1924,7 +1924,7 @@ - + @@ -1937,15 +1937,15 @@ - + - + @@ -1967,141 +1967,173 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + + + + + - + - + - + - + - + - + @@ -2138,34 +2170,34 @@ - + - + - + - + - + - + - + - + @@ -2189,7 +2221,7 @@ - + @@ -2202,10 +2234,10 @@ - + - + - + - + - - + - + - + - + - + - + - + - + - + - + @@ -2403,15 +2453,15 @@ - + - + - + - + - + @@ -2975,6 +3025,7 @@ */ UI.Buttons.Bottom.SaveAndExitButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndExit','true'"; UI.Buttons.Bottom.SaveAndContinueButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.SavedAndContinue','true'"; +UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@default = "task:eCon.UI.Tasks.SetValueTask:'STATE.StartMaatwerkViewer','true'"; local boolean _IsEditMode = (CONFIG.InputMode == "Edit"); local string _LabelSave = UI.Buttons.Top.SaveAndExitButton@label; @@ -2993,9 +3044,11 @@ UI.Buttons.Bottom.SaveAndExitButton@visible = (CONFIG.Backend <> "axapta"); UI.Buttons.Bottom.SaveAndContinueButton@visible = not(_IsEditMode) and (CONFIG.Backend <> "axapta"); + +UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@label = "Maatwerk Viewer"; Buttons - ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.top.processbutton@default;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.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; + ;ui.buttons.top.saveandexitbutton@default;ui.buttons.top.saveandcontinuebutton@default;ui.buttons.top.cancelbutton@default;ui.buttons.top.preferencesbutton@default;ui.buttons.top.processbutton@default;ui.buttons.bottom.saveandexitbutton@default;ui.buttons.bottom.saveandcontinuebutton@default;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@default;ui.buttons.top.saveandexitbutton@visible;ui.buttons.top.saveandcontinuebutton@visible;ui.buttons.top.preferencesbutton@visible;ui.buttons.top.processbutton@visible;ui.buttons.bottom.saveandexitbutton@visible;ui.buttons.bottom.saveandcontinuebutton@visible; true @@ -5294,6 +5347,308 @@ ;ui.kenmerken.uitsparingdata.z2.breedteuitsparing@enabled; + + + true + +local boolean _IsMaatwerkViewerToegelaten = false; +if BEHAVIOR.IsEconAX then + _IsMaatwerkViewerToegelaten = (GetArg("MWV_access") == "1" or LCase(GetArg("MWV_access")) == "true"); // TODO : hier geen GetArg() gebruiken; Te vervangen door CONFIG.<Settings.NogTeMakenProperty> + + if (GetArg("MWV_access") == "") then // Tijdelijk overriden, tot wanneer de GetArg("MWV_access)" vanuit AX wordt doorgegeven. + _IsMaatwerkViewerToegelaten = (Config.Settings.DebugMode == true); + end if; +end if; + +local boolean _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); +local boolean _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar = (_IsMaatwerkViewerToegelaten == true); + +UI.MWViewer@visible = false; // _BEHAVIOR_IsPanelMaatwerkViewerZichtbaar; +UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible = false; // _BEHAVIOR_IsButtonMaatwerkViewerZichtbaar; + + Gedrag MaatwerkViewer button visible + ;ui.mwviewer@visible;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@visible; + + + (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) + +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.MWViewer.InlineButtons.StartMaatwerkViewerButton@enabled = _BEHAVIOR_IsButtonMaatwerkViewerEnabled; + + Gedrag MaatwerkViewer button enabled + ;ui.mwviewer.inlinebuttons.startmaatwerkviewerbutton@enabled; + + + (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) + +UI.MWViewer.BerekenAantal@default = 1; +UI.MWViewer.BerekenKlantnummer@default = CONFIG.Settings.KlantId; +UI.MWViewer.BerekenDatum@default = ""; // Default = Now +UI.MWViewer.FileSuffixVast@default = "001"; +UI.MWViewer.HeeftVasteFileSuffix@default = false; + + Initialiseer MaatwerkViewer velden + ;ui.mwviewer.berekenaantal@default;ui.mwviewer.berekenklantnummer@default;ui.mwviewer.berekendatum@default;ui.mwviewer.filesuffixvast@default;ui.mwviewer.heeftvastefilesuffix@default; + + + true + +UI.MWViewer.FileSuffixVast@visible = (UI.MWViewer.HeeftVasteFileSuffix == true); + + Visible - TimeSuffixVast + ;ui.mwviewer.filesuffixvast@visible; + + + (UI.MWViewer.InlineButtons.StartMaatwerkViewerButton@visible) and (STATE.StartMaatwerkViewer == true) + +// 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.Afdekkapbovenkleur"; +_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.Fronteindkapkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertechnologie"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Geleidertype"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftafwijkenderughoogte"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftdiepteverstelling"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstlinks"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftopvullijstrechts"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Heeftzijstabilisering"; +_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.Kantenbandkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Koppelingtype"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Ladebinnenkleur"; +_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.Lossecomponent"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matmateriaal"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Matkleur"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_afdekkapboven"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_bodemondersteuning"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_opvullijst"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionseteenhedenenmeenemers"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionsynchronisatiestang"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"; +_i = _i + 1; CONFIG.WebService.PropertyNamen(_i) = "Data.Kenmerken.Opvullijstkleur"; +_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.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.Zijkantlogoid"; + +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 _Variant = Data.Kenmerken.Variant; +local string _TimeSuffix = "001"; +local string _FileSuffixVast = UI.MWViewer.FileSuffixVast; + +if (UI.MWViewer.HeeftVasteFileSuffix) then + _FileSuffixVast = replace(_FileSuffixVast; ":"; ""); + _FileSuffixVast = replace(_FileSuffixVast; "?"; ""); + _FileSuffixVast = replace(_FileSuffixVast; "*"; ""); + _FileSuffixVast = replace(_FileSuffixVast; "/"; ""); + _FileSuffixVast = replace(_FileSuffixVast; "\\"; ""); + _FileSuffixVast = replace(_FileSuffixVast; "<"; ""); + _FileSuffixVast = replace(_FileSuffixVast; ">"; ""); + + _FileSuffixVast = Trim(_FileSuffixVast); +end if; + +if (UI.MWViewer.HeeftVasteFileSuffix and (_FileSuffixVast <> "") ) then + _TimeSuffix = _FileSuffixVast; +else + _TimeSuffix = CStr(Year()) + CStr(Month()) + CStr(Day()) + "_" + CStr(Hour()) + "" + CStr(Minute()) + "" + CStr(Second()); +end if; + +local string _PersonalityId = Config.Settings.PersonalityId; +local string _BerekenKlantNummer = CStr(UI.MWViewer.BerekenKlantnummer); +local string _BerekenAantal = CStr(UI.MWViewer.BerekenAantal); +local string _BerekenDatum = CStr(UI.MWViewer.BerekenDatum); +local string _Username = "WimV-TEST"; +local string _Filename = "maatwerkviewer_" + _Variant + "_" + _TimeSuffix + ".txt"; // File extension : .txt OF .xls +//local string _Filepath = "\\\\Notes01\\shared\\w v\\"; +local string _Filepath = "\\\\Notes01\\shared\\AX\\e-Con_MaatwerkViewer\\"; +local string _FullFilename = _Filepath + _Filename; +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 (_BerekenKlantNummer == "") then + _BerekenKlantNummer = "6819"; +end if; +if (_BerekenAantal == "") or (_BerekenAantal == "0") then + _BerekenAantal = "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:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF 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>" + _BerekenKlantNummer + "</view:KlantNummer>"; +_XmlRequest = _XmlRequest + "<view:Aantal>" + _BerekenAantal + "</view:Aantal>"; +_XmlRequest = _XmlRequest + "<view:Datum>" + _BerekenDatum + "</view:Datum>"; +_XmlRequest = _XmlRequest + "<view:Username>" + _Username + "</view:Username>"; +_XmlRequest = _XmlRequest + "<view:Filename>" + _FullFilename + "</view:Filename>"; +_XmlRequest = _XmlRequest + "<view:EconConfiguratie>" + _EconConfiguratieKVPs + "</view:EconConfiguratie>"; +_XmlRequest = _XmlRequest + "</view:MaatwerkViewerRequest>"; +_XmlRequest = _XmlRequest + "</view:SchrijfPlatteTekst>"; // WebMethod : SchrijfPlatteTekst OF 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; + UI.MWViewer.OutputFilePath = _FullFileName; +else + _Status = "Mislukt: "; + STATE.MaatwerkViewerServiceLoaded = false; + UI.MWViewer.OutputFilePath = "[Error]"; +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;ui.mwviewer.outputfilepath@value; + + (CONFIG.Settings.OperationMode == "Extern") or (BEHAVIOR.IsEconAX) local boolean _IsBinnenlade = DATA.Kenmerken.IsBinnenlade; @@ -7168,6 +7523,7 @@ + \ No newline at end of file