Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (29-09-2006 09:19): продолжаем здесь
http://forum.ru-board.com/topic.cgi?forum=33&topic=7403
 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105

   

batva



crazy administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Предыдущая тема доступна здесь.
 
1С Предприятие "Конфигурирование и Администрирование"
 
Тема посвящена вопросам разработки, функционирования и обслуживания конфигураций 1С Предприятие.
 
Обсуждаются все версии, можно задавать любые вопросы, кроме нарушающих авторское право.  
Советы в подборе конфигураций в разделе программы
За  вопросами "где достать?", "откуда скачать?" Специальный сериал в Варезнике
 
Так же вопросы можно задавать и много полезного узнать на:
  • Волшебный форум
  • Территория 1С на кубани
     
    Некоторые из форумов посвященных бухучету:
  • Клерк.Ру (тут в основном Россияне)
  • Дебет-Кредит (тут в основном Украина)
     
    Для тех кто осознал что лучший способ эксплуатации 1С это вариант 1С+SQL:
  • Некоторое количество информации по этому вопросу (1С:Предприятие и SQL Server: практика использования. Решение проблем связки 1С и SQL, оптимизация. Книги по 1С, обработки, отчеты.)
  • Еще один ресурс по 1С+SQL  
     
    Ну и неплохо бы зайти еще вот сюда и сюда

    Некоторые вопросы касательно работы с SQL сервером можно задать здесь, например как установить, почему неработает, как написать SQL запрос для получения остатков склада
    Вопросы о том где взять SQL сервер можно задать здесь

     
    Для начинающих и не только:
  • Учебник по 1с  
  • Первые шаги  

    Коллеги,если вы решили спросить,или посоветоваться по возникшим у Вас вопросам,убедительная просьба придерживаться двух простых правил:
    1.Указывайте версию платформы 1С и ,желательно, конфигурацию.
    2.Постарайтесь сформулировать свой вопрос так,чтобы он был понятен другим участникам конференции.

     
    Желающие получить билеты для сдачи экзамена 1С:Специалист могут обращаться ко мне в ПМ //fol

  • Всего записей: 12593 | Зарегистр. 07-01-2001 | Отправлено: 18:41 07-06-2005 | Исправлено: fol, 12:38 28-09-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Уважаемые All есть у меня в ПуБ вот такая Функция подскажите как можно добавить еще выбранных пользователей которым можно будет редактировать документ...

    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 10:35 04-07-2006
    pavlika2



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Как вариант, сделай список значений, закинь туда нужных пользователей + Конт.Автор, и замени эту проверку:
    Цитата:
    И (Конт.Автор <> Пользователь)
    на проверку вхождения Пользователя в твой список:
    Цитата:
    И (1-ТвойСписокПользователей.Принадлежит(Пользователь))

    Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 10:46 04-07-2006 | Исправлено: pavlika2, 10:58 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Да по НазваниеНабораПрав() проще  
     
     Если НазваниеНабораПрав()<>"Администратор" Тогда
     Если (Конт.Проведен()=1)и (Конт.Выбран()=1)  Тогда
     Конт.Форма.ТолькоПросмотр(1);
     КонецЕсли;
     КонецЕсли;
     
    или из типовой пример
            
        // Если нет системного права на корректировку документа, то предупредим об этом
        Если ПравоДоступа("Корректировка", "Документ." + Конт.Вид() )  = 0 Тогда
            Предупреждение("Разрешен только просмотр документа!",4);
            Возврат 0;
        КонецЕсли;

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:30 04-07-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Уважаемый FOLD
    мне нужно именно разделить не по правам а по авторству...  
     
     
     
    Добавлено:
    pavlika2
    Можно поподробнее ...
    а то я еще начинающий

    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 11:44 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Что мещает "выбраным" пользователям назначить одинаковый НаборПрав?
    Это вообщем стандарт в 1С
    Впрочем как pavlika2 написал,тоже вариант
     
     
     
    Добавлено:
    rosalin

    Цитата:
    мне нужно именно разделить не по правам а по авторству
    А автор у документа
    всегда один и такая проверка у тебя уже сделана.Кстати вот так правильней
     Если Конт.Автор. <> Пользователь  Тогда  
                 Конт.Форма.ТолькоПросмотр(1);  
     Выбран() там ни к чему

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:48 04-07-2006
    pavlika2



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    что-то наподобие этого:

    Цитата:
        Функция глПроверкаРазрешенияРедактирования(Конт) Экспорт  
             
        // создаем список значений
        ТвойСписок = СоздатьОбъект("СписокЗначений");
        // заполняем пользователями
        ТвойСписок.ДобавитьЗначение("Иванов");
        ТвойСписок.ДобавитьЗначение("Петров");
        ТвойСписок.ДобавитьЗначение(Конт.Автор,);
        // дальше все как и раньше
       Если Конт.Выбран() = 1 Тогда
               // тут смотрим
            Если (Конт.ДатаДок<=Константа.ДатаЗапретаРедактирования) И (Конт.Форма.ТолькоПросмотр()=0) Тогда
                Конт.Форма.ТолькоПросмотр(1);
                Предупреждение("Разрешен только просмотр документа!", 4);
            // тут заворачиваем, если пользователь не в нашем списке
            Иначе
                Если (Конт.Автор.Выбран()=1) И (1-ТвойСписок.Принадлежит(Пользователь)=1) Тогда
                    Конт.Форма.ТолькоПросмотр(1);
                    Предупреждение("Разрешен только просмотр документа!Вы не автор этого документа", 4);
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
         
     КонецФункции // глПроверкаРазрешенияРедактирования      
     

    p.s.
    хотя это неправильно, т.к. этим пользователям мы дадим возможность редактировать все документы, а это проще творить через набор прав, поэтому делаешь набор прав МожемВсе, даешь его Иванову, Петрову и пишешь:

    Цитата:
    Функция глПроверкаРазрешенияРедактирования(Конт) Экспорт  
     
        Если НазваниеНабораПрав()<>"МожемВсе" Тогда      
        // здесь оставляем все как есть
        КонецЕсли;
         
    КонецФункции // глПроверкаРазрешенияРедактирования      
     

    Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 12:25 04-07-2006 | Исправлено: pavlika2, 12:34 04-07-2006
    vkramnik



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    IUnknown777

    Цитата:
    Габец, Гончаров.
    1С 8.0. Простые примеры разработки. (2005) - 59.1 mb
     
    Это где скачать?

    Если надо - залью на Рапидшару...

    Всего записей: 1850 | Зарегистр. 14-12-2005 | Отправлено: 13:03 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vkramnik

    Цитата:
    1С 8.0. Простые примеры разработки. (2005) - 59.1 mb  

    А почему такой размер?У меня есть - но  49kb ,или у тебя с книгой?
     
     

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 13:18 04-07-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    pavlika2
    Спасибо огромное все так ... потому как в этом списки будут так сказать избранные  


    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 14:04 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin

    Цитата:
    потому как в этом списки будут так сказать избранные  

    Городила бабка огород.А если пользователь имя изменит?Или нужно будет добавить/удалить пользователя ?Остановишь работу ..Это ты еще мало накофигурил,а потои и не вспомнишь где чего искать
     
    ЗЫ Решения должны быть универсальные

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 14:22 04-07-2006 | Исправлено: FOLD, 14:22 04-07-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FOLD
    Так как сделать их уневерсальными я же в 1с не очень как это я представляю я понимаю а как реализовать не очень....
     
    Задача одна Создал например Иванов Документ Приход  
    И Петров создал документ Приход Но не один не другой не могут изменить Приходы друг друга , а пришел Сидоров и может редактировать их документы...
     
    Ну где то так

    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 14:38 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Так написали уже ,просто СПИСОК не нужен
    Сидоров - наборправ -Адмиистратор(МОЖНО ВСЕ)
    Иванов - Оператор
    Петорв - Бухгалтер
    Функция глПроверкаРазрешенияРедактирования(Конт) Экспорт
    Если (Конт.ДатаДок <= Константа.ДатаЗапретаРедактирования) и (Конт.Форма.ТолькоПросмотр() = 0) Тогда
    Конт.Форма.ТолькоПросмотр(1);
    Предупреждение("Разрешен только просмотр документа!", 4);  
     КонецЕсли;
     
    Если НазваниеНабораПрав()<>"Адмиистратор" Тогда      
      Если Конт.Автор <> Пользователь Тогда  
             Конт.Форма.ТолькоПросмотр(1);  
           Предупреждение("Разрешен только просмотр документа!Вы не автор этого документа", 4);  
    КонецЕсли;  
    КонецЕсли;            
    КонецФункции  
     

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 15:03 04-07-2006 | Исправлено: FOLD, 15:04 04-07-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FOLD
    Тогда вопрос сможет ли Иванов (Оператор) редактировать соданый им документ и перепроводить его

    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 15:34 04-07-2006
    pavlika2



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Да, поскольку проверка смотрит, что если у пользователя требуемый набор прав, то ограничивать только просмотром его не надо, а вот если набор прав не полный, то тогда будем смотреть он автор или нет. И если он, то тогда тоже не ограничиваем, иначе даем права только чтения.

    Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 15:38 04-07-2006 | Исправлено: pavlika2, 15:39 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    rosalin
    Сможет,если константа.ДатаЗапретаРедактирования  позволяет, а также если в НабореПрав "оператор" стоят соответствующие галки.Смотри  "Права"
     

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 15:41 04-07-2006
    rosalin



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FOLD
    pavlika2
    Теперь становиться более менее понятно..

    ----------

    Всего записей: 2588 | Зарегистр. 15-04-2003 | Отправлено: 15:43 04-07-2006
    vkramnik



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FOLD

    Цитата:
    Цитата:
    1С 8.0. Простые примеры разработки. (2005) - 59.1 mb
     
    А почему такой размер?У меня есть - но 49kb, или у тебя с книгой?  

    У меня книга, а у тебя, видимо, файлы к ней...
    Хорошо, что напомнил - надо будет и файлы прицепить!  

    Всего записей: 1850 | Зарегистр. 14-12-2005 | Отправлено: 15:52 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vkramnik
     
    Цитата:
    У меня книга,
    Тогда сакжи где искать )

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 16:01 04-07-2006
    vkramnik



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    FOLD
    Щаз, потерпи немножко - перепакую и выложу...
    На Рапиду устроит ?

    Всего записей: 1850 | Зарегистр. 14-12-2005 | Отправлено: 16:54 04-07-2006 | Исправлено: vkramnik, 16:55 04-07-2006
    FOLD

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vkramnik

    Цитата:
    На Рапиду устроит ?

    Да конечно.Спасибо
    Или если если будешь заливать к Джафару в ящик, там могу забрать.

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 17:04 04-07-2006
       

    Страницы: 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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
    ShIvADeSt (29-09-2006 09:19): продолжаем здесь
    http://forum.ru-board.com/topic.cgi?forum=33&topic=7403


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru