Михрутка @ Сегодня, 12:01 ,
Добрый день! А "дополнительные свойства объектов" для каждой номенклатуры не подойдут Вам? Я так реализовывал когда коэффициенты пересчетов для номенклатуры (для рос. 1с 8:бухгалтерии)

tomol22 @ Сегодня, 12:36 ,
Ось є такі посилання: Типовые операции і також типовые операции 2

tomol22 @ Сегодня, 11:07 ,
Тобто ви хочите,щоб у циклі Вам пропонувало заповнювати переметри проводки?. Але здається, що для окремої проводки потрібно вводити параметри заново. Схиляюся до того, що тільки програмування вирішить Вашу проблему. Можливо і помиляюся, але іншого виходу не бачу

F.U.T.U. @ Сегодня, 11:41 ,
Добрый день! Измените состав документов для этого журнала. Оставьте в нем счёт-фактуру. А остальным докам назначьте другой журнал

SemenYU @ Сегодня, 19:11 ,
Понятно,так сразу не скажу надо глянуть. В УТ в печати прайса,есть отборы.

denis84 @ Сегодня, 19:22 ,
В УТ есть такое, может натолкнет Вас на мысль:

Функция ПолучитьСписокВидовСравненияПоТипу(ОпТипов) Экспорт
    
    ТаблицаДоступныхЗначений = Новый ТаблицаЗначений;
    ТаблицаДоступныхЗначений.Колонки.Добавить("ВидСравнения");
    ТаблицаДоступныхЗначений.Колонки.Добавить("ЧислоВида");
    
    Для каждого ТипОписания Из ОпТипов.Типы() Цикл
    
        НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
        НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.Равно;
        НоваяСтрокаТаблицы.ЧислоВида = 1;
        
        НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
        НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.НеРавно;
        НоваяСтрокаТаблицы.ЧислоВида = 1;
        
        НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
        НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.ВСписке;
        НоваяСтрокаТаблицы.ЧислоВида = 1;
        
        НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
        НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.НеВСписке;
        НоваяСтрокаТаблицы.ЧислоВида = 1;

        Если Справочники.ТипВсеСсылки().СодержитТип(ТипОписания) И Метаданные.НайтиПоТипу(ТипОписания).Иерархический Тогда
            
            НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
            НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.ВСпискеПоИерархии;
            НоваяСтрокаТаблицы.ЧислоВида = 1;
            
            НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
            НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии;
            НоваяСтрокаТаблицы.ЧислоВида = 1;
            
            НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
            НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.ВИерархии;
            НоваяСтрокаТаблицы.ЧислоВида = 1;
            
            НоваяСтрокаТаблицы = ТаблицаДоступныхЗначений.Добавить();
            НоваяСтрокаТаблицы.ВидСравнения = ВидСравнения.НеВИерархии;
            НоваяСтрокаТаблицы.ЧислоВида = 1;
КонецЕсли;
конецфункции

ZUBR @ Сегодня, 2:27 ,
Добрый день! Вот пример:

Мистер =СоздатьОбъект("Справочник.Контрагенты");    
Изм=0;
Мистер.НайтиПоКоду(Контр.Код,0);       //контр - реквизит на форме
КК = Мистер.ТекущийЭлемент();

Если  ВРЕГ(СокрЛП(КК.ПочтовыйАдрес))<>ВРЕГ(СокрЛП(Адрес)) Тогда
    изм = 0;
    сообщить(изм);
Иначе  
    Изм=1;
    сообщить(изм);
КонецЕсли;

ZUBR @ Вчера, 23:33 ,
Добрый день! Вот пример как надо написать:

Процедура Изменить()
    Расх=СоздатьОбъект("Документ.РасходнаяНакладная");
    Расх.НайтиДокумент(СсылкаДокумент);
    Расх.Получил = "Получил товар 26/05/2020 от водителя Иванова П.С.";
    Расх.Записать();
КонецПроцедуры

ZUBR @ Сегодня, 1:20 ,
Доброе утро! Вот ссылка https://forum.mista.ru/topic.php?id=153547#message_2. Там в "показать", есть активизировать с параметром "-1"

denis84 @ Вчера, 22:28 ,
Добрый день!

Процедура ПоказатьОбъект(Объект,конт)
    Если Объект = "" Тогда
    Иначе
    ОткрытьФорму(Объект,конт);
    КонецЕсли;
КонецПроцедуры

Процедура ПоказатьДок()
Перем конт;
ДокументЖурнала = Доверенность.ТекущийДокумент();
ПоказатьОбъект("Журнал.Доверенности",конт);
конт.УстановитьИнтервал(ДокументЖурнала.Датадок,ДокументЖурнала.Датадок, 0);
Конт.АктивизироватьОбъект(ДокументЖурнала);
конецпроцедуры

Процедура ПоказатьДок() установлена на кнопке в справочнике. Код рабочий.

4andriy @ Сегодня, 21:03 ,
Добрый вечер! Может Активизировать(""); надо использовать?

denis84 @ Сегодня, 22:19 ,

ДокументЖурнала = Конт.ТекущийДокумент();
ОткрытьФорму("Журнал.ЖурналОбщий.ФормаСписка",ДокументЖурнала);

Доброе утро!

Вот как попробовал решить Вашу задачу.
Добавил реквизит "код". Вынес его на форму. На форме в свойствах "кода" установил "путьКДанным" Объект.Контрагент.Код и при выборе контрагента у меня заполняется код.

4andriy @ Вчера, 23:18 ,
Доброе утро! Вот такой у меня есть код, где я ищу строку в наименовании ТМЦ:

    Если (Найти(СокрЛП(Запр.ТМЦ.Наименование), СокрЛП(ЧтоИщем)) <> 0) Тогда

Bon Jovi @ Вчера, 16:06 ,
Добрый день! Если правильно понял Вас, то вот такие варианты:

Вариант 1:

// Получить выборку по указанному контрагенту. 

Выборка = Справочники.ЗначенияХарактеристики.Выбрать( , Характеристика); 

Пока Выборка.Следующий() Цикл 

    УдаляемоеЗначение = Выборка.Значение.ПолучитьОбъект();
    УдаляемоеЗначение.УстановитьПометкуУдаления(Истина);
    УдаляемоеЗначение.Записать(); 

КонецЦикла; 

Вариант 2:

Запрос = Новый Запрос; 

Запрос.Текст = "ВЫБРАТЬ 

    |    ЗначенияХарактеристики.Ссылка 

    |ИЗ 

    |    Справочник.ЗначенияХарактеристики КАК ЗначенияХарактеристики 

    |ГДЕ 

    |    ЗначенияХарактеристики.Владелец = &Владелец"; 

Запрос.УстановитьПараметр("Владелец", Характеристика); 

Результат = Запрос.Выполнить(); 

Выборка = Результат.Выбрать(); 

Пока Выборка.Следующий() Цикл 

    УдаляемоеЗначение = Выборка.Значение.ПолучитьОбъект();
    УдаляемоеЗначение.УстановитьПометкуУдаления(Истина);
    УдаляемоеЗначение.Записать(); 

КонецЦикла;

ZUBR @ Сегодня, 0:17 ,
Если я правильно понял, то нужно кликнуть на реквизит правой кнопкой мыши и в выпадающем списке найти " поместить" и выбрать нужный слой. И этот реквизит всегда будет находится в том слое.

ZUBR @ Сегодня, 14:00 ,

SHIFT+F4.Сработает, если Вы находитесь на данном реквизите в режиме выбора


Программно,если реквизит "перечисление" в шапке:
рядом поставить кнопку, в свойствах кнопки - дополнительно - формула : Перечисление(как у Вас называется реквизит) = 0.

4andriy @ Сегодня, 21:15 ,
Ок. Значит все получилось?

4andriy @ Сегодня, 20:48 ,
в справочнике контрагентов после счет.Записать(); Написать быстдоступ=счет.ТекущийДокумент():- это будет ссылка в справочнике на ваш созданный документ счёт. Ссылка появится только записи самого документа. Завтра попробую у себя,если у Вас не получится,то сообщу результат. Счёт через создать объект создаёте?

Maxymoff @ Сегодня, 11:26 ,
Вот так выглядит обработка объединения конфигурации:

Объединение конфигурации. Простое замещание файлов - это не правильно! Объединение конфигурации изменить сами объекты конфигурации и не зацепит Ваши данные(накладные). Можно пока. Добавить проверки на заполненные поля и не сохранять карточку номенклатуры пока не пройдут все проверки.

Talkman @ Сегодня, 16:17 ,
Попробуйте в печатной форме отжать кнопку "Только просмотр", далее: Таблица - Убрать перевод страницы.
И масштаб нужно уменьшить - например до 75% (это в Файл-Параметры страницы).

Лишних строк в секциях нет?

ZUBR @ Вчера, 23:00 ,
Устанавливайте КЗП на дату например 01/01/20 = 0,115. Дальше например на 01/02/20 =0,2. А в отчетах(документах) получаете на нужную Вам дату значение этого "КЗП". Для каждого нового значения "КЗП" указываете новую дату, не в коем случае не изменяете старую дату, т.к. потеряете старые значения. Теперь понятно?

SemenYU @ Вчера, 19:12 ,
Добрый день! У меня есть такой пример. Есть ТЧ в обработке в которой, есть реквизит "отметка и "кво". и в зависимости от принимаемых значений строки зеленые или красные

//эта процедура установленна на таблице при событии "ПриПолученииДанных"
Процедура СтрокиДокументаПриПолученииДанных(Элемент, ОформленияСтрок)
    Если Элемент.ТекущаяСтрока["Отметка"] = Истина Тогда
        Элемент.ЦветФонаВыделения = Новый Цвет(46, 215, 60);
    Иначе
        Если ((Элемент.ТекущаяСтрока["Отметка"] = Ложь) И (Элемент.ТекущаяСтрока["Кво"] = 0)) Тогда
            Элемент.ЦветФонаВыделения     = Новый Цвет(255, 255, 255);
        ИначеЕсли ((Элемент.ТекущаяСтрока["Отметка"] = Ложь) И ((Элемент.ТекущаяСтрока["Кво"] <> 0) И (Элемент.ТекущаяСтрока["Кво"] <> Элемент.ТекущаяСтрока["КвоДокумент"]))) Тогда
            Элемент.ЦветФонаВыделения = Новый Цвет(255, 131, 131);
        КонецЕсли;
        //Элемент.ЦветФонаВыделения     = Новый Цвет(255, 255, 255);
    КонецЕсли;    
КонецПроцедуры

KriAn @ Сегодня, 13:36 ,
Добрый день! Документ "Поступление" делает движения по регистрам связанными с контрагентами. Вот есть видео:



Возможно Вам поможет ответить на Ваши вопросы.

Вопрос закрыт. Обновили платформу.

bizisoft @ Сегодня, 0:19 ,
Доброе утро! Все можно делать, по крайней мере у меня в 1С8: УТП получалось. Вот пример создания контрагентов. Подключение по ОЛЕ к 1С:7.7

Процедура ЗагрузитьКонтрагента()
СпрОЛЕ = V77.CreateObject("Справочник.Контрагенты");
СпрОЛЕ.ВыбратьЭлементы();
Пока СпрОЛЕ.ПолучитьЭлемент()=1 Цикл
Если СпрОле.ЭтоГруппа() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = СпрОле.Код;
Группа.Наименование = СпрОле.Наименование;
Группа.Записать();
КонецЕсли;

ЭлементПоиска = Справочники.Контрагенты.НайтиПоКоду(СпрОЛЕ.Код);
Если ЭлементПоиска.Пустая() Тогда
НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент();
//НовыйЭлемент.Родитель = Группа.Ссылка;
//НовыйЭлемент.НоменклатурнаяГруппа = СпрОЛЕ.Наименование;
НовыйЭлемент.Код = СпрОЛЕ.Код;
сообщить(СпрОЛЕ.Код);
НовыйЭлемент.Наименование = СпрОЛЕ.Наименование;
НовыйЭлемент.НаименованиеПолное = СпрОЛЕ.ПолнНаименование;
НовыйЭлемент.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры

denis84 @ Сегодня, 8:21 ,
Вот пример по ТМЦ:

СпрОЛЕ = V77.CreateObject("Справочник.ТМЦ");
СпрОЛЕ.ВыбратьЭлементы();
Пока СпрОЛЕ.ПолучитьЭлемент()=1 Цикл
Если СпрОле.ЭтоГруппа() Тогда
Группа = Справочники.Номенклатура.НайтиПоКоду(СпрОЛЕ.Код);
Если Группа.Пустая() Тогда
Группа = Справочники.Номенклатура.СоздатьГруппу();
Группа.Код = СпрОле.Код;
Группа.Наименование = СпрОле.Наименование;
Группа.Записать();
КонецЕсли;
КонецЕсли;

ЭлементПоиска = Справочники.Номенклатура.НайтиПоКоду(СпрОЛЕ.Код);
Если ЭлементПоиска.Пустая() Тогда
НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
НовыйЭлемент.Родитель = Группа.Ссылка;
НовыйЭлемент.НоменклатурнаяГруппа = СпрОЛЕ.Наименование;
НовыйЭлемент.Код = СпрОЛЕ.Код;
сообщить(СпрОЛЕ.Код);
НовыйЭлемент.Наименование = СпрОЛЕ.Наименование;
НовыйЭлемент.НаименованиеПолное = СпрОЛЕ.ПолнНаименование;
НовыйЭлемент.Записать();
КонецЕсли;
КонецЦикла;