01.12.2025

8.x

Запрос=Новый Запрос("ВЫБРАТЬ РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,МЕСЯЦ) КАК Месяцев, РАЗНОСТЬДАТ(&НачалоПериода,&КонецПериода,ДЕНЬ) КАК Дней");
ПарСумма — сумма, число Функция глРубКоп(ПарСумма) Экспорт Если Число(ПарСумма)=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 =...
Режим = РежимДиалогаВыбораФайла.Сохранение; ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy"); Фильтр = "Текст(*.txt)|*.txt"; ДиалогСохраненияФайла.Фильтр = Фильтр; ДиалогСохраненияФайла.МножественныйВыбор...
Запрос = Новый Запрос( "ВЫБРАТЬ | ТоварыНаСкладахОстаткиИОбороты.Склад КАК Склад, | ТоварыНаСкладахОстаткиИОбороты.Склад.Представление, | ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура, | ТоварыНаСкладахОстаткиИОбороты.Номенклатура.Представление,...
Функция ДатаПропись(Дат) Экспорт Перем Результат; Результат=""; Если ТипЗнч(Дат)=Тип("Дата") Тогда Результат=Формат(Дат,"ДФ=""дд ММММ гггг 'г.'"""); КонецЕсли; Возврат Результат КонецФункции...