Der Bericht "Nicht vollständig angewendet Bargeld Raten" zeigt nicht alle Zahlungspositionen in bar nicht angewendet in der spanischen Version von Microsoft Dynamics NAV

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:

1. Ändern Sie den Code in Daten Element Nummer 1 im Bericht "Nicht vollständig angewendet Bargeld Raten" (10746) wie folgt:
   Vorhandener Code 1

   ...Open=CONST(Yes));
   OnPreDataItem=BEGIN
   "Cust. Ledger Entry".SETRANGE("Document Date",FromDate,ToDate);
   
   // Delete the following line.
   "Cust. Ledger Entry".SETRANGE("Bal. Account Type","Cust. Ledger Entry"."Bal. Account Type"::"G/L Account");
   // End of the line.
   
   END;
   
   OnAfterGetRecord=BEGIN
   ...
   
   

   Neuer Code 1

   ...Open=CONST(Yes));
   OnPreDataItem=BEGIN
   "Cust. Ledger Entry".SETRANGE("Document Date",FromDate,ToDate);
   
   // Add the following lines.
   "Cust. Ledger Entry".SETFILTER(
   "Bal. Account Type",
   '%1|%2',
   "Cust. Ledger Entry"."Bal. Account Type"::"G/L Account",
   "Cust. Ledger Entry"."Bal. Account Type"::"Bank Account");
   // End of the lines.
   
   END;
   
   OnAfterGetRecord=BEGIN
   ...
   
   

   Vorhandener Code 2

   ...OnAfterGetRecord=BEGIN
   
   // Delete the following lines.
   IF NOT IsCashAccount("Cust. Ledger Entry"."Bal. Account No.") THEN
   CurrReport.SKIP;
   // End of the lines.
   
   END;
   
   GroupTotalFields=Customer No.;
   ...
   
   

   Neuer Code 2

   ...END;
   
   OnAfterGetRecord=BEGIN
   
   // Add the following lines.
   IF "Bal. Account No." <> '' THEN BEGIN
   IF NOT IsCashAccount(RetrieveBalAccount("Cust. Ledger Entry")) THEN
   CurrReport.SKIP;
   END ELSE
   IF NOT HasCashAccount("Cust. Ledger Entry") THEN
   CurrReport.SKIP;
   // End of the lines.
   
   END;
   
   GroupTotalFields=Customer No.;
   ...
   
   

2. Ändern Sie den Code in der Funktion RetrieveBalAccount in den Bericht "Nicht vollständig angewendet Bargeld Raten" (10746) wie folgt:
   Vorhandener code

   ...// PS60066.END
   END;
   
   BEGIN
   {
   <add id="PS60066 " dev="ALL-E" date="2010-02-25" area="ANNUALDEC" feature="PS60066"
   ...
   
   

   Neuer code

   ...// PS60066.END
   END;
   
   // add the following lines.
   LOCAL PROCEDURE RetrieveBalAccount@1100016(CustLedgerEntry@1100000 : Record 21) : Text[20];
   VAR
   BankAccount@1100001 : Record 270;
   BankAccountPostingGroup@1100002 : Record 277;
   BEGIN
   CASE CustLedgerEntry."Bal. Account Type" OF
   CustLedgerEntry."Bal. Account Type"::"G/L Account":
   EXIT(CustLedgerEntry."Bal. Account No.");
   CustLedgerEntry."Bal. Account Type"::"Bank Account":
   BEGIN
   BankAccount.GET(CustLedgerEntry."Bal. Account No.");
   BankAccountPostingGroup.GET(BankAccount."Bank Acc. Posting Group");
   EXIT(BankAccountPostingGroup."G/L Bank Account No.");
   END;
   END;
   END;LOCAL PROCEDURE HasCashAccount@1100017(CustLedgerEntry@1100000 : Record 21) : Boolean;
   VAR
   GLEntry@1100001 : Record 17;
   BEGIN
   WITH GLEntry DO BEGIN
   RESET;
   SETRANGE("Transaction No.",CustLedgerEntry."Transaction No.");
   SETFILTER("G/L Account No.",FilterString);
   IF FINDFIRST THEN
   EXIT(TRUE);
   EXIT(FALSE);
   END;
   END;
   // End of the lines.
   
   BEGIN
   {
   <add id="PS60066 " dev="ALL-E" date="2010-02-25" area="ANNUALDEC" feature="PS60066"
   ...