7.7 Цены

7.7 ТиС

Подскажите, пожалуйста, как обрашаться к оптовым ценам номенклатуры и как обращаться к розничным, имея докумет реализация? С потовыми, впринципе, понятно, "Докум.Цена"...

ммм... что-то я совсем туплю... почему-то в цикл не заходит

Код:

Цена=0; 

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

Докум.Номенклатура откуда берется? Полагаю, что Докум - это ссылка на документ. Тогда для того, чтобы обратиться к содержимому табличной части, нужно сперва строки выбрать

Код:

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

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

Код:

Процедура Печать(Докум, Excel, NewBook, НомерПоследнейСтроки, Устройство=0, КолвоКопий=1)
Перем НачПовт, КонПовт, ЗапомнимАртикул, ЗапомнимКоличество, Выход;
Счетчик		= 0;                       
СтолбецАртикул	= 1;
СтолбецЦена		= 3;
СтолбецКоличество 	= 2;
СтолбецСумма		= 4;
Столбец                        = 1;            
НомСтроки                     = 0;
Докум.ВыбратьСтроки();
Рег = СоздатьОбъект("Регистр.ПартииНаличие");
УчПолитика= Докум.ЮрЛицо.МетодРасчетаСебестоимости.Получить(Докум.ДатаДок);

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


Если Счетчик = 0 Тогда
НомСтроки2 = НомерПоследнейСтроки;				
Иначе
НомСтроки2 = НомСтроки2+1;
КонецЕсли;


Цена=0; 

Спр=СоздатьОбъект("Справочник.Цены");
Спр.ИспользоватьВладельца(Докум.Номенклатура);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ТипЦен = "Розничные" Тогда
//Вот сюда заходить не хочет. Хотя в отладчике в Табло: Спр.ТипЦен = Розничные
Цена=Спр.Цена.Получить(ТекущаяДата());
Прервать;
КонецЕсли;
КонецЦикла;


Если Рег.Номенклатура.ВидНоменклатуры <> Перечисление.ВидыНоменклатуры.Услуга Тогда
Количество 		= Рег.Количество;
Сумма			= Цена * Рег.Количество; 
Иначе
Количество 		= Докум.Количество;
Сумма			= Цена * Докум.Количество;
КонецЕсли;				

Ячейка = Excel.Cells(НомСтроки2,СтолбецАртикул);    
Ячейка.ColumnWidth = 25;
Ячейка.Value = СокрЛП(Докум.Номенклатура.ПолнНаименование );



Ячейка = Excel.Cells(НомСтроки2,СтолбецКоличество);
Ячейка.Value = Количество;
Ячейка.ColumnWidth = 25; 

Ячейка = Excel.Cells(НомСтроки2,СтолбецСумма);
Ячейка.Value = Сумма;
Ячейка.ColumnWidth = 25;	 

Ячейка = Excel.Cells(НомСтроки2,СтолбецЦена);
Ячейка.Value = Цена;
Ячейка.ColumnWidth = 25;	

Счетчик=Счетчик+1;
КонецЕсли;		
КонецЦикла;          
КонецЦикла;
НомерПоследнейСтрокиДок = НомСтроки2;



Если Докум.УчитыватьНДС = 1 Тогда
СуммаНДСИтог = Докум.Итог("СуммаНДС");
Если Докум.СуммаВклНДС = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНДСИтог;
КонецЕсли;
КонецЕсли;

Если Докум.УчитыватьНП = 1 Тогда
СуммаНПИтог = Докум.Итог("СуммаНП");
Если Докум.СуммаВклНП = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНПИтог;
КонецЕсли;
КонецЕсли;                              


КонецПроцедуры