Имя: Пароль:
1C
1С v8
Не работает Отчет по Единому социальному взносу!
0 SherifSP
 
19.02.13
19:59
Отчет по Единому социальному взносу, по новой форме 2013, при выгрузке отчета в xml выдается предупреждение и прерывается функция( Вот код

Процедура КоманднаяПанельДействийdbf(Кнопка)
   
   Перем ИмяФайла, ДокЭкспорт;
   
   Предупреждение(Нстр("ru = 'На текущий момент функция выгрузки не доступна!'; uk = 'На поточний момент функція вивантаження не доступна!'"));
   Возврат;
   
   Если Модифицированность И НЕ Сохранить() Тогда
       Возврат;
   КонецЕсли;
   
   Если НЕ ПроверитьСуществованиеКаталога() Тогда
       Предупреждение(НСтр("ru='Необходимо указать существуюций каталог для сохранения файлов DBF!'; uk='Необхідно вказати каталог існуючий каталог для збереження файлів DBF!'"));
       Возврат;
   КонецЕсли;
   
   Если НайтиФайлы(КаталогДанных, "E04T*.DBF").Количество() > 0 Тогда
       Если НЕ Вопрос(НСтр("ru = 'Все DBF-файлы в каталоге сохранения будут удалены! Продолжить?'; uk = 'Усі DBF-файли в каталозі збереження будут видалені! Продовжити?'"), РежимДиалогаВопрос.ДаНетОтмена) = КодВозвратаДиалога.Да Тогда
           Возврат;
       КонецЕсли;
       
       Попытка
           УдалитьФайлы(КаталогДанных, "E04T*.DBF");
       Исключение
           Сообщить(ОписаниеОшибки());
       КонецПопытки;
       
   КонецЕсли;
   
   ОбновитьСтруктуруМногострочныхРазделов();
   
   Если ОтказПриПроверкеРеквизитовДляВыгрузкиDBF() Тогда
       Если НЕ Вопрос(Нстр("ru = 'При проверке заполнения отчета обнаружены ошибки!
                            |Продолжить выгрузку отчета?'; uk = 'При перевірці заповнення звіту виявлені помилки!
                            |Продовжити вивантаження звіту?'"), РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
           Возврат;    
       КонецЕсли;
   КонецЕсли;
   
   // Иницилизация докумета сохранения выгрузки
   НовыйДок = Документы.ВыгрузкаРегламентированныхОтчетов.СоздатьДокумент();
   НовыйДок.Очистить = Истина;
   НовыйДок.Комментарий = Комментарий;    
   СпДокОсн = Новый СписокЗначений;
   СпДокОсн.Добавить(мСохраненныйДок);
   ГлобСтруктФайловВыгрузки = Новый Структура;
   ФормаВыгрузки = НовыйДок.ПолучитьФорму(, ЭтотОбъект);
   
   СтруктураПараметров = Новый Структура();
   СчетчикДокОсн = 0;
   Для Каждого СтрокаУровня1 Из мДеревоВыбранныхСтраниц.Строки Цикл
       
       СчетчикДокОсн = СчетчикДокОсн + 1;
       
       СтруктураПараметров.Вставить("ИмяФайла",            "");
       СтруктураПараметров.Вставить("ИмяТабличногоПоля", СтрокаУровня1.ИмяПоляТабличногоДокум);
       
       ВыгрузитьЛистВDBF(СтруктураПараметров);
       
       СтруктураПараметров.Свойство("ИмяФайла",  ИмяФайла);
       
       Если НЕ ЗначениеЗаполнено(ИмяФайла) Тогда
           // таблица не выгружалась
           Продолжить;
       КонецЕсли;
       
       ФормаВыгрузки.СформироватьИЗаписать(СпДокОсн, КаталогДанных +"\"+ИмяФайла, СчетчикДокОсн, , ,"DBF");    
       ГлобСтруктФайловВыгрузки.Вставить("FileName" + Лев(ИмяФайла, СтрДлина(ИмяФайла)-4), Новый ДвоичныеДанные(КаталогДанных +"\" + ИмяФайла));
       
   КонецЦикла;
   
   Предупреждение(Нстр("ru = 'Выгрузка выполнена успешно!'; uk = 'Вивантаження виконане вдало!'"));
   
КонецПроцедуры
1 SherifSP
 
19.02.13
20:00
+(0) То есть сразу при нажатии
Предупреждение(Нстр("ru = 'На текущий момент функция выгрузки не доступна!'; uk = 'На поточний момент функція вивантаження не доступна!'"));
   Возврат;
2 zak555
 
19.02.13
20:00
так его же отменили
3 SherifSP
 
19.02.13
20:06
(2) Дай ссылку
4 zak555
 
19.02.13
20:09
(3)
"С 1 января 2010 года единый социальный налог отменён..."
wiki:%C5%E4%E8%ED%FB%E9_%F1%EE%F6%E8%E0%EB%FC%ED%FB%E9_%ED%E0%EB%EE%E3
5 zak555
 
19.02.13
20:09
6 SherifSP
 
19.02.13
20:11
(5) Украина?
7 zak555
 
19.02.13
20:30
это где ?
8 zmaximka
 
19.02.13
20:33
новый отчет скачай
9 zmaximka
 
19.02.13
20:33
этот отчет в первоначальном виде вышел без возможности выгрузки
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс