Программный ввод складских остатков

[michel1971]

зачем велосипед изобретать.
2009 под рукой нет, есть 3.0, так вот в ней есть \Classes\TutorialJournalCreateExample и в нем метод создания журнла

TutorialJournalTable        journalTable;
    TutorialJournalTrans        journalTrans;

    TutorialJournalTableData    journalTableData  = JournalTableData::newTable(journalTable);
    TutorialJournalTransData    journalTransData  = journalTableData.JournalStatic().newJournalTransData(journalTrans,journalTableData);

    Integer                     x;
    ;

    // Init journalTable

    journalTable.journalId      = journalTableData.nextJournalId();
    journalTable.journalType    = InventJournalType::Movement;
    journalTable.journalNameId  = journalTableData.JournalStatic().standardJournalNameId(journalTable.journalType);

    journalTableData.initFromJournalName(journalTableData.JournalStatic().findJournalName(journalTable.journalNameId));

    // OR
    //
    // journalTable.initFromJournalName(TutorialJournalName::find(journalTable.journalNameId));

    // Loop lines

    for (x = 1; x <= 15; x++)
    {
        journalTrans.clear();
        journalTransData.initFromJournalTable();

        journalTrans.transDate      = systemdateGet() + x div 2;
        journalTrans.exItemId       = (select firstOnly inventTable).itemId;
        journalTrans.exCostAmount   = x;

        journalTransData.create();
    }

    journalTable.insert();

как разносить Lev Вам написал