[Sada]

void copyLedgerJournalTrans()
{
    LedgerJournalTrans  ledgerJournalTrans, ledgerJournalTransNew;
    NumberSeq                       numSeq;
    ;
    while select ledgerJournalTrans
        where ledgerJournalTrans.JournalNum == .LedgerJournalNum
    {
        ledgerJournalTransNew.clear();
        ledgerJournalTransNew.data(ledgerJournalTrans);
        ledgerJournalTransNew.JournalNum = ledgerJournalTable.JournalNum;
        ledgerJournalTransNew.AmountCurCredit = -ledgerJournalTransNew.AmountCurCredit;
        numSeq = NumberSeq::newGetVoucherFromCode(ledgerJournalTable.VoucherSeries, false);
        ledgerJournalTransNew.voucher = numSeq.voucher();
        ledgerJournalTransNew.insert();
    }
}

оно так красивее и наверное быстрее