8.х Дата запрета

Тема в разделе "Общие вопросы "1С:Предприятие 8"", создана пользователем Rimm2, 2 апр 2008.

  1. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    Подскажите пожалуйста, как сделать чтобы дата запрета изменения данных была в автоматическом режиме на, на начало дня, каждый день. Чтобы каждый день не делать это утром вручную.
  2. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    в моделе приложения - процедура "при старте системы" пропиши проверку на дату запрета и текущую.
  3. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    Извини, но я не програмировал в 1с, можно по подробнее как и что сделать.
  4. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Конфигурация какая?
  5. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    v8.0 Управление торговлей ред. 10.2
  6. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Ну вот как-то так:

    Код:
         Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    |    Роли.Ссылка КАК Роль,
    |    0 КАК Организация,
    |    Даты.ГраницаЗапретаИзменений КАК ГраницаЗапретаИзменений
    |ИЗ
    |    Перечисление.НаборПравПользователей КАК Роли
    |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ГраницыЗапретаИзмененияДанных КАК Даты
    |        ПО Роли.Ссылка = Даты.Роль
    |            И (Даты.Организация = &ПустаяОрганизация)
    |ГДЕ
    |    Роли.Ссылка  &ПолныеПрава
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    Роли.Ссылка,
    |    Организации.Ссылка,
    |    0
    |ИЗ
    |    Перечисление.НаборПравПользователей КАК Роли,
    |    Справочник.Организации КАК Организации
    |ГДЕ
    |    Роли.Ссылка  &ПолныеПрава";
    
    Запрос.УстановитьПараметр("ПустаяОрганизация", Справочники.Организации.ПустаяСсылка());
    Запрос.УстановитьПараметр("ПолныеПрава", Перечисления.НаборПравПользователей.ПолныеПрава);
    
    ТЗ = Запрос.Выполнить().Выгрузить();
    ТЗ.ЗаполнитьЗначения(ТекущаяДата() - 60*60*24, "ГраницаЗапретаИзменений");
    
    Попытка
    УстановитьМонопольныйРежим(Истина);
    Исключение
    Предупреждение("Установка даты запрета изменения данных должна выполняться в монопольном режиме.");        
    Отказ = Истина;
    Возврат;
    КонецПопытки;
    
    Набор = РегистрыСведений.ГраницыЗапретаИзмененияДанных.СоздатьНаборЗаписей();
    Набор.Загрузить(ТЗ);
    Набор.Записать();
    УстановитьМонопольныйРежим(Ложь);
    
    
    
  7. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    У меня вот такая вот ошибочка.

    Вложения:

  8. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    Но ошибка выходит только когда запускаешь систему.
    Когда проверяешь на ошибки ошибок нет.
  9. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Между Роль.Ссылка и ПолныеПрава поставь знак неравно
  10. sss
    Offline

    sss

    Регистрация:
    1 май 2007
    Сообщения:
    43
    Симпатии:
    0
    Баллы:
    1
    2 Rimm2
    Скажите, заработало ли?

    2 AlexFF
    А как то же сделать для 8.1?
  11. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26

    Извини за дурацкий вопрос, а какой он знак неравно?
  12. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26

    <>

    По идее так же.
    Только учтите, что на пользователей с полными правами дата запрета не распростроняется.
  13. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    чегото всё равно таже ошибка
  14. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    там в двух местах это условие используется
    смотри внимательно
  15. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    :unsure: B) :D Ура всё получилось, всё работает.Огромное спасибо.


    А если не сложно помоги ещё с ценниками.
    Мне надо чтобы ценники печатались из документа, на те товары которые в документе.

    У меня в форме печать нет кнопки ценники. ПЛЗ
  16. sss
    Offline

    sss

    Регистрация:
    1 май 2007
    Сообщения:
    43
    Симпатии:
    0
    Баллы:
    1
    2 AlexFF

    Спасибо, попробую.
    А нельзя ли модифицировать предлагаемый код так, чтобы устанавливалась не текущая дата, а вчерашняя (позавчерашняя, трехдневной давности...? Т.е. оставить пользователям некий временнОй лаг для возможного исправления доков.
  17. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    Мне кажется для этого и существует администратор 1с. Который по согласованию с начальником будет давать возможность иногда менять прошлые документы. А вообще ,мне кажется, в этом должна быть большая строгость, ошибся гдето - недостача за счёт него. А то так и будет как было всёвремя будут менять документы. И смысла тогда нет в дате запрета.
  18. sss
    Offline

    sss

    Регистрация:
    1 май 2007
    Сообщения:
    43
    Симпатии:
    0
    Баллы:
    1
    Существует пакт о ненападении с юзерами - они подбирают ошибки за вчера, без последствий, но уж если прохлопали - только через админа с вытекающими санкциями.
  19. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Ну расскажи как ты себе это видишь. А там попробуем общими силами что-нибудь соорудить.
  20. TopicStarter Overlay
    Rimm2
    Offline

    Rimm2 Опытный в 1С

    Регистрация:
    10 фев 2008
    Сообщения:
    149
    Симпатии:
    0
    Баллы:
    26
    [AlexFF]


    Чегото всё равно не получается. Оказывается когда я ради пробы зашёл от имени пользователя с ограниченными правами, программа всё равно пишет недостаточно прав, и выкидывает. не даёт зайти в базу.

    Вложения:

Поделиться этой страницей