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

Новая тема
Показывать по 10 20 40 сообщений
NatalyaVP
читатель
Регистрация: 19.06.2015
Сообщений: 8
22.06.2015
13:24
#11
Я не могу сейчас обновится.
Выбирались уже 10 разных папок, ничего не меняется.
NatalyaVP
читатель
Регистрация: 19.06.2015
Сообщений: 8
25.06.2015
07:11
#12
Ошибка в программе оказалась, или просто недоработка программы
Ответили: пост #13
Sh_S
читатель
Регистрация: 02.03.2007
Сообщений: 7732
26.06.2015
11:28
#13
Ответ на пост №12
NatalyaVP,
и какая ж ошибка в программе? ну ради интереса.
NatalyaVP
читатель
Регистрация: 19.06.2015
Сообщений: 8
29.06.2015
14:38
#14
В документе "ВыгрузкаРегламентированныхОтчетов", в форме документа, Процедура СформироватьТекстыВыгрузки(), найти цикл
//выгрузка в формате 7.00
   Если Отбор700ПФР.Количество() <> 0 И (НЕ ВыгрузкаПрервана) Тогда.
В конце этого цикла было
         
Код
 Если НЕ ВыгрузкаПрервана Тогда
                НовСтр = Выгрузки.Добавить();
                НовСтр.ИмяФайла    = ИзвлечьИмяФайлаИзТекстаXML700ПФР(ТекстВыгрузкиВXML); 
                НовСтр.Тип        = Перечисления.ВерсииФорматовВыгрузки.Версия700ПФР;
                НовСтр.Текст    = ТекстВыгрузкиВXML;
                ТекСтр            = Основания.Найти(ТекДок, "Ссылка"  ;
                Если ТекСтр <> Неопределено И ТекСтр.Пометка Тогда
                    ТекСтр.НомерСтрокиТекстаВыгрузки = НовСтр.НомерСтроки;
                КонецЕсли;
                

            КонецЕсли;



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

            КонецЕсли;
Справка 2-НДФЛ, после обновления на 2.5.92.1, перестала показывать суммы "Перечислено"налог на имущество 1 квартал заполняет от балды в8
Читают тему
(гостей: 1)

Быстрый переход