Запрос

[skazochnik]

Доброе время суток.
Помогите создать запрос. так что бы пробежаться по таблице inventSum, где надо определить наличие ТМЦ по определенному складу(аналитике)

[S.Kuskov]

А что конкретно вызывает трудности? Отсутствие HAVING?

[kashperuk]

Класс InventOnHand. У него куча методов для инициализации на основе ItemId + Dimensions.
Он возвращает кол=во в наличии на текущую дату.

[lev]

наличие на текущий момент, или на дату?
если на текущий момент то воспользуйтесь советом от kashperuk
если на дату то используйте класс InventSumDatePhysicalDim и статический метод в нем onHandQty.

[skazochnik]

Запрос победил.
Кому интересно

ttsbegin;
while select inventDim
where inventDim.InventLocationId == 'SKLAD1'
{
while select inventSum
where inventSum.InventDimId == inventDim.inventDimId
{
inventJournalTrans.JournalId = inventJournalTable.JournalId;
inventJournalTrans.JournalType = InventJournalType::Transfer;
inventJournalTrans.TransDate = systemdateget();
info(inventSum.ItemId);
inventJournalTrans.ItemId = inventSum.ItemId;
inventJournalTrans.inventDimId = inventSum.InventDimId;
inventJournalTrans.ToInventDimId = inventSum.InventDimId;
inventJournalTrans.Qty = -(inventSum.PhysicalInvent);
inventJournalTrans.CostPrice = inventSum.PostedValue;
inventJournalTrans.lineNum = InventJournalTrans::lastLineNum(inventJournalTrans.journalId) + 1;
inventJournalTrans.insert(NoYes::Yes);

}
//inventJournalTrans.insert(NoYes::Yes);
}

ttscommit;

едиственное Но
Как можно обойти такую фишку
"Складская аналитика 'Из' и 'На' должны отличаться"
тоесть у меня ИЗсклада = склад1 и НА склад = склад1,

[S.Kuskov]

Ну вы и вопросы формулируете.

Цитата:

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

едиственное Но
Как можно обойти такую фишку
"Складская аналитика 'Из' и 'На' должны отличаться"
тоесть у меня ИЗсклада = склад1 и НА склад = склад1,

Если все остальные складские аналитики не нужны (нужен только склад), то

ToInventDimId = InventDim::findOrCreateInventLocationId("НА склад").InventDimId;

А если нужно сохранить другие аналитики, то вот так

InventDimTo = InventDim::find(inventSum.InventDimId);
InventDimTo.InventLocationId = "НА склад";
// здесь также можно поменять ещё какието аналитики
ToInventDimId = InventDim::findOrCreate(InventDimTo).InventDimId;

[Wamr]

Цитата:

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

Запрос победил.
Кому интересно
...

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

[skazochnik]

Цитата:

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

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

Почти Троль
Пишите очень даже интересно

[kashperuk]

К Вашему сведению, в inventSum содержится много строк, в которых все кол-ва == 0

Более того, Вы уверены, что нужно программировать?
Похоже, что вам нужно просто создать новый журнал инвентаризации и воспользоваться функцией создания "В наличии":



В результате получите журнал с созданными строками след. вида. Останется только проставить кол-во желаемое и поменять склад:

[ice]

Цитата:

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

Запрос победил.
Кому интересно

ttsbegin;
while select inventDim
where inventDim.InventLocationId == 'SKLAD1'
{
while select inventSum
where inventSum.InventDimId == inventDim.inventDimId
{
inventJournalTrans.JournalId = inventJournalTable.JournalId;
inventJournalTrans.JournalType = InventJournalType::Transfer;
inventJournalTrans.TransDate = systemdateget();
info(inventSum.ItemId);
inventJournalTrans.ItemId = inventSum.ItemId;
inventJournalTrans.inventDimId = inventSum.InventDimId;
inventJournalTrans.ToInventDimId = inventSum.InventDimId;
inventJournalTrans.Qty = -(inventSum.PhysicalInvent);
inventJournalTrans.CostPrice = inventSum.PostedValue;
inventJournalTrans.lineNum = InventJournalTrans::lastLineNum(inventJournalTrans.journalId) + 1;
inventJournalTrans.insert(NoYes::Yes);

}
//inventJournalTrans.insert(NoYes::Yes);
}

ttscommit;

едиственное Но
Как можно обойти такую фишку
"Складская аналитика 'Из' и 'На' должны отличаться"
тоесть у меня ИЗсклада = склад1 и НА склад = склад1,

по коду:ни в коем случае так не делайте!!!

в inventsum нет ни ИЗ ни НА, там содержатся остатки товара в разрезе аналитик.

PS Читайте документацию

[S.Kuskov]

Как программно создать журнал Переноса - это же ведь ваша тема? Вам же дали пример кода для создания журнала.

[skazochnik]

Цитата:

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

К Вашему сведению, в inventSum содержится много строк, в которых все кол-ва == 0

Вложение 5413

Что это значит?
ТО что при разноске она бедет ругаться на данные Нули?

[Михаил Андреев]

Цитата:

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

Что это значит?
ТО что при разноске она бедет ругаться на данные Нули?

Вы прикиньте время выполнения Вашего кода через пару-тройку лет. Когда в базе будет уже полно ГТД, если добавятся партии, или, того хуже, серийные номера, то будьте уверены, Вам икаться будет

[skazochnik]

Цитата:

Сообщение от Михаил Андреев

Вы прикиньте время выполнения Вашего кода через пару-тройку лет. Когда в базе будет уже полно ГТД, если добавятся партии, или, того хуже, серийные номера, то будьте уверены, Вам икаться будет

Этот код только один раз выстрилет.

[kashperuk]

Цитата:

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

Что это значит?
ТО что при разноске она бедет ругаться на данные Нули?

Это значит что вы будете создавать строки для множества строк, в которых количество = 0 по той или иной причине. Что есть бессмысленно.

[skazochnik]

Цитата:

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

Это значит что вы будете создавать строки для множества строк, в которых количество = 0 по той или иной причине. Что есть бессмысленно.

Подробнее.. Можно?

[lev]

Цитата:

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

Подробнее.. Можно?

будут создаваться строки для всех номенклатур, даже для тех у кого остаток на данный момент равен 0. в итоге в журнале у вас будет куча строк с количеством равным нулю.
Это как минимум странно, но может быть Вам это нужно.

[skazochnik]

Цитата:

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

будут создаваться строки для всех номенклатур, даже для тех у кого остаток на данный момент равен 0. в итоге в журнале у вас будет куча строк с количеством равным нулю.
Это как минимум странно, но может быть Вам это нужно.

Ну на это есть if (inventSum.PostedQty!=0)
А вот как быть с этим? ""Недостаточные складские проводки со статусами 'В заказе', 'Зарезервировано в заказанных', 'Физ. зарезервировано' и 'Скомплектовано'.""

[lev]

Цитата:

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

Ну на это есть if (inventSum.PostedQty!=0)
...

В приведенном Вами коде такого if-а нет.
и уж лучше это условие добавить в селект..

[S.Kuskov]

Цитата:

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

А вот как быть с этим? ""Недостаточные складские проводки со статусами 'В заказе', 'Зарезервировано в заказанных', 'Физ. зарезервировано' и 'Скомплектовано'.""

А какой способ резервирования указан на шапке журнала (поле InventJournalTable.Reservation)? Попробуйте поставить "Вручную"