В данной статье описывается проблема, при применении счета продажи, содержащий нереализованный НДС и отрицательные строки кредит-ноту в итальянской версии Microsoft Dynamics NAV 2009. Эта проблема по-прежнему возникает после реализации исправления KB 2882952.
Выполните действия, описанные в разделе изменения кода , чтобы решить эту проблему. Эта проблема возникает в следующих продуктах:
-
В итальянской версии Microsoft Dynamics NAV 2009 R2
-
В итальянской версии Пакет обновления 1 (SP1) для Microsoft Dynamics NAV 2009 г.
Решение
Сведения об исправлении
Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.
Примечание. В особых случаях оплата, предусмотренная в службу поддержки может быть отменена Если специалист службы технической поддержки Microsoft Dynamics и связанных продуктов определит, что решения проблемы является специально выпущенное. Затраты на обычные услуги службы поддержки будут применяться к дополнительным вопросам и проблемам, которые не охватываются конкретным обновлением.
Сведения об установке
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без явных или подразумеваемых гарантий. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры. Тем не менее они не изменит примеров для обеспечения функциональных возможностей или создания процедур для определенных требований.
Примечание. Перед установкой данного исправления необходимо проверьте регистрацию всех пользователей клиента Microsoft Dynamics NAV выход из системы. Это относится к службам Microsoft Dynamics NAV приложения сервера (NAS). Должен быть только клиент пользователя, который вошел в систему, при реализации данного исправления.
Чтобы реализовать это исправление, необходимо иметь лицензию разработчика.
Рекомендуется, чтобы учетной записи пользователя в окне Логины Windows или в окне Логины базы данных был присвоен идентификатор роли «SUPER» Если учетная запись пользователя не может быть назначена роль «SUPER» идентификатор, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения.
-
Изменение разрешений для объекта, подлежащий изменению.
-
Разрешение Execute для объекта 5210 идентификатор объекта системы и системы 9015 идентификатор объекта
объект.
Примечание. Необходимо иметь права к хранилищам данных, если необходимо выполнить восстановление данных.
Изменения кода
Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы устранить эту проблему, выполните следующие действия:
-
Измените код в ключи в таблице НДС КНИГА операций (254) следующим образом:
Существующий код...KeyGroups=SalesTax }
{ ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
SumIndexFields=Base,Additional-Currency Base;
KeyGroups=VIES_EC }
// Delete the following line.
{ ;Document No.,Posting Date }
// End of the deleted line.
{ ;Transaction No. }
{ ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
KeyGroups=SalesTax }
{ ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...Код для замены
...KeyGroups=SalesTax }
{ ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
SumIndexFields=Base,Additional-Currency Base;
KeyGroups=VIES_EC }
// Add the following line.
{ ;Document No.,Posting Date ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
// End of the added line.
{ ;Transaction No. }
{ ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
KeyGroups=SalesTax }
{ ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
... -
Измените код в функцию GetUnRealizedVATPart в таблице НДС КНИГА операций (254) следующим образом:
Существующий код 1...END;
EXIT(GLSetup."Additional Reporting Currency");
END;
// Delete the following line.
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
// End of the deleted line.
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
BEGIN
IF (Type <> 0) AND
...Код для замены 1
...END;
EXIT(GLSetup."Additional Reporting Currency");
END;
// Add the following line.
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
// End of the added line.
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
BEGIN
IF (Type <> 0) AND
...Существующий код 2
...(("Remaining Unrealized Amount" = 0) AND
("Remaining Unrealized Base" = 0))
THEN
EXIT(0);
// Delete the following lines.
//IF ABS(Paid) = ABS(Full) THEN
// EXIT(1);
CASE UnrealizedVatType OF
UnrealizedVatType::Percentage:
BEGIN
IF Type2 = Type2::Purchase THEN BEGIN
IF (DocType = DocType::"Credit Memo") THEN BEGIN
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
ELSE
EXIT(1)
END;
END
ELSE BEGIN
IF (DocType = DocType::"Credit Memo") THEN BEGIN
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
ELSE
EXIT(1)
END;
END;
// End of the deleted lines.
END;
UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
BEGIN
IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...Код для замены 2
...(("Remaining Unrealized Amount" = 0) AND
("Remaining Unrealized Base" = 0))
THEN
EXIT(0);
// Add the following lines.
IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
THEN BEGIN
VATPart := 1;
EXIT(VATPart);
END;
CASE UnrealizedVatType OF
UnrealizedVatType::Percentage:
IF Type2 = Type2::Purchase THEN BEGIN
TransactionInclPrepmt := FALSE;
IF DocType = DocType::"Credit Memo" THEN BEGIN
IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF PurchInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
EXIT(1);
END;
END ELSE BEGIN
TransactionInclPrepmt := FALSE;
IF DocType = DocType::"Credit Memo" THEN BEGIN
IF SalesInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END;
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1);
EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
END;
IF SalesInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
EXIT(1);
// End of the added lines.
END;
UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
BEGIN
IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
... -
Измените код в функцию SalesInvInclPrepmt в таблице НДС КНИГА операций (254) следующим образом:
Существующий код...EXIT(RemainingAmount - SettledAmount);
EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
END;
BEGIN
END.
}
}
...Код для замены
...EXIT(RemainingAmount - SettledAmount);
EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
END;
// Add the following lines.
LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
VAR
SalesInvLine@1130001 : Record 113;
BEGIN
SalesInvLine.SETRANGE("Document No.",DocNo);
SalesInvLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT SalesInvLine.ISEMPTY);
END;
LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
VAR
SalesCrMemoLine@1130001 : Record 115;
BEGIN
SalesCrMemoLine.SETRANGE("Document No.",DocNo);
SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT SalesCrMemoLine.ISEMPTY);
END;
LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
VAR
PurchInvLine@1130001 : Record 123;
BEGIN
PurchInvLine.SETRANGE("Document No.",DocNo);
PurchInvLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT PurchInvLine.ISEMPTY);
END;
LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
VAR
PurchCrMemoLine@1130001 : Record 125;
BEGIN
PurchCrMemoLine.SETRANGE("Document No.",DocNo);
PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT PurchCrMemoLine.ISEMPTY);
END;
LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
VAR
VATEntry@1130001 : Record 254;
BEGIN
WITH VATEntry DO BEGIN
SETRANGE("Transaction No.",TransactionNo);
IF FINDSET THEN
REPEAT
TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
UNTIL NEXT = 0;
END;
END;
LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
VAR
VATEntry@1130002 : Record 254;
BEGIN
VATEntry.SETCURRENTKEY("Document No.","Posting Date");
VATEntry.SETRANGE("Document No.",DocumentNo);
VATEntry.SETRANGE("Posting Date",PostingDate);
VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
END;
LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
BEGIN
CASE VATType OF
VATType::Purchase:
IF DocumentType = DocumentType::"Credit Memo" THEN
EXIT(PurchCrMemoInclPrepmt(DocumentNo))
ELSE
EXIT(PurchInvInclPrepmt(DocumentNo));
VATType::Sale:
IF DocumentType = DocumentType::"Credit Memo" THEN
EXIT(SalesInvInclPrepmt(DocumentNo))
ELSE
EXIT(SalesCrMemoInclPrepmt(DocumentNo));
END;
END;
// End of the added lines.
BEGIN
END.
}
}
... -
Измените код в функцию CustUnrealizedVAT в общий журнал.-функция строка Post (12) следующим образом:
Существующий код 1...SalesVATUnrealAccount@1010 : Code[20];
LastConnectionNo@1011 : Integer;
TotalPayments@1130000 : Decimal;
Type2@1130001 : 'Sale,Purchase';
BEGIN
PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
...Код для замены 1
...SalesVATUnrealAccount@1010 : Code[20];
LastConnectionNo@1011 : Integer;
TotalPayments@1130000 : Decimal;
Type2@1130001 : 'Sale,Purchase';
// Add the following line.
TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.
BEGIN
PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
...Существующий код 2
...InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Delete the following lines.
VATPart := VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Sale,
CustLedgEntry2."Document Type",
CustLedgEntry2.Open,
CustLedgEntry2.Amount,
CustLedgEntry2."Remaining Amount",
TotalPayments);
// End of the deleted lines.
IF VATPart > 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
VATEntry2."VAT Calculation Type"::"Normal VAT",
...Код для замены 2
...InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Add the following lines.
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Sale,
CustLedgEntry2."Document Type",
CustLedgEntry2.Open,
CustLedgEntry2.Amount,
CustLedgEntry2."Remaining Amount",
TotalPayments,
VATPart,
TransactionInclPrepmt);
// End of the added lines.
IF VATPart > 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
VATEntry2."VAT Calculation Type"::"Normal VAT",
...Существующий код 3
...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// Delete the following line.
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted line.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...Код для замены 3
...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// Add the following lines.
IF TransactionInclPrepmt THEN
TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
ELSE
TotalPayments :=
TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
... -
Измените код в функцию VendUnrealizedVAT в общий журнал.-функция строка Post (12) следующим образом:
Существующий код 1...PurchReverseUnrealAccount@1012 : Code[20];
LastConnectionNo@1013 : Integer;
Type2@1130000 : 'Sale,Purchase';
TotalPayments@1130001 : Decimal;
BEGIN
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...Код для замены 1
...PurchReverseUnrealAccount@1012 : Code[20];
LastConnectionNo@1013 : Integer;
Type2@1130000 : 'Sale,Purchase';
TotalPayments@1130001 : Decimal;
// Add the following line.
TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.
BEGIN
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...Существующий код 2
...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Delete the following lines.
IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
EXIT;
VATPart := VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Purchase,
VendLedgEntry2."Document Type",
VendLedgEntry2.Open,
VendLedgEntry2.Amount,
VendLedgEntry2."Remaining Amount",
TotalPayments);
// End of the deleted lines.
IF VATPart >= 0 THEN BEGIN
IF VATPart <> 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
...Код для замены 2
...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Add the following lines.
IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
(VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
THEN
EXIT;
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Purchase,
VendLedgEntry2."Document Type",
VendLedgEntry2.Open,
VendLedgEntry2.Amount,
VendLedgEntry2."Remaining Amount",
TotalPayments,
VATPart,
TransactionInclPrepmt);
// End of the added lines.
IF VATPart >= 0 THEN BEGIN
IF VATPart <> 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
...Существующий код 3
...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
END;
END;
// Delete the following lines.
VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...Код для замены 3
...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
END;
END;
// Add the following lines.
VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
IF TransactionInclPrepmt THEN
TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
ELSE
TotalPayments :=
TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...
Предварительные условия
Необходимы следующие продукты для установки данного исправления.
-
Итальянский локализации Microsoft Dynamics NAV 2009 R2
-
Локализация итальянского SP1 Microsoft Dynamics NAV 2009 г.
Сведения об удалении
Установленное обновление удалить нельзя.
Статус
Корпорация Майкрософт подтверждает, что это проблема продуктов Майкрософт, перечисленных в разделе "Относится к".
Примечание. Это статья «БЫСТРАЯ ПУБЛИКАЦИЯ», созданная непосредственно из технической поддержки корпорации Майкрософт. Сведения, содержащиеся в настоящем документе, предоставляются "как есть" в ответ на возникающие проблемы. В результате скорости предоставления материалов они могут включать опечаток и быть изменены в любое время без предварительного уведомления. Другие вопросы, связанные с Условиями использованиясм.
