Имя: Пароль:
1C
 
Проблема с документом Книга покупок для передачи в электронном виде (УСО)
,
0 DimoXa
 
09.04.15
12:35
Доброго времени суток, камрады...
Столкнулся с такой проблемой: Необходимо создать внешнюю обработку для заполнения документа Книга покупок в электронном виде, но почему то кнопка не добавляется. Прилагаю код, прошу вас подсказать, что я неправильно делаю.

Процедура Инициализировать(Объект, ИмяТЧ, ЭлементФормы) Экспорт
    Заполнить(Объект);    
КонецПроцедуры


Процедура Заполнить(Объект)
    Если Объект.ТабличнаяЧасть.Количество() <> 0 Тогда
        Объект.ТабличнаяЧасть.Очистить();
    КонецЕсли;
    
    //Если Организация = Неопределено Тогда
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    Организации.Ссылка КАК Организация
        |ИЗ
        |    Справочник.Организации КАК Организации";

        Результат = Запрос.Выполнить().Выгрузить();
        Для каждого Стр из Результат Цикл
            Объект.Организация = Стр.Организация;
            Сообщить(Объект.Организация);
    СписокОрганизаций = Новый СписокЗначений;
    СписокОрганизаций.Добавить(Объект.Организация);
    
    СтруктураПараметров = Новый Структура;
    СтруктураПараметров.Вставить("НачалоПериода", НачалоКвартала(Объект.НалоговыйПериод));
    СтруктураПараметров.Вставить("КонецПериода", КонецКвартала(Объект.НалоговыйПериод));
    СтруктураПараметров.Вставить("СформироватьОтчетПоСтандартнойФорме", Истина);
    СтруктураПараметров.Вставить("ОтбиратьПоКонтрагенту", Ложь);
    СтруктураПараметров.Вставить("КонтрагентДляОтбора");
    СтруктураПараметров.Вставить("ГруппироватьПоКонтрагентам", Ложь);
    СтруктураПараметров.Вставить("ВыводитьПокупателейПоАвансам", Ложь);
    СтруктураПараметров.Вставить("ВыводитьТолькоДопЛисты", Ложь);
    СтруктураПараметров.Вставить("ФормироватьДополнительныеЛисты", Ложь);
    СтруктураПараметров.Вставить("СписокОрганизаций", Объект.СписокОрганизаций);
    СтруктураПараметров.Вставить("Организация", Объект.Организация);
    СтруктураПараметров.Вставить("ДополнительныеЛистыЗаТекущийПериод", Ложь);
    СтруктураПараметров.Вставить("ДатаФормированияДопЛиста");
    СтруктураПараметров.Вставить("ЗаписьДополнительногоЛиста", Ложь);
    СтруктураПараметров.Вставить("СкрытьКолонкиПоСтавке20", Ложь);
    СтруктураПараметров.Вставить("ЕстьЗаписиПоКолонке20");
    СтруктураПараметров.Вставить("ЗаполнениеДокумента", Истина);
    СтруктураПараметров.Вставить("ЕстьЗаписиПоКолонке20", Ложь);
    СтруктураПараметров.Вставить("ПрефиксыРИБиОрганизации", ОбщегоНазначения.СформироватьМассивПрефиксовДляРИБИОрганизации(Объект.Организация));
    
    СписокСчетовФактур = Неопределено;
    
    Результат = УчетНДС.ПолучитьЗаписиКнигиПокупок(СписокСчетовФактур, СтруктураПараметров);
    
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    УчетНДСКлиент.ПреобразоватьЗаписиКнигиПокупок(
        СтруктураПараметров, Результат, , СписокСчетовФактур, , , Объект.ТабличнаяЧасть);
    КонецЦикла;
    Объект.Организация = Справочники.Организации.НайтиПоНаименованию("Аппарат управления");
    //КонецЕсли;
КонецПроцедуры
1 DimoXa
 
09.04.15
12:54
UP
2 DimoXa
 
09.04.15
13:12
Вверх
3 DimoXa
 
09.04.15
16:57
ВВерх
4 repin_mike
 
09.04.15
17:05
Конфигурация-то какая?
И как добавляешь?
5 DimoXa
 
09.04.15
20:24
Конфа - УСО. Добавляю как внешнюю обработку заполнения ТЧ.
6 DimoXa
 
09.04.15
20:25
(4)