1С 8.2 УТ 10.3
Возможно создать следующее?
Если значение реквизита в документе (ФормаСписка и (или) Документа) становится равным “Упаковка”, то у сотрудника из группы Упаковка (права, Роль – все создам…) на компьютере срабатывал звуковой сигнал (желательно по противней))) и на экране выскакивала Форма – нарисую самую яркую))) или заставка оповещения.
Очень часто я слышу от упаковщиков, что не усмотрели…
Отсюда и вопрос.
Извините за эмоциональность – наболело))))
Это возможно?
В чем конкретно вопрос: как воспроизвести звук? Если да, то вот быстро нашел 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);
Сигнал();
Vzonder @ Вчера, 22:00
,
"Не усмотрел", это отмазка родственная "Не услышал", поэтому ваши сотрудники смогут ее использовать и в дальнейшем. Может просто обязать сотрудников периодически просматривать задания и при отсутствии реакции в течении заранее оговоренного времени - штрафовать?
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua