Выгрузка сведений в ЕГИССО из 1C БГУ 2.0

27.08.25

Интеграция - Файловый обмен (TXT, XML, DBF), FTP

+3 –

Данная обработка предназначена для формирования выгрузки сведений по мерам социальной защиты в ЕГИССО. Например, компенсация части родительской платы в детских садах, она рассчитывается в БГУ 2.0 (и ее прошлой версии 1.0) и может быть выгружена при условии правильного ведения данных по контрагентам. Так же в публикации вы найдете конвертер из файлов EXCEL в формат xml ЕГИССО по разным мерам.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Выгрузка сведений в ЕГИССО из 1C БГУ 2.0: .epf 27,48Kb 20	20	4 200 руб. Купить	5 SM Скачать
Выгрузка сведений в ЕГИССО из 1C БГУ 1.0 : .epf 17,97Kb 5	5	4 200 руб. Купить	5 SM Скачать
Конвертер EXCEL 2 ЕГИССО .epf 14,53Kb 0	0	3 800 руб. Купить	4 SM Скачать

По требованиям ЕГИССО необходимы: ФИО, дата рождения, СНИЛС, пол. Меры назначаются
на основании родительских отношений. То есть получателем является родитель, лицом являющимся основанием назначения меры является ребенок. По требованиям ПФР выгрузка должна быть максимально полной - паспортные сведения, адреса, свидетельства о рождении являются обязательными (хотя временно можно загружать без них).
Данная разработка является единственной в своем роде и позволяет сформировать максимально полную выгрузку на основе имеющихся, данных. При этом обработка сама проверяет корректность снилса, правильность набивки свидетельства и паспорта, наличие даты рождения и формирует протокол выгрузки с указанием найденных ошибок по детям и родителям.
Перед началом работы требуется определить свой код меры и код ее локальной категории с помощью портала ЕГИССО и вставить его в код обработки (модуль объекта, строки 844 и 845)
Также необходимо в настройки каждого учреждения в разделе адреса добавить поле "Другая информация".

Тестировалась обработка на релизе Бухгалтерия государственного учреждения, редакция 2.0 (2.0.93.42) , но без проблем должна работать и на более ранних.

Перед началом работы сформируйте в КПИ ЕГИССО тестовый файл выгрузки для определения кодов меры.

Они прописаны жестко в коде модуля обработки:

ЕГИССО1.ДобавитьСтроку("<ns2:lmszId>46a9d517-b941-43aa-8c4e-b6d3708f7b33</ns2:lmszId>");
ЕГИССО1.ДобавитьСтроку("<ns2:categoryId>e6fdadda-4e93-4f8d-b169-45081d332215</ns2:categoryId>");

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

Основная идея кода - распарсить все имеющиеся данные, обработать ошибки, сформировать выгрузку и протокол.


Процедура ВыбПериодНажатие(Элемент)
    НастройкаПериода = Новый НастройкаПериода;
    НастройкаПериода.РедактироватьКакИнтервал = Истина;
    НастройкаПериода.РедактироватьКакПериод = Истина;
    НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
    НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));
    Если НастройкаПериода.Редактировать() Тогда
        НачПериода = НастройкаПериода.ПолучитьДатуНачала();
        КонПериода = НастройкаПериода.ПолучитьДатуОкончания();
    КонецЕсли;
КонецПроцедуры

Функция ПолучитьТолькоЦифры2(Строка) Экспорт
    Строка2 = "";
    Строка2 = СтрЗаменить(Строка, "-", "");
    Строка2 = СтрЗаменить(Строка2, " ", "");
    Возврат Строка2;
КонецФункции

// Если передено число - то истина, иначе ложь
Функция ЯвляетсяЧислом(Значение) Экспорт
    Если ТипЗнч(Значение) = Тип("Число") Тогда
        Возврат Истина
    Иначе
        Если ТипЗнч(Значение) = Тип("Строка") Тогда
            Если Значение = "" Тогда
                Возврат Ложь;
            КонецЕсли;
        КонецЕсли;

        Попытка
            Р = Число(Значение);
        Исключение
            Возврат Ложь;
        КонецПопытки;
            Возврат Истина;
    КонецЕсли;
КонецФункции

Функция ПроверкаДанныхСтрока(Значение)
    Если Значение="" тогда
        Возврат "НЕТДАННЫХ";
    иначе
        Возврат СокрЛП(СтрЗаменить(СтрЗаменить(Значение,"_","-"),"¶",""));
    конецесли
КонецФункции

Функция ПроверкаДанныхДата(Значение)
    Если Значение=Дата('00010101') или Значение='0001.01.01' или Значение="" тогда
        Возврат Дата('19000101');
    иначе
        попытка
        если Дата(Значение)>Дата('19000101') и Дата(Значение)<ТекущаяДата() тогда
        Возврат Значение;
        иначе
        Возврат Дата('19000101');
        конецесли;
        исключение
        Возврат Дата('19000101');
        конецпопытки
    конецесли
КонецФункции
Функция ПроверкаДанныхДата2(Значение)
    Если Значение=Дата('00010101') или Значение='0001.01.01' или Значение="" тогда
        Возврат Дата('19000101');
    иначе
        попытка
        если Дата(Значение)>Дата('19000101') и Дата(Значение)<ТекущаяДата() тогда
        Возврат Значение;
        иначе
        Возврат Дата('19000101');
        конецесли;
        исключение
        Возврат Дата('19000101');
        конецпопытки
    конецесли
КонецФункции


Функция АнглТоРусВсвид(Значение)
    Зн = СтрЗаменить(Значение," ","");
    Правая = ВРЕГ(Прав(Зн,2));
    //англ на русск
    Правая = СтрЗаменить(Правая,"A","А");
    Правая = СтрЗаменить(Правая,"E","Е");     
    Правая = СтрЗаменить(Правая,"T","Т");
    Правая = СтрЗаменить(Правая,"O","О");    
    Правая = СтрЗаменить(Правая,"P","Р");
    Правая = СтрЗаменить(Правая,"H","Н");
    Правая = СтрЗаменить(Правая,"K","К");
    Правая = СтрЗаменить(Правая,"X","Х");
    Правая = СтрЗаменить(Правая,"C","С");
    Правая = СтрЗаменить(Правая,"B","В");
    Правая = СтрЗаменить(Правая,"M","М");
    Правая = СтрЗаменить(Правая,"Y","У");
    Правая = СтрЗаменить(Правая,"N","И");
    Левая = ВРЕГ(ЛЕВ(Зн,СтрДлина(Зн)-2));
    //русские на англ
    Левая = СтрЗаменить(Левая,"А","A");
    Левая = СтрЗаменить(Левая,"Е","E");     
    Левая = СтрЗаменить(Левая,"Т","T");
    Левая = СтрЗаменить(Левая,"О","O");    
    Левая = СтрЗаменить(Левая,"Р","P");
    Левая = СтрЗаменить(Левая,"Н","H");
    Левая = СтрЗаменить(Левая,"К","K");
    Левая = СтрЗаменить(Левая,"Х","X");
    Левая = СтрЗаменить(Левая,"С","C");
    Левая = СтрЗаменить(Левая,"В","B");
    Левая = СтрЗаменить(Левая,"М","M");
    Левая = СтрЗаменить(Левая,"У","Y");
    Левая = СтрЗаменить(Левая,"И","N");
    
    Возврат Левая+Правая;
КонецФункции

Функция КонтрольСвид(Значение)
    Зн = СтрЗаменить(Значение," ","");
    Строки=СтрЗаменить(Зн,"-",Символы.ПС);
    Если СтрЧислоСтрок(Строки)=2 тогда
        если СтрДлина(СтрПолучитьСтроку(Строки,2))=2 тогда
            Возврат Истина;    
        иначе
            Возврат Ложь;
        конецесли
    иначе
        Возврат Ложь;
    конецесли;
КонецФункции
Функция ТолькоЧисла(СтрокаРазличныеСимволы)

    Если СтрДлина(СтрокаРазличныеСимволы) = 0 Тогда
        Возврат "";
    КонецЕсли;

    РезультатЧисло = "";
    Для а = 1 по СтрДлина(СтрокаРазличныеСимволы) Цикл
        Символ = Сред(СтрокаРазличныеСимволы, а, 1);

        Если Найти("0123456789", Символ) = 0 Тогда
            Продолжить;
        КонецЕсли;

        РезультатЧисло = "" + РезультатЧисло + Символ;
    КонецЦикла;

    Возврат РезультатЧисло;

КонецФункции
Функция КонтрольНомераСвид(Значение)
    Зн = ТолькоЧисла(Значение);
    если СтрДлина(Зн)=6 тогда
            Возврат Зн;    
        иначе
            Возврат "";
        конецесли
КонецФункции

 //Проверяет номер страхового свидетельства на соответствие требованиям ПФР
Функция СтраховойНомерПФРСоответствуетТребованиям(СтраховойНомер) Экспорт
    
    Результат = Истина;
    
    СтрокаЦифр=СтрЗаменить(Лев(СтраховойНомер,11),"-","");
    
    Если ПустаяСтрока(СтрокаЦифр) Тогда
        Возврат Ложь;
    КонецЕсли;
    
    Попытка
        П1 = Число(СтрокаЦифр);    
        КонтрольноеЧисло=Число(Прав(СтраховойНомер,2));
    Исключение
        Возврат Ложь;
    КонецПопытки; 
    
    Если Число(Лев(СтрокаЦифр,9)) > 1001998 Тогда
        Всего=0;
        Для Сч = 1 По 9 Цикл
            Всего=Всего+Число(Сред(СтрокаЦифр,10-Сч,1))*Сч
        КонецЦикла;
        Остаток=Всего%101;
        Остаток=?(Остаток=100,0,Остаток);
        Если Остаток<>КонтрольноеЧисло Тогда
            Результат = Ложь;
        КонецЕсли;
    КонецЕсли;
    
    если СтрДлина(ПолучитьТолькоЦифры2(СтраховойНомер))<>11 тогда
        Результат = Ложь;    
    конецесли;
    
    Возврат Результат;
    
КонецФункции 

// Функция определяет пол работника по его отчеству
Функция ПолучитьПол(ОтчествоРаботника) Экспорт
    Если Прав(ОтчествоРаботника, 2) = "ич" Тогда
        Возврат "Male";
    ИначеЕсли Прав(ОтчествоРаботника, 2) = "на" Тогда
        Возврат "Female";
    КонецЕсли;
    Возврат "";    
КонецФункции // ПолучитьПол()

Функция КонтрольФиоДаты(Фам,Имя,Отч,ДатаП)
    если Фам="" тогда
    Возврат Ложь;    
    конецесли;
    если Имя="" тогда
    Возврат Ложь;    
    конецесли;
    если Отч="" тогда
    Возврат Ложь;    
    конецесли;
    если ПроверкаДанныхДата2(ДатаП)=Дата('19000101') тогда
    Возврат Ложь;    
    конецесли;
Возврат Истина;
конецфункции

Процедура ОсновныеДействияФормыДействие(Кнопка)
    // Вставить содержимое обработчика.
    ЧислоСтрок1=0;
ЕГИССО1 = Новый ТекстовыйДокумент;
ЕГИССО1.УстановитьТипФайла(КодировкаТекста.UTF8);
ЕГИССО1.Очистить();
ОшибкиПоЛюдям = Новый ТекстовыйДокумент;
ОшибкиПоЛюдям.УстановитьТипФайла(КодировкаТекста.ANSI);
ОшибкиПоЛюдям.Очистить();

ЕГИССО1.ДобавитьСтроку("<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>");
ЕГИССО1.ДобавитьСтроку("<ns7:data xmlns=""urn://egisso-ru/types/package-RAF/1.0.9"" xmlns:ns2=""urn://egisso-ru/types/assignment-fact/1.0.8"" xmlns:ns3=""urn://egisso-ru/types/prsn-info/1.0.4"" xmlns:ns4=""urn://x-artefacts-smev-gov-ru/supplementary/commons/1.0.1"" xmlns:ns5=""urn://egisso-ru/types/basic/1.0.8"" xmlns:ns6=""urn://egisso-ru/types/prsn-basis/1.0.2"" xmlns:ns7=""urn://egisso-ru/msg/10.06.S/1.0.8"">");
ЕГИССО1.ДобавитьСтроку("<package>");
гуид = Новый УникальныйИдентификатор();
ЕГИССО1.ДобавитьСтроку("<packageId>"+гуид+"</packageId>");
ЕГИССО1.ДобавитьСтроку("<elements>");
Выборка = Документы.РП_РасчетКомпенсацииРодительскойПлаты.Выбрать(НачПериода,КонПериода);

Пока Выборка.Следующий()  Цикл

Док = Выборка.Ссылка.ПолучитьОбъект();
//Сообщить(Док.Учреждение);
Если Док.Проведен=Истина и Док.ПометкаУдаления=Ложь и Док.Учреждение=Организация тогда
    
    Для каждого Стр из Док.РасчетКомпенсации Цикл
    сум=сокрлп(строка(цел(стр.СуммаКомпенсации)));
    кл= Найти(сум," ");
    л=стрдлина(сум);
    сум1=лев(сум,кл-1)+прав(сум,л-кл);
    коп=строка((стр.СуммаКомпенсации-цел(стр.СуммаКомпенсации))*100);
    если стрдлина(коп)<2 тогда
        коп="0"+коп;
    конецесли;
    сум=сум1+","+коп;    
    если сум <> "0,00" тогда

    к1=КонтрольФиоДаты(Стр.Плательщик.Фамилия,Стр.Плательщик.Имя,Стр.Плательщик.Отчество,РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    к2=КонтрольФиоДаты(Стр.Ребенок.Контрагент.Фамилия,Стр.Ребенок.Контрагент.Имя,Стр.Ребенок.Контрагент.Отчество,РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    если к1 и к2 тогда 
    если СтраховойНомерПФРСоответствуетТребованиям(Стр.Плательщик.СтраховойНомерПФР) и СтраховойНомерПФРСоответствуетТребованиям(Стр.Ребенок.Контрагент.СтраховойНомерПФР) тогда
        
    ЕГИССО1.ДобавитьСтроку("<fact>");
    ЕГИССО1.ДобавитьСтроку("<ns2:oszCode>"+ПолеВвода1+"</ns2:oszCode>");
    ЕГИССО1.ДобавитьСтроку("<ns2:mszReceiver>");
    ЕГИССО1.ДобавитьСтроку("<ns3:SNILS>"+ПолучитьТолькоЦифры2(Стр.Плательщик.СтраховойНомерПФР)+"</ns3:SNILS>");
    ЕГИССО1.ДобавитьСтроку("<ns4:FamilyName>"+СокрЛП(Стр.Плательщик.Фамилия)+"</ns4:FamilyName>");
    ЕГИССО1.ДобавитьСтроку("<ns4:FirstName>"+СокрЛП(Стр.Плательщик.Имя)+"</ns4:FirstName>");
    ЕГИССО1.ДобавитьСтроку("<ns4:Patronymic>"+ПроверкаДанныхСтрока(СокрЛП(Стр.Плательщик.Отчество))+"</ns4:Patronymic>");
    
    если ПолучитьПол(Стр.Плательщик.Отчество)="" тогда
    если Строка(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.Пол)).ЗначениеХарактеристики)="Мужской" тогда
    ЕГИССО1.ДобавитьСтроку("<ns3:Gender>Male</ns3:Gender>");
    иначе
    ЕГИССО1.ДобавитьСтроку("<ns3:Gender>Female</ns3:Gender>");    
    конецесли;
    иначе
    ЕГИССО1.ДобавитьСтроку("<ns3:Gender>"+ПолучитьПол(Стр.Плательщик.Отчество)+"</ns3:Gender>");    
    конецесли;

    стрдат=РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики;
    ЕГИССО1.ДобавитьСтроку("<ns3:BirthDate>"+Формат(ПроверкаДанныхДата(стрдат),"ДФ=yyyy-MM-dd")+"+03:00</ns3:BirthDate>");
    ЕГИССО1.ДобавитьСтроку("<ns3:BirthPlace>"+ПроверкаДанныхСтрока(СокрЛП(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.МестоРождения)).ЗначениеХарактеристики))+"</ns3:BirthPlace>");
    ЕГИССО1.ДобавитьСтроку("<ns3:Citizenship>"+"643"+"</ns3:Citizenship>");    
    
    //Сообщить(Стр.ПроцентКомпенсации);
    //Сообщить(Стр.СуммаКомпенсации);    
    //Сообщить(Стр.Плательщик.Фамилия+" "+Стр.Плательщик.Имя+" "+Стр.Плательщик.Отчество);
    //Сообщить(ПолучитьТолькоЦифры2(Стр.Плательщик.СтраховойНомерПФР));  
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.Пол)).ЗначениеХарактеристики);
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.МестоРождения)).ЗначениеХарактеристики);
    ФильтрПаспорт = Новый Структура("ФизЛицо",Стр.Плательщик);
    Результат = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(ТекущаяДата(),ФильтрПаспорт);
    //Сообщить(Результат["ДокументВид"]);
    //Сообщить(Результат["ДокументСерия"]);
    //Сообщить(Результат["ДокументНомер"]);
    //Сообщить(Результат["ДокументКемВыдан"]);
    //Сообщить(Результат["ДокументДатаВыдачи"]);
    
    ЕГИССО1.ДобавитьСтроку("<ns3:IdentityDoc>");
    Если Результат["ДокументВид"].Наименование = "Паспорт гражданина России" или Результат["ДокументВид"].Наименование = "Паспорт гражданина Российской Федерации" тогда 
    ЕГИССО1.ДобавитьСтроку("<ns5:PassportRF>");
    контрольсерии = ТолькоЧисла(Результат["ДокументСерия"]);контрольномера = ТолькоЧисла(Результат["ДокументНомер"]);
    Если СтрДлина(контрольсерии)=4 и СтрДлина(контрольномера)=6 тогда
        ЕГИССО1.ДобавитьСтроку("<ns5:Series>"+контрольсерии+"</ns5:Series>");
        ЕГИССО1.ДобавитьСтроку("<ns5:Number>"+контрольномера+"</ns5:Number>");
    иначе
        ЕГИССО1.ДобавитьСтроку("<ns5:Series>"+"1234"+"</ns5:Series>");
        ЕГИССО1.ДобавитьСтроку("<ns5:Number>"+"123456"+"</ns5:Number>");
        ТекстТ = ОшибкиПоЛюдям.ПолучитьТекст();
        если Найти(ТекстТ,"Проблема ПАСПОРТА плательщика "+Стр.Плательщик.Код)=0 тогда
            ОшибкиПоЛюдям.ДобавитьСтроку("Проблема ПАСПОРТА плательщика "+Стр.Плательщик.Код);
        конецесли;
    конецесли;
    ЕГИССО1.ДобавитьСтроку("<ns5:IssueDate>"+Формат(ПроверкаДанныхДата(Результат["ДокументДатаВыдачи"]),"ДФ=yyyy-MM-dd")+"+03:00</ns5:IssueDate>");
    ЕГИССО1.ДобавитьСтроку("<ns5:Issuer>"+ПроверкаДанныхСтрока(Результат["ДокументКемВыдан"])+"</ns5:Issuer>");
    ЕГИССО1.ДобавитьСтроку("</ns5:PassportRF>");
    иначе 
    ЕГИССО1.ДобавитьСтроку("<ns5:ForeignPassport>");
    ЕГИССО1.ДобавитьСтроку("<ns5:Series>"+ПроверкаДанныхСтрока(Результат["ДокументСерия"])+"</ns5:Series>");
    ЕГИССО1.ДобавитьСтроку("<ns5:Number>"+ПроверкаДанныхСтрока(Результат["ДокументНомер"])+"</ns5:Number>");
    ЕГИССО1.ДобавитьСтроку("<ns5:IssueDate>"+Формат(ПроверкаДанныхДата(Результат["ДокументДатаВыдачи"]),"ДФ=yyyy-MM-dd")+"+03:00</ns5:IssueDate>");
    ЕГИССО1.ДобавитьСтроку("<ns5:Issuer>"+ПроверкаДанныхСтрока(Результат["ДокументКемВыдан"])+"</ns5:Issuer>");
    ЕГИССО1.ДобавитьСтроку("</ns5:ForeignPassport>");    
    конецесли;
    ЕГИССО1.ДобавитьСтроку("</ns3:IdentityDoc>");    

    //
    НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
    УправлениеКонтактнойИнформацией.ПрочитатьКонтактнуюИнформацию(НаборЗаписей, Стр.Плательщик);
    //Сообщить(НаборЗаписей[0].Представление);
Строки = СтрЗаменить(НаборЗаписей[0].Представление,",",Символы.ПС);
КоличествоСтрок = СтрЧислоСтрок(Строки);
деревня = "";
область = "";
район = "";
дом = "дом";
город = "";
село = "";
поселок = "";
квартира = "";
корпус = "";
улица = "ул";
индекс = "654321";
Если КоличествоСтрок>1 Тогда
Для А = 1 По КоличествоСтрок Цикл
    подстрока1 = СтрПолучитьСтроку(Строки, А);
            подстрока1 = СтрЗаменить(подстрока1,".",". ");
    подподстроки=СтрЗаменить(подстрока1," ",Символы.ПС);
    КоличествоПодПодСтрок = СтрЧислоСтрок(подподстроки);
    Для Б = 1 По КоличествоПодПодСтрок Цикл
        илимент = СтрПолучитьСтроку(подподстроки, Б);
        Если илимент<>"" тогда
        Если ЯвляетсяЧислом(илимент) И КоличествоПодПодСтрок=1 тогда
        //Сообщить("Вроде индекс "+илимент);
        индекс = илимент;
        иначе
        //Сообщить("Что то другое "+илимент);
            Если илимент="обл" или илимент="обл." или илимент="область" тогда
              //Сообщить("Нашли область "+подстрока1);
              область = подстрока1;
              конецесли;
              Если илимент="р-н" или илимент="район" или илимент="р-н."или илимент="округ" тогда
              //Сообщить("Нашли район "+подстрока1);
              район = подстрока1;
            конецесли;
              Если илимент="г" или илимент="г." или илимент="гор"или илимент="гор." тогда
              //Сообщить("Нашли город "+подстрока1);
              город = подстрока1;
            конецесли;
              Если илимент="п" или илимент="пос." или илимент="п." или илимент="пос" или илимент="поселение"или илимент="гп"или илимент="сп."или илимент="рп"  тогда
              //Сообщить("Нашли поселок "+подстрока1);
              поселок = подстрока1;
            конецесли;
              Если илимент="с" или илимент="село" или илимент="с." тогда
              //Сообщить("Нашли село "+подстрока1);
              село = подстрока1;
            конецесли;
              Если илимент="д" или илимент="деревня" или илимент="д." или илимент="дер" или илимент="дер."  тогда
                если деревня = "" и город = ""и поселок = "" тогда
                //Сообщить("Нашли деревню "+подстрока1);
                деревня = подстрока1;
                иначе
                //Сообщить("Нашли дом "+подстрока1);
                дом = подстрока1;
                конецесли;
            конецесли;        
              Если илимент="ул" или илимент="улица" или илимент="ул." или илимент="проезд" или илимент= "пр-кт"или илимент= "проспект"или илимент= "мкр"или илимент= "квартал"или илимент= "шоссе" тогда
              //Сообщить("Нашли улицу "+подстрока1);
              улица = подстрока1;
              конецесли;
            Если илимент="дом" тогда
              //Сообщить("Нашли дом "+подстрока1);
              дом = подстрока1;
          конецесли;
            Если илимент="корпус" или илимент="корп." или илимент="корп" тогда
              //Сообщить("Нашли корпус "+подстрока1);
              корпстр = СтрЗаменить(подстрока1," ",Символы.ПС);
              корпус = СтрПолучитьСтроку(корпстр,СтрЧислоСтрок(корпстр)); 
            конецесли;
            Если илимент="кв" или илимент="кв." или илимент="квартира" тогда
              //Сообщить("Нашли квартиру "+подстрока1);
              квстроки=СтрЗаменить(подстрока1," ",Символы.ПС);
              квартира = СтрПолучитьСтроку(квстроки,СтрЧислоСтрок(квстроки));//подстрока1;
            конецесли;
        конецесли
    конецесли    
КонецЦикла
КонецЦикла;
Иначе
поселок=НаборЗаписей[0].Представление;
КонецЕсли;
//Сообщить(индекс+" "+область+" "+район+" "+город+" "+село+" "+поселок+" "+деревня+" "+улица+" "+дом+" "+корпус+" "+квартира);
если СтрДлина(индекс)<>6 тогда индекс = "654321"; конецесли;
если СтрДлина(дом)>10 тогда дом = Прав(дом,10); конецесли;
если СтрДлина(квартира)>10 тогда квартира = Прав(квартира,10); конецесли;

ЕГИССО1.ДобавитьСтроку("<ns3:Address>");
ЕГИССО1.ДобавитьСтроку("<ns3:PermanentResidence>");
ЕГИССО1.ДобавитьСтроку("<ns5:OKSMCode>643</ns5:OKSMCode>");
ЕГИССО1.ДобавитьСтроку("<ns5:PostIndex>"+индекс+"</ns5:PostIndex>");
ЕГИССО1.ДобавитьСтроку("<ns5:Region>"+область+"</ns5:Region>");
ЕГИССО1.ДобавитьСтроку("<ns5:District>"+район+"</ns5:District>");
ЕГИССО1.ДобавитьСтроку("<ns5:City>"+город+" "+село+" "+поселок+" "+деревня+"</ns5:City>");
ЕГИССО1.ДобавитьСтроку("<ns5:Street>"+улица+"</ns5:Street>");
ЕГИССО1.ДобавитьСтроку("<ns5:House>"+дом+"</ns5:House>");
ЕГИССО1.ДобавитьСтроку("<ns5:Housing>"+СокрЛП(корпус)+"</ns5:Housing>");
ЕГИССО1.ДобавитьСтроку("<ns5:Apartment>"+квартира+"</ns5:Apartment>");
ЕГИССО1.ДобавитьСтроку("</ns3:PermanentResidence>");
ЕГИССО1.ДобавитьСтроку("</ns3:Address>");
ЕГИССО1.ДобавитьСтроку("</ns2:mszReceiver>");
    //    
    //Сообщить(Стр.Ребенок.Контрагент.Фамилия+" "+Стр.Ребенок.Контрагент.Имя+" "+Стр.Ребенок.Контрагент.Отчество);
    //Сообщить(ПолучитьТолькоЦифры2(Стр.Ребенок.Контрагент.СтраховойНомерПФР));
    //    
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.Пол)).ЗначениеХарактеристики);
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    //Сообщить(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.МестоРождения)).ЗначениеХарактеристики);    
    //    
ЕГИССО1.ДобавитьСтроку("<ns2:reasonPersons>");
ЕГИССО1.ДобавитьСтроку("<ns6:basisPerson>");
ЕГИССО1.ДобавитьСтроку("<ns3:prsnInfo>");
ЕГИССО1.ДобавитьСтроку("<ns3:SNILS>"+ПолучитьТолькоЦифры2(Стр.Ребенок.Контрагент.СтраховойНомерПФР)+"</ns3:SNILS>");
ЕГИССО1.ДобавитьСтроку("<ns4:FamilyName>"+СокрЛП(Стр.Ребенок.Контрагент.Фамилия)+"</ns4:FamilyName>");
ЕГИССО1.ДобавитьСтроку("<ns4:FirstName>"+СокрЛП(Стр.Ребенок.Контрагент.Имя)+"</ns4:FirstName>");
ЕГИССО1.ДобавитьСтроку("<ns4:Patronymic>"+ПроверкаДанныхСтрока(СокрЛП(Стр.Ребенок.Контрагент.Отчество))+"</ns4:Patronymic>");

если ПолучитьПол(Стр.Ребенок.Контрагент.Отчество)="" тогда
если Строка(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.Пол)).ЗначениеХарактеристики)="Мужской" тогда
ЕГИССО1.ДобавитьСтроку("<ns3:Gender>Male</ns3:Gender>");
иначе
ЕГИССО1.ДобавитьСтроку("<ns3:Gender>Female</ns3:Gender>");
конецесли;
иначе
ЕГИССО1.ДобавитьСтроку("<ns3:Gender>"+ПолучитьПол(Стр.Ребенок.Контрагент.Отчество)+"</ns3:Gender>");
конецесли;

стрдат2=РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики;
ЕГИССО1.ДобавитьСтроку("<ns3:BirthDate>"+Формат(ПроверкаДанныхДата(стрдат2),"ДФ=yyyy-MM-dd")+"+03:00</ns3:BirthDate>");
ЕГИССО1.ДобавитьСтроку("<ns3:BirthPlace>"+ПроверкаДанныхСтрока(СокрЛП(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.МестоРождения)).ЗначениеХарактеристики))+"</ns3:BirthPlace>");
ЕГИССО1.ДобавитьСтроку("<ns3:Citizenship>643</ns3:Citizenship>");
    
    ФильтрПаспорт = Новый Структура("ФизЛицо",Стр.Ребенок.Контрагент);
    Результат = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(ТекущаяДата(),ФильтрПаспорт);
    //Сообщить(Результат["ДокументВид"]);

    //Сообщить(Результат["ДокументСерия"]);
    //Сообщить(Результат["ДокументНомер"]);
    //Сообщить(Результат["ДокументКемВыдан"]);
    //Сообщить(Результат["ДокументДатаВыдачи"]);    
    
ЕГИССО1.ДобавитьСтроку("<ns3:IdentityDoc>");
если Результат["ДокументВид"].Наименование="Свидетельство о рождении" тогда
    резконтролясвид=КонтрольНомераСвид(Результат["ДокументНомер"]);
    если не КонтрольСвид(СокрЛП(Результат["ДокументСерия"])) или резконтролясвид="" тогда
        ТекстТ=ОшибкиПоЛюдям.ПолучитьТекст();
        резконтролясвид="123456";
        если Найти(ТекстТ,"Проблема СВИДЕТЕЛЬСТВА "+Стр.Ребенок.Контрагент.Код)=0 тогда
            ОшибкиПоЛюдям.ДобавитьСтроку("Проблема СВИДЕТЕЛЬСТВА "+Стр.Ребенок.Контрагент.Код);    
        конецесли;
    конецесли;
ЕГИССО1.ДобавитьСтроку("<ns5:BirthCertificate>");
ЕГИССО1.ДобавитьСтроку("<ns5:Series>"+АнглТоРусВсвид(СокрЛП(Результат["ДокументСерия"]))+"</ns5:Series>");
ЕГИССО1.ДобавитьСтроку("<ns5:Number>"+резконтролясвид+"</ns5:Number>");
ЕГИССО1.ДобавитьСтроку("<ns5:IssueDate>"+Формат(ПроверкаДанныхДата(Результат["ДокументДатаВыдачи"]),"ДФ=yyyy-MM-dd")+"+03:00</ns5:IssueDate>");
ЕГИССО1.ДобавитьСтроку("<ns5:Issuer>"+ПроверкаДанныхСтрока(Результат["ДокументКемВыдан"])+"</ns5:Issuer>");
ЕГИССО1.ДобавитьСтроку("</ns5:BirthCertificate>");
иначе
ЕГИССО1.ДобавитьСтроку("<ns3:OtherDocument>");
ЕГИССО1.ДобавитьСтроку("<ns5:Series>"+ПроверкаДанныхСтрока(Результат["ДокументСерия"])+"</ns5:Series>");
ЕГИССО1.ДобавитьСтроку("<ns5:Number>"+ПроверкаДанныхСтрока(Результат["ДокументНомер"])+"</ns5:Number>");
ЕГИССО1.ДобавитьСтроку("<ns5:IssueDate>"+Формат(ПроверкаДанныхДата(Результат["ДокументДатаВыдачи"]),"ДФ=yyyy-MM-dd")+"+03:00</ns5:IssueDate>");
ЕГИССО1.ДобавитьСтроку("<ns5:Issuer>"+ПроверкаДанныхСтрока(Результат["ДокументКемВыдан"])+"</ns5:Issuer>");
ЕГИССО1.ДобавитьСтроку("</ns3:OtherDocument>");
конецесли;
ЕГИССО1.ДобавитьСтроку("</ns3:IdentityDoc>");

    //ФильтрПаспорт = Новый Структура("ФизическоеЛицо",Стр.Ребенок.Контрагент);
    //Результат = РегистрыСведений.ГражданствоФизическихЛиц.ПолучитьПоследнее(ТекущаяДата(),ФильтрПаспорт);
    //Сообщить(Результат["Страна"]);  //Справочники.КлассификаторСтранМира.РОССИЯ
    
    НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
    УправлениеКонтактнойИнформацией.ПрочитатьКонтактнуюИнформацию(НаборЗаписей, Стр.Ребенок.Контрагент);
    //Сообщить(НаборЗаписей[0].Представление);
Строки = СтрЗаменить(НаборЗаписей[0].Представление,",",Символы.ПС);

КоличествоСтрок = СтрЧислоСтрок(Строки);
деревня = "";
область = "";
район = "";
дом = "дом";
город = "";
село = "";
поселок = "";
квартира = "";
корпус = "";
улица = "ул";
индекс = "654321";
Если КоличествоСтрок>1 Тогда
Для А = 1 По КоличествоСтрок Цикл
    подстрока1 = СтрПолучитьСтроку(Строки, А);
            подстрока1 = СтрЗаменить(подстрока1,".",". ");
    подподстроки=СтрЗаменить(подстрока1," ",Символы.ПС);
    КоличествоПодПодСтрок = СтрЧислоСтрок(подподстроки);
    Для Б = 1 По КоличествоПодПодСтрок Цикл
        илимент = СтрПолучитьСтроку(подподстроки, Б);
        Если илимент<>"" тогда
        Если ЯвляетсяЧислом(илимент) И КоличествоПодПодСтрок=1 тогда
        //Сообщить("Вроде индекс "+илимент);
        индекс = илимент;
        иначе
        //Сообщить("Что то другое "+илимент);
            Если илимент="обл" или илимент="обл." или илимент="область" тогда
              //Сообщить("Нашли область "+подстрока1);
              область = подстрока1;
              конецесли;
              Если илимент="р-н" или илимент="район" или илимент="р-н."или илимент="округ" тогда
              //Сообщить("Нашли район "+подстрока1);
              район = подстрока1;
            конецесли;
              Если илимент="г" или илимент="г." или илимент="гор"или илимент="гор." тогда
              //Сообщить("Нашли город "+подстрока1);
              город = подстрока1;
            конецесли;
              Если илимент="п" или илимент="пос." или илимент="п." или илимент="пос" или илимент="поселение"или илимент="гп"или илимент="сп."или илимент="рп"  тогда
              //Сообщить("Нашли поселок "+подстрока1);
              поселок = подстрока1;
            конецесли;
              Если илимент="с" или илимент="село" или илимент="с." тогда
              //Сообщить("Нашли село "+подстрока1);
              село = подстрока1;
            конецесли;
              Если илимент="д" или илимент="деревня" или илимент="д." или илимент="дер" или илимент="дер."  тогда
                если деревня = "" и город = ""и поселок = "" тогда
                //Сообщить("Нашли деревню "+подстрока1);
                деревня = подстрока1;
                иначе
                //Сообщить("Нашли дом "+подстрока1);
                дом = подстрока1;
                конецесли;
            конецесли;        
              Если илимент="ул" или илимент="улица" или илимент="ул." или илимент="проезд" или илимент= "пр-кт"или илимент= "проспект"или илимент= "мкр"или илимент= "квартал"или илимент= "шоссе" тогда
              //Сообщить("Нашли улицу "+подстрока1);
              улица = подстрока1;
              конецесли;
            Если илимент="дом" тогда
              //Сообщить("Нашли дом "+подстрока1);
              дом = подстрока1;
          конецесли;
            Если илимент="корпус" или илимент="корп." или илимент="корп" тогда
              //Сообщить("Нашли корпус "+подстрока1);
              корпстр = СтрЗаменить(подстрока1," ",Символы.ПС);
              корпус = СтрПолучитьСтроку(корпстр,СтрЧислоСтрок(корпстр));
            конецесли;
            Если илимент="кв" или илимент="кв." или илимент="квартира" тогда
              //Сообщить("Нашли квартиру "+подстрока1);
              квстроки=СтрЗаменить(подстрока1," ",Символы.ПС);
              квартира = СтрПолучитьСтроку(квстроки,СтрЧислоСтрок(квстроки));//подстрока1;
            конецесли;
        конецесли
    конецесли    
КонецЦикла
КонецЦикла;
Иначе
поселок=НаборЗаписей[0].Представление;
КонецЕсли;
//Сообщить(индекс+" "+область+" "+район+" "+город+" "+село+" "+поселок+" "+деревня+" "+улица+" "+дом+" "+корпус+" "+квартира);
если СтрДлина(индекс)<>6 тогда индекс = "654321"; конецесли;
если СтрДлина(дом)>10 тогда дом = Прав(дом,10); конецесли;
если СтрДлина(квартира)>10 тогда квартира = Прав(квартира,10); конецесли;

ЕГИССО1.ДобавитьСтроку("<ns3:Address>");
ЕГИССО1.ДобавитьСтроку("<ns3:PermanentResidence>");
ЕГИССО1.ДобавитьСтроку("<ns5:OKSMCode>643</ns5:OKSMCode>");
ЕГИССО1.ДобавитьСтроку("<ns5:PostIndex>"+индекс+"</ns5:PostIndex>");
ЕГИССО1.ДобавитьСтроку("<ns5:Region>"+область+"</ns5:Region>");
ЕГИССО1.ДобавитьСтроку("<ns5:District>"+район+"</ns5:District>");
ЕГИССО1.ДобавитьСтроку("<ns5:City>"+город+село+поселок+деревня+"</ns5:City>");
ЕГИССО1.ДобавитьСтроку("<ns5:Street>"+улица+"</ns5:Street>");
ЕГИССО1.ДобавитьСтроку("<ns5:House>"+дом+"</ns5:House>");
ЕГИССО1.ДобавитьСтроку("<ns5:Housing>"+СокрЛП(корпус)+"</ns5:Housing>");
ЕГИССО1.ДобавитьСтроку("<ns5:Apartment>"+квартира+"</ns5:Apartment>");
ЕГИССО1.ДобавитьСтроку("</ns3:PermanentResidence>");
ЕГИССО1.ДобавитьСтроку("</ns3:Address>");
ЕГИССО1.ДобавитьСтроку("</ns3:prsnInfo>");

если ПолучитьПол(Стр.Ребенок.Контрагент.Отчество)="" тогда
если Строка(РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.Пол)).ЗначениеХарактеристики)="Мужской" тогда
ЕГИССО1.ДобавитьСтроку("<ns6:kinshipTypeCode>0411011</ns6:kinshipTypeCode>");
иначе
ЕГИССО1.ДобавитьСтроку("<ns6:kinshipTypeCode>0421011</ns6:kinshipTypeCode>");
конецесли;
иначе
если ПолучитьПол(Стр.Ребенок.Контрагент.Отчество)="Male" тогда
ЕГИССО1.ДобавитьСтроку("<ns6:kinshipTypeCode>0411011</ns6:kinshipTypeCode>");
иначе
ЕГИССО1.ДобавитьСтроку("<ns6:kinshipTypeCode>0421011</ns6:kinshipTypeCode>");
конецесли;
конецесли;

ЕГИССО1.ДобавитьСтроку("</ns6:basisPerson>");
ЕГИССО1.ДобавитьСтроку("</ns2:reasonPersons>");
ЕГИССО1.ДобавитьСтроку("<ns2:lmszId>46a9d517-b941-43aa-8c4e-b6d3708f7b33</ns2:lmszId>");
ЕГИССО1.ДобавитьСтроку("<ns2:categoryId>e6fdadda-4e93-4f8d-b169-45081d332215</ns2:categoryId>");
ЕГИССО1.ДобавитьСтроку("<ns2:decisionDate>"+Формат(НачалоМесяца(Док.Дата),"ДФ=yyyy-MM-dd")+"+03:00</ns2:decisionDate>");
ЕГИССО1.ДобавитьСтроку("<ns2:dateStart>"+Формат(НачалоМесяца(Док.Дата),"ДФ=yyyy-MM-dd")+"+03:00</ns2:dateStart>");
ЕГИССО1.ДобавитьСтроку("<ns2:dateFinish>"+Формат(КонецМесяца(Док.Дата),"ДФ=yyyy-MM-dd")+"+03:00</ns2:dateFinish>");

ЕГИССО1.ДобавитьСтроку("<ns2:documents>");
ЕГИССО1.ДобавитьСтроку("<ns2:document>");
ЕГИССО1.ДобавитьСтроку("<ns2:title>"+ДокПраво+"</ns2:title>");
ЕГИССО1.ДобавитьСтроку("<ns2:series>"+СерияДок+"</ns2:series>");
ЕГИССО1.ДобавитьСтроку("<ns2:number>"+НомерДок+"</ns2:number>");
ЕГИССО1.ДобавитьСтроку("<ns2:issueDate>"+ДатаДок+"+03:00</ns2:issueDate>");
ЕГИССО1.ДобавитьСтроку("<ns2:authority>"+ДокОрган+"</ns2:authority>");
ЕГИССО1.ДобавитьСтроку("<ns2:startDate>"+ДатаДок+"+03:00</ns2:startDate>");
ЕГИССО1.ДобавитьСтроку("</ns2:document>");
ЕГИССО1.ДобавитьСтроку("</ns2:documents>");
ЕГИССО1.ДобавитьСтроку("<ns2:needsCriteria>");
ЕГИССО1.ДобавитьСтроку("<ns2:usingSign>false</ns2:usingSign>");
ЕГИССО1.ДобавитьСтроку("</ns2:needsCriteria>");
ЕГИССО1.ДобавитьСтроку("<ns2:assignmentInfo>");
ЕГИССО1.ДобавитьСтроку("<ns2:exemptionForm>");
ЕГИССО1.ДобавитьСтроку("<ns2:amount>"+Стр.ПроцентКомпенсации+"</ns2:amount>");
ЕГИССО1.ДобавитьСтроку("<ns2:measuryCode>05</ns2:measuryCode>");
ЕГИССО1.ДобавитьСтроку("<ns2:monetization>true</ns2:monetization>");
ЕГИССО1.ДобавитьСтроку("<ns2:comment>выгрузка из 1С 8.3 БГУ</ns2:comment>");
ЕГИССО1.ДобавитьСтроку("<ns2:equivalentAmount>"+СтрЗаменить(сум,",",".")+"</ns2:equivalentAmount>");   
ЕГИССО1.ДобавитьСтроку("</ns2:exemptionForm>");
ЕГИССО1.ДобавитьСтроку("</ns2:assignmentInfo>");
гуид = Новый УникальныйИдентификатор();
ЕГИССО1.ДобавитьСтроку("<uuid>"+гуид+"</uuid>");
ЕГИССО1.ДобавитьСтроку("</fact>");
//Сообщить("---------------------------------------------"); 
ЧислоСтрок1=ЧислоСтрок1+1;
Сообщить(ЧислоСтрок1);
иначе
ТекстТ = ОшибкиПоЛюдям.ПолучитьТекст();
если Найти(ТекстТ,Стр.Плательщик.Код)=0 и Найти(ТекстТ,Стр.Ребенок.Контрагент.Код)=0 тогда
    если СтраховойНомерПФРСоответствуетТребованиям(Стр.Плательщик.СтраховойНомерПФР)=Ложь тогда 
        ОшибкиПоЛюдям.ДобавитьСтроку("Проблема снилса плательщика "+Стр.Плательщик.СтраховойНомерПФР+" "+Стр.Плательщик.Код+" "+Стр.Плательщик);
    конецесли;
    если СтраховойНомерПФРСоответствуетТребованиям(Стр.Ребенок.Контрагент.СтраховойНомерПФР)=Ложь тогда 
        ОшибкиПоЛюдям.ДобавитьСтроку("Проблема снилса ребенка "+Стр.Ребенок.Контрагент.Код+" "+Стр.Ребенок.Контрагент.СтраховойНомерПФР+" "+Стр.Ребенок);
    конецесли;
конецесли;
конецесли;    
иначе
//ошибка первичных данных плательщика или ребенка
ТекстТ = ОшибкиПоЛюдям.ПолучитьТекст();
если Найти(ТекстТ,"Ошибка пер. данных плательщика "+Стр.Плательщик.Код)=0 и Найти(ТекстТ,"Ошибка пер. данных ребенка "+Стр.Ребенок.Контрагент.Код)=0 тогда
    если не к1 тогда 
        ОшибкиПоЛюдям.ДобавитьСтроку("Ошибка пер. данных плательщика "+Стр.Плательщик.Код+" "+Стр.Плательщик.Фамилия+"-"+Стр.Плательщик.Имя+"-"+Стр.Плательщик.Отчество+" "+РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Плательщик, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    конецесли;
    если не к2 тогда 
        ОшибкиПоЛюдям.ДобавитьСтроку("Ошибка пер. данных ребенка "+Стр.Ребенок.Контрагент.Код+" "+Стр.Ребенок.Контрагент.Фамилия+"-"+Стр.Ребенок.Контрагент.Имя+"-"+Стр.Ребенок.Контрагент.Отчество+" "+РегистрыСведений.ХарактеристикиКонтрагентов.Получить(Новый Структура("Контрагент, ВидХарактеристики", Стр.Ребенок.Контрагент, ПланыВидовХарактеристик.ВидыХарактеристикКонтрагентов.ДатаРождения)).ЗначениеХарактеристики);
    конецесли;
конецесли;
конецесли;

конецесли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
ЕГИССО1.ДобавитьСтроку("</elements>");
ЕГИССО1.ДобавитьСтроку("</package>");
ЕГИССО1.ДобавитьСтроку("</ns7:data>");
ЕГИССО1.Записать(Файл+"1057774318-10.06.S-"+Формат(ТекущаяДата(),"ДФ=yyyy-MM-ddTчч-мм-сс")+".xml");
ОшибкиПоЛюдям.Записать(Файл+"ошибки-10.06.S-"+Формат(ТекущаяДата(),"ДФ=yyyy-MM-ddTчч-мм-сс")+".txt");
КонецПроцедуры

Процедура ПриОткрытии()
    // Вставить содержимое обработчика.
    ПолеВвода1 = "0398.000001";
    ДокОрган = "Государственная Дума Российской Федерации";
    ДатаДок = "2012-12-29";
    ДокПраво = "Закон Об образовании в Российской Федерации";
    НомерДок = "273-ФЗ";
КонецПроцедуры

Пожелания по развитию продукта принимаются через комментарии к публикации.
Если пожелания будут массово востребованы среди пользователей продукта, мы их реализуем в продукте для всех.

Фоновая работа реализована через БСП, требуется регистрация обработки стандартным способом через администрирование в дополнительных отчётах и обработках.

После регистрации запуск возможен любым удобным способом.

Итог работы:

Вид протокола:

UPD 03.07.2025

Дошли руки - сделал конвертер из EXCEL файлов в xml ЕГИССО.

Формат имен файлов такой

"0398.000001 ЕДВ шаблонМеры ноябрь 2024 .xls" - для мер по выплатам на детей инвалидов

"0398.000001 ОПЕКАЕМЫЕ май 2025.xls" - по выплатам на опекаемых

"0398.000001 ПРИЕМНЫЕ май 2025.xls" - по выплатам на приемных

"0398.000001 ШКОЛЫ ВРОЖПО май 2025.xls" - по возмещению расходов на коммуналку педработникам

"0398.000001 САДЫ ВРОЖПО май 2025.xls"

"0398.000001 ПЕНС ВРОЖПО май 2025.xls"

В начале имени всегда идет код поставщика, далее строка для идентификации какая мера обрабатывается (ЕДВ, ОПЕКАЕМЫЕ, ПРИЕМНЫЕ, ШКОЛЫ ВРОЖПО, САДЫ ВРОЖПО, ПЕНС ВРОЖПО) и далее имя файла.

Шаблоны эксель приложены, они проще чем стандартные предлагаемые системой егиссо.

Обработка так же формирует журнал ошибок в виде текстового файла.

Работает на обычных формах, переделывать на управляемые не вижу смысла.

Проверял в конфигурации БГУ 1.0

Ссылка на excel шаблоны мер https://disk.yandex.ru/d/vgBBYZ1A8B-KLA

Идентификторы своих мер и категорий поставите в коде сами.

Проверено на следующих конфигурациях и релизах:

Бухгалтерия государственного учреждения, релизы 3.1.22.80, 1.0.76.9

Вступайте в нашу телеграмм-группу Инфостарт

БГУ 2.0 ЕГИССО ВЫГРУЗКА компенсация части родительской платы

+3 –

См. также

Обновление для 1С:УТ 10.3, КА 1.1 и УПП 1.3 на новую ставку НДС 22%

НДС 22% Учетные задачи ККМ Файловый обмен (TXT, XML, DBF), FTP 1С 8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Бухгалтерский учет Налоговый учет НДС Платные (руб)

Готовое обновление для конфигурации 1С:Управление торговлей 10.3, 1С:Комплексная автоматизация 1.1 , 1С:Управление производственным предприятием 1.3 обеспечивающее полную поддержку новой ставки НДС 22%. Для 1С:УТ 10.3 реализована поддержка печати чеков ККМ, а также Правила обмена с 1С:БП 3.0. Решение встраивает необходимые изменения в перечисления и документы, включая торговые операции и печатные формы.

12200 руб.

16.12.2025 6955 81 0

Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015 180695 350 283

410

ED для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

22650 руб.

12.06.2017 157450 942 306

475

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.262.x) и БП 3.0 (3.0.190.x). Правила подходят для версии ПРОФ и КОРП.

38000 руб.

15.12.2021 32287 239 61

179

Перенос данных из УПП 1.3 в ЗУП 3.1 или из КА 1.1 в ЗУП 3.1. Переносятся начальные остатки, обороты и справочная информация

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018 61006 77 128

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.88.x) и УТ 11.5 (11.5.25.x).

38000 руб.

23.07.2020 65574 305 83

244

Перенос данных из ЗУП 3 в ERP 2 / КА 2 / ЗУП 3. Перенос справочников и документов с движениями

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Платные (руб)

Перенос данных из ЗУП 3 в ЗУП 3 | из ЗУП 3 в КА 2 | из ЗУП 3 в ERP | Оперативно обновляется при выходе новых релизов 1С | Готовые правила конвертации (КД 2) для перехода с "ЗУП 3" на "УП ред. 3" / "КА, ред. 2" / "ERP, ред. 2" |Переносится нормативно-справочная информация и документы с движениями

55200 руб.

11.01.2021 37035 33 56

ED для УПП, КА 1.1, УТ 10.3

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Управление производственным предприятием Россия Платные (руб)

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 3, УНФ 3 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16531 руб.

18.02.2016 198639 660 543

560

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. YA_514896950 32 30.08.21 16:05 Сейчас в теме

Забыл написать что в функционал обработки входит формирование списков денежные перечисления в сбербанк!
То есть - можно не выбирать учреждение, выбрать только период, месяц и по кнопке Файл (текст) для сбера обработка выгрузит списки на денежные зачисления причем как в разрезе садов, так и общими файлами разбивая их по 900 строк.
Файлы формируются в правильном csv формате.

2. YA_514896950 32 20.12.23 09:03 Сейчас в теме

На данный момент обработка проверена на всем 2023 году, осуществлена выгрузка сведений о компенсации части родительской платы в ЕГИССО за каждый месяц, все файлы успешно прошли валидацию - обработка сама отсекла не корректные данные, сформировав при этом текстовый файл отчёта для пользователя.

3. gusteleva 21.02.24 19:07 Сейчас в теме

Добрый день.
Был вопрос. Разобрались

4. YA_514896950 32 29.02.24 08:12 Сейчас в теме

(3)спрашивайте!

5. user2071067 20.05.24 17:44 Сейчас в теме

Здравствуйте! обработка не работает, после выгрузки XML-файл выглядит так:

<?xml version="1.0" encoding="UTF-8" standalone="true"?>

-<ns7:data xmlns:ns7="urn://egisso-ru/msg/10.06.S/1.0.8" xmlns:ns6="urn://egisso-ru/types/prsn-basis/1.0.2" xmlns:ns5="urn://egisso-ru/types/basic/1.0.8" xmlns:ns4="urn://x-artefacts-smev-gov-ru/supplementary/commons/1.0.1" xmlns:ns3="urn://egisso-ru/types/prsn-info/1.0.4" xmlns:ns2="urn://egisso-ru/types/assignment-fact/1.0.8" xmlns="urn://egisso-ru/types/package-RAF/1.0.9">

-<package>

<packageId>642b58e2-2c99-4f6a-be91-c72a196e23c7</packageId>

<elements> </elements>

</package>

</ns7:data>

Подскажете, что не так?

6. YA_514896950 32 29.05.24 16:26 Сейчас в теме

возможно в указанном периоде нет документов содержащих информацию для выгрузки
покажи скрин с документами расчета компенсации

7. bogdan_m 6 15.01.25 18:59 Сейчас в теме

Здравствуйте!

Невозможно подключить дополнительную обработку из файла.
Возможно, она не подходит для этой версии приложения.

Техническая информация:
{ВнешняяОбработка.ФормированиеРодПлаты.МодульОбъекта(23,28)}: Тип не определен (ДиалогВыбораФайла)

Конфигурация
Бухгалтерия государственного учреждения, редакция 2.0 (2.0.101.59)

8. YA_514896950 32 16.01.25 13:49 Сейчас в теме

так вы скачали для бгу 1.0 и пытаетесь загрузить в 2.0
скачайте правильную версию

9. suhoi 25 29.12.25 16:00 Сейчас в теме

Добрый день!
Как с вами связаться?
Нужна помощь на платной основе по доработке выгрузки в ЕГИССО

10. YA_514896950 32 30.12.25 09:59 Сейчас в теме

(9) ну пишите пока свои пожелания тут! в текущем варианте мне не составит проблем доработать под вас файл и выложить его здесь!

11. suhoi 25 30.12.25 10:02 Сейчас в теме

(10) Спасибо за оперативность. Уже нашли новый формат Excel для детских садов.

12. YA_514896950 32 30.12.25 10:05 Сейчас в теме

(11) выгружать из 1с проще!
если требуется обращайтесь, есть варианты выгрузок как напрямую для КЧРП (детсады) из 1с бгу, так и конверсия упрощенных excel файлов через 1с, просто люди мучаются со штатными конвертерами и прочим.....есть идеи - обращайтесь.
я выгружаю кчрп из бгу, другие меры типа компесация педработникам и прочим тоже через 1с, путем обработки ексель файликов.