Режим = РежимДиалогаВопрос.ДаНетОтмена; Ответ = Вопрос("Выполнить?", Режим, 0); Если Ответ =КодВозвратаДиалога.Да Тогда Сообщить("Выполнено"); ИначеЕсли Ответ = КодВозвратаДиалога.Нет...
8.x
спКомп = СоздатьОбъект("СписокЗначений"); Попытка ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl"); ScrptCtrl.Language="vbscript"; ScrptCtrl.AddCode(" |Function GetComputers() | Set WinNT = GetObject(""WinNT:"") | WinNT.Filter =...
Можно на командной панели формы сделать Подменю Отбор и в Имени каждого пункта указать значение отбора, а...
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");...
//Получение макета и областей вывода Макет = ПолучитьМакет("Отчет"); ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой") ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");...
// функция ПолучитьТаблицуЧисленностейВТЗ() возвращает таблицу значений ТзВрем=ПолучитьТаблицуЧисленностейВТЗ(Организация, НачПериода,КонПериода); // теперь нужно вывести тыблицу значений в табличное поле...
&НаКлиенте Процедура ПоКнопкеНайти(Команда) // Вставить содержимое обработчика. Сообщить(НайтиКонтрагента("000000001")); КонецПроцедуры &НаСервере Функция НайтиКонтрагента(КодКонтрагента) Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента; КонрагентДляПоиска =...
Функция ПолучитьСИнетаКакСтроку(АдресП) соминет = Новый COMОбъект("MSXML2.XMLHTTP"); соминет.open ("GET", АдресП, Ложь); соминет.send(); Возврат соминет.responseText; КонецФункции
// Получает разность календарных дат указанного вида. В случае ошибки возвращает -1 Функция ПолучитьРазностьДат(рНачДата,рКонДата,рВидРазности="ДЕНЬ") Экспорт Если не...
Узнать последнюю строку можно следующими примерами: 1. Сообщить(appExcel.WorkSheets(1).UsedRange.Row); 2. метод определяет, когда закончились данные на листе: SpecialCells(11)...
Запрос=Новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | ХозрасчетныйОстаткиИОбороты.Счет, | ХозрасчетныйОстаткиИОбороты.Субконто1, | ХозрасчетныйОстаткиИОбороты.Субконто2, | ХозрасчетныйОстаткиИОбороты.Субконто3, | ХозрасчетныйОстаткиИОбороты.Организация, | ХозрасчетныйОстаткиИОбороты.СуммаОборот, |...
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогОткрытияФайла.Выбрать(); Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); Текст = "Файл: " + Файл.Имя; Текст =...
Используется модель последовательного доступа (работа осуществляется только с одним текущим узлом): Запись = Новый ЗаписьXML; //Путь к...
Функция СтрокаНаписанаПоРусски(Знач СтрокаПараметр) Экспорт СтрокаПараметр = СокрЛП(СтрокаПараметр); СписокДопустимыхЗначений = Новый СписокЗначений; СписокДопустимыхЗначений.Добавить(184); СписокДопустимыхЗначений.Добавить(168); СписокДопустимыхЗначений.Добавить(45); СписокДопустимыхЗначений.Добавить(46); СписокДопустимыхЗначений.Добавить(32); СписокДопустимыхЗначений.Добавить(48);...
Как вызвать стандартную проверку заполнения реквизитов? ПроверитьЗаполнение() Возвращаемое значение: Тип: Булево. Истина — ошибок не обнаружено, Ложь...
// Укажем период ДатаН = Дата(2008,1,1); ДатаК = Дата(2009,12,31); // В Список значений поместим перебором каждую дату...
Просто открыть: // Получить форму выбора справочника как подчиненную форме документа ФормаСписка = Справочники.Номенклатура.ПолучитьФормуСписка( , ЭтаФорма); //...
Необходимо чтобы в табличной части при попытке удалить строку, возникал вопрос "Вы уверены?" // в событии Перед...
// Пример от sergeante Фиксирует шапку при любых отборах. Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка =...
// Возвращает вид объекта по переданной ссылке - строку "Справочник", "Документ" и т.д. // Не обрабатываются точки...