Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Можно ли присоединить область к области при печати? / 18 сообщений из 18, страница 1 из 1
11.11.2011, 12:37
    #37521760
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Привет всем. Не могу понять шо за фигня. Есть код:

Код: plaintext
1.
2.
3.
4.
ОбластьМакета = Макет.ПолучитьОбласть("Строка|Колонка");
ОбластьШтрихКода = Макет.ПолучитьОбласть("СтрокаШтрихКод|Колонка");

ОбластьМакета.Присоединить(ОбластьШтрихКода);

Последняя строка кода не присоеденяет, а выводит. Т.е. две команды дают одинаковый результат:
ОбластьМакета.Присоединить(ОбластьШтрихКода);
и
ОбластьМакета.Вывести(ОбластьШтрихКода);

Куда копать?



Для ограничения типов значений характеристики типами конкретного выбранного вида характеристики у ресурса ЗначениеХарактеристики в качестве значения свойства Связь по типу выбрано измерение регистра ВидХарактеристики . (Е. Ю. Хрусталева)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 13:28
    #37521945
Программист 1с
Программист 1с
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Так шо молодые москали пугают. Бачут надо сначало Вывести а уж потом Присоединять. А вы никак сразу присоединяете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 13:49
    #37522040
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Программист 1с,

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

Если сразу выводить в табличный документ то у меня намного больше кода получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 14:17
    #37522156
Программист 1с
Программист 1с
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
ОбластьМакета.Вывести(ОбластьШтрихКода);
ОбластьМакета.Присоединить(ОбластьШтрихКода);


Вот так Выводит 2 в 1 строку?

У Вас Вывести есть перед присоединить? А размеры областей которые в вывести и присоединить совпадают? Если все да - но не работает. Кидайте текст и картинки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 15:15
    #37522359
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Вывести (Put)
Описание:

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

Присоединить (Join)
Описание:

Присоединяет табличный документ к результирующему табличному документу, помещая его в следующей колонке правее самой правой выведенной колонки, начиная со строки, с которой выводился предыдущий табличный документ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 15:22
    #37522381
Программист 1с
Программист 1с
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Код покажите.

Хелп и так знаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 15:25
    #37522390
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
он хочет область мышкой буксировать
не мучте человека
пусть творит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 15:49
    #37522452
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Долго объяснять но...
Конфигурация УТ для Украины. Для справочника МестоХранения добавлено текстовое поле "Штрихкод".
Предварительный код (идет отладка):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Родитель", МестоХранения.Ссылка);
	Запрос.Текст = "ВЫБРАТЬ
	               |	ЕСТЬNULL(МестаХранения.Родитель.Родитель.Родитель.НаименованиеКраткое + "":"", """") + ЕСТЬNULL(МестаХранения.Родитель.Родитель.НаименованиеКраткое + ""-"", """") + ЕСТЬNULL(МестаХранения.Родитель.НаименованиеКраткое + ""/"", """") + ЕСТЬNULL(МестаХранения.НаименованиеКраткое, """") КАК КодировкаМестаХранения,
	               |	МестаХранения.ШтрихКод
	               |ИЗ
	               |	Справочник.МестаХранения КАК МестаХранения
	               |ГДЕ
	               |	МестаХранения.Родитель В ИЕРАРХИИ(&Родитель)
	               |	И МестаХранения.ЭтоГруппа = ЛОЖЬ
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	МестаХранения.Ссылка ИЕРАРХИЯ";
	
	РезультатЗапроса = Запрос.Выполнить().Выгрузить();
	
	//Если пустой запрос
	Если РезультатЗапроса.Количество()= 0  Тогда
		Возврат;
	КонецЕсли;
	
	ТабДокумент = Новый ТабличныйДокумент;
	Макет = Справочники.МестаХранения.ПолучитьМакет("Наклейки");
	ОбластьКодаМеста = Макет.ПолучитьОбласть("Строка|Колонка");
	ОбластьШтрихКода = Макет.ПолучитьОбласть("Строка|КолонкаШтрихКод");
	
	Колонка =  1 ;
	Для Каждого Строка из РезультатЗапроса Цикл
		
		ШтрихкодИКодМеста = Новый ТабличныйДокумент;
		ШтрихкодИКодМеста.Вывести(ОбластьШтрихКода);
		ОбластьКодаМеста.Параметры.Заполнить(Строка);
		ШтрихкодИКодМеста.Присоединить(ОбластьКодаМеста);
	
		Если Колонка > КоличествоКолонок Тогда
			Колонка =  1 ;
		КонецЕсли;
        		
		Если Колонка =  1  Тогда
			ТабДокумент.Вывести(ШтрихкодИКодМеста);
		Иначе
			ТабДокумент.Присоединить(ШтрихкодИКодМеста);
		КонецЕсли;
		
		Колонка = Колонка+ 1 ;
		
	КонецЦикла;
	
	//Выведем на экран наклейки
	ТабДокумент.АвтоМасштаб = Истина;
	ТабДокумент.Показать();

где
КоличествоКолонок - в сколько колонок нужно выводить наклейки.

Макет Наклейки :
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:14
    #37522523
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
а получается чего ?
вперемешку все скачет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:17
    #37522535
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
sWinTyz,

Нет, но не так как нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:19
    #37522542
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
так а что получается
а то написано в коде не то что бы я написал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:24
    #37522554
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Я уже вроде вкурил в чем проблема. Если не разберусь отпишусь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:26
    #37522557
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
ШтрихкодИКодМеста = Новый ТабличныйДокумент;

Для Каждого Строка из РезультатЗапроса Цикл
		
	ОбластьКодаМеста.Параметры.Заполнить(Строка);
             ОбластьШтрихКода.Параметры.Заполнить(Строка);

            ТабДокумент.Вывести(ШтрихкодИКодМеста);
            ТабДокумент.Присоединить(ОбластьШтрихКода);

КонецЦикла;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.Показать();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:41
    #37522597
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
У меня пользователь при печати указывает сколько наклеек по ширине на листе должно помещаться и где на наклейке размещается штрихкод (внизу, вверху, по бокам). Поэтому 1С код значительно усложняется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:51
    #37522620
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
та же ерунда
ничего не усложняется
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 16:56
    #37522627
sWinTyz
sWinTyz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Ширина= 5 ;
ШтрихкодИКодМеста = Новый ТабличныйДокумент;
Номер= 1 ;
Для Каждого Строка из РезультатЗапроса Цикл
	ОбластьКодаМеста.Параметры.Заполнить(Строка);
             ОбластьШтрихКода.Параметры.Заполнить(Строка);
             Если Номер>Ширина Тогда
                 ТабДокумент.Присоединить(ШтрихкодИКодМеста);
                 Номер= 1 ;
             Иначе
                 ТабДокумент.Вывести(ШтрихкодИКодМеста);
                 Номер=Номер+ 1 ;
            КоенцЕсли;            
            ТабДокумент.Присоединить(ОбластьШтрихКода);
КонецЦикла;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.Показать();
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 17:15
    #37522680
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Всё сделал. Нашел где я ошибался. Спасибо всем за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2011, 17:19
    #37522696
Юрец
Юрец
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Можно ли присоединить область к области при печати?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
ГотовыйДокумент = Новый ТабличныйДокумент;
	
	Макет = Справочники.МестаХранения.ПолучитьМакет("Наклейки");
	ОбластьКодаМеста = Макет.ПолучитьОбласть("Строка|Колонка");
	ОбластьШтрихКода = Макет.ПолучитьОбласть("Строка|КолонкаШтрихКод");
	
	//Обнулим необходимые переменные 
	Колонка =  1 ;
	СтрокаНаклеек = Новый ТабличныйДокумент;
	
	Для Каждого СтрокаРезультата из РезультатЗапроса Цикл
		
		//Заполняем кодировку места хранения
		ОбластьКодаМеста.Параметры.Заполнить(СтрокаРезультата);
		
		//Заполняем штрихкод
		Если ЗначениеЗаполнено(Строка.Штрихкод) Тогда
			ОбластьШтрихКода.Рисунки.Штрихкод.Объект.ТипКода =  1 ;
			ОбластьШтрихКода.Рисунки.Штрихкод.Объект.Сообщение = Строка.ШтрихКод;
			ОбластьШтрихКода.Рисунки.Штрихкод.ВыводитьНаПечать = Истина;
		Иначе
			ОбластьШтрихКода.Рисунки.Штрихкод.ВыводитьНаПечать = Ложь;
			ОбластьШтрихКода.Рисунки.Штрихкод.Объект.Сообщение = Строка.ШтрихКод;
		КонецЕсли;

		//Если штрихкод нужно выводить 
		Если ПечататьШтрихКод Тогда
			
			//Размещение штрихкода на наклейке
			Если РазмещениеШтрихкода = "Верх" Тогда
				Наклейка.Вывести(ОбластьШтрихКода);
				Наклейка.Вывести(ОбластьКодаМеста);
			ИначеЕсли РазмещениеШтрихкода = "Низ" Тогда
				Наклейка.Вывести(ОбластьКодаМеста);
				Наклейка.Вывести(ОбластьШтрихКода);
			ИначеЕсли РазмещениеШтрихкода = "Лево" Тогда
				Наклейка.Присоединить(ОбластьШтрихКода);
				Наклейка.Присоединить(ОбластьКодаМеста);
			ИначеЕсли РазмещениеШтрихкода = "Право" Тогда
				Наклейка.Присоединить(ОбластьКодаМеста);
				Наклейка.Присоединить(ОбластьШтрихКода);
			КонецЕсли;
			
		//Если выводим без штрихкода
		Иначе
			Наклейка.Вывести(ОбластьКодаМеста);
		КонецЕсли;
		
		Если Колонка = КоличествоКолонок Тогда
			СтрокаНаклеек.Присоединить(Наклейка);
			ГотовыйДокумент.Вывести(СтрокаНаклеек);
			Колонка =  1 ;
			СтрокаНаклеек = Новый ТабличныйДокумент;
		Иначе
			СтрокаНаклеек.Присоединить(Наклейка);
			Колонка = Колонка+ 1 ;
		КонецЕсли;
			
	КонецЦикла;
	
	//Выводим последнюю строку наклеек которая была сформирована но не выведена в цикле
	ГотовыйДокумент.Вывести(СтрокаНаклеек);
	
	//Выведем на экран наклейки
	ГотовыйДокумент.АвтоМасштаб = Истина;
	ГотовыйДокумент.Показать();

Спасибо всем за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Можно ли присоединить область к области при печати? / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]