15.01.2026

8.x

Код уникален и сработает везде. Функция ПолучитьКоличествоДней()          Счетчик = 1;     НачалоПериода = Объект.НачалоПериода;...
ДокОбъект = СсылкаНаДокумент.ПолучитьОбъект(); ДокОбъект.Ответственный = глТекущийПользователь; ДокОбъект.Комментарий = "Исправление от "+Строка(ТекущаяДата()); ДокОбъект.Записать(); // или //ДокОбъект.Записать(РежимЗаписиДокумента.Проведение); //ДокОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
Запрос=Новый Запрос("ВЫБРАТЬ РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,МЕСЯЦ) КАК Месяцев, РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,ДЕНЬ) КАК Дней");
ПарСумма — сумма, число Функция глРубКоп(ПарСумма) Экспорт Если Число(ПарСумма)=0 Тогда Возврат "руб. коп." КонецЕсли; Возврат ""+Цел(ПарСумма)+" руб....
Функция СоздатьПользователя(Имя, Пароль) Если (Метаданные.Роли.Найти("ПолныеПрава") = Неопределено) или (Метаданные.Роли.Найти("Админ") = Неопределено) Тогда Сообщить("Нет возможности создать пользователя """...
СтарыйЗаголовок = ПолучитьЗаголовокСистемы(); НовыйЗаголовок = СтарыйЗаголовок + " " + ИмяПользователя(); УстановитьЗаголовокСистемы(НовыйЗаголовок); ТекущийЗаголовок = ЗаголовокСистемы();
Форма = Справочники.Номенклатура.ПолучитьФормуСписка(); Форма.Открыть(); Форма = Справочники.ХранилищеДополнительнойИнформации.ПолучитьФорму("ФормаСпискаФайловИИзображений"); Форма.Открыть(); Элемент = Справочники.Номенклатура.НайтиПоКоду("00030"); Форма = Элемент.ПолучитьФорму(); Форма.Открыть(); Перем контр;...
ДокExcel = Новый COMОбъект("Excel.Application"); //... ДокExcel.Application.Workbooks.Application.Workbooks.Add(1); ДокExcel.Application.Workbooks.Application.ActiveSheet.Name = "Закладка 1"; ДокExcel.Application.Workbooks.Application.ActiveWorkbook.Worksheets.Add(); ДокExcel.ActiveWorkbook.Sheets.Application.ActiveSheet.Name = "Вторая Закладка"; ДокExcel.Visible =...