S
shchof
Нужно создать отчет - Книга учета товаров. (Если учесть, что в 1С я - "нулевой", то задачка сложная).
Содержащий в строке:
Поставщик товара, документ, его номер и дата
Наименование, вид (сорт, артикул) товара
Остаток нереализованного товара
поступило (изготовлено)
оплачено
отгружено
реализовано
остаток нереализо-ванного товара
Поступило берем из проводки Д. 41.1 -- К. 60.1
Оплачено берем из проводки Д. 60.1 -- К. 51
Отгружено и Реализовано - из проводки Д. 90.2 -- К. 41.2
Решил сделать выборки (для "рыбы" использовал конструктор):
для прихода
Ит41 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит41.ИспользоватьСубконто(ВидыСубконто.Номенклатура,, 1);
Ит41.ИспользоватьКорСубконто(ВидыСубконто.Договоры,, 1);
Ит41.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "41.1", "60.1",, 3,, "СК");
Таб.ВывестиСекцию("Заголовок");
Сформировать_Колонки(Ит41, Таб, "Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит41.ВыбратьКорСубконто(ВидыСубконто.Договоры);
Пока Ит41.ПолучитьКорСубконто(ВидыСубконто.Договоры) = 1 Цикл
Сформировать_Колонки(Ит41, Таб, "КорСубконто1");
Ит41.ВыбратьСубконто(ВидыСубконто.Номенклатура);
Пока Ит41.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл
Сформировать_Колонки(Ит41, Таб, "Субконто1");
КонецЦикла;
КонецЦикла;
для оплачено
Ит60 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит60.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
Ит60.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60.1", "51",, 3,, "СК");
Таб.ВывестиСекцию("Заголовок");
Сформировать_Колонки(Ит60, Таб, "Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит60.ВыбратьСубконто(ВидыСубконто.Договоры);
Пока Ит60.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл
Сформировать_Колонки(Ит60, Таб, "Субконто1");
КонецЦикла;
Аналогично для отгружено.
Вопрос: как это объединить правильно? Как еще вытащить контагента?
Помогите. Буду рад любому дельному совету.
Содержащий в строке:
Поставщик товара, документ, его номер и дата
Наименование, вид (сорт, артикул) товара
Остаток нереализованного товара
поступило (изготовлено)
оплачено
отгружено
реализовано
остаток нереализо-ванного товара
Поступило берем из проводки Д. 41.1 -- К. 60.1
Оплачено берем из проводки Д. 60.1 -- К. 51
Отгружено и Реализовано - из проводки Д. 90.2 -- К. 41.2
Решил сделать выборки (для "рыбы" использовал конструктор):
для прихода
Ит41 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит41.ИспользоватьСубконто(ВидыСубконто.Номенклатура,, 1);
Ит41.ИспользоватьКорСубконто(ВидыСубконто.Договоры,, 1);
Ит41.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "41.1", "60.1",, 3,, "СК");
Таб.ВывестиСекцию("Заголовок");
Сформировать_Колонки(Ит41, Таб, "Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит41.ВыбратьКорСубконто(ВидыСубконто.Договоры);
Пока Ит41.ПолучитьКорСубконто(ВидыСубконто.Договоры) = 1 Цикл
Сформировать_Колонки(Ит41, Таб, "КорСубконто1");
Ит41.ВыбратьСубконто(ВидыСубконто.Номенклатура);
Пока Ит41.ПолучитьСубконто(ВидыСубконто.Номенклатура) = 1 Цикл
Сформировать_Колонки(Ит41, Таб, "Субконто1");
КонецЦикла;
КонецЦикла;
для оплачено
Ит60 = СоздатьОбъект("БухгалтерскиеИтоги");
Ит60.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
Ит60.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60.1", "51",, 3,, "СК");
Таб.ВывестиСекцию("Заголовок");
Сформировать_Колонки(Ит60, Таб, "Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
Ит60.ВыбратьСубконто(ВидыСубконто.Договоры);
Пока Ит60.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл
Сформировать_Колонки(Ит60, Таб, "Субконто1");
КонецЦикла;
Аналогично для отгружено.
Вопрос: как это объединить правильно? Как еще вытащить контагента?
Помогите. Буду рад любому дельному совету.