Сообщение об ошибке "Предоплата должна быть no in Cust. Ledger Entry No.='[XXXX]'" при отмене применения примененного платежа или возврата средств, которые были размещены в качестве предоплаты в версии Microsoft Dynamics NAV 2009 R2 для Восточной Европы

Применяется к

Microsoft Dynamics NAV 2009 R2

Эта статья относится к Microsoft Dynamics NAV для языкового стандарта восточноевропейского (ee) языка.

Проблема

Предположим, что в версии Microsoft Dynamics NAV 2009 R2 для оплаты или возврата средств создается журнал квитанций об оплате или возврате денежных средств. Вы публикуете журнал наличных квитанций в качестве предоплаты. В этом случае при запуске функции Unapply Entries для примененного платежа или возврата средств появляется следующее сообщение об ошибке:

Примечание

Предоплата должна иметь значение No в Cust. Запись реестра No.='XXXX'.

Решение

Сведения об исправлении

Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащей это исправление.

Примечание. В особых случаях плата, которая обычно взимается за звонки в службу поддержки, может быть отменена, если специалист по технической поддержке Microsoft Dynamics и связанных продуктов определит, что конкретное обновление поможет устранить вашу проблему. Обычные расходы на поддержку будут применяться к дополнительным вопросам и проблемам поддержки, которые не относятся к конкретному обновлению.

Сведения об установке

Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями.

Примечание. Перед установкой этого исправления убедитесь, что все пользователи клиента Microsoft Navision вышли из системы. Сюда входят пользователи клиентов Служб приложений Microsoft Navision (NAS). Вы должны быть единственным пользователем клиента, который вошел в систему при реализации этого исправления.

Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.

Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:

Разрешение Изменить для объекта, который вы будете изменять.
Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.

Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.

Изменения кода

Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:

Измените код в функции UnapplyCustLedgEntry в gen. Jnl.-Post Line codeunit (12) следующим образом:
Существующий код 1

...
NextDtldLedgEntryEntryNo := DtldCustLedgEntry2."Entry No." + 1;
DtldCustLedgEntry2.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN
DtldCustLedgEntry2.SETRANGE("Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldCustLedgEntry."Transaction No.")

ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.");
DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
DtldCustLedgEntry2.SETRANGE("Entry Type",DtldCustLedgEntry."Entry Type"::Application);
DtldCustLedgEntry2.FINDSET;
...

Код замены 1

...
NextDtldLedgEntryEntryNo := DtldCustLedgEntry2."Entry No." + 1;
DtldCustLedgEntry2.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." < DtldCustLedgEntry."Transaction No." THEN

DtldCustLedgEntry2.SETRANGE("Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldCustLedgEntry."Transaction No.")

// Add the following lines. 
ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.")
// End of the lines. 

ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.");
DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
DtldCustLedgEntry2.SETRANGE("Entry Type",DtldCustLedgEntry."Entry Type"::Application);
DtldCustLedgEntry2.FINDSET;
...

Существующий код 2

...
IF DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::Application THEN
PrepareAdvCustUnapply(
DtldCustLedgEntry2."Cust. Ledger Entry No.",TempCustLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplCustLedgEntryNo,CurrencyCode);
...

Код замены 2

...
IF DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::Application THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

PrepareAdvCustUnapply(
DtldCustLedgEntry2."Cust. Ledger Entry No.",TempCustLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplCustLedgEntryNo,CurrencyCode);
...

Существующий код 3

...
NegativeLCYAppAmt := NegativeLCYAppAmt + DtldCVLedgEntryBuf."Amount (LCY)";
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::Payment) THEN
SalesPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
END;
...

Код замены 3

...
NegativeLCYAppAmt := NegativeLCYAppAmt + DtldCVLedgEntryBuf."Amount (LCY)";
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::Payment) THEN
SalesPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
END;
...

Измените код в функции AutoEntrForDtldCustLedgEntries в gen. Jnl.-Post Line codeunit (12) следующим образом:
Существующий код

...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

Код замены

...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

// Add the following line. 
BEGIN

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

// Add the following lines. 
END;
SalesPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf); // EAST0001
// End of the lines. 

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

Измените код в функции UnapplyVendLedgEntry в gen. Jnl.-Post Line codeunit (12) следующим образом:
Существующий код 1

...
DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN
DtldVendLedgEntry2.SETRANGE(
"Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldVendLedgEntry."Transaction No.")
ELSE
DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
...

Код замены 1

...
DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

// Add the following line.
IF GenJnlLine."Prepmt. Appl. Transaction No." < DtldVendLedgEntry."Transaction No." THEN

DtldVendLedgEntry2.SETRANGE(
"Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldVendLedgEntry."Transaction No.")
ELSE

// Add the following lines. 
DtldVendLedgEntry2.SETRANGE(
"Transaction No.", DtldVendLedgEntry."Transaction No.", GenJnlLine."Prepmt. Appl. Transaction No.")
ELSE
// End of the lines. 

DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
...

Существующий код 2

...
IF DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::Application THEN
PrepareAdvVendUnapply(
DtldVendLedgEntry2."Vendor Ledger Entry No.",TempVendLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplVendLedgEntryNo,CurrencyCode);
UNTIL DtldVendLedgEntry2.NEXT = 0;
...

Код замены 2

...
IF DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::Application THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

PrepareAdvVendUnapply(
DtldVendLedgEntry2."Vendor Ledger Entry No.",TempVendLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplVendLedgEntryNo,CurrencyCode);
UNTIL DtldVendLedgEntry2.NEXT = 0;
...

Существующий код 3

...
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
END;
IF NOT SkipCollectAmount THEN
IF NOT (DtldCVLedgEntryBuf."Entry Type" IN [
...

Код замены

...
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;

// Add the following lines. 
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
VendLedgEntry.GET(DtldVendLedgEntry2."Vendor Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (VendLedgEntry."Document Type" = VendLedgEntry."Document Type"::Payment) THEN
PurchPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
// End of the lines. 

END;
IF NOT SkipCollectAmount THEN
IF NOT (DtldCVLedgEntryBuf."Entry Type" IN [
...

Измените код в функции AutoEntrForDtldVendLedgEntries в gen. Jnl.-Post Line codeunit (12) следующим образом:
Существующий код

...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:
IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

Код замены

...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

// Add the following line.
BEGIN

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

// Add the following lines. 
END;
PurchPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf);
// End of the lines. 

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

Измените код в функции PostUnApplyCustomer в CustEntry-Apply Posted Entries codeunit (226) следующим образом:
Существующий код 1

...
DtldCustLedgEntry.LOCKTABLE;
CustLedgEntry.LOCKTABLE;
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");

// Delete the following line. 
CustLedgEntry.TESTFIELD(Prepayment,FALSE); // EAST0001

CheckPostingDate(PostingDate,'',0);
IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
ERROR(Text003,
...

Код замены 1

...
DtldCustLedgEntry.LOCKTABLE;
CustLedgEntry.LOCKTABLE;
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
CheckPostingDate(PostingDate,'',0);
IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
ERROR(Text003,
...

Существующий код 2

...
CustLedgEntry.TABLECAPTION,
DtldCustLedgEntry."Cust. Ledger Entry No.",
CustLedgEntry.FIELDCAPTION("Transaction No."));

// Delete the following line. 
DtldCustLedgEntry.TESTFIELD(Advance,FALSE);

GetPrepmtApplTransNo(DtldCustLedgEntry."Cust. Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
...

Код замены 2

...
CustLedgEntry.TABLECAPTION,
DtldCustLedgEntry."Cust. Ledger Entry No.",
CustLedgEntry.FIELDCAPTION("Transaction No."));

// Add the following line.
DtldCustLedgEntry.TESTFIELD(Advance,CustLedgEntry.Prepayment);

GetPrepmtApplTransNo(DtldCustLedgEntry."Cust. Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
...

Измените код в функции GetPrepmtApplTransNo в CustEntry-Apply Posted Entries codeunit (226) следующим образом:
Существующий код

...
CustLedgEntry.GET(CustLedgEntryNo);

// Delete the following lines. 
IF NOT CustLedgEntry.Prepayment AND
(CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance)
THEN BEGIN
TransactionNo := CustLedgEntry."Transaction No." - 1;
END;
// End of the lines.
...

Код замены

...
CustLedgEntry.GET(CustLedgEntryNo);

// Add the following lines. 
IF CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance THEN
IF CustLedgEntry.Prepayment THEN BEGIN
CustLedgEntry.SETCURRENTKEY("Transaction No.");
CustLedgEntry.SETRANGE("Transaction No.",CustLedgEntry."Transaction No." + 1);
IF CustLedgEntry.FINDFIRST THEN
IF NOT CustLedgEntry.Prepayment AND (CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance) THEN
TransactionNo := CustLedgEntry."Transaction No.";
END ELSE
TransactionNo := CustLedgEntry."Transaction No." - 1;
// End of the lines. 
...

Измените код функции PostUnApplyVendor в VendEntry-Apply Posted Entries codeunit (227) следующим образом:
Существующий код

...
DtldVendLedgEntry."Vendor Ledger Entry No.",
VendLedgEntry.FIELDCAPTION("Transaction No."));

// Delete the following line. 
DtldVendLedgEntry.TESTFIELD(Advance,FALSE);

GetPrepmtApplTransNo(DtldVendLedgEntry."Vendor Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No."); 
END;
UNTIL DtldVendLedgEntry.NEXT = 0;
...

Код замены

...
DtldVendLedgEntry."Vendor Ledger Entry No.",
VendLedgEntry.FIELDCAPTION("Transaction No."));

// Add the following line. 
DtldVendLedgEntry.TESTFIELD(Advance, VendLedgEntry.Prepayment);

GetPrepmtApplTransNo(DtldVendLedgEntry."Vendor Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldVendLedgEntry.NEXT = 0;
...

Измените код в функции GetPrepmtApplTransNo в VendEntry-Apply Posted Entries codeunit (227) следующим образом:
Существующий код

...
// Delete the following lines.
VendLedgEntry.GET(VendLedgEntryNo);
IF NOT VendLedgEntry.Prepayment AND
(VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance)
THEN BEGIN
TransactionNo := VendLedgEntry."Transaction No." - 1;
END;
// End of the lines.
...

Код замены

...
// Add the following lines.
VendLedgEntry.GET(VendLedgEntryNo);
IF VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance THEN
IF VendLedgEntry.Prepayment THEN BEGIN
VendLedgEntry.SETCURRENTKEY("Transaction No.");
VendLedgEntry.SETRANGE("Transaction No.", VendLedgEntry."Transaction No." + 1);
IF VendLedgEntry.FINDFIRST THEN
IF NOT VendLedgEntry.Prepayment AND (VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance) THEN
TransactionNo := VendLedgEntry."Transaction No.";
END ELSE
TransactionNo := VendLedgEntry."Transaction No." - 1;
// End of the lines. 
...

Добавьте новую глобальную переменную в Purchase-Post Advances codeunit (26586), а затем укажите переменную следующим образом:
- Имя: TempAdvanceLink
- DataType: Record
- Подтип: Advance Link

Создайте функцию InsertTempApplnAdvanceLink в Purchase-Post Advances codeunit (26586) следующим образом:

PROCEDURE InsertTempApplnAdvanceLink@1470034(DtldEntryBufEntryNo@1470002 : Integer);
BEGIN
TempAdvanceLink.INIT;
TempAdvanceLink."Entry No." := DtldEntryBufEntryNo;
TempAdvanceLink.INSERT;
END;

Создайте функцию InsertApplnAdvanceLink в коде Purchase-Post Advances (26586) следующим образом:

PROCEDURE InsertApplnAdvanceLink@140049(DtldCVLedgEntryBuf@1102601000 : Record 383);
VAR
AdvanceLink@1470001 : Record 26590;
BEGIN
WITH AdvanceLink DO BEGIN
IF TempAdvanceLink.GET(DtldCVLedgEntryBuf."Entry No.") THEN BEGIN
IF FINDLAST THEN
NextLinkEntryNo := AdvanceLink."Entry No." + 1
ELSE
NextLinkEntryNo := 1;
INIT;
"Entry No." := NextLinkEntryNo;
"Entry Type" := "Entry Type"::Application;
"Document No." := DtldCVLedgEntryBuf."Document No.";
"CV Ledger Entry No." := DtldCVLedgEntryBuf."Cust. Ledger Entry No.";
Amount := DtldCVLedgEntryBuf.Amount;
"Amount (LCY)" := DtldCVLedgEntryBuf."Amount (LCY)";
INSERT;
TempAdvanceLink.DELETE;
END;
END;
END;

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

Чтобы применить это исправление, необходимо установить версию Microsoft Dynamics NAV 2009 R2 для Восточной Европы.

Сведения об удалении

Удалить это исправление невозможно.

Дополнительные сведения

Дополнительные сведения об исправлении 2543219, щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:

2543219 Вы не можете обработать переплаченную предоплату, как ожидалось в восточно-европейской версии Microsoft Dynamics NAV 2009 R2

Состояние

Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».

Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .

Проблема

Решение

Сведения об исправлении

Сведения об установке

Изменения кода

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

Сведения об удалении

Дополнительные сведения

Состояние

Полезны ли эти сведения?

Спасибо за ваш отзыв!