|
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 Это в трее сообщение выводит. перед тем как выгнать. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |