Есть отчет... Выводит номенклатуру... В отчете есть "флажок" - только с остатками: выводится номенклатуры, имеющая остаток. Остаток тупо берется из регистра "ПартииНаличие":

	ОстатокСебестоим = СоздатьОбъект("СписокЗначений");
	
	Себестоим 	= 0;
	РегОстатки 	= СоздатьОбъект("Регистр.ПартииНаличие");
	
	КолвоОстаток	= РегОстатки.СводныйОстаток(,,ВыбЗнач,,,,,"Количество");
	КолвоСумма 		= РегОстатки.СводныйОстаток(,,ВыбЗнач,,,,,"СуммаРуб");
	Если (КолвоОстаток > 0) и (КолвоСумма > 0)  Тогда
		Себестоим 	= Окр(КолвоСумма/КолвоОстаток, 2, 1);
	КонецЕсли;

	ОстатокСебестоим.ДобавитьЗначение(Себестоим);
	ОстатокСебестоим.ДобавитьЗначение(КолвоОстаток);
	
	Возврат ОстатокСебестоим;

А таким же простым способом возможно получить последний док-т прихода?

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

выгрузить в таблицу значений....

(2) да, еще скажи связать виртуальную таблицу остатков с таблицей регистра по ключевым полям)

(3) это 7.7

(0) Запрос, максимум по документу

(4)епты, а я думал, это 6.0

Рег = СоздатьОбъект("Регистры");
РегХ = Рег.ххх;
РегХ.УстановитьЗначениеФильтра(.........);
Рег.РАссчитатьРЕгистрыНа(.....);
РегХ.ВЫгрузитьИтоги(...........)

ещё можно из справочника партий взять

(9) а разве мы можем узнать из справочника партий реальные остатки по партиям?

(10) нет, это был буквальный ответ на

Масянька А таким же простым способом возможно получить последний док-т прихода?

Кароче... Ничё лучше запроса не придумала...

Функция ДатаПрихода(ВыбЗнач)

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

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

	Возврат ПоследнийДок;

Для одного элемента - работает.
Если обрабатывать папку - хрень какая-то... Берет тупо последний приход...

Я бы советовал показать (.)(.)

(16) Запросу?!

(12) а почему нет группировки по номенклатуре?

(18) А надо?
Воткнула после "Группировка Документ"...
Та же фигня... Только дольше...

(19) воткни до

Когда одна номенклатура - всё норм.
Как только задаю папку... Только последнее поступление... А последнее поступление - материалы ваще...

RS.УстановитьТекстовыйПараметр("ВыбЗнач", ВыбЗнач);
ВыбЗнач - текст?

Кароче...
Вот что написала:

Процедура Сформировать()
	Перем тз; //:ТаблицаЗначений

БД = СоздатьОбъект("ODBCDataBase");
БД.Соединение("DRIVER=Microsoft Visual FoxPro Driver;Deleted=Yes;Null=Yes;
|Collate=RUSSIAN;BackgroundFetch=Yes;Exclusive=No;SourceType=DBF;SourceDB=" + СокрЛП(КаталогИБ()));

	рс = СоздатьОбъект("ODBCRecordset");
	рс.УстБД(БД);
	//Данный фрагмент построен конструктором.
	//При повторном использовании конструктора внесенные вручную изменения будут потеряны!!!
	ТекстЗапроса = "
|select top 1 from $регистр.ПартииНаличие Партии (nolock)
|left join _1sjourn Журнал (nolock)
|on Партии.iddoc = Журнал.iddoc
|where ($Партии.КодОперации IN ($Перечисление.КодыОпераций.ВводОстатков OR $Перечисление.КодыОпераций.Закупка))
|	AND ($Партии.Номенклатура = :ВыбЗнач)
|order by Журнал.date_time_iddoc desc
|";
	
	
	
	рс.УстановитьТекстовыйПараметр("ВыбЗнач", ВыбЗнач);
	рс.ВыполнитьИнструкцию(ТекстЗапроса, тз);
	Сообщить("1 - " + ТипЗначенияСтр(тз));
	//тз.ВыбратьСтроку();
КонецПроцедуры

Сообщить - пусто...
Да чего же я не так-то делаю?! [smile=;_;]

не знаю ваших структур, в Украине регистр партии содержит документ прихода - его дата и нужна

(28) Аналогично. Есть ДатаПартии. Есть и Документ.
Не могу вытащить! [smile=>:(] [smile=;_;]

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

(30) Я завтра попробую... И... Кароч, если не получится...

смайл неверный. надо такой:

(32) Чтобы заработать такой смайлик - нужно помогать, а не трындеть.
За смайлик - спасибо.

(29) Регистр.ПартииНаличие.ТекущийДокумент

(35) Учитесь, спецы [smile=^_^]

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

	ТаблОстатков.Сортировать("Партия+");
	
	КолВоСтрок = ТаблОстатков.КоличествоСтрок();
	ТаблОстатков.ВыбратьСтроки();
    Если КолВоСтрок <> 0 Тогда
		ТаблОстатков.ПолучитьСтрокуПоНомеру(КолВоСтрок);
		Док = ТаблОстатков.Партия.ПриходныйДокумент;
	Иначе
		Док = "";
	КонецЕсли;

	Возврат Док;

Работает (досконально еще не проверила - не проверила доки) и при выборе одного, и при выборе папки.

PS Сисек не будет. Никому. [smile=:P]

(36) а что такое папка?

(37) группа

(38) ааа, ну тады в (36) не рабочий вариант. Если, канеш не нужен самый последний док на один элемент из группы. По которому есть остатки партии. И если ВыбЗнач это группа - то не 1, а 2 последний параметр в фильтре.

(39) Внимательно читай (0). [smile=:P]

PS А про нерабочий вариант - в институте было. Лаба по БД. Сначала полчаса лаборант разглядывал и выступал, что "оно не может работать". Потом препода позвал. Препод через пару минут выдал "Не рабочий вариант"... Короче, я попросилась уйти (40 минут однако). Пятерку поставили [smile=:P]

(40) партии автоматически списываете по фифо, или партию можно ручками выбирать?
Не рабочий - томушто если группа, то и партии и последний док, для элементов в группе, могут быть разные. Или я не понял что таки нужно. И зачем.

(36) почему же ... Будут ...

(36) я это тебе еще в посте №1 предложил

(43) Не понятно предложил :)

(36) а чем отличается от (7)? кроме того, у вас нет указания, на какую дату рассчитывать итоги...вообще, судя по задаче, у вас довольно низкая квалификация как алгоритмиста, так и кодировщика, нет ни знаний 7.7, ни 8.х....

(45) Судя по постам на данном форуме и отзывах бывалых, вы отличаетесь умом и сообразительностью... Умом и сообразительностью...

На рабочем месте занимайся квалификацией.

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

(47) Отвечай.

(48) так я вас не оскорблял...я никого не называю дебилом, свиньей, не говорю, что кто-то несет бред...а сказал лишь о том, что задача решается за 5 минут безо всякого флуда...