Показать сообщение отдельно
Старый 06.06.2012, 13:40   #7  
oip is offline
oip
Axapta
Лучший по профессии 2014
 
2,564 / 1416 (53) ++++++++
Регистрация: 28.11.2005
Записей в блоге: 1
Вот пример создания строк складского журнала переноса:

X++:
#Define.JournalNum("000015_061")
 #Define.ItemId("ESB-007")
 #Define.LocationId("MW")
 #Define.QtyCounted(101)

 InventJournalTrans      inventJournalTrans;
 InventJournalTable      inventJournalTable;
 InventTable             inventTable;

 InventDim               inventDim;
 ;

 inventTable = inventTable::find(#ItemId);
 if (!inventTable)
  throw error(strfmt(InventTable::txtNotExist(), #ItemId));

 ttsbegin;
  inventJournalTable  = inventJournalTable::find(#JournalNum, true);
  if (!inventJournalTable)
   throw error(strfmt(InventJournalTable::txtNotExist(), #JournalNum));

  inventJournalTrans.clear();
  inventJournalTrans.initFromInventJournalTable(inventJournalTable);
  inventJournalTrans.initFromInventTable(inventTable);
  inventJournalTrans.transDate = systemDateGet();

  inventDim = inventJournalTrans.inventDim();
  inventDim.InventLocationId = #LocationId;
  inventJournalTrans.inventDimId  =  InventDim::findOrCreate(inventDim).inventDimId;
  inventJournalTrans.inventMovement().journalSetInventDimField(inventDim, fieldNum(InventDim, InventLocationId));

  inventJournalTrans.Counted = #QtyCounted;
  inventJournalTrans.inventMovement().JournalSetCounted();
  inventJournalTrans.insertFromCode();
ttscommit;
http://forum.mazzy.ru/index.php?showtopic=4069