игры » Поиск

Результаты по ключевому слову: игры

Как воспроизвести звуковой сигнал или проиграть звуковой файл в 1С?

Частенько бывает, что нужно оповестить или обратить внимание пользователя на оповещение звуком, вот несколько решений:

Стандартный вариант:

Синтаксис: Сигнал()

Описание: Воспроизводит звуковой сигнал. Устройство, воспроизводящее звук, а также характер звукового сигнала зависят от программно-аппаратного состава компьютера и звуковых установок ОС.

Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения.

Код 1C v 8.3

 &НаКлиенте

Процедура Команда(Команда)

   Сигнал();

КонецПроцедуры

С использованием внешних компонент:

Код 1C v 8.х

 // Способ №1

файлз = "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");

 

// Способ №2

файлз = "C:\1.wav";

oVoice = Новый COMObject("SAPI.SpVoice");

oSpFileStream = Новый COMObject("SAPI.SpFileStream");

oSpFileStream.Open(файлз);

oVoice.SpeakStream(oSpFileStream);

oSpFileStream.Close();





// Способ №3

файлз = "C:\1.wav";

DynamicWrapper = Новый COMОбъект("DynamicWrapperX");

DynamicWrapper.Register("winmm.dll", "sndPlaySoundA", "i=su");

DynamicWrapper.sndPlaySoundA(файлз, 1);





// Способ №4

// Проигрыватель - это ActiveX компонента "Windows Media Player"

Процедура КнопкаВыполнитьНажатие(Кнопка) 

   ПроигратьЗвук("D:\Звуки\123.wav"); 

КонецПроцедуры 





Процедура ПроигратьЗвук(Путь) 

   Попытка 

       ЭлементыФормы.Проигрыватель.settings.autostart = Истина; 

       ЭлементыФормы.Проигрыватель.settings.volume = 100; 

       ЭлементыФормы.Проигрыватель.URL = Путь; 

   Исключение 

   КонецПопытки; 

КонецПроцедуры





// Способ №5

// при помощи html-тега bgsound, на форме должен быть элемент Поле HTML документа

&НаКлиенте

Процедура ВоспроизвестиMP3()

   мФайл = ПолучитьАдресФайла();

 

   ПолеHTML = "

   | <HTML>

   | <BODY scroll='no'>

   | <BGSOUND id='sound_think' balance=0 volume='-1000'></BGSOUND>

   | <div id=paperRaphael></div>

   | <script>

   | function PlaySound() {

   | if (!window.HTMLAudioElement) {

   | document.all.sound_think.volume=0; 

   | document.all.sound_think.src = '"+мФайл+"';

   | }

   | }

   | window.onload = function(){

   | PlaySound();

   | }

   | </script>

   | </BODY>

   | </HTML>";

КонецПроцедуры

 

&НаСервере

Функция ПолучитьАдресФайла()

   Возврат ПоместитьВоВременноеХранилище(Обработки.ЗвукВ1С.ПолучитьМакет("sound"));

КонецФункции

Категория: Полезные, Универсальные Функции

Внешние источники данных Категория: Встроенные Функции

Как в запросе получить срез последних на Каждую Дату

Данная задача может быть решена как с использованием вложенных запросов, так и с помощью. временных таблиц. Попробуем решить задачу, используя временные таблицы. Сначала приведем весь текст запроса, а потом кратко разберем по частям принцип его работы.

Текст запроса:

Код 1C v 8.х

 ВЫБРАТЬ

    ПродажиОбороты.Период КАК Дата,

    ПродажиОбороты.Контрагент КАК Контрагент,

    ПродажиОбороты.Номенклатура КАК Номенклатура,

    СУММА(ПродажиОбороты.КоличествоОборот) КАК Количество,

    СУММА(ПродажиОбороты.СтоимостьОборот) КАК Стоимость

ПОМЕСТИТЬ втБезЦены

ИЗ

    РегистрНакопления.Продажи.Обороты(&НачалоПериода, &КонецПериода, День, ) КАК ПродажиОбороты



СГРУППИРОВАТЬ ПО

    ПродажиОбороты.Период,

    ПродажиОбороты.Контрагент,

    ПродажиОбороты.Номенклатура



ИНДЕКСИРОВАТЬ ПО

    Номенклатура,

    Дата,

    Контрагент

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    втБезЦены.Дата КАК Дата,

    втБезЦены.Контрагент КАК Контрагент,

    втБезЦены.Номенклатура КАК Номенклатура,

    втБезЦены.Количество,

    втБезЦены.Стоимость,

    МАКСИМУМ(ЦеныНоменклатуры.Период) КАК Период

ПОМЕСТИТЬ втМаксПериод

ИЗ

    втБезЦены КАК втБезЦены

        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры

        ПО втБезЦены.Номенклатура = ЦеныНоменклатуры.Номенклатура

            И втБезЦены.Дата >= ЦеныНоменклатуры.Период



СГРУППИРОВАТЬ ПО

    втБезЦены.Дата,

    втБезЦены.Контрагент,

    втБезЦены.Номенклатура,

    втБезЦены.Количество,

    втБезЦены.Стоимость



ИНДЕКСИРОВАТЬ ПО

    Номенклатура,

    Дата,

    Контрагент,

    Период

;



////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    втМаксПериод.Дата,

    втМаксПериод.Контрагент,

    втМаксПериод.Номенклатура,

    втМаксПериод.Количество,

    втМаксПериод.Стоимость,

    ЦеныНоменклатуры.Цена

ИЗ

    втМаксПериод КАК втМаксПериод

        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры

        ПО втМаксПериод.Номенклатура = ЦеныНоменклатуры.Номенклатура

            И втМаксПериод.Период = ЦеныНоменклатуры.Период

ГДЕ

    ЦеныНоменклатуры.ТипЦен = &ТипЦен

АВТОУПОРЯДОЧИВАНИЕ

Данный пакетный запрос содержит три подзапроса. Рассмотрим их подробнее.

Первый запрос пакета группирует данные по периоду, контрагенту и номенклатуре и помещает их во временную таблицу втБезЦены. Далее мы будем соединять эту таблицу с таблицей цен номенклатуры и получим небольшой выигрыш в том, что соединять будем уже сгруппированные данные.

Во втором подзапросе мы соединяем временную таблицу с регистром сведений «ЦеныНоменклатуры» при этом из регистра сведений мы выбираем МАКСИМАЛЬНУЮ дату из меньших или равных дат. Результат этого подзапроса также помещаем во временную таблицу (втМаксПериод). Посмотрим, какие данные попадают в эту таблицу:
title

Рис. 8 Временная таблица втМаксПериод

В последнем запросе пакета, мы еще раз соединяем временную таблицу с таблицей цен номенклатуры. На этот мы соединяем таблице по номенклатуре и периоду.

Итоговый результат запроса:
title

То же самое средсвами СКД

Категория: Запросы

Почему разрастается журнал транзакций - файл .LDF для MS-SQL Категория: Администрирование

Сводный Остаток регистра остатков

Данный метод работает аналогично методу Остаток, однако здесь могут быть заданы не все значения измерений, а только несколько,
но обязательно в правильной последовательности, соответствующей структуре измерений данного регистра, как она задана в конфигураторе.
Измерения могут задаваться с пропусками (неуказанное значение — просто запятая), фиксируются только указанные измерения.

Код 1C v 7.x

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.СводныйОстаток(Тов1, , "ОстатокТовара");

//означает, что ресурс «ОстатокТовара» будет получен только по одному товару (Тов1), но по всем складам и всем МОЛам.

Процедура ПолучитьСводныйОстаток(Товар, Ост);

   Ост = Регистр.УчетТовара.СводныйОстаток(Товар, , "ОстаткиТовара");

КонецПроцедуры



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить остаток данного товара на всех складах

КолвоТовара = РегТовары.СводныйОстаток (ТекТовар,,"Количество");

СтоимостьТовара = РегТовары.СводныйОстаток (ТекТовар,,"Стоимость");

//получить стоимость всех товаров на данном складе

СтоимостьПоСкладу = РегТовары.СводныйОстаток (,ТекСклад,"Стоимость");

Отзывы об казино 888старс от реальных игроков с опытом игры в данном игровом заведении.

Категория: Регистры