Программа для информационного табло 1С: второй монитор Дисплей покупателя. Поддержка видео

Интеграция дисплея с конфигурацией Управление торговлей 10.3.

Для подключения дисплея нужно в модуль двух форм документа ЧекККМ: ФормаДокумента и ФормаРегистрацииПродаж добавить процедуру вывода на дисплей:

 

 //Процедрура осуществляет вывод информации на дисплей-монитор

 Процедура ВывестиНаДисплейМонитор()

	     ПутьИИмяФайла = "C:\displ\vivod.txt";

	     СуммаВсего = Товары.Итог("Сумма");

	     Текст = Новый ТекстовыйДокумент;

	     

	     СписокТоваров = Новый ТаблицаЗначений;

	     СписокТоваров = ЭтотОбъект.Товары.Выгрузить();

	     Ном = СписокТоваров.Количество();

	     Пока Ном>0 Цикл

	         Колво = СписокТоваров[ном-1].Количество;

	         ТекЦена = СписокТоваров[ном-1].Цена;

	         ТекТовар = СписокТоваров[ном-1].Номенклатура.Наименование;

	         Текст.ДобавитьСтроку(Строка(ТекТовар));

	         Текст.ДобавитьСтроку("Количество: "+Формат(Колво,"ЧЦ=10; ЧДЦ=3")+"       Цена: "+Формат(ТекЦена,"ЧЦ=10; ЧДЦ=2; ЧН=")+"руб.");

	         Текст.ДобавитьСтроку("");

	         Ном = Ном-1;

	     КонецЦикла;

	     Если СуммаВсего>0 Тогда    

	         Текст.ДобавитьСтроку("Итого: "+Формат(СуммаВсего,"ЧЦ=10; ЧДЦ=2")+"руб.");

	     ИначеЕсли СписокТоваров.Количество()=0 Тогда

	         Текст.ДобавитьСтроку("@");

	     КонецЕсли;

	     Попытка

	         Текст.Записать(ПутьИИмяФайла,КодировкаТекста.ANSI);

	     Исключение

	         

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

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

 

После этого нужно добавить в этих формах в процедуре ВывестиИнформациюНаДисплейПокупателя() вызов нашей добавленной процедуры вывода на монитор: ВывестиНаДисплейМонитор();

На этом изменение торговли заканчивается. Можете сами поправить путь записи файла с информацией, в том числе, можете указать его как сетевой. Также можете дописать в этот файл что-нибудь еще по вашему усмотрению.

Интеграция дисплея с конфигурацией Розница 2.0.

Для подключения дисплея нужно в модуль формы Форма обработки РМК  добавить процедуру вывода на дисплей: ВывестиНаДисплейМонитор() (текст процедуры смотрите выше, ничем не отличается от текста для Управления торговлей).  После этого нужно в этой же форме в начало процедуры ВывестиИнформациюНаДисплейПокупателя(Команда) добавить строчку ВывестиНаДисплейМонитор();

На этом изменение Розницы заканчивается. Можете сами поправить путь записи файла с информацией, в том числе, можете указать его как сетевой. Также можете дописать в этот файл что-нибудь еще по вашему усмотрению.

Интеграция дисплея с конфигурацией Управление торговлей 11.1 при продажах через документ Реализация товаров и услуг.

Для подключения дисплея нужно в модуль формы ФормаДокумента документа РеализацияТоваровУслуг добавить процедуру вывода на дисплей:

 &НаСервере Процедура ВывестиНаДисплейМонитор()
	ПутьИИмяФайла = "C:\displ\vivod.txt";
	СуммаВсего = Объект.Товары.Итог("СуммаСНДСБезВозвратнойТары");
	Текст = Новый ТекстовыйДокумент;
	СписокТоваров = Новый ТаблицаЗначений;
	СписокТоваров = Объект.Товары.Выгрузить();
	Ном = СписокТоваров.Количество(); Пока Ном>0 Цикл
	Колво = СписокТоваров[ном-1].Количество;
	ТекЦена = СписокТоваров[ном-1].Цена;
	ТекТовар = СписокТоваров[ном-1].Номенклатура.Наименование;
	Текст.Доб
авитьСтроку(Строка(ТекТовар));
	Текст.ДобавитьСтроку("Количество: "+Формат(Колво,"ЧЦ=10; ЧДЦ=3")+" Цена: "+Формат(ТекЦена,"ЧЦ=10; ЧДЦ=2; ЧН=")+"руб.");
	Текст.ДобавитьСтроку("");
	Ном = Ном-1; КонецЦикла;
	Текст.ДобавитьСтроку("Итого: "+Формат(СуммаВсего,"ЧЦ=10; ЧДЦ=2")+"руб."); Попытка
	Текст.Записать(ПутьИИмяФайла,КодировкаТекста.ANSI); Исключение КонецПопытки КонецПроцедуры

Затем в процедуру Процедура ТоварыПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования) добавить строчку: ВывестиНаДисплейМонитор();

Для очистки дисплея при закрытии документа реализации нужно изменить процедуру ПриЗакрытии():

 &НаКлиенте Процедура ПриЗакрытии()
	МенеджерОборудованияКлиент.ОтключитьОборудованиеПриЗакрытииФормы(ЭтаФорма);
	ПутьИИмяФайла = "C:\displ\vivod.txt";
	Текст = Новый ТекстовыйДокумент;
	Текст.ДобавитьСтроку("@"); Попытка
	Текст.Записать(ПутьИИмяФайла,КодировкаТекста.ANSI); Исключение КонецПопытки КонецПроцедуры

После этого нужно добавить в этих формах в процедуре ВывестиИнформациюНаДисплейПокупателя() вызов нашей добавленной процедуры вывода на монитор: ВывестиНаДисплейМонитор();

На этом изменение торговли заканчивается. Можете сами поправить путь записи файла с информацией, в том числе, можете указать его как сетевой. Также можете дописать в этот файл что-нибудь еще по вашему усмотрению.

• Добавлена возможность изменять шрифт текста

• Добавлена поддержка прокрутки видео-роликов со звуком во время простоев

• Добавлена возможность отключения рекламы и вывода текстовой информации на весь экран

• Добавлена поддержка любых языков, формат Unicode

• Добавлен файл настроек Settings.ini
• Возможность задавать размер и цвет шрифта для текста и Итого
• Настройка интервала смены картинок