//функция устанавливает новое значение реквизита документа или справочника и задаёт вопрос, если новое значение не соответствует предыдущему...
7.x
7.x
В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Код для 7 версии, при использовании в 8-ой — заменить E=СоздатьОбъект("Excel.Application"); на E=Новый COMОбъект("Excel.Application"); Функция глОткрытьФайл(Маска="") Экспорт...
// Перебор всех видов расчета Для Ном=1 По Метаданные.ВидРасчета() Цикл кфгВР = Метаданные.ВидРасчета(Ном); ВР = ВидРасчета.ПолучитьАтрибут(кфгВР.Идентификатор); КонецЦикла;...
жз = СоздатьОбъект("ЖурналРасчетов.Зарплата"); // Идентификатор ЖЗ Сообщить(жз.Вид()); // Зарплата_2 // Синоним ЖЗ Сообщить(жз.ПредставлениеВида()); // Журнал заработной платы
Есть сотрудник 1946 года рождения. Программа не пропускает этот год, а выдает 2046 год. И, соответствено, выдает...
Для поиска необходимого значения воспользуемся функцией НайтиСтроки(). &НаСервере Процедура НайтиТовар(СправочникНоменклатураСсылка) Перем Отбор, НайденноеЗначение, Сч; Отбор = Новый...
// Присвоить значение переменной по ее имени. // в глоб.модуль: Функция Присвоить(Чему,Что) Экспорт Чему = Что; Возврат...
Порядок сортировки, установленный для базы данных, не совпадает с системным Причина ошибки – несоответствие системных настроек и...
При разработке отчетов или обработок рано или поздно приходится сталкиваться с необходимостью определения имени локального диска, сменного...
Для включения интерактивной помощи в приложение на платформе 1С версии 7.7 достаточно добавить на форму кнопку вызова...
// Пример 1 РегТовары = СоздатьОбъект("Регистр.Товары"); РегТовары.ВыбратьИтоги(); Пока РегТовары.ПолучитьИтог()=1 Цикл Сообщить("Товар " + Строка(РегТовары.Товар) + " на...
// Если передено число - то 1, иначе 0 Функция ЭтоЧисло(Знач ТекСтр) ТекСтр = СокрЛП(ТекСтр); ТекСтр =...
&НаКлиенте Процедура ПоКнопкеНайти(Команда) // Вставить содержимое обработчика. Сообщить(НайтиКонтрагента("000000001")); КонецПроцедуры &НаСервере Функция НайтиКонтрагента(КодКонтрагента) Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента; КонрагентДляПоиска =...
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...
Шелл=СоздатьОбъект("Shell.Application"); Место=Шелл.NameSpace(Путь); Сообщить(Место.GetDetailsOf(Место.ParseName(Файл),26)); А если картинка на интерне сайте, и нужно узнать ее высоту, то: ИЕ=CreateObject("InternetExplorer.Application"); ИЕ.Navigate("Aboutblank");...
//Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается! //Макрос пишет на листе Добрый...
Перем ИмяПути,ИмяФайла; Перем xmlParser; //пример чтения xml файла. Функция УстановитьКомпоненту() Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда Сообщить("Не...
Для Ном=1 По Метаданные.ГруппаРасчета() Цикл кфгГруппаРасч = Метаданные.ГруппаРасчета(Ном); //недоработка фирмы 1С. По имени группы расчета нельзя получить...
сСотр_2 = СоздатьОбъект("Справочник.Сотрудники"); // Метод Выбрать вызывает диалог для выбора элемента справочника // Если сотрудник не выбран...