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

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 05.11.2004, 19:04   #1  
Hamster is offline
Hamster
Участник
 
687 / 13 (2) ++
Регистрация: 15.05.2003
ledgerAccount _pr;
LedgerJournalTable _ljt;
LedgerJournalEngine ledgerJournalEngine;
ledgerJournalTrans _ljtr;
Args postArgs = new Args();
;
// looking for PurchReceipt account
_pr = InventPosting::item(InventAccountType::PurchReceipt,this.ItemId);
if (! _pr) throw error("Íå çàäàí ñ÷åò Ïðèõîä ïî çàêóïêå");

// create journal
_ljt = null;
_ljt.selectForUpdate();
_ljt.clear();
_ljt.initValue();
_ljt.JournalName = SalesParameters::find().PassToAgentJournalNameSec_W;
if (! _ljt.JournalName) throw error("Íå çàäàí æóðíàë 2-õ âàë. ñêëàäà â ïàðàìåòðàõ ìîäóëÿ Ðàññ÷åòû ñ êëèåíòàìè");
_ljt.Name = "Ïåðåäà÷à íà ðåàëèçàöèþ (2-õ âàë. ñêëàä)";
_ljt.CurrencyCode = companyinfo::secondaryCurrency_RU();
_ljt.CurrentOperationsTax = CurrentOperationsTax::WarehouseCur_RU;
_ljt.insert();
ledgerJournalEngine = new BMLedgerJournalEngine(null);
ledgerJournalEngine.newJournalActive(_lJT);
if (_ljt.CurrentOperationsTax != CurrentOperationsTax::WarehouseCur_RU) throw error("Íåïðàâèëüíûé òèï ó÷åòà â æóðíàëå " +_ljt.JournalName);

// create journal lines
_ljtr = null;
_ljtr.selectForUpdate();
_ljtr.clear();
_ljtr.initValue();
_ljtr.journalNum = _lJT.journalNum;
ledgerJournalEngine.numberSeqFormHandlerJournal().parmLedgerJournalTrans(_lJTr);
ledgerJournalEngine.formMethodDataSourceCreatePost();
ledgerJournalEngine.initValue(_lJTr);

// fill journal lines
_ljtr.CurrencyCode = companyinfo::secondaryCurrency_RU();
_ljtr.TransDate = this.PassToAgentDate_W;
_ljtr.AccountType = LedgerJournalACType::Ledger;
_ljtr.AccountNum = _pr;
_ljtr.OffsetAccountType = LedgerJournalACType::Ledger;
_ljtr.OffsetAccount = InventPostingBrokerage::LedgerAccount(this.ItemId);
[_ljtr.AmountCurCredit,_ljtr.ExchRate] = this.GetAmountAndRateForJournalMain();
if ( _ljtr.AmountCurCredit < 0.01) throw error("Íåò ñåáåñòîèìîñòè â âàëþòå " + companyinfo::secondaryCurrency_RU());
_ljtr.ExchRate = 0;

_ljtr.Dimension = this.Dimension;

// write journal lines
_lJTr.validateWrite();
ledgerJournalEngine.preWrite(_lJTr);
ledgerJournalEngine.formMethodDataSourceWritePre();
_lJTr.write();
ledgerJournalEngine.write(_lJTr);

// post journal now...
postArgs.record(_lJT);
postArgs.caller(NULL);
postArgs.parmEnum(0);
LedgerJournalPost::main(postArgs);

return _ljt.JournalNum;
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Обработка счет-фактуры поставщика из общего журнала ГК nmariya DAX: Функционал 2 05.06.2008 17:08
Создание нового журнала Brute DAX: Программирование 8 30.06.2006 17:30
Создание нового типа журнала в Управлении запасами vasiliy DAX: Программирование 2 03.11.2005 14:46
Создание журнала инвентаризации Sanya DAX: Функционал 6 19.08.2005 17:06
Создание нового пакета журнала gam DAX: Функционал 4 01.03.2005 10:10
Опции темы Поиск в этой теме
Поиск в этой теме:

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

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

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

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