Отчет по остаткам Комплексная 7.7, 496
Показывать по
10
20
40
сообщений
- 1
- 2
25.03.2010
17:02
#1
Есть задача вывести таблицу остатков тмц с датой последнего прихода каждой позиции, т.е. есть на складе количество товара = 50 состоящих из нескольких приходов, нужно в отчете вывести все эти 50 позиций и дату последнего прихода этого товара.
Может у кого есть уже написанный отчетик или помогите с чего начать?
заранее спс
Может у кого есть уже написанный отчетик или помогите с чего начать?
заранее спс
25.03.2010
19:58
#2
Учетная политика какая? FIFO, LIFO или "По средней"? Проще говоря, партионный учет есть?
26.03.2010
17:26
#4
"значит все просто, надо выполнить такой запрос и по его результатам сделать заполнение печатной формы:
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.Партия.ПриходныйДокумент.ДатаДок;
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос = СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Пока Запрос.Группировка(1)=1 Цикл
Сообщить(Строка(Запрос.Товар)+": "+Формат(Запрос.ПоследняяДатаПоступления,"ДДДММГГГГ"));
КонецЦикла;
КонецЕсли;"
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.Партия.ПриходныйДокумент.ДатаДок;
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос = СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Пока Запрос.Группировка(1)=1 Цикл
Сообщить(Строка(Запрос.Товар)+": "+Формат(Запрос.ПоследняяДатаПоступления,"ДДДММГГГГ"));
КонецЦикла;
КонецЕсли;"
26.03.2010
18:11
#6
А оно там есть? Ну если есть, значит еще проще будет. Я просто в конфигурацию не заглядывал, когда ответ писал
29.03.2010
08:11
#7
"Посмотрел я в конфигурацию, наверное, запрос должен быть таким:
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";"
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";"
06.05.2010
11:46
#8
чет не выходит, в ПоследняяДатаПоступления ничего не показывает...отладчик говорит неправильное выражение...
06.05.2010
13:24
#9
"А у меня работает, только Макс(ДатаПартии) в результате дает выражение, приведенное к числовому. Приходится его снова в Дату принудительно:
Процедура Сформировать()
НужнаяДата=ТекущаяДата();
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Пока Запрос.Группировка(1)=1 Цикл
Сообщить(Строка(Запрос.Товар)+" "+Строка(Запрос.Остаток)+" "+СокрЛП(Дата(Запрос.ПоследняяДатаПоступления)));
КонецЦикла;
КонецЕсли;
КонецПроцедуры"
Процедура Сформировать()
НужнаяДата=ТекущаяДата();
ТекстЗапроса="Период с НужнаяДата по НужнаяДата;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Пока Запрос.Группировка(1)=1 Цикл
Сообщить(Строка(Запрос.Товар)+" "+Строка(Запрос.Остаток)+" "+СокрЛП(Дата(Запрос.ПоследняяДатаПоступления)));
КонецЦикла;
КонецЕсли;
КонецПроцедуры"
- 1
- 2
УСН 7.7 (релиз 167). В Закрытии месяца "начисление налогов с ФОТ" - модульная ошибка.Бухгалтерия 1.8, ред 1.6 3-НДФЛ
Читают тему
(гостей: 1)