Помогите создать отчет! Бух 7.7 491
06.08.2009
06:20
#1
" БИ= СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто("Материалы");
БИ.ИспользоватьСубконто("Сотрудники");
БИ.ВыполнитьЗапрос(,Дата2,"10.11.1");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто()=1 Цикл
ОСТАТКИ =БИ.СКД();
ОСТАТКИс =БИ.СКД("С");
ОСТАТКИк =БИ.СКД("К");
Если (ОСТАТКИк >0) И (ОСТАТКИс>0) Тогда
Мат=БИ.Субконто();
ПрСуб=ПредставлениеСубконто();
БИ.ВыбратьСубконто(2);
Пока БИ.ПолучитьСубконто(2)=1 Цикл
Сотр=БИ.Субконто(2);
КонецЦикла;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Сейчас он выводит отдельно субконто(остатки) и отдельно субконто(сотрудников)счета 10.11.1, а мне надо что бы выводился список сотрудников и указывалось сколько спецодежды на каждого записано, еще есть условие, что СКД("К")>0, и СКД("С")>0."
БИ.ИспользоватьСубконто("Материалы");
БИ.ИспользоватьСубконто("Сотрудники");
БИ.ВыполнитьЗапрос(,Дата2,"10.11.1");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто();
Пока БИ.ПолучитьСубконто()=1 Цикл
ОСТАТКИ =БИ.СКД();
ОСТАТКИс =БИ.СКД("С");
ОСТАТКИк =БИ.СКД("К");
Если (ОСТАТКИк >0) И (ОСТАТКИс>0) Тогда
Мат=БИ.Субконто();
ПрСуб=ПредставлениеСубконто();
БИ.ВыбратьСубконто(2);
Пока БИ.ПолучитьСубконто(2)=1 Цикл
Сотр=БИ.Субконто(2);
КонецЦикла;
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Сейчас он выводит отдельно субконто(остатки) и отдельно субконто(сотрудников)счета 10.11.1, а мне надо что бы выводился список сотрудников и указывалось сколько спецодежды на каждого записано, еще есть условие, что СКД("К")>0, и СКД("С")>0."
06.08.2009
09:23
#2
"Помогите пожалуйста, сейчас обработка выводит: данные по трем субконто но я не могу понять как вывести номер документа по которому были сделаны проводки.
Помогите плиз.
Процедура Сформировать()
БИ= СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
БИ.ИспользоватьСубконто(ВидыСубконто.Материалы);
БИ.ИспользоватьСубконто(ВидыСубконто.НазначенияИспользования);
БИ.ВыполнитьЗапрос(,Дата2,"10.11.1",,,,"Проводка", "СК");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто(1);
Пока БИ.ПолучитьСубконто(1)=1 Цикл
Сотр= Строка(БИ.Субконто(1));
Код2= Строка(БИ.Субконто(1).Код);
Ном=(БИ.Субконто(1).НомерДок);
Дат=(БИ.Субконто(1).ДатаДок);
СотрСКД = (БИ.СКД("С"));
БИ.ВыбратьСубконто(2);
Пока БИ.ПолучитьСубконто(2)=1 Цикл
ОСТАТКИк = (БИ.СКД("К"));
ОСТАТКИс = (БИ.СКД("С"));
Если (ОСТАТКИк>0) И(ОСТАТКИс>0) Тогда
Мат= Строка(БИ.Субконто(2));
Код1= Строка(БИ.Субконто(2).Код);
БИ.ВыбратьСубконто(3);
Пока БИ.ПолучитьСубконто(3)=1 Цикл
Назначения= Строка(БИ.Субконто(3));
Код3= Строка(БИ.Субконто(3).Код);
КонецЦикла;
Таб.ВывестиСекцию("Строка1");
КонецЕсли;
КонецЦикла;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0);
Таб.Показать("""");
КонецПроцедуры"
Помогите плиз.
Процедура Сформировать()
БИ= СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
БИ.ИспользоватьСубконто(ВидыСубконто.Материалы);
БИ.ИспользоватьСубконто(ВидыСубконто.НазначенияИспользования);
БИ.ВыполнитьЗапрос(,Дата2,"10.11.1",,,,"Проводка", "СК");
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("""");
Таб.ВывестиСекцию("Шапка");
БИ.ВыбратьСубконто(1);
Пока БИ.ПолучитьСубконто(1)=1 Цикл
Сотр= Строка(БИ.Субконто(1));
Код2= Строка(БИ.Субконто(1).Код);
Ном=(БИ.Субконто(1).НомерДок);
Дат=(БИ.Субконто(1).ДатаДок);
СотрСКД = (БИ.СКД("С"));
БИ.ВыбратьСубконто(2);
Пока БИ.ПолучитьСубконто(2)=1 Цикл
ОСТАТКИк = (БИ.СКД("К"));
ОСТАТКИс = (БИ.СКД("С"));
Если (ОСТАТКИк>0) И(ОСТАТКИс>0) Тогда
Мат= Строка(БИ.Субконто(2));
Код1= Строка(БИ.Субконто(2).Код);
БИ.ВыбратьСубконто(3);
Пока БИ.ПолучитьСубконто(3)=1 Цикл
Назначения= Строка(БИ.Субконто(3));
Код3= Строка(БИ.Субконто(3).Код);
КонецЦикла;
Таб.ВывестиСекцию("Строка1");
КонецЕсли;
КонецЦикла;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0);
Таб.Показать("""");
КонецПроцедуры"
Читают тему
(гостей: 1)