Имя: Пароль:
1C
1C 7.7
v7: Создать окно с собщением
0 Борис_16
 
12.09.13
13:31
Скажите где можно нати ссылки нормальные, простого сообщения в 1С 7. чтобы выскакивало?
1 ДенисЧ
 
12.09.13
13:31
Что?
Создай простую форму и открывай её модально
2 Борис_16
 
12.09.13
13:35
Т.е. я только учусь программировать и, мне нужно что бы появлялось сообщение на других компах "закончить работу", где можно посмотреть примеры простые этого?
3 Scanvir
 
12.09.13
13:39
Сообщить("Закончить работу");

что ты хочешь сделать, начинающий?
4 Euguln
 
12.09.13
13:42
КомандаСистемы( "net send /users  Закончить работу");
5 dk
 
12.09.13
13:44
предупреждение, ввестистроку, ...
6 Борис_16
 
12.09.13
13:45
Хочу когда я админ зашел в систему, чтобу у других не админов появилось окно "Выйти из системы" как проще можно это написать?
7 Euguln
 
12.09.13
13:47
(6) Монитор - активные пользователи + телефон
8 Джордж1
 
12.09.13
13:48
(6)не получится так сделать нормально
9 Борис_16
 
12.09.13
13:51
У меня получается сейчас так: если я уже под админом, то никто зайти не может, а если до меня зашли, то когда я захожу позже под админом. то другие спакойно работают, а я бы хотел выкинуть им сообщение "Выйти из системы"...
10 Scanvir
 
12.09.13
14:04
могу посоветовать сделать так
1. Добавить константу "Админ" (число длиной 1 точность0)
2. В глобальном модуле в Процедуре "ПриНачалеРаботыСистемы" добавить код:
Если НазваниеНабораПрав("Администратор") = 1 Тогда
    Константа Админ = 1;
    ОбработкаОжидания("ПроверятьАдмина",60);
КонецЕсли;
3. В глобальном модуле в Процедуре "ПриЗавершенииРаботыПрограммы"
Если НазваниеНабораПрав("Администратор") = 1 Тогда
    Константа Админ = 0;
КонецЕсли;
4. в ГлобальномМодуле перед процедурой "ПриНачалеРаботыСистемы" добавить код:
Процедура ПроверятьАдмина();
    Если Константа Админ = 1 Тогда
        Если Вопрос("Закончить работу с программой? Админ пришел!!!","Да+Нет", 10)="Нет" Тогда
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

И будет тебе счастье и довольные пользователи
11 Борис_16
 
12.09.13
14:06
Сейчас попробую! Спасибо   Scanvir!!!
12 Scanvir
 
12.09.13
14:06
в вышеуказаном методе каждую минуту с твоим входом в систему пользователям будет выдаваться сообщение если они ничего не нажмут то через 10 секунд или по нажатию да 1с закроется, если нажмут нет то все построится через минуту...
13 Scanvir
 
12.09.13
14:09
Ошибку нашел исправь на вот так:

Процедура ПроверятьАдмина();
    Если Константа Админ = 1 Тогда
        Если Вопрос("Закончить работу с программой? Админ пришел!!!","Да+Нет", 10)="Нет" Тогда
            СтатусВозврата(0);
            Возврат;
        КонецЕсли;
        ЗавершитьРаботуСистемы(0);
    КонецЕсли;
КонецПроцедуры
14 Борис_16
 
12.09.13
14:17
Пишет ошибки: Константа <<?>>Админ = 1;
{Глобальный модуль(102)}: Переменная не определена (Админ)
<<?>>Процедура ПроверятьАдмин();
{Глобальный модуль(105)}: Определения процедур и функций должны размещаться перед операторами основной программы
15 Борис_16
 
12.09.13
14:17
Админ завел В Константы как в (10)
16 ADirks
 
12.09.13
14:20
не, надо не так:

Если Вопрос("Закончить работу с программой? Админ пришел!!!","Да", 10)="Нет" Тогда
   СтатусВозврата(0);
   Возврат;
КонецЕсли;

вот теперь пользователи действительно будут довольные
17 vladko
 
12.09.13
14:20
(14) ты вообще не знаком с 1С?
Константа.Админ = 1;
18 Борис_16
 
12.09.13
14:24
Таже ошибка на константу (14)
19 Борис_16
 
12.09.13
14:43
Если пишет Константа <<?>>Админ = 1;
{Глобальный модуль(102)}: Неопознанный оператор

то как можно исправить?
20 Scanvir
 
12.09.13
14:46
между константа и админ точку и никаких пробелов вот так Константа.Админ
21 Борис_16
 
12.09.13
14:53
Спасибо!   Scanvir!!!
22 Борис_16
 
12.09.13
14:58
Записал так:
Процедура ПроверятьАдмин();
Если НазваниеНабораПрав("Администратор")=1 Тогда
    Константа.Админ = 1;
         Если Константа.Админ = 1 Тогда
             
        Если Вопрос("Закончить работу с программой? Админ пришел!!!","Да", 10)="Нет" Тогда
   СтатусВозврата(0);
   Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
    ОбработкаОжидания("ПроверятьАдмин",60);
  
КонецПроцедуры  
ЗавершитьРаботуСистемы(0);

пишет"<<?>>Функция глСоздатьИдентификатор()    Экспорт
{Глобальный модуль(124)}: Определения процедур и функций должны размещаться перед операторами основной программы" то что начинается ниже должно стоять впереди, вроде все логично выстроенно....
23 Scanvir
 
12.09.13
15:22
ты все напутал
24 Scanvir
 
12.09.13
15:28
Сложно с тобой, зачем тебе 1С? брось... пока дров не наломал...
25 Delorn
 
12.09.13
15:35
а мне вот этим нравилось выгонять юзеров в 7.7.
http://x-romix.narod.ru/
http://x-romix.narod.ru/2006_12_05_Starter1C.rar
Это в трее сообщение выводит. перед тем как выгнать.
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.