Как программно создать журнал Переноса

[DmitryS]

Как то так

            Real   lineNum;
            InventJournalTable         journalTable,
            InventJournalTransData  transData
            InventDim                     inventDim,toInventDim;
           Qty                               qty;
            ;
            _inventJournalTrans.clear();
             lineNum++;
            _inventJournalTrans.initValue();
            _inventJournalTrans.initFromInventJournalTable(journalTable);
            _inventJournalTrans.itemId = "Код номенклатуры";
            _inventJournalTrans.Qty    =  qty;
            _inventJournalTrans.inventMovement().journalSetQty();
            _inventJournalTrans.inventMovement().journalSetCostPrice();
            _inventJournalTrans.inventMovement().journalSetPriceUnit();
            _inventJournalTrans.inventMovement().journalSetCostAmount();

//Аналитики inventDim и toinventDim инициализируйте своим набором и вызовите
//InventDim::findOrCreate(inventDim)

            _inventJournalTrans.InventDimId     = inventDim.InventDimId;
            _inventJournalTrans.ToInventDimId = toInventDim.InventDimId; 

             transData =               journalTransData::newTransTableLineNum(_inventJournalTrans,_journalTable,lineNum);
            _transData.initVoucher(prevTrans.Voucher, false, true);

            _inventJournalTrans.write();