Η έκθεση "Δεν πλήρως εφαρμοστεί μετρητά Pmts." δεν εμφανίζει όλες τις γραμμές πληρωμής μετρητών δεν εφαρμόζονται στην ισπανική έκδοση του Microsoft Dynamics NAV

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:

1. Αλλάξτε τον κωδικό 1 αριθμό είδους δεδομένα στην έκθεση "Δεν πλήρως εφαρμοστεί μετρητά Pmts." (10746) ως εξής:
   Υπάρχοντα κωδικό 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
   ...
   
   

   Αντικατάσταση κώδικα 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
   ...
   
   

   Υπάρχοντα κώδικα 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.;
   ...
   
   

   Αντικατάσταση κώδικα 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. Αλλάξτε τον κωδικό στη συνάρτηση RetrieveBalAccount στην αναφορά "Δεν πλήρως εφαρμοστεί μετρητά Pmts." (10746) ως εξής:
   Υπάρχοντα κώδικα

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

   Αντικατάσταση κώδικα

   ...// 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"
   ...