Версия для печати темы (https://pro1c.org.ua/index.php?s=25f755bf2fa25bda9ec5e67dc4e912d1&showtopic=34515)

Автор: Vzonder 12.01.17, 22:00

1С 8.2 УТ 10.3

Возможно создать следующее?

Если значение реквизита в документе (ФормаСписка и (или) Документа) становится равным “Упаковка”, то у сотрудника из группы Упаковка (права, Роль – все создам…) на компьютере срабатывал звуковой сигнал (желательно по противней))) и на экране выскакивала Форма – нарисую самую яркую))) или заставка оповещения.
Очень часто я слышу от упаковщиков, что не усмотрели…
Отсюда и вопрос.
Извините за эмоциональность – наболело))))

Это возможно?

Автор: Vofka 13.01.17, 9:55

В чем конкретно вопрос: как воспроизвести звук? Если да, то вот быстро нашел 3 способа как это сделать (не проверял):

файлз = "C:\1.wav";
Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="vbscript";
Скрипт.AddCode("
                    |Function Main()
                    |Set oVoice = CreateObject(""SAPI.SpVoice"")
                    |set oSpFileStream = CreateObject(""SAPI.SpFileStream"")
                    |oSpFileStream.Open """+файлз+"""
                    |oVoice.SpeakStream oSpFileStream
                    |End Function");
Скрипт.Run("Main");

файлз = "C:\1.wav";
oVoice = Новый COMObject("SAPI.SpVoice");
oSpFileStream = Новый COMObject("SAPI.SpFileStream");
oSpFileStream.Open(файлз);
oVoice.SpeakStream(oSpFileStream);
oSpFileStream.Close();

файлз = "C:\1.wav";
DynamicWrapper = Новый COMОбъект("DynamicWrapperX");
DynamicWrapper.Register("winmm.dll", "sndPlaySoundA", "i=su");
DynamicWrapper.sndPlaySoundA(файлз, 1);

Автор: Flexy 13.01.17, 10:46

Сигнал();

Автор: Vlad 1C 13.01.17, 12:17

Vzonder @ Вчера, 22:00 ,
"Не усмотрел", это отмазка родственная "Не услышал", поэтому ваши сотрудники смогут ее использовать и в дальнейшем. Может просто обязать сотрудников периодически просматривать задания и при отсутствии реакции в течении заранее оговоренного времени - штрафовать?