помогите решить задачу, если можно
________
Условие:
Включите в процедуру - обработчик ПриНачалеРаботыСистемы()  вызов процедуры ПримерыОбращенияКРегиструСведений().

В этой процедуре напишите фрагмент программного кода, который распечатывал бы в окне "Служебные сообщения" первое значение валютного курса в 2003 г.

_______
в ПриНачалеРаботыСистемы есть вот что:

// Модуль приложения
//---------------------------------------------------------
// Раздел переменных:
Перем НачалоРаботы;
//---------------------------------------------------------
//Раздел процедур и функций:
//ПриНачалеРаботыСистемы() - проверяет время входа в систему
Процедура ПриНачалеРаботыСистемы()
   ВремяЧас=Час(ТекущаяДата());
   Если (ВремяЧас>=14) и (ВремяЧас<15) Тогда
       Ответ=Вопрос("Сейчас не рабочее время!"+Символы.Таб+"Будете работать?",РежимДиалогаВопрос.ДаНет);
       Если Ответ=КодВозвратаДиалога.Нет Тогда
           ПрекратитьРаботуСистемы();
           Если (ВремяЧас>=17) и (ВремяЧас<17) Тогда
               ПрекратитьРаботуСистемы();
               
       КонецЕсли;
   КонецЕсли;
КонецЕсли;

КонецПроцедуры
 

  Функция ИнтервалСтр(Начало,Конец)
   Интервал=Конец-Начало; //вычислим интервал в секундах
   Часов=Цел(Интервал/3600); //сколько это будет часов
   Время='00010101'+Интервал; //преобразуем Интервал к дате
   Минут=Минута(Время); //получим число минут и секунд
   Секунд=Секунда(Время);
   // напишем это все строкой
   Стр=""+Часов+"ч"+Минут+"м"+Секунд+"с";
   Возврат Стр;
КонецФункции

___________________________________
я очень в танке((((

Deon, Если (ВремяЧас>=14) я думала это значит, что время больше или равно 14.... (не кидайтесь тапками, я, можно сказать первый день)

(0) Даже не знаю, смеяться или плакать)))

(19) вкупе со вторым условием даёт ровно 14

(19) Именно так и есть. Но при этом ты сюда же дописываешь И ВремяЧас<15

(7) Ты уже пробовала выполнить код в (7) ? Какие результаты?

(22) хм, наверное, имеется в виду, что 14:30=14.5 часов ;)

а вообще, необходимо завести РС, в котором указывать допустимое время работы для каждого юзера, и при запуске проверять. гибче

(25) оставь ей это на 2-й день работы с 1с

так работает, же. сейчас поставила время машины 14.30, при запуске 1С в режиме пользователя был запрос: сейчас не рабочее время,блабла

(25) Может лучше регламентным событием проверять? И если он задержался на работе, выдавать сообщение "Сверхурочные не оплачиваются"

злоумышленник, кстати, лекго обойдёт защиту, придя на работу после 18

а запись про 17 у меня не работает потому, что она в другую процедуру вложена или почему?

(29) пользователи они такие.. дай волю будут приходит и ночью работать и даже в обед, за этим надо следить

(30) не в процедуру, а в условие. сходи в (18) вообще

(27) Ну оно, безусловно, работает. Но тебе не хватает понимания КАК оно работает

(23) еще не пробовала, ща попробую

(27) мне ооочень не хватает его, да(((
а (18) я не поняла

(35) Если ВремяЧас=14 Тогда задаём вопрос, сравниваем ответ с "нет". иначе смотрим, не равно ли ВремяЧас 17

(36) в последнем случае безо всяких вопросов уже

// Модуль приложения
//---------------------------------------------------------
// Раздел переменных:
Перем НачалоРаботы;
//---------------------------------------------------------
//Раздел процедур и функций:
//ПриНачалеРаботыСистемы() - проверяет время входа в систему
Процедура ПриНачалеРаботыСистемы()
   ВремяЧас=Час(ТекущаяДата());
   Если (ВремяЧас>=14) и (ВремяЧас<15) Тогда
       Ответ=Вопрос("Сейчас не рабочее время!"+Символы.Таб+"Будете работать?",РежимДиалогаВопрос.ДаНет);
       Если Ответ=КодВозвратаДиалога.Нет Тогда
           ПрекратитьРаботуСистемы();
           Если (ВремяЧас>=17) и (ВремяЧас<17) Тогда
               ПрекратитьРаботуСистемы();
               
       КонецЕсли;
   КонецЕсли;
КонецЕсли;

КонецПроцедуры
Процедура ПримерыОбращенияКРегиструСведений()
   ………………………………………………………
   // Найдем курс на сегодняшнее число:
   Запись=РегистрыСведений.Курсы.ПолучитьПоследнее(ТекущаяДата());
   Сообщить("Сегодня курс УЕ="+Запись.Курс);
   // Найдем курс на первое число после 01.01.2002:
   Запись=РегистрыСведений.Курсы.ПолучитьПервое(01.01.2002)
   Сообщить("Курс УЕ на первое число после 01.01.2002"+Запись.Курс);//эээ...???
   
КонецПроцедуры



  Функция ИнтервалСтр(Начало,Конец)
   Интервал=Конец-Начало; //вычислим интервал в секундах
   Часов=Цел(Интервал/3600); //сколько это будет часов
   Время='00010101'+Интервал; //преобразуем Интервал к дате
   Минут=Минута(Время); //получим число минут и секунд
   Секунд=Секунда(Время);
   // напишем это все строкой
   Стр=""+Часов+"ч"+Минут+"м"+Секунд+"с";
   Возврат Стр;
КонецФункции
Процедура ПередЗавершениемРаботыСистемы(Отказ)
   КонецРаботы=ТекущаяДата();
   Ответ=Вопрос("Завершить работу системы?"+Символы.ПС+"(Вы работали "    
   +ИнтервалСтр(НачалоРаботы,КонецРаботы)+")",
   РежимДиалогаВопрос.ДаНет,30);
   Отказ=(Ответ=КодВозвратаДиалога.Нет);
КонецПроцедуры
//---------------------------------------------------------
// раздел основной программы:
НачалоРаботы=ТекущаяДата();

ошибка, говорит "ожидается ключевое слово "Конец процедуры"

процедуру в процедуру нужно?

Запись=РегистрыСведений.Курсы.ПолучитьПервое(01.01.2002) -
надо Запись=РегистрыСведений.Курсы.ПолучитьПервое('20020101')

(40) точку с запятой забыла в конце

замени содержимое процедуры ПриНачалеРаботыСистемы на  

ВремяЧас=Час(ТекущаяДата());
 Если ВремяЧас=14 Тогда
     Ответ=Вопрос("Сейчас не рабочее время!"+Символы.Таб+"Будете работать?",РежимДиалогаВопрос.ДаНет);
     Если Ответ=КодВозвратаДиалога.Нет Тогда
         ПрекратитьРаботуСистемы();
     КонецЕсли;
 ИначеЕсли ВремяЧас=17 Тогда
     ПрекратитьРаботуСистемы();
 КонецЕсли;

вот зашёл я в 16:59 в базу - всё, никакие ВремяЧас=17 мне уже не страшны ;)

а вот кусок типовой:

Процедура ПередНачаломРаботыСистемы(Отказ)
   
   ПроверитьВозможностьРаботыПользователя(Отказ);
   
   Если Отказ Тогда
       Возврат;
   КонецЕсли;

Alex S D Спасиб=)
А УЕ в чем косяк? Ошибку "Ожидается ключевое слово "конец процедуры" из-за чего выдает?
точку с запятой я добавила

(41) смотрела?

(46) 01.01.2002 - ни разу не дата. '20020101' - вот дата

(47), (48) да, спасиб, я это тоже исправила.
ошибка в другом, как я поняла
что вообще значит ошибка "Ожидается ключевое слово"?

волонтёры...

(49) слова ключевого не хватает

КО на страже, бгг

текст ошибки давай полностью

(53)
{МодульУправляемогоПриложения(20,5)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
   <<?>>……………………………………………………… (Проверка: Тонкий клиент)

я понял! это фото в ЛК ожидается

........................................................................

это просто на работе делать нефиг)

модуль приложения - это не блокнот, рисовать в нем не надо

(54)  че за точки, очень информативно

(59) я скопировала, как было(((

(59) да какая разница, нажать ctrl+F7, в окне служебных сообщений кликнуть по тексту ошибки

………………………………………………………  хаха только заметил..

убери эту фигню

терь вот что говорит
{МодульУправляемогоПриложения(20,15)}: Переменная не определена (РегистрыСведений)
      Запись=<<?>>РегистрыСведений.Курсы.ПолучитьПоследнее(ТекущаяДата()); (Проверка: Тонкий клиент)
{МодульУправляемогоПриложения(23,9)}: Переменная не определена (РегистрыСведений)
   Запись=<<?>>РегистрыСведений.Курсы.ПолучитьПервое(20020101); (Проверка: Тонкий клиент)

(64) в тонком клиенте  нет РС, отдавай управление на сервер. ещё 200 постов?

оо, началось..

(66) сам виноват :)

(65) ?

не. я клиент сервер не проходил, пойду поработаю ))

Им ладонь протягиваешь, а они по локоть откусывают:-)

нееееееетттт!!!! непокидайтеменя!!!!!

я тоже могу в чем-нить помочь, если надо, например в юриспруденции или маркетинге, еще могу написать стихи, нарисовать, спеть, сварить борщ))))))))))))
не бросайте меня тут(((

(72) Борщ вкусный? По традиции еще личико надо показать.

(71) на вот, схематично. обдумай

Опля=ДайМнеКурс();

&НаСервере
Функция ДайМнеКурс()
РегистрыСведений....
Возврат НужныйКурс;
Конец

чето типо того..

&НаКлиенте
Функция  ПолучитьКурсКлиент(Команда)
   Курс = ПолучитьКурсВалюты('20120101');
   Сообщить(Курс);
КонецФункции

&НаСервере
Функция  ПолучитьКурсВалюты(ДатаКурса)
   Запись = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(ДатаКурса);
   Возврат   Запись.Курс;
КонецФункции

http://v8.1c.ru/metod/books/

(76) волонтер..

спасиб, ребят.
пойду почитаю(((
вы совсем не уходите, я сегодня еще вернусь.
из книг есть Радченко.1СПредприятие.Практическое ПособиеРазрабртчика и 1СПредприятие.КонфигурированиеИАдминистрирование.
и этот непонятный курс он-лайн от 1С, который скоро закончится, а я еще в самом начале, потому, что невтыкаю(((((
еще есть учебная платформа 8.2
а спросить вооообще не у кого.

молю, хотя бы пол измени ;)

Радченка самое то

да, всё сделаю))) щасвирнус и усе будет
вот, пока, так
http://forum.bratsk.org/showthread.php?107002-Olka))))

я вернулсо)))
о
в тонком клиенте  нет РС, что это значит?

http://v8.1c.ru/metod/books/ (76) я уже купила. такую хрень купила, что больше хрен что куплю у них, пока из русских букв не научатся составлять слова, похожие на мысли.

Борща бы

(84) ума бы (мне)

(85) +

(85) Возможно, его отсутствие компенсировано красотой? )

> Задачу дали в 1С, он-лайн обучении на профессионала, введение в конфигурирование

дай ссылочку

(88) Учат как-то странно

http://dist.edu.1c.ru/index_fst.jsp

В условии задачи в (0) стопудово должен быть толстый клиент

В конфигураторе запусти через меню Отладка - Начало отладки - Толстый клиент (управляемое приложение)

запустила

(93) Начало неплохое )

(94)Йиииииииихххххаааа!!!

Я выиграл борщ

(87) посмотри ссылку на (81) только в конце ссылки скобки убери :)

(97) Не открывается оно у меня что-то

(98) так говорю же в ссылке скобки убери :)
правильная ссылка такая будет:
http://forum.bratsk.org/showthread.php?107002-Olka

со скобками правильная ссылко. тормозит только

ходи так: http://forum.bratsk.org далее ФОТОАЛЬБОМ далее Olka))) далее там буду я

Да открылось, хорошо

Но фотка борщ не отменяет

дык, эта,...вэлкам, какбэ)))

будешь лопать борщ и помогать мне с задачей)))

я буду кормить борщом, петь о правах, читать стихи об event и стратегическом позиционировании и рисовать код маслом))

может быть сам косяк с платформой? или в коде все-таки что-то не так?

у меня 8.2 а обучение по 8.0

ладн. пошел я спать. завтра со свежей головой посмотрю.

А нафига обучение по 8.0 проходить?

надо с 7.7 начинать

Франчайзи набирает персонал, старт обучения с этого курса 1с конфигурирование от 1с, там восьмерка. Указано, для тех, кто в танке. Но после введения резкий переход к языку, три строчки - задача. Я не понимать, почему так, почему, почему, почему, и что все это значит. А обучение этому этапу заканчивается через 1.5 недели, а я застряла в начале. Аттестацию хрен пройду, времени мало.

> 107002-Olka


это что за аббревиатура ?

(112) как звоут франчайзи ?

(113) 107002 втф?
А Olka=Олька

ну так что не получается ?

(116) у меня ночь, завтра заходи, как высплюсь, продолжу.
Щас искала основы программирования и забрела на сайт, где (правда, другой язык) всё расписано для тех, кто в танке, ясно и понятно, последовательно, кратко и ёмко.
А того, кто писал этот курс в 1с — уволить нахрен. Своим бардаком в голове создает бардак у других.

еще раз для особо одаренных (то есть меня)

// Модуль приложения
//---------------------------------------------------------
// Раздел переменных:
Перем НачалоРаботы;
//---------------------------------------------------------
//Раздел процедур и функций:
//ПриНачалеРаботыСистемы() - проверяет время входа в систему
Процедура ПриНачалеРаботыСистемы()
   ВремяЧас=Час(ТекущаяДата());
   Если (ВремяЧас>=14) и (ВремяЧас<15) Тогда
       Ответ=Вопрос("Сейчас не рабочее время!"+Символы.Таб+"Будете работать?",РежимДиалогаВопрос.ДаНет);
       Если Ответ=КодВозвратаДиалога.Нет Тогда
           ПрекратитьРаботуСистемы();
           ИначеЕсли ВремяЧас=17 Тогда
     ПрекратитьРаботуСистемы();
                   КонецЕсли;
           КонецЕсли;
   КонецЕсли;
КонецПроцедуры

Процедура ПримерыОбращенияКРегиструСведений()
      Запись=РегистрыСведений.Курсы.ПолучитьПоследнее(ТекущаяДата());
   Сообщить("Сегодня курс УЕ="+Запись.Курс);
   // Найдем курс на первое число после 01.01.2002:

   Запись=РегистрыСведений.Курсы.ПолучитьПервое(20020101);
   Сообщить("Курс УЕ на первое число после 01.01.2002"+Запись.Курс);
КонецПроцедуры

  Функция ИнтервалСтр(Начало,Конец)
   Интервал=Конец-Начало; //вычислим интервал в секундах
   Часов=Цел(Интервал/3600); //сколько это будет часов
   Время='00010101'+Интервал; //преобразуем Интервал к дате
   Минут=Минута(Время); //получим число минут и секунд
   Секунд=Секунда(Время);
   // напишем это все строкой
   Стр=""+Часов+"ч"+Минут+"м"+Секунд+"с";
   Возврат Стр;
КонецФункции

Процедура ПередЗавершениемРаботыСистемы(Отказ)
   КонецРаботы=ТекущаяДата();
   Ответ=Вопрос("Завершить работу системы?"+Символы.ПС+"(Вы работали "    
   +ИнтервалСтр(НачалоРаботы,КонецРаботы)+")",
   РежимДиалогаВопрос.ДаНет,30);
   Отказ=(Ответ=КодВозвратаДиалога.Нет);
КонецПроцедуры
//---------------------------------------------------------
// раздел основной программы:
НачалоРаботы=ТекущаяДата();



ошибко:
{МодульУправляемогоПриложения(18,2)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
   <<?>>КонецЕсли; (Проверка: Тонкий клиент)

____
это из-за того, что в тонком клиенте нет РегистраСведений - и что тогда делать?((
пропустить раздел про регистры?
а так в общем правильно?