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

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 05.06.2008, 18:05   #9  
glibs is offline
glibs
Member
Сотрудники компании It Box
Most Valuable Professional
Лучший по профессии 2011
Лучший по профессии 2009
 
4,942 / 911 (40) +++++++
Регистрация: 10.06.2002
Адрес: I am from Kyiv, Ukraine. Now I am in Moscow. For private contacts: glibs@hotmail.com
Вот такая связь...

X++:
server static LedgerAccount account(
    InventAccountType   accountType,
    CustVendAC          accountNum,
    CustVendGroupId     accountGroup,
    TaxGroup            taxGroup
    )
{
    Counter                 i = 0;
    Integer                 maxOutcome= enumcnt(TableGroupAll);
    InventPosting           inventLedger;
    CustVendRel             accountRelation;
    TaxGroup                testTaxGroup;
    Integer                 taxQty;
    Counter                 taxI;
    InventPostingParameters inventPostingParameters = InventPostingParameters::find();

    if (! accountGroup)
        accountGroup = InventPosting::accountGroup(accountType,accountNum);

    if (!taxGroup)
        taxI = 2;
    else
        taxI = inventPostingParameters.taxCodeRelationEnabled()? 1 : 2;

    while (taxI  <= taxQty)
    {
        if (taxI  == 1)
            testTaxGroup   = taxGroup;
        else
            testTaxGroup   = '';

        while (i < maxOutcome)
        {
            if (inventPostingParameters.accountRelationEnabled(i))
            {
                accountRelation= InventPosting::accountRelation(i,accountNum,accountGroup);
                select firstonly inventLedger
                    index hint ItemIdx
                    where inventLedger.InventAccountType    == accountType          &&
                          inventLedger.CustVendCode         == i                    &&
                          inventLedger.CustVendRelation     == accountRelation      &&
                          inventLedger.ItemCode             == TableGroupAll::All   &&
                          inventLedger.ItemRelation         == ''                   &&
                          inventLedger.TaxGroupId           == testTaxGroup;

                if (inventLedger.LedgerAccountId)
                    return inventLedger.LedgerAccountId;
            }

            i += 1;
        }

        taxI  += 1;
    }

    return '';
}
Ну кто вам поставил задачу... (крик души).
__________________
С уважением,
glibs®
 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
SalesPrices и PriceDiscTable Rimantas DAX: Программирование 9 29.03.2007 17:33
InventPosting ald DAX: Функционал 5 18.08.2004 18:31

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

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

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