Жизнь замечательных грибов
Разработки на платформе 1С
Печатная форма приказа на выплату премий. Создается на основании документа «Премии организаций». Подходит для конфигураций УПП 1.3, КТ-Алкоголь.
Для адаптации в условия вашего предприятия нужно будет поправить макет.
Скачать можно здесь
Есть такой регистр сведений — Значения свойств обьектов. Спектр его применения — ну например хранения каких-то значений внешних отчетов и обработок. В моем случае, я буду хранить свойстово «1» в том случае если некое действие уже совершено над документом внешней обработкой, т.е. проверка «чтоб не два раза». Вот наглядный кусок кода:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
НаборД=регистрысведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей(); // устанавливаем параметры отбора по полному набору Измерений регистра: НаборД.Отбор.Объект.Установить(СсылкаНаОбъект); // Создаем новую строку в этом наборе записей: СтрокаДанных = НаборД.Добавить(); // определяем значения Измерений этой строки: СтрокаДанных.Объект=СсылкаНаОбъект; СтрокаДанных.Свойство=ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду("алк00000011"); // определяем значения Ресурсов СтрокаДанных.Значение = "1"; НаборД.Записать(); |
Захотелось мне добавить записи в регистр накопления из обработки, т.е. не из документа-регистратора. Вот пример как это у меня получилось:
|
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 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ПередачаМатериаловВЭксплуатациюМатериалы.ФизЛицо, | ПередачаМатериаловВЭксплуатациюМатериалы.Количество, | ПередачаМатериаловВЭксплуатациюМатериалы.Номенклатура, | ПередачаМатериаловВЭксплуатациюМатериалы.СерияНоменклатуры, | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Ссылка КАК док, | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Дата |ИЗ | Документ.ПередачаМатериаловВЭксплуатацию.Материалы КАК ПередачаМатериаловВЭксплуатациюМатериалы |ГДЕ | ПередачаМатериаловВЭксплуатациюМатериалы.Ссылка.Проведен = ИСТИНА"; //Запрос.УстановитьПараметр("Дата1", НачалоГода(текущаядата())); //Запрос.УстановитьПараметр("Дата2", КонецМесяца(текущаядата())); Результат = Запрос.Выполнить().Выбрать(); //РегистрыНакопления.ГрРасчетПотребностей.Записывать = Истина; //РегистрыНакопления.ГрРасчетПотребностей.Очистить(); пока Результат.Следующий() цикл Набор = РегистрыНакопления.ГрВыданнаяСпецодежда.СоздатьНаборЗаписей(); Набор.Отбор.Регистратор.Установить(Результат.Док); НоваяЗапись = Набор.ДобавитьПриход(); НоваяЗапись.Номенклатура = Результат.Номенклатура; НоваяЗапись.ДатаВыдачи = Результат.Дата; НоваяЗапись.Период = Результат.Дата; НоваяЗапись.Количество = Результат.Количество; НоваяЗапись.Серия = Результат.СерияНоменклатуры; НоваяЗапись.ФизЛицо = Результат.ФизЛицо; Набор.Записать(); конеццикла; |
Может быть есть в конфигурации и стандартная процедура получения контактной информации, однако мне показалось легче написать запрос чем найти. По желанию сиё можно обернуть в функцию.
|
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 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Контрагенты.Наименование, | Контрагенты.ИНН, | Юр.ЮридическийАдрес, | Факт.ФактическийАдрес, | Тел.Телефон, | Контрагенты.НаименованиеПолное |ИЗ | Справочник.Контрагенты КАК Контрагенты, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК ЮридическийАдрес | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Юридический адрес контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Юр, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК ФактическийАдрес | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Фактический адрес контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Факт, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК Телефон | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Телефон контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Тел |ГДЕ | Контрагенты.Ссылка = &Ссылка"; Запрос.УстановитьПараметр("Ссылка",ВыбДокумент.Грузополучатель); Результат = Запрос.Выполнить().Выбрать(); ГрузополучательПредставление=""; пока Результат.Следующий() цикл ГрузополучательПредставление=ГрузополучательПредставление+Результат.НаименованиеПолное+",ИНН "+Результат.ИНН+","+Результат.ЮридическийАдрес+","+Результат.ФактическийАдрес+","+Результат.Телефон; конеццикла; |
В одном из запросов участвовала строка вида КонтактнаяИнформация.Поле1 + «,» + КонтактнаяИнформация.Поле2 + » » + КонтактнаяИнформация.Поле3 + …….
Долго ломал голову, почему же результат запроса не выводится на экран, в табличном поле. Оказывается все просто — переполняется допустимая длинна текстового поля результата запроса. Достаточно было выражение обернуть в:
|
1 |
ВЫРАЗИТЬ(КонтактнаяИнформация.Поле1 + "," + КонтактнаяИнформация.Поле2 + " " + КонтактнаяИнформация.Поле3 + "," + КонтактнаяИнформация.Поле4 + " " + КонтактнаяИнформация.Поле5 + "," + КонтактнаяИнформация.Поле6 + " " + КонтактнаяИнформация.Поле7 + " " + КонтактнаяИнформация.Поле8 КАК СТРОКА(100)) |
и все чудесным образом заработало.