Objawy
Po zainstalowaniu najnowszego raportu Lista BOM konta dostawcy, jeśli stosuje się faktury transakcji powiązanych płatności, a następnie zaksięguj go we włoskiej wersji systemu Microsoft Dynamics NAV 2009, raport Lista BOM konta dostawcy nie pokazuje płatności. Wyświetla tylko faktury zbliżone do siebie. Wykonaj kroki opisane w sekcji zmiany kodu , aby rozwiązać ten problem. Ten problem występuje w następujących produktach:
-
W wersji włoskiej dla systemu Microsoft Dynamics NAV 2009 R2
-
Włoska wersja dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje o poprawce
Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.
Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.
Informacje dotyczące instalacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.
Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.
Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
-
Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
-
Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
obiekt.
Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.
Zmiany kodu
Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
-
Zmień kod w raporcie Lista BOM konta dostawcy (12116) w następujący sposób:
Istniejący kod 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
...Kod zastępczy 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
...Istniejący kod 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
{
...Kod zastępczy 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
{
...Istniejący kod 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;
...Kod zastępczy 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;
...Istniejący kod 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];
...Kod zastępczy 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];
...Istniejący kod 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_ }
...Kod zastępczy 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_ }
...Istniejący kod 6
...ForeColor=65535;
SourceExpr="Unapplied by Entry No.";
DataSetFieldName=Detailed_Vendor_Ledg__Entry__Unapplied_by_Entry_No__ }
}
}
{ PROPERTIES
...Kod zastępczy 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
... -
Zmień kod w zmiennych globalnych w raporcie Lista BOM konta dostawcy (12116) w następujący sposób:
Istniejący kod 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;
...Kod zastępczy 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;
...Istniejący kod 2
...TotalVendorBillAmnt@1130010 : Decimal;
VendLedgEntry3@1130011 : Record 25;
VendorLedgerEmtryTypeINT@1102601000 : Integer;
BEGIN
END.
...Kod zastępczy 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.
... -
Zmień kod w raporcie Lista BOM konta dostawcy (12116) w następujący sposób:
Istniejący kod...</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>
...Kod zastępczy
... </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>
...
Wymagania wstępne
Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
-
W wersji włoskiej dla systemu Microsoft Dynamics NAV 2009 R2
-
Włoska wersja dodatku SP1 dla programu Microsoft Dynamics NAV 2009
Informacje dotyczące usuwania
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowaniadla innych względów.
