Имя: Пароль:
1C
1C 7.7
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);
        Возврат;
    КонецЕсли;
КонецПроцедуры