18 апр. 2018 г.

Поле HTML документа удалить колонтитулы

На управляемой форме есть реквизит с типом Поле HTML документа, в которое помещается печатная форма от api сервиса.

При печати даного реквизита

Элементы.Поле HTML документа.document.execCommand ("print");

на распечатаной странице отображается не только содержимое хтмл документа, а и номер страницы + дата и урл страницы - это колонтитулы страницы.

Отключить колонтитулы нужно на уровне браузера, а именно в реестре.
Браузер по умолчанию у меня IE, поэтому:

wsh = Новый COMОбъект("WScript.Shell");
wsh.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\footer", "", "REG_SZ");
wsh.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup\header", "", "REG_SZ");

готовая обработка находиться тут

28 янв. 2018 г.

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

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


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

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

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

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

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

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

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




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







Скачать

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



14 янв. 2018 г.

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

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

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


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

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


ОбщийМодули.ПараметрыОбменаДанными.Процедура ОткрытьФормуВыполненияОбменаРИБ() Экспорт
        Если РольДоступна("ИнтерфейсКассира") Тогда
            УстановитьПривилегированныйРежим(Истина);
        КонецЕсли
    КонецПроцедуры
     
    ОбщиеМодули.ПроцедурыОбменаДанными.Процедура ВыполнитьОбменДаннымиПоПроизвольнойНастройке(НастройкаОбменаДанными, РучнойЗапускОбменов = Истина,
    ОбработкаАвтообменаНаКлиенте = Неопределено, Знач СоответствиеТекстовЭлектронныхПисем = Неопределено, Знач ОбменПриВходеВПрограмму = Ложь) Экспорт
        Если РольДоступна("ИнтерфейсКассира") Тогда
            УстановитьПривилегированныйРежим(Истина);
        КонецЕсли;
    КонецПроцедуры
     
    ОбщиеФормы.ФормаВыполненияОбменаДанными.ОпределитьНаличиеНастройки()
        Если РольДоступна("ИнтерфейсКассира") Тогда
            УстановитьПривилегированныйРежим(Истина);
        КонецЕсли;         
    КонецПроцедуры 
     
    ОбщиеФормы.ФормаВыполненияОбменаДанными.УстановитьПараметрыОбменаПоНастройке()
        Если РольДоступна("ИнтерфейсКассира") Тогда
            УстановитьПривилегированныйРежим(Истина);
        КонецЕсли;
    КонецПроцедуры
     
    ФормаОбработки
    Процедура ОбменНажатие(Элемент)
        ПараметрыОбменаДанными.ОткрытьФормуВыполненияОбменаРИБ();  
    КонецПроцедуры



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

Выборка = COM.Выбрать();
Пока Выборка.Следующий() Цикл
          COM.XMLСтрока(Выборка.Контрагент);
КонецЦикла;
 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07