09.10.2025

8.2 УП

8.2 УП

BoricH пишет: 1C8.2 при работе в терминале на 64х сервере в клиент-серверном режиме при большом колличестве пользователей...
Схема = ЭлементыФормы.ГеоСхема; СписокГородов = Новый СписокЗначений; // Запретить перерисовку схемы на время обновления. Схема.Обновление = Ложь;...
СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ПланыОбмена.ЗарегистрироватьИзменения(СсылкаНаУзел, Неопределено); СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ПланыОбмена.ЗарегистрироватьИзменения(СсылкаНаУзел, Метаданные.Справочники.Номенклатура); СсылкаНаУзел = ПланыОбмена.НаСклады.НайтиПоКоду("С1"); ДокСсылка = Документы.РеализацияТоваров.НайтиПоНомеру(НомерДок, ДатаПериода);...
ВЫБРАТЬ ХозрасчетныйВидыСубконто.Ссылка КАК Счет ИЗ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ХозрасчетныйВидыСубконто ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ХозрасчетныйВидыСубконто1 ПО ХозрасчетныйВидыСубконто.Ссылка = ХозрасчетныйВидыСубконто1.Ссылка...
Функция Удаляет указанные файлы. УдалитьФайлы(<Путь>, <Маска>) Параметры: <Путь> (обязательный) Тип: Строка. Путь к удаляемым файлам. <Маска> (необязательный)...
RegExp = CreateObject("VBScript.RegExp"); // здесь под восьмерку переделай RegExp = Новый COMОбъект("VBScript.RegExp"); RegExp.IgnoreCase = Истина; //Игнорировать регистр...
Код уникален и сработает везде. Функция ПолучитьКоличествоДней()          Счетчик = 1;     НачалоПериода = Объект.НачалоПериода;...