Имя: Пароль:
1C
1С v8
Звук в 1с
0 untru
 
16.10.11
15:53
Здраствуйте хотел посоветоваться как реализовать звук в 1с, есть тсд который через рдп подключаеться к 1ске, есть поле для ввода куда попадает отсканированый код, после чего программа ищет по коду номенклатуру и добавляет в таблицу, проблема в том  что когда на складе сканят не смотрят каждый раз на экран тсд.. а штрих коды не все забиты в утешке , поэтому надо как то оповещеть сканируещего что такой штрих код не найден(если ненайден).. я думал звуком..
как лучше реализовать ?  написав Сигнал() (кстати почему то не работает) или как то я еще могу вытащить звук, например если мне нужно 2 разных сигнала на разные действия
1 IamAlexy
 
16.10.11
15:59
лучше электрошокером чтобы било оператора..
2 IamAlexy
 
16.10.11
15:59
а то окажется что оператор в наушниках.. и звук твой не услышал...
3 untru
 
16.10.11
16:09
электрошокером когда недосдачи начнуться)
4 IamAlexy
 
16.10.11
16:13
(3) лучше заранее.. когда недосдачи - обыночно вывозят в лес и просят выкопать яму.. 2х1 глубиной 2м.
5 Зеленый Кот
 
16.10.11
16:20
просто расплакался...
единственный пост, когда Алекс полностью прав... и добавить ничего! ;)
6 Ork
 
16.10.11
16:37
К теме контроля за выполнением служебных обязанностей не относится.

За звук - сам делал так :
в модуль приложения :

ИспользоватьЗвуки=Истина;
Попытка
   Проигрыватель=Новый COMОбъект("MCI.MMControl");
   Проигрыватель.DeviceType = "WaveAudio";
   //Проигрыватель.Wait=Ложь;
   Проигрыватель.Wait=Истина;
Исключение
   ИспользоватьЗвуки=Ложь;
КонецПопытки;

Добавлен справочник "Озвучка" с реквизитами "Файл" и "Воспроизводить". Тип реквизитов понятен из названий. При необходимости озвучить какое-либо событе выполняется код:

ОбщегоНазначения.Подудеть(Справочники.Озвучка.ТоварНеИзСписка);

Собственно вывод звука:
Процедура Подудеть(Событие) Экспорт
   Перем ИмяФайла;
   Если НЕ ИспользоватьЗвуки Тогда
       Возврат;
   КонецЕсли;
   Если Событие.Воспроизводить Тогда
       ИмяФайла=СокрЛП(Событие.Файл);
       Проигрыватель.FileName=ИмяФайла;
       Проигрыватель.Command = "Open";
       Проигрыватель.Command="SOUND";
   КонецЕсли;
КонецПроцедуры
7 kod263
 
16.10.11
16:43
(0) а может проблема не в 1С, а в клиенте rdp ?
8 Злопчинский
 
16.10.11
17:12
1. в клиенте рдп должна стоять галка транслировать звук с сервера на этот комп.
2. звук на сервере ДОЛЖЕН ПРОИГРЫВАТЬСЯ! даже если нет звуковых карточек/встроенного...
3. на 7.7 играю формексом глсервис.Воспроизвести("alarm.wav") - NCL орет и трясетс zf;//