Показать сообщение отдельно
Старый 12.04.2012, 13:15   #3  
Sada is offline
Sada
Программатор
Аватар для Sada
 
1,450 / 153 (8) ++++++
Регистрация: 29.03.2005
Адрес: Толи Барнаул, толи Москва
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();
    }
}
оно так красивее и наверное быстрее

Последний раз редактировалось Sada; 12.04.2012 в 13:18.