почему может ругаться 1с 8.2 на функцию ПолучитьМакет() ?

1С v8

28.06.12

✎

09:13

{Форма.Форма.Форма(6,10)}: Процедура или функция с указанным именем не определена (ПолучитьМакет)
Макет = <<?>>ПолучитьМакет("Домоуправления"); (Проверка: Сервер)

1 Живой Ископаемый

28.06.12

✎

09:16

ну нет такой функции глобального контекста...

2 mikecool

28.06.12

✎

09:16

форма дополнительная

3 LivingStar

28.06.12

✎

09:20

я сделал внешний отчет, создал макет, запрос и хочу обработать его в вывести в него
как сделать то можно?

4 LivingStar

28.06.12

✎

09:20

(1) в синтакс помошнике есть!

5 Рэйв

28.06.12

✎

09:24

Форма не привязана к объекту

6 ДенисЧ

28.06.12

✎

09:26

текОбъект = РеквизитФормыВЗначение("Объект");
макет = текОбъект.ПолучитьМакет("Макет");

7 LivingStar

28.06.12

✎

09:34

пишет недопустимое значение параметра номер 1, не на "Объект" ли ругается?

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Процедура СформироватьДомоуправления()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Макет");
//Макет = ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.ВывестиОбласть(Шапка);
НовыйЗапрос = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выполнить.Выбрать();
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Группировка(1) Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
ТабДок.ВывестиОбласть(Строки);
КонецЦикла;
ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправления()
СформироватьДомоуправления();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

8 SeraFim

28.06.12

✎

09:35

(7) пятница завтра :)

9 zladenuw

28.06.12

✎

09:36

ЭтотОбъект=РеквизитФормыВЗначение("Отчет");

10 butterbean

28.06.12

✎

09:36

(7) а у тебя есть такой реквизит формы??

11 Рэйв

28.06.12

✎

09:37

(7)ТабДок.Показать();

аха....На сервере.Процессору :-)

12 LivingStar

28.06.12

✎

09:39

(9) что это даст?
(10) нет, у меня только даты там, макет же в макетах обработки

13 butterbean

28.06.12

✎

09:40

(12) какой у тебя основной реквизит формы?? он жирным выделен в списке реквизтов

14 tdm

28.06.12

✎

09:42

(5) +1

15 LivingStar

28.06.12

✎

09:44

(13) Объект - выделен жирным, еще есть НачДата, КонДата

16 butterbean

28.06.12

✎

09:46

(15) тип какой написан у этого "Объект"

17 Живой Ископаемый

28.06.12

✎

09:46

2(4)нету

18 butterbean

28.06.12

✎

09:46

19 Живой Ископаемый

28.06.12

✎

09:46

2(4) будешь спорить на деньги?

20 SeraFim

28.06.12

✎

09:47

Пока РезЗапроса.Группировка(1) - кто-то на семерке пересидел? :)

21 Леха Дум

28.06.12

✎

09:47

проще надо быть, проще

&НаСервере если что
макет = Справочники.Контрагенты.ПолучитьМакет("Макет");

22 Flyd-s

28.06.12

✎

09:48

ПолучитьМакет("Домоуправления");
...
Макет = текОбъект.ПолучитьМакет("Макет");

???

23 Avalone2010

28.06.12

✎

09:48

(0) обработка встроенная или нет? Если встроенная то макет получаем таким образом:
Макет = Обработки.МояОбработка.ПолучитьМакет("ИмяМакета")

24 LivingStar

28.06.12

✎

09:49

(16) внешняя обработка объект

25 LivingStar

28.06.12

✎

09:50

(23) внешняя

26 aleks-id

28.06.12

✎

09:50

на курсы. срочно!!!

27 LivingStar

28.06.12

✎

09:51

(20 да пока так накидал, хочу отладить но не идет (
)

28 butterbean

28.06.12

✎

09:51

(24) как макет называется??

29 LivingStar

28.06.12

✎

09:52

(28) Домоуправления

30 Avalone2010

28.06.12

✎

09:52

у меня так работает

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Об = РеквизитФормыВЗначение("Отчет");
Мак = Об.ПолучитьМакет("Макет");
КонецПроцедуры

31 zladenuw

28.06.12

✎

09:53

v8: Внешний отчет 8.2 Почему не работает метод ПолучитьМакет?

32 Avalone2010

28.06.12

✎

09:53

Отчет это (ВнешнийОтчет.ВнешнийОтчет1)

33 butterbean

28.06.12

✎

09:53

(29) шож ты мозги то ипешь тогда своим "Макет"

34 Avalone2010

28.06.12

✎

09:54

(29) ЖЖОШ!!!

35 LivingStar

28.06.12

✎

10:15

сейчас ругается на ВывестиОбласть(), че надо ему ?? (

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Процедура СформироватьДомоуправления()
щ = 0;
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
//Макет = ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.ВывестиОбласть(Шапка);
НовыйЗапрос = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выполнить.Выбрать();
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Группировка(1) Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
Макет.ВывестиОбласть(Строки);
КонецЦикла;
Макет.Показать();
КонецПроцедуры

&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
СформироватьДомоуправления()
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------
// ------------------------------------------------------------------------------------------------------------------------------------

36 Infsams654

28.06.12

✎

10:17

? на сервере...

37 butterbean

28.06.12

✎

10:17

(35) ты бы хоть текст ошибки писал... и истерил поменьше

38 Любопытная

28.06.12

✎

10:17

(35) Вывести, а не ВывестиОбласть

39 Infsams654

28.06.12

✎

10:18

(36)+ макет и данные получи на клиент и там выводи

40 LivingStar

28.06.12

✎

10:18

(37) в том до и дело нет сообщения об ошибке, просто в окне предупреждения, написано и все...

41 SeraFim

28.06.12

✎

10:18

Макет - это табличный документ, где у тебя заготовлен макет (эскиз, бланк) печатной формы.
Ты берешь этот бланк, заполняешь его и выводишь в Новый ТабличныйДокумент

42 LivingStar

28.06.12

✎

10:24

ругается - слишком много фактических параметров, не знаю на что

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Процедура СформироватьДомоуправления()
щ = 0;
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
//Макет = ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выполнить().Выбрать();
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Группировка(1) Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
Макет.Вывести(Строки);
КонецЦикла;
Макет.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
СформироватьДомоуправления()
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

43 Rie

28.06.12

✎

10:27

Знаешь. Ругается на то, что слишком много фактических параметров. Если бы ты показал сообщение об ошибке - то было бы понятно, в каком вызове, а так лень читать.

Впрочем, бросилось в глаза

Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);

Это не маразм ли?

44 zladenuw

28.06.12

✎

10:28

&НаСервере
Процедура СформироватьДомоуправления()
щ = 0;
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
//Макет = ПолучитьМакет("Домоуправления");

Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выполнить().Выбрать();
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Группировка(1) Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
Макет.Вывести(Строки);
КонецЦикла;
Макет.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

&НаКлиенте
Процедура ВывестиДомоуправление(Команда)

СформироватьДомоуправления()
КонецПроцедуры

45 zladenuw

28.06.12

✎

10:30

(44) случайно

&НаСервере
Процедура СформироватьДомоуправления()
//кому ты решил показать отчет на сервере ? :)
возврат ТабДок
КонецПроцедуры
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТабДок = Новый ТабличныйДокумент;
ТабДок=СформироватьДомоуправления();
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Защита = Истина;
ТабДок.ОтображатьГруппировки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры

46 butterbean

28.06.12

✎

10:30

(42) ты просто взял код из 7.7 и построчно переделываешь его на 8.2, причем совершенно не думая

47 LivingStar

28.06.12

✎

10:31

на перебор запроса наверное ругался, не верно там было, сейчас ругается метод объекта Выбрать не обнаружен

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Процедура СформироватьДомоуправления()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Следующий() Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
Макет.Вывести(Строки);
КонецЦикла;
Макет.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
СформироватьДомоуправления()
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

48 LivingStar

28.06.12

✎

10:33

как напишу сюда так решение в голове появляется, там Выбрать надо после Выполнить

(44) спасибо

49 LivingStar

28.06.12

✎

10:37

сейчас пишет поле объекта КодДомоуправления не обнаружен, хотя оно есть

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Процедура СформироватьДомоуправления()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
РезЗапроса = НовыйЗапрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Строки = Макет.ПолучитьОбласть("Строки");
Пока РезЗапроса.Следующий() Цикл
Строки.КодДомоуправления = РезЗапроса.Ссылка.Код;
Строки.НаименованиеДомоуправления = РезЗапроса.Наименование;
Если РезЗапроса.Свойство = "Транспортировщик" Тогда
Строки.ТранспортировщикДомоуправления = РезЗапроса.Значение;
КонецЕсли;
Если РезЗапроса.Свойство = "Транзит" Тогда
Строки.ТранзитДомоуправления = РезЗапроса.Значение
КонецЕсли;
Если РезЗапроса.Свойство = "ОрганизацияТО" Тогда
Строки.ОрганизацияТОДомоуправления = РезЗапроса.Значение
КонецЕсли;
Макет.Вывести(Строки);
КонецЦикла;
Макет.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
СформироватьДомоуправления()
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

50 SeraFim

28.06.12

✎

10:40

Строки.ПАРАМЕТРЫ.КодДомоуправления

51 Любопытная

28.06.12

✎

10:41

ты бы хоть СП почитал

52 LivingStar

28.06.12

✎

10:43

(50) спасибо, вспомнил, поправил уже!!!

53 LivingStar

28.06.12

✎

10:43

сейчас как в (45) буду обрабатывать!

54 SeraFim

28.06.12

✎

10:44

про (41) и (43) не забудь!

55 LivingStar

28.06.12

✎

10:48

(45) так а вывод секций будет происходить в процедуре СформироватьДомоуправления() ?
а в ВывестиДомоуправление(Команда) только Показать() ?

56 Любопытная

28.06.12

✎

10:49

(55) на сервере таблицу формируешь, возвращаешь ее на клиент и на клиенте уже показываешь. Нормально

57 LivingStar

28.06.12

✎

10:50

или на сервере только выполнить запрос и вернуть результат, а на клиенте его обработка, вывод и показ всех секций?

58 LivingStar

28.06.12

✎

11:08

пишет метод не доступен на клиенте, какой не описано, просто в окне предупреждения

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
Возврат ТзРезЗапроса;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
Домоупр = "";
ТзРезЗапроса = СформироватьДомоуправления();
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
Для каждого ТзСтр Из ТзРезЗапроса Цикл
Строки.Параметры.КодДомоуправления = ТзСтр.Ссылка.Код;
Строки.Параметры.НаименованиеДомоуправления = ТзСтр.Наименование;
Если ТзСтр .Свойство = "Транспортировщик" Тогда
Строки.Параметры.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если ТзСтр .Свойство = "Транзит" Тогда
Строки.Параметры.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если ТзСтр .Свойство = "ОрганизацияТО" Тогда
Строки.Параметры.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
Макет.Вывести(Строки);
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
Макет.Показать();
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Защита = Истина;
ТабДок.ОтображатьГруппировки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

59 Любопытная

28.06.12

✎

11:09

(58) РеквизитФормыВЗначение доступен только на сервере, на клиенте его нет. Тебе же сказали - сделай все на сервере, на клиент верни уже готовый сформированный табличный документ

60 LivingStar

28.06.12

✎

11:11

(59) Ок....

61 LivingStar

28.06.12

✎

11:28

так получается в функции на сервере, мне не нужен никакой макет, подскажите как сформировать таблицу?

62 LivingStar

28.06.12

✎

11:30

выдает неизвестный идентификатор формы

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТзРезЗапроса = СформироватьДомоуправления();
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
Для каждого ТзСтр Из ТзРезЗапроса Цикл
Строки.Параметры.КодДомоуправления = ТзСтр.Ссылка.Код;
Строки.Параметры.НаименованиеДомоуправления = ТзСтр.Наименование;
Если ТзСтр .Свойство = "Транспортировщик" Тогда
Строки.Параметры.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если ТзСтр .Свойство = "Транзит" Тогда
Строки.Параметры.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если ТзСтр .Свойство = "ОрганизацияТО" Тогда
Строки.Параметры.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
Макет.Вывести(Строки);
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
Возврат ТзРезЗапроса;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

63 LivingStar

28.06.12

✎

11:35

макет то мне все равно надо же выводить???? а он доступен только на сервере

64 Любопытная

28.06.12

✎

11:36

(63) ты меня убиваешь...

65 Любопытная

28.06.12

✎

11:37

Не меняй ничего, выводи ТабДок на сервере, все там работает, не парься

66 zladenuw

28.06.12

✎

11:37

(62) УЖАС

пример
&НаСервере
Процедура СформироватьДомоуправления()
ТабДок = Новый ТабличныйДокумент;
//кому ты решил показать отчет на сервере ? :)
//ЗАПОЛНЯЕШЬ МАКЕТ
// отправляешь на клиент!!!!!!
возврат ТабДок
КонецПроцедуры
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТабДок = Новый ТабличныйДокумент;
ТабДок=СформироватьДомоуправления();
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Защита = Истина;
ТабДок.ОтображатьГруппировки = Ложь;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры

67 Любопытная

28.06.12

✎

11:38

(66) почему у меня ТабДок.Показать() на сервере работает?

68 zladenuw

28.06.12

✎

11:40

так если база файловая компилятор &НаСервере выполняется на клиенте.

69 Любопытная

28.06.12

✎

11:40

(68) скуль

70 zladenuw

28.06.12

✎

11:41

хм. а версия 8.2 ? у меня ошибка была...

71 Любопытная

28.06.12

✎

11:41

(70) 8.2.14.540

72 LivingStar

28.06.12

✎

11:42

1С:Предприятие 8.2 (8.2.15.301) SQL

73 LivingStar

28.06.12

✎

11:43

если я просто сформирую перебором и условиями таблицу НоваяСтрока()......
и верну её, как мне вывести то её в макет, если он все равно не доступен
на клиенте?

74 zladenuw

28.06.12

✎

11:43

ну да ладно. :) была проблема на каком то билде. что показать не отображалось если вызов на сервере, может пофиксили

75 zladenuw

28.06.12

✎

11:44

(73) все заполняешь на сервере..... а возвращаешь готовый макет для отображения.

76 LivingStar

28.06.12

✎

11:45

аааа Макет возвращаю? и просто Макет.Показать() на клиенте да?

77 zladenuw

28.06.12

✎

11:45

(66) посмотри внимательней. или ты через строчки читаешь :)

78 Любопытная

28.06.12

✎

11:47

(74) ну как бы... у меня все отчеты в серверных процедурах выводятся, вот я и забеспокоилась, вдруг фигню делаю)

79 LivingStar

28.06.12

✎

11:47

пишет метод Показать() не обнаружен

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
Для каждого ТзСтр Из ТзРезЗапроса Цикл
Строки.Параметры.КодДомоуправления = ТзСтр.Ссылка.Код;
Строки.Параметры.НаименованиеДомоуправления = ТзСтр.Наименование;
Если ТзСтр .Свойство = "Транспортировщик" Тогда
Строки.Параметры.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если ТзСтр .Свойство = "Транзит" Тогда
Строки.Параметры.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если ТзСтр .Свойство = "ОрганизацияТО" Тогда
Строки.Параметры.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
Макет.Вывести(Строки);
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
Возврат Макет;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
Мак = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
Мак.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

80 Любопытная

28.06.12

✎

11:50

(79) ты что вообще делаешь?))

81 LivingStar

28.06.12

✎

11:51

вывелся, но пустой табличный документ

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
Для каждого ТзСтр Из ТзРезЗапроса Цикл
Строки.Параметры.КодДомоуправления = ТзСтр.Ссылка.Код;
Строки.Параметры.НаименованиеДомоуправления = ТзСтр.Наименование;
Если ТзСтр .Свойство = "Транспортировщик" Тогда
Строки.Параметры.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если ТзСтр .Свойство = "Транзит" Тогда
Строки.Параметры.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если ТзСтр .Свойство = "ОрганизацияТО" Тогда
Строки.Параметры.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
Макет.Вывести(Строки);
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
Возврат ТабДок;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТабДок = Новый ТабличныйДокумент;
ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

82 LivingStar

28.06.12

✎

11:51

(79) тороплюсь разобраться с этой хренью!

83 Любопытная

28.06.12

✎

11:51

&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТАБДОК.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
//

ТУТ ТВОЙ ЗАПРОС

Для каждого ТзСтр Из ТзРезЗапроса Цикл
Строки.Параметры.КодДомоуправления = ТзСтр.Ссылка.Код;
Строки.Параметры.НаименованиеДомоуправления = ТзСтр.Наименование;
Если ТзСтр .Свойство = "Транспортировщик" Тогда
Строки.Параметры.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если ТзСтр .Свойство = "Транзит" Тогда
Строки.Параметры.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если ТзСтр .Свойство = "ОрганизацияТО" Тогда
Строки.Параметры.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
ТАБДОК.Вывести(Строки);
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
ТАБДОК.ПОКАЗАТЬ();
КонецФункции

84 zladenuw

28.06.12

✎

11:52

(82) ты вообще на чем до этого писал ?
Может книжки почитаешь про 8.2, а не методом тыка

85 Любопытная

28.06.12

✎

11:52

(82) не торопись уже! Подумай внимательно!!! Прочувствуй разницу между макетом и табличной частью!
Макет - это трафарет, который ты накладываешь на ватман, когда рисуешь какую-то хрень. Но показывать людям ты будешь ватман, а не траварет

86 LivingStar

28.06.12

✎

11:54

(83) зачем показывать на сервере? если решили показывать на клиенте???

87 Любопытная

28.06.12

✎

11:56

(86) забей. покажи на сервере. оно покажется, честное слово)

88 zladenuw

28.06.12

✎

11:56

ты это потом поймешь. главное что бы ты понял что тебе написали в (85)

89 LivingStar

28.06.12

✎

12:00

у меня выводится пустая таблица (((( главное по shift+f9, F2 не могу посмотреть что в таблице....

90 Любопытная

28.06.12

✎

12:04

(89) У тебя на форме табличный документ лежит?

91 Любопытная

28.06.12

✎

12:04

Или куда там ты его выводишь

92 LivingStar

28.06.12

✎

12:07

(90) нет не на форме, решил вывести всё это в таблицу, а потом уже думать про вывод на экран
самое досадное то что задача на 5 копеек, а я вожусь с ней день ((((

93 Любопытная

28.06.12

✎

12:08

В общем, Тот ТабДок, который ты формируешь и типа показываешь, на самом деле нигде не лежит.
Если на пальцах - ты нарисовал отчет на ватмане в чулане, а народ ждет от тебя результатов на ватмане в гостиной. Твоя задача - подложить в гостиную ватман из чулана))

94 Любопытная

28.06.12

✎

12:09

У меня на форме отчета лежит табличная часть, которая называется ТабДок. Она не реквизит отчета, она реквизит формы, поэтому я легко обращаюсь к ней и заполняю ее своим отчетом с помощью макета.
только вначале ее всегда надо очищать)

95 Любопытная

28.06.12

✎

12:10

+(94) Сделай то же самое

96 LivingStar

28.06.12

✎

12:12

(95) вывел все в таблицу, осталось вывести и показать её в макете

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;

КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТабДок = Новый ТабличныйДокумент;
ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

97 LivingStar

28.06.12

✎

12:13

(95) тут управляемые формы, я не дружу с ними

98 zladenuw

28.06.12

✎

12:14

зачем ты заполняешь таблицу5. у тебя макет создан ? заполняй сразу его

99 LivingStar

28.06.12

✎

12:14

заполнил как надо таблицу, что сейчас с ней делать думаю (

100 zladenuw

28.06.12

✎

12:14

100 :)

101 Любопытная

28.06.12

✎

12:14

(96) да не показывают в макете ничего!!! Показывают в табличной части. Ты себе на сервере нарисовал табличный документ, молодец. Теперь на форму кинь табличный документ

102 LivingStar

28.06.12

✎

12:14

(98) что бы посмотреть что тама в ней, макет я не смог посмотреть

103 Любопытная

28.06.12

✎

12:15

+(101) И в этот табличный документ засунь то, что ты сформировал на сервере

104 Любопытная

28.06.12

✎

12:15

(97) ты не дружишь с простейшей логикой. Ты даже не пытаешься понять как работает система. Ну там же все совершенно понятно.

105 LivingStar

28.06.12

✎

12:17

(103) кинул на форму, а как в него засунуть то?

106 zladenuw

28.06.12

✎

12:18

почитай

107 zladenuw

28.06.12

✎

12:18

книги

108 zladenuw

28.06.12

✎

12:18

ты бы прочел и понял что да как... а не разводить глупые вопросы

109 LivingStar

28.06.12

✎

12:19

(103) перебором что ли? метода выгрузить нет....

110 Любопытная

28.06.12

✎

12:19

(105) Как называется то, что кинул?

ТвойТабличныйДокументНаФорме.Очистить();
ТвойТабличныйДокументНаФорме = СформироватьДомоуправления();
ТвойТабличныйДокументНаФорме.Показать();

111 Любопытная

28.06.12

✎

12:19

нет, это невозможно просто

112 LivingStar

28.06.12

✎

12:22

не выводит

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Макет.Вывести(Шапка);
Строки = Макет.ПолучитьОбласть("Строки");
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
Возврат Таблица5;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТаблДокНаФорме.Очистить();
ТаблДокНаФорме = СформироватьДомоуправления();
ТаблДокНаФорме.Показать();
//
//ТабДок = Новый ТабличныйДокумент;
//ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
//ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

113 zladenuw

28.06.12

✎

12:22

НДС_к = СтавкаНалога(ВидНДСУслуги, Дата);

ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ЗаявкаТО.ПолучитьМакет("Акт");
// Шапка
Секция = Макет.ПолучитьОбласть("Шапка");
Попытка
Секция.Рисунки.Лого.Картинка = ФирмаУслуги.ОсновноеИзображение.Хранилище.Получить();
Исключение
КонецПопытки;
Секция.Параметры.Фирма = ФирмаУслуги.НаименованиеПолное;

Секция.Параметры.Телефоны = ФирмаУслуги.Телефоны;
Секция.Параметры.Email = ФирмаУслуги.EMail;
Секция.Параметры.Адрес = ФирмаУслуги.АдресФизический;
Секция.Параметры.КодОКПО = СОКРЛП(ФирмаУслуги.ОКПО);
Секция.Параметры.ИНН = СОКРЛП(ФирмаУслуги.ИНН);
Секция.Параметры.Номер = Номер;
Секция.Параметры.Дата = ФД(Дата);
Секция.Параметры.Клиент = Клиент;
Секция.Параметры.ДокОснование = Ссылка;

Секция.Параметры.НФ = ФирмаУслуги.НаименованиеПолное;
Секция.Параметры.Директор = ФирмаУслуги.Директор;
Секция.Параметры.КлиентДиректор = Клиент.Директор;
// Секция.Параметры.Договор = Контракт;

ТабДок.Вывести(Секция);

//------------

Ном = 1;
Секция = Макет.ПолучитьОбласть("СтрокаТовар");

Для Каждого ТекС Из ТабРаботы Цикл
Секция.Параметры.Ном = Ном;
Секция.Параметры.Товар = ТекС.Нормативы;
Секция.Параметры.Кво = ТекС.Кво;
Секция.Параметры.ЦенаБезНДС = Ф(ТекС.Цена/(1+НДС_к));
Секция.Параметры.СуммаБезНДС = Ф(ТекС.Сумма/(1+НДС_к));
// Секция.Параметры.НДС = Ф3(ТекС.Сумма - ТекС.Сумма/(1+НДС_У));
// Секция.Параметры.СуммаСНДС = Ф(ТекС.Сумма);

ТабДок.Вывести(Секция);
Ном = Ном + 1;

/// Раскрываем связку
//Работа = ТекС.Нормативы;
//Если Работа.Связка = 1 Тогда
//Для каждого Эл из Работа.ТабНормативы Цикл
// Секция = Макет.ПолучитьОбласть("СтрокаСвязки");
// Секция.Параметры.Нормативы = Эл.Норматив;
// ТабДок.Вывести(Секция);
//КонецЦикла;

КонецЦикла;

Для Каждого ТекС Из ТабЧужиеРаботы Цикл
// Секция = Макет.ПолучитьОбласть("Услуга");
Секция.Параметры.Ном = Ном;
Секция.Параметры.Товар = ТекС.Нормативы;
Секция.Параметры.Кво = 1;
Секция.Параметры.ЦенаБезНДС = Ф(ТекС.Цена/(1+НДС_к));
Секция.Параметры.СуммаБезНДС = Ф(ТекС.Цена/(1+НДС_к));
//Секция.Параметры.НДС =Ф(ТекС.Цена - ТекС.Цена/(1+НДС_У));
//Секция.Параметры.СуммаСНДС = Ф(ТекС.Цена);
ТабДок.Вывести(Секция);
Ном = Ном +1;
КонецЦикла;

ГлобСумм = ТабРаботы.Итог("Сумма") + ТабЧужиеРаботы.Итог("Цена");

Секция = Макет.ПолучитьОбласть("Подвал");
Секция.Параметры.ИтогСуммаБезНДС = Ф(ГлобСумм/(1+НДС_к), Валюта);
Секция.Параметры.ИтогНДС = Ф(ГлобСумм - ГлобСумм /(1+НДС_к) , Валюта);
Секция.Параметры.ИтогСНДС = Ф(ГлобСумм, Валюта);
Секция.Параметры.ГлобСуммПроп = ОбщПропись(ГлобСумм, Валюта,"uk_UA");

Секция.Параметры.ГлобНДС = ОбщПропись(ГлобСумм - ГлобСумм /(1+НДС_к), Валюта);

ТабДок.Вывести(Секция);

ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.АвтоМасштаб = Истина;

ТабДок.Показать();
Вот заполняется и выводит таб док на печать.

114 LivingStar

28.06.12

✎

12:22

(113) это все на сервере?

115 zladenuw

28.06.12

✎

12:24

нет у меня толстый клиент. это все на стороне клиента

116 Любопытная

28.06.12

✎

12:25

(112) Так ты нахрена таблицу значений то возвращаешь? Верни Табличный документ

117 Любопытная

28.06.12

✎

12:25

И заполнить надо табличный документ

118 zladenuw

28.06.12

✎

12:25

http://ajc.su/raznoe/makety-v-1s-8-2-eto-ne-slozhno-chast-1-sozdanie-maketa/

119 LivingStar

28.06.12

✎

12:25

(116) потому что я её заполнил

120 Любопытная

28.06.12

✎

12:26

Лучше расскажите мне почему у меня проверка заполнения не срабатывает

121 zladenuw

28.06.12

✎

12:26

где именно ?

122 Любопытная

28.06.12

✎

12:28

(121) в отчете. он пытается софрмироваться несмотря на незаполненные обязательные поля. На каждый реквизит проверку заполнения поставила "выдавать ошибку", чего ему надо... первый раз такое(

123 zladenuw

28.06.12

✎

12:33

то есть формируется не смотря что есть пустые реквизиты ?

124 LivingStar

28.06.12

✎

12:35

как табличный документ заполнять если в него можно только выводить?

125 Любопытная

28.06.12

✎

12:35

победила)

126 zladenuw

28.06.12

✎

12:35

(125) и что было ?

127 zladenuw

28.06.12

✎

12:36

(124) заполняешь области макета. и потом то что в областях выводишь в таб документ.
Мой совет почитай книги. а ты так долго будешь мучатся над элементарным

128 Любопытная

28.06.12

✎

12:37

(126) Ну видимо проблема в том, что отчет формируется не стандартной командой Сформировать, поэтому пришлось добавить проверку Если ЭтаФорма.ПроверкаЗаполнения() Тогда

129 zladenuw

28.06.12

✎

12:38

да не я создал отчет. где просто сформировать по умолчанию есть. не фига не реагирует.

130 Любопытная

28.06.12

✎

12:39

на что не реагирует?

131 zladenuw

28.06.12

✎

12:41

на проверку заполнения. она не вызывается походу для отчета, и может для обработок

132 LivingStar

28.06.12

✎

12:44

я заполнил таблицу, подскажите как мне заполнить таб док что бы вернуть его, просто не догоняю ((((

133 LivingStar

28.06.12

✎

12:44

в него же можно просто вывести секции и все....

134 zladenuw

28.06.12

✎

12:49

(118)

135 LivingStar

28.06.12

✎

12:57

(134) мне это не поможет, я пытаюсь поняфть как мне вывести то что уже есть в таблице, уже и на форму положил табличное поле

136 LivingStar

28.06.12

✎

12:59

мысли просто отсутствуют (

137 Любопытная

28.06.12

✎

13:11

(135) верни с сервера табличный документ. Ты же вначале ветки заполнял табличный документ? Вот его и верни с сервера. И пусть тот табличный документ, который у тебя на форме, будет равен тому табличному документу, который на сервере. Так понятно?

138 LivingStar

28.06.12

✎

13:30

(137) делаю мой командир!

139 LivingStar

28.06.12

✎

13:47

ну вот! все равно не выводит (((

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Строки = Макет.ПолучитьОбласть("Строки");
//
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
//
Для каждого Стр Из Таблица5 Цикл
Строки.Параметры.КодДомоуправления = Стр.КодДомоуправления;
Строки.Параметры.НаименованиеДомоуправления = Стр.НаименованиеДомоуправления;
Строки.Параметры.ТранспортировщикДомоуправления = Стр.ТранспортировщикДомоуправления;
Строки.Параметры.ТранзитДомоуправления = Стр.ТранзитДомоуправления;
Строки.Параметры.ОрганизацияТОДомоуправления = Стр.ОрганизацияТОДомоуправления;
Макет.Вывести(Строки);
КонецЦикла;
//
Возврат ТабДок;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТаблДокНаФорме.Очистить();
ТаблДокНаФорме = СформироватьДомоуправления();
ТаблДокНаФорме.Показать();
//
//ТабДок = Новый ТабличныйДокумент;
//ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
//ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

140 butterbean

28.06.12

✎

13:49

(139) прошло уже 4 часа, а у тебя по прежнему Макет.Вывести()... это видимо не лечится

141 Любопытная

28.06.12

✎

13:49

(139) Золотко, а тебя как зовут?

142 LivingStar

28.06.12

✎

13:53

(140) а как надо? подскажите.... что бы сработало... управляемые формы отталкивают

143 LivingStar

28.06.12

✎

13:54

(141) ну по коду что не так?

144 LivingStar

28.06.12

✎

13:54

ворачиваю же табличный документ

145 Любопытная

28.06.12

✎

13:57

Макет.Вывести(Строки); замени на ТабДок.Вывести(Строки);
И шапка у тебя там вообще не выводится.

146 Любопытная

28.06.12

✎

13:57

И вообще, я требую имя и фото! :)

147 LivingStar

28.06.12

✎

14:01

(146) зачем вам это?

вот поправил, но все так же...

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Строки = Макет.ПолучитьОбласть("Строки");
//
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
//
Для каждого Стр Из Таблица5 Цикл
Строки.Параметры.КодДомоуправления = Стр.КодДомоуправления;
Строки.Параметры.НаименованиеДомоуправления = Стр.НаименованиеДомоуправления;
Строки.Параметры.ТранспортировщикДомоуправления = Стр.ТранспортировщикДомоуправления;
Строки.Параметры.ТранзитДомоуправления = Стр.ТранзитДомоуправления;
Строки.Параметры.ОрганизацияТОДомоуправления = Стр.ОрганизацияТОДомоуправления;
ТабДок.Вывести(Строки);
КонецЦикла;
ТабДок.Показать();
//
Возврат ТабДок;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТаблДокНаФорме.Очистить();
ТаблДокНаФорме = СформироватьДомоуправления();
ТаблДокНаФорме.Показать();
//
//ТабДок = Новый ТабличныйДокумент;
//ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
//ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

148 LivingStar

28.06.12

✎

14:05

вот так вывелась просто таблица, но не макет !

// ------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Строки = Макет.ПолучитьОбласть("Строки");
//
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
//
Для каждого Стр Из Таблица5 Цикл
Строки.Параметры.КодДомоуправления = Стр.КодДомоуправления;
Строки.Параметры.НаименованиеДомоуправления = Стр.НаименованиеДомоуправления;
Строки.Параметры.ТранспортировщикДомоуправления = Стр.ТранспортировщикДомоуправления;
Строки.Параметры.ТранзитДомоуправления = Стр.ТранзитДомоуправления;
Строки.Параметры.ОрганизацияТОДомоуправления = Стр.ОрганизацияТОДомоуправления;
ТабДок.Вывести(Строки);
КонецЦикла;
//ТабДок.Показать();
//
Возврат ТабДок;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура ВывестиДомоуправление(Команда)
ТаблДокНаФорме.Очистить();
ТаблДокНаФорме = СформироватьДомоуправления();
ТаблДокНаФорме.Показать();
//
//ТабДок = Новый ТабличныйДокумент;
//ТабДок = СформироватьДомоуправления();
//ТабДок.ТолькоПросмотр = Истина;
//ТабДок.Защита = Истина;
//ТабДок.ОтображатьГруппировки = Ложь;
//ТабДок.ОтображатьСетку = Ложь;
//ТабДок.ОтображатьЗаголовки = Ложь;
//ТабДок.Показать();
КонецПроцедуры
// ------------------------------------------------------------------------------------------------------------------------------------

149 Любопытная

28.06.12

✎

14:05

&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";

ТаблДокНаФорме.Очистить();

ТаблДокНаФорме.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";

текОбъект = РеквизитФормыВЗначение("Объект");
Макет = текОбъект.ПолучитьМакет("Домоуправления");
Шапка = Макет.ПолучитьОбласть("Шапка");
Строки = Макет.ПолучитьОбласть("Строки");
//

Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//

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

НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
//

Для каждого Стр Из Таблица5 Цикл
Строки.Параметры.КодДомоуправления = Стр.КодДомоуправления;
Строки.Параметры.НаименованиеДомоуправления = Стр.НаименованиеДомоуправления;
Строки.Параметры.ТранспортировщикДомоуправления = Стр.ТранспортировщикДомоуправления;
Строки.Параметры.ТранзитДомоуправления = Стр.ТранзитДомоуправления;
Строки.Параметры.ОрганизацияТОДомоуправления = Стр.ОрганизацияТОДомоуправления;
ТаблДокНаФорме.Вывести(Строки);
КонецЦикла;

ТаблДокНаФорме.Показать();
//

//Возврат ТабДок;
КонецФункции
// ------------------------------------------------------------------------------------------------------------------------------------

&НаКлиенте
Процедура ВывестиДомоуправление(Команда)

СформироватьДомоуправления();

КонецПроцедуры

150 Любопытная

28.06.12

✎

14:07

(148) ты шапку-то не выводишь! Посмотри внимательно, я тебе говорила уже об этом. У тебя в табличном документе только строки

151 LivingStar

28.06.12

✎

14:08

(150) ок, сейчас гляну, а почему в табличное поле что на форме не выводится ничего, или оно и не нужно?

152 LivingStar

28.06.12

✎

14:09

извините за сегодняшнее торможение (!

153 LivingStar

28.06.12

✎

14:10

да шапку вывел, а документ на форме наверное нужно убрать, все равно пуст

154 LivingStar

28.06.12

✎

14:10

большое спасибо за поддержку, продолжаю разбирать эту задачу!

155 Любопытная

28.06.12

✎

14:11

Мы говорим на разных языках вероятно)

156 LivingStar

29.06.12

✎

08:32

пишет, метод не доступен на тонком клиенте, то есть написав такой отчет нет возможности запустить его пользователю, который пользуется тонким клиентом?

// --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
&НаСервере
Функция СформироватьДомоуправления()
Домоупр = "";
ТабДок = Новый ТабличныйДокумент;
ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Домоуправления";
текОбъект = РеквизитФормыВЗначение("Отчет");
Макет = текОбъект.ПолучитьМакет("СписокДомоуправлений");
Шапка = Макет.ПолучитьОбласть("Шапка");
Строки = Макет.ПолучитьОбласть("Строки");
//
Таблица5 = Новый ТаблицаЗначений;
Таблица5.Колонки.Добавить("КодДомоуправления");
Таблица5.Колонки.Добавить("НаименованиеДомоуправления");
Таблица5.Колонки.Добавить("ТранспортировщикДомоуправления");
Таблица5.Колонки.Добавить("ТранзитДомоуправления");
Таблица5.Колонки.Добавить("ОрганизацияТОДомоуправления");
//
НовыйЗапрос = Новый Запрос;
НовыйЗапрос.Текст = "
|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
| ПО Контрагенты.Ссылка = ЗначенияСвойствОбъектов.Объект
|ГДЕ
| (ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транспортировщик""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""Транзит""
| ИЛИ ЗначенияСвойствОбъектов.Свойство.Наименование = ""ОрганизацияТО"")
|
|СГРУППИРОВАТЬ ПО
| Контрагенты.Ссылка,
| Контрагенты.Наименование,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|
|УПОРЯДОЧИТЬ ПО
| Контрагенты.Наименование";
ТзРезЗапроса = НовыйЗапрос.Выполнить().Выгрузить();
//
НоваяСтрока = Таблица5.Добавить();
Для каждого ТзСтр Из ТзРезЗапроса Цикл
НоваяСтрока.КодДомоуправления = ТзСтр.Ссылка.Код;
НоваяСтрока.НаименованиеДомоуправления = ТзСтр.Наименование;
Если СокрЛП(ТзСтр.Свойство) = "Транспортировщик" Тогда
НоваяСтрока.ТранспортировщикДомоуправления = ТзСтр.Значение;
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "Транзит" Тогда
НоваяСтрока.ТранзитДомоуправления = ТзСтр.Значение
КонецЕсли;
Если СокрЛП(ТзСтр.Свойство) = "ОрганизацияТО" Тогда
НоваяСтрока.ОрганизацияТОДомоуправления = ТзСтр.Значение
КонецЕсли;
Если Домоупр <> "" и ТзСтр .Наименование <> Домоупр Тогда
НоваяСтрока = Таблица5.Добавить();
КонецЕсли;
Домоупр = ТзСтр.Наименование;
КонецЦикла;
//
ТабДок.Вывести(Шапка);
н = 1;
Для каждого Стр Из Таблица5 Цикл
Строки.Параметры.Ном = н;
Строки.Параметры.КодДомоуправления = Стр.КодДомоуправления;
Строки.Параметры.НаименованиеДомоуправления = Стр.НаименованиеДомоуправления;
Строки.Параметры.ТранспортировщикДомоуправления = Стр.ТранспортировщикДомоуправления;
Строки.Параметры.ТранзитДомоуправления = Стр.ТранзитДомоуправления;
Строки.Параметры.ОрганизацияТОДомоуправления = Стр.ОрганизацияТОДомоуправления;
ТабДок.Вывести(Строки);
н = н + 1;
КонецЦикла;
Возврат ТабДок;
КонецФункции
// --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
&НаКлиенте
Процедура СписокДомоуправлений(Команда)
СписокДомоуправлений.Очистить();
СписокДомоуправлений = СформироватьДомоуправления();
СписокДомоуправлений.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
СписокДомоуправлений.ПолеСВерху = 0;
СписокДомоуправлений.ПолеСНизу = 0;
СписокДомоуправлений.ПолеСПрава = 0;
СписокДомоуправлений.ПолеСЛева = 0;
СписокДомоуправлений.Автомасштаб = Истина;
//СписокДомоуправлений.Показать();
КонецПроцедуры
// --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

157 LivingStar

29.06.12

✎

10:26

up!

Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан