Имя: Пароль:
1C
1С v8
Отправка ТТН ЕГАИС
🠗Ø (Лефмихалыч 30.11.2015 10:00)
0 Roman100l
 
30.11.15
09:07
FSRAR_ID=Константы.ЕГАИСФСРАРИД.Получить();
    Если Контрагент.ЕГАИСИДФСС<>"" тогда
        ///////////////////////////ОтправкаТТНЕГАИС//////////
        
        НомерДока=ОбщегоНазначения.ПолучитьНомерНаПечать(Ссылка);
        //ДокументПоступления=Подключение.Документы.Поступление.НайтиПоНомеру(Строка.НомерЕГАИС);
        //ДокументПоступленияобъект=ДокументПоступления.получитьОбъект();
        Boundary = СтрЗаменить(Строка(Новый УникальныйИдентификатор()), "-", ""); // Идентификатор границы разделов POST запроса
        ИмяФайлаДляЗагрузки = КаталогВременныхФайлов() + "TTNActSingle.xml";      
        ИмяФайлаОтвета = КаталогВременныхФайлов() + "answerTTNActSingle100.xml"; // Имя файла ответа на POST запрос
        ИмяФайлаОтправки = КаталогВременныхФайлов() + "TTNActSingle100.txt";
        ОбъектXML  = Новый ЗаписьXML();
        ОбъектXML.ОткрытьФайл(ИмяФайлаДляЗагрузки);
        Сообщить(ИмяФайлаДляЗагрузки);
        ОбъектXML.ЗаписатьОбъявлениеXML();
        ОбъектXML.ЗаписатьНачалоЭлемента("ns:Documents");
        ОбъектXML.ЗаписатьАтрибут("Version", "1.0");
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("wb","http://fsrar.ru/WEGAIS/TTNSingle";);
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("pref","http://fsrar.ru/WEGAIS/ProductRef";);
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("oref", "http://fsrar.ru/WEGAIS/ClientRef";);
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("c","http://fsrar.ru/WEGAIS/Common";);
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("ns", "http://fsrar.ru/WEGAIS/WB_DOC_SINGLE_01";);
        ОбъектXML.ЗаписатьСоответствиеПространстваИмен("xsi", "http://www.w3.org/2001/XMLSchema-instance";);
        
        ОбъектXML.ЗаписатьНачалоЭлемента("ns:Owner");
        ОбъектXML.ЗаписатьНачалоЭлемента("ns:FSRAR_ID");
        ОбъектXML.ЗаписатьТекст(FSRAR_ID);
        ОбъектXML.ЗаписатьКонецЭлемента();//ns:FSRAR_ID
        ОбъектXML.ЗаписатьКонецЭлемента();//ns:Owner
        ОбъектXML.ЗаписатьНачалоЭлемента("ns:Document");
        ОбъектXML.ЗаписатьНачалоЭлемента("ns:WayBill");
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Identity");
        ОбъектXML.ЗаписатьТекст("1");
        ОбъектXML.ЗаписатьКонецЭлемента();//wb:Identity
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Header");
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:NUMBER");
        ОбъектXML.ЗаписатьТекст(НомерДока);
        Сообщить(НомерДока);
        ОбъектXML.ЗаписатьКонецЭлемента();//"wb:NUMBER");
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Date");
        ОбъектXML.ЗаписатьТекст(Формат(Дата,"ДФ=yyyy-MM-dd"));
        ОбъектXML.ЗаписатьКонецЭлемента();  //wb:Date
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:ShippingDate");
        ОбъектXML.ЗаписатьТекст(Формат(Дата,"ДФ=yyyy-MM-dd"));
        ОбъектXML.ЗаписатьКонецЭлемента();  //wb:ShippingDate
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Type");
        ОбъектXML.ЗаписатьТекст("WBInvoiceFromMe");
        ОбъектXML.ЗаписатьКонецЭлемента();  //wb:Type
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:UnitType");
        Если Штучная тогда
            ОбъектXML.ЗаписатьТекст("Packed");
        иначе
            ОбъектXML.ЗаписатьТекст("Unpacked");
        КонецЕсли;
        ОбъектXML.ЗаписатьКонецЭлемента();  //wb:UnitType
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Shipper");      
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:INN");
        ОбъектXML.ЗаписатьТекст(Организация.ИНН);
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:INN
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:KPP");
        ОбъектXML.ЗаписатьТекст(Организация.КПП);
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:KPP
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:ClientRegId");
        ОбъектXML.ЗаписатьТекст(FSRAR_ID);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:ClientRegId
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:FullName");
        ОбъектXML.ЗаписатьТекст(Организация.НаименованиеПолное);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:FullName
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:ShortName");
        ОбъектXML.ЗаписатьТекст(Организация.НаименованиеСокращенное);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:ShortName
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:address");
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:Country");
        ОбъектXML.ЗаписатьТекст("643");
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:Country
        //
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:description");
        ОбъектXML.ЗаписатьТекст("ЗДЕСЬ ВАШ АДРЕС КАК ОН ЗАВЕДЕН В ЕГАИС  ДО ЗАПЯТОЙ И ПРОБЕЛОВ");
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:description
        
        ОбъектXML.ЗаписатьКонецЭлемента(); //"oref:address"
        ОбъектXML.ЗаписатьКонецЭлемента();//</wb:Shipper>
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Consignee");
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:INN");
        ОбъектXML.ЗаписатьТекст(Контрагент.ИНН);
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:INN
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:KPP");
        ОбъектXML.ЗаписатьТекст(Контрагент.КПП);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:KPP
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:ClientRegId");
        ОбъектXML.ЗаписатьТекст(Контрагент.ЕГАИСИДФСС);
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:ClientRegId
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:FullName");
        ОбъектXML.ЗаписатьТекст(Контрагент.НаименованиеЕГАИСПолное);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:FullName
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:ShortName");
        ОбъектXML.ЗаписатьТекст(Контрагент.НаименованиеЕГАИС);
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:ShortName
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:address");
        //    
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:Country");
        ОбъектXML.ЗаписатьТекст("643");
        ОбъектXML.ЗаписатьКонецЭлемента(); // oref:Country
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("oref:description");
        ОбъектXML.ЗаписатьТекст(СокрЛП(Контрагент.АдресЕГАИС));
        ОбъектXML.ЗаписатьКонецЭлемента(); //oref:description
        
        
        
        ОбъектXML.ЗаписатьКонецЭлемента();///oref:address
        ОбъектXML.ЗаписатьКонецЭлемента(); ///wb:Consignee
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Transport");
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_TYPE");
        ОбъектXML.ЗаписатьТекст("413");
        ОбъектXML.ЗаписатьКонецЭлемента(); // wb:TRAN_TYPE
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_COMPANY");
        ОбъектXML.ЗаписатьТекст(ККФТТНПеревозчик);
        ОбъектXML.ЗаписатьКонецЭлемента(); //  wb:TRAN_COMPANY
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_CAR");
        ОбъектXML.ЗаписатьТекст(СокрЛП(ККФТТНМаркаАвтомобиля));
        ОбъектXML.ЗаписатьКонецЭлемента(); // wb:TRAN_CAR
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_TRAILER");
        ОбъектXML.ЗаписатьТекст(СокрЛП(ККФТТНМаркаПрицепа));
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_TRAILER
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_CUSTOMER");
        ОбъектXML.ЗаписатьТекст(СокрЛП(ККФТТНЗаказчик));
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_CUSTOMER
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_DRIVER");
        ОбъектXML.ЗаписатьТекст(СокрЛП(ККФТТНВодитель));
        ОбъектXML.ЗаписатьКонецЭлемента(); // wb:TRAN_DRIVER
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_LOADPOINT");
        ОбъектXML.ЗаписатьТекст(ККФТТНПунктПогрузки);
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_LOADPOINT
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_UNLOADPOINT");
        ОбъектXML.ЗаписатьТекст(ККФТТНПунктРазгрузки);
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_UNLOADPOINT
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_REDIRECT");
        ОбъектXML.ЗаписатьТекст("");
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_REDIRECT
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:TRAN_FORWARDER");
        ОбъектXML.ЗаписатьТекст("Экспедитор");
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:TRAN_FORWARDER
        
        
        
        
        ОбъектXML.ЗаписатьКонецЭлемента(); ///"wb:Transport"
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Base");
        ОбъектXML.ЗаписатьТекст("");
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:Base
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Note");
        ОбъектXML.ЗаписатьТекст("");
        ОбъектXML.ЗаписатьКонецЭлемента(); //wb:Note
        
        ОбъектXML.ЗаписатьКонецЭлемента(); // wb:Header
        
        
        
        
        
        
        ОбъектXML.ЗаписатьНачалоЭлемента("wb:Content");
        Для Каждого ЭлеметаТЧ из ЕГАИСТОВАРЫ цикл
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Position");
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Identity");
            ОбъектXML.ЗаписатьТекст(Строка(ЭлеметаТЧ.НомерСтроки));
            ОбъектXML.ЗаписатьКонецЭлемента(); // wb:Identity
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Product");
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:Type");
            ОбъектXML.ЗаписатьТекст("АП");
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:Type
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:FullName");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.ПолноеНаименование);
            ОбъектXML.ЗаписатьКонецЭлемента(); // pref:FullName
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:ShortName");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Наименование);
            ОбъектXML.ЗаписатьКонецЭлемента(); // pref:ShortName
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:AlcCode");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.КодВЕгаис);
            ОбъектXML.ЗаписатьКонецЭлемента(); // pref:AlcCode
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:Capacity");
            ОбъектXML.ЗаписатьТекст(Формат(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.ОбемАлколь,"ЧЦ=9; ЧДЦ=4; ЧРД=.; ЧГ=0"));
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:Capacity
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:AlcVolume");
            ОбъектXML.ЗаписатьТекст(Строка(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Емкость));
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:AlcVolume
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:ProductVCode");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.ProductVCode);
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:ProductVCode
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:Producer");
            
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:INN");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.ИНН);
            ОбъектXML.ЗаписатьКонецЭлемента(); // oref:INN
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:KPP");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.КПП);
            ОбъектXML.ЗаписатьКонецЭлемента(); //oref:KPP
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:ClientRegId");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.ИДПроизводителяЕГАИС);
            ОбъектXML.ЗаписатьКонецЭлемента(); // oref:ClientRegId
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:FullName");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.НаименованиеПолное);
            ОбъектXML.ЗаписатьКонецЭлемента(); // oref:FullName
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:ShortName");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.Наименование);
            ОбъектXML.ЗаписатьКонецЭлемента(); // oref:ShortName
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:address");
            
            //    
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:Country");
            ОбъектXML.ЗаписатьТекст("643");
            ОбъектXML.ЗаписатьКонецЭлемента(); // oref:Country
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("oref:description");
            ОбъектXML.ЗаписатьТекст(СокрЛП(ЭлеметаТЧ.ЕГАИСНОМЕНКЛАТУРА.Производитель.АдресЕГАИС));
            ОбъектXML.ЗаписатьКонецЭлемента(); //oref:description
            
            
            //      
            //    КонецЦикла;
            
            
            ОбъектXML.ЗаписатьКонецЭлемента(); // /oref:address
            ОбъектXML.ЗаписатьКонецЭлемента(); // pref:Producer
            
            ОбъектXML.ЗаписатьКонецЭлемента(); // </wb:Product>
            
            
            
            //ОбъектXML.ЗаписатьНачалоЭлемента("");
            // ОбъектXML.ЗаписатьТекст();
            // ОбъектXML.ЗаписатьКонецЭлемента(); //
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Quantity");
            ОбъектXML.ЗаписатьТекст(Формат(ЭлеметаТЧ.Количество,"ЧЦ=9; ЧДЦ=4; ЧРД=.; ЧГ=0"));
            ОбъектXML.ЗаписатьКонецЭлемента(); // wb:Quantity
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Price");
            ОбъектXML.ЗаписатьТекст(Формат(ЭлеметаТЧ.Цена,"ЧЦ=9; ЧДЦ=4; ЧРД=.; ЧГ=0"));
            ОбъектXML.ЗаписатьКонецЭлемента(); //wb:Price
            
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Pack_ID");
            ОбъектXML.ЗаписатьТекст("Паллета");
            ОбъектXML.ЗаписатьКонецЭлемента(); //wb:Pack_ID
            
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:Party");
            ОбъектXML.ЗаписатьТекст("партия");
            ОбъектXML.ЗаписатьКонецЭлемента(); //wb:Party
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:InformA");
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:RegId");
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.СправкаА);
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:RegId
            ОбъектXML.ЗаписатьКонецЭлемента(); // wb:InformA
            
            ОбъектXML.ЗаписатьНачалоЭлемента("wb:InformB");
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:InformBItem");
            ОбъектXML.ЗаписатьНачалоЭлемента("pref:BRegId");
            
            ОбъектXML.ЗаписатьТекст(ЭлеметаТЧ.СправкаБ);
            ОбъектXML.ЗаписатьКонецЭлемента(); //pref:BRegId
            ОбъектXML.ЗаписатьКонецЭлемента(); // pref:InformBItem
            
            ОбъектXML.ЗаписатьКонецЭлемента(); // wb:InformB
            
            
            
            ОбъектXML.ЗаписатьКонецЭлемента(); // /wb:Position
            
        КОнецЦикла;
        ОбъектXML.ЗаписатьКонецЭлемента(); // wb:Content
        ОбъектXML.ЗаписатьКонецЭлемента(); // ns:WayBill
        ОбъектXML.ЗаписатьКонецЭлемента(); // ns:Document>
        ОбъектXML.ЗаписатьКонецЭлемента(); // ns:Documents>
        
        ОбъектXML.ЗаписатьТекст(Символы.ПС);
        ОбъектXML.Закрыть();
        //Определяем массив для процедуры ОбъединитьФайлы
        МассивФайловДляОбъединения = Новый Массив;
        
        //Формируем начальный фрагмент файла POST-запроса
        ИмяФайлаОтправкиНачало = ПолучитьИмяВременногоФайла("txt");
        ФайлОтправкиНачало = Новый ЗаписьТекста(ИмяФайлаОтправкиНачало, КодировкаТекста.ANSI, Символы.ПС, Ложь);
        //Определяем раздел двоичных данных
        ФайлОтправкиНачало.ЗаписатьСтроку("--" + Boundary);
        //Указываем имя файла для передачи
        ФайлОтправкиНачало.ЗаписатьСтроку("Content-Disposition: form-data; name=""xml_file""; filename=""" + "QueryAPSingle.xml" + """");
        //Указываем тип передаваемых данных.
        ФайлОтправкиНачало.ЗаписатьСтроку("Content-Type: text/xml; charset=utf-8");
        ФайлОтправкиНачало.ЗаписатьСтроку("");
        ФайлОтправкиНачало.Закрыть();
        
        МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиНачало);
        
        МассивФайловДляОбъединения.Добавить(ИмяФайлаДляЗагрузки);
        
        //Формируем конечный фрагмент файла POST-запроса
        ИмяФайлаОтправкиКонец = ПолучитьИмяВременногоФайла("txt");
        ФайлОтправкиКонец = Новый ЗаписьТекста(ИмяФайлаОтправкиКонец, КодировкаТекста.ANSI, Символы.ПС, Ложь);
        
        //Завершение раздела двоичных данных
        //Завершение сообщения для сервера
        
        ФайлОтправкиКонец.ЗаписатьСтроку("--" + Boundary + "--");
        ФайлОтправкиКонец.Закрыть();
        
        МассивФайловДляОбъединения.Добавить(ИмяФайлаОтправкиКонец); // !!! 3 добавление в массив
        
        //Теперь сформированные фрагменты сообщения для сервера объединяем в один файл POST-запроса
        ОбъединитьФайлы(МассивФайловДляОбъединения, ИмяФайлаОтправки);
        
        ЗаголовокHTTP = Новый Соответствие();
        
        //Укажем формат данных Content-Type
        ЗаголовокHTTP.Вставить("Content-Type", "multipart/form-data; boundary=" + Boundary);
        
        //Укажем длину POST-запроса Content-Length
        ФайлОтправки = Новый Файл(ИмяФайлаОтправки);
        РазмерФайлаОтправки = XMLСтрока(ФайлОтправки.Размер());
        ЗаголовокHTTP.Вставить("Content-Length", РазмерФайлаОтправки);
        
        СерверПриемник = "localhost"; //Без протокола http://. Естественно, следует указать свой адрес.
        Порт = "8080"; //Порт УТМ
        ИспользоватьПрокси = Ложь;
        
        НТТР=ЕГАИС.ПолучитьHTTP(НТТР);
        
        
        Попытка
            АдресСкрипта = "/opt/in/WayBill"; //Адрес ресурса.
            
            //Формируем HTTP запрос
            ЗапросHTTP = Новый HTTPЗапрос(АдресСкрипта, ЗаголовокHTTP);
            ЗапросHTTP.УстановитьИмяФайлаТела(ИмяФайлаОтправки);  //Устанавливает имя файла, из которого будет прочитано тело POST-запроса.
            
            //Ответ от сервера получим в возвращаемом значении типа HTTPОтвет
            ОтветHTTP = НТТР.ОтправитьДляОбработки(ЗапросHTTP, ИмяФайлаОтвета);
        Исключение
            Сообщить("Неудачная попытка соединения с " + СерверПриемник + ": " + ОписаниеОшибки());
            
        КонецПопытки;
        
        
        ЗапросHTTP = Неопределено;
        ЧтениеОтвета = Новый ЧтениеXML;
        ЧтениеОтвета.ОткрытьФайл(ОтветHTTP.ПолучитьИмяФайлаТела());
        
        //ИдОтвета = "";
        //ПодписьОтвета = "";
        ИмяУзла = "";
        
        Пока ЧтениеОтвета.Прочитать() Цикл
            Если ЧтениеОтвета.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
                ИмяУзла = ЧтениеОтвета.Имя;
            КонецЕсли;
            Если ЧтениеОтвета.ТипУзла=ТипУзлаXML.Текст Тогда
                Если ИмяУзла = "url" Тогда
                    urlЗначение=ЧтениеОтвета.Значение;
                    Сообщить("ID "+urlЗначение);
                КонецЕсли;
                Если ИмяУзла = "sign" Тогда
                    signЗначение=ЧтениеОтвета.Значение;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        ID=urlЗначение;
        ЕГАИСЗапрос=ID;
        ////        /////////////////////////////////////////////////////
    иначе
        Сообщить("Данного контрагента нет в ЕГАИС");
    КонецЕсли;
1 aka AMIGO
 
30.11.15
09:36
(0) Это вопрос? Или своеобразная реклама?
2 Roman100l
 
30.11.15
09:38
Нет. Это код. Им можно пользоваться.
3 Roman100l
 
30.11.15
09:38
Денег я на этом не зарабатываю
4 aka AMIGO
 
30.11.15
09:39
(2) (3) Понятно.
5 ICWiner
 
30.11.15
09:41
(3) А если у меня организация только розничная, то я с тестового УТМ могу сам себе отправить ТТН твоим кодом, немного допилив? А то тестовую ТТН не выпросить...
6 H A D G E H O G s
 
модератор
30.11.15
09:46
Пишите ваши уникальные разработки в тематической ветке, пожалуйста.
7 Лефмихалыч
 
30.11.15
09:59
А еще для публикации решений есть
http://wiki.mista.ru/
и
http://kb.mista.ru/
Программист всегда исправляет последнюю ошибку.