Не выгружается регламен. отчёт РСВ-1 в файл xml

NatalyaVP

читатель

офлайн

Дата регистрации: 19.06.2015
Сообщений: 8

Пост №11

22.06.2015 13:24

Я не могу сейчас обновится.
Выбирались уже 10 разных папок, ничего не меняется.

NatalyaVP

читатель

офлайн

Дата регистрации: 19.06.2015
Сообщений: 8

Пост №12

25.06.2015 07:11

Ошибка в программе оказалась, или просто недоработка программы

Ответили: пост №13

Sh_S

читатель

офлайн

Дата регистрации: 02.03.2007
Сообщений: 7730

Пост №13

26.06.2015 11:28

Ответ на пост №12

NatalyaVP,
и какая ж ошибка в программе? ну ради интереса.

NatalyaVP

читатель

офлайн

Дата регистрации: 19.06.2015
Сообщений: 8

Пост №14

29.06.2015 14:38

В документе "ВыгрузкаРегламентирова

нныхОтчетов", в форме документа, Процедура СформироватьТекстыВыгрузки(), найти цикл
//выгрузка в формате 7.00
Если Отбор700ПФР.Количество() <> 0 И (НЕ ВыгрузкаПрервана) Тогда.
В конце этого цикла было

Код
Если НЕ ВыгрузкаПрервана Тогда НовСтр = Выгрузки.Добавить(); НовСтр.ИмяФайла = ИзвлечьИмяФайлаИзТекстаXML700ПФР(ТекстВыгрузкиВXML); НовСтр.Тип = Перечисления.ВерсииФорматовВыгрузки.Версия700ПФР; НовСтр.Текст = ТекстВыгрузкиВXML; ТекСтр = Основания.Найти(ТекДок, "Ссылка" ; Если ТекСтр <> Неопределено И ТекСтр.Пометка Тогда ТекСтр.НомерСтрокиТекстаВыгрузки = НовСтр.НомерСтроки; КонецЕсли; КонецЕсли;

Код

 Если НЕ ВыгрузкаПрервана Тогда НовСтр = Выгрузки.Добавить(); НовСтр.ИмяФайла    = ИзвлечьИмяФайлаИзТекстаXML700ПФР(ТекстВыгрузкиВXML); НовСтр.Тип        = Перечисления.ВерсииФорматовВыгрузки.Версия700ПФР; НовСтр.Текст    = ТекстВыгрузкиВXML; ТекСтр            = Основания.Найти(ТекДок, "Ссылка"  ; Если ТекСтр <> Неопределено И ТекСтр.Пометка Тогда         ТекСтр.НомерСтрокиТекстаВыгрузки = НовСтр.НомерСтроки; КонецЕсли;

КонецЕсли;

Стало

Код
Если НЕ ВыгрузкаПрервана Тогда Для каждого стр1 Из ТекстВыгрузкиВXML Цикл // добавлено 24 06 2015 НовСтр = Выгрузки.Добавить(); НовСтр.ИмяФайла = стр1.ИмяФайла; //ИзвлечьИмяФайлаИзТекстаXML700ПФР(ТекстВыгрузкиВXML); // изменено 24 06 2015 НовСтр.Тип = Перечисления.ВерсииФорматовВыгрузки.Версия700ПФР; НовСтр.Текст = стр1.Текст;//ТекстВыгрузкиВXML; // изменено 24 06 2015 ТекСтр = Основания.Найти(ТекДок, "Ссылка"; Если ТекСтр <> Неопределено И ТекСтр.Пометка Тогда ТекСтр.НомерСтрокиТекстаВыгрузки = НовСтр.НомерСтроки; КонецЕсли; конеццикла; // добавлено 24 06 2015 КонецЕсли;

Код

Если НЕ ВыгрузкаПрервана Тогда Для каждого стр1 Из ТекстВыгрузкиВXML Цикл // добавлено 24 06 2015 НовСтр = Выгрузки.Добавить(); НовСтр.ИмяФайла = стр1.ИмяФайла; //ИзвлечьИмяФайлаИзТекстаXML700ПФР(ТекстВыгрузкиВXML); // изменено 24 06 2015 НовСтр.Тип = Перечисления.ВерсииФорматовВыгрузки.Версия700ПФР; НовСтр.Текст = стр1.Текст;//ТекстВыгрузкиВXML; // изменено 24 06 2015 ТекСтр = Основания.Найти(ТекДок, "Ссылка"; Если ТекСтр <> Неопределено И ТекСтр.Пометка Тогда ТекСтр.НомерСтрокиТекстаВыгрузки = НовСтр.НомерСтроки; КонецЕсли; конеццикла; // добавлено 24 06 2015 КонецЕсли;

Читают тему:

Мероприятия