Всё те же soap запросы :)

[svistom]

Цитата:

Сообщение от Taker1796

var guid=crmForm.ObjectId;

var xmlHttpRequest = new ActiveXObject("Microsoft.XMLHTTP");
xmlHttpRequest.Open("POST", "/mscrmservices/2007/CrmService.asmx", false);
xmlHttpRequest.setRequestHeader("Content-Type", "text/xml; charset=utf-8");
xmlHttpRequest.setRequestHeader("SOAPAction","http://schemas.microsoft.com/crm/2007/WebServices/Retrieve");

var xmlk = [
"<?xml version='1.0' encoding='utf-8'?>",
"<soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'>",
GenerateAuthenticationHeader(),
"<soap:Body>",
" <Retrieve xmlns='http://schemas.microsoft.com/crm/2007/WebServices'>",
" <entityName>new_dogovor</entityName>",
"<id xsi:type='xsd:string'>"+guid+"</id>",
" <columnSet xmlns:q1='http://schemas.microsoft.com/crm/2006/Query' xsi:type='q1:ColumnSet'>",
"<q1:Attributes>",
"<q1:Attribute>new_credit_programm</q1:Attribute>",
"</q1:Attributes>",
"</columnSet>",
"</Retrieve>",
"</soap:Body>",
"</soap:Envelope>"].join("");
xmlHttpRequest.setRequestHeader("Content-Length", xmlk.length);
xmlHttpRequest.send(xmlk);
var result= xmlHttpRequest.responseXML.xml;

var doc = new ActiveXObject("MSXML2.DOMDocument");
doc.async=false;
doc.loadXML(result);
var returnNode=doc.selectSingleNode("//new_credit_programm");
alert(returnNode.text);

Подскажите, пожалуйста, а как прописать соединение через прокси и прокси-авторизацию? Нигде не нашел спецификацию ((

[a33ik]

Цитата:

Сообщение от svistom

Подскажите, пожалуйста, а как прописать соединение через прокси и прокси-авторизацию? Нигде не нашел спецификацию ((

Вы задачу свою объясните, потому как непонятно зачем вам это надо. Указанный скрипт будет работать в браузере в окнах CRM. Для остального - он бесполезен.

[svistom]

Задача: посредством 1С 7.7 создать прямой запрос к веб-службе клиента с целью отправки данных в XML.
Код запроса:
Функция Запрос(xml)
VBScriptText = "
| Function SendRequest()
| SET XMLHTTP = CreateObject(""MSXML2.XMLHTTP.6.0"")
| Set XMLResponse =CreateObject(""MSXML2.DOMDocument"")
|
| XMLHTTP.Open ""POST"",""https://***.ru/DataExch/DataExchangeService.asmx"", False

| XMLHTTP.SetRequestHeader ""Proxy-Connection"", ""Keep-alive""

| XMLHTTP.setRequestHeader ""Content-Type"", ""text/xml""
| XMLHTTP.setRequestHeader ""SOAPAction"", ""http://tempuri.org/Data_Get""
| Dim soapRequest
| soapRequest = ""<?xml version=""""1.0"""" encoding=""""utf-8""""?><soap:Envelope xmlns:xsd=""""http://www.w3.org/2001/XMLSchema"""" xmlns:soap=""""http://schemas.xmlsoap.org/soap/envelope/"""" ><soap:Body><Data_Get xmlns=""""http://tempuri.org/""""><request><![CDATA["+xml+"]]></request></Data_Get></soap:Body></soap:Envelope>""
| XMLHTTP.send (soapRequest)
| If XMLHTTP.Status = 200 Then
| SendRequest = XMLHTTP.responseText
| else
| SendRequest =""Ошибка связи""
| End If
| End Function
| ";


ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language ="vbscript";
ScrptCtrl.AddCode(VBScriptText);
ScrptCtrl.Timeout = 200000;
XML = ScrptCtrl.Run("SendRequest");

Возврат XML;

КонецФункции


При выполнении этого скрипта (ScrptCtrl.Run()) возникает ошибка: msxml6.dll: Ошибка загрузки указанного ресурса.
Доступ в интернет через прокси (с авторизацией). Установлены последние версии msxml6.dll

[a33ik]

Вы немного ошиблись форумом. На этом форуме обсуждают вопросы работы с CRM, а не с 1С. Рекомендую вам посетить 1С форумы.

[svistom]

Цитата:

Сообщение от a33ik

Вы немного ошиблись форумом. На этом форуме обсуждают вопросы работы с CRM, а не с 1С. Рекомендую вам посетить 1С форумы.

Понимаю, но 1С здесь не при делах: она всего лишь запускает скрипт, а вот как задаются параметры прокси в SetRequestHeader, я, к сожалению нигде не нашел. Видимо, плохо искал ((

[Артем Enot Грунин]

Вы не поверите, загуглил с первой попытки: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Тем не менее, согласен с предыдущим оратором - вы вряд ли найдете тут специалистов по нужной вам тематике. Мы работаем, в основном, с другими технологиями. Кроме того, я думаю, ваши админы смогут настроить исключения для прокси для нужных вам адресов. Обычно коммуникация внутри сети работает в обход прокси для быстроты.