Описује додавање у програм метода који омогућава аутоматско постављање датума забране измене.
Овај метод једном за увек решава проблем контроле датума забране измене.
Верујем да сви знају шта је датум забране измене. Знају како се поставља и где. Питање је само у томе што неки морају стално да прате и постављају тај датум.
Углавном, за већину корисника програм треба аутоматски
сваког дана да забрањује измене уназад.
Главни проблем у верзији 8 је што датум забране мора бити постављен пре почетка рада корисника,
јер иначе након постављања неће бити примењен све док корисници не изађу и поново уђу у програм.
То значи да неко, први ујутру, мора да уђе и одмах постави забрану.
Замислите шта би то било?
Дакле, решење (пажња, радње морају изводити стручњаци)
Општи модул - Пуне дозволе - Процедура
Процедура ПоставиПараметарГраницеЗабранеИзменеПодатака() Експорт
На почетку процедуре ставити код:
//Манја1С
Покушај
ОдговарајућеГраницеЗабране = СесијаПараметри.ГраницеЗабранеИзменеПодатака.Добиј();
ГраницаПериода = ОдговарајућеГраницеЗабране["ОпштиДатумЗабранеИзмене"];
Јуче = ПочетакДана(ПочетакДана(ТренутниДатум())-1);
Претјуче = ПочетакДана(ПочетакДана(Јуче)-1);
Ако ГраницаПериода < Претјуче Тада
Рег = РегистриСазнања.ГраницеЗабранеИзменеПодатака;
Скуп = Рег.КреирајСкупЗаписа();
ТренутниПодаци = Рег.Изабери();
Док ТренутниПодаци.Следећи() Цикл
Ако ВредностИспуњена(ТренутниПодаци.Организација) Тада
Настави;
КрајАко;
Запис = Скуп.Додај();
Запис.Организација = ТренутниПодаци.Организација;
Запис.Корисник = ТренутниПодаци.Корисник;
Запис.ГраницаЗабранеИзмена = Претјуче;
КрајЦикла;
Скуп.Запиши();
КрајАко;
Изузетак
Пријави(ОписГрешке());
КрајПокушаја;
Готово. Након додавања овог кода, сваког дана при уласку првог корисника програм аутоматски поставља датум забране измене за све наредне кориснике. (у мом примеру датум се аутоматски поставља за све кориснике на претјучерашњи дан).