Отчет по остаткам Комплексная 7.7, 496
Показывать по
10
20
40
сообщений
- 1
- 2
13.05.2010
16:55
#11
> нет все равно не выводит дату... вместо нее пусто, только точки форматные стоят и все. может что-то должно быть какое-нибудь условие или у меня что-то не заполнено?
код свой покажи
код свой покажи
13.05.2010
17:42
#12
"Процедура Сформировать()
НужнаяДата=ТекущаяДата();
ТекстЗапроса="Период с ДатаНачала по ДатаКонца;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Таб = СоздатьОбъект("ТаблицаЗначений");
Таб.НоваяКолонка("Ном");
Таб.НоваяКолонка("Остаток","Число");
Таб.НоваяКолонка("Партии","Дата");
ПечТабл = СоздатьОбъект("Таблица");
ПечТабл.ИсходнаяТаблица("Таблица");
ПечТабл.ВывестиСекцию("Шапка");
Пока Запрос.Группировка(1)=1 Цикл
Таб.НоваяСтрока();
Таб.Ном=Строка(Запрос.Товар);
Таб.Остаток=Строка(Запрос.Остаток);
Таб.Партии=СокрЛП(Дата(Запрос.ДатаПартии));
Сообщить(Строка(Запрос.Товар)+" "+Строка(Запрос.Остаток)+" "+СокрЛП(Дата(Запрос.ДатаПартии)));
КонецЦикла;
Таб.ВыбратьСтроки();
Пока Таб.ПолучитьСтроку() = 1 Цикл
ПечНом=Таб.Ном;
ПечОст=Таб.Остаток;
ПечПартии=Таб.Партии;
ПечТабл.ВывестиСекцию("Строка");
КонецЦикла;
ПечТабл.Показать();
КонецЕсли;
КонецПроцедуры
полный код
тут просто еще табличка формируется
ps |ДатаПартии=Регистр.ПартииНаличие.ДатаПартии; - датапартии выводится номальной датой, а вот Запрос.ДатаПартии выводится пустота"
НужнаяДата=ТекущаяДата();
ТекстЗапроса="Период с ДатаНачала по ДатаКонца;
|Товар=Регистр.ПартииНаличие.Номенклатура;
|ДатаПартии=Регистр.ПартииНаличие.ДатаПартии;
|Количество=Регистр.ПартииНаличие.Количество;
|Функция Остаток = КонОст(Количество);
|Функция ПоследняяДатаПоступления = Максимум(ДатаПартии);
|Группировка Товар без групп упорядочить по Товар.Наименование;";
Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=1 Тогда
Таб = СоздатьОбъект("ТаблицаЗначений");
Таб.НоваяКолонка("Ном");
Таб.НоваяКолонка("Остаток","Число");
Таб.НоваяКолонка("Партии","Дата");
ПечТабл = СоздатьОбъект("Таблица");
ПечТабл.ИсходнаяТаблица("Таблица");
ПечТабл.ВывестиСекцию("Шапка");
Пока Запрос.Группировка(1)=1 Цикл
Таб.НоваяСтрока();
Таб.Ном=Строка(Запрос.Товар);
Таб.Остаток=Строка(Запрос.Остаток);
Таб.Партии=СокрЛП(Дата(Запрос.ДатаПартии));
Сообщить(Строка(Запрос.Товар)+" "+Строка(Запрос.Остаток)+" "+СокрЛП(Дата(Запрос.ДатаПартии)));
КонецЦикла;
Таб.ВыбратьСтроки();
Пока Таб.ПолучитьСтроку() = 1 Цикл
ПечНом=Таб.Ном;
ПечОст=Таб.Остаток;
ПечПартии=Таб.Партии;
ПечТабл.ВывестиСекцию("Строка");
КонецЦикла;
ПечТабл.Показать();
КонецЕсли;
КонецПроцедуры
полный код
тут просто еще табличка формируется
ps |ДатаПартии=Регистр.ПартииНаличие.ДатаПартии; - датапартии выводится номальной датой, а вот Запрос.ДатаПартии выводится пустота"
14.05.2010
11:32
#15
> а где и как посмотреть?
либо через отчёт (кнопка) Действия -> Движения документа
или через меню Действия -> Движения документа - там выбираешь регистр Партии наличия
либо через отчёт (кнопка) Действия -> Движения документа
или через меню Действия -> Движения документа - там выбираешь регистр Партии наличия
- 1
- 2
УСН 7.7 (релиз 167). В Закрытии месяца "начисление налогов с ФОТ" - модульная ошибка.Бухгалтерия 1.8, ред 1.6 3-НДФЛ
Читают тему
(гостей: 1)