В налогоплательщике не доступна Формы в виде машиночитаемого бланка

Яна93 · 04 июл 2013, 09:45

Хотела распечатать бухгалтерский баланс..но Формы в виде машиночитаемого бланка с двухмерным штрихкодом PDF417 не активна..все остальные формы активны..согласно принятому закону баланс печатается раз в год..но мне эта форму нужна сейчас.. Что можно сделать?
Зашла в код..комментировала все что могло бы подойти под описание того, что указывает на первый переключатель и на его активность, но безуспешно

..Поэтому прошу Вашей помощи..
Налогоплательщик, редакция 3.0 (3.0.52.1)
И заметила, когда я переключаюсь на балансы 2012 года любого квартала, эта форма активна..

Перем НастройкиВФорме;
Перем ВыводитьКолонкуСКодамиСтрок;
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
Процедура ПриОткрытии()

// Настройки по умолчанию.
НастройкиВФорме = Новый Структура;
НастройкиВФорме.Вставить("АктивныйПункт", 1);
НастройкиВФорме.Вставить("ДоступенПункт1", Истина);
НастройкиВФорме.Вставить("ДоступенПункт2", Истина);
НастройкиВФорме.Вставить("ДоступенПункт3", Истина);
НастройкиВФорме.Вставить("ВключатьКодыСтрок", Истина);

Если ТипЗнч(ПараметрыПечати) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(НастройкиВФорме, ПараметрыПечати);
КонецЕсли;

ДоступныеПункты = Новый Массив;
Если НастройкиВФорме.ДоступенПункт1 Тогда
ДоступныеПункты.Добавить(1);
КонецЕсли;
Если НастройкиВФорме.ДоступенПункт2 Тогда
ДоступныеПункты.Добавить(2);
КонецЕсли;
Если НастройкиВФорме.ДоступенПункт3 Тогда
ДоступныеПункты.Добавить(3);
КонецЕсли;

ИндексДоступногоПункта = ДоступныеПункты.Найти(НастройкиВФорме.АктивныйПункт);
Если ИндексДоступногоПункта = Неопределено Тогда
ИндексДоступногоПункта = 0;
КонецЕсли;
Переключатель1 = ДоступныеПункты[ИндексДоступногоПункта];

ЭлементыФормы.Переключатель1.Доступность = НастройкиВФорме.ДоступенПункт1;
ЭлементыФормы.Переключатель2.Доступность = НастройкиВФорме.ДоступенПункт2;
ЭлементыФормы.Переключатель3.Доступность = НастройкиВФорме.ДоступенПункт3;

ВыводитьКолонкуСКодамиСтрок = Истина; // НастройкиВФорме.ВключатьКодыСтрок;

УстановитьДоступностьВключенияКодов();

КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ШАПКИ ФОРМЫ
Процедура Переключатель1ПриИзменении(Элемент)

УстановитьДоступностьВключенияКодов();

КонецПроцедуры
Процедура Переключатель2ПриИзменении(Элемент)

УстановитьДоступностьВключенияКодов();

КонецПроцедуры
Процедура Переключатель3ПриИзменении(Элемент)

УстановитьДоступностьВключенияКодов();

КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
Процедура ОсновныеДействияФормыПечататьСразу(Кнопка)

НастройкиВФорме.Вставить("ВключатьКодыСтрок", ВыводитьКолонкуСКодамиСтрок);
НастройкиВФорме.Вставить("АктивныйПункт", Переключатель1);
НастройкиВФорме.Вставить("Команда", Кнопка.Имя);
ЭтаФорма.Закрыть(НастройкиВФорме);

КонецПроцедуры
Процедура ОсновныеДействияФормыПоказатьБланк(Кнопка)

НастройкиВФорме.Вставить("ВключатьКодыСтрок", ВыводитьКолонкуСКодамиСтрок);
НастройкиВФорме.Вставить("АктивныйПункт", Переключатель1);
НастройкиВФорме.Вставить("Команда", Кнопка.Имя);
ЭтаФорма.Закрыть(НастройкиВФорме);

КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
Процедура УстановитьДоступностьВключенияКодов()

// ЭлементыФормы.ВыводитьКолонкуСКодамиСтрок.Доступность = (Переключатель1 = 2);

КонецПроцедуры

GRADUS · 04 июл 2013, 10:10

Код Выделить

 ЭлементыФормы.Переключатель1.Доступность = НастройкиВФорме.ДоступенПункт1;

На

Код Выделить

ЭлементыФормы.Переключатель1.Доступность = Истина;

Яна93 · 04 июл 2013, 10:15

Цитата: GRADUS от 04 июл 2013, 10:10
Код Выделить Развернуть
ЭлементыФормы.Переключатель1.Доступность = НастройкиВФорме.ДоступенПункт1;
На
Код Выделить Развернуть
ЭлементыФормы.Переключатель1.Доступность = Истина;

GRADUS, прописала..но вышла ошибка:
{Отчет.РегламентированныйОтчетБухОтчетность.Форма.ВыборПечатнойФормы.Форма(75,44)}: Переменная не определена (Переключатель1)
НастройкиВФорме.Вставить("АктивныйПункт", <<?>>Переключатель1); (Проверка: Толстый клиент (обычное приложение))
{Отчет.РегламентированныйОтчетБухОтчетность.Форма.ВыборПечатнойФормы.Форма(84,44)}: Переменная не определена (Переключатель1)
НастройкиВФорме.Вставить("АктивныйПункт", <<?>>Переключатель1); (Проверка: Толстый клиент (обычное приложение))

GRADUS · 04 июл 2013, 10:22

Ну, ломать, так ломать

Код Выделить

ДоступныеПункты.Добавить(1);

Вставить после

Код Выделить

 Если НастройкиВФорме.ДоступенПункт1 Тогда
  ДоступныеПункты.Добавить(1);
 КонецЕсли;

Либо вместо "переключатель", там где ошибочка, поставь циферку 1

Код Выделить


 НастройкиВФорме.Вставить("АктивныйПункт", 1);

Яна93 · 04 июл 2013, 14:06

Цитата: GRADUS от 04 июл 2013, 10:22
Ну, ломать, так ломать

Код Выделить Развернуть
ДоступныеПункты.Добавить(1);

Вставить после
Код Выделить Развернуть
Если НастройкиВФорме.ДоступенПункт1 Тогда ДоступныеПункты.Добавить(1); КонецЕсли;

Либо вместо "переключатель", там где ошибочка, поставь циферку 1
Код Выделить Развернуть
НастройкиВФорме.Вставить("АктивныйПункт", 1);

Проставила цифру 1..форма стала активной, но когда я выбрала ее и нажала на кнопку ПОКАЗАТЬ БЛАНК он выдал следующую ошибку: Не удалось выгрузить Бухгалтерская отчетность (с 2011 года) за 1 квартал 2013 г. (Первичный. ИФНС:7325)!
Не удалось сформировать тексты выгрузки!
Для исправления ошибок используйте окно навигации по ошибкам.
После чего я установила точку останова на процедуру Показать бланк..и проследила все операции которые он делал в отладчике по шагово..и обнаружила что на стадии когда выходит ошибка он обрабатывает модуль в Документе ВыгрузкаРегламентныхОтчетов.

Попытка
               Для Каждого СтрСообщ Из ТекФорма.ТаблицаСообщений Цикл
                  НовСтр = ТаблицаСообщений.Добавить();
                  НовСтр.ОтчетДок = ТекДок.Ссылка;
                  НовСтр.Отчет = РегламентированнаяОтчетность.ПредставлениеДокументаРеглОтч(ТекДок);
                  НовСтр.Раздел = СтрСообщ.Раздел;
                  НовСтр.Страница = СтрСообщ.Страница;
                  НовСтр.Строка = СтрСообщ.Строка;
                  НовСтр.СтрокаПП = СтрСообщ.СтрокаПП;
                  НовСтр.ИмяЯчейки = СтрСообщ.ИмяЯчейки;
                  НовСтр.Графа = СтрСообщ.Графа;
                  НовСтр.Описание = СтрСообщ.Описание;
               КонецЦикла;
            Исключение
            КонецПопытки;
            ТекстСообщения = "Не удалось выгрузить " + РегламентированнаяОтчетность.ПредставлениеДокументаРеглОтч(ТекДок.Ссылка) + "!";
            Сообщить(ТекстСообщения, СтатусСообщения.Важное);
            ОшибкаВыгрузки = Истина;
            ОтобразитьФормуНавигацииПоОшибкам();
            ВыгрузкаПрервана = Истина;
            Прервать;
         КонецПопытки;

Так же вот еще процедура вывода сообщения
Если ВыгрузкаПрервана Тогда
      Сообщить("Не удалось сформировать тексты выгрузки!", СтатусСообщения.Внимание);
      Если ТаблицаСообщений.Количество() <> 0 Тогда
         Сообщить("Для исправления ошибок используйте окно навигации по ошибкам.", СтатусСообщения.Информация);
      КонецЕсли;
От этого можно както избавиться? я вот еще скопировала в документ весь модуль данного документа..

GRADUS · 04 июл 2013, 19:25

Помоему, легче разобраться почему она была неактивна, чем всю обработку переделывать )

Яна93 · 04 июл 2013, 21:00

Цитата: GRADUS от 04 июл 2013, 19:25
Помоему, легче разобраться почему она была неактивна, чем всю обработку переделывать )

Это все согласно новому правилу, что бухгалтерский баланс сдается раз в год (после обновления программы так стало)..но мне просто для банка нужна эта форма..т.к. уверена что они там панику разведут как обычно, и босю на меня шишки полетят:(

GRADUS · 04 июл 2013, 22:19

Цитата: Яна93 от 04 июл 2013, 21:00
Цитата: GRADUS от 04 июл 2013, 19:25
Помоему, легче разобраться почему она была неактивна, чем всю обработку переделывать )

Это все согласно новому правилу, что бухгалтерский баланс сдается раз в год (после обновления программы так стало)..но мне просто для банка нужна эта форма..т.к. уверена что они там панику разведут как обычно, и босю на меня шишки полетят:(

Попробуй зайти отладчиком после слова "попытка" и посмотреть на какой строче в исключение уходит.
Ну и примерно что там за ошибочка то такая.

Яна93 · 11 июл 2013, 20:59

Цитата: GRADUS от 04 июл 2013, 22:19
Цитата: Яна93 от 04 июл 2013, 21:00
Цитата: GRADUS от 04 июл 2013, 19:25
Помоему, легче разобраться почему она была неактивна, чем всю обработку переделывать )

Это все согласно новому правилу, что бухгалтерский баланс сдается раз в год (после обновления программы так стало)..но мне просто для банка нужна эта форма..т.к. уверена что они там панику разведут как обычно, и босю на меня шишки полетят:(
Попробуй зайти отладчиком после слова "попытка" и посмотреть на какой строче в исключение уходит.
Ну и примерно что там за ошибочка то такая.

Пришлось пока отправить баланс в том виде который предоставила программа..думаю обойдется (просто времени не было) Спасибо, GRADUS!;)

В налогоплательщике не доступна Формы в виде машиночитаемого бланка

Яна93

GRADUS

Яна93

GRADUS

Яна93

GRADUS

Яна93

GRADUS

Яна93

Похожие темы (5)

Поиск