нормальный » Поиск

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

Особенности защиты 1С:Предприятия 8.x, Настройка NETHASP.INI

При запуске 1С:Предприятия 8.x на раб.станции сначала производится поиск ключа в локальных USB портах, затем ключ ищется в сети. После нахождения в сети менеджера лицензий, у него забирается одна лицензия, и программа запускается. Если свободных лицензий не осталось, то ищется другой менеджер лицензий в сети. Если он не обнаружен или на остальных менеджерах тоже нет свободных лицензий, то появляется сообщение, что ключ не обнаружен.

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

При запуске второго экземпляра программы новая лицензия не забирается. То есть лицензия выделяется не на экземпляр программы, а на рабочее место.

Но при выделении повторно зависшей лицензии есть одна особенность:
Если в сети несколько менеджеров лицензий, то программа при поиске ключа опрашивает их в определенной последовательности. И если, например, на первом лицензий нет, то второй выдаст ей лицензию. Если потом программа упала, лицензия не освободится. Программу запускают повторно. Но теперь на первом менеджере лицензий, предположим, появились свободные лицензии. Тогда программа не найдет свою неосвобожденную лицензию от второго менеджера, а обратится сначала к первому и получит новую лицензию от первого.
Таким образом, на втором менеджере останется зависшая лицензия, которая освободится через 36 часов. Можно избежать этого, если на компьютерах, на которых запускается 1С:Предприятие, настроить файлы NETHASP.INI таким образом, чтобы на одной части компьютеров 1С:Предприятие обращалось к одному менеджеру лицензий, а на другой части компьютеров - ко второму менеджеру лицензий.
Файл NETHASP.INI, если связь с менеджерами лицензий организуется по TCP/IP, должен иметь примерно такое содержимое
[NH_COMMON]
NH_IPX = Disabled
NH_NETBIOS = Disabled
NH_TCPIP = Enabled

[NH_TCPIP]
NH_SERVER_ADDR = 10.1.170.65 ; нужно указать IP-адрес Вашего компьютера, на котором запущен Менеджер лицензий, с которым предполагается взаимодействовать

Также можно дополнить раздел [NH_TCPIP] строками, которые могут ускорить поиск ключа:
NH_TCPIP_METHOD=UDP
NH_USE_BROADCAST=Disabled

Файл NetHASP.ini должен находиться в каталоге CONF каталога исполняемого файла 1С:Предприятия 8.x (BIN)
Пример этого файла устанавливается в папке BIN при установке платформы.

Категория: Администрирование

Неполное рабочее время, согласно статье 93 ТК РФ Категория: 1С Зарплата и Управление Персоналом 2.5

Пример чтения текста в кодировке ISO

Код 1C v 7.x

 

Функция Перекодировка(Стр="",Кодировка="windows-1251")

    Стрим = СоздатьОбъект("Adodb.Stream");

    Стрим.Type = 2;

    Стрим.Mode= 3;

    Стрим.charset="iso-8859-5";

    Стрим.Open();

    Стрим.WriteText(Стр);

    Стрим.Position=0;

    Стрим.charset=Кодировка;

    Рез=Стрим.ReadText(-1);

    Стрим.Close();

    Возврат    Рез;

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



//Если предыдущая функция не срабатывает, то попробуйте:

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Стрим.Position=0; // здесь уже можно дергать нормальный текст

 

Стрим2 = СоздатьОбъект("Adodb.Stream");

Стрим2.charset="windows-1251";

Стрим2.Open();

Стрим2.WriteText(Стрим.ReadText);

Стрим2.Position=0;

Рез=Стрим2.ReadText(-1);

Стрим.Close();

Стрим2.Close();

//Выведем в Сообщить результаты

Message("2 = "+Рез);

Message("StrLen(Рез) = "+StrLen(Рез));



// Кратко

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Рез=Стрим.ReadText();

Код 1C v 7.x

  //Код где, ни единого объекта. smaharbA

Процедура Сформировать()

    Стр="Нажрися вотки и закуси ка селедкой! ";

    База=""+_GetPerformanceCounter()+".txt";

    УТФ=КаталогВременныхФайлов()+"УТФ"+База;

    ИСО=КаталогВременныхФайлов()+"ИСО"+База;

    ДОС=КаталогВременныхФайлов()+"ДОС"+База;

    ОбратноДОС=КаталогВременныхФайлов()+"ОбратноДОС"+База;

    Текст=СоздатьОбъект("Текст");

    Текст.КодоваяСтраница(1);

    Для Сч=1 По 10 Цикл

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

    КонецЦикла;

    Текст.Записать(ДОС);

    Текст.Очистить();

    КомандаСистемы("chcp 28595 > nul & echo off 2> """+ИСО+""" & for /f ""delims="" %i in ("+ДОС+") do (chcp 28595|>> """+ИСО+""" echo %i)");

//    КомандаСистемы("cmd /c ""chcp 28595|> """+ИСО+""" echo "+Стр+""""); 

    Текст.КодоваяСтраница(0);

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

    Текст.Записать(УТФ);

    КомандаСистемы("chcp 28595|> nul echo & cmd /u /c type """+ИСО+""" >> """+УТФ+"""");

    КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+"""");

    Текст.КодоваяСтраница(1);

    Текст.Открыть(ОбратноДОС);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Текст.ПолучитьСтроку(Сч));

    КонецЦикла;

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

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

Какие параметры командной строки для файла 1cv7.exe? Категория: Администрирование