The "Not Fully Applied Cash Pmts." report does not display all not-applied cash payment lines in the Spanish version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in Data Item Number 1 in the "Not Fully Applied Cash Pmts." report (10746) as follows:
   Existing 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
   ...
   

   Replacement 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
   ...
   

   Existing 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.;
   ...
   

   Replacement 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. Change the code in the RetrieveBalAccount function in the "Not Fully Applied Cash Pmts." report (10746) as follows:
   Existing code

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

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

Prerequisites

• The Spanish version of Microsoft Dynamics NAV 2009 R2
• The Spanish version of Microsoft Dynamics NAV 2009 Service Pack 1
• The Spanish version of Microsoft Dynamics NAV 5.0 Service Pack 1

Removal information