Процедура ВывестиСписокЭлементовСправочникаВWord() спр1=создатьобъект("справочник.сотрудники"); спр1.ИспользоватьДату(ТекущаяДата()); Сообщить( спр1.НайтиПоНаименованию("Администрация",0,1)); Сообщить(спр1.ПолучитьАтрибут("Наименование")); сотр=создатьобъект("справочник.сотрудники"); сотр.ИспользоватьДату(ТекущаяДата()); сотр.ИспользоватьРодителя(спр1); отчет=создатьобъект("word.application"); отчет.visible = 1; отчет.documents.add("d:\spisok.dot"); отчет.documents(1).tables(1).cell(1,2).range.text= спр1.ПолучитьАтрибут("Наименование");...
7.x
7.x
Метод ОстаткиПолучить извлекает все ресурсы регистра по измерениям содержащимся в атрибутах. Регистр.Взаиморасчеты.Клиент = Конт.Клиент; Регистр.Взаиморасчеты.ОстаткиПолучить(); Сообщить("Долг клиента...
Выбрать все движения регистра по датам в заданном интервале дат рег=создатьобъект("Регистр.Обороты"); рег.ВыбратьДвижения(НачМесяца(ТекущаяДата())); Пока рег.ПолучитьДвижение()=1 Цикл Сообщить("Товар="+строка(рег.Товар)+ "...
//Выведем весь справочник Номенклатура Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | Номенклатура.* |ИЗ | Справочник.Номенклатура КАК Номенклатура |"; РезультатЗ...
Ячейка = Лист.Cells(1,8); Ячейка.Formula="=SUM(R11C:R[-1]C)"; Процедура Сформировать() Перем Кат,Шаб; Ехсел=СоздатьОбъект("Excel.Application"); Книга=Ехсел.Workbooks; Если ФС.ВыбратьФайл(0,Кат,Шаб,"Выбери файл Еxcel",,"*.xls",)=1 Тогда Книга.Open(Шаб+Кат); Ехсел.Range("C1").FormulaR1C1...
Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой...
// Переменная База - строка содержащая путь к базе 1С 7.7 // Возвращает переменную содержащую в себе...
НачалоПериода = ЖЗ.НачалоТекущегоПериода(); КонецПериода = ЖЗ.КонецТекущегоПериода(); ПериодСтрокой = ЖЗ.ОписательПериода(НачМес); //например "Январь 2002 г"
//Фиксируем область, Закрепим область, сверху 4 ячейки, слева 1 ТаблДокумент.ФиксацияСверху = 4; ТаблДокумент.ФиксацияСлева = 1; //Установить вид...
// Передать файл по FTP Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт Если ПутьФТП = Неопределено Тогда ТекПутьФТП = ПараметрыСеанса.FTPПуть; Иначе...
Функция Удаляет указанные файлы. УдалитьФайлы(<Путь>, <Маска>) Параметры: <Путь> (обязательный) Тип: Строка. Путь к удаляемым файлам. <Маска> (необязательный)...
Есть ли возможность поиска строки в текстовом файле по маске? К примеру ХХХХ-ХХХХ-ХХХХ-ХХХХ. RegExp = Новый COMОбъект("VBScript.RegExp");...
Код create function base36_to_base10 (@base36 char(6)) returns char(10) as begin if @base36 is null return null if...
ПарСумма — сумма, число Функция глРубКоп(ПарСумма) Экспорт Если Число(ПарСумма)=0 Тогда Возврат "руб. коп." КонецЕсли; Возврат ""+Цел(ПарСумма)+" руб....
Буду краток, делаем так: 1. Установить на сервер MSSQL. Краткая инструкция по установке есть в этом FAQ....
// Установим заголоков Название Конфигурации из синонима метаданных, // и чтобы быстро понимать в какой базе сидишь,...
Методы ДвижениеПриход и ДвижениеРасход, доступны только при проведении документа в предопределенной процедуре ОбработкаПроведения. ВыбратьСтроки(); //Переберем строки документа...
Метод ВыбратьДвиженияСОстатками инициирует выбор всех движении регистра в указанном интервале дат. До вызова данной процедуры может быть...
рег_оборот=создатьобъект("Регистр.Обороты"); рег_оборот.ИспользоватьПериод(ДатаГод(ТекущаяДата()),ДатаМесяц(ТекущаяДата())); рег_оборот.Итоги(Товар, Склад, Контрагент); Сообщить("Обороты Кол-во=" + рег_оборот.Количество + " Сумма=" + рег_оборот.Сумма);
Запрос=новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.ПометкаУдаления = ИСТИНА |";...