Имя: Пароль:
1C
1С v8
v8: БП РегистрСведений.ВерсииПодсистем при записи документа
0 perkos
 
27.12.12
09:03
Ошибка записи/проведения документа Приходный кассовый ордер  от 30.08.2012 23:59:59 [{Форма.Форма.Форма(114)}: Ошибка при вызове метода контекста (Записать): Ошибка при выполнении обработчика - 'ПередЗаписью': {ОбщийМодуль.ОбновлениеИнформационнойБазы.Модуль(414)}: Ошибка при вызове метода контекста (Выполнить): Недостаточно прав для работы с таблицей "РегистрСведений.ВерсииПодсистем"]

добавляю админскую роль пользователю только у нее есть доступ к этому регистру и запись проходит.... вацап? причем здесь обновлениеИБ и этот регистр???

&НаСервереБезКонтекста
Процедура СоздатьДок(ВидДок,Организация,Подотчетник,ДатаДок,СуммаДок,Лимиты)

   ДанныеФизЛица  = ОбщегоНазначенияБПВызовСервера.ДанныеФизЛица(Организация, Подотчетник, ДатаДок, Ложь);
   
   Если ВидДок = "РКО" Тогда
       НовДок = Документы.РасходныйКассовыйОрдер.СоздатьДокумент();
       НовДок.ВидОперации = Перечисления.ВидыОперацийРКО.ВыдачаПодотчетномуЛицу;
       СуммаСл = СлЧисло(1,СуммаДок,Лимиты.ЛимитОт,Лимиты.ЛимитДо);
       НовДок.Выдать = ДанныеФизЛица.Представление;
       НовДок.ПоДокументу = ДанныеФизЛица.ПредставлениеДокумента;
   ИначеЕсли ВидДок = "ПКО" Тогда
       НовДок = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
       НовДок.ВидОперации = Перечисления.ВидыОперацийПКО.ВозвратОтПодотчетногоЛица;
       СуммаСл = СлЧисло(2,СуммаДок,Лимиты.ЛимитОт,Лимиты.ЛимитДо);
       НовДок.ПринятоОт = ДанныеФизЛица.Представление;
   КонецЕсли;
   
   вал = Справочники.Валюты;
   вал1 = вал.НайтиПоКоду("643");
   НовДок.ВалютаДокумента = вал1;
   НовДок.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации;
   НовДок.Организация = Организация;
   НовДок.Дата = ДатаДок;
   НовДок.Контрагент = Подотчетник;
   НовДок.СуммаДокумента = СуммаСл;
   НовДок.Комментарий = "* автокорректировка кассы";
   НовДок.Основание = "* автокорректировка кассы";
   НовДок.Ответственный = Пользователи.ТекущийПользователь();
   Попытка
       
       НовДок.Записать(РежимЗаписиДокумента.Проведение);
       Сообщить("Создан документ: "+НовДок);
   
   Исключение
       Сообщить("Ошибка записи/проведения документа "+НовДок+" ["+ОписаниеОшибки()+"]");
       
   КонецПопытки;

КонецПроцедуры // СоздатьДок()