Създава се непълна фактура за продажби, когато изпълните функцията "Създаване на фактура за продажби" върху елементи, които използват разширен текст в диалоговия прозорец "Редове за планиране на задачи" в Microsoft Dynamics NAV 2009

Отнася се за

Dynamics NAV 2009

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

Симптоми

Да предположим, че имате няколко елемента, които използват разширени текстове в Microsoft Dynamics NAV 2009. Когато изпълните функцията "Създаване на фактура за продажби " за елементите в диалоговия прозорец " Редове за планиране на задачи ", се създава непълна фактура за продажби.
Този проблем възниква, когато е включен елемент, в който е избрано квадратчето за отметка "Блокирани ".

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Решение

Информация за горещи поправки

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

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

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

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

Забележка Преди да инсталирате тази гореща корекция, уверете се, че всички потребители на клиента на Microsoft Navision са излезли от системата. Това включва потребители на клиенти на Microsoft Navision Application Services (NAS). Когато внедрявате тази гореща корекция, трябва да сте единственият клиентски потребител е влязъл.

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

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

Разрешението за промяна за обекта, който ще променяте.
Разрешението за изпълнение за обекта 5210 на системен обект с ИД 5210 и за обекта 9015 на системен обект.

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

Промени в кода

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

Променете кода във функцията InsertExtendedText във формуляра "Подформуляр за поръчка за продажба" (46) по следния начин:
Съществуващ код

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertExtendedText във формуляра "Подформуляр за фактура за продажби" (47) по следния начин:
Съществуващ код

PROCEDURE InsertExtendedText@7(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@7(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertExtendedText във формуляра за подформуляр "Оферти за продажби" (95), както следва:
Съществуващ код

PROCEDURE InsertExtendedText@4(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@4(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertExtendedText във формуляра на подформуляра Sales Cr. Memo (96) по следния начин:
Съществуващ код

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertExtendedText във формуляра "Blanket Sales Order Subform" (508) по следния начин:
Съществуващ код

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertExtendedText във формуляра "Подформуляр за поръчка за връщане на продажби" (6631) по следния начин:
Съществуващ код

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Код за подмяна

PROCEDURE InsertExtendedText@5(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;

// Add the following line.
COMMIT;

TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;

Променете кода във функцията InsertSalesExtText в кодовата единица за прехвърляне на разширен текст (378), както следва:
Съществуващ код

PROCEDURE InsertSalesExtText@2(VAR SalesLine@1000 : Record 37);
VAR
ToSalesLine@1001 : Record 37;
BEGIN

// Delete the following line.
COMMIT;

ToSalesLine.RESET;
ToSalesLine.SETRANGE("Document Type",SalesLine."Document Type");
ToSalesLine.SETRANGE("Document No.",SalesLine."Document No.");
ToSalesLine := SalesLine;
IF ToSalesLine.FIND('>') THEN BEGIN

Код за подмяна

PROCEDURE InsertSalesExtText@2(VAR SalesLine@1000 : Record 37);
VAR
ToSalesLine@1001 : Record 37;
BEGIN
ToSalesLine.RESET;
ToSalesLine.SETRANGE("Document Type",SalesLine."Document Type");
ToSalesLine.SETRANGE("Document No.",SalesLine."Document No.");
ToSalesLine := SalesLine;
IF ToSalesLine.FIND('>') THEN BEGIN

Предварителни изисквания

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

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

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

Състояние

Microsoft потвърждава, че това е проблем в продуктите на Microsoft, които са изброени в раздела „Важи за“.

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

Симптоми

Решение

Информация за горещи поправки

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

Промени в кода

Предварителни изисквания

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

Състояние

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

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