клиента%компьютере » Поиск

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

Как получить текст из html?

Один мой хороший клиент использует встроенный в 1С почтовый клиент.

До этого все работало хорошо, но недавно из-за установки нового банк-клиента на компьютере обновили Internet Explorer до 11 версии - стала появляться ошибка:

Поле объекта не обнаружено innerText

Пришлось немного доработать типовую функцию получения текста из html:

Код 1C v 8.х

 Функция ПреобразоватьТекстИзХТМЛФорматаВПростой(ТекстВФорматеХТМЛ) Экспорт

	Попытка

		НовыйHTMLДокумент = Новый COMОбъект("HtmlFile");

		НовыйHTMLДокумент.open("text/html");

		НовыйHTMLДокумент.write(ТекстВФорматеХТМЛ);

		НовыйHTMLДокумент.close();

		

		Возврат СтрЗаменить(НовыйHTMLДокумент.all.item(0).innerText, Символ(13), "");

	Исключение	

		Построитель = Новый ПостроительDOM;

		ЧтениеHTML = Новый ЧтениеHTML;

		ЧтениеHTML.УстановитьСтроку(ТекстВФорматеХТМЛ);

		ДокументHTML = Построитель.Прочитать(ЧтениеHTML);

		

		Возврат СокрЛП(ДокументHTML.Тело.ТекстовоеСодержимое);

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

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

еще функции пример получения:

Код 1C v 8.х

 // Процедура изменяет признак формат текста письма (Текст, HТМЛ),

// и при этом конвертирует сам текст.

//

// Параметры:

//  ЭУHTML,ЭУТекст - Элементы управления формы, соответственно поле HTML и поле Текст

//  Кнопка - выбранная кнопка ее текст "Простой текст" или "HTML" новый вид текста письма

//  либо текст кнопки если пометку кнопки менять не требуется, соответственно 

//  вопрос о потере форматирования задаваться не будет

// Возвращаемое значение:

//  Булево, признак выполнения изменения формата

//

Функция удИзменитьФорматТекста(ЭУHTML,ЭУТекст, Кнопка) Экспорт

    Если ТипЗнч(Кнопка) = Тип("Строка") Тогда

        НовыйВидТекстаПисьма = Кнопка;

        ЕстьКнопка = Ложь;

    Иначе

        Если Кнопка.Пометка Тогда 

            Возврат Ложь; 

        КонецЕсли;

        НовыйВидТекстаПисьма = Кнопка.Текст;        

        ЕстьКнопка = Истина;

    КонецЕсли;     

        

    Если Найти(НовыйВидТекстаПисьма,"Простой текст") > 0 Тогда          

        ИсходныйТекст = ЭУHTML.ПолучитьТекст();

        НачалоBODY = Найти(ИсходныйТекст, "<BODY>");

        КонецBODY  = Найти(ИсходныйТекст, "</BODY>");

        Если ЕстьКнопка и (НачалоBODY > 0 И КонецBODY > 0 И (НачалоBODY + 6) < КонецBODY) Тогда

            СтрокаВопроса = "Будет потеряно форматирование текста. Продолжить?";

            ОтветНаВопрос = Вопрос(СтрокаВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Нет);

            Если ОтветНаВопрос <> КодВозвратаДиалога.Да Тогда                

                Возврат Ложь;

            КонецЕсли;

        КонецЕсли;

        ФорматТекста = ЭУHTML.Документ.all.item(0).innerText;             

        ЭУТекст.Значение =  СтрЗаменить(ФорматТекста, Символ(13), "");

        ЭУТекст.Видимость = Истина;

        ЭУHTML.Видимость = Ложь;

        ЭУHTML.УстановитьТекст("");                        

    Иначе

        ФорматХТМЛ = СтрЗаменить(ЭУТекст.Значение, Символы.ПС, "<BR>");

    

        ЭУHTML.УстановитьТекст(ФорматХТМЛ);

        ЭУHTML.Видимость = Истина;

        ЭУТекст.Видимость = Ложь;

    КонецЕсли; 

    

    Если ЕстьКнопка Тогда

        Кнопка.Пометка = Истина;         

    КонецЕсли;   

    Возврат Истина;                     





КонецФункции // обИзменитьФорматТекста()

Категория: Работа с Интернет, Почтой (Mail), FTP

Чем отличается 1С Базовая версия от ПРОФ

Когда возникает необходимость покупки ПО 1C, как правило, большая часть покупателей оказываются перед множеством выбора среди различных способов их приобретения, представляемых фирмой "1С" своим клиентам.

Кроме того, что пользователям доступны десятки различных решений, специально разработанных для разных задач одинаковое решение может выпускаться в виде различных вариантов, например, базовая поставка и версия ПРОФ . Непосредственно, об отличиях и особенностях базовых и ПРОФ версий решений компании "1С" будем говорить дальше.

Базовая поставка программ 1С - это, обычно, бюджетное ПО для одного пользователя. Как известно, базовые поставки предыдущей версии программ 1С:Предприятие 7.7 компанией "1С" теперь не выпускаются (например, купить базовая 1с ЗиУП 8 маожно, а вот ее аналог для 1С:Предприятие 7.7 больше не производится), то мы сравним возможности и ограничения базовой и ПРОФ версии программ 1С Предприятие 8.

Итак, базовая версия программ 1С - это, во-первых, локальная версия программы. Может возникнуть вопрос, но ведь и в описании к версии ПРОФ, так же написано "в комплект поставки включена лицензия на одного пользователя"? Разница заключается в том что, если в дальнейшем возникнет потребность добавить по локальной сети второго пользователя, для совместной работы нескольких пользователей, то для версии ПРОФ, достаточно купить клиентскую лицензию 1с, цена которой, как правило, меньше стоимости основной поставки. В базовой же версии организовать совместную работу по локальной сети нескольких пользователей невозможно. Ни покупка клиентских лицензий, ни покупка нескольких базовых версий не позволит работать нескольким сотрудникам в одной компьютерной сети.

Кроме вышеуказанного, относительно версии ПРОФ, базовая версия имеет ряд дополнительных ограничений, в том числе:

* не поддерживается изменение конфигурации, можно использовать только типовую конфигурацию и устанавливать ее обновления;
* не поддерживается ведение учета по нескольким фирмам в одной информационной базе; при этом имеется возможность ведения учета нескольких компаний в разных информационных базах на одном компьютере;
* одновременно с одной информационной базой может работать только один пользователь;
* не возможна работа в варианте клиент-сервер;
* не возможна работа распределенных информационных баз;
* не возможны COM-соединение и Automation-сервер.

Не смотря ни на что, базовая версия имеет ряд своих преимуществ. Несомненно - это ее цена! Купить 1С Предприятие 8.1 базовую версию для небольшого предприятия, где с программой будет работать только один сотрудник, будет по-настоящему бюджетным решением. Зарегистрированные пользователи имеют возможность бесплатного получения обновлений программы на инетрнет-сайте пользователей.

Кроме того, если Вы уже приобрели базовую версию, но в последствии выяснилось, что теперь Вам нужна версия ПРОФ. Можно будет приобрести ПРОФ версию этой же программы путем upgrade, т.е. заменой базовой версии на ПРОФ с зачетом стоимости.

Категория: 1С Общие вопросы - Обычные формы

Установка и настройка 1C:Предприятия 8.х в варианте “клиент-сервер” Категория: Администрирование

Как организовать работу с почтой без установленного почтового клиента на компьютере пользователя?

Код 1C v 8.х

 // Сформировать почтовый профиль.

// При отправке нет необходимости указывать настройки, связанные с POP сервером.

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераSMTP = Константы.АдресСервераSMTP.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.ПарольSMTP = Константы.ПарольSMTP.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПользовательSMTP = Константы.ПользовательSMTP.Получить();

ИПП.ПортSMTP = Константы.ПортSMTP.Получить();



// Создать сообщение.

Сообщение = Новый ИнтернетПочтовоеСообщение;

Сообщение.Получатели.Добавить("file@server.ru");

Сообщение.Отправитель.Адрес = "test@serv.ru";

Сообщение.Тема = "Срочно в номер!";

Сообщение.Тексты.Добавить("Доброе время суток!");



Вложение = Новый ДвоичныеДанные(ПутьКФайлуВложения);

Сообщение.Вложения.Добавить(Вложение,"attach.txt");



// Подключиться и отправить.

Почта = Новый ИнтернетПочта;

Почта.Подключиться(ИПП);

Почта.Послать(Сообщение);

Почта.Отключиться();



// Формирование почтового профиля.

// При получении нет необходимости указывать настройки, связанные с SMTP сервером.

СостояниеПриема = "Подключение к серверу";

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераPOP3 = Константы.АдресСервераPOP3.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПортPOP3 = Константы.ПортPOP3.Получить();



Соединение = Новый ИнтернетПочта;

Соединение.Подключиться(ИПП);

СостояниеПриема = "Получение выборки писем";

Выборка = Соединение.Выбрать(ЗабиратьССервера);

СостояниеПриема = "Создание документов - писем";

КоличествоВВыборке = Выборка.Количество();

Индекс = 1;



Для Каждого Письмо Из Выборка Цикл

ТекПозиция = Окр(Индекс * 100/КоличествоВВыборке);

Если ТекПозиция <> Позиция Тогда

Позиция = ТекПозиция;

КонецЕсли;



Док = Документы.Письмо.СоздатьДокумент();

Док.Тема = Письмо.Тема;

СтрПолучатели = "";



Для Каждого Адрес Из Письмо.Получатели Цикл

СтрПолучатели = СтрПолучатели + Адрес.Адрес + ",";

КонецЦикла;



Док.Получатели = СтрПолучатели;

Если ТипЗнч(Письмо.Отправитель) = Тип("Строка") Тогда

Отправитель = Письмо.Отправитель;

Иначе

Отправитель = Письмо.Отправитель.Адрес;

КонецЕсли;



Док.Отправитель = Отправитель;

Содержание = "";



Для Каждого ТекстСообщения Из Письмо.Тексты Цикл

Содержание = Содержание + ТекстСообщения.Текст + Символы.ПС;

КонецЦикла;



Док.Содержание = Содержание;

Индекс = Индекс + 1;

Док.Записать();

КонецЦикла;



Соединение.Отключиться();

Категория: Работа с Интернет, Почтой (Mail), FTP

Работа с Почтой в 1С: Предприятие v 8 Категория: Работа с Интернет, Почтой (Mail), FTP

Коды ошибок 1Сv8 800* Категория: Системные Ошибки