AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 14.09.2015, 15:24   #6  
syl is offline
syl
Участник
Аватар для syl
 
236 / 21 (1) +++
Регистрация: 10.06.2015
Адрес: Киев
Вот полный код. Пытался разбивать на 2 транзакции, то же самое...
X++:
public void DoCopy()
{
    LedgerJournalTrans ljt1;
    LedgerJournalTrans ljt2;
    LedgerJournalTrans ljt3;
    CustVendPaymJournalFee cv1;
    CustVendPaymJournalFee cv2;
    LedgerJournalTable ljt;
    NumberSequenceTable numberSequenceTable;
    NumberSequenceCode nsc;
    Voucher voucher;

    LedgerVoucher ledgerVoucher;
    it = new MapIterator(paMarked);

    while (it.more())
    {
        ttsbegin;
        ljt = LedgerJournalTable::findByJournalNum(JN);

        nsc = numberSequenceTable::find(ljt.NumberSequenceTable).NumberSequence;
        voucher = NumberSeq::newGetNumFromCode(nsc).num();

        ljt1 = LedgerJournalTrans::findRecId(it.key(), false);

        ljt2.data(ljt1);
        ljt2.TransDate = ljt.NASLedgerJourDate;
        ljt2.Voucher = voucher;
        ljt2.JournalNum = JN;

        if(_Reverse)
        {
            ljt2.AmountCurDebit = ljt2.AmountCurDebit * -1;
            ljt2.AmountCurCredit = ljt2.AmountCurCredit * -1;
        }

        if (!ljt2.validateWrite())
        {
            throw Exception::Error;
        }
        ljt2.insert();
        //ttscommit;
        //ttsbegin;
        //ljt3 = LedgerJournalTrans::find(JN, voucher, false);
        while select cv1 where cv1.RefRecId == ljt1.RecId
        {
            //cv2.data(cv1);
            buf2Buf(cv1, cv2);
            //cv2.RefRecId = ljt3.RecId;
            cv2.RefRecId = ljt2.RecId;
            if (!cv2.validateWrite())
            {
                throw Exception::Error;
            }
            cv2.insert();
        }
        ttscommit;

        it.next();
    }
}
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
OXMLWorksheet_RU копирование ячейки из другой строки trudel DAX: Программирование 1 07.06.2015 09:09
Сортировка после изменения номера строки alicedr DAX: Программирование 4 11.11.2012 00:29
копирование строки в таблице timaluhs DAX: Программирование 7 03.05.2011 10:57
При создании строки в закупке статус строки становится "Отменено" AlexUnik DAX: Функционал 4 27.09.2004 16:05
Функция "Удалить строки" Oks DAX: Функционал 1 03.07.2002 18:09

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 12:08.