Причини
Після інсталяції останньої версії списку рахунків обліковий запис для постачальників звіт, чи стосується транзакцію платежу, пов'язані з рахунку-фактури і опублікувати її в Італійська версія Microsoft Dynamics NAV, 2009, звіт рахунків-списку постачальників обліковий запис не відображається оплати. Відображається лише рахунку-фактури ближче. Виконайте дії, описані в розділі зміни коду , щоб вирішити цю проблему. Ця проблема виникає в таких продуктів:
-
Італійська версія Microsoft Dynamics NAV 2009-R2
-
Італійська версія Microsoft Dynamics NAV 2009 пакетом оновлень 1
Вирішення
Відомості про виправлення
Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.
Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.
Відомості про інсталяцію
Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що всіх користувачів Microsoft Dynamics NAV-клієнт відключився системи. Це стосується, служби Microsoft Dynamics NAV Application Server (NAS). Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.
Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.
Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:
-
Змінити дозвіл об'єкт, який буде змінити.
-
Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт і, код 9015 системи-об'єкт
об'єкт.
Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.
Зміни коду
Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютерів.
Щоб вирішити цю проблему, виконайте такі дії.
-
Змінити код у звіті про рахунки-список постачальника облікового запису (12116), наступним чином:
Наявний код 1...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Delete the following line.
VendLedgEntry1.COPYFILTER("Posting Date", "Detailed Vendor Ledg. Entry"."Posting Date");
// End of the deleted line.
END;
OnAfterGetRecord=BEGIN
...Код на заміну 1
...DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Add the following line.
FindAppliedDtldVendLedgEntry(VendLedgEntry1."Entry No.");
// End of the added line.
END;
OnAfterGetRecord=BEGIN
...Наявний код 2
... END;
OnAfterGetRecord=BEGIN
// Delete the following lines.
VendLedgEntry3.GET("Applied Vend. Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
ClosedByAmountLCY := "Amount (LCY)";
TotalForVendor += "Amount (LCY)";
TotalClosedByAmntLCY += "Amount (LCY)";
END;
DataItemLink=Vendor Ledger Entry No.=FIELD(Entry No.);
// End of the deleted lines.
}
SECTIONS
{
...Код на заміну 2
... END;
OnAfterGetRecord=BEGIN
// Add the following lines.
IF NOT TempDetailedVendorLedgEntryApplied.GET("Entry No.") THEN
CurrReport.SKIP;
VendLedgEntry3.GET("Vendor Ledger Entry No.");
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
AppliedDocumentTypeText := FORMAT(VendLedgEntry3."Document Type");
ClosedByAmountLCY := "Amount (LCY)";
TotalForVendor -= "Amount (LCY)";
TotalClosedByAmntLCY -= "Amount (LCY)";
END;
// End of the added lines.
}
SECTIONS
{
...Наявний код 3
...SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
CurrReport.SHOWOUTPUT(FALSE)
ELSE
CurrReport.SHOWOUTPUT(TRUE);
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
END;
...Код на заміну 3
...SectionWidth=27750;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following lines.
IF (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::Payment)
OR (VendLedgEntry1."Document Type" = VendLedgEntry1."Document Type"::" ") THEN
CurrReport.SHOWOUTPUT(FALSE)
ELSE
CurrReport.SHOWOUTPUT(TRUE);
// End of the deleted lines.
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
END;
...Наявний код 4
... { 1130070;TextBox ;19200;0 ;1800 ;423 ;SourceExpr=ClosedByAmountLCY;
DataSetFieldName=ClosedByAmountLCY_Control1130070 }
{ 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;
// Delete the following lines.
SourceExpr="Document No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
{ 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr="Document Type";
// End of the deleted lines.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
...Заміна з кодом 4
...{ 1130070;TextBox ;19200;0 ;1800 ;423 ;SourceExpr=ClosedByAmountLCY;
DataSetFieldName=ClosedByAmountLCY_Control1130070 }
{ 1130071;TextBox ;5550 ;0 ;1500 ;423 ;HorzAlign=Right;
// Add the following lines.
SourceExpr=VendLedgEntry3."Document No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_No__ }
{ 1130072;TextBox ;1950 ;0 ;1350 ;423 ;SourceExpr=AppliedDocumentTypeText;
// End of the added lines.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
...Наявний код 5
... DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
// Delete the following line.
SourceExpr=FORMAT("Posting Date");
// End of the deleted line.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
{ 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
...Код на заміну 5
...DataSetFieldName=Detailed_Vendor_Ledg__Entry__Document_Type_ }
{ 1130073;TextBox ;0 ;0 ;1800 ;423 ;CaptionML=[ENU=PostingDate;
ITA=Data di registrazione];
// Add the following line.
SourceExpr=FORMAT(VendLedgEntry3."Posting Date");
// End of the added line.
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Posting_Date_ }
{ 1130074;TextBox ;7200 ;0 ;1650 ;423 ;SourceExpr=VendLedgEntry3."Document Occurrence";
DataSetFieldName=VendLedgEntry3__Document_Occurrence_ }
...Наявний код 6
...ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
}
}
{ PROPERTIES
...Код на заміну 6
... ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
// Add the following lines.
{ 1130178;TextBox ;21150;0 ;1800 ;423 ;Visible=No;
SourceExpr="Vendor Ledger Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_ }
// End of the added lines.
}
}
{ PROPERTIES
... -
Змінити код глобальних параметрів у звіті про рахунки-список постачальника облікового запису (12116), наступним чином:
Наявний код 1...VAR
Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
VendorBillLine@1130001 : Record 12182;
EndingDate@1130002 : Date;
OnlyOpened@1130003 : Boolean;
RemainingAmountLCY@1130004 : Decimal;
...Код на заміну 1
...VAR
Text000@1130000 : TextConst 'ENU=Please specify the Ending Date;ITA=Specificare Data fine';
VendorBillLine@1130001 : Record 12182;
// Add the following line.
TempDetailedVendorLedgEntryApplied@1130013 : TEMPORARY Record 380;
// End of the added line.
EndingDate@1130002 : Date;
OnlyOpened@1130003 : Boolean;
RemainingAmountLCY@1130004 : Decimal;
...Наявний код 2
...TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
BEGIN
END.
...Код на заміну 2
...TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
// Add the following lines.
AppliedDocumentTypeText@1170000000 : Text[30];
LOCAL PROCEDURE FindAppliedDtldVendLedgEntry@1130007(VendorLedgerEntryNo@1130000 : Integer);
VAR
DetailedVendorLedgEntry@1130001 : Record 380;
DetailedVendorLedgEntryApplied@1130003 : Record 380;
BEGIN
TempDetailedVendorLedgEntryApplied.RESET;
TempDetailedVendorLedgEntryApplied.DELETEALL;
DetailedVendorLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendorLedgerEntryNo);
DetailedVendorLedgEntry.SETRANGE("Entry Type",DetailedVendorLedgEntry."Entry Type"::Application);
DetailedVendorLedgEntry.SETRANGE(Unapplied,FALSE);
DetailedVendorLedgEntryApplied.SETRANGE(
"Entry Type",DetailedVendorLedgEntryApplied."Entry Type"::Application);
IF DetailedVendorLedgEntry.FINDSET THEN
REPEAT
DetailedVendorLedgEntryApplied.SETRANGE(
"Applied Vend. Ledger Entry No.",DetailedVendorLedgEntry."Applied Vend. Ledger Entry No.");
DetailedVendorLedgEntryApplied.SETFILTER(
"Vendor Ledger Entry No.",'<>%1',VendorLedgerEntryNo);
DetailedVendorLedgEntryApplied.SETRANGE(
"Vendor No.",DetailedVendorLedgEntry."Vendor No.");
DetailedVendorLedgEntryApplied.SETRANGE(
"Transaction No.",DetailedVendorLedgEntry."Transaction No.");
IF DetailedVendorLedgEntryApplied.FINDSET THEN
REPEAT
TempDetailedVendorLedgEntryApplied := DetailedVendorLedgEntryApplied;
IF TempDetailedVendorLedgEntryApplied.INSERT THEN;
UNTIL DetailedVendorLedgEntryApplied.NEXT = 0;
UNTIL DetailedVendorLedgEntry.NEXT = 0;
END;
// End of the added lines.
BEGIN
END.
... -
Змінити код у звіті про рахунки-список постачальника облікового запису (12116), наступним чином:
Наявний код...</TableCell>
</TableCells>
<Visibility>
// Delete the following line.
<Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Vendor_Ledger_Entry_No_.Value)=Rownumber("table1_Group3")),
// End of the deleted line.
FALSE,TRUE)</Hidden>
</Visibility>
</TableRow>
...Заміна код
... </TableCell>
</TableCells>
<Visibility>
// Add the following line.
<Hidden>=IIF((Count(Fields!Detailed_Vendor_Ledg__Entry_Entry_No_.Value)=Rownumber("table1_Group3")),
// End of the added line.
FALSE,TRUE)</Hidden>
</Visibility>
</TableRow>
...
Попередні вимоги
Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:
-
Італійська версія Microsoft Dynamics NAV 2009-R2
-
Італійська версія Microsoft Dynamics NAV 2009 пакетом оновлень 1
Відомості про видалення
Це виправлення не можна видалити.
Стан
Корпорація Майкрософт підтвердила існування цієї неполадки у продуктах Майкрософт, перелічених у розділі "Застосовується до".
Примітка. Це "Швидка публікація" статті, надана службою підтримки корпорації Майкрософт. Відомості в цій статті надано без змін у відповідь на повідомлення про проблеми. З огляду на швидкість публікації матеріали можуть містити орфографічні помилки. Їх може бути змінено в будь-який час без повідомлення. Див. Умови використанняінші міркування.
