Отстъпка се изчислява неочаквано, когато фактура в Microsoft Dynamics NAV 2009

Шаблон: CPR - шаблон за корекция на Navision код

ГРЕШКА #: 195038 (поддръжка на съдържанието)

В тази статия се отнася за Microsoft Dynamics NAV за всички държави и всички езикови местоположения.

Симптоми

Когато използвате метод на плащане и балансирана акаунт за публикуване на фактура в Microsoft Dynamics NAV 2009, отстъпка се изчислява въпреки че датата е закъснение.

Този проблем възниква в следните продукти:

  • Microsoft Dynamics NAV 2009 Service Pack 1

  • Microsoft Dynamics NAV 2009 R2


Решение

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, който ще съдържа тази корекция.

Забележка: При специални случаи таксите, които се начисляват за свързани с поддръжката обаждания могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързани с тях продукти определя, че конкретна актуализация може да разреши проблема. Обичайните такси за поддръжката ще важат за допълнителни въпроси и проблеми, които не спадат към съответната актуализация.

Ако тази актуална корекция не е предоставена за публично изтегляне (което означава, в тази статия не е предоставен публичен URL адрес за нея), разпространението изисква техническо ръководство, одобрение от ръководител или член на екипа и се прилага следната информация:

  • За да получат поправката, потребителите трябва да са се натъкнали, споменато в раздела "Симптоми".

  • Трябва да регистрирате потребителите да изпращате и да ги снабдите със следващия сервизен пакет, когато той се появи (ако е издаден такъв).

Тази актуална корекция не се планира включването й в сервизен пакет на Microsoft Dynamics NAV.

Информация за инсталирането

Microsoft предоставя примери само за илюстративни цели без гаранция за определени цели. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат обяснение на функциите на конкретна процедура. Въпреки това те няма да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания.

Забележка: Преди да инсталирате тази актуална корекция, уверете се, че всички потребители на клиента на Microsoft Dynamics NAV са излезли от системата. Това включва и услуги на Microsoft Dynamics NAV приложение сървър (NAS). Трябва да бъде само клиент потребител, който е влязъл при прилагане на тази актуална корекция.

За прилагане на тази актуална корекция, трябва да имате лиценз разработчик.

Препоръчително е потребителският акаунт в прозореца влизания в Windows или в прозореца на БД присвояването на "Супер" ИД на роля. Ако потребителският акаунт не може да бъде възложена ИД на роля на "Супер", трябва да проверите, че потребителският акаунт има следните права:

  • Разрешение за промяна на обекта, ще се променя.

  • Разрешението за изпълнение за системата обект номер 5210 обект и системата обект ID 9015

    обект.

Забележка: Не трябва да имате права на съхранените данни, освен ако трябва да извършите възстановяване на данни.

Промени код

Забележка: Винаги тест код решава в управлявана среда преди да приложите корекциите производство компютри.

За да разрешите този проблем, изпълнете следните стъпки:

  1. В PostCust функция в общ журнал. промени-Post линия кодова единица (12) както следва:
    Съществуващ код 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN
    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    Замени код 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
    IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
    (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ...

    Съществуващ код 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");
    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...

    Замени код 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");

    // Add the following line.
    END;
    // End of the added line.

    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...
  2. В PostVend функция в общ журнал. промени-Post линия кодова единица (12) както следва:
    Съществуващ код 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN
    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    Замени код 1

    ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
    CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
    CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;

    IF "Amount (LCY)" <> 0 THEN BEGIN

    // Add the following lines.
    IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
    (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
    // End of the added lines.

    IF GLSetup."Pmt. Disc. Excl. VAT" THEN
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
    ELSE
    CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
    ...

    Съществуващ код 2

    ...
    CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");
    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...

    Замени код 2

    ...CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
    ROUND(
    CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
    Currency."Amount Rounding Precision");

    // Add the following line.
    END;
    // End of the added line.

    CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
    END;

    IF "Currency Code" <> '' THEN BEGIN
    TESTFIELD("Currency Factor");
    ...


Необходими условия:

Трябва да имате един от следните продукти, за да приложите тази спешна корекция:

  • Microsoft Dynamics NAV 2009 Service Pack 1

  • Microsoft Dynamics NAV 2009 R2

Информация за премахване

Не можете да премахнете тази актуална корекция.

Статус

Microsoft потвърждава, че това е проблем в продуктите на Microsoft, изброени в раздела "Отнася се за".

Препратки

VSFT DynamicsNAVSE: 346195

Забележка: Това е статия "Бърза публикация", създадени директно от организацията за поддръжка на Microsoft. Информацията тук се предоставя "както-е" в отговор на появили се проблеми. В резултат на скоростта на предоставянето му материалите могат да съдържат печатни грешки и могат да бъдат коригирани по всяко време без предизвестие. Вижте Условияза други съображения.

Автор: v-angunt
Writer: v-six
Tech Reviewer:andregu
Editor:

Нуждаете се от още помощ?

Разширете уменията си
Преглед на обучението
Получавайте първи новите функции
Присъединете се към Microsoft приобщени

Беше ли полезна тази информация?

Доколко сте доволни от качеството на превода?

Какво е повлияло на вашия потребителски опит?

Имате ли допълнителна обратна връзка? (по избор)

Благодарим ви за обратната връзка!

×