|
Помогите вывести результат запроса в табличный документ? Выводит пустую таблицу | ☑ | ||
---|---|---|---|---|
0
valushka991
21.11.14
✎
13:30
|
Мас101=Новый массив ;
Мас101.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты); Мас101.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД); Мас102=Новый массив ; Мас102.Добавить(ПланыСчетов.Хозрасчетный.Товары); Мас102.Добавить(ПланыСчетов.Хозрасчетный.Материалы); Мас11=Новый Массив; Для Каждого Стр из Настройка Цикл мас11.Добавить(Стр.Номенклатура); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОборотыДтКт.Период, | ХозрасчетныйОборотыДтКт.Регистратор, | ХозрасчетныйОборотыДтКт.СчетДт, | ХозрасчетныйОборотыДтКт.СчетКт, | ХозрасчетныйОборотыДтКт.СубконтоДт1, | ХозрасчетныйОборотыДтКт.СубконтоДт2, | ХозрасчетныйОборотыДтКт.СубконтоДт3, | ХозрасчетныйОборотыДтКт.СубконтоКт1, | ХозрасчетныйОборотыДтКт.СубконтоКт2, | ХозрасчетныйОборотыДтКт.СубконтоКт3, | ХозрасчетныйОборотыДтКт.Организация, | ХозрасчетныйОборотыДтКт.ВалютаДт, | ХозрасчетныйОборотыДтКт.ВалютаКт, | ХозрасчетныйОборотыДтКт.СуммаОборот, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт, | ХозрасчетныйОборотыДтКт.КоличествоОборотДт, | ХозрасчетныйОборотыДтКт.КоличествоОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт21), , СчетКт В ИЕРАРХИИ (&СписокКт10), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт |ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)"; Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("Организация", Организация); Запрос.УстановитьПараметр("СписокДт21", Мас101); Запрос.УстановитьПараметр("СписокКт10",Мас102); Запрос.УстановитьПараметр("мас11",Мас11); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок = Новый ТабличныйДокумент; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок.Очистить(); Макет=ПолучитьМакет("Макет"); ТабДок.Вывести(Макет); Область = Макет.ПолучитьОбласть("Заголовок1"); ТабДок.Вывести(Область); ОбластьШапка=Макет.ПолучитьОбласть("ШапкаТаблицы1"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапка); ОбластьСтрока=Макет.ПолучитьОбласть("ОблСтрока1"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт; КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДок.АвтоМасштаб = Истина; ТабДок.Показать(); ТабДок = Запрос.Выполнить().Выгрузить(); КонецПроцедуры |
|||
1
valushka991
21.11.14
✎
13:31
|
Помогите вывести результат запроса в табличный документ?
|
|||
2
valushka991
21.11.14
✎
13:32
|
выводит пустую таблицу
|
|||
3
Любопытная
21.11.14
✎
13:33
|
найди в коде хоть одно Вывести()
|
|||
4
Banned
21.11.14
✎
13:33
|
А где в цикле вывод области строки?
|
|||
5
Cube
21.11.14
✎
13:34
|
(0) Перед КонецЦикла; вставь
ТабДок.Вывести(ОбластьСтрока); |
|||
6
silent person
21.11.14
✎
13:34
|
ТабДок.Вывести(Макет);
ТабДок = Запрос.Выполнить().Выгрузить(); это что ?? и где строка ТабДок.Вывести(ОбластьСтрока); |
|||
7
valushka991
21.11.14
✎
13:37
|
Пока Выборка.Следующий()Цикл
ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт; КонецЦикла; ТабДок.Вывести(ОбластьСтрока); ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДок.АвтоМасштаб = Истина; ТабДок.Показать(); КонецПроцедуры |
|||
8
valushka991
21.11.14
✎
13:37
|
все равно не работает(((
|
|||
9
valushka991
21.11.14
✎
13:38
|
Пока Выборка.Следующий()Цикл
ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт; ТабДок.Вывести(ОбластьСтрока); КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДок.АвтоМасштаб = Истина; ТабДок.Показать(); КонецПроцедуры |
|||
10
Banned
21.11.14
✎
13:39
|
(8) Ты (5) внимательно изучила? И да - "до" и "после" в русском имеют разные значения
|
|||
11
valushka991
21.11.14
✎
13:39
|
я уже переставила все ровно не работает(((
|
|||
12
Gossar1C
21.11.14
✎
13:41
|
(11) а у тебя результат запроса не пустой?)
|
|||
13
Gossar1C
21.11.14
✎
13:42
|
(11) попробуй так
ТабДок.Вывести(ОбластьСтрока,Выборка.Уровень()); |
|||
14
13_Mult
21.11.14
✎
13:42
|
||||
15
Cube
21.11.14
✎
13:43
|
(0) Оооо, так ты девушка...
На этом форуме девушкам принято сначала фотку в личную карточку выкладывать, а потом уже спрашивать. И чем удачнее фото, тем лучше отвветы. |
|||
16
valushka991
21.11.14
✎
13:48
|
а без фото что помочь нельзя?
|
|||
17
Gossar1C
21.11.14
✎
13:48
|
(16) тебе помогло (13)? и ответь на (12) :D
|
|||
20
hhhh
21.11.14
✎
13:54
|
(16) Макет=ПолучитьМакет("Макет");
ТабДок.Вывести(Макет); вы ведь и выводите пустой макет. И сами потом удивляетесь. |
|||
21
valushka991
21.11.14
✎
13:57
|
(20) а без него он у меня выводит только заголовок и шапку
|
|||
22
valushka991
21.11.14
✎
13:57
|
(17) не помогло(
|
|||
23
hhhh
21.11.14
✎
14:02
|
(21) всё равно не надо. Не нужен вам пустой бланк. Надо заполненный.
|
|||
24
silent person
21.11.14
✎
14:02
|
(22) значит в запрос ничего не попадает, вот и выводит только заголовок и шапку.
|
|||
25
Gossar1C
21.11.14
✎
14:03
|
(24) так я же говорил
|
|||
26
valushka991
21.11.14
✎
14:05
|
и что мне сделать что бы бланк выводил заполненный а не пустой?
|
|||
27
silent person
21.11.14
✎
14:06
|
проверить а что собственно есть в результате запроса
|
|||
28
hhhh
21.11.14
✎
14:14
|
(26) проверьте
|ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)"; может номенклатура не первое субконто? В плане счетов посмотрите. |
|||
29
valushka991
21.11.14
✎
14:18
|
(28) там все верно.просто до этого у меня заполнялась таблица .потом я переписала код и все больше она не заполняется
|
|||
30
Gossar1C
21.11.14
✎
14:18
|
(29) кинь код процедуры еще раз целиком
|
|||
31
valushka991
21.11.14
✎
14:22
|
Процедура КнопкаВыполнитьНажатие(Кнопка)
Мас10=Новый массив ; Мас10.Добавить(ПланыСчетов.Хозрасчетный.Материалы); Мас10.Добавить(ПланыСчетов.Хозрасчетный.Товары); Мас1=Новый Массив; Для Каждого Стр из Настройка Цикл мас1.Добавить(Стр.Номенклатура); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОборотыДтКт.Период, | ХозрасчетныйОборотыДтКт.Регистратор, | ХозрасчетныйОборотыДтКт.СчетДт, | ХозрасчетныйОборотыДтКт.СчетКт, | ХозрасчетныйОборотыДтКт.СубконтоДт1, | ХозрасчетныйОборотыДтКт.СубконтоДт2, | ХозрасчетныйОборотыДтКт.СубконтоДт3, | ХозрасчетныйОборотыДтКт.СубконтоКт1, | ХозрасчетныйОборотыДтКт.СубконтоКт2, | ХозрасчетныйОборотыДтКт.СубконтоКт3, | ХозрасчетныйОборотыДтКт.Организация, | ХозрасчетныйОборотыДтКт.ВалютаДт, | ХозрасчетныйОборотыДтКт.ВалютаКт, | ХозрасчетныйОборотыДтКт.СуммаОборот, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт, | ХозрасчетныйОборотыДтКт.КоличествоОборотДт, | ХозрасчетныйОборотыДтКт.КоличествоОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт10), , СчетКт В ИЕРАРХИИ (&СписокКт60), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт |ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоДт1 В(&Мас1)"; Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("Организация", Организация); Запрос.УстановитьПараметр("СписокДт10", Мас10); Запрос.УстановитьПараметр("СписокКт60",ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); Запрос.УстановитьПараметр("мас1",Мас1); // ТабДок = Новый ТабличныйДокумент; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок.Очистить(); Макет=ПолучитьМакет("Макет"); ТабДок.Вывести(Макет); Область = Макет.ПолучитьОбласть("Заголовок"); ТабДок.Вывести(Область); ОбластьШапка=Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапка); ОбластьСтрока=Макет.ПолучитьОбласть("ОблСтрока"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП1=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС1=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл1=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол1=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт1=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен1=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист1="ДебитСч"+Выборка.СчетДт; ТабДок.Вывести(ОбластьСтрока); КонецЦикла; // ////////////////////////////////////////////////////////////////////////////////////////////////// Мас101=Новый массив ; Мас101.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты); Мас101.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД); Мас102=Новый массив ; Мас102.Добавить(ПланыСчетов.Хозрасчетный.Товары); Мас102.Добавить(ПланыСчетов.Хозрасчетный.Материалы); Мас11=Новый Массив; Для Каждого Стр из Настройка Цикл мас11.Добавить(Стр.Номенклатура); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОборотыДтКт.Период, | ХозрасчетныйОборотыДтКт.Регистратор, | ХозрасчетныйОборотыДтКт.СчетДт, | ХозрасчетныйОборотыДтКт.СчетКт, | ХозрасчетныйОборотыДтКт.СубконтоДт1, | ХозрасчетныйОборотыДтКт.СубконтоДт2, | ХозрасчетныйОборотыДтКт.СубконтоДт3, | ХозрасчетныйОборотыДтКт.СубконтоКт1, | ХозрасчетныйОборотыДтКт.СубконтоКт2, | ХозрасчетныйОборотыДтКт.СубконтоКт3, | ХозрасчетныйОборотыДтКт.Организация, | ХозрасчетныйОборотыДтКт.ВалютаДт, | ХозрасчетныйОборотыДтКт.ВалютаКт, | ХозрасчетныйОборотыДтКт.СуммаОборот, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт, | ХозрасчетныйОборотыДтКт.КоличествоОборотДт, | ХозрасчетныйОборотыДтКт.КоличествоОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт21), , СчетКт В ИЕРАРХИИ (&СписокКт10), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт |ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&Мас11)"; Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("Организация", Организация); Запрос.УстановитьПараметр("СписокДт21", Мас101); Запрос.УстановитьПараметр("СписокКт10",Мас102); Запрос.УстановитьПараметр("мас11",Мас11); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок = Новый ТабличныйДокумент; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок.Очистить(); Макет=ПолучитьМакет("Макет"); ТабДок.Вывести(Макет); Область = Макет.ПолучитьОбласть("Заголовок1"); ТабДок.Вывести(Область); ОбластьШапка=Макет.ПолучитьОбласть("ШапкаТаблицы1"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапка); ОбластьСтрока=Макет.ПолучитьОбласть("ОблСтрока1"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт; ТабДок.Вывести(ОбластьСтрока); КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДок.АвтоМасштаб = Истина; ТабДок.Показать(); ТабДок = Запрос.Вывести(); КонецПроцедуры |
|||
32
hhhh
21.11.14
✎
14:30
|
а точно есть по 21-му счету движения? Если в оборотке посмотртеь?
|
|||
33
valushka991
21.11.14
✎
14:31
|
точно есть
|
|||
34
hhhh
21.11.14
✎
14:42
|
очень много мелких ошибок. пятница. Может вам лучше на понедельник это дело перенести?
|
|||
35
valushka991
21.11.14
✎
14:45
|
(34) нееет мне сегодня нужно увы(((
|
|||
36
hhhh
21.11.14
✎
14:48
|
ну например, отношения к проблеме не имеет.
ОбластьСтрока.Параметры.Кол=Выборка.Количество(); Выборка.Количество() - это количество строчек в вашей выборке. А вам надо наверно количество товара. |
|||
37
Gossar1C
21.11.14
✎
14:52
|
(35) в последнем коде 2 разных варианта кода? или оба функционируют в процедуре? чтот я просто не понял
|
|||
38
valushka991
21.11.14
✎
14:57
|
там 2 таблицы .одна идет по Дебиту Другая По Кредиту.
|
|||
39
vhl
21.11.14
✎
14:59
|
Так что выводит?:
ТабДок = Новый ТабличныйДокумент; Результат = Запрос.Выполнить(); Если Результат.Пустой() Тогда Предупреждение("Результат - пустой!"); Возврат; КонецЕсли; Выборка = Результат.Выбрать(); Макет=ПолучитьМакет("Макет"); Область = Макет.ПолучитьОбласть("Заголовок1"); ТабДок.Вывести(Область); ОбластьШапка=Макет.ПолучитьОбласть("ШапкаТаблицы1"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДок.Вывести(ОбластьШапка); ОбластьСтрока=Макет.ПолучитьОбласть("ОблСтрока1"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол=Выборка.Количество(); ОбластьСтрока.Параметры.ОбщСт=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен=Окр(Выборка.СуммаОборот/Выборка.Количество(),2); ОбластьСтрока.Параметры.Ист="ДебитСч"+Выборка.СчетДт; ТабДок.Вывести(ОбластьСтрока); КонецЦикла; ТабДок.Показать(); |
|||
40
valushka991
21.11.14
✎
15:00
|
нет не то. одна идет на затраты а другая списание.
|
|||
41
valushka991
21.11.14
✎
15:02
|
(39) вывести должна
1 предприятие 2 НаименСырья 3 Склад 3 количество 4 общая стоимость 5 цена 6 источник |
|||
42
vhl
21.11.14
✎
15:08
|
(41) На вопрос ответь
|
|||
43
valushka991
21.11.14
✎
15:10
|
(42) куда в таблицу?
|
|||
44
Gossar1C
21.11.14
✎
15:11
|
ВОт привет в читабельный вид)
МассивКТ10 = Новый Массив; МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Материалы); МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Товары); МассивСубконто = Новый Массив; Для Каждого Стр из Настройка Цикл МассивСубконто.Добавить(Стр.Номенклатура); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОборотыДтКт.Период, | ХозрасчетныйОборотыДтКт.Регистратор, | ХозрасчетныйОборотыДтКт.СчетДт, | ХозрасчетныйОборотыДтКт.СчетКт, | ХозрасчетныйОборотыДтКт.СубконтоДт1, | ХозрасчетныйОборотыДтКт.СубконтоДт2, | ХозрасчетныйОборотыДтКт.СубконтоДт3, | ХозрасчетныйОборотыДтКт.СубконтоКт1, | ХозрасчетныйОборотыДтКт.СубконтоКт2, | ХозрасчетныйОборотыДтКт.СубконтоКт3, | ХозрасчетныйОборотыДтКт.Организация, | ХозрасчетныйОборотыДтКт.ВалютаДт, | ХозрасчетныйОборотыДтКт.ВалютаКт, | ХозрасчетныйОборотыДтКт.СуммаОборот, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт, | ХозрасчетныйОборотыДтКт.КоличествоОборотДт, | ХозрасчетныйОборотыДтКт.КоличествоОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт10), , СчетКт В ИЕРАРХИИ (&СписокКт60), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт |ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоДт1 В(&МассивСубконто)"; Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("Организация", Организация); Запрос.УстановитьПараметр("СписокДт10", МассивКТ10); Запрос.УстановитьПараметр("СписокКт60",ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); Запрос.УстановитьПараметр("МассивСубконто",МассивСубконто); Результат = Запрос.Выполнить(); Если НЕ Результат.Пустой() Тогда Выборка = Результат.Выбрать(); ТабДокПервый = Новый ТабличныйДокумент; Макет = ПолучитьМакет("Макет"); Область = Макет.ПолучитьОбласть("Заголовок"); ТабДокПервый.Вывести(Область); ОбластьШапка = Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДокПервый.Вывести(ОбластьШапка); ОбластьСтрока = Макет.ПолучитьОбласть("ОблСтрока"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП1=Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС1=Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл1=Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол1=Выборка.КоличествоДт; ОбластьСтрока.Параметры.ОбщСт1=Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен1=Окр(Выборка.СуммаОборот/Выборка.КоличествоДт,2); ОбластьСтрока.Параметры.Ист1="ДебитСч"+Выборка.СчетДт; ТабДокПервый.Вывести(ОбластьСтрока,Выборка.Уровень()); КонецЦикла; ТабДокПервый.ОтображатьСетку = Ложь; ТабДокПервый.Защита = Ложь; ТабДокПервый.ТолькоПросмотр = Ложь; ТабДокПервый.ОтображатьЗаголовки = Ложь; ТабДокПервый.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДокПервый.АвтоМасштаб = Истина; ТабДок.Показать(); Иначе Сообщить("Первый пустой"); КонецЕсли; /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// МассивДТ21 = Новый Массив ; МассивДТ21.Добавить(ПланыСчетов.Хозрасчетный.Полуфабрикаты); МассивДТ21.Добавить(ПланыСчетов.Хозрасчетный.СебестоимостьПродажНеОблагаемаяЕНВД); МассивКТ10 = Новый Массив ; МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Товары); МассивКТ10.Добавить(ПланыСчетов.Хозрасчетный.Материалы); МассивСубконто = Новый Массив; Для Каждого Стр из Настройка Цикл МассивСубконто.Добавить(Стр.Номенклатура); КонецЦикла; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОборотыДтКт.Период, | ХозрасчетныйОборотыДтКт.Регистратор, | ХозрасчетныйОборотыДтКт.СчетДт, | ХозрасчетныйОборотыДтКт.СчетКт, | ХозрасчетныйОборотыДтКт.СубконтоДт1, | ХозрасчетныйОборотыДтКт.СубконтоДт2, | ХозрасчетныйОборотыДтКт.СубконтоДт3, | ХозрасчетныйОборотыДтКт.СубконтоКт1, | ХозрасчетныйОборотыДтКт.СубконтоКт2, | ХозрасчетныйОборотыДтКт.СубконтоКт3, | ХозрасчетныйОборотыДтКт.Организация, | ХозрасчетныйОборотыДтКт.ВалютаДт, | ХозрасчетныйОборотыДтКт.ВалютаКт, | ХозрасчетныйОборотыДтКт.СуммаОборот, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотДт, | ХозрасчетныйОборотыДтКт.ВалютнаяСуммаОборотКт, | ХозрасчетныйОборотыДтКт.КоличествоОборотДт, | ХозрасчетныйОборотыДтКт.КоличествоОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&НачПериода, &КонПериода, Регистратор, СчетДт В ИЕРАРХИИ (&СписокДт21), , СчетКт В ИЕРАРХИИ (&СписокКт10), , Организация = &Организация) КАК ХозрасчетныйОборотыДтКт |ГДЕ | ХозрасчетныйОборотыДтКт.СубконтоКт1 В(&МассивСубконто)"; Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Запрос.УстановитьПараметр("НачПериода", НачПериода); Запрос.УстановитьПараметр("Организация", Организация); Запрос.УстановитьПараметр("СписокДт21", МассивДТ21); Запрос.УстановитьПараметр("СписокКт10",МассивКТ10); Запрос.УстановитьПараметр("МассивСубконто",МассивСубконто); Результат = Запрос.Выполнить(); Если НЕ Результат.Пустой() Тогда Выборка = Результат.Выбрать(); // Зачем очищать если мы новый содаем ТабДокВторой = Новый ТабличныйДокумент; Макет = ПолучитьМакет("Макет"); Область = Макет.ПолучитьОбласть("Заголовок1"); ТабДокВторой.Вывести(Область); // ??? Шапка таблицы из параметров состоит? Тогда нужно заполнять наименованиями полей ОбластьШапка = Макет.ПолучитьОбласть("ШапкаТаблицы1"); ОбластьШапка.Параметры.Заполнить(Выборка); ТабДокВторой.Вывести(ОбластьШапка); ОбластьСтрока = Макет.ПолучитьОбласть("ОблСтрока1"); Пока Выборка.Следующий()Цикл ОбластьСтрока.Параметры.НаимП = Выборка.СубконтоКт1; ОбластьСтрока.Параметры.НаимС = Выборка.СубконтоДт1; ОбластьСтрока.Параметры.Скл = Выборка.СубконтоДт2; ОбластьСтрока.Параметры.Кол = Выборка.КоличествоДт); ОбластьСтрока.Параметры.ОбщСт = Выборка.СуммаОборот; ОбластьСтрока.Параметры.Цен = Окр(Выборка.СуммаОборот/Выборка.КоличествоДт,2); ОбластьСтрока.Параметры.Ист = "ДебитСч" + Выборка.СчетДт; // Указываем уровень чтобы не перезаписывал одну и ту же строчку ТабДокВторой.Вывести(ОбластьСтрока,Выборка.Уровень()); КонецЦикла; ТабДокВторой.ОтображатьСетку = Ложь; ТабДокВторой.Защита = Ложь; ТабДокВторой.ТолькоПросмотр = Ложь; ТабДокВторой.ОтображатьЗаголовки = Ложь; ТабДокВторой.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт; ТабДокВторой.АвтоМасштаб = Истина; ТабДокВторой.Показать(); Иначе Сообщить("Пусто!"); КонецЕсли; |
|||
45
vhl
21.11.14
✎
15:14
|
(43) в (1) что у тебя написано?
|
|||
46
Gossar1C
21.11.14
✎
15:27
|
ну так получилось?
|
|||
47
valushka991
21.11.14
✎
15:53
|
(46) выдает пустой хотя в регистре бухгалтерии (журнал проводок бух учет )все данные есть
|
|||
48
Ёпрст
21.11.14
✎
16:09
|
(447) покажи свой код целиком
|
|||
49
Gossar1C
21.11.14
✎
16:09
|
(47) оба выдают пустой?
|
|||
50
Gossar1C
21.11.14
✎
16:10
|
(48) погоди до (447) еще не дошли
|
|||
51
valushka991
21.11.14
✎
16:24
|
(49) да оба я не могу Сюда скрины сделать
http://vk.com/id93378113 добавь меня |
|||
52
Vladal
модератор
24.11.14
✎
16:59
|
(15) На этом форуме принято не оффтопить в тематике.
Сначала помогать, потом фотку вымогать. |
|||
53
Vladal
модератор
24.11.14
✎
17:02
|
Даже не вымогать, а вежливо попросить и благодарная девушка возможно, согласится выставить своё фото.
|
|||
54
Cube
25.11.14
✎
04:23
|
(52) (53) А кто вымогает? Это просто совет новому участнику форума :)
Кто не хочет - не выкладывает, никакой принудиловки нет... Но я таким не помогаю, обычно :) |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |