Работа с InventDim...
Вот джобик, которые генерит закупку автоматом. Все генерится - и заголовок закупки, и линия.
Мне нужно задать склад закупки. Я так понял, что для этого нужно идти в InventDim. В конце джобика я делаю выборку, нахожу нужную строку в инвент диме, задаю склад, он меняется (инфо выдает нужный мне склад), но строка не апдейтится, в итоге склад не меняется! В чем может быть дело? Спасибо.
// Declare
PurchTable purchTable;
NumberSeq numberSeq;
PurchLine PurchLine;
InventDim InventDim;
;
TTSBegin;
purchTable.clear();
purchTable.PurchaseType = PurchaseType::Purch;
numberSeq = NumberSeq::newGetNum(PurchParameters::numRefPurchId());
purchTable.PurchId = numberSeq.num();
purchTable.initValue();
purchTable.OrderAccount = "OST";
purchTable.InvoiceAccount = "OST";
purchTable.CurrencyCode = "RUR";
purchTable.VendGroup = "400";
purchTable.LanguageId = "ru";
purchTable.transferOrderAccount();
if (purchTable.validateWrite())
{
purchTable.insert();
}
// Теперь лепим строку
purchLine.clear();
purchLine.PurchId=purchTable.PurchId;
info(purchLine.PurchId);
purchLine.ItemId="391731-0001"; // номенклатура
purchLine.PurchPrice=11; // цена
purchLine.PurchQty=3; //количество
purchLine.CurrencyCode='RUR';
purchLine.initValue();
purchLine.createLine(true, true, true, true, true, true);
select forupdate InventDim
where InventDim.inventDimId == purchLine.InventDimId;
{InventDim.InventLocationId= "РубМос";
info(InventDim.InventLocationId);
InventDim.update();
}
TTSCommit;
}
|