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