X++:
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();
}
}
оно так красивее и наверное быстрее