diff --git a/CUST/MARX/tasks/SYNC/Mareon.js b/CUST/MARX/tasks/SYNC/Mareon.js
index c38d6d1bfc..32fbeb1098 100644
--- a/CUST/MARX/tasks/SYNC/Mareon.js
+++ b/CUST/MARX/tasks/SYNC/Mareon.js
@@ -1,2 +1,2 @@
-function AX_or_Tobias(){return""!=G_ax_url?"A":""!=G_tobias_url?"T":""!=G_ax2012_url?"A12":""!=G_fclt_url?"F":""}function apiFCLT(v_URL,v_API,v_APIKEY,v_req,v_type,v_soap_envelope){__Log("Version Mareon Adapter: "+G_Mareon_Adapter,1),__Log("apiFCLT v_URL: "+v_URL,1),__Log("apiFCLT v_API: "+v_API,1),__Log("apiFCLT v_APIKEY: "+v_APIKEY,4),__Log("apiFCLT v_type: "+v_type,1),__Log("apiFCLT v_soap_envelope: "+v_soap_envelope,1);var xmlhttp=new ActiveXObject("MSXML2.ServerXMLHTTP.6.0");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy);var xmlUrl=v_URL+"?API="+v_API+"&APIKEY="+v_APIKEY+"&MareonAdapter="+G_Mareon_Adapter;xmlhttp.open("POST",xmlUrl,!1),xmlhttp.setRequestHeader("Content-Type","text/xml; charset=utf-8");var msg=""+v_req;if(1==v_soap_envelope&&(msg="<?xml version=\"1.0\" encoding=\"utf-8\"?><soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'               xmlns:xsd='http://www.w3.org/2001/XMLSchema'               xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>  <soap:Body>"+v_req+"  </soap:Body></soap:Envelope>"),""!=msg){xmlhttp.send(msg);var txt="";if(200!=xmlhttp.status)return __Log("apiFCLT - HTTP <> 200",1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";try{if(1==v_type){var result_data=xmlhttp.responseXML;if(__Log("XML :"+result_data.xml,2),3==G_log_level){var l_xml=xmlhttp.responseBody;WriteXML2File("Log/",v_API,"xml",l_xml)}return result_data}var txt=xmlhttp.responseText||"{}",result_data=eval("("+txt+")");return __Log("XML :"+result_data,2),result_data}catch(e){return __Log("apiFCLT failed: "+e.description,1),__Log(txt,1),""}}}function FcltAPI2(method,url){var objXMLHTTP=new ActiveXObject("MSXML2.ServerXMLHTTP.6.0"),SXH_PROXY_SET_PROXY=2;return"undefined"!=typeof proxy&&proxy&&objXMLHTTP.setProxy(SXH_PROXY_SET_PROXY,proxy),objXMLHTTP.open(method,url,!1),objXMLHTTP.setRequestHeader("X-FACILITOR-API-Key",G_marx_apikey),objXMLHTTP.send(null),objXMLHTTP.status>=200&&objXMLHTTP.status<=299?objXMLHTTP:(__Log("FcltAPI2 - HTTP status < 200 or status >= 300",1),__Log("objXMLHTTP.status: "+objXMLHTTP.status,1),__Log("objXMLHTTP.responseText: "+objXMLHTTP.responseText,1),null)}function apiAX(v_API,v_req,v_type,v_soapAction){__Log("-Start---------------------"+v_API+"---------------------------------",1);var l_result;return"A"==AX_or_Tobias()&&(l_result=api2AX(G_ax_url,v_API,v_req,v_type)),"A12"==AX_or_Tobias()&&(l_result=api2_AX2012(G_ax2012_url,v_API,v_req,v_type,v_soapAction)),"T"==AX_or_Tobias()&&(l_result=api2Tobias(G_tobias_url,v_API,v_req,v_type,0)),"F"==AX_or_Tobias()&&(l_result=apiFCLT(G_fclt_url,v_API,G_fclt_apikey,v_req,v_type,v_soapAction)),__Log("-End  -------------------"+v_API+"---------------------------------",1),l_result}function api2AX_RequestXML(p_url,p_api,p_req_xml){var v_msg='<?xml version="1.0" encoding="utf-8"?><s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing"><s:Header><a:Action s:mustUnderstand="1">http://tempuri.org/ISupplierService/'+p_api+'</a:Action><a:To s:mustUnderstand="1">'+p_url+"</a:To></s:Header><s:Body>"+p_req_xml+"</s:Body></s:Envelope>";return v_msg}function api2AX_Dispose(p_url,p_xmlhttp){var v_API_dispose="Dispose",v_req_dispose='<Dispose xmlns="http://tempuri.org/"></Dispose>';try{v_msg=api2AX_RequestXML(p_url,v_API_dispose,v_req_dispose),p_xmlhttp.send(v_msg)}catch(e){__Log("XML Response = FALSE :",1),__Log("api2AX_Dispose failed: "+e.description,1),__Log(txt,1)}}function api2_AX2012_RequestXML(p_url,p_api,p_req_xml){var v_msg='<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Header><h:CallContext xmlns:h="http://schemas.microsoft.com/dynamics/2010/01/datacontracts" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><h:Company i:nil="true"/><h:Language i:nil="true"/><h:LogonAsUser>'+G_ax2012_logonAs+'</h:LogonAsUser><h:MessageId i:nil="true"/><h:PartitionKey i:nil="true"/><h:PropertyBag i:nil="true" xmlns:a="http://schemas.microsoft.com/2003/10/Serialization/Arrays"/></h:CallContext></s:Header><s:Body>'+p_req_xml+"</s:Body></s:Envelope>";return v_msg}function api2AX(v_Url,v_API,v_req,v_type){__Log("api2AX v_API: "+v_API,1),__Log("api2AX v_type: "+v_type,1),__Log("api2AX v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","application/soap+xml; charset=utf-8");var v_msg=api2AX_RequestXML(v_Url,v_API,v_req);if(xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("XML Response = FALSE :",1),__Log("api2AX - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),api2AX_Dispose(v_Url,xmlhttp),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML Response = TRUE :",1),__Log("XML Response :"+txt,2),api2AX_Dispose(v_Url,xmlhttp),txt}catch(e){return __Log("XML Response = FALSE :",1),__Log("api2AX failed: "+e.description,1),__Log(txt,1),api2AX_Dispose(v_Url,xmlhttp),{}}}function api2_AX2012(v_Url,v_API,v_req,v_type,v_soapAction){__Log("api2_AX2012 v_API: "+v_API,1),__Log("api2_AX2012 v_type: "+v_type,1),__Log("api2_AX2012 v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","text/xml"),xmlhttp.setRequestHeader("Authorization","Basic "+G_ax2012_bcProxy),xmlhttp.setRequestHeader("SOAPAction",'"http://tempuri.org/'+v_soapAction+'"');var v_msg=api2_AX2012_RequestXML(v_Url,v_API,v_req);if(xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("XML Response = FALSE :",1),__Log("api2_AX2012 - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML Response = TRUE :",1),__Log("XML Response :"+txt,2),txt}catch(e){return __Log("XML Response = FALSE :",1),__Log("api2_AX2012 failed: "+e.description,1),__Log(txt,1),{}}}function api2Tobias(v_Url,v_API,v_req,v_type){__Log("apiTobias v_API: "+v_API,1),__Log("apiTobias v_type: "+v_type,1),__Log("apiTobias v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","text/xml;charset=UTF-8");var l_tobias_appserver=Read_Ini_Setting("tobias","appserver"),l_methodlocation=Read_Ini_Setting("tobias","methodlocation"),v_msg='<?xml version="1.0" encoding="utf-8"?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tob="http://sg.nl/TobiasConnect/"><soapenv:Header/><soapenv:Body>';if(v_msg="$RUNSTREAM"!=v_API?v_msg+"<tob:RunMethod>   <!--Optional:-->   <tob:Methode>"+v_API+"</tob:Methode>   <!--Optional:-->   <tob:Parameters>      <!--Optional:-->      <tob:AppServer>"+l_tobias_appserver+"</tob:AppServer>      <!--Optional:-->      <tob:MethodLocation>"+l_methodlocation+"</tob:MethodLocation>      <!--Optional:-->      <tob:ParameterList>"+v_req+" 		</tob:ParameterList>   </tob:Parameters></tob:RunMethod>":v_msg+"<tob:RunStream>   <tob:xml>"+v_req+"   </tob:xml>   <!--Optional:-->   <tob:appserver>"+l_tobias_appserver+"</tob:appserver>   <!--Optional:-->   <tob:systeem>IeWorX</tob:systeem>   <!--Optional:-->   <tob:functie>AanbiedenFactuur</tob:functie>   <tob:deleteXml>false</tob:deleteXml></tob:RunStream>",v_msg+="</soapenv:Body>	</soapenv:Envelope>",xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("api2Tobias - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML :"+txt,2),txt}catch(e){return __Log("api2Tobias failed: "+e.description,1),__Log(txt,1),{}}}function WriteXML2File(p_path,p_filenaam,p_extension,p_xml){v_timestamp=displayTimeStamp();var xml_filename=p_path+p_filenaam+v_timestamp+"."+p_extension;oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(p_xml),oStream.SaveToFile(xml_filename,2),oStream.Close()}function WriteText2File(p_path,p_filenaam,p_extension,p_txt){__Log("WriteText2File - p_path: "+p_path,1),__Log("WriteText2File - p_filenaam: "+p_filenaam,1),__Log("WriteText2File - p_extension: "+p_extension,1),__Log("WriteText2File - p_txt: "+p_txt,1),v_timestamp=displayTimeStamp();var xml_filename=p_path+p_filenaam+v_timestamp+"."+p_extension;oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.WriteText(p_txt),oStream.SaveToFile(xml_filename,2),oStream.Close()}function displayTimeStamp(){var str="",currentTime=new Date,currentTime=new Date,jaar=currentTime.getFullYear(),maand=currentTime.getMonth(),dag=currentTime.getDate(),hours=currentTime.getHours(),minutes=currentTime.getMinutes(),seconds=currentTime.getSeconds();return maand+=1,10>maand&&(maand="0"+maand),10>dag&&(dag="0"+dag),10>minutes&&(minutes="0"+minutes),10>seconds&&(seconds="0"+seconds),str+=jaar+"-"+maand+"-"+dag+"T"+hours+"_"+minutes+"_"+seconds}function xmltojsdate(datestamp){var pattern=/^(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)$/,pieces=datestamp.match(pattern);return!pieces||pieces.length<6?null:new Date(pieces[1],pieces[2]-1,pieces[3],pieces[4],pieces[5],pieces[6])}function jsdatextoxml(dt){return toDateString(dt)+"T"+toTimeString(dt)}function jsdatetosqls(jsDate){return jsDate.getVarDate()}function padout(number){return 10>number?"0"+number:String(number)}function toDateString(jsDate){return padout(jsDate.getFullYear())+"-"+padout(jsDate.getMonth()+1)+"-"+padout(jsDate.getDate())}function toTimeString(jsDate){return padout(jsDate.getHours())+":"+padout(jsDate.getMinutes())+":"+padout(jsDate.getSeconds())}function __Log(s,level){if(void 0==level&&(level=0),(G_log_level>0||0==level)&&G_log_level>=level){WScript.Echo(s);var dt=new Date;fso.FolderExists("LOG")||fso.CreateFolder("LOG");var logname="Log/Mareon_"+padout(dt.getFullYear())+"_"+padout(dt.getMonth()+1)+".log",flog=fso.OpenTextFile(logname,8,!0),tms=toDateString(new Date)+" "+toTimeString(new Date);flog.WriteLine(tms+" "+s),flog.Close()}}function Read_Ini_Setting(v_section,v_ini){var v_result="";try{l_xml=new ActiveXObject("Microsoft.XMLDOM"),l_xml.async=!1,l_xml.load(G_settings_xml_file);var l_node="//ini/"+v_section+"/"+v_ini,v_result=l_xml.selectSingleNode(l_node).text;return v_result}catch(e){return __Log("Read_Ini_Setting failed: "+l_node+" - "+e.description,1),v_result}}function __Log_XML(p_xmldoc,p_node,level){if(p_xmldoc)for(x=p_xmldoc.documentElement.childNodes,i=0;i<x.length;i++)1==x[i].nodeType&&__Log("__Log_XML: "+x[i].nodeName,level)}function encodeBase64(p_bytes){return l_xml=new ActiveXObject("Microsoft.XMLDOM"),xml_element=l_xml.createElement("tmp"),xml_element.dataType="bin.base64",xml_element.nodeTypedValue=p_bytes,encodeBase64=xml_element.text}function ReadBinaryFile(p_filename){return oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.LoadFromFile(p_filename),oStream.Read}function BinaryFile_2_Base64(p_filename){var base64="";if(__Log("Start BinaryFile_2_Base64: "+p_filename,1),fso.FileExists(p_filename)){__Log("File Exists: "+p_filename,1);var bytes=ReadBinaryFile(p_filename);base64=encodeBase64(bytes),__Log("Einde BinaryFile_2_Base64: "+base64,3)}return base64}function F_PutSync(v_mode){var v_API="AX_SYNC",v_APIKEY=G_marx_apikey,v_req="<axsync><adapterversion>"+G_Mareon_Adapter+"</adapterversion><mode>"+v_mode+"</mode></axsync>",v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function F_GetSuppliers(){var v_API="AANNEMERS4AX",v_APIKEY=G_marx_apikey,v_req="<GetAANNEMERS4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetAANNEMERS4AX>",v_type=1,v_soap_envelop=1,l_result=[],v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetSuppliers: "+v_resp.text,1);for(var i=1,strQuery="//xml/prs_bedrijf["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var l_node=strQuery+"/ax_vendAccountNum",l_ax_vendAccountNum=v_resp.selectSingleNode(l_node);__Log("l_ax_vendAccountNum: "+l_ax_vendAccountNum.text,1),l_result.push(l_ax_vendAccountNum.text),i+=1;var strQuery="//xml/prs_bedrijf["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}return l_result}function A_GetOpdrachten(){var v_status_code="o";if(0==G_mar_sync_opdr_past_days){var l_aantal_dagen=Read_Ini_Setting("ax","opdr_past_days");__Log("A_GetOpdrachten: setting opdr_past_days uit mareon.xml = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax","opdr_today");__Log("A_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(0>G_mar_sync_opdr_past_days){var l_aantal_dagen=0-G_mar_sync_opdr_past_days;__Log("A_GetOpdrachten: setting G_mar_sync_opdr_past_days uit DB (abs) = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax","opdr_today");__Log("A_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(1==G_mar_sync_opdr_past_days){__Log("A_GetOpdrachten: berekend tijdswindow [C+D] door DB bepaald = ",0);var l_yesterday=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_start),l_currentTime=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_stop)}__Log("A_GetOpdrachten: l_yesterday = "+l_yesterday,0),__Log("A_GetOpdrachten: l_currentTime = "+l_currentTime,0);var v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);__Log("A_GetOpdrachten: v_datum_vanaf = "+v_datum_vanaf,0),__Log("A_GetOpdrachten: v_datum_tm = "+v_datum_tm,0);var v_xml_opdrachten;l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++){v_supplier_id=l_suppl_array[i],v_xml_opdrachten=A_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm);var l_split_opdrachten=v_xml_opdrachten.split("<b:SupplierTaskSpec>"),l_aantal_opdrachten=l_split_opdrachten.length-1;l_aantal_opdrachten>0?(__Log("A_GetOpdrachten: aantal opdrachten = "+l_aantal_opdrachten,2),api_F_PutOpdrachten(v_xml_opdrachten,"AX_OPDRACHTEN")):__Log("A_GetOpdrachten: Geen opdrachten. SKIP api_F_PutOpdrachten",2)}}function A_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm){var v_API="GetSupplierTasksSpec",v_req='<GetSupplierTasksSpec xmlns="http://tempuri.org/">            <vendAccountNum>'+v_supplier_id+"</vendAccountNum>            <taskStatus>"+v_status_code+"</taskStatus>            <startRange>"+v_datum_vanaf+"</startRange>            <endRange>"+v_datum_tm+"</endRange>        </GetSupplierTasksSpec>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function A2012_GetOpdrachten(){var v_status_code="o";if(0==G_mar_sync_opdr_past_days){var l_aantal_dagen=Read_Ini_Setting("ax2012","opdr_past_days");__Log("A2012_GetOpdrachten: setting opdr_past_days uit mareon.xml = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax2012","opdr_today");__Log("A2012_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A2012_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A2012_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(0>G_mar_sync_opdr_past_days){var l_aantal_dagen=0-G_mar_sync_opdr_past_days;__Log("A2012_GetOpdrachten: setting G_mar_sync_opdr_past_days uit DB (abs) = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax2012","opdr_today");__Log("A2012_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A2012_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A2012_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(1==G_mar_sync_opdr_past_days){__Log("A2012_GetOpdrachten: berekend tijdswindow [C+D] door DB bepaald = ",0);var l_yesterday=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_start),l_currentTime=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_stop)}__Log("A2012_GetOpdrachten: l_yesterday = "+l_yesterday,0),__Log("A2012_GetOpdrachten: l_currentTime = "+l_currentTime,0);var v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);__Log("A2012_GetOpdrachten: v_datum_vanaf = "+v_datum_vanaf,0),__Log("A2012_GetOpdrachten: v_datum_tm = "+v_datum_tm,0);var v_xml_opdrachten;l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++){v_supplier_id=l_suppl_array[i],v_xml_opdrachten=A2012_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm),v_xml_opdrachten=v_xml_opdrachten.replace('<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">','<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing"><s:Header><a:Action s:mustUnderstand="1">http://tempuri.org/ISupplierService/GetSupplierTasksSpecResponse</a:Action></s:Header>'),v_xml_opdrachten=v_xml_opdrachten.replace('<SupplierPortalGetSupplierTasksByVendSpecResponse xmlns="http://tempuri.org">','<GetSupplierTasksSpecResponse xmlns="http://tempuri.org/">'),v_xml_opdrachten=v_xml_opdrachten.replace("</SupplierPortalGetSupplierTasksByVendSpecResponse>"," </GetSupplierTasksSpecResponse>"),v_xml_opdrachten=v_xml_opdrachten.replace('<response xmlns:b="http://schemas.datacontract.org/2004/07/Dynamics.Ax.Application" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">','<GetSupplierTasksSpecResult xmlns:b="http://schemas.datacontract.org/2004/07/SG.Services.Repositories" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">'),v_xml_opdrachten=v_xml_opdrachten.replace("</response>","</GetSupplierTasksSpecResult>");var l_split_opdrachten=v_xml_opdrachten.split("<b:SupplierTaskSpec>"),l_aantal_opdrachten=l_split_opdrachten.length-1;l_aantal_opdrachten>0?(__Log("A2012_GetOpdrachten: aantal opdrachten = "+l_aantal_opdrachten,2),api_F_PutOpdrachten(v_xml_opdrachten,"AX_OPDRACHTEN")):__Log("A2012_GetOpdrachten: Geen opdrachten. SKIP api_F_PutOpdrachten",2)}}function A2012_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm){var v_API="SupplierPortalGetSupplierTasksByVendSpecRequest",v_req=' <SupplierPortalGetSupplierTasksByVendSpecRequest xmlns="http://tempuri.org"> <_vendAccount>'+v_supplier_id+"</_vendAccount><_bonStatus>"+v_status_code+"</_bonStatus><_startRange>"+v_datum_vanaf+"</_startRange><_endRange>"+v_datum_tm+"</_endRange></SupplierPortalGetSupplierTasksByVendSpecRequest>",v_type=0,v_soapAction="SupplierPortal/getSupplierTasksByVendSpec",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_GetOpdrachten(){var v_status_code="o",l_today=Read_Ini_Setting("tobias","opdr_today");__Log("T_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("T_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("T_GetOpdrachten: l_currentTime = "+l_currentTime,0);var l_aantal_dagen=Read_Ini_Setting("tobias","opdr_past_days");__Log("T_GetOpdrachten: l_aantal_dagen = "+l_aantal_dagen,1),__Log("T_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24);__Log("T_GetOpdrachten: l_yesterday = "+l_yesterday,0);var v_xml_opdrachten,v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++)v_supplier_id=l_suppl_array[i],v_xml_opdrachten=T_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm),api_F_PutOpdrachten(v_xml_opdrachten,"TOBIAS_OPDRACHTEN")}function T_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf){var v_API="GetBonnen",v_req="<tob:string>CrediteurNummer="+v_supplier_id+"</tob:string><tob:string>BonStatus="+v_status_code+"</tob:string><tob:string>BonDatumOpdrachtVan="+v_datum_vanaf+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function api_F_PutOpdrachten(v_xml,v_API){var v_APIKEY=G_marx_apikey,v_req=v_xml,v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function A_SetSupplierText(v_company_id,v_taskId,v_extraInfo){var v_API="setSupplierText",v_req='<setSupplierText xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <extraInfo>"+v_extraInfo+"</extraInfo>        </setSupplierText>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_SetSupplierText(v_company_id,v_taskId,v_extraInfo){var v_API="SupplierPortalAddSupplierTextRequest",v_req='<SupplierPortalAddSupplierTextRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId><_text>"+v_extraInfo+"</_text></SupplierPortalAddSupplierTextRequest>",v_type=0,v_soapAction="SupplierPortal/addSupplierText",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_SetSupplierText(v_company_id,v_taskId,v_externnr,v_extraInfo){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">            <opmerking>'+v_extraInfo+"</opmerking>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_SetSupplierText(v_company_id,v_bonId,v_extraInfo){var v_API="SetBonInfo",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=Informatie</tob:string><tob:string>BonInfo="+v_extraInfo+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function F_GetOpdrachten_Afgemeld(){var l_node,v_API="AFGEMELDE_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetAFGEMELDE_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetAFGEMELDE_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Afgemeld: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_tracking_datum",v_dateComplete=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_dateComplete: "+v_dateComplete,1),"A"==AX_or_Tobias()&&A_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"A12"==AX_or_Tobias()&&A2012_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"T"==AX_or_Tobias()&&T_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"F"==AX_or_Tobias()&&FCLT_CompleteServiceTask(v_company_id,v_taskId,v_externnr,v_dateComplete),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete){var v_API="completeServiceTask",v_req='<completeServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <dateComplete>"+v_dateComplete+"</dateComplete>        </completeServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete){var v_API="SupplierPortalCompleteServiceTaskRequest",v_req='<SupplierPortalCompleteServiceTaskRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> <_dateComplete>"+v_dateComplete+"Z</_dateComplete> </SupplierPortalCompleteServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/completeServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_CompleteServiceTask(v_company_id,v_taskId,v_externnr,v_dateComplete){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">             <status>ORDAFM</status>             <mut_datum>'+v_dateComplete+"</mut_datum>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,v_status,v_mut_datum){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">   <status>'+v_status+"</status>";""!=v_mut_datum&&(v_req=v_req+"<mut_datum>"+v_mut_datum+"</mut_datum>"),v_req+="</opdracht>";var v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_CompleteServiceTask(v_company_id,v_bonId,v_dateComplete){var l_method_gereed=Read_Ini_Setting("tobias","methodegereedmelden"),v_API="GereedMelden";"1"==l_method_gereed&&(v_API="GereedMeldenNaarSgWeb");var v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>DatumGereed="+v_dateComplete+"</tob:string><tob:string>Bewerking=Gereed</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function F_GetOpdrachten_Gepland(){var l_node,v_API="GEPLANDE_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetGEPLANDE_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetGEPLANDE_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Gepland: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_plandatum",v_date=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_date: "+v_date,1),"A"==AX_or_Tobias()&&A_PlanServiceTask(v_company_id,v_taskId,v_date),"A12"==AX_or_Tobias()&&A2012_PlanServiceTask(v_company_id,v_taskId,v_date),"T"==AX_or_Tobias()&&T_PlanServiceTask(v_company_id,v_taskId,v_date),"F"==AX_or_Tobias()&&FCLT_PlanServiceTask(v_company_id,v_taskId,v_externnr,v_date),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_PlanServiceTask(v_company_id,v_taskId,v_plandate){var v_API="planServiceTask",v_req='<planServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <planDate>"+v_plandate+"</planDate>        </planServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_PlanServiceTask(v_company_id,v_taskId,v_plandate){var v_API="SupplierPortalSetPlanDateRequest";v_req='<SupplierPortalSetPlanDateRequest  xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> <_planDate>"+v_plandate+"Z</_planDate></SupplierPortalSetPlanDateRequest>",v_type=0;var v_soapAction="SupplierPortal/setPlanDate";return v_resp=apiAX(v_API,v_req,v_type,v_soapAction),1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_PlanServiceTask(v_company_id,v_taskId,v_externnr,v_plandate){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">             <plandatum>'+v_plandate+"</plandatum>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_PlanServiceTask(v_company_id,v_bonId,v_plandate){var l_pos_T,l_date,l_time;l_pos_T=v_plandate.indexOf("T"),l_pos_T>=0?(l_date=v_plandate.substr(0,l_pos_T),l_time=v_plandate.substr(l_pos_T+1)):(l_date=v_plandate,l_time="");var v_API="SetPlanDatum",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=AannemerPlanning</tob:string><tob:string>PlanDatum="+l_date+"</tob:string>";""!=l_time&&(v_req=v_req+"<tob:string>PlanTijd="+l_time+"</tob:string>");var v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_GetOpdrachten_AcceptRefuse(){var l_node,v_API="ACCEPT_REFUSED_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetACCEPT_REFUSED_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetACCEPT_REFUSED_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_AcceptRefuse: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";
-var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_tracking_datum",v_date=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_srtnotificatie_code",v_srtnotificatie_code=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_date: "+v_date,1),__Log("v_srtnotificatie_code: "+v_srtnotificatie_code,1),"ORDACP"==v_srtnotificatie_code&&("A"==AX_or_Tobias()&&A_AcceptServiceTask(v_company_id,v_taskId),"A12"==AX_or_Tobias()&&A2012_AcceptServiceTask(v_company_id,v_taskId),"T"==AX_or_Tobias()&&T_AcceptServiceTask(v_company_id,v_taskId,"Ja"),"F"==AX_or_Tobias()&&FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,"ORDACP","")),"ORDCAN"==v_srtnotificatie_code&&("A"==AX_or_Tobias()&&A_RefuseServiceTask(v_company_id,v_taskId,v_extraInfo),"A12"==AX_or_Tobias()&&A2012_RefuseServiceTask(v_company_id,v_taskId,v_extraInfo),"T"==AX_or_Tobias()&&T_AcceptServiceTask(v_company_id,v_taskId,"Nee"),"F"==AX_or_Tobias()&&FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,"ORDCAN","")),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_RefuseServiceTask(v_company_id,v_taskId,v_resultCodeId){var v_API="refuseServiceTask",v_req='<refuseServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <resultCodeId>"+v_resultCodeId+"</resultCodeId>        </refuseServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_RefuseServiceTask(v_company_id,v_taskId,v_resultCodeId){var v_API="SupplierPortalRefuseServiceTaskRequest",v_req='<SupplierPortalRefuseServiceTaskRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID><_taskId>"+v_taskId+"</_taskId> <_returnCode>"+v_resultCodeId+"</_returnCode> </SupplierPortalRefuseServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/refuseServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A_AcceptServiceTask(v_company_id,v_taskId){var v_API="acceptServiceTask",v_req='<acceptServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>        </acceptServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_AcceptServiceTask(v_company_id,v_taskId){var v_API="SupplierPortalAcceptServiceTaskRequest",v_req='<SupplierPortalAcceptServiceTaskRequest xmlns="http://tempuri.org"> <_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> </SupplierPortalAcceptServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/acceptServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function T_AcceptServiceTask(v_company_id,v_bonId,v_ja_nee){var v_API="SetBonAcceptatie",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=Acceptatie</tob:string><tob:string>Geaccepteerd="+v_ja_nee+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_GetOpdrachten_Opmerking(){var l_node,v_API="OPMERKING_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetOPMERKING_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetOPMERKING_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Opmerking: "+v_resp.text,2);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),"A"==AX_or_Tobias()&&A_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"A12"==AX_or_Tobias()&&A2012_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"T"==AX_or_Tobias()&&T_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"F"==AX_or_Tobias()&&FCLT_SetSupplierText(v_company_id,v_taskId,v_externnr,v_extraInfo),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_GetReturnCodes(){for(var v_company_id,v_arr_company_id=[1],i=0;i<v_arr_company_id.length;i++)v_company_id=v_arr_company_id[i],v_xml_returncodes=A_GetReturnCodes_van_Company(v_company_id),F_PutReturnCodes(v_xml_returncodes)}function A_GetReturnCodes_van_Company(v_company_id){var v_API="getReturnCodes",v_req='<getReturnCodes xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>        </getReturnCodes>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_PutReturnCodes(v_xml){var v_API="WEIGER_RETURNCODES",v_APIKEY=G_marx_apikey,v_req=v_xml,v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function F_GetFacturen(){var v_API="FACT4AX_XTRACTOR",v_APIKEY=G_marx_apikey,v_req="<GetFACT4AX_XTRACTOR><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetFACT4AX_XTRACTOR>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen: "+v_resp.text,1),""==G_pdf_xtractorfolder&&__Log("G_pdf_xtractorfolder niet gevuld",2);var i=1,strQuery="//batch/document["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var XMLResult='<?xml version="1.0"?><batch>'+l_deelxml.xml+"</batch>";if(WriteText2File(G_ax_xtractorfolder,"xtractor["+i+"]","xml",XMLResult),""!=G_pdf_xtractorfolder){__Log("PDF_2_XTRACTOR",2);var l_strQuery_fin_factuur_key="//batch/fin_factuur_key["+i+"]";l_fin_factuur_key=v_resp.selectSingleNode(l_strQuery_fin_factuur_key).text,__Log("l_fin_factuur_key: "+l_fin_factuur_key,2),F_GetFactuurFiles(G_pdf_xtractorfolder,l_fin_factuur_key)}"A12"==AX_or_Tobias()&&A2012_Xtractor2AX(XMLResult,"xtractor["+i+"]"),i+=1;var strQuery="//batch/document["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFacturen_FCLT(){var v_API="FACT4_FACILITOR",v_APIKEY=G_marx_apikey,v_req="<GetFACT4_FACILITOR><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetFACT4_FACILITOR>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen: "+v_resp.text,1),""==G_fclt_factuur_pdffolder&&__Log("G_fclt_factuur_pdffolder niet gevuld",2);var i=1,strQuery="//batch/fin_factuur["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){if(""!=G_fclt_factuur_pdffolder){__Log("PDF_2_FACILITOR",2);var l_strQuery_fin_factuur_key="//batch/fin_factuur_key["+i+"]";l_fin_factuur_key=v_resp.selectSingleNode(l_strQuery_fin_factuur_key).text,__Log("l_fin_factuur_key: "+l_fin_factuur_key,2),F_GetFactuurFiles(G_fclt_factuur_pdffolder,l_fin_factuur_key)}l_strQuery_pdf_bestandnaam=strQuery+"/Attachment/FileName";var l_pdf_naam=v_resp.selectSingleNode(l_strQuery_pdf_bestandnaam).text;if(""!=l_pdf_naam&&(l_pdf_base64=BinaryFile_2_Base64(G_fclt_factuur_pdffolder+l_pdf_naam),""!=l_pdf_base64)){var node_attachment=l_deelxml.getElementsByTagName("Attachment");if(0!=node_attachment.length){__Log("XML node Attachment exists",2);var node_attached_data=l_deelxml.getElementsByTagName("AttachedData");if(0!=node_attached_data.length){__Log("XML node AttachedData exists",2);var y=node_attached_data.childNodes[0];null!=y&&(y.nodeValue=l_pdf_base64)}else __Log("XML node AttachedData does NOT exist",2),newEle=v_resp.createElement("AttachedData"),__Log("XML element AttachedData created",2),newTxt=v_resp.createTextNode(l_pdf_base64),__Log("XML textnode with base64 data created",2),newEle.appendChild(newTxt),__Log("XML element AttachedData with textnode",2),node_attachment[0].appendChild(newEle),__Log("XML element added to XML",2)}}var XMLResult='<?xml version="1.0"?>'+l_deelxml.xml;G_log_level>=3&&WriteText2File(G_fclt_factuur_xmlfolder,"facilitor["+i+"]","xml",XMLResult);var v_API="MARX_FIN_FACTUUR",v_type=1,v_soapAction="",v_resp=apiAX(v_API,XMLResult,v_type,v_soapAction);i+=1;var strQuery="//batch/fin_factuur["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFacturen_Tobias(){var v_API="FACT4_TOBIAS",v_APIKEY=G_marx_apikey,v_req="<GetFACT4_TOBIAS><APIkey>"+v_APIKEY+"</APIkey></GetFACT4_TOBIAS>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen_Tobias: "+v_resp.text,1);var i=1,strQuery="//batch/Factuurinfo["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var v_API="$RUNSTREAM",v_req='<![CDATA[<?xml version="1.0"?><SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Body><sg:AanbiedenFactuur xmlns:sg="urn:x-sg-1.0" >'+l_deelxml.xml+"</sg:AanbiedenFactuur></SOAP-ENV:Body></SOAP-ENV:Envelope>]]>",v_type=0;l_result=api2Tobias(G_tobias_url,v_API,v_req,v_type,1),i+=1;var strQuery="//batch/Factuurinfo["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFactuurFiles(p_folder,p_fin_factuur_key){var url=G_marx_url+"api2/invoices/"+p_fin_factuur_key+".json?scope=fo&include=custom_fields",objXMLHTTP=FcltAPI2("GET",url);if(objXMLHTTP){__Log("F_GetFactuurFiles: GET",2);var data=eval("("+objXMLHTTP.responseText+")");if(__Log("Factuur data :"+data,2),"invoice"in data&&"custom_fields"in data.invoice){__Log("Factuur data : invoice",2);for(var fld in data.invoice.custom_fields){__Log("Factuur custom_fields: fld",2);var attarr=data.invoice.custom_fields[fld].attachments;if(attarr){__Log("Factuur attachmenents: attarr",2);for(var i=0;i<attarr.length;i++){__Log("File: "+attarr[i].name,1),__Log("Size: "+attarr[i].size,1),__Log("Url: "+attarr[i].content_url,1);var fileXMLHTTP=FcltAPI2("GET",attarr[i].content_url);if(fileXMLHTTP){var fileStream=new ActiveXObject("ADODB.Stream");fileStream.Type=1,fileStream.Open(),fileStream.Write(fileXMLHTTP.responseBody),fileStream.SaveToFile(p_folder+"mareon_"+p_fin_factuur_key+"_"+attarr[i].name,2),fileStream.Close()}}}}}}else __Log("F_GetFactuurFiles 1: "+objXMLHTTP.responseText,2),__Log("F_GetFactuurFiles 2: "+objXMLHTTP.status,2)}function A2012_Xtractor2AX(v_xml,xtractFile){var v_API="PreInvoiceServiceAddPreInvoiceFromXtractorRequest",v_req='<PreInvoiceServiceAddPreInvoiceFromXtractorRequest xmlns="http://tempuri.org"> <xmlXtractorFormat><![CDATA['+v_xml+"]]></xmlXtractorFormat> </PreInvoiceServiceAddPreInvoiceFromXtractorRequest>",v_type=0,v_soapAction="PreInvoiceService/addPreInvoiceFromXtractor",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return-1!=v_resp.search("<response>true</response>")?WriteText2File(G_ax_succeededfolder,xtractFile,"xml",v_req):WriteText2File(G_ax_rejectedfolder,xtractFile,"xml",v_req),v_resp}function F_GetMareonInfo(){var v_API="MAREONINFO",v_APIKEY=G_marx_apikey,v_req="<GetMAREONINFO><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetMAREONINFO>",v_type=1,v_soap_envelop=1,l_result=[],v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetMareonInfo: "+v_resp.text,1);var strQuery="//xml/mareon_info",l_node=strQuery+"/fclt_mar_version",l_fclt_mar_version=v_resp.selectSingleNode(l_node);__Log("fclt_mar_version: "+l_fclt_mar_version.text,1);var l_node=strQuery+"/mar_sync_opdr_past_days",l_mar_sync_opdr_past_days=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_days: "+l_mar_sync_opdr_past_days.text,1);var l_node=strQuery+"/mar_sync_opdr_past_secs_start",l_mar_sync_opdr_past_secs_start=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_secs_start: "+l_mar_sync_opdr_past_secs_start.text,1);var l_node=strQuery+"/mar_sync_opdr_past_secs_stop",l_mar_sync_opdr_past_secs_stop=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_secs_stop: "+l_mar_sync_opdr_past_secs_stop.text,1);var l_node=strQuery+"/min_adapter_version",l_version=v_resp.selectSingleNode(l_node);__Log("l_version: "+l_version.text,1);var l_node=strQuery+"/mar_connection_allowed",l_connection_allowed=v_resp.selectSingleNode(l_node);__Log("l_connection_allowed: "+l_connection_allowed.text,1);var l_node=strQuery+"/prs_bedrijf_naam",l_woco=v_resp.selectSingleNode(l_node);__Log("l_woco: "+l_woco.text,1);var l_node=strQuery+"/mar_bedrijf_lastconnection",l_last_connect=v_resp.selectSingleNode(l_node);__Log("l_last_connect: "+l_last_connect.text,1);var l_node=strQuery+"/mar_bedrijf_nextconnection",l_connect_after=v_resp.selectSingleNode(l_node);return __Log("l_connect_after: "+l_connect_after.text,1),l_result.push(l_version.text),l_result.push(l_connection_allowed.text),l_result.push(l_woco.text),l_result.push(l_last_connect.text),l_result.push(l_connect_after.text),l_result.push(l_fclt_mar_version.text),l_result.push(l_mar_sync_opdr_past_days.text),l_result.push(l_mar_sync_opdr_past_secs_start.text),l_result.push(l_mar_sync_opdr_past_secs_stop.text),l_result}function FCLT_Sync_START(){F_PutSync(0)}function FCLT_Sync_END(){F_PutSync(1)}function AX_2_FCLT_ReturnCodes(){A_GetReturnCodes()}function AX_2_FCLT_Opdrachten(){A_GetOpdrachten()}function FCLT_2_AX_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_AX_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_AX_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_AX_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function AX2012_2_FCLT_Opdrachten(){A2012_GetOpdrachten()}function FCLT_2_AX2012_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_AX2012_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_AX2012_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_AX2012_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function Tobias_2_FCLT_Opdrachten(){T_GetOpdrachten()}function FCLT_2_Tobias_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_Tobias_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function FCLT_2_Tobias_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_Tobias_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_Tobias_Facturen(){F_GetFacturen_Tobias()}function MARX_2_FCLT_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function MARX_2_FCLT_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function MARX_2_FCLT_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function MARX_2_FCLT_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function MARX_2_FCLT_Facturen(){F_GetFacturen_FCLT()}function FCLT_2_AX_Facturen(){F_GetFacturen()}function Ax_2_FACILITOR(){__Log("*** START AX --> FCLT : Opdrachten uit AX en naar Facilitor ***"),AX_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Opmerking opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Geaccepteerde/geweigerde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> AX : Geplande opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Afgemelde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_AfgemeldeOpdrachten(),__Log("*** END")}function Ax2012_2_FACILITOR(){__Log("*** START AX2012 --> FCLT : Opdrachten uit AX en naar Facilitor ***"),AX2012_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Opmerking opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Geaccepteerde/geweigerde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Geplande opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Afgemelde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_AfgemeldeOpdrachten(),__Log("*** END")}function Tobias_2_FACILITOR(){__Log("*** START Tobias --> FCLT : Opdrachten uit Tobias en naar Facilitor ***"),Tobias_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Opmerking opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Geaccepteerde/geweigerde opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Geplande opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Afgemelde opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_AfgemeldeOpdrachten(),__Log("*** END"),""==G_ax_xtractorfolder?(__Log("*** START FCLT --> Tobias : Facturen uit Facilitor naar Tobias ***"),FCLT_2_Tobias_Facturen()):__Log("*** NO START FCLT --> Tobias : Facturen verlopen via Xtractor ***"),__Log("*** END")}function MAREON_2_FACILITOR(){__Log("*** START MAREON --> CUST.FACILITOR.NL : Opmerking opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Geaccepteerde/geweigerde opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Geplande opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Afgemelde opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_AfgemeldeOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Facturen uit Mareon naar Facilitor ***"),""!=G_fclt_factuur_xmlfolder&&MARX_2_FCLT_Facturen(),__Log("*** END")}function FACILITOR_2_Xtractor(){__Log("*** START FCLT --> AX / Tobias/AX : Facturen met status INGEVOERD + AKKOORD uit Facilitor naar AX of Tobias/AX ***"),FCLT_2_AX_Facturen(),__Log("*** END")}var G_Mareon_Adapter="1.20",fso=new ActiveXObject("Scripting.FileSystemObject"),G_settings_xml_file=WScript.Arguments(0),G_log_level=Read_Ini_Setting("common","logging");__Log("**************************************************  START Mareon Adapter  ***********************************************");var G_ax_url=Read_Ini_Setting("ax","url"),G_ax2012_url=Read_Ini_Setting("ax2012","url"),G_ax2012_logonAs=Read_Ini_Setting("ax2012","logonAs"),G_ax2012_bcProxy=Read_Ini_Setting("ax2012","bcProxy"),G_tobias_url=Read_Ini_Setting("tobias","url"),G_fclt_url=Read_Ini_Setting("fclt","url"),G_fclt_apikey=Read_Ini_Setting("fclt","apikey"),G_fclt_factuur_xmlfolder=Read_Ini_Setting("fclt","factuur/xmlfolder"),G_fclt_factuur_pdffolder=Read_Ini_Setting("fclt","factuur/pdffolder"),G_ax_xtractorfolder=Read_Ini_Setting("xtractor","xmlfolder"),G_pdf_xtractorfolder=Read_Ini_Setting("xtractor","pdffolder"),G_ax_succeededfolder=Read_Ini_Setting("xtractor","succeededfolder"),G_ax_rejectedfolder=Read_Ini_Setting("xtractor","rejectedfolder"),G_marx_url=Read_Ini_Setting("facilitor","url"),G_marx_apikey=Read_Ini_Setting("facilitor","apikey");if(__Log("***Mareon Adapter - versie: "+G_Mareon_Adapter),__Log("***XML- common/logging: "+G_log_level),__Log("***XML- ax/url: "+G_ax_url),__Log("***XML- ax2012/url: "+G_ax2012_url),__Log("***XML- tobias/url: "+G_tobias_url),__Log("***XML- facilitor/url: "+G_fclt_url),__Log("***XML- facilitor/factuur/xmlfolder: "+G_fclt_factuur_xmlfolder),__Log("***XML- facilitor/factuur/pdffolder: "+G_fclt_factuur_pdffolder),__Log("***XML- mareon/url: "+G_marx_url),__Log("***XML- xtractor/xmlfolder: "+G_ax_xtractorfolder),__Log("***XML- xtractor/pdffolder: "+G_pdf_xtractorfolder),__Log("***XML- xtractor/succeededfolder: "+G_ax_succeededfolder),__Log("***XML- xtractor/rejectedfolder: "+G_ax_rejectedfolder),l_array=F_GetMareonInfo(),v_woco=l_array[2],__Log("*** Company: "+v_woco),v_min_adapter_version=l_array[0],v_mar_connection_allowed=l_array[1],G_Mareon_Adapter>=v_min_adapter_version)if("1"==v_mar_connection_allowed){__Log("Connection allowed"),FCLT_Sync_START(),l_array=F_GetMareonInfo();var G_mar_sync_opdr_past_days=parseInt(l_array[6]),G_mar_sync_opdr_past_secs_start=parseInt(l_array[7]),G_mar_sync_opdr_past_secs_stop=parseInt(l_array[8]);"A"==AX_or_Tobias()&&(__Log("AX2009"),Ax_2_FACILITOR()),"A12"==AX_or_Tobias()&&(__Log("AX2012"),Ax2012_2_FACILITOR()),"T"==AX_or_Tobias()&&(__Log("TOBIAS"),Tobias_2_FACILITOR()),"F"==AX_or_Tobias()&&(__Log("FACILITOR"),MAREON_2_FACILITOR()),""!=G_ax_xtractorfolder&&(__Log("XTRACTOR"),FACILITOR_2_Xtractor()),FCLT_Sync_END()}else v_last_connect=l_array[3],v_connect_after=l_array[4],__Log("Connection NOT allowed (yet)"),__Log("Last Connection: "+v_last_connect),__Log("Connection allowed after: "+v_connect_after);else __Log("Invalid Mareon adapter version");__Log("**************************************************    END Mareon Adapter  ***********************************************"),__Log("");
\ No newline at end of file
+function AX_or_Tobias(){return""!=G_ax_url?"A":""!=G_tobias_url?"T":""!=G_ax2012_url?"A12":""!=G_fclt_url?"F":""}function apiFCLT(v_URL,v_API,v_APIKEY,v_req,v_type,v_soap_envelope){__Log("Version Mareon Adapter: "+G_Mareon_Adapter,1),__Log("apiFCLT v_URL: "+v_URL,1),__Log("apiFCLT v_API: "+v_API,1),__Log("apiFCLT v_APIKEY: "+v_APIKEY,4),__Log("apiFCLT v_type: "+v_type,1),__Log("apiFCLT v_soap_envelope: "+v_soap_envelope,1);var xmlhttp=new ActiveXObject("MSXML2.ServerXMLHTTP.6.0");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy);var xmlUrl=v_URL+"?API="+v_API+"&APIKEY="+v_APIKEY+"&MareonAdapter="+G_Mareon_Adapter;xmlhttp.open("POST",xmlUrl,!1),xmlhttp.setRequestHeader("Content-Type","text/xml; charset=utf-8");var msg=""+v_req;if(1==v_soap_envelope&&(msg="<?xml version=\"1.0\" encoding=\"utf-8\"?><soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'               xmlns:xsd='http://www.w3.org/2001/XMLSchema'               xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>  <soap:Body>"+v_req+"  </soap:Body></soap:Envelope>"),""!=msg){xmlhttp.send(msg);var txt="";if(200!=xmlhttp.status)return __Log("apiFCLT - HTTP <> 200",1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";try{if(1==v_type){var result_data=xmlhttp.responseXML;if(__Log("XML :"+result_data.xml,2),3==G_log_level){var l_xml=xmlhttp.responseBody;WriteXML2File("Log/",v_API,"xml",l_xml)}return result_data}var txt=xmlhttp.responseText||"{}",result_data=eval("("+txt+")");return __Log("XML :"+result_data,2),result_data}catch(e){return __Log("apiFCLT failed: "+e.description,1),__Log(txt,1),""}}}function FcltAPI2(method,url){var objXMLHTTP=new ActiveXObject("MSXML2.ServerXMLHTTP.6.0"),SXH_PROXY_SET_PROXY=2;return"undefined"!=typeof proxy&&proxy&&objXMLHTTP.setProxy(SXH_PROXY_SET_PROXY,proxy),objXMLHTTP.open(method,url,!1),objXMLHTTP.setRequestHeader("X-FACILITOR-API-Key",G_marx_apikey),objXMLHTTP.send(null),objXMLHTTP.status>=200&&objXMLHTTP.status<=299?objXMLHTTP:(__Log("FcltAPI2 - HTTP status < 200 or status >= 300",1),__Log("objXMLHTTP.status: "+objXMLHTTP.status,1),__Log("objXMLHTTP.responseText: "+objXMLHTTP.responseText,1),null)}function apiAX(v_API,v_req,v_type,v_soapAction){__Log("-Start---------------------"+v_API+"---------------------------------",1);var l_result;return"A"==AX_or_Tobias()&&(l_result=api2AX(G_ax_url,v_API,v_req,v_type)),"A12"==AX_or_Tobias()&&(l_result=api2_AX2012(G_ax2012_url,v_API,v_req,v_type,v_soapAction)),"T"==AX_or_Tobias()&&(l_result=api2Tobias(G_tobias_url,v_API,v_req,v_type,0)),"F"==AX_or_Tobias()&&(l_result=apiFCLT(G_fclt_url,v_API,G_fclt_apikey,v_req,v_type,v_soapAction)),__Log("-End  -------------------"+v_API+"---------------------------------",1),l_result}function api2AX_RequestXML(p_url,p_api,p_req_xml){var v_msg='<?xml version="1.0" encoding="utf-8"?><s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing"><s:Header><a:Action s:mustUnderstand="1">http://tempuri.org/ISupplierService/'+p_api+'</a:Action><a:To s:mustUnderstand="1">'+p_url+"</a:To></s:Header><s:Body>"+p_req_xml+"</s:Body></s:Envelope>";return v_msg}function api2AX_Dispose(p_url,p_xmlhttp){var v_API_dispose="Dispose",v_req_dispose='<Dispose xmlns="http://tempuri.org/"></Dispose>';try{v_msg=api2AX_RequestXML(p_url,v_API_dispose,v_req_dispose),p_xmlhttp.send(v_msg)}catch(e){__Log("XML Response = FALSE :",1),__Log("api2AX_Dispose failed: "+e.description,1),__Log(txt,1)}}function api2_AX2012_RequestXML(p_url,p_api,p_req_xml){var v_msg='<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Header><h:CallContext xmlns:h="http://schemas.microsoft.com/dynamics/2010/01/datacontracts" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><h:Company i:nil="true"/><h:Language i:nil="true"/><h:LogonAsUser>'+G_ax2012_logonAs+'</h:LogonAsUser><h:MessageId i:nil="true"/><h:PartitionKey i:nil="true"/><h:PropertyBag i:nil="true" xmlns:a="http://schemas.microsoft.com/2003/10/Serialization/Arrays"/></h:CallContext></s:Header><s:Body>'+p_req_xml+"</s:Body></s:Envelope>";return v_msg}function api2AX(v_Url,v_API,v_req,v_type){__Log("api2AX v_API: "+v_API,1),__Log("api2AX v_type: "+v_type,1),__Log("api2AX v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","application/soap+xml; charset=utf-8");var v_msg=api2AX_RequestXML(v_Url,v_API,v_req);if(xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("XML Response = FALSE :",1),__Log("api2AX - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),api2AX_Dispose(v_Url,xmlhttp),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML Response = TRUE :",1),__Log("XML Response :"+txt,2),api2AX_Dispose(v_Url,xmlhttp),txt}catch(e){return __Log("XML Response = FALSE :",1),__Log("api2AX failed: "+e.description,1),__Log(txt,1),api2AX_Dispose(v_Url,xmlhttp),{}}}function api2_AX2012(v_Url,v_API,v_req,v_type,v_soapAction){__Log("api2_AX2012 v_API: "+v_API,1),__Log("api2_AX2012 v_type: "+v_type,1),__Log("api2_AX2012 v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","text/xml"),xmlhttp.setRequestHeader("Authorization","Basic "+G_ax2012_bcProxy),xmlhttp.setRequestHeader("SOAPAction",'"http://tempuri.org/'+v_soapAction+'"');var v_msg=api2_AX2012_RequestXML(v_Url,v_API,v_req);if(xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("XML Response = FALSE :",1),__Log("api2_AX2012 - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML Response = TRUE :",1),__Log("XML Response :"+txt,2),txt}catch(e){return __Log("XML Response = FALSE :",1),__Log("api2_AX2012 failed: "+e.description,1),__Log(txt,1),{}}}function api2Tobias(v_Url,v_API,v_req,v_type){__Log("apiTobias v_API: "+v_API,1),__Log("apiTobias v_type: "+v_type,1),__Log("apiTobias v_req: "+v_req,1);var xmlhttp=new ActiveXObject("WinHTTP.WinHTTPRequest.5.1");SXH_PROXY_SET_PROXY=2,"undefined"!=typeof proxy&&proxy&&xmlhttp.setProxy(SXH_PROXY_SET_PROXY,proxy),xmlhttp.open("POST",v_Url,!1),xmlhttp.setRequestHeader("Content-Type","text/xml;charset=UTF-8");var l_tobias_appserver=Read_Ini_Setting("tobias","appserver"),l_methodlocation=Read_Ini_Setting("tobias","methodlocation"),v_msg='<?xml version="1.0" encoding="utf-8"?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tob="http://sg.nl/TobiasConnect/"><soapenv:Header/><soapenv:Body>';if(v_msg="$RUNSTREAM"!=v_API?v_msg+"<tob:RunMethod>   <!--Optional:-->   <tob:Methode>"+v_API+"</tob:Methode>   <!--Optional:-->   <tob:Parameters>      <!--Optional:-->      <tob:AppServer>"+l_tobias_appserver+"</tob:AppServer>      <!--Optional:-->      <tob:MethodLocation>"+l_methodlocation+"</tob:MethodLocation>      <!--Optional:-->      <tob:ParameterList>"+v_req+" 		</tob:ParameterList>   </tob:Parameters></tob:RunMethod>":v_msg+"<tob:RunStream>   <tob:xml>"+v_req+"   </tob:xml>   <!--Optional:-->   <tob:appserver>"+l_tobias_appserver+"</tob:appserver>   <!--Optional:-->   <tob:systeem>IeWorX</tob:systeem>   <!--Optional:-->   <tob:functie>AanbiedenFactuur</tob:functie>   <tob:deleteXml>false</tob:deleteXml></tob:RunStream>",v_msg+="</soapenv:Body>	</soapenv:Envelope>",xmlhttp.send(v_msg),200!=xmlhttp.status)return __Log("api2Tobias - HTTP <> 200",1),__Log("URL: "+v_Url,1),__Log("Request: "+v_req,1),__Log("Status: "+xmlhttp.status,1),__Log(xmlhttp.responseText,1),"";var txt="";try{switch(v_type){case 0:var txt=xmlhttp.responseText;break;case 1:var txt=xmlhttp.responseBody}return __Log("XML :"+txt,2),txt}catch(e){return __Log("api2Tobias failed: "+e.description,1),__Log(txt,1),{}}}function WriteXML2File(p_path,p_filenaam,p_extension,p_xml){v_timestamp=displayTimeStamp();var xml_filename=p_path+p_filenaam+v_timestamp+"."+p_extension;oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(p_xml),oStream.SaveToFile(xml_filename,2),oStream.Close()}function WriteText2File(p_path,p_filenaam,p_extension,p_txt){__Log("WriteText2File - p_path: "+p_path,1),__Log("WriteText2File - p_filenaam: "+p_filenaam,1),__Log("WriteText2File - p_extension: "+p_extension,1),__Log("WriteText2File - p_txt: "+p_txt,1),v_timestamp=displayTimeStamp();var xml_filename=p_path+p_filenaam+v_timestamp+"."+p_extension;oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.WriteText(p_txt),oStream.SaveToFile(xml_filename,2),oStream.Close()}function displayTimeStamp(){var str="",currentTime=new Date,currentTime=new Date,jaar=currentTime.getFullYear(),maand=currentTime.getMonth(),dag=currentTime.getDate(),hours=currentTime.getHours(),minutes=currentTime.getMinutes(),seconds=currentTime.getSeconds();return maand+=1,10>maand&&(maand="0"+maand),10>dag&&(dag="0"+dag),10>minutes&&(minutes="0"+minutes),10>seconds&&(seconds="0"+seconds),str+=jaar+"-"+maand+"-"+dag+"T"+hours+"_"+minutes+"_"+seconds}function xmltojsdate(datestamp){var pattern=/^(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)$/,pieces=datestamp.match(pattern);return!pieces||pieces.length<6?null:new Date(pieces[1],pieces[2]-1,pieces[3],pieces[4],pieces[5],pieces[6])}function jsdatextoxml(dt){return toDateString(dt)+"T"+toTimeString(dt)}function jsdatetosqls(jsDate){return jsDate.getVarDate()}function padout(number){return 10>number?"0"+number:String(number)}function toDateString(jsDate){return padout(jsDate.getFullYear())+"-"+padout(jsDate.getMonth()+1)+"-"+padout(jsDate.getDate())}function toTimeString(jsDate){return padout(jsDate.getHours())+":"+padout(jsDate.getMinutes())+":"+padout(jsDate.getSeconds())}function __Log(s,level){if(void 0==level&&(level=0),(G_log_level>0||0==level)&&G_log_level>=level){WScript.Echo(s),fso.FolderExists("LOG")||fso.CreateFolder("LOG");var logname=GetLogFileName(""),flog=fso.OpenTextFile(logname,8,!0),tms=toDateString(new Date)+" "+toTimeString(new Date);flog.WriteLine(tms+" "+s),flog.Close()}}function GetLogFileName(v_datum){if(""==v_datum){var dt=new Date;date_of_logging=padout(dt.getFullYear())+"_"+padout(dt.getMonth()+1)+"_"+padout(dt.getDate())}else date_of_logging=v_datum.replace("-","_").replace("-","_");return"Log/Mareon_"+date_of_logging+".log"}function FCLT_SendLogFile(v_datum){var logfilename=GetLogFileName(v_datum);__Log("Sending logfile:"+logfilename,1);var v_API="MAREONSYNCADAPTER_SEND_LOG",v_APIKEY=G_marx_apikey,v_filecontent=ReadAsciiFile(logfilename),v_req="<GetMAREONSYNCADAPTER_SEND_LOG><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey><Logfile>"+logfilename+"</Logfile><FileContent><![CDATA["+v_filecontent+"]]></FileContent></GetMAREONSYNCADAPTER_SEND_LOG>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("MAREONSYNCADAPTER_SEND_LOG: "+v_resp.text,1)}function Read_Ini_Setting(v_section,v_ini){var v_result="";try{l_xml=new ActiveXObject("Microsoft.XMLDOM"),l_xml.async=!1,l_xml.load(G_settings_xml_file);var l_node="//ini/"+v_section+"/"+v_ini,v_result=l_xml.selectSingleNode(l_node).text;return v_result}catch(e){return __Log("Read_Ini_Setting failed: "+l_node+" - "+e.description,1),v_result}}function __Log_XML(p_xmldoc,p_node,level){if(p_xmldoc)for(x=p_xmldoc.documentElement.childNodes,i=0;i<x.length;i++)1==x[i].nodeType&&__Log("__Log_XML: "+x[i].nodeName,level)}function encodeBase64(p_bytes){return l_xml=new ActiveXObject("Microsoft.XMLDOM"),xml_element=l_xml.createElement("tmp"),xml_element.dataType="bin.base64",xml_element.nodeTypedValue=p_bytes,encodeBase64=xml_element.text}function ReadBinaryFile(p_filename){return oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.LoadFromFile(p_filename),oStream.Read}function BinaryFile_2_Base64(p_filename){var base64="";if(__Log("Start BinaryFile_2_Base64: "+p_filename,1),fso.FileExists(p_filename)){__Log("File Exists: "+p_filename,1);var bytes=ReadBinaryFile(p_filename);base64=encodeBase64(bytes),__Log("Einde BinaryFile_2_Base64: "+base64,3)}return base64}function ReadAsciiFile(p_filename){return __Log("ReadAsciiFile: "+p_filename,2),fso.FileExists(p_filename)?(__Log("ReadAsciiFile Exists: "+p_filename,2),flog=fso.OpenTextFile(p_filename,1,!1),v_result=flog.ReadAll(),flog.Close(),v_result):""}function F_PutSync(v_mode){var v_API="AX_SYNC",v_APIKEY=G_marx_apikey,v_req="<axsync><adapterversion>"+G_Mareon_Adapter+"</adapterversion><mode>"+v_mode+"</mode></axsync>",v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function F_GetSuppliers(){var v_API="AANNEMERS4AX",v_APIKEY=G_marx_apikey,v_req="<GetAANNEMERS4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetAANNEMERS4AX>",v_type=1,v_soap_envelop=1,l_result=[],v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetSuppliers: "+v_resp.text,1);for(var i=1,strQuery="//xml/prs_bedrijf["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var l_node=strQuery+"/ax_vendAccountNum",l_ax_vendAccountNum=v_resp.selectSingleNode(l_node);__Log("l_ax_vendAccountNum: "+l_ax_vendAccountNum.text,1),l_result.push(l_ax_vendAccountNum.text),i+=1;var strQuery="//xml/prs_bedrijf["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}return l_result}function A_GetOpdrachten(){var v_status_code="o";if(0==G_mar_sync_opdr_past_days){var l_aantal_dagen=Read_Ini_Setting("ax","opdr_past_days");__Log("A_GetOpdrachten: setting opdr_past_days uit mareon.xml = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax","opdr_today");__Log("A_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(0>G_mar_sync_opdr_past_days){var l_aantal_dagen=0-G_mar_sync_opdr_past_days;__Log("A_GetOpdrachten: setting G_mar_sync_opdr_past_days uit DB (abs) = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax","opdr_today");__Log("A_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(1==G_mar_sync_opdr_past_days){__Log("A_GetOpdrachten: berekend tijdswindow [C+D] door DB bepaald = ",0);var l_yesterday=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_start),l_currentTime=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_stop)}__Log("A_GetOpdrachten: l_yesterday = "+l_yesterday,0),__Log("A_GetOpdrachten: l_currentTime = "+l_currentTime,0);var v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);__Log("A_GetOpdrachten: v_datum_vanaf = "+v_datum_vanaf,0),__Log("A_GetOpdrachten: v_datum_tm = "+v_datum_tm,0);var v_xml_opdrachten;l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++){v_supplier_id=l_suppl_array[i],v_xml_opdrachten=A_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm);var l_split_opdrachten=v_xml_opdrachten.split("<b:SupplierTaskSpec>"),l_aantal_opdrachten=l_split_opdrachten.length-1;l_aantal_opdrachten>0?(__Log("A_GetOpdrachten: aantal opdrachten = "+l_aantal_opdrachten,2),api_F_PutOpdrachten(v_xml_opdrachten,"AX_OPDRACHTEN")):__Log("A_GetOpdrachten: Geen opdrachten. SKIP api_F_PutOpdrachten",2)}}function A_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm){var v_API="GetSupplierTasksSpec",v_req='<GetSupplierTasksSpec xmlns="http://tempuri.org/">            <vendAccountNum>'+v_supplier_id+"</vendAccountNum>            <taskStatus>"+v_status_code+"</taskStatus>            <startRange>"+v_datum_vanaf+"</startRange>            <endRange>"+v_datum_tm+"</endRange>        </GetSupplierTasksSpec>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function A2012_GetOpdrachten(){var v_status_code="o";if(0==G_mar_sync_opdr_past_days){var l_aantal_dagen=Read_Ini_Setting("ax2012","opdr_past_days");__Log("A2012_GetOpdrachten: setting opdr_past_days uit mareon.xml = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax2012","opdr_today");__Log("A2012_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A2012_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A2012_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(0>G_mar_sync_opdr_past_days){var l_aantal_dagen=0-G_mar_sync_opdr_past_days;__Log("A2012_GetOpdrachten: setting G_mar_sync_opdr_past_days uit DB (abs) = "+l_aantal_dagen,0);var l_today=Read_Ini_Setting("ax2012","opdr_today");__Log("A2012_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("A2012_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("A2012_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24)}if(1==G_mar_sync_opdr_past_days){__Log("A2012_GetOpdrachten: berekend tijdswindow [C+D] door DB bepaald = ",0);var l_yesterday=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_start),l_currentTime=new Date((new Date).valueOf()-1e3*G_mar_sync_opdr_past_secs_stop)}__Log("A2012_GetOpdrachten: l_yesterday = "+l_yesterday,0),__Log("A2012_GetOpdrachten: l_currentTime = "+l_currentTime,0);var v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);__Log("A2012_GetOpdrachten: v_datum_vanaf = "+v_datum_vanaf,0),__Log("A2012_GetOpdrachten: v_datum_tm = "+v_datum_tm,0);var v_xml_opdrachten;l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++){v_supplier_id=l_suppl_array[i],v_xml_opdrachten=A2012_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm),v_xml_opdrachten=v_xml_opdrachten.replace('<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">','<s:Envelope xmlns:s="http://www.w3.org/2003/05/soap-envelope" xmlns:a="http://www.w3.org/2005/08/addressing"><s:Header><a:Action s:mustUnderstand="1">http://tempuri.org/ISupplierService/GetSupplierTasksSpecResponse</a:Action></s:Header>'),v_xml_opdrachten=v_xml_opdrachten.replace('<SupplierPortalGetSupplierTasksByVendSpecResponse xmlns="http://tempuri.org">','<GetSupplierTasksSpecResponse xmlns="http://tempuri.org/">'),v_xml_opdrachten=v_xml_opdrachten.replace("</SupplierPortalGetSupplierTasksByVendSpecResponse>"," </GetSupplierTasksSpecResponse>"),v_xml_opdrachten=v_xml_opdrachten.replace('<response xmlns:b="http://schemas.datacontract.org/2004/07/Dynamics.Ax.Application" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">','<GetSupplierTasksSpecResult xmlns:b="http://schemas.datacontract.org/2004/07/SG.Services.Repositories" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">'),v_xml_opdrachten=v_xml_opdrachten.replace("</response>","</GetSupplierTasksSpecResult>");var l_split_opdrachten=v_xml_opdrachten.split("<b:SupplierTaskSpec>"),l_aantal_opdrachten=l_split_opdrachten.length-1;l_aantal_opdrachten>0?(__Log("A2012_GetOpdrachten: aantal opdrachten = "+l_aantal_opdrachten,2),api_F_PutOpdrachten(v_xml_opdrachten,"AX_OPDRACHTEN")):__Log("A2012_GetOpdrachten: Geen opdrachten. SKIP api_F_PutOpdrachten",2)}}function A2012_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm){var v_API="SupplierPortalGetSupplierTasksByVendSpecRequest",v_req=' <SupplierPortalGetSupplierTasksByVendSpecRequest xmlns="http://tempuri.org"> <_vendAccount>'+v_supplier_id+"</_vendAccount><_bonStatus>"+v_status_code+"</_bonStatus><_startRange>"+v_datum_vanaf+"</_startRange><_endRange>"+v_datum_tm+"</_endRange></SupplierPortalGetSupplierTasksByVendSpecRequest>",v_type=0,v_soapAction="SupplierPortal/getSupplierTasksByVendSpec",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_GetOpdrachten(){var v_status_code="o",l_today=Read_Ini_Setting("tobias","opdr_today");__Log("T_GetOpdrachten: l_today = "+l_today,1),""==l_today&&(l_today=0),__Log("T_GetOpdrachten: l_today = "+l_today,1);var l_currentTime=new Date((new Date).valueOf()-1e3*l_today*60*60*24);__Log("T_GetOpdrachten: l_currentTime = "+l_currentTime,0);var l_aantal_dagen=Read_Ini_Setting("tobias","opdr_past_days");__Log("T_GetOpdrachten: l_aantal_dagen = "+l_aantal_dagen,1),__Log("T_GetOpdrachten: l_aantal_dagen + l_today = "+(parseInt(l_aantal_dagen)+parseInt(l_today)),1);var l_yesterday=new Date((new Date).valueOf()-1e3*(parseInt(l_aantal_dagen)+parseInt(l_today))*60*60*24);__Log("T_GetOpdrachten: l_yesterday = "+l_yesterday,0);var v_xml_opdrachten,v_datum_vanaf=jsdatextoxml(l_yesterday),v_datum_tm=jsdatextoxml(l_currentTime);l_suppl_array=F_GetSuppliers();for(var i=0;i<l_suppl_array.length;i++)v_supplier_id=l_suppl_array[i],v_xml_opdrachten=T_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf,v_datum_tm),api_F_PutOpdrachten(v_xml_opdrachten,"TOBIAS_OPDRACHTEN")}function T_GetOpdrachten_van_Aannemer(v_supplier_id,v_status_code,v_datum_vanaf){var v_API="GetBonnen",v_req="<tob:string>CrediteurNummer="+v_supplier_id+"</tob:string><tob:string>BonStatus="+v_status_code+"</tob:string><tob:string>BonDatumOpdrachtVan="+v_datum_vanaf+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function api_F_PutOpdrachten(v_xml,v_API){var v_APIKEY=G_marx_apikey,v_req=v_xml,v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function A_SetSupplierText(v_company_id,v_taskId,v_extraInfo){var v_API="setSupplierText",v_req='<setSupplierText xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <extraInfo>"+v_extraInfo+"</extraInfo>        </setSupplierText>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_SetSupplierText(v_company_id,v_taskId,v_extraInfo){var v_API="SupplierPortalAddSupplierTextRequest",v_req='<SupplierPortalAddSupplierTextRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId><_text>"+v_extraInfo+"</_text></SupplierPortalAddSupplierTextRequest>",v_type=0,v_soapAction="SupplierPortal/addSupplierText",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_SetSupplierText(v_company_id,v_taskId,v_externnr,v_extraInfo){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">            <opmerking>'+v_extraInfo+"</opmerking>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_SetSupplierText(v_company_id,v_bonId,v_extraInfo){var v_API="SetBonInfo",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=Informatie</tob:string><tob:string>BonInfo="+v_extraInfo+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function F_GetOpdrachten_Afgemeld(){var l_node,v_API="AFGEMELDE_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetAFGEMELDE_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetAFGEMELDE_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Afgemeld: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_tracking_datum",v_dateComplete=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_dateComplete: "+v_dateComplete,1),"A"==AX_or_Tobias()&&A_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"A12"==AX_or_Tobias()&&A2012_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"T"==AX_or_Tobias()&&T_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete),"F"==AX_or_Tobias()&&FCLT_CompleteServiceTask(v_company_id,v_taskId,v_externnr,v_dateComplete),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete){var v_API="completeServiceTask",v_req='<completeServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <dateComplete>"+v_dateComplete+"</dateComplete>        </completeServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_CompleteServiceTask(v_company_id,v_taskId,v_dateComplete){var v_API="SupplierPortalCompleteServiceTaskRequest",v_req='<SupplierPortalCompleteServiceTaskRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> <_dateComplete>"+v_dateComplete+"Z</_dateComplete> </SupplierPortalCompleteServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/completeServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_CompleteServiceTask(v_company_id,v_taskId,v_externnr,v_dateComplete){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">             <status>ORDAFM</status>             <mut_datum>'+v_dateComplete+"</mut_datum>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,v_status,v_mut_datum){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">   <status>'+v_status+"</status>";""!=v_mut_datum&&(v_req=v_req+"<mut_datum>"+v_mut_datum+"</mut_datum>"),v_req+="</opdracht>";var v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_CompleteServiceTask(v_company_id,v_bonId,v_dateComplete){var l_method_gereed=Read_Ini_Setting("tobias","methodegereedmelden"),v_API="GereedMelden";"1"==l_method_gereed&&(v_API="GereedMeldenNaarSgWeb");var v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>DatumGereed="+v_dateComplete+"</tob:string><tob:string>Bewerking=Gereed</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function F_GetOpdrachten_Gepland(){var l_node,v_API="GEPLANDE_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetGEPLANDE_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetGEPLANDE_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Gepland: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_plandatum",v_date=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_date: "+v_date,1),"A"==AX_or_Tobias()&&A_PlanServiceTask(v_company_id,v_taskId,v_date),"A12"==AX_or_Tobias()&&A2012_PlanServiceTask(v_company_id,v_taskId,v_date),"T"==AX_or_Tobias()&&T_PlanServiceTask(v_company_id,v_taskId,v_date),"F"==AX_or_Tobias()&&FCLT_PlanServiceTask(v_company_id,v_taskId,v_externnr,v_date),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_PlanServiceTask(v_company_id,v_taskId,v_plandate){var v_API="planServiceTask",v_req='<planServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <planDate>"+v_plandate+"</planDate>        </planServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_PlanServiceTask(v_company_id,v_taskId,v_plandate){var v_API="SupplierPortalSetPlanDateRequest";v_req='<SupplierPortalSetPlanDateRequest  xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> <_planDate>"+v_plandate+"Z</_planDate></SupplierPortalSetPlanDateRequest>",v_type=0;var v_soapAction="SupplierPortal/setPlanDate";return v_resp=apiAX(v_API,v_req,v_type,v_soapAction),1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function FCLT_PlanServiceTask(v_company_id,v_taskId,v_externnr,v_plandate){var v_API="MARX_OPDR_STATUS",v_req='<opdracht key="'+v_externnr+'" type="update">             <plandatum>'+v_plandate+"</plandatum>        </opdracht>",v_type=1,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function T_PlanServiceTask(v_company_id,v_bonId,v_plandate){var l_pos_T,l_date,l_time;l_pos_T=v_plandate.indexOf("T"),l_pos_T>=0?(l_date=v_plandate.substr(0,l_pos_T),l_time=v_plandate.substr(l_pos_T+1)):(l_date=v_plandate,l_time="");
+var v_API="SetPlanDatum",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=AannemerPlanning</tob:string><tob:string>PlanDatum="+l_date+"</tob:string>";""!=l_time&&(v_req=v_req+"<tob:string>PlanTijd="+l_time+"</tob:string>");var v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_GetOpdrachten_AcceptRefuse(){var l_node,v_API="ACCEPT_REFUSED_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetACCEPT_REFUSED_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetACCEPT_REFUSED_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_AcceptRefuse: "+v_resp.text,1);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_tracking_datum",v_date=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/fac_srtnotificatie_code",v_srtnotificatie_code=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),__Log("v_date: "+v_date,1),__Log("v_srtnotificatie_code: "+v_srtnotificatie_code,1),"ORDACP"==v_srtnotificatie_code&&("A"==AX_or_Tobias()&&A_AcceptServiceTask(v_company_id,v_taskId),"A12"==AX_or_Tobias()&&A2012_AcceptServiceTask(v_company_id,v_taskId),"T"==AX_or_Tobias()&&T_AcceptServiceTask(v_company_id,v_taskId,"Ja"),"F"==AX_or_Tobias()&&FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,"ORDACP","")),"ORDCAN"==v_srtnotificatie_code&&("A"==AX_or_Tobias()&&A_RefuseServiceTask(v_company_id,v_taskId,v_extraInfo),"A12"==AX_or_Tobias()&&A2012_RefuseServiceTask(v_company_id,v_taskId,v_extraInfo),"T"==AX_or_Tobias()&&T_AcceptServiceTask(v_company_id,v_taskId,"Nee"),"F"==AX_or_Tobias()&&FCLT_SetOpdrachtStatus(v_company_id,v_taskId,v_externnr,"ORDCAN","")),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_RefuseServiceTask(v_company_id,v_taskId,v_resultCodeId){var v_API="refuseServiceTask",v_req='<refuseServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>            <resultCodeId>"+v_resultCodeId+"</resultCodeId>        </refuseServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_RefuseServiceTask(v_company_id,v_taskId,v_resultCodeId){var v_API="SupplierPortalRefuseServiceTaskRequest",v_req='<SupplierPortalRefuseServiceTaskRequest xmlns="http://tempuri.org"><_companyID>'+v_company_id+"</_companyID><_taskId>"+v_taskId+"</_taskId> <_returnCode>"+v_resultCodeId+"</_returnCode> </SupplierPortalRefuseServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/refuseServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A_AcceptServiceTask(v_company_id,v_taskId){var v_API="acceptServiceTask",v_req='<acceptServiceTask xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>            <taskId>"+v_taskId+"</taskId>        </acceptServiceTask>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function A2012_AcceptServiceTask(v_company_id,v_taskId){var v_API="SupplierPortalAcceptServiceTaskRequest",v_req='<SupplierPortalAcceptServiceTaskRequest xmlns="http://tempuri.org"> <_companyID>'+v_company_id+"</_companyID> <_taskId>"+v_taskId+"</_taskId> </SupplierPortalAcceptServiceTaskRequest>",v_type=0,v_soapAction="SupplierPortal/acceptServiceTask",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return 1==v_type&&""!=v_resp&&(oStream=new ActiveXObject("ADODB.Stream"),oStream.Open(),oStream.Type=1,oStream.Write(v_resp),oStream.SaveToFile("Log/test"+v_supplier_id+".xml",2),oStream.Close()),v_resp}function T_AcceptServiceTask(v_company_id,v_bonId,v_ja_nee){var v_API="SetBonAcceptatie",v_req="<tob:string>BonId="+v_bonId+"</tob:string><tob:string>BonStatus=Acceptatie</tob:string><tob:string>Geaccepteerd="+v_ja_nee+"</tob:string>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_GetOpdrachten_Opmerking(){var l_node,v_API="OPMERKING_OPDR_4AX",v_APIKEY=G_marx_apikey,v_req="<GetOPMERKING_OPDR_4AX><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetOPMERKING_OPDR_4AX>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetOpdrachten_Opmerking: "+v_resp.text,2);for(var i=1,strQuery="//xml/mld_ordr["+i+"]",l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){l_node=strQuery+"/ax_company_id";var v_company_id=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_ordernr";var v_taskId=v_resp.selectSingleNode(l_node).text;l_node=strQuery+"/mld_opdr_externnr";var v_externnr=v_resp.selectSingleNode(l_node).text,l_node=strQuery+"/mld_opdr_opmerking",v_extraInfo=v_resp.selectSingleNode(l_node).text;__Log("v_company_id: "+v_company_id,1),__Log("v_taskId: "+v_taskId,1),__Log("v_externnr: "+v_externnr,1),__Log("v_extraInfo: "+v_extraInfo,1),"A"==AX_or_Tobias()&&A_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"A12"==AX_or_Tobias()&&A2012_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"T"==AX_or_Tobias()&&T_SetSupplierText(v_company_id,v_taskId,v_extraInfo),"F"==AX_or_Tobias()&&FCLT_SetSupplierText(v_company_id,v_taskId,v_externnr,v_extraInfo),i+=1;var strQuery="//xml/mld_ordr["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function A_GetReturnCodes(){for(var v_company_id,v_arr_company_id=[1],i=0;i<v_arr_company_id.length;i++)v_company_id=v_arr_company_id[i],v_xml_returncodes=A_GetReturnCodes_van_Company(v_company_id),F_PutReturnCodes(v_xml_returncodes)}function A_GetReturnCodes_van_Company(v_company_id){var v_API="getReturnCodes",v_req='<getReturnCodes xmlns="http://tempuri.org/">            <companyId>'+v_company_id+"</companyId>        </getReturnCodes>",v_type=0,v_soapAction="",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return v_resp}function F_PutReturnCodes(v_xml){var v_API="WEIGER_RETURNCODES",v_APIKEY=G_marx_apikey,v_req=v_xml,v_type=1,v_soap_envelop=0;__Log(v_req,2),apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop)}function F_GetFacturen(){var v_API="FACT4AX_XTRACTOR",v_APIKEY=G_marx_apikey,v_req="<GetFACT4AX_XTRACTOR><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetFACT4AX_XTRACTOR>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen: "+v_resp.text,1),""==G_pdf_xtractorfolder&&__Log("G_pdf_xtractorfolder niet gevuld",2);var i=1,strQuery="//batch/document["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var XMLResult='<?xml version="1.0"?><batch>'+l_deelxml.xml+"</batch>";if(WriteText2File(G_ax_xtractorfolder,"xtractor["+i+"]","xml",XMLResult),""!=G_pdf_xtractorfolder){__Log("PDF_2_XTRACTOR",2);var l_strQuery_fin_factuur_key="//batch/fin_factuur_key["+i+"]";l_fin_factuur_key=v_resp.selectSingleNode(l_strQuery_fin_factuur_key).text,__Log("l_fin_factuur_key: "+l_fin_factuur_key,2),F_GetFactuurFiles(G_pdf_xtractorfolder,l_fin_factuur_key)}"A12"==AX_or_Tobias()&&A2012_Xtractor2AX(XMLResult,"xtractor["+i+"]"),i+=1;var strQuery="//batch/document["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFacturen_FCLT(){var v_API="FACT4_FACILITOR",v_APIKEY=G_marx_apikey,v_req="<GetFACT4_FACILITOR><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetFACT4_FACILITOR>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen: "+v_resp.text,1),""==G_fclt_factuur_pdffolder&&__Log("G_fclt_factuur_pdffolder niet gevuld",2);var i=1,strQuery="//batch/fin_factuur["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){if(""!=G_fclt_factuur_pdffolder){__Log("PDF_2_FACILITOR",2);var l_strQuery_fin_factuur_key="//batch/fin_factuur_key["+i+"]";l_fin_factuur_key=v_resp.selectSingleNode(l_strQuery_fin_factuur_key).text,__Log("l_fin_factuur_key: "+l_fin_factuur_key,2),F_GetFactuurFiles(G_fclt_factuur_pdffolder,l_fin_factuur_key)}l_strQuery_pdf_bestandnaam=strQuery+"/Attachment/FileName";var l_pdf_naam=v_resp.selectSingleNode(l_strQuery_pdf_bestandnaam).text;if(""!=l_pdf_naam&&(l_pdf_base64=BinaryFile_2_Base64(G_fclt_factuur_pdffolder+l_pdf_naam),""!=l_pdf_base64)){var node_attachment=l_deelxml.getElementsByTagName("Attachment");if(0!=node_attachment.length){__Log("XML node Attachment exists",2);var node_attached_data=l_deelxml.getElementsByTagName("AttachedData");if(0!=node_attached_data.length){__Log("XML node AttachedData exists",2);var y=node_attached_data.childNodes[0];null!=y&&(y.nodeValue=l_pdf_base64)}else __Log("XML node AttachedData does NOT exist",2),newEle=v_resp.createElement("AttachedData"),__Log("XML element AttachedData created",2),newTxt=v_resp.createTextNode(l_pdf_base64),__Log("XML textnode with base64 data created",2),newEle.appendChild(newTxt),__Log("XML element AttachedData with textnode",2),node_attachment[0].appendChild(newEle),__Log("XML element added to XML",2)}}var XMLResult='<?xml version="1.0"?>'+l_deelxml.xml;G_log_level>=3&&WriteText2File(G_fclt_factuur_xmlfolder,"facilitor["+i+"]","xml",XMLResult);var v_API="MARX_FIN_FACTUUR",v_type=1,v_soapAction="",v_resp=apiAX(v_API,XMLResult,v_type,v_soapAction);i+=1;var strQuery="//batch/fin_factuur["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFacturen_Tobias(){var v_API="FACT4_TOBIAS",v_APIKEY=G_marx_apikey,v_req="<GetFACT4_TOBIAS><APIkey>"+v_APIKEY+"</APIkey></GetFACT4_TOBIAS>",v_type=1,v_soap_envelop=1,v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetFacturen_Tobias: "+v_resp.text,1);var i=1,strQuery="//batch/Factuurinfo["+i+"]";for(l_deelxml=v_resp.selectSingleNode(strQuery);l_deelxml;){var v_API="$RUNSTREAM",v_req='<![CDATA[<?xml version="1.0"?><SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Body><sg:AanbiedenFactuur xmlns:sg="urn:x-sg-1.0" >'+l_deelxml.xml+"</sg:AanbiedenFactuur></SOAP-ENV:Body></SOAP-ENV:Envelope>]]>",v_type=0;l_result=api2Tobias(G_tobias_url,v_API,v_req,v_type,1),i+=1;var strQuery="//batch/Factuurinfo["+i+"]";l_deelxml=v_resp.selectSingleNode(strQuery)}}function F_GetFactuurFiles(p_folder,p_fin_factuur_key){var url=G_marx_url+"api2/invoices/"+p_fin_factuur_key+".json?scope=fo&include=custom_fields",objXMLHTTP=FcltAPI2("GET",url);if(objXMLHTTP){__Log("F_GetFactuurFiles: GET",2);var data=eval("("+objXMLHTTP.responseText+")");if(__Log("Factuur data :"+data,2),"invoice"in data&&"custom_fields"in data.invoice){__Log("Factuur data : invoice",2);for(var fld in data.invoice.custom_fields){__Log("Factuur custom_fields: fld",2);var attarr=data.invoice.custom_fields[fld].attachments;if(attarr){__Log("Factuur attachmenents: attarr",2);for(var i=0;i<attarr.length;i++){__Log("File: "+attarr[i].name,1),__Log("Size: "+attarr[i].size,1),__Log("Url: "+attarr[i].content_url,1);var fileXMLHTTP=FcltAPI2("GET",attarr[i].content_url);if(fileXMLHTTP){var fileStream=new ActiveXObject("ADODB.Stream");fileStream.Type=1,fileStream.Open(),fileStream.Write(fileXMLHTTP.responseBody),fileStream.SaveToFile(p_folder+"mareon_"+p_fin_factuur_key+"_"+attarr[i].name,2),fileStream.Close()}}}}}}else __Log("F_GetFactuurFiles 1: "+objXMLHTTP.responseText,2),__Log("F_GetFactuurFiles 2: "+objXMLHTTP.status,2)}function A2012_Xtractor2AX(v_xml,xtractFile){var v_API="PreInvoiceServiceAddPreInvoiceFromXtractorRequest",v_req='<PreInvoiceServiceAddPreInvoiceFromXtractorRequest xmlns="http://tempuri.org"> <xmlXtractorFormat><![CDATA['+v_xml+"]]></xmlXtractorFormat> </PreInvoiceServiceAddPreInvoiceFromXtractorRequest>",v_type=0,v_soapAction="PreInvoiceService/addPreInvoiceFromXtractor",v_resp=apiAX(v_API,v_req,v_type,v_soapAction);return-1!=v_resp.search("<response>true</response>")?WriteText2File(G_ax_succeededfolder,xtractFile,"xml",v_req):WriteText2File(G_ax_rejectedfolder,xtractFile,"xml",v_req),v_resp}function F_GetMareonInfo(){var v_API="MAREONINFO",v_APIKEY=G_marx_apikey,v_req="<GetMAREONINFO><adapterversion>"+G_Mareon_Adapter+"</adapterversion><APIkey>"+v_APIKEY+"</APIkey></GetMAREONINFO>",v_type=1,v_soap_envelop=1,l_result=[],v_resp=apiFCLT(G_marx_url,v_API,v_APIKEY,v_req,v_type,v_soap_envelop);__Log("F_GetMareonInfo: "+v_resp.text,1);var strQuery="//xml/mareon_info",l_node=strQuery+"/fclt_mar_version",l_fclt_mar_version=v_resp.selectSingleNode(l_node);__Log("fclt_mar_version: "+l_fclt_mar_version.text,1);var l_node=strQuery+"/mar_sync_opdr_past_days",l_mar_sync_opdr_past_days=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_days: "+l_mar_sync_opdr_past_days.text,1);var l_node=strQuery+"/mar_sync_opdr_past_secs_start",l_mar_sync_opdr_past_secs_start=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_secs_start: "+l_mar_sync_opdr_past_secs_start.text,1);var l_node=strQuery+"/mar_sync_opdr_past_secs_stop",l_mar_sync_opdr_past_secs_stop=v_resp.selectSingleNode(l_node);__Log("mar_sync_opdr_past_secs_stop: "+l_mar_sync_opdr_past_secs_stop.text,1);var l_node=strQuery+"/min_adapter_version",l_version=v_resp.selectSingleNode(l_node);__Log("l_version: "+l_version.text,1);var l_node=strQuery+"/mar_connection_allowed",l_connection_allowed=v_resp.selectSingleNode(l_node);__Log("l_connection_allowed: "+l_connection_allowed.text,1);var l_node=strQuery+"/prs_bedrijf_naam",l_woco=v_resp.selectSingleNode(l_node);__Log("l_woco: "+l_woco.text,1);var l_node=strQuery+"/mar_bedrijf_lastconnection",l_last_connect=v_resp.selectSingleNode(l_node);__Log("l_last_connect: "+l_last_connect.text,1);var l_node=strQuery+"/mar_bedrijf_nextconnection",l_connect_after=v_resp.selectSingleNode(l_node);__Log("l_connect_after: "+l_connect_after.text,1);var l_node=strQuery+"/mar_sync_loglevel",l_loglevel=v_resp.selectSingleNode(l_node);__Log("l_loglevel: "+l_loglevel.text,1);var l_node=strQuery+"/mar_sync_date_sendlogfile",l_date_sendlogfile=v_resp.selectSingleNode(l_node);return __Log("l_date_sendlogfile: "+l_date_sendlogfile.text,1),l_result.push(l_version.text),l_result.push(l_connection_allowed.text),l_result.push(l_woco.text),l_result.push(l_last_connect.text),l_result.push(l_connect_after.text),l_result.push(l_fclt_mar_version.text),l_result.push(l_mar_sync_opdr_past_days.text),l_result.push(l_mar_sync_opdr_past_secs_start.text),l_result.push(l_mar_sync_opdr_past_secs_stop.text),l_result.push(l_loglevel.text),l_result.push(l_date_sendlogfile.text),l_result}function FCLT_Sync_START(){F_PutSync(0)}function FCLT_Sync_END(){F_PutSync(1)}function AX_2_FCLT_ReturnCodes(){A_GetReturnCodes()}function AX_2_FCLT_Opdrachten(){A_GetOpdrachten()}function FCLT_2_AX_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_AX_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_AX_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_AX_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function AX2012_2_FCLT_Opdrachten(){A2012_GetOpdrachten()}function FCLT_2_AX2012_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_AX2012_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_AX2012_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_AX2012_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function Tobias_2_FCLT_Opdrachten(){T_GetOpdrachten()}function FCLT_2_Tobias_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function FCLT_2_Tobias_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function FCLT_2_Tobias_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function FCLT_2_Tobias_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function FCLT_2_Tobias_Facturen(){F_GetFacturen_Tobias()}function MARX_2_FCLT_OpmerkingOpdrachten(){F_GetOpdrachten_Opmerking()}function MARX_2_FCLT_AcceptRefuseOpdracht(){F_GetOpdrachten_AcceptRefuse()}function MARX_2_FCLT_GeplandeOpdrachten(){F_GetOpdrachten_Gepland()}function MARX_2_FCLT_AfgemeldeOpdrachten(){F_GetOpdrachten_Afgemeld()}function MARX_2_FCLT_Facturen(){F_GetFacturen_FCLT()}function FCLT_2_AX_Facturen(){F_GetFacturen()}function Ax_2_FACILITOR(){__Log("*** START AX --> FCLT : Opdrachten uit AX en naar Facilitor ***"),AX_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Opmerking opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Geaccepteerde/geweigerde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> AX : Geplande opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX : Afgemelde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX_AfgemeldeOpdrachten(),__Log("*** END")}function Ax2012_2_FACILITOR(){__Log("*** START AX2012 --> FCLT : Opdrachten uit AX en naar Facilitor ***"),AX2012_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Opmerking opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Geaccepteerde/geweigerde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Geplande opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> AX2012 : Afgemelde opdrachten uit Facilitor naar AX ***"),FCLT_2_AX2012_AfgemeldeOpdrachten(),__Log("*** END")}function Tobias_2_FACILITOR(){__Log("*** START Tobias --> FCLT : Opdrachten uit Tobias en naar Facilitor ***"),Tobias_2_FCLT_Opdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Opmerking opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Geaccepteerde/geweigerde opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Geplande opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START FCLT --> Tobias : Afgemelde opdrachten uit Facilitor naar Tobias ***"),FCLT_2_Tobias_AfgemeldeOpdrachten(),__Log("*** END"),""==G_ax_xtractorfolder?(__Log("*** START FCLT --> Tobias : Facturen uit Facilitor naar Tobias ***"),FCLT_2_Tobias_Facturen()):__Log("*** NO START FCLT --> Tobias : Facturen verlopen via Xtractor ***"),__Log("*** END")}function MAREON_2_FACILITOR(){__Log("*** START MAREON --> CUST.FACILITOR.NL : Opmerking opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_OpmerkingOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Geaccepteerde/geweigerde opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_AcceptRefuseOpdracht(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Geplande opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_GeplandeOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Afgemelde opdrachten uit Mareon naar Facilitor ***"),MARX_2_FCLT_AfgemeldeOpdrachten(),__Log("*** END"),__Log("*** START MAREON --> CUST.FACILITOR.NL : Facturen uit Mareon naar Facilitor ***"),""!=G_fclt_factuur_xmlfolder&&MARX_2_FCLT_Facturen(),__Log("*** END")}function FACILITOR_2_Xtractor(){__Log("*** START FCLT --> AX / Tobias/AX : Facturen met status INGEVOERD + AKKOORD uit Facilitor naar AX of Tobias/AX ***"),FCLT_2_AX_Facturen(),__Log("*** END")}var G_Mareon_Adapter="1.20",fso=new ActiveXObject("Scripting.FileSystemObject"),G_settings_xml_file=WScript.Arguments(0),G_log_level=Read_Ini_Setting("common","logging");__Log("**************************************************  START Mareon Adapter  ***********************************************");var G_ax_url=Read_Ini_Setting("ax","url"),G_ax2012_url=Read_Ini_Setting("ax2012","url"),G_ax2012_logonAs=Read_Ini_Setting("ax2012","logonAs"),G_ax2012_bcProxy=Read_Ini_Setting("ax2012","bcProxy"),G_tobias_url=Read_Ini_Setting("tobias","url"),G_fclt_url=Read_Ini_Setting("fclt","url"),G_fclt_apikey=Read_Ini_Setting("fclt","apikey"),G_fclt_factuur_xmlfolder=Read_Ini_Setting("fclt","factuur/xmlfolder"),G_fclt_factuur_pdffolder=Read_Ini_Setting("fclt","factuur/pdffolder"),G_ax_xtractorfolder=Read_Ini_Setting("xtractor","xmlfolder"),G_pdf_xtractorfolder=Read_Ini_Setting("xtractor","pdffolder"),G_ax_succeededfolder=Read_Ini_Setting("xtractor","succeededfolder"),G_ax_rejectedfolder=Read_Ini_Setting("xtractor","rejectedfolder"),G_marx_url=Read_Ini_Setting("facilitor","url"),G_marx_apikey=Read_Ini_Setting("facilitor","apikey");if(__Log("***Mareon Adapter - versie: "+G_Mareon_Adapter),__Log("***XML- common/logging: "+G_log_level),__Log("***XML- ax/url: "+G_ax_url),__Log("***XML- ax2012/url: "+G_ax2012_url),__Log("***XML- tobias/url: "+G_tobias_url),__Log("***XML- facilitor/url: "+G_fclt_url),__Log("***XML- facilitor/factuur/xmlfolder: "+G_fclt_factuur_xmlfolder),__Log("***XML- facilitor/factuur/pdffolder: "+G_fclt_factuur_pdffolder),__Log("***XML- mareon/url: "+G_marx_url),__Log("***XML- xtractor/xmlfolder: "+G_ax_xtractorfolder),__Log("***XML- xtractor/pdffolder: "+G_pdf_xtractorfolder),__Log("***XML- xtractor/succeededfolder: "+G_ax_succeededfolder),__Log("***XML- xtractor/rejectedfolder: "+G_ax_rejectedfolder),l_array=F_GetMareonInfo(),v_loglevel=l_array[9],""!=v_loglevel&&(G_log_level=v_loglevel,__Log("***XML- common/logging G_log_level is overruled by Mareon :"+v_loglevel)),v_date_sendlogfile=l_array[10],v_woco=l_array[2],__Log("*** Company: "+v_woco),v_min_adapter_version=l_array[0],v_mar_connection_allowed=l_array[1],G_Mareon_Adapter>=v_min_adapter_version)if("1"==v_mar_connection_allowed){__Log("Connection allowed"),FCLT_Sync_START(),l_array=F_GetMareonInfo();var G_mar_sync_opdr_past_days=parseInt(l_array[6]),G_mar_sync_opdr_past_secs_start=parseInt(l_array[7]),G_mar_sync_opdr_past_secs_stop=parseInt(l_array[8]);"A"==AX_or_Tobias()&&(__Log("AX2009"),Ax_2_FACILITOR()),"A12"==AX_or_Tobias()&&(__Log("AX2012"),Ax2012_2_FACILITOR()),"T"==AX_or_Tobias()&&(__Log("TOBIAS"),Tobias_2_FACILITOR()),"F"==AX_or_Tobias()&&(__Log("FACILITOR"),MAREON_2_FACILITOR()),""!=G_ax_xtractorfolder&&(__Log("XTRACTOR"),FACILITOR_2_Xtractor()),FCLT_Sync_END()}else v_last_connect=l_array[3],v_connect_after=l_array[4],__Log("Connection NOT allowed (yet)"),__Log("Last Connection: "+v_last_connect),__Log("Connection allowed after: "+v_connect_after);else __Log("Invalid Mareon adapter version");__Log("**************************************************    END Mareon Adapter  ***********************************************"),__Log(""),""!=v_date_sendlogfile&&FCLT_SendLogFile(v_date_sendlogfile);
\ No newline at end of file