"Почемуто значение цены берет с рабочей даты, а я вроде как указываю по дате документа Цены.ИспользоватьДату(Док.ДатаДок)<br>Помогите разобраться<br><br><br>Процедура Сформировать() <br> СуммаОбщПоДок=0;<br> СуммаОбщПоСпр=0; <br> РазницаОбщ=0; <br> Таблица=СоздатьОбъект("Таблица");<br> Таблица.ИсходнаяТаблица("Отчет");<br> Док=СоздатьОбъект("Документ");<br> Док.ИспользоватьЖурнал("РасходныеНакладные");<br> Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода); <br> ПечКонтрагент="По контрагенту "+ВыбКонтрагенты.ПолнНаименование;<br> Таблица.ВывестиСекцию("шапка");<br> Пока Док.ПолучитьДокумент()=1 Цикл<br> Если Док.Контрагент=ВыбКонтрагенты Тогда <br> номердок= Док.НомерДок;<br> Док.ВыбратьСтроки(); <br> СуммаПоДок=0;<br> СуммаПоСправочнику=0;<br> Пока Док.ПолучитьСтроку()=1 Цикл<br> Цены=СоздатьОбъект("Справочник.Цены");<br> Цены.ИспользоватьДату(Док.ДатаДок);<br> Цены.ИспользоватьВладельца(Док.Товар.ТекущийЭлемент());<br> ТипЦены= Док.КатегорияЦен;<br> Цены.НайтиПоРеквизиту("КатегорияЦены",ТипЦены,0); <br> СуммаПоСправочнику=СуммаПоСправочнику+(Док.Количество*Цены.цена); <br> СуммаПоДок=СуммаПоДок+(Док.Количество*Док.ЦенаСНДС); <br> Разница=СуммаПоСправочнику-СуммаПоДок;<br> РазницаПроц=Окр(СуммаПоСправочнику/СуммаПоДок*100-100,2,1);<br> КонецЦикла;<br> СуммаОбщПоДок=СуммаОбщПоДок+СуммаПоДок;<br> СуммаОбщПоСпр=СуммаОбщПоСпр+СуммаПоСправочнику; <br> РазницаОбщ=РазницаОбщ+Разница;<br> Таблица.ВывестиСекцию("Документ");<br> КонецЕсли;<br>КонецЦикла; <br>РазницаОбщПроц=Окр(СуммаОбщПоСпр/СуммаОбщПоДок*100-100,2,1);<br> Таблица.ВывестиСекцию("Итоги");<br> Таблица.Показать("Отчет"); <br>КонецПроцедуры<br>"
Сообщений: 289
Сообщений: 8351
"А если использовать:<br>Цены.ИспользоватьДату(Док.ДатаДок, 1);"
Сообщений: 289
тоже самое<br>
Сообщений: 3082
"За "Цены=СоздатьОбъект("Справочник.Цены")" внутри цикла "Пока Док.ПолучитьСтроку()=1 Цикл" пожизненный эцих с гвоздями 
<br><br>В общем, надо так:<br>Процедура Сформировать() <br> СуммаОбщПоДок=0;<br> СуммаОбщПоСпр=0; <br> РазницаОбщ=0; <br> Таблица=СоздатьОбъект("Таблица");<br> Таблица.ИсходнаяТаблица("Отчет");<br> Цены=СоздатьОбъект("Справочник.Цены");<br> Док=СоздатьОбъект("Документ");<br> Док.ИспользоватьЖурнал("РасходныеНакладные");<br> Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода); <br> ПечКонтрагент="По контрагенту "+ВыбКонтрагенты.ПолнНаименование;<br> Таблица.ВывестиСекцию("Шапка");<br> Пока Док.ПолучитьДокумент()=1 Цикл<br> Если Док.Контрагент=ВыбКонтрагенты Тогда <br> номердок = Док.НомерДок;<br> Док.ВыбратьСтроки(); <br> СуммаПоДок=0;<br> СуммаПоСправочнику=0;<br> Пока Док.ПолучитьСтроку()=1 Цикл<br> СуммаПоСправочникуПоСтроке=0;<br> Цены.ИспользоватьВладельца(Док.Товар);<br> Если Цены.НайтиПоРеквизиту("КатегорияЦены",Док.КатегорияЦен,0)=1 Тогда<br> СуммаПоСправочникуПоСтроке=(Док.Количество*Цены.Цена.Получить(Док.ДатаДок));<br> КонецЕсли;<br> СуммаПоСправочнику=СуммаПоСправочнику+СуммаПоСправочникуПоСт
Сообщений: 289
на счет "За "Цены=СоздатьОбъект("Справочник.Цены")" внутри цикла "Пока Док.ПолучитьСтроку()=1 Цикл" пожизненный эцих с гвоздями :)", полностью согласен (невнимательность)<br>а переменные я описывал чтобы самому было понятней(в процессе разработки)<br>По вашему коду вобще какаета фигня получилась<br>а чем собственно отличается ИспользоватьДату от Получить?<br>
Сообщений: 289
Вы переменную в начале цыкла установили СуммаПоСправочникуПоСтроке=0 , поэтому ее значение равнялось последней позиции в списке<br>я исправил, получилось тоже что и у меня
Сообщений: 3082
> СуммаПоСправочникуПоСтроке=0 , поэтому ее значение равнялось последней позиции в списке я исправил<br><br>Не исправляйте, смотрите еще разок что там у меня написано.<br><br>Кстати, а это нормально, что у вас СуммаПоСправочнику идет внутри цикла перебора строк? У вас же не по отдельной позции разницы считаются, а вообще как то накопительно...
Сообщений: 3082
"Вроде бы я понял что вы задумали, попробуйте вот такой вариант:<br>Процедура Сформировать() <br> СуммаОбщПоДок=0;<br> СуммаОбщПоСпр=0; <br> РазницаОбщ=0; <br> Таблица=СоздатьОбъект("Таблица");<br> Таблица.ИсходнаяТаблица("Отчет");<br> Цены=СоздатьОбъект("Справочник.Цены");<br> Док=СоздатьОбъект("Документ");<br> Док.ИспользоватьЖурнал("РасходныеНакладные");<br> Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода); <br> ПечКонтрагент="По контрагенту "+ВыбКонтрагенты.ПолнНаименование;<br> Таблица.ВывестиСекцию("Шапка");<br> Пока Док.ПолучитьДокумент()=1 Цикл<br> Если Док.Контрагент=ВыбКонтрагенты Тогда <br> номердок = Док.НомерДок;<br> Док.ВыбратьСтроки(); <br> СуммаПоДок=0;<br> СуммаПоСправочнику=0;<br> Пока Док.ПолучитьСтроку()=1 Цикл<br> Цены.ИспользоватьВладельца(Док.Товар);<br> Если Цены.НайтиПоРеквизиту("КатегорияЦены",Док.КатегорияЦен,0)=1 Тогда<br> СуммаПоСправочнику=СуммаПоСправочнику+(Док.Количество*Цены.Цена.Получить(Док.ДатаДок));<br> КонецЕсли;<br> СуммаПоДок=СуммаПоДок+(Док.Количество*Док.ЦенаСНДС); //а в документе нет реквизита "Сумма"?<br> КонецЦикла;<br> СуммаОбщПоДок=СуммаОбщПоДок+СуммаПоДок;<br> СуммаОбщПоСпр=СуммаОбщПоСпр+СуммаПоСправочнику; <br> Разница=СуммаПоСправочнику-СуммаПоДок;<br> РазницаОбщ=РазницаОбщ+Разница;<br> Таблица.ВывестиСекцию("Документ");<br> КонецЕсли;<br> КонецЦикла; <br> РазницаОбщПроц=Окр(СуммаОбщПоСпр/СуммаОбщПоДок*100-100,2,1);<br> Таблица.ВывестиСекцию("Итоги");<br> Таблица.Показать("Отчет"); <br>КонецПроцедуры<br>"
Сообщений: 289
тоже что и у меня<br>
Сообщений: 289
СуммаПоСправочнику у меня не внутри а перед циклом, а вот у Вас внутри