Добрый день.
Подскажите пожалуйста, для конфигурации "Управление торговлей", редакция 10.3 есть ли типовая обработка "Выгрузка данных в ЕГАИС"?

(0) Только в отраслевых алкогольных реализовано.

(1) А как быть, если у клиента уже есть обычная "Управление торговлей" вместо "Управление торговлей алкогольной продукцией"? Делать апгрейд? Или можно приобрести отдельно одну обработку?

(2) Если найдете, приобретите.

Ясно. Спасибо.

Оффтоп:
Автор, а как вы организовали на типовой УТ полнофункциональный учет алкашки?

Пробовал, кто нибудь делать связку 1с с транспортным модулем ЕГАИС? Не получается отправлять запросы на сервер УТМ из 1с, нужна помощь.

(6) А отправить пробовал?

(6)а че там пробовать ? Надо брать и делать. На форуме фсрара, добрые люди могут поделится рыбой  обработки для утм.

Ссылочку на добрых людей можно?

вот этому человеку напишите личное сообщение
http://forum.fsrar.ru/memberlist.php?mode=viewprofile&u=67

А что именно интересует.. писал выгрузку из БУ 7.7 и БУ 2.0 выгрузку в ЕГАИС там ни чего сложного...

(11) Бгггг.

(10) А вы смелые и оптимистичные ребята. Ставлю дайм, что ни одно решение еще не тестировалось от слова "вообще".

Скоро у всех будет http://1c.ru/news/info.jsp?id=20300

но только в части розницы...

(13) с чего такая уверенность ?
Я получаю по запросу номенклатуру в xml из  1с-ины, например, вот ттн-ок нет

+ есть решение, вообще не на 1с а на c++

и выкладывалось там же..

(0) УТАП 10.3 она называлась, это конфа от КТ-Алкоголь. 3 года назад когда с ней работал, выгрузки не было, писал сам

(16) ", вот ттн-ок нет"

Я об этом. Потестят только производители-импортнюки, у которые есть опт.

(19) Вы не в теме.

(21) раньше чуть-чуть работал с алкоголиками

(20) есть такое

(23) Вы поняли смысл реквизита "НомерПартии" в ТТН?

один хрен, система утопичная.. работать с нг не будет :)

Не представляю, как розница смогёт автоматизироваться до НГ по всей стране.

(24) неа :)

(25) Система ахеренна с технической точки зрения.

p.s. Смотрите даты создания xsd файлов :-)

Меня интересует код в 1с который позволяет сделать запрос  в УТМ:
<?xml version="1.0" encoding="UTF-8"?>
<ns:Documents Version="1.0"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
xmlns:ns="http://fsrar.ru/WEGAIS/WB_DOC_SINGLE_01";
xmlns:oref="http://fsrar.ru/WEGAIS/ClientRef";
xmlns:qp="http://fsrar.ru/WEGAIS/QueryParameters">;
<ns:Owner>
<ns:FSRAR_ID>00040218</ns:FSRAR_ID>
</ns:Owner>
<ns:Document>                    
<ns:QueryClients>
<qp:Parameters>
<qp:Parameter>
<qp:Name>ИНН</qp:Name>
<qp:Value>1681000049</qp:Value>
</qp:Parameter>
</qp:Parameters>
</ns:QueryClients>
</ns:Document>

curl -F ''[email protected]'' http://localhost:8080/opt/in/QueryPartner

(26) Воооот.

НомерПартии это УИН вашего прихода, говорилось в видео конференции об этом.

(28) Что там интересного?

(30) Понятно :-)

(31) Ничего интересного, но у меня мой код не работает, если не трудно скиньте кусок кода с отправкой xml запроса в УТМ.

Много неясного в странной стране -
Можно запутаться и заблудиться...
Даже мурашки бегут по спине,
Если представить, что может случиться.

Вдруг будет пропасть - и нужен прыжок?
Струсишь ли сразу? Прыгнешь ли смело?
А? Э-э! Так-то, дружок,
В этом-то все и дело.

(33) У меня нет этого кода.

(28) всё делается через новый HTTPЗапрос или, если лень возможностями снеговика пользоваться, через
Новый COMОбъект("WinHttp.WinHttpRequest.5.1")

через COMОбъект("WinHttp.WinHttpRequest.5.1") пробовал не получается

я думаю, автор с fsrsr-а  не будет против, наверное

Процедура утмРаботаСОтветамиЕГАИС()  экспорт
    
    ОтправкаЗапроса = новый HTTPСоединение(СокрЛП(Константы.СерверУТМ.Получить()),8080,,,);
    
    //запрашиваем список запросов от нас которые еще есть на УТМ
    СписокЗапросов = новый Соответствие;
    НовыйЗапрос = новый HTTPЗапрос("/opt/in/");
    ФайлОтветаЗапросы = ПолучитьИмяВременногоФайла("xml");
    Результат = ОтправкаЗапроса.Получить(НовыйЗапрос,ФайлОтветаЗапросы);
    ЧтениеОтвета = Новый ЧтениеXML;
    ЧтениеОтвета.ОткрытьФайл(Результат.ПолучитьИмяФайлаТела());
    ИдОтвета="";
    ПодписьОтвета="";
    ИмяУзла = "";
    Пока ЧтениеОтвета.Прочитать() Цикл
        Если ЧтениеОтвета.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            ИмяУзла = ЧтениеОтвета.Имя;
            Если ИмяУзла="url" тогда
                ИдСсылки = ЧтениеОтвета.ПолучитьАтрибут("replyId");
            КонецЕсли;
        КонецЕсли;
        Если ЧтениеОтвета.ТипУзла=ТипУзлаXML.Текст тогда
            Если ИмяУзла = "url" тогда
                СсылкаЗапроса=ЧтениеОтвета.Значение;
                //в соответствие складываем все хранящиеся на утм запросы от нас , replyid будет ключ
                СписокЗапросов.Вставить(ИдСсылки,СсылкаЗапроса);
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    //УдалитьФайлы(ФайлОтветаЗапросы);
    
    //запрашиваем все что есть на УТМ для нас
    НовыйЗапрос1 = новый HTTPЗапрос("/opt/out");
    ФайлОтвета = ПолучитьИмяВременногоФайла("xml");
    Результат = ОтправкаЗапроса.Получить(НовыйЗапрос1,ФайлОтвета);
    ЧтениеОтвета = Новый ЧтениеXML;
    ЧтениеОтвета.ОткрытьФайл(Результат.ПолучитьИмяФайлаТела());
    ИдОтвета="";
    ПодписьОтвета="";
    ИмяУзла = "";
    Пока ЧтениеОтвета.Прочитать() Цикл
        Если ЧтениеОтвета.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            ИмяУзла = ЧтениеОтвета.Имя;
            Если ИмяУзла="url" тогда
                ИдСсылки = ЧтениеОтвета.ПолучитьАтрибут("replyId");
            КонецЕсли;
        КонецЕсли;
        Если ЧтениеОтвета.ТипУзла=ТипУзлаXML.Текст тогда
            Если ИмяУзла = "url" тогда
                СсылкаЗапроса=СокрЛП(ЧтениеОтвета.Значение);
                ИдЗапроса = ИдСсылки;
                ТипЗапроса = "";
                //забираем ответ с УТМ в файл и кладем в соответствующую папку (пока только в две :) - остальные данные из УТМ игнорируются
                //этот кусок до конец если наадо переписать чтобы совсем автомат работал
                Если Найти(СсылкаЗапроса,"ReplyAP")>1 тогда       //запросы номенклатуры
                    ТипЗапроса = "ReplyAP";
                ИначеЕсли Найти(СсылкаЗапроса,"ReplyPartner")>1 тогда //запросы контрагентов
                    ТипЗапроса = "ReplyPartner";
                ИначеЕсли Найти(СсылкаЗапроса,"ReplyFormA")>1 тогда //справки А
                    ТипЗапроса = "ReplyFormA";
                //далее дописываем все что хотим еще обрабатывать
                Иначе
                    Продолжить;
                КонецЕсли;
                НовыйЗапрос = новый HTTPЗапрос(Прав(СсылкаЗапроса,СтрДлина(СсылкаЗапроса)-СтрДлина(СокрЛП(Константы.СерверУТМ.Получить()))-12));
                ФайлОтвета = СокрЛП(Константы.ПапкаЕГАИС.Получить())+"\"+ТипЗапроса+"\"+ИдЗапроса+".xml";
                Результат = ОтправкаЗапроса.Получить(НовыйЗапрос,ФайлОтвета);
                //удаляем ответ с УТМ
                ЗапросУдаления = новый HTTPЗапрос(Прав(СсылкаЗапроса,СтрДлина(СсылкаЗапроса)-СтрДлина(СокрЛП(Константы.СерверУТМ.Получить()))-12));
                ОтправкаЗапроса.ВызватьHTTPМетод("DELETE",ЗапросУдаления);
                //удаляем запрос от нас с УТМ если по replyid он есть на УТМ (чтобы небыло конечно не должно быть но как бы так бы (руки да)
                ЗначениеЗапроса = Неопределено;
                ЗначениеЗапроса = СписокЗапросов.Получить(ИдЗапроса);
                Если ЗначениеЗапроса<>Неопределено тогда
                    ЗапросУдаления = новый HTTPЗапрос(Прав(ЗначениеЗапроса,СтрДлина(ЗначениеЗапроса)-СтрДлина(СокрЛП(Константы.СерверУТМ.Получить()))-12));
                    ОтправкаЗапроса.ВызватьHTTPМетод("DELETE",ЗапросУдаления);
                КонецЕсли;
                
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

У меня нет объекта HTTPЗапрос, у меня 8.1

и все что есть в коде легко  работает и у меня. У меня загвоздка именно в отправке xml запроса на получение данных в УТМ и получение ответа.

Отправка POST запроса

делай через COMОбъект("WinHttp.WinHttpRequest.5.1") там всё почти один в один

у тя будет тип того

WinHttp=Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
WinHttp.Open("POST",ЗапросНаФайло,0);
WinHttp.Send();
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(WinHttp.ResponseText);
Пока ЧтениеXML.Прочитать() Цикл

УТМ заставило меня осилить XDTO пакеты. Спасибо ему за это.

:)

Один хрен, думаю, схемы до НГ еще 10 раз поменяют.
Даже сейчас , там избыточной инфы вагон

Даже поменяв местами производителя с номенклатурой местами, уменьшение xml было бы в разы.

Но у раровцев, на это мозгов не хватает, а все предложения игнорятся.

Еще и огорчаются, что их зачмырили с декларантом-алко в своё время.

теперь вот, на егаисе решили отыграться

(48) Что не так с Декларант-Алко?

(50) если честно - то всё :)
начиная от нелепого грида, в котором даже редактировать нельзя, заканчивая недоделанным импортом.
Ну а про ошибки в математике при вычислении останков, про потерянные ссылки при удалении и... много чего еще, скромно умолчу. Такие поделки студенты лепят на курсовых.

(51) "Такие поделки студенты лепят на курсовых."

А ты думаешь, там это кто-то другой лепил?

Ну и про отмазку от рара - нам за это бабло не платят, весь бюджет попилен - тоже смешно.

(52) Это врят ли, но госструктуре выпускать такие изделия для всей страны - просто позор

Поэтому, чтоб в дальнейшем такого не было, изобрели утм, там изготовление софта отдано самим "потребителям"

(51) Во сколько обошлась эта прога?

(55) +100500!

интересно только, как они собираются в егаис останки заносить. Пока не придумали, скромно так, заикаются только - что помарочно. Но на форуме приводили пример для оптового склада, если сканировать каждую марку 5 секунд, надо 170 суток непрерывно пиликать

(56) чего не знаю, того не знаю, думаю, что Рар структура не бедная ;)
Только вот, кодерам, мот и жмут бабло

Всё равно, заместо ДА могли бы тендер устроить и сделать нормальный простой и понятный софт для всей страны.

думаю, контор по изготовлению софта у нас в стране хватает

(61) а что не так с ЦентрИнформ

(62) а ДА выпустила эта контора ?
:)

тогда см. (51)

нормально и они пишут ПО

делал вот так не работает

     СтрокаBase64 = Base64Строка(Новый ДвоичныеДанные(ИмяФайлаЗапроса));
    
    WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
    РС = Символ(10)+Символ(13);
    Зп = РС+РС+"--" + Boundary + "
       |Content-Disposition: form-data; name=""xml_file""; filename=""Client.xml""
       |Content-Type: text/xml;" + РС + РС + "
       |" + СтрокаBase64 + РС + "
       |--" + Boundary + "--"+РС;

    WinHttp.Open("POST", "http://192.168.0.150:8080/opt/in/QueryPartner";, 0);
    WinHttp.SetRequestHeader("Content-Type","multipart/form-data;boundary=" + Boundary);
    WinHttp.SetRequestHeader("Content-Length", СтрДлина(Зп));
    WinHttp.SetRequestHeader("Connection", "keep-alive");
     WinHttp.SetRequestHeader("Keep-Alive", "300");
    WinHttp.Send(Зп);
    Если WinHttp.Status = 200 Тогда
       Сообщить(WinHttp.ResponseText);
    КонецЕсли;

в open у тебя не то и в сенд попробуй без параметров + хейдеры все убери, попробуй просто, как в (43)

щас проверить не начем - жакарду забрали :(

а что вторым параметром в ОПЕН передавать?

(69) у тя там точка с запятой в конце

В конфигураторе ее нет. Она здесь при копировании добавилась.

+ по-идее, еще так
WinHttp.setRequestHeader("Content-Type","text/xml");

И это, через курл , хотя бы запросы проходят ?

Нет

Вообще через curl работает.

Друзья, ответьте пожалуйста, мне же в рознице не обязательно на каждую кассу устанавливать модуль ЕГАИС с ключом? Я думаю, что логичнее установить модуль с ключом на сервер а на кассах по локалке отправлять на сервак и дальше. Верно?

(76) Да, верно.