Каталог решений для 1С. Скачать

Бесплатные курсы по 1С
Бесплатные материалы по 1С:Бухгалтерии предприятия 2.0 и 3.0
Обработка в каталоге
Интерактивная ОСВ 3
Обработка на сайте

Автоматическое заполнение реквизитов контрагента по ИНН

В связи с изменениями на сайте "Контур-фокус" мы были вынуждены исправить нашу обработку. Сейчас она проходит бета-тест. Ориентировочный срок выхода новой версии - 20.09.2015.

Уважаемый Пользователь 1С!

В нашей коллекции есть очень много решений типовых вопросов и задач по 1С, которые мы можем отдать Вам бесплатно.

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

Заметки программиста 1С: Как получить пути к системным папкам из 1С 8

Путь к любой системной папке можно получить через Windows Scripting Host (WSH).
WSH — это набор ActiveX’ов, с помощью которых можно получать различную системную информацию и выполнять различные действия в системе из любого приложения, в том числе и 1С. Ниже приведена функция, возвращающая все пути к системным папкам в виде структуры.

Процедура КнопкаВыполнитьНажатие(Кнопка)

СтрПапок = ПолучитьСистемныеПапкиWindows ();

Сообщить (СтрПапок.РабочийСтол);

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

Функция ПолучитьСистемныеПапкиWindows ()

хШелл = Новый COMОбъект(«Wscript.Shell»);

СтруктураПапок = Новый Структура;

СтруктураПапок.Вставить(«ВсеПользователиРабочийСтол», хШелл.SpecialFolders.Item  («AllUsersDesktop»));

СтруктураПапок.Вставить(«ВсеПользователиСтартовоеМеню», хШелл.SpecialFolders.Item  («AllUsersStartMenu»));

СтруктураПапок.Вставить(«ВсеПользователиПрограммы», хШелл.SpecialFolders.Item  («AllUsersPrograms»));

СтруктураПапок.Вставить(«ВсеПользователиАвтозагрузка», хШелл.SpecialFolders.Item  («AllUsersStartup»));

СтруктураПапок.Вставить(«РабочийСтол», хШелл.SpecialFolders.Item  («Desktop»));

СтруктураПапок.Вставить(«Избранное», хШелл.SpecialFolders.Item  («Favorites»));

СтруктураПапок.Вставить(«Шрифты», хШелл.SpecialFolders.Item  («Fonts»));

СтруктураПапок.Вставить(«МоиДокументы», хШелл.SpecialFolders.Item  («MyDocuments»));

СтруктураПапок.Вставить(«СетевоеОкружение», хШелл.SpecialFolders.Item  («NetHood»));

СтруктураПапок.Вставить(«ОкружениеПечати», хШелл.SpecialFolders.Item  («PrintHood»));

СтруктураПапок.Вставить(«Программы», хШелл.SpecialFolders.Item  («Programs»));

СтруктураПапок.Вставить(«Недавние», хШелл.SpecialFolders.Item  («Recent»));

СтруктураПапок.Вставить(«Отправить», хШелл.SpecialFolders.Item  («SendTo»));

СтруктураПапок.Вставить(«СтартовоеМеню», хШелл.SpecialFolders.Item  («StartMenu»));

СтруктураПапок.Вставить(«Автозагрузка», хШелл.SpecialFolders.Item  («Startup»));

СтруктураПапок.Вставить(«Шаблоны», хШелл.SpecialFolders.Item («Templates»));

Возврат СтруктураПапок;

КонецФункции

 

Поделиться в соц. сетях

Опубликовать в Google Buzz
Опубликовать в Google Plus
Опубликовать в LiveJournal
Опубликовать в Мой Мир
Опубликовать в Одноклассники

Оставить комментарий

Вы должны авторизоваться для отправки комментария.

Каталог решений для 1С. Скачать

Введите адрес электронной почты:

Delivered by FeedBurner

Яндекс.Метрика