Автоматичекое заполнение поля

[SERG30RUS]

antoneus, все таки нет! Бабулька кричит что ей нужен дубляж информации в документе ВыставитьСЧЕТ и 1)чтобы он автоматически писался при выборе клиента и чтобы она могла еще что-то дописывать.

в итоге для решения сделал процедуру , но все равно не идет

&НаКлиенте
Процедура КлиентПриИзменении(Элемент)
СтрокаТ = Элементы.ВсеРеквизитыСтрокой.ТекущиеДанные;
НужныйРеквизит = Новый Структура(ВсеРеквизитыСтрокой);
РеквизитОбъекта = ПолучитьРеквизитыОбъекта(СтрокаТ.Клиент,НужныйРеквизит);
СтрокаТ.ВсеРеквизиты = РеквизитОбъекта.ВсеРеквизитыСтрокой;   
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьРеквизитОбъекта(Объект, знач Реквизиты); 
   ЗаполнитьЗначенияСвойств(Реквизиты,Объект);                     
   Возврат Реквизиты;
КонецФункции         

Но ругается на  {Документ.ВыписатьСчет.Форма.ФормаДокумента.Форма(33,34)}: Переменная не определена (ВсеРеквизитыСтрокой)
НужныйРеквизит = Новый Структура(<<?>>ВсеРеквизитыСтрокой); (Проверка: Тонкий клиент)
Но указал же все верно...нужный реквизит - ВсеРеквизитыСтрокой
 

[antoneus]

Ну раз бабулька... Тогда нужны кавычки.

Код Выделить Развернуть

НужныйРеквизит = Новый Структура("ВсеРеквизитыСтрокой");

[SERG30RUS]

    Благодарю, но в режиме отладки ругается на это : Поле объекта не обнаружено (ТекущиеДанные)
{Документ.ВыписатьСчет.Форма.ФормаДокумента.Форма(32)}:СтрокаТ = Элементы.ВсеРеквизитыСтрокой.ТекущиеДанные;

[antoneus]

То-то я и смотрю откуда там вдруг список появился...

Код Выделить Развернуть

&НаКлиенте
Процедура КлиентПриИзменении(Элемент)
    Объект.ВсеРеквизиты = ПолучитьРеквизитОбъекта(Объект.Клиент, Новый Структура("ВсеРеквизитыСтрокой"))
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьРеквизитОбъекта(Объект, знач Реквизиты);
   ЗаполнитьЗначенияСвойств(Реквизиты,Объект);                     
   Возврат Реквизиты;
КонецФункции

[SERG30RUS]

antoneus, спасибо- все заработало..но теперь при выборе клиента в поле Все реквизиты - заполняется одно слово "Структура" ))

[antoneus]

тороплюсь)

Код Выделить Развернуть

Объект.ВсеРеквизиты = ПолучитьРеквизитОбъекта(Объект.Клиент, Новый Структура("ВсеРеквизитыСтрокой")).ВсеРеквизитыСтрокой

[SERG30RUS]

antoneus, я благодарю Вас...все заработало!!! Извините что Вас отвлек, но бабулька будет счастлива!