Имя: Пароль:
1C
 
УТ Как скопировать настройки пользователя ?
0 pavname
 
30.09.09
15:15
Как копировать настройки по умолчанию одного пользователя другому ?
В ТИС у пользователя была кнопка Скопировать.
1 John83
 
30.09.09
16:48
вот здесь шаманить надо
C:\Documents and Settings\зверь\Application Data\1C\1Cv81
PS в смысле файлы копировать
2 Pasha
 
30.09.09
16:53
(0) обработку написать :)
3 Defender aka LINN
 
30.09.09
16:55
Ну, в последних УТ настройки в регистре хранятся. Хотя, возможно, и не у всех отчетов.
4 pavname
 
30.09.09
18:27
Что-то не верится, зачем так усложнять жизнь админу. Допустим есть 5 операторов с одинаковыми правами - неужели в 1с не предусмотрели штатного копирования настроек пользователя которые хранятся в Сервис - Пользователи - Список пользователей ?
5 pavname
 
30.09.09
22:03
уп
6 Александр_
Тверь
 
30.09.09
22:05
ап не ап, нету. делай как 1 сказал
7 Parti
 
30.09.09
22:08
Пользователи-МойПользователь-КраткоеИмя(Лупа)-Скопировать настройки
9 pavname
 
30.09.09
22:13
7) Копирует права, но не настройки
10 ale654062
 
01.10.09
00:58
да код не причем 100%
но если просишь..............

Функция Импорт_Файла_ДБФ(Параметр)
   ФайлБД = СоздатьОбъект("XBase");
   Попытка
       ФайлБД.ОткрытьФайл(Путь,,1);
   Исключение
       Предупреждение(Путь + РазделительСтрок + "Ошибка открытия файла!");
       Возврат 0;
   КонецПопытки;
   Если ФайлБД.Открыта() = 0 Тогда
       Предупреждение(Путь + РазделительСтрок + "Ошибка открытия файла!" + РазделительСтрок + "Возможно, файл используется другим приложением.");
       Возврат 0;
   КонецЕсли;
   ФайлБД.КодоваяСтраница(2-Кодировка);
   ФайлБД.Первая();
   Пока (ФайлБД.вКонце() = 0)  Цикл
       Если ФайлБД.ЗаписьУдалена() = 1 Тогда
           ФайлБД.Следующая();
           Продолжить;
       КонецЕсли;

       Состояние("Обрабатывается строка №" + ФайлБД.НомерЗаписи());
       
       
       ДатаОплаты = СокрЛП(ФайлБД.DATA);
       ДатаОплаты = Дата(Число(Сред(ДатаОплаты,7,4)),Число(Сред(ДатаОплаты,4,2)),Число(Сред(ДатаОплаты,1,2)));
       
       Если (ДатаОплаты <> Параметр.Получить("ДатаДок")) или (СокрЛП(ФайлБД.KL_CHK) <> РСчет) или (Цел(ФайлБД.CUR_ID) <> 980) Тогда
           ФайлБД.Следующая();
           Продолжить;
       КонецЕсли;

       Если ФайлБД.DK = 1 Тогда // расход

           Сп = СоздатьОбъект("СписокЗначений");
           Сп.Установить("Расход", ФайлБД.S);
           Сп.Установить("Приход", 0);
       ИначеЕсли ФайлБД.DK = 0 Тогда // приход

           Сп = СоздатьОбъект("СписокЗначений");
           Сп.Установить("Расход", 0);
           Сп.Установить("Приход", ФайлБД.S);                
       Иначе
           ФайлБД.Следующая();
           Продолжить;
       КонецЕсли;
       
       Сп.Установить("Контрагент", ЗаменитьСимволыНазад((СокрЛП(ФайлБД.KL_NM_K))));
       Сп.Установить("РСчет", ФайлБД.KL_CHK_K);
       Сп.Установить("ОКПО", СокрЛП(Цел(ФайлБД.KL_OKP_K)));
       Сп.Установить("МФО",СокрЛП(Цел(ФайлБД.MFO_K)));
       Сп.Установить("Содержание",ЗаменитьСимволыНазад(СокрЛП(ФайлБД.TEXT1)));
       Сп.Установить("НомерПП",СокрЛП(ФайлБД.ND));                
       Параметр.ДобавитьЗначение(Сп);
       ФайлБД.Следующая();          
       
   КонецЦикла;
   ФайлБД.ЗакрытьФайл();
   
   Возврат 1;
КонецФункции //Импорт_Фа
11 pavname
 
01.10.09
12:25
Что-то не верится, зачем так усложнять жизнь админу. Допустим есть 5 операторов с одинаковыми правами - неужели в 1с не предусмотрели штатного копирования настроек пользователя которые хранятся в Сервис - Пользователи - Список пользователей ?
12 Defender aka LINN
 
01.10.09
12:30
(11) Все там предусмотрено. Можно даже не копировать, а тупо чужие использовать.
13 psttyx
 
01.10.09
12:34
операторы пусть откроют чужую насторойку и сохрянят как свою
14 NikVars
 
01.10.09
12:56
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn