Иногда возникает ситуация, когда необходимо очистить базу от документов, это либо открытие нового периода с чистой базой,...
7.x
7.x
КолВо = 1; Если ВвестиЧисло(КолВо, "Введите количество", 10, 2) Tогда // обработка введенного количество КонецЕсли; Если ВвестиЧисло(Ном,...
Ex = Новый COMObject("Excel.Application"); Ex.Workbooks.Open(Путь); Ex.Visible = 1; ТекЛист=Ex.WorkSheets(1); Для Ячейка = 1 по 400 цикл Если...
Справ=СоздатьОбъект("Справочник.Задания"); Справ2=СоздатьОбъект("Справочник.Задания"); Справ.ИспользоватьВладельца(Цель); Справ2.ИспользоватьВладельца(Источник); Справ.ИспользоватьДату(НаДату); Справ2.ИспользоватьДату(НаДату); Справ2.ВыбратьЭлементы(); Пока Справ2.ПолучитьЭлемент()>0 Цикл Справ.Новый(); Справ.Записать(); МетаСправочник=Метаданные.Справочник(Справ.Вид()); Для Счетчик=1 По МетаСправочник.Реквизит()...
В 8-ых версий нет встроенной функции получения каталога базы данных, так напишем ее, //Получить представление информационной базы...
Данный метод работает аналогично методу Остаток, однако здесь могут быть заданы не все значения измерений, а только...
Рассчитать все регистры с установленным флагом временного расчета на конец события. (на конец даты или на момент...
//проуедура всем контрагентам мозжает подчиненный докогвор "Дополнительный" Спр=СоздатьОбъект("Справочник.Контрагенты"); Попытка дог=СоздатьОбъект("Справочник.Договоры"); исключение Предупреждение("В конфигурации нет справочника ДОГОВОРЫ"); возврат;...
Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истине function dataload() { var v8=new ActiveXObject("V81.COMConnector");...
Объяснить мне сразу трудно — поэтому давайте "на пальцах" Свежий простой пример : вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";"...
Процедура Сформировать(ДискДляЗаписи="E:\",АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект("MSScriptControl.ScriptControl"); scr.language="javascript"; shell=СоздатьОбъект("Shell.Application"); scr.AddObject("Shell",shell); ИмяСлужбы="ImapiService"; Если Shell.CanStartStopService(ИмяСлужбы)=0 Тогда Предупреждение("Вам недозволено записывать диски СД!",5);...
// Посчитаем все начисления текущего сотрудника за январь: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон); Пока ЖЗ.ПолучитьЗапись()=1...
//Открыть отчет в новом окне можно, для этого надо добавить решетку: РасположениеФайла(Путь,Файл); ОткрытьФорму("Отчет#", Параметр,Путь+Файл);
Варианты решения проблемы "Не открывается предварительный просмотр": 1. Нет принтера — нет предварительного просмотра. Попробуй переустановить принтеры....
Подскажите с сумм, превышающих предельную величину базы (415000,00) для начисления страховых взносов и с компенсации за неиспользованный...
Нужно из строки ИНН 1111111111 ИП Петров А.А. получить только ИП Петров А.А. Функция УбратьИНН(НаименованиеСИННом) RegExp=Новый COMОбъект("VBScript.RegExp");...
Попытка ЗагрузитьВнешнююКомпоненту("scanopos.dll") Исключение Сообщить("Ошибка загрузки внешней компоненты!"); КонецПопытки; Попытка // Получить объект компоненты. Объект = Новый("AddIn.Scanner"); Исключение...
Режим = РежимДиалогаВопрос.ДаНетОтмена; Ответ = Вопрос("Выполнить?", Режим, 0); Если Ответ =КодВозвратаДиалога.Да Тогда Сообщить("Выполнено"); ИначеЕсли Ответ = КодВозвратаДиалога.Нет...
Примеры кода для 7 версии, но будут работать и в 8-ой Функция мРазнПреобразоватьСтрокуСБольшимиБуквами(ИсходнаяСтрока) Экспорт СтрокаВозврата = Сред(ИсходнаяСтрока,...
Для 8.1 : 1. Список баз 8.1 можно сохранять в файл.Для этого правой кнопкой мыши по корневому...