У цій статті стосуються Microsoft Dynamics NAV у мовних параметрах в Португальська (Португалія).
Причини
При спробі надіслати грошові надходження журнал рахунку-фактури і скасування рахунок у той же час у версії Microsoft Dynamics NAV, 2009 португальською, усі записи додано Головна книга Опубліковано за допомогою облікового запису відхилення рахунків. Однак слід використовувати обліковий запис дебіторська заборгованість за рахунок і запис відхилено рахунків, слід використовувати для скасування документа. Ця проблема виникає в таких продуктів:
-
Португальський версії Microsoft Dynamics NAV 2009-R2
-
Португальський версії Microsoft Dynamics NAV 2009 року з пакетом оновлень 1
Вирішення
Відомості про виправлення
Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.
Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.
Відомості про інсталяцію
Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що усі користувачі Microsoft Navision-клієнт відключився системи. Пакет оновлень містить служб Microsoft Navision застосунків (NAS) клієнта користувачів. Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.
Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.
Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:
-
Змінити дозвіл об'єкт, який буде змінити.
-
Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт а також системи об'єкт з Ідентифікатором 9015 об'єкта.
Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.
Зміни коду
Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, змін у полі генералом Jnl.-повідомлення рядка, codeunit (12). Щоб це зробити, виконайте такі дії:
-
Додайте наведену нижче глобальну змінну.
TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;
-
Змінити код функції PostCust наступним чином:
Наявний код 1... DiscRiskFactAmountLCY := 0;
DiscUnriskFactAmountLCY := 0;
CollFactAmountLCY := 0;
//--------
IF Cust."No." <> "Account No." THEN
Cust.GET("Account No.");
Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);
IF "Posting Group" = '' THEN BEGIN
...Код на заміну 1
... DiscRiskFactAmountLCY := 0;
DiscUnriskFactAmountLCY := 0;
CollFactAmountLCY := 0;
//--------
// Add the following lines.
TempRejCustLedgEntry.RESET;
TempRejCustLedgEntry.DELETEALL;
// End of the lines.
IF Cust."No." <> "Account No." THEN
Cust.GET("Account No.");
Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);
IF "Posting Group" = '' THEN BEGIN
...Наявний код 2
... END;
// Post the application
ApplyCustLedgEntry(
CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");
// Delete the following lines.
IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.
IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
IF "Document Type" = "Document Type"::Bill THEN BEGIN
DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
...Код на заміну 2
... END;
// Post the application
ApplyCustLedgEntry(
CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");
// Add the following lines.
IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
"Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.
IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
IF "Document Type" = "Document Type"::Bill THEN BEGIN
DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
... -
Змінити код функції PostVend наступним чином:
Наявний код... // Post the application
ApplyVendLedgEntry(
CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
GLSetup."Appln. Rounding Precision");
// Delete the following lines.
IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.
IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
IF "Document Type" = "Document Type"::Bill THEN BEGIN
DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
...Заміна код
... // Post the application
ApplyVendLedgEntry(
CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
GLSetup."Appln. Rounding Precision");
// Add the following lines.
IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
"Applies-to Doc. Type" := AppliesToDocType;
// End of the lines.
IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
IF "Document Type" = "Document Type"::Bill THEN BEGIN
DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
... -
Змінити код функції ApplyCustLedgEntry наступним чином:
Наявний код... OldCustLedgEntry."Document Situation"::"Closed Documents",
OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
FromClosedDoc := TRUE
ELSE
FromClosedDoc := FALSE;
DocPost.UpdateReceivableDoc(
OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
END;
...Заміна код
... OldCustLedgEntry."Document Situation"::"Closed Documents",
OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
FromClosedDoc := TRUE
ELSE
FromClosedDoc := FALSE;
// Add the following lines.
IF OldCustLedgEntry."Document Status" = OldCustLedgEntry."Document Status"::Rejected THEN BEGIN
TempRejCustLedgEntry := OldCustLedgEntry;
TempRejCustLedgEntry."Remaining Amount (LCY) stats." := AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY;
TempRejCustLedgEntry.INSERT;
END;
// End of the lines.
DocPost.UpdateReceivableDoc(
OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
END;
... -
Змінити код функції PostDtldCustLedgEntries наступним чином:
Наявний код... AccNo := CustPostingGr."Bills Account";
END ELSE BEGIN
CustPostingGr.TESTFIELD("Receivables Account");
AccNo := CustPostingGr."Receivables Account";
END;
// Delete the following lines.
IF DiscDocAmountLCY <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Discted. Bills Acc.");
AccNo := CustPostingGr."Discted. Bills Acc.";
END;
IF CollDocAmountLCY <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Bills on Collection Acc.");
AccNo := CustPostingGr."Bills on Collection Acc.";
END;
IF RejDocAmountLCY <> 0 THEN BEGIN
CASE GenJnlLine."Applies-to Doc. Type" OF
GenJnlLine."Applies-to Doc. Type"::Bill:
BEGIN
CustPostingGr.TESTFIELD("Rejected Bills Acc.");
AccNo := CustPostingGr."Rejected Bills Acc.";
END;
GenJnlLine."Applies-to Doc. Type"::Invoice:
BEGIN
CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
AccNo := CustPostingGr."Rejected Factoring Acc.";
END;
ELSE
IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
(OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
CASE OldCVLedgEntryBuf4."Document Type" OF
OldCVLedgEntryBuf4."Document Type"::Bill:
BEGIN
CustPostingGr.TESTFIELD("Receivables Account");
AccNo := CustPostingGr."Receivables Account";
END;
OldCVLedgEntryBuf4."Document Type"::Invoice:
BEGIN
CustPostingGr.TESTFIELD("Receivables Account");
AccNo := CustPostingGr."Receivables Account";
END;
END;
END;
END;
END;
IF (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) THEN BEGIN
CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
AccNo := CustPostingGr."Factoring for Discount Acc.";
END;
IF CollFactAmountLCY <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Factoring for Collection Acc.");
AccNo := CustPostingGr."Factoring for Collection Acc.";
END;
// End of the lines.
ReceivableAccAmtLCY :=
TotalAmountLCY -
(DocAmountLCY + DiscDocAmountLCY +
CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
...Заміна код
... AccNo := CustPostingGr."Bills Account";
END ELSE BEGIN
CustPostingGr.TESTFIELD("Receivables Account");
AccNo := CustPostingGr."Receivables Account";
END;
ReceivableAccAmtLCY :=
TotalAmountLCY -
(DocAmountLCY + DiscDocAmountLCY +
CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
... -
Змінити код функції PostReceivableDocs наступним чином:
Наявний код... GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
IF RejDocAmountLCY <> 0 THEN BEGIN
// Delete the following lines.
CASE GenJnlLine."Applies-to Doc. Type" OF
GenJnlLine."Applies-to Doc. Type"::Bill:
BEGIN
CustPostingGr.TESTFIELD("Rejected Bills Acc.");
InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
GenJnlLine."Applies-to Doc. Type"::Invoice:
BEGIN
CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
ELSE
IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
(OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
CASE OldCVLedgEntryBuf4."Document Type" OF
OldCVLedgEntryBuf4."Document Type"::Bill:
BEGIN
CustPostingGr.TESTFIELD("Rejected Bills Acc.");
InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
OldCVLedgEntryBuf4."Document Type"::Invoice:
BEGIN
CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE
);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
END;
END;
// End of the lines.
END;
END;
IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
...Заміна код
... GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
IF RejDocAmountLCY <> 0 THEN BEGIN
// Add the following lines.
WITH TempRejCustLedgEntry DO BEGIN
RESET;
SETCURRENTKEY("Customer No.","Document Type","Document Situation","Document Status");
SETRANGE("Document Type","Document Type"::Bill);
CALCSUMS("Remaining Amount (LCY) stats.");
IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Rejected Bills Acc.");
InitGLEntry(
CustPostingGr."Rejected Bills Acc.","Remaining Amount (LCY) stats.",
DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
SETRANGE("Document Type","Document Type"::Invoice);
CALCSUMS("Remaining Amount (LCY) stats.");
IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
InitGLEntry(
CustPostingGr."Rejected Factoring Acc.","Remaining Amount (LCY) stats.",
DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
InsertGLEntry(TRUE);
END;
// End of the lines.
END;
END;
IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
...
Попередні вимоги
Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:
-
Португальський версії Microsoft Dynamics NAV 2009-R2
-
Португальський версії Microsoft Dynamics NAV 2009 року з пакетом оновлень 1
Відомості про видалення
Це виправлення не можна видалити.
Стан
Корпорація Майкрософт підтвердила існування цієї неполадки у продуктах Майкрософт, перелічених у розділі "Застосовується до".
Примітка. Це "Швидка публікація" статті, надана службою підтримки корпорації Майкрософт. Відомості в цій статті надано без змін у відповідь на повідомлення про проблеми. З огляду на швидкість публікації матеріали можуть містити орфографічні помилки. Їх може бути змінено в будь-який час без повідомлення. Щоб отримати додаткові відомості, див. Умови використання.