Здравствуйте , стоит 7.7 конфигурация альфа-авто: Автозапчасти+автосервис.Проблема такая. Есть Приходные накладные в которых есть товар , цена сумма и тд. Так вот мне надо добавить Разницу , это ЦенаПрихода/ЦенуЗаказа.
В Приходной есть реквизит ДокОснование(ЗаказПоставщику, РасходнаяНакладная, ТоварныйЧек).
Пробовал вот так:
ДокОсн=ДокументОснование;
ВидОсн=ДокОсн.Вид();
тз = СоздатьОбъект("ТаблицаЗначений"); //сюда заказ выгружаем
Если ВидОсн="ЗаказПоставщику" тогда
ДокОсн.ВыгрузитьТабличнуюЧасть(тз);
КонецЕсли;  
Потом при выбори строк в приходной

Если тз.НайтиЗначение(Товар,НомСтр,Товар) = 1 Тогда
ЦенаЗак= тз.ПолучитьЗначение(НомСтр,"Цена");
КонецЕсли;

ошибка номер за приделами значения!
В чем ошибка или может можно как то по другому сделать?

перед поиском

НомСтр = 0;

> Разницу , это ЦенаПрихода/ЦенуЗаказа

это не разница, а отношение

> В Приходной есть реквизит ДокОснование(ЗаказПоставщику, РасходнаяНакладная, ТоварныйЧек)

три реквизита документа оснований ?

Не так выразился, отношение. Тип реквизита просто документ.  Но ввод на основании эти 3.

а теперь ещё раз и всё по-русски

НомСтр=0 стоит

тз.НайтиЗначение(Товар,НомСтр,"Товар")?

Хм недавно занимаюсь так что по "русски" врятли получится ,но как смогу=)Документ.ПриходнаяНакладная есть реквизит ДокументОснование тип реквизита документ. Там же где все реквизиты табличной части и шапки есть Ввод на основание, там галки стоят на основании чего и основание для чего, так вот там стоят галки на основании ЗаказПоставщику, РасходнаяНакладная, ТоварныйЧек.

Да не в кавычках дела просто суда не так копирнул ошибка Номер за приделами значения.
ВыбратьСтроки();

   НомСтр=0;    
   Пока ПолучитьСтроку()=1 Цикл    

 Если тз.НайтиЗначение(Товар,НомСтр,"Товар") = 1 Тогда
     Если НомСтр>0 Тогда
Кофициент = тз.ПолучитьЗначение(НомСтр,"Цена");
КонецЕсли;
КонецЕсли;

(9) НомСтр=0;  
Вынеси это в сам цикл, ты хоть воспользуйся синтаксис-помощьником, там описано, что будет, если свой "НомСтр" содержит какое либо число, отличное от нуля:)

и так пробовал не помогло

сделай без обхода строк

+ алгоритм гуано, в документе могут быть, к примеру 10 строк ли две (2) одинакового товару.
Твой поиск даст только всегда первый найден :)
У вас шо, нет партии поставки? :)

zak555 это как ? Мне надо  еще на печатную форму в приходной выводить.

ЧеловекДуши Есть регистр заказы поставщикам пробовал через найти движения документа тоже не получилось =) , есть так же реквизит партии в приходной

Пока ПолучитьСтроку()=1 Цикл    
 Если тз.НайтиЗначение(Товар,НомСтр,"Товар") = 1 Тогда
 Кофициент = тз.ПолучитьЗначение(НомСтр,"Цена");
 НомСтр=0;

+ (9) А это что?

Если НомСтр>0 Тогда
Кофициент = тз.ПолучитьЗначение(НомСтр,"Цена");
КонецЕсли;

зачем ты проверяешь на "НомСтр>0"? Оно всегда отлично от нуля :)

(14) Ну это ты загнул, читай две жёлтые книги по 1С и просветляйся :)

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

Он находил только некоторые позиции , а большинство не находил
вообще ..

(15) И каким ты образом ищешь движения документа ;) ?

Используй запросы, а именно, для тебя есть мастер запросов, для новичков помогает и для бывалых тоже :)

(18) весь код в топку, используй запросы :)

ЧеловекДуши ну про печатную форму я имел виду что в этом же цикле
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл   я вывожу все на печать по приходной. а если сделать другой цикл то как тогда я буду все вместе выводить ? или я опять фигню сморозил =))

+(18) ты хоть понимаешь, что записей по регистру может быть столько же, сколько строк в документе, а ты еще и цикл в цикле проходишь, т.е. по сути должно все дублироваться :)

(21)Ты сначала получи, то что хочешь, а потом уже думай про печатную форму :)
Я же сказал, используй мастер запросов и поймешь, как делать печатную форму.

Ну тз можно свернуть =))
Тогда вопрос как мне в запросе указать например что мне нужны детали именно из этого заказа ,заказов может быть несколько а приход 1.Я же запрос делаю с Даты по дату.

+(21) Ты вообще сколько времени программируешь на 1С?
Кем ты по специальности?
И в каких версиях 1С ты программировал? (уверенно)

а попробуй НомСтр=0 поставить прям перед самим НайтиЗначение

(24)Ты мастер запускал?

Занимаюсь месяца полтора раньше не программировал , по специальности информатик юрист =)), Мастером не пользовался так писал =)

+(24) Если в запросе указать условие "Текущийдокумент = твоему", то все побоку, будет обработан только твой документ :)

Что то вроде условие Док=ТекущийДокумент(); ?

(28)Тогда прочти сначала, про две жёлтые книги, про язык 1С, и с чем его едят. Запросы во второй книге.
Как тебя взяли на работу? :)... ептью... юрист-программист :DDDDDD
Куда катится мир :(
Учись

(30)Нет типо так

Док = Регистр.Твой.Текущийдокумент;
Условие(Док = НекТекДок);

Лучше через регистр остатки Товаров ?Так меня и не программистом взяли, я типо системный программирую еще и по судам шастаю 3 в 1 =)

+(32) НекТекДок - переменная, которая содержит ссылку на твой документ, по которому тебе нужно сделать отбор.
Даты в запросе тоже лучше указывать, это же 1С, её надо знать, логика в некоторых местах попросту отсутствует :)

+ Не забывай в запросе использовать функции, типо сумма, приход, расход

(33) нихера ты бабла рубишь...

(33)Лихо, сколько платят человеку - параходу?

+(35) сделаю (0) за 5000 руб.

В том том то и дел что не фига не рублю , это для опыта ,можно сказать ищу себя

ЧеловекДуши даже сказать стыдно =)

Я в правильном направлении вообще мыслю ?
ДокПрих=ТекущийДокумент();
Запрос=СоздатьОбъект("Запрос");
ТекстЗапроса=    "//{{ЗАПРОС
|Период с ДатаДокОсн по ДатаДокОсн;
|Тов=Регистр.ЗаказыПоставщикам.ЗаказПост.Товар;
|Док=Регистр.ЗаказыПоставщикам.ЗаказПост.ТекущийДокумент;
|Кол=Регистр.ЗаказыПоставщикам.ЗаказПост.Количество;
|Цена=Регистр.ЗаказыПоставщикам.ЗаказПост.Цена;
|Функция КолРасход=Расход(Кол);
|Группировка Тов без групп;
|Группировка Док;
|Условие(Док=ДокПрих);
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Сообщить("Не выполнился запрос");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1)=1 Цикл
  Пока Запрос.Группировка(2)=1 Цикл    
   ТоварЗак=Запрос.Тов;
   КодЗак=Запрос.Тов.Код;
       ЕткЗак=Запрос.Тов.Етк;
   ЦенаЗак=Запрос.Цена;
   КонецЦикла;
Заказ.НоваяСтрока();
Заказ.Товар=ТоварЗак;
Заказ.Код=КодЗак;
Заказ.ЕТК=ЕткЗак;
Заказ.Цена=ЦенаЗак;        
КонецЦикла;

(31) логично. "Юрист _минус_ программист"

Блин беда. Не могу задать условие чтобы запрос искал детали именно по этой приходной накладной .
Пробовал
Условие(Док = ДокОснование); не чего не находит
ДокОснование реквизит шапки приходной.
Условие(Док =ПоЗаказу);
ПоЗаказу- Реквизит табличной части в нем дата и номер заказ.
Выдает только несколько деталей из прихода на пример 10 а их в приходной 60...

Получается так что детали только с одного заказа , а в приходной могут быть детали с разных заказов ...

(41) Не котируется.
Надо: "Юрист + Бетонщик - Программист"

Дезинформировали вы меня , все оказалось гораздо проще и запрос писать не надо...  
ПоЗаказу.ВыгрузитьТабличнуюЧасть(ТЗ);
НомСтр = 0;
Если ТЗ.НайтиЗначение(Товар,НомСтр,"Товар") = 1 Тогда
ЦенаЗак= ТЗ.ПолучитьЗначение(НомСтр,"Цена");
Иначе
ЦенаЗак = 0;
КонецЕсли;