Здравствуйте. Мне нужно сделать механизм распределения доп.расходов в документе "ПоступлениеДопРасходов". Идея такая: Добавить в документ «Поступление доп. расходов» процедуру заполняющую колонку «Доп. Расходы (сумма)» в табличной части документа пропорционально доле суммы товара. Процедура вызывается по кнопке «Распределить».  расположенной над табличной частью. Т.е Тупо нужно, чтобы "сумма расхода" сама разбрасывалась по строкам ТЧ Товары документа. Начал вроде бодро, но сейчас зашел в тупик. Мой код:

Функция Распределить() ЭКСПОРТ

   ТЗ = Новый ТаблицаЗначений;
   ТЗ = ЭтотОбъект.Товары.Выгрузить();
   СуммаКРаспределению = ЭтотОбъект.Сумма;
   
   
   //получим максимальный элемент
   
   ТЗ.Сортировать("СуммаТовара Убыв");
   МаксЭл = ТЗ[0];
   
   //Получим доли к распределнию
   
   ОбщаяСуммаТовара = ТЗ.Итог("СуммаТовара");
   
   Для Каждого СтрокаТаблицыЗначений ИЗ ТЗ Цикл
       
           ДоляКРаспределнию = (СтрокаТаблицыЗначений.СуммаТовара / ОбщаяСуммаТовара);
         СуммаРаспределенная = СуммаКРаспределению * ДоляКРаспределнию;
         СтрокаТаблицыЗначений.Сумма = СуммаРаспределенная;
         СуммаРаспределеннаяИтог = ТЗ.Итог("Сумма");
         
         //получим разницу, если сумма делится с остатком, и завяжем её на максимальный элемент ТЗ
         
         Если СуммаКРаспределению > СуммаРаспределеннаяИтог Тогда
             
             Разница = СуммаКРаспределению - СуммаРаспределенная;
             ТЗ[0].Сумма = ТЗ[0].Сумма + Разница;
             
         КонецЕсли;
   КонецЦикла;
   
   
       
       
КонецФункции // Распредлить()


Заранее огромное всем спасибо за помощь.

Нифига не понял. А в чем затык то?

Ставлю точку останова: ТЗ = ЭтотОбъект.Товары.Выгрузить(); отладчик говорит Ошибка в выражении, то же самое и в ТЗ.Сортировать("СуммаТовара Убыв");МаксЭл = ТЗ[0];

Сумма не разбрасывается. При нажатии визуально вообще ничего не происходит. Вот и туплю, пытаясь доработать эту штуку...

И при всём том "СтрокаТаблицыЗначений" корректно высчитывается...

Ставлю точку останова: ТЗ = ЭтотОбъект.Товары.Выгрузить(); отладчик говорит Ошибка в выражении,

Что простите отладчик говорит? И где?

(4) ЭтотОбъект.Товары.Выгрузить();
   ТЗ.Сортировать("СуммаТовара Убыв");
   МаксЭл = ТЗ[0];
   ТЗ[0].Сумма = ТЗ[0].Сумма + Разница;


Везде "ошибка в выражении".

а в каком контексте ты всё это делаешь?
Сам ЭтотОбъект - про него отладчик что говорит?

(5) ошибка в выражении у тебя в табло появляется? Так там и будет ошибка в выражении, он показывает только то что можно вычислить

(6) ошибка в выражении )))

(8) теперь отвечай на первый вопрос...

(9) А ТС не я )))

(9) Это я так троллю по чуть-чуть

(6) В контексте формы.

ЭтотОбъект    Поступление доп. расходов ССН00000001 от 06.05.2007 16:00:00    ДокументОбъект.ПоступлениеДопРасходов        
ВалютаДокумента    USD    СправочникСсылка.Валюты        
ВерсияДанных    "AAAAEQAAAAA="    Строка        
ВидОперации    услуга сторонней организации    ПеречислениеСсылка.ВидыОперацийПоступлениеДопРасходов        
Дата    06.05.2007 16:00:00    Дата        
ДатаВходящегоДокумента    01.01.0001 0:00:00    Дата        
Движения    КоллекцияДвижений    КоллекцияДвижений        
ДоговорКонтрагента    Т1    СправочникСсылка.ДоговорыКонтрагентов        
ДокументыРасчетовСКонтрагентом    ДокументТабличнаяЧасть.ПоступлениеДопРасходов.ДокументыРасчетовСКонтрагентом    ДокументТабличнаяЧасть.ПоступлениеДопРасходов.ДокументыРасчетовСКонтрагентом        
ДополнительныеСвойства    Структура    Структура        
Комментарий    ""    Строка        
Контрагент    Вега-транс    СправочникСсылка.Контрагенты        
КратностьВзаиморасчетов    1    Число        
КурсВзаиморасчетов    25,7691    Число        
НДСВключенВСтоимость    Ложь    Булево        
Номер    "ССН00000001"    Строка        
НомерВходящегоДокумента    ""    Строка        
ОбменДанными    ПараметрыОбменаДанными    ПараметрыОбменаДанными        
Организация    Cтройснаб    СправочникСсылка.Организации        
Ответственный    Федоров Борис Михайлович    СправочникСсылка.Пользователи        
ОтражатьВБухгалтерскомУчете    Истина    Булево        
ОтражатьВНалоговомУчете    Истина    Булево        
ОтражатьВУправленческомУчете    Истина    Булево        
Подразделение    Отдел оптовой продажи    СправочникСсылка.Подразделения        
ПометкаУдаления    Ложь    Булево        
ПринадлежностьПоследовательностям    ФиксированнаяКоллекция    ФиксированнаяКоллекция        
Проведен    Истина    Булево        
Сделка        Неопределено        
Содержание    ""    Строка        
СпособРаспределения    По сумме    ПеречислениеСсылка.СпособыРаспределенияДопРасходов        
Ссылка    Поступление доп. расходов ССН00000001 от 06.05.2007 16:00:00    ДокументСсылка.ПоступлениеДопРасходов        
СтавкаНДС    18%    ПеречислениеСсылка.СтавкиНДС        
Сумма    60    Число        
СуммаВключаетНДС    Истина    Булево        
СуммаДокумента    660    Число        
СуммаНДС    9,15    Число        
Товары    ДокументТабличнаяЧасть.ПоступлениеДопРасходов.Товары    ДокументТабличнаяЧасть.ПоступлениеДопРасходов.Товары        
УчитыватьНДС    Истина    Булево        
ЭтотОбъект    Поступление доп. расходов ССН00000001 от 06.05.2007 16:00:00    ДокументОбъект.ПоступлениеДопРасходов        
мВалютаРегламентированногоУчета    руб.    СправочникСсылка.Валюты        
мСтруктураПараметровВзаиморасчетов    Структура    Структура        
мСтруктураПараметровДляПолученияДоговора    Структура    Структура

(12) Достаточно было верхней строки

ЭтотОбъект.Товары.Выгрузить() что в табло показывает? Сколько строк у этой таблицы и правильно ли она заполнена?

странно...

Да и еще вопрос:

СуммаКРаспределению = ЭтотОбъект.Сумма;
   
ОбщаяСуммаТовара = ТЗ.Итог("СуммаТовара");


Большая в них разница?

(15) В основном да.Обычно сумма доп.расхода 2000р, а товаров временами на 100 000 и выше.

Так то даже не ясно какую сумму ты разбрасываешь... Это дополнительный реквизит, или ты где то ее указываешь? Или все таки эта итоговая сумма по строкам ТЧ Товары?

СТОП

А на кой болт ты ТЗ правишь? Какая ТЧ должна быть заполнена?

(17) ОбщаяСуммаТовара = ТЗ.Итог("СуммаТовара") = итоговая сумма товара по ТЧ Товары

СуммаКРаспределению = ЭтотОбъект.Сумма - реквизит документа, значение либо вводится вручную, либо наследуется из документа-основания

(19) Должна быть заполнена ТЧ Товары.

Ну так ты и заполняй ТЧ товары, а не переменную ТЗ

(22) Поподробнее можно, пожалуйста? Я в 1С новичок ещё тот, блин)))

Оооо, ну тогда книжки почитай сначала, определись, что такое прикладной объект и унивесальная коллекция значений, потом уже пиши что нибудь

Хотя бы в конце фееричного своего бреда добавь:

Товары.Загрузить(ТЧ);

(25) Я бы хотел знать мнение бывалого: как бы ты сам выполнил такую задачу? Мне бы хоть какую-то мыслю)))

(25) Спасибо тебе за всё. Я тебе очень благодарен за помощь

(27) Спасибо не булькает ;)

Наверное, географически мы далеко, а то мне тут литр блэка подогнали, а я не пью)))

(29) Отправляй почтой

(30) Не доедет. Почтовые голуби всё выжрут по дороге и чая туда щальют:)

Если будешь когда-нибудь в городе герое колыбели русского флота Воронеже - обращайся:)

(31) Вот млин
(32) Это наврят ли