Не цепляет дату хранения в Торговле+Складе

Вид для печати

22.10.2010, 14:20
natal09

Не цепляет дату хранения в Торговле+Складе

В приходных документах по складу в табличной части добавил поле "ДатаОкончанияХранения". Дата в документах сохраняется.

Через регистр делаю запрос

Цитата:

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

Результат запроса пытаюсь сохранить в таблицу значений

Цитата:

Пока Запрос.Группировка(1) = 1 Цикл
Если Запрос.Номенклатура.ЭтоГруппа() <> 1 Тогда
КолНаим = КолНаим + 1;
Пока Запрос.Группировка(2) = 1 Цикл
КолДок = КолДок + 1;

Табл.НоваяСтрока();

Табл.Номенклатура = Запрос.Номенклатура;
Табл.ПриходныйДокумент = Строка(Запрос.ПриходныйДокумент) + " Автор: " + Запрос.ПриходныйДокумент.Автор;
Табл.Ед = Запрос.Номенклатура.БазоваяЕдиница;
Табл.Остаток = Запрос.КоличествоКонОст;
Табл.ДатаПоступления = Запрос.ПриходныйДокумент.ДатаДок;
Табл.ХранитьДо = Запрос.ПриходныйДокумент.ДатаОкончанияХранения;

Но дата окончания хранения оказывается пустой. Почему?
22.10.2010, 15:49
ViSViS

Посмотрите отладчиком на этой строке:
"Табл.ХранитьДо = Запрос.ПриходныйДокумент.ДатаОкончанияХранения;"
заполнена ли дата в "Запрос.ПриходныйДокумент.ДатаОкончанияХранения"?
22.10.2010, 18:40
АнонимХ

табличной части добавил поле "ДатаОкончанияХранения

а выборки в запросе и после по тч прихдока нет

или в партию реквизит добавь
22.10.2010, 19:43
Octopus

Цитата:

Сообщение от natal09

Если Запрос.Номенклатура.ЭтоГруппа() <> 1 Тогда

Лишнее условие. В запросе же ясно указано - "без групп"

Цитата:

Сообщение от natal09

Группировка ПриходныйДокумент без групп;

Здесь наоборот, лишнее "без групп"

Приходный документ не обязательно будет приходной накладной. В некоторых случаях он вообще может быть пустым :)

Ну и АнонимХ правильно сказал, что для того, чтобы цеплялся реквизит из табличной части, его надо или садить в регистр, или перебирать строки документа и сравнивать с номенклатурой. Но последнее чревато боком, если в документе будет несколько строк с одним и тем же товаром.
25.10.2010, 15:14
natal09

Цитата:

Сообщение от Octopus

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

Учел.

В регистре ПартииНаличие добавил реквизит ДатаОкончанияХранения. Открыл таблицу этого регистра и с помощью MS Access заполнил это поле датами.

Сделал отчет, код по заполнению находится ниже. Все поля этого отчета заполняются значениями, кроме поля ХранитьДо. Оно пустое. Что может быть неправильным в запросе?

Цитата:

Процедура Обновить()

Табл.Очистить();

Запрос = СоздатьОбъект("Запрос");

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

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Табл.НоваяКолонка("Раскраска");
Табл.НоваяКолонка("Номенклатура",,,,,50);
Табл.НоваяКолонка("ПриходныйДокумент","Строка",,,,50);
Табл.НоваяКолонка("Ед",,,,,10);
Табл.НоваяКолонка("Остаток","Число",15,3);
Табл.НоваяКолонка("ДатаПоступления","Дата");
Табл.НоваяКолонка("ХранитьДо","Дата");
Табл.НоваяКолонка("Очередность");
Табл.ВидимостьКолонки("Раскраска",0);
Табл.ВидимостьКолонки("Очередность",0);
КолНаим = 0;
КолДок = 0;
КолДней = 0;

Пока Запрос.Группировка(1) = 1 Цикл
КолНаим = КолНаим + 1;
Пока Запрос.Группировка(2) = 1 Цикл

КолДок = КолДок + 1;

Табл.НоваяСтрока();

Табл.Номенклатура = Запрос.Номенклатура;
Табл.ПриходныйДокумент = Строка(Запрос.ПриходныйДокумент) + " Автор: " + Запрос.ПриходныйДокумент.Автор;
Табл.Ед = Запрос.Номенклатура.БазоваяЕдиница;
Табл.Остаток = Запрос.КоличествоКонОст;
Табл.ДатаПоступления = Запрос.ПриходныйДокумент.ДатаДок;

Табл.ХранитьДо = Запрос.ДатаОкончанияХранения;

КолДней = Табл.ХранитьДо - Табл.ДатаПоступления;

Если Табл.ДатаПоступления + Окр(КолДней * 0.75,0) < ТекущаяДата() Тогда
Табл.Раскраска = "BRUSH[13311]";
Табл.Очередность = 0;
ИначеЕсли Табл.ДатаПоступления + Окр(КолДней * 0.5,0) < ТекущаяДата() Тогда
Табл.Раскраска = "BRUSH[16776960]";
Табл.Очередность = 1;
Иначе
Табл.Раскраска = "";
Табл.Очередность = 2;
КонецЕсли;

КонецЦикла;
КонецЦикла;
Табл.Сортировать("Очередность,ХранитьДо");
Сообщить("На складе " + КолНаим + " номенклатурных наименований по " + КолДок + " приходным документам");
КонецПроцедуры
25.10.2010, 16:01
Octopus

Группировка ДатаОкончанияХранения;
25.10.2010, 16:43
natal09

Цитата:

Сообщение от Octopus

Группировка ДатаОкончанияХранения;

Сделал. Результат тот же. Поле с датой пустое (((

Цитата:

Процедура Обновить()

Табл.Очистить();

Запрос = СоздатьОбъект("Запрос");

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

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Табл.НоваяКолонка("Раскраска");
Табл.НоваяКолонка("Номенклатура",,,,,50);
Табл.НоваяКолонка("ПриходныйДокумент","Строка",,,,50);
Табл.НоваяКолонка("Ед",,,,,10);
Табл.НоваяКолонка("Остаток","Число",15,3);
Табл.НоваяКолонка("ДатаПоступления","Дата");
Табл.НоваяКолонка("ХранитьДо","Дата");
Табл.НоваяКолонка("Очередность");
Табл.ВидимостьКолонки("Раскраска",0);
Табл.ВидимостьКолонки("Очередность",0);
КолНаим = 0;
КолДок = 0;
КолДней = 0;

Пока Запрос.Группировка(1) = 1 Цикл
КолНаим = КолНаим + 1;
Пока Запрос.Группировка(2) = 1 Цикл
Пока Запрос.Группировка(3) = 1 Цикл

КолДок = КолДок + 1;

Табл.НоваяСтрока();

Табл.Номенклатура = Запрос.Номенклатура;
Табл.ПриходныйДокумент = Строка(Запрос.ПриходныйДокумент) + " Автор: " + Запрос.ПриходныйДокумент.Автор;
Табл.Ед = Запрос.Номенклатура.БазоваяЕдиница;
Табл.Остаток = Запрос.КоличествоКонОст;
Табл.ДатаПоступления = Запрос.ПриходныйДокумент.ДатаДок;

Табл.ХранитьДо = Запрос.ДатаОкончанияХранения;

КолДней = Табл.ХранитьДо - Табл.ДатаПоступления;

Если Табл.ДатаПоступления + Окр(КолДней * 0.75,0) < ТекущаяДата() Тогда
Табл.Раскраска = "BRUSH[13311]";
Табл.Очередность = 0;
ИначеЕсли Табл.ДатаПоступления + Окр(КолДней * 0.5,0) < ТекущаяДата() Тогда
Табл.Раскраска = "BRUSH[16776960]";
Табл.Очередность = 1;
Иначе
Табл.Раскраска = "";
Табл.Очередность = 2;
КонецЕсли;

КонецЦикла;
КонецЦикла;
КонецЦикла;
Табл.Сортировать("Очередность,ХранитьДо");
Сообщить("На складе " + КолНаим + " номенклатурных наименований по " + КолДок + " приходным документам");
КонецПроцедуры
25.10.2010, 17:19
Octopus

Каюсь, не заметил сразу... Из функций только КонОст, а реквизиты цепляются исключительно к оборотам (т.е. Приход - Расход). Если надо брать остатками, придется делать не реквизит, а измерение... Либо делать отчет по оборотам.
25.10.2010, 21:56
АнонимХ

Табл.Номенклатура = Запрос.Номенклатура;
Табл.ДатаПоступления = Запрос.ПриходныйДокумент
...
Тов=Запрос.Номенклатура;
Прих=Запрос.ПриходныйДокумент;
Прих.ВыбратьСтроки()
Пока Прих.ПолучитьСтроку()
Если Тов=Прих.Товар(или как там в доке он называется)
ХранитьДо=Прих.ДатаОкончанияХранения;
Прервать;
КонецЕсли;
КонецЦикла
25.10.2010, 22:56
Octopus

АнонимХ, не будет работать в случае, когда в документе несколько одинаковых позиций с разными датами хранения...
25.10.2010, 23:58
АнонимХ

ну, это вопрос реализации
можно привязать к номеру строки
это ж рыба
26.10.2010, 06:01
Octopus

К номеру строки тоже не универсальный вариант. Сильно осложняется написание, к примеру, отчета о товаре, чей срок хранения равен определенной дате. Или находится в определенном диапазоне. Тут уже не обойтись простым условием в запросе.
26.10.2010, 11:32
natal09

Цитата:

Сообщение от АнонимХ

ну, это вопрос реализации
можно привязать к номеру строки
это ж рыба

Как может выглядить код с привязкой к номеру строки?
26.10.2010, 11:33
natal09

Цитата:

Сообщение от Octopus

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

Да, сроки хранения разные.
26.10.2010, 12:20
Octopus

Цитата:

Сообщение от natal09

Как может выглядить код с привязкой к номеру строки?

|НомерСтроки = Регистр.ПартииНаличие.НомерСтроки;

Работать будет при условии, что этот атрибут регистра заполнен документом. Т.е. при проведении выполняются действия вида:
РегПартии.ПривязыватьСтроку(ТаблНоменклатуры.НомерСтрокиДокумента);

В ТиС это работает. В некоторых партнерских конфигурациях - нет.
26.10.2010, 18:17
АнонимХ

а разве в тис не сворачивается таблица по номенклатуре перед проведением?

самое правильное в партию добавить
26.10.2010, 18:28
АнонимХ

или в свойсто записывать, тогда и переделывать ниче ненадо
26.10.2010, 20:34
Octopus

Цитата:

Сообщение от АнонимХ

а разве в тис не сворачивается таблица по номенклатуре перед проведением?

Нет, не сворачивается. По крайней мере, в приходе.

Цитата:

Сообщение от АнонимХ

самое правильное в партию добавить

Это тоже вариант, тут я полностью согласен.
28.10.2010, 13:22
natal09

Цитата:

Сообщение от АнонимХ

самое правильное в партию добавить

в партию добавил. Неплохо получилось. Спасибо.