Показать сообщение отдельно
Старый 17.06.2004, 10:18   #1  
NJD is offline
NJD
Участник
 
210 / 26 (1) +++
Регистрация: 21.05.2003
Адрес: Moscow
Работа с 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;
}