Имя: Пароль:
1C
1С v8
Из БП в УТ
0 rasulkipkeev
 
09.10.14
09:54
Как сделать? из БП в УТ на указанную дату выгружать остатки по 60,62 счетам в документ Ввод начальных остатков по взаиморасчетам.
Делаю так создаю обработку которая будет запускать в БП и будет создавать в УТ документ Ввод начальных остатков по взаиморасчетам. Как програмно создать документ и ввести данные с запроса. Спасибо за помощь!
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Запрос=Новый Запрос;
    Запрос.Текст=
    "ВЫБРАТЬ
    |    ХозрасчетныйОстатки.Субконто1,
    |    ХозрасчетныйОстатки.Субконто2,
    |    ХозрасчетныйОстатки.СуммаОстатокДт,
    |    ХозрасчетныйОстатки.СуммаОстатокКт
    |ИЗ
    |    РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, , , ) КАК ХозрасчетныйОстатки
    |ГДЕ
    |    ХозрасчетныйОстатки.Счет В(&Счет)";
    СписокСчетов=Новый СписокЗначений;
    СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"));
    СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.02"));
    Запрос.УстановитьПараметр("Счет",СписокСчетов);
    Запрос.УстановитьПараметр("Дата",ДатаОтчета);
    ТЗПоставщиков=Запрос.Выполнить().Выгрузить();     // Субконто1=Контрагент, Субконто2=Договор
    
    Запрос=Новый Запрос;
    Запрос.Текст=
    "ВЫБРАТЬ
    |    ХозрасчетныйОстатки.Субконто1,
    |    ХозрасчетныйОстатки.Субконто2,
    |    ХозрасчетныйОстатки.СуммаОстатокДт,
    |    ХозрасчетныйОстатки.СуммаОстатокКт
    |ИЗ
    |    РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, , , ) КАК ХозрасчетныйОстатки
    |ГДЕ
    |    ХозрасчетныйОстатки.Счет В(&Счет)";
    СписокСчетов=Новый СписокЗначений;
    СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01"));
    СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02"));
    Запрос.УстановитьПараметр("Счет",СписокСчетов);
    Запрос.УстановитьПараметр("Дата",ДатаОтчета);
    ТЗПокупателей=Запрос.Выполнить().Выгрузить();     // Субконто1=Контрагент, Субконто2=Договор
    
КонецПроцедуры
1 Chikko
 
09.10.14
09:58
Для начала определись, как будут создаваться документы. Выгрузка в файл, конвертация, ком, вебсервис или еще чего-то. Проще всего конвертацией.
2 shuhard
 
09.10.14
09:59
(0) Док=Документы.ВводНачальныхОстатковПоВзаиморасчетам.СоздатьДокумент();
Док.Дата=...
Док.ВидОперации=Перечисления.ВидыОперацийВводНачальныхОстатковПоВзаиморасчетам.РасчетыСПокупателями;
Док.ДанныеПоРасчетам.Загрузить(ТЗ):
Док.Записать( РежимЗаписиДокумента.Проведение);
3 thezos
 
09.10.14
10:00
(1) По кому проще же
4 anatoly
 
09.10.14
13:42
(3) по СОМ проще, но КД может пригодиться для создания новых контрагентов/договоров