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

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 11.10.2004, 14:08   #1  
Hamster is offline
Hamster
Участник
 
687 / 13 (2) ++
Регистрация: 15.05.2003
? Как программно создать журнал переноса и разнести?
В BenchMark пример только для польз. интерфейса
Старый 11.10.2004, 14:31   #2  
George Nordic is offline
George Nordic
Модератор
Аватар для George Nordic
Злыдни
 
4,479 / 1250 (50) ++++++++
Регистрация: 17.12.2003
Адрес: Moscow
Записей в блоге: 9
Что-то типа того:
PHP код:
    SalesLineTransfer_FLX   salesLineTransfer;
    
InventDim               inventDimTo;
    
InventJournalName       inventJournalName;
    
InventJournalTable      inventJournalTable;
    
InventJournalTrans      inventJournalTrans;
    
LineNum                 lineNum 0;
    
JournalTableData        journalTableData;
    
JournalTransData        journalTransData;
    
JournalTransMap         journalTrans_last;
    ;

select firstfast firstonly inventJournalName
        where inventJournalName
.JournalNameId   == SalesParameters.SalesLineTransferJournalId_FLX
           
&& inventJournalName.JournalType     == InventJournalType::Transfer;

    if (
inventJournalName.RecId == 0)
    {
        throw 
error("?? ????????? ????? ?????????? ?? ?????? ????????!");
    }

    
ttsbegin;

    
inventJournalTable.clear();
    
inventJournalTable.initValue();
    
inventJournalTable.DeletePostedLines    NoYes::No;
    
inventJournalTable.Description          inventJournalName.Description;
    
inventJournalTable.EmplId               EmplTable::userId2EmplId(curuserid());
    
inventJournalTable.JournalNameId        inventJournalName.JournalNameId;
    
inventJournalTable.JournalType          InventJournalType::Transfer;
    
inventJournalTable.VoucherSeqId         inventJournalName.VoucherSeqId;
    
inventJournalTable.SalesId_FLX          salesTable.SalesId;
    
inventJournalTable.write();

    
journalTableData  JournalTableData::newTable(inventJournalTable);

    while 
select salesLineTransfer
        where salesLineTransfer
.SalesId     == salesTable.SalesId
           
&& salesLineTransfer.Marked      == NoYes::Yes
    
{
        
lineNum += 1;
        
inventDimTo InventDim::findOrCreateInventLocationId(salesLineTransfer.MarkedLocationTo);

        
inventJournalTrans.clear();
        
inventJournalTrans.initFromInventJournalTable(inventJournalTable);
        
journalTransData = new journalTransData(inventJournalTransjournalTableData);
        
inventJournalTrans.LineNum          lineNum;
        
inventJournalTrans.TransDate        systemdateget();
        
inventJournalTrans.ItemId           salesLineTransfer.ItemId;
        
inventJournalTrans.Qty              = -salesLineTransfer.MarkedQty;
        
inventJournalTrans.ToInventDimId    inventDimTo.inventDimId;
        
inventJournalTrans.PriceUnit        1.0;
        
inventJournalTrans.InventTransId    NumberSeq::newGetNum(InventParameters::numRefInventTransId()).num();
        if (
journalTableData.journalVoucherNum() && journalTableData.journalTable().voucherDraw == JournalVoucherDraw::Entering)
            
journalTransData.initVoucher(journalTrans_last.voucher,true);
        
inventJournalTrans.InventDimId      salesLineTransfer.InventDimId;
        
inventJournalTrans.insert();
        if (
inventJournalTrans.recId)
            
journalTrans_last inventJournalTrans.data();
    }

    
inventJournalTable.NumOfLines LineNum;
    
inventJournalTable.write();

    
ttscommit
А как разнести - это уже дело техники (PostJournal)
но я бы это свалил на пользователя... не стал бы автоматом разность.

С Уважением,
Георгий.
За это сообщение автора поблагодарили: Gustav (6).
Старый 11.10.2004, 15:09   #3  
Hamster is offline
Hamster
Участник
 
687 / 13 (2) ++
Регистрация: 15.05.2003
Thanks огромный....

>... не стал бы автоматом разность.
Передача на реализацию... тудыть ее вкачель..
Старый 27.11.2009, 10:38   #4  
kornix is offline
kornix
MCP
MCBMSS
Злыдни
Ex AND Project
 
414 / 146 (5) +++++
Регистрация: 24.02.2009
Адрес: Санкт-Петербург
Я делал через прямую вставку в InventJournalTable и InventJournalTrans.. А поточнее можете сформулировать? Что на входе задачи? :-)
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
как программно создать документ в DocuView алька DAX: Программирование 5 03.04.2007 18:44
Ссылка на разнесенный журнал переноса kvg6 DAX: Функционал 18 03.04.2007 13:48
Как программно создать платежное поручение? AK9 DAX: Программирование 3 13.09.2006 09:37
Журнал переноса - себестоимость Yprit DAX: Функционал 5 16.09.2004 10:59
программно создать таблицу mne2001 DAX: Программирование 40 13.08.2004 15:46
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

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

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 11:22.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.