|
0
DimoXa
09.04.15
✎
12:35
|
Доброго времени суток, камрады...
Столкнулся с такой проблемой: Необходимо создать внешнюю обработку для заполнения документа Книга покупок в электронном виде, но почему то кнопка не добавляется. Прилагаю код, прошу вас подсказать, что я неправильно делаю.
Процедура Инициализировать(Объект, ИмяТЧ, ЭлементФормы) Экспорт
Заполнить(Объект);
КонецПроцедуры
Процедура Заполнить(Объект)
Если Объект.ТабличнаяЧасть.Количество() <> 0 Тогда
Объект.ТабличнаяЧасть.Очистить();
КонецЕсли;
//Если Организация = Неопределено Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Организации.Ссылка КАК Организация
|ИЗ
| Справочник.Организации КАК Организации";
Результат = Запрос.Выполнить().Выгрузить();
Для каждого Стр из Результат Цикл
Объект.Организация = Стр.Организация;
Сообщить(Объект.Организация);
СписокОрганизаций = Новый СписокЗначений;
СписокОрганизаций.Добавить(Объект.Организация);
СтруктураПараметров = Новый Структура;
СтруктураПараметров.Вставить("НачалоПериода", НачалоКвартала(Объект.НалоговыйПериод));
СтруктураПараметров.Вставить("КонецПериода", КонецКвартала(Объект.НалоговыйПериод));
СтруктураПараметров.Вставить("СформироватьОтчетПоСтандартнойФорме", Истина);
СтруктураПараметров.Вставить("ОтбиратьПоКонтрагенту", Ложь);
СтруктураПараметров.Вставить("КонтрагентДляОтбора");
СтруктураПараметров.Вставить("ГруппироватьПоКонтрагентам", Ложь);
СтруктураПараметров.Вставить("ВыводитьПокупателейПоАвансам", Ложь);
СтруктураПараметров.Вставить("ВыводитьТолькоДопЛисты", Ложь);
СтруктураПараметров.Вставить("ФормироватьДополнительныеЛисты", Ложь);
СтруктураПараметров.Вставить("СписокОрганизаций", Объект.СписокОрганизаций);
СтруктураПараметров.Вставить("Организация", Объект.Организация);
СтруктураПараметров.Вставить("ДополнительныеЛистыЗаТекущийПериод", Ложь);
СтруктураПараметров.Вставить("ДатаФормированияДопЛиста");
СтруктураПараметров.Вставить("ЗаписьДополнительногоЛиста", Ложь);
СтруктураПараметров.Вставить("СкрытьКолонкиПоСтавке20", Ложь);
СтруктураПараметров.Вставить("ЕстьЗаписиПоКолонке20");
СтруктураПараметров.Вставить("ЗаполнениеДокумента", Истина);
СтруктураПараметров.Вставить("ЕстьЗаписиПоКолонке20", Ложь);
СтруктураПараметров.Вставить("ПрефиксыРИБиОрганизации", ОбщегоНазначения.СформироватьМассивПрефиксовДляРИБИОрганизации(Объект.Организация));
СписокСчетовФактур = Неопределено;
Результат = УчетНДС.ПолучитьЗаписиКнигиПокупок(СписокСчетовФактур, СтруктураПараметров);
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;
УчетНДСКлиент.ПреобразоватьЗаписиКнигиПокупок(
СтруктураПараметров, Результат, , СписокСчетовФактур, , , Объект.ТабличнаяЧасть);
КонецЦикла;
Объект.Организация = Справочники.Организации.НайтиПоНаименованию("Аппарат управления");
//КонецЕсли;
КонецПроцедуры
|
|