Тасбих / Тасбіх

Бисмилляhи р-рахмани р-рахим.

При каждом нажатии на кнопку срабатывает мини вибрация телефона.

Если счетчик достиг ровно 80 раз срабатывает более длительное вибрирование телефона, а если 100 тогда еще более длительная вибрация.

Счетчик можно очищать, предупреждения очищения счетчика также присутствует.

А также при закрытии программы будет уведомление о закрытии.

Если программа свернулась при развертывании свернутой программы счетчик не очищается.

В программе присутствует один из вариантов Салават Пророку Мухамммаду Мир Ему, который прежде чем произносить нужно проверить произношения в достоверного учителя.

Тестировалось на android 7.1.2

03/05/2020

• Добавлено в меню программы передача о чтении Таhлиля.
• Добавлено чекбокс отвечающий за включение подсчета Таhлиль.
• Добавлено кнопка показа количества всего подсчитанного Таhлиля.
• Добавлена кнопка очищения ранее сохраненного количества Таhлиля.

Скачать

Просмотреть исходники можно здесь

Прочитать EXCEL 1С

Что бы прочитать ексел файл не обязательно устанавливать MS EXCEL, в одной из платформ 1С в объекта ТабличныйДокумент в метода Прочитать() добавилась возможность чтения файла формата .xls.

Процедура ЧтениеФайла()

Реквизит1.Прочитать("C:\File.xls",СпособЧтенияЗначенийТабличногоДокумента.Текст);

//а далее перебираем строки табличного документа

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

Обмен РИБ через интерфейс кассира

Нужно организовать кнопку в интерфейсе кассира, которая даст возможность кассиру, с Ролью Кассир делать обмен с центральной базой через механизм Обмен РИБ.

По мотивам.

ОбщийМодули.ПараметрыОбменаДанными.Процедура ОткрытьФормуВыполненияОбменаРИБ() Экспорт

        Если РольДоступна("ИнтерфейсКассира") Тогда

            УстановитьПривилегированныйРежим(Истина);

        КонецЕсли

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

     

    ОбщиеМодули.ПроцедурыОбменаДанными.Процедура ВыполнитьОбменДаннымиПоПроизвольнойНастройке(НастройкаОбменаДанными, РучнойЗапускОбменов = Истина,

    ОбработкаАвтообменаНаКлиенте = Неопределено, Знач СоответствиеТекстовЭлектронныхПисем = Неопределено, Знач ОбменПриВходеВПрограмму = Ложь) Экспорт

        Если РольДоступна("ИнтерфейсКассира") Тогда

            УстановитьПривилегированныйРежим(Истина);

        КонецЕсли;

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

     

    ОбщиеФормы.ФормаВыполненияОбменаДанными.ОпределитьНаличиеНастройки()

        Если РольДоступна("ИнтерфейсКассира") Тогда

            УстановитьПривилегированныйРежим(Истина);

        КонецЕсли;         

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

     

    ОбщиеФормы.ФормаВыполненияОбменаДанными.УстановитьПараметрыОбменаПоНастройке()

        Если РольДоступна("ИнтерфейсКассира") Тогда

            УстановитьПривилегированныйРежим(Истина);

        КонецЕсли;

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

     

    ФормаОбработки

    Процедура ОбменНажатие(Элемент)

        ПараметрыОбменаДанными.ОткрытьФормуВыполненияОбменаРИБ();  

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

Получить строку с уникальным идентификатором из COM

Выборка = COM.Выбрать();

Пока Выборка.Следующий() Цикл

          COM.XMLСтрока(Выборка.Контрагент);

КонецЦикла;

Найти дубли запросом

Есть в РегистреСведений измерение КодИКС, нужно найти дубли значений в поля  

ВЫБРАТЬ

Штрихкоды.Штрихкод КАК Штрихкод,

Штрихкоды.Владелец КАК Владелец,

Штрихкоды.КодИКС КАК КодИКС

ИЗ

РегистрСведений.Штрихкоды КАК Штрихкоды

ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды1

ПО (Штрихкоды.Владелец <> Штрихкоды1.Владелец

И Штрихкоды.КодИКС = Штрихкоды1.КодИКС)

 

УПОРЯДОЧИТЬ ПО

КодИКС