Форум программистов, компьютерный форум, киберфорум
1С
Форум программистов и сисадминов Киберфорум > Форум программистов > 1С
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.58/26: Рейтинг темы: голосов - 26, средняя оценка - 4.58
0 / 0 / 0
Регистрация: 06.08.2010
Сообщений: 5
1C 8.x

Добавить доп. макеты в ФормуДокумента окно печать

06.08.2010, 13:13. Показов 5187. Ответов 4
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Может быть это и не будет сложно для вашего уровня.
Мне нужно добавить еще по одному каждого макета то есть (Макет2, Приложение2, Макет3, Приложение3) – я могу макеты добавить путем копирования и поменять в них интересующие меня данные, но добавить в ФормуДокумента окно печать не могу сделать так чтобы добавилась в списке нужная форма печати например и: (Макет2+ Приложение2 =как «Коммерческое предложение Экоупак-трейд» в окне печати), а (Макет3+ Приложене3 = как «Спецификация Экоупак-трейд»). на прикрепленных ресунка можно увидеть как примерно это выгледит.
Если кто может мне написать ФормуДокумента окно печать буду очень благодарен. 1С версия 8.1.14.72

Вот как запрограмирован модуль ФормуДокумента окно печать в 1С:

1C
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

Процедура ОсновныеДействияФормыПечать(Кнопка)
    
    Если Не ПроверитьЗаполнениеОбязательныхПолей() Тогда
        Предупреждение("Не заполнены обязательные поля документа!");
    Иначе 
        Список=новый СписокЗначений;
        Список.Добавить("КОММЕРЧЕСКОЕ ПРЕДЛОЖЕНИЕ");
        Список.Добавить("СПЕЦИФИКАЦИЯ");
        Элем=Список.ВыбратьЭлемент("Печать");
        Если Элем=Список[0] тогда
            Макет=ПолучитьМакет("Макет");
        Иначе
            Макет=ПолучитьМакет("Макет1");
        КонецЕсли;
        
        ТабДокумент = Новый ТабличныйДокумент;
        ТабДокумент.НижнийКолонтитул.НачальнаяСтраница=1;
        ТабДокумент.НижнийКолонтитул.Выводить=Истина;
        ТабДокумент.НижнийКолонтитул.ТекстСлева="Контактная информация тел./факс +7 (343) 3295277.   E-mail:  [email]info@ecoupack.ru[/email]";
        
        Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
            Возврат;
        КонецЕсли;
        
        ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
        Если Элем = Список[0] тогда
        
            ОбластьМакета.Параметры.Дата =    Формат(Дата,"ДФ=dd.MM.yyyy")+" № "+Номер;
            
            ОбластьМакета.Параметры.ПодборИзКонтактов =Контрагент.НаименованиеПолное;
        Иначе
            ОбластьМакета.Параметры.Дата =    "Спецификация № "+Номер+"  от "+Формат(Дата,"ДФ=dd.MMMM.yyyy");
            ОбластьМакета.Параметры.Приложение = "Приложение № 1 к Договору №" + ЭтотОбъект.ДоговорКонтрагента.Номер + " от " + Формат(ЭтотОбъект.ДоговорКонтрагента.Дата,"ДФ=""дд.ММ.гггг 'г.'""");
            //
        КонецЕсли;
        Если ВалютаДокумента<>Справочники.Валюты.НайтиПоКоду("810") Тогда 
            ОбластьМакета.Параметры.Цена ="Цена ("+ВалютаДокумента+")";
        Иначе 
            ОбластьМакета.Параметры.Цена ="Цена";
        КонецЕсли;
        
        ТабДокумент.Вывести(ОбластьМакета); 
        
        Для Каждого Стр из Товары Цикл
            ОбластьМакета=Макет.ПолучитьОбласть("Товар");
            ОбластьМакета.Параметры.Номер =Стр.НомерСтроки ;
            ОбластьМакета.Параметры.Номенклатура =Стр.Номенклатура ;
            ОбластьМакета.Параметры.Описание="Приложение № 1."+Стр.НомерСтроки;
            ОбластьМакета.Параметры.Кол =Стр.Количество ;
            ОбластьМакета.Параметры.Ед =Стр.ЕдиницаИзмерения;
            ОбластьМакета.Параметры.Цена =Стр.Цена ;
            ОбластьМакета.Параметры.Сумма =Стр.Сумма ;
            ТабДокумент.Вывести(ОбластьМакета); 
        КонецЦикла;   
        
        ОбластьМакета=Макет.ПолучитьОбласть("Подвал");
        ОбластьМакета.Параметры.Итог ="Итого пакетов: "+товары.Итог("Количество")+" на сумму "+ товары.Итог("Сумма")+" "+ВалютаДокумента;
        
        
        Если Элем=Список[0] тогда
            ОбластьМакета.Параметры.Срок ="Данное предложение актуально до "+Формат(СрокДействия,"ДФ=dd.MM.yyyy");
        КонецЕсли;
 
        ОбластьМакета.Параметры.УсловияОплаты =УсловияОплаты;
        ОбластьМакета.Параметры.УсловияПоставки =УсловияПоставки;
        ОбластьМакета.Параметры.СрокиПоставки =СрокПоставки;    
        Если Элем=Список[0] тогда
            Если ВалютаДокумента<>Справочники.Валюты.НайтиПоКоду("810") Тогда 
                ОбластьМакета.Параметры.Запись ="3. Оплата в рублях по курсу ЦБ РФ на день оплаты."; 
            Иначе 
                ОбластьМакета.Параметры.Запись =""; 
            КонецЕсли;
        КонецЕсли;
        
        //ФамилияИмяОтчествоФизЛица=ФамилияИмяОтчество(Сотрудник,Дата);
        //ПодразделениеДолжностьФизЛица    = ПодразделениеДолжность(Сотрудник,Дата);
        //ФамилияИмяОтчествоОтпускРазрешил = ФамилияИмяОтчествоФизЛица.Фамилия + " " + ФамилияИмяОтчествоФизЛица.Имя + " " + ФамилияИмяОтчествоФизЛица.Отчество;
        //ФИООтпускРазрешил                = ФамилияИнициалыФизЛица(ФамилияИмяОтчествоОтпускРазрешил);
        //ДолжностьОтпускРазрешил          = ПодразделениеДолжностьФизЛица.Должность;
        
        ОбластьМакета.Параметры.Фио ="___________/"+Сотрудник;
        Если Элем=Список[0] тогда
            ОбластьМакета.Параметры.Фио =Сотрудник;
            ОбластьМакета.Параметры.Менеджер =Менеджер;
            ОбластьМакета.Параметры.Расшифрока = ОбщегоНазначения.ФамилияИнициалыФизЛица(КонтактноеЛицо.Наименование);
            ОбластьМакета.Параметры.Должность ="Должность: "+КонтактноеЛицо.Должность;
        КонецЕсли;
        ТабДокумент.Вывести(ОбластьМакета); 
        //НапечататьДокумент(ТабДокумент, 1, Ложь, СформироватьЗаголовокДокумента(ЭтотОбъект), Неопределено, Неопределено);
        
        //Печать Приложений!!!
        
        
        Для Каждого Стр из Товары Цикл
            ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
            Если Элем=Список[0] тогда
                Макет=ПолучитьМакет("Приложение");
            Иначе
                Макет=ПолучитьМакет("Приложение1");
            КонецЕсли;
            
            
            ОбластьМакета=Макет.ПолучитьОбласть("Шапка");
            Если Элем=Список[0] тогда
                ОбластьМакета.Параметры.Дата =Формат(Дата,"ДФ=dd.MM.yyyy")+ " №" + Номер;
                ОбластьМакета.Параметры.Описание="Приложение № 1."+Стр.НомерСтроки;
            Иначе
                ОбластьМакета.Параметры.прил="Приложение № 1."+Стр.НомерСтроки;
                ОбластьМакета.Параметры.Приложение = "к Спецификации №" + номер + " от "+ Формат(Дата,"ДФ=""«дд» ММММ гггг 'г.'""");
            КонецЕсли;
            
            ОбластьМакета.Параметры.Товар=Стр.Номенклатура.Наименование;
            Если Элем=Список[0] тогда
                ОбластьМакета.Параметры.ПРЕДЛОЖЕНИЕ="к КОММЕРЧЕСКОМУ ПРЕДЛОЖЕНИЮ № "+Номер+" от "+Формат(Дата,"ДФ=dd.MM.yyyy");
            Иначе
                //ОбластьМакета.Параметры.ПРЕДЛОЖЕНИЕ="к СПЕЦИФИКАЦИИ № "+Номер+" от "+Формат(Дата,"ДФ=dd.MM.yyyy");
            КонецЕсли;
            ТабДокумент.Вывести(ОбластьМакета); 
            
            
            Обраб.ОбъектОтбораЗначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
            Обраб.ОбъектОтбораНазначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
            Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
            тз=Обраб.СвойстваИЗначения;
            
            Для а=0 по тз.Количество()-1 цикл
                Если ТипЗнч(тз[а].Значение)<>ТипЗнч(Справочники.Номенклатура.ПустаяСсылка()) тогда
                    ОбластьМакета=Макет.ПолучитьОбласть("СтрокаХар");
                    ОбластьМакета.Параметры.Деталь =""+тз[а].Свойство +": "+тз[а].Значение;
                    ТабДокумент.Вывести(ОбластьМакета); 
                КонецЕсли;
            КонецЦикла;
            
            //Обраб=Обработки.ЗначенияСвойствОбъекта;
            Обраб.ОбъектОтбораЗначений=Стр.Номенклатура.Ссылка;
            Обраб.ОбъектОтбораНазначений=Стр.Номенклатура.Ссылка;
            Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
            тз=Обраб.СвойстваИЗначения;
            
            Для а=0 по тз.Количество()-1 цикл
                ОбластьМакета=Макет.ПолучитьОбласть("Строка");
//              ОбластьМакета.Параметры.Номер =тз[а].НомерСтроки ;
                ОбластьМакета.Параметры.Свойство =тз[а].Свойство;
                ОбластьМакета.Параметры.Значение =тз[а].Значение;
                ТабДокумент.Вывести(ОбластьМакета); 
            КонецЦикла;;
            
            ОбластьМакета=Макет.ПолучитьОбласть("Рисунок");
            Если Элем=Список[0] тогда
                
                //Картинка=Стр.Номенклатура.ПолучитьОбъект().ОсновноеИзображение.Хранилище.Получить();
                //Если Картинка<>Неопределено Тогда  
                //  ОбластьМакета.Рисунки.Картинка.Картинка=Картинка;
                //КонецЕсли;
                
            КонецЕсли;         
            ТабДокумент.Вывести(ОбластьМакета); 
            ОбластьМакета=Макет.ПолучитьОбласть("Детали");
            ТабДокумент.Вывести(ОбластьМакета); 
            
            Обраб.ОбъектОтбораЗначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
            Обраб.ОбъектОтбораНазначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
            Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
            тз=Обраб.СвойстваИЗначения;
            
            Для а=0 по тз.Количество()-1 цикл
                Если ТипЗнч(тз[а].Значение)=ТипЗнч(Справочники.Номенклатура.ПустаяСсылка()) тогда
                    ОбластьМакета=Макет.ПолучитьОбласть("Деталь");
                    ОбластьМакета.Параметры.Деталь =""+тз[а].Свойство +" "+тз[а].Значение;
                    Картинка=тз[а].Значение.ОсновноеИзображение.Хранилище.Получить();
                    Если Картинка<>Неопределено Тогда  
                        ОбластьМакета.Рисунки.D1.Картинка=Картинка;
                    КонецЕсли;
                    ТабДокумент.Вывести(ОбластьМакета); 
                КонецЕсли;
            КонецЦикла;
            
            Если Элем=Список[0] тогда
            Иначе
                
                ОбластьМакета=Макет.ПолучитьОбласть("Фио");
                ОбластьМакета.Параметры.Фио ="___________/"+Сотрудник;
                ТабДокумент.Вывести(ОбластьМакета); 
            
            КонецЕсли;         
        КонецЦикла;   
        ТабДокумент.Показать();
        ТабДокумент.АвтоМасштаб=Истина;
        //НапечататьДокумент(ТабДокумент, 1, Ложь, СформироватьЗаголовокДокумента(ЭтотОбъект), Неопределено, Неопределено);
        
    КонецЕсли;
КонецПроцедуры
Миниатюры
Добавить доп. макеты в ФормуДокумента окно печать   Добавить доп. макеты в ФормуДокумента окно печать   Добавить доп. макеты в ФормуДокумента окно печать  

0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 06.08.2010, 13:13
Ответы с готовыми решениями:

Групповая Печать - Как Получить Макеты Для Печати
Приветствую всех! Пишу обработку групповой печати документов (см.рис.) для самообучения. Понимаю, что есть готовые решения. 1С 82,...

при клике в steam всплывает доп. окно с рекламой
При любом клике в steam или при открытии сайтов в браузере всплывает вкладка с рекламой. И на самих сайтах тоже присутствует реклама.

Как добавить доп. поле DLE в PHP
Здравствуйте всем,у меня такой вопрос: как добавить доп поля в php код. cms DLE 10.5 p.s. есть модуль нужно что бы модуль выводил инфу...

4
 Аватар для nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
06.08.2010, 15:22
Meclvecl,
Не вопрос, сделаю.
А очень благодарен это на сколько?

Добавлено через 16 минут
Meclvecl,
Пользуйтесь:
1C
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207

Процедура ОсновныеДействияФормыПечать(Кнопка)
        
        Если Не ПроверитьЗаполнениеОбязательныхПолей() Тогда
                Предупреждение("Не заполнены обязательные поля документа!");
        Иначе 
                Список=новый СписокЗначений;
        Список.Добавить("КОММЕРЧЕСКОЕ ПРЕДЛОЖЕНИЕ");
        Список.Добавить("СПЕЦИФИКАЦИЯ");
        Список.Добавить("КОММЕРЧЕСКОЕ ПРЕДЛОЖЕНИЕ Экоупак-трейд");
        Список.Добавить("СПЕЦИФИКАЦИЯ Экоупак-трейд");
                
        Элем=Список.ВыбратьЭлемент("Печать");
        Если Элем=Список[0] тогда
            Макет=ПолучитьМакет("Макет");
        ИначеЕсли Элем=Список[1] Тогда 
            Макет=ПолучитьМакет("Макет1");
        ИначеЕсли Элем=Список[2] Тогда 
            Макет=ПолучитьМакет("Макет2");
        Иначе 
            Макет=ПолучитьМакет("Макет3");
        КонецЕсли;
                
                ТабДокумент = Новый ТабличныйДокумент;
                ТабДокумент.НижнийКолонтитул.НачальнаяСтраница=1;
                ТабДокумент.НижнийКолонтитул.Выводить=Истина;
                ТабДокумент.НижнийКолонтитул.ТекстСлева="Контактная информация тел./факс +7 (343) 3295277.   E-mail:  [email]info@ecoupack.ru[/email]";
                
                Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
                        Возврат;
                КонецЕсли;
                
                ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
                Если Элем = Список[0] или Элем = Список[2] тогда
                
                        ОбластьМакета.Параметры.Дата =  Формат(Дата,"ДФ=dd.MM.yyyy")+" № "+Номер;
                        ОбластьМакета.Параметры.ПодборИзКонтактов =Контрагент.НаименованиеПолное;
                Иначе
                        ОбластьМакета.Параметры.Дата =  "Спецификация № "+Номер+"  от "+Формат(Дата,"ДФ=dd.MMMM.yyyy");
                        ОбластьМакета.Параметры.Приложение = "Приложение № 1 к Договору №" + ЭтотОбъект.ДоговорКонтрагента.Номер + " от " + Формат(ЭтотОбъект.ДоговорКонтрагента.Дата,"ДФ=""дд.ММ.гггг 'г.'""");
                        //
                КонецЕсли;
                Если ВалютаДокумента<>Справочники.Валюты.НайтиПоКоду("810") Тогда 
                        ОбластьМакета.Параметры.Цена ="Цена ("+ВалютаДокумента+")";
                Иначе 
                        ОбластьМакета.Параметры.Цена ="Цена";
                КонецЕсли;
                
                ТабДокумент.Вывести(ОбластьМакета); 
                
                Для Каждого Стр из Товары Цикл
                        ОбластьМакета=Макет.ПолучитьОбласть("Товар");
                        ОбластьМакета.Параметры.Номер =Стр.НомерСтроки ;
                        ОбластьМакета.Параметры.Номенклатура =Стр.Номенклатура ;
                        ОбластьМакета.Параметры.Описание="Приложение № 1."+Стр.НомерСтроки;
                        ОбластьМакета.Параметры.Кол =Стр.Количество ;
                        ОбластьМакета.Параметры.Ед =Стр.ЕдиницаИзмерения;
                        ОбластьМакета.Параметры.Цена =Стр.Цена ;
                        ОбластьМакета.Параметры.Сумма =Стр.Сумма ;
                        ТабДокумент.Вывести(ОбластьМакета); 
                КонецЦикла;     
                
                ОбластьМакета=Макет.ПолучитьОбласть("Подвал");
                ОбластьМакета.Параметры.Итог ="Итого пакетов: "+товары.Итог("Количество")+" на сумму "+ товары.Итог("Сумма")+" "+ВалютаДокумента;
                
                
                Если Элем=Список[0] или Элем = Список[2] тогда
                ОбластьМакета.Параметры.Срок ="Данное предложение актуально до "+Формат(СрокДействия,"ДФ=dd.MM.yyyy");
                КонецЕсли;
 
                ОбластьМакета.Параметры.УсловияОплаты =УсловияОплаты;
                ОбластьМакета.Параметры.УсловияПоставки =УсловияПоставки;
                ОбластьМакета.Параметры.СрокиПоставки =СрокПоставки;    
                Если Элем=Список[0] или Элем = Список[2] тогда
                        Если ВалютаДокумента<>Справочники.Валюты.НайтиПоКоду("810") Тогда 
                                ОбластьМакета.Параметры.Запись ="3. Оплата в рублях по курсу ЦБ РФ на день оплаты."; 
                        Иначе 
                                ОбластьМакета.Параметры.Запись =""; 
                        КонецЕсли;
                КонецЕсли;
                
                //ФамилияИмяОтчествоФизЛица=ФамилияИмяОтчество(Сотрудник,Дата);
                //ПодразделениеДолжностьФизЛица    = ПодразделениеДолжность(Сотрудник,Дата);
                //ФамилияИмяОтчествоОтпускРазрешил = ФамилияИмяОтчествоФизЛица.Фамилия + " " + ФамилияИмяОтчествоФизЛица.Имя + " " + ФамилияИмяОтчествоФизЛица.Отчество;
                //ФИООтпускРазрешил                = ФамилияИнициалыФизЛица(ФамилияИмяОтчествоОтпускРазрешил);
                //ДолжностьОтпускРазрешил          = ПодразделениеДолжностьФизЛица.Должность;
                
                ОбластьМакета.Параметры.Фио ="___________/"+Сотрудник;
                Если Элем=Список[0] или Элем = Список[2] тогда
                        ОбластьМакета.Параметры.Фио =Сотрудник;
                        ОбластьМакета.Параметры.Менеджер =Менеджер;
                        ОбластьМакета.Параметры.Расшифрока = ОбщегоНазначения.ФамилияИнициалыФизЛица(КонтактноеЛицо.Наименование);
                        ОбластьМакета.Параметры.Должность ="Должность: "+КонтактноеЛицо.Должность;
                КонецЕсли;
                ТабДокумент.Вывести(ОбластьМакета); 
                //НапечататьДокумент(ТабДокумент, 1, Ложь, СформироватьЗаголовокДокумента(ЭтотОбъект), Неопределено, Неопределено);
                
                //Печать Приложений!!!
                
                
                Для Каждого Стр из Товары Цикл
                        ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
                        //Если Элем=Список[0] тогда
                        //      Макет=ПолучитьМакет("Приложение");
                        //Иначе
                        //      Макет=ПолучитьМакет("Приложение1");
                        //КонецЕсли;
                        
                        Если Элем=Список[0] тогда
                            Макет=ПолучитьМакет("Приложение");
                        ИначеЕсли Элем=Список[1] Тогда 
                            Макет=ПолучитьМакет("Приложение1");
                        ИначеЕсли Элем=Список[2] Тогда 
                            Макет=ПолучитьМакет("Приложение2");
                        Иначе 
                            Макет=ПолучитьМакет("Приложение3");
                        КонецЕсли;
                        
                        ОбластьМакета=Макет.ПолучитьОбласть("Шапка");
                        Если Элем=Список[0] или Элем = Список[2] тогда
                                ОбластьМакета.Параметры.Дата =Формат(Дата,"ДФ=dd.MM.yyyy")+ " №" + Номер;
                                ОбластьМакета.Параметры.Описание="Приложение № 1."+Стр.НомерСтроки;
                        Иначе
                                ОбластьМакета.Параметры.прил="Приложение № 1."+Стр.НомерСтроки;
                                ОбластьМакета.Параметры.Приложение = "к Спецификации №" + номер + " от "+ Формат(Дата,"ДФ=""«дд» ММММ гггг 'г.'""");
                        КонецЕсли;
                        
                        ОбластьМакета.Параметры.Товар=Стр.Номенклатура.Наименование;
                        Если Элем=Список[0] или Элем = Список[2] тогда
                                ОбластьМакета.Параметры.ПРЕДЛОЖЕНИЕ="к КОММЕРЧЕСКОМУ ПРЕДЛОЖЕНИЮ № "+Номер+" от "+Формат(Дата,"ДФ=dd.MM.yyyy");
                        Иначе
                                //ОбластьМакета.Параметры.ПРЕДЛОЖЕНИЕ="к СПЕЦИФИКАЦИИ № "+Номер+" от "+Формат(Дата,"ДФ=dd.MM.yyyy");
                        КонецЕсли;
                        ТабДокумент.Вывести(ОбластьМакета); 
                        
                        
                        Обраб.ОбъектОтбораЗначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
                        Обраб.ОбъектОтбораНазначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
                        Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
                        тз=Обраб.СвойстваИЗначения;
                        
                        Для а=0 по тз.Количество()-1 цикл
                                Если ТипЗнч(тз[а].Значение)<>ТипЗнч(Справочники.Номенклатура.ПустаяСсылка()) тогда
                                        ОбластьМакета=Макет.ПолучитьОбласть("СтрокаХар");
                                        ОбластьМакета.Параметры.Деталь =""+тз[а].Свойство +": "+тз[а].Значение;
                                        ТабДокумент.Вывести(ОбластьМакета); 
                                КонецЕсли;
                        КонецЦикла;
                        
                        //Обраб=Обработки.ЗначенияСвойствОбъекта;
                        Обраб.ОбъектОтбораЗначений=Стр.Номенклатура.Ссылка;
                        Обраб.ОбъектОтбораНазначений=Стр.Номенклатура.Ссылка;
                        Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
                        тз=Обраб.СвойстваИЗначения;
                        
                        Для а=0 по тз.Количество()-1 цикл
                                ОбластьМакета=Макет.ПолучитьОбласть("Строка");
//                              ОбластьМакета.Параметры.Номер =тз[а].НомерСтроки ;
                                ОбластьМакета.Параметры.Свойство =тз[а].Свойство;
                                ОбластьМакета.Параметры.Значение =тз[а].Значение;
                                ТабДокумент.Вывести(ОбластьМакета); 
                        КонецЦикла;;
                        
                        ОбластьМакета=Макет.ПолучитьОбласть("Рисунок");
                        Если Элем=Список[0] или Элем = Список[2] тогда
                                
                                //Картинка=Стр.Номенклатура.ПолучитьОбъект().ОсновноеИзображение.Хранилище.Получить();
                                //Если Картинка<>Неопределено Тогда  
                                //      ОбластьМакета.Рисунки.Картинка.Картинка=Картинка;
                                //КонецЕсли;
                                
                        КонецЕсли;                      
                        ТабДокумент.Вывести(ОбластьМакета); 
                        ОбластьМакета=Макет.ПолучитьОбласть("Детали");
                        ТабДокумент.Вывести(ОбластьМакета); 
                        
                        Обраб.ОбъектОтбораЗначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
                        Обраб.ОбъектОтбораНазначений=Стр.ХарактеристикаНоменклатуры.Ссылка;
                        Обраб.ПрочитатьЗаполнитьСвойстваИЗначения();
                        тз=Обраб.СвойстваИЗначения;
                        
                        Для а=0 по тз.Количество()-1 цикл
                                Если ТипЗнч(тз[а].Значение)=ТипЗнч(Справочники.Номенклатура.ПустаяСсылка()) тогда
                                        ОбластьМакета=Макет.ПолучитьОбласть("Деталь");
                                        ОбластьМакета.Параметры.Деталь =""+тз[а].Свойство +" "+тз[а].Значение;
                                        Картинка=тз[а].Значение.ОсновноеИзображение.Хранилище.Получить();
                                        Если Картинка<>Неопределено Тогда  
                                                ОбластьМакета.Рисунки.D1.Картинка=Картинка;
                                        КонецЕсли;
                                        ТабДокумент.Вывести(ОбластьМакета); 
                                КонецЕсли;
                        КонецЦикла;
                        
                        Если Элем=Список[0] или Элем = Список[2] тогда
                        Иначе
                                
                                ОбластьМакета=Макет.ПолучитьОбласть("Фио");
                                ОбластьМакета.Параметры.Фио ="___________/"+Сотрудник;
                                ТабДокумент.Вывести(ОбластьМакета); 
                        
                        КонецЕсли;                      
                КонецЦикла;     
                ТабДокумент.Показать();
                ТабДокумент.АвтоМасштаб=Истина;
                //НапечататьДокумент(ТабДокумент, 1, Ложь, СформироватьЗаголовокДокумента(ЭтотОбъект), Неопределено, Неопределено);
                
        КонецЕсли;
КонецПроцедуры
0
0 / 0 / 0
Регистрация: 06.08.2010
Сообщений: 5
06.08.2010, 16:03  [ТС]
Огромное спасибо nFalcon, только что обнавилась 1С и вроде все работает. Если будешь в Екатеринбурге то с меня пиво. Связаться со мной можно по icq 308-309-558. Если чесно я просто чайник в 1С мне даже изминения было страшно вводить.
0
 Аватар для nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
06.08.2010, 16:07
Хорошо, что все хорошо!
Страшно - это только по началу.(главное бэкапы базы делать)

Аську в блокнотик записал... )
0
 Аватар для AlexKalinin
32 / 32 / 0
Регистрация: 13.02.2009
Сообщений: 67
17.08.2010, 20:06
Цитата Сообщение от nFalcon Посмотреть сообщение
...главное бэкапы базы делать...
однозначто +1

Люди делятся на две категории: которые делают регулярные бэкапы, и которые будет делать регулярные бэкапы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 17.08.2010, 20:06
Помогаю со студенческими работами здесь

можно добавить доп модуль памяти в ноутбук
Можно ли добавить в ноутбук дополнительный модуль оперативной памяти. Родная DDR3 2GB 1066Mhz (PC3-8500), а хочу докупить 4GB DDR3 1333Mhz...

Добавить/убрать программу в планировщик задач без доп библиотек
Нужно добавить/убрать программу в планировщик задач без доп библиотек

Как добавить дополн. эл. упр. если он отсутствует в окне Доп. эл-ты
Как добавить дополнительный элемент управления, если он отсутствует в окне Дополнительные элементы. Конкретно Calendar и Progress Bar. Речь...

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

Как показать DBEdit и доп. кнопки, только после нажатия на клавишу "добавить"?
Вот как всё должно выглядеть в итоге: Открывается форма &quot;Квартиры и жильцы&quot; без каких либо намеков на (DBEdit и кнопки &quot;ОК и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
 SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru