|
v7: При закрытии чтоб появлялось окошко с выбором Да/Нет | ☑ | ||
---|---|---|---|---|
0
Irina3gger
19.07.17
✎
08:12
|
Подскажите пожалуйста, как в 1с 7.7. прописать чтоб При закрытии появлялось окошко типа"Вы уверены, что хотите завершить работу?" с кнопками да/нет?
|
|||
1
1dvd
19.07.17
✎
08:12
|
изменить модифицированность документа
|
|||
2
skd1980
19.07.17
✎
08:15
|
(0) В режиме предприятия заходите в пользователя и там есть настройки с галочками и одна из них что-то на вроде спрашивать при выходе из 1с. Ставьте туда галку.
|
|||
3
HawkEye
19.07.17
✎
08:16
|
(0) в ТиС - в настройках пользователя... в бухии - не помню, но тоже где-то там...
|
|||
4
skd1980
19.07.17
✎
08:20
|
(0) в ЗиК - сервис - настройки пользователя - закладка "Общие" - "Запрашивать подтверждение при выходе из программы"
|
|||
5
Zmich
19.07.17
✎
08:20
|
(0). См. процедуру ПриЗавершенииРаботыСистемы() в глобальном модуле.
|
|||
6
Irina3gger
19.07.17
✎
08:24
|
(5)
В глобальном модуле эта процедура есть я в ней написала чтоб спрашивала "Завершить работу?", но дело в том, что там нет кнопак Да/Нет и мне нужна помощь их прописать правильно |
|||
7
HawkEye
19.07.17
✎
08:24
|
(6) есть там кнопки.... не сочиняй
|
|||
8
Irina3gger
19.07.17
✎
08:26
|
(7) кнопка та есть, только одна под названием ОК и все
а мне нужно чтоб был выбор и я не знаю как его правильно написать этот кусочек кода в глобальном модуле |
|||
9
HawkEye
19.07.17
✎
08:27
|
(8) потому что надо использовать не Предупреждение а Вопрос...
|
|||
10
Irina3gger
19.07.17
✎
08:28
|
вот как я написала
Процедура ПриЗавершенииРаботыСистемы() Вопрос ("Завершить работу?"); КонецПроцедуры и в итоге окошко появляется но только с одной кнопкой ОК |
|||
11
igorPetrov
19.07.17
✎
08:30
|
(10) А СП почитать слабо?
|
|||
12
Рэйв
19.07.17
✎
08:30
|
Если Вопрос ("Завершить работу?",РежимДиалогаВопрос.ДаНет)<>КодВозвратаДиалога.Да Тогда
Отказ=Истина; Возврат; КонецЕсли; |
|||
13
Рэйв
19.07.17
✎
08:30
|
(12) к (10)
|
|||
14
igorPetrov
19.07.17
✎
08:30
|
(12) Зачем рыбу дал?
|
|||
15
Рэйв
19.07.17
✎
08:31
|
(14) будет тут стонать еще три часа...
|
|||
16
Irina3gger
19.07.17
✎
08:33
|
Спасибо за помощь, я только недавно работаю с 1С, поэтому огромное спасибо
|
|||
17
Zmich
19.07.17
✎
08:39
|
(12). В 7-ке у функции Вопрос() не такой синтаксис.
|
|||
18
Irina3gger
19.07.17
✎
08:40
|
Процедура ПриЗавершенииРаботыСистемы()
Если Вопрос ("Завершить работу?",РежимДиалогаВопрос.ДаНет)<>КодВозвратаДиалога.Да Тогда Отказ = Истина; Возврат; КонецЕсли; КонецПроцедуры Сделала как вы посоветовали, но теперь пишет что переменная не опредлена, даже 2 РежимДиалогаВопрос и Истина |
|||
19
HawkEye
19.07.17
✎
08:41
|
(18) Вопрос(<?>,)
Синтаксис: Вопрос(<Текст_вопроса>,<Режим>,<Таймаут>) Назначение: Вывести окно вопроса и получить ответ. Возвращает ответную реакцию в виде числа или строки, в соответствии с заданием параметра <Режим>: -1 или 'Таймаут' ('Timeout'), если закончилось время ожидания ответа; 1 или 'ОК' ('ОК'), если если нажата кнопка OK; 2 или 'Отмена' ('Cancel'), если нажата кнопка Отмена; 3 или 'Стоп' ('Abort'), если нажата кнопка Стоп; 4 или 'Повтор' ('Retry'), если нажата кнопка Повтор; 5 или 'Пропустить' ('Ignore'), если нажата кнопка Пропустить; 6 или 'Да' ('Yes'), если нажата кнопка Да; 7 или 'Нет' ('No'), если нажата кнопка Нет. Параметры: <Текст_вопроса> - cтрока текста вопроса; <Режим> - определяет набор кнопок диалога в виде числа или строки (в скобках английское написание): 0 или 'ОК' ('ОК') - кнопка OK; 1 или 'ОК+Отмена' ('OK+Cancel') - кнопки OK и Отмена; 2 или 'Стоп+Повтор+Пропустить' ('Abort+Retry+Ignore') - кнопки Стоп, Повтор, Пропустить; 3 или 'Да+Нет+Отмена' ('Yes+No+Cancel') - кнопки Да, Нет, Отмена; 4 или 'Да+Нет' ('Yes+No') - кнопки Да, Нет; 5 или 'Повтор+Отмена' ('Retry+Cancel') - кнопки Повтор, Отмена; (любое другое значение или отсутствие параметра равносильно 0); <Таймаут> - число секунд времени ожидания ответа (если опущен или 0, то без ограничения). Подробнее см. в документации, глава 'Системные процедуры и функции' |
|||
20
Paracoccidioidomicos
19.07.17
✎
08:41
|
без фото не взлетит?
|
|||
21
HawkEye
19.07.17
✎
08:42
|
(18) Ирина, нельзя все что встретишь на просторах инета, тащить себе в код...
|
|||
22
Рэйв
19.07.17
✎
08:42
|
(17)точно:-) 77 не углядел.
тогда исправлюсь //- Если Вопрос ("Завершить работу?",4)<>1 Тогда Статусвозврата(0); Возврат; КонецЕсли; |
|||
23
HawkEye
19.07.17
✎
08:42
|
(20) +100.... фото надо...
|
|||
24
1dvd
19.07.17
✎
08:42
|
Если Вопрос ("Завершить работу?", "Да+Нет") <> "Да"
Пишу по памяти, семерки нет под рукой |
|||
25
Zmich
19.07.17
✎
08:43
|
(18). Если Вопрос("Завершить работу?", "Да+Нет") = "Нет" Тогда
СтатусВозврат(0); Возврат; КонецЕсли; |
|||
26
Рэйв
19.07.17
✎
08:44
|
(25)Ну или так:-)
|
|||
27
1dvd
19.07.17
✎
08:44
|
(25) если диалог закрыть по крестику, то эска схлопнется
|
|||
28
Irina3gger
19.07.17
✎
08:45
|
(21) благодаря тому что я тащу все к себе в код, я учусь. Учусь методом проб и ошибок.
|
|||
29
1dvd
19.07.17
✎
08:45
|
или esc...
|
|||
30
igorPetrov
19.07.17
✎
08:46
|
(28) Так не учатся программированию.
|
|||
31
Irina3gger
19.07.17
✎
08:48
|
(30) я понимаю.
Но у меня другого варианта, так как нет практики и не у кого спросить, только вот на этот форум обращаюсь если совсем туго |
|||
32
Рэйв
19.07.17
✎
08:48
|
(31)Устройся во франч. Будет много практики и опыта. Правда будет мало времени заходить сюда:-)
|
|||
33
Paracoccidioidomicos
19.07.17
✎
08:50
|
(32) Тут и придётся зависать сутками, во франче на тебя всем пох
|
|||
34
1dvd
19.07.17
✎
08:51
|
(33) Что это за франч, в котором падавану нечем заняться?
|
|||
35
Paracoccidioidomicos
19.07.17
✎
08:51
|
(34) Нечем заняться <> на тебя всем пох
|
|||
36
catena
19.07.17
✎
08:55
|
(31)Как минимум, сначала надо спрашивать у СП.
|
|||
37
пипец
19.07.17
✎
09:09
|
хе еще синтаксис от 6.0 притащить с просторов осталось ))
|
|||
38
vladko
19.07.17
✎
09:18
|
(0) Держи ответ как в бухгалтерии 7.7 сделано:
Процедура ПриЗавершенииРаботыСистемы() Если Вопрос("Закончить работу с программой?", "Да+Нет", 60)="Нет" Тогда СтатусВозврата(0); Возврат; КонецЕсли; КонецПроцедуры |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |