helpf.pro
Регистрация
 0 
Распечатать

1С 7.x : Установка атрибутов файлу на закладке Сводка

Смысл в следующем. В windows присутствует файл библиотеки dsofile.dll ( Скачивать файлы может только зарегистрированный пользователь! ), при помощи которого эти самые свойства можно получать или устанавливать.
title

Небольшая процедурка, как установить свойства:
Код 1C v 7.x
  Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") Экспорт

Попытка
ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");
ФайлДляУстановки.Open(текФайл);
ФайлДляУстановки.SummaryProperties.Author = тАвтор;
ФайлДляУстановки.SummaryProperties.Keywords = тКлючевыеСлова;
ФайлДляУстановки.SummaryProperties.Company = тФирма;
ФайлДляУстановки.SummaryProperties.Category = тКатегория;
ФайлДляУстановки.SummaryProperties.Comments = тОписание;
ФайлДляУстановки.SummaryProperties.Subject = тТема;
ФайлДляУстановки.SummaryProperties.Title = тЗаголовок;
ФайлДляУстановки.Save();
ФайлДляУстановки=0;

Исключение
Сообщить("Не удалось установить параметры файла, не зарегистрирована библиотека!","!!!");
КонецПопытки;
КонецПроцедуры

и как получить:
Код 1C v 7.x
 Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) Экспорт

Попытка

ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");
ФайлДляУстановки.Open(текФайл);
тАвтор = ФайлДляУстановки.SummaryProperties.Author;
тКлючевыеСлова= ФайлДляУстановки.SummaryProperties.Keywords;
тФирма= ФайлДляУстановки.SummaryProperties.Company;
тКатегория= ФайлДляУстановки.SummaryProperties.Category;
тОписание= ФайлДляУстановки.SummaryProperties.Comments;
тТема= ФайлДляУстановки.SummaryProperties.Subject;
тЗаголовок= ФайлДляУстановки.SummaryProperties.Title;
ФайлДляУстановки=0;

Исключение
Сообщить("Не удалось прочитать параметры файла, не зарегистрирована библиотека!","!!!");
КонецПопытки;

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

Автор: maxpiter
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 4945
 0 
Распечатать
Возможно, вас также заинтересует
Горячие клавиши 1С 0
Конфигуратор 1С Конфигурация 1 Alt + К + Enter Открыть конфигурацию 2 Alt + К + Т Поиск во всех текстах 3 Alt + К + О Объединение конфигураций 4 Alt + K + З Загрузить измененную конфигурацию 5 Alt + К + Е Конвертирование...
Задать вопрос пользователю, ответ на вопрос 2
Режим = РежимДиалогаВопрос.ДаНетОтмена; Ответ = Вопрос(" Выполнить?" , Режим, 0); Если Ответ =КодВозвратаДиалога.Да Тогда Сообщить(" Выполнено" ); ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда Сообщить(" Не выполнено" ); ...
Как изменить размер шрифта для форм в 1С:Предприятие? 0
При отображении форм 1С:Предприятия 8 используется системный шрифт стандартного размера. Изменить размер шрифта можно указанием нужного масштаба экрана в свойствах рабочего стола ОС Windows ( свойства экрана, закладка...
Как подключиться к базе 1С 8.х из 1С 7.7 ? 0
//Инициализация соединения в 7.7: Коннектор=Создать0бъект(" V82.COMConnector" ); // Для 8.1 (" V81.COMConnector" ); // для 8.0 (" V8.COMConnector" ); // создается объект COM -соединение Соединение = V8.Connect (" File=" " c:InfoBasesTrade" "
Как сделать из распределенной базы обычную? 2
Для 8.х: Как отключить узел от распределенной информационной базы? Поскольку сама конфигурация заблокирована, то этот код надо создавать в обработке, открыв каую-нибудь другую (незаблокированную) конфигурацию,...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.