How to show the interest rate in report

kolaboykolaboy Member Posts: 446
Hi Experts,
I am trying to show the interest Rate Under the Finance Charge Terms table, but it is not coming.
I created i report from customer and Cust. ledger Entry tables.But when i try to show the interest rate which Corresponse to the Finance Charge terms Codes in the Finance Charge Terms table, its not showing.

Can anyone show me how to go about this Please!!!
Thanks.

Answers

  • ufukufuk Member Posts: 514
    Do you want to show entries or some amount field grouped by interest rate? Can you explain more clearly?
    Ufuk Asci
    Pargesoft
  • kolaboykolaboy Member Posts: 446
    Code Interest Rate
    BAK 10
    BNKG 8


    The interest rates are in the Finance charge Terms Table as shown above.

    I created this report as shown below:
    OBJECT Report 50301 Mortgage Statements
    {
      OBJECT-PROPERTIES
      {
        Date=12/08/07;
        Time=22:37:26;
        Modified=Yes;
        Version List=NCM/MLS;
      }
      PROPERTIES
      {
        OnPreReport=BEGIN
                      DateFilt:=Customer.GETFILTER(Customer."Date Filter");
                    END;
    
      }
      DATAITEMS
      {
        { PROPERTIES
          {
            DataItemTable=Table18;
            DataItemTableView=SORTING(No.)
                              ORDER(Ascending);
            NewPagePerRecord=Yes;
            PrintOnlyIfDetail=Yes;
            ReqFilterFields=No.;
          }
          SECTIONS
          {
            { PROPERTIES
              {
                SectionType=Header;
                PrintOnEveryPage=Yes;
                SectionWidth=18300;
                SectionHeight=1692;
              }
              CONTROLS
              {
                { 1000000001;Label  ;0    ;0    ;7500 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             CaptionML=ENU=Mortgage Customer Statement }
                { 1000000002;TextBox;15000;0    ;3150 ;423  ;HorzAlign=Right;
                                                             SourceExpr=FORMAT(TODAY,0,4) }
                { 1000000003;TextBox;0    ;423  ;7500 ;423  ;SourceExpr=COMPANYNAME }
                { 1000000004;TextBox;17700;423  ;450  ;423  ;CaptionML=ENU=Page;
                                                             SourceExpr=CurrReport.PAGENO }
                { 1000000005;Label  ;16950;423  ;750  ;423  ;ParentControl=1000000004 }
              }
               }
            { PROPERTIES
              {
                SectionType=Body;
                SectionWidth=18300;
                SectionHeight=3384;
              }
              CONTROLS
              {
                { 1000000008;TextBox;3150 ;0    ;1500 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="No." }
                { 1000000009;Label  ;0    ;0    ;3000 ;423  ;ParentControl=1000000008;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000011;TextBox;3150 ;423  ;6150 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr=Name }
                { 1000000012;Label  ;0    ;423  ;3000 ;423  ;ParentControl=1000000011;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000014;TextBox;13950;423  ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Monthly Install" }
                { 1000000015;Label  ;10800;423  ;3000 ;423  ;ParentControl=1000000014;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000017;TextBox;3150 ;1269 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Loan Amount" }
                { 1000000018;Label  ;0    ;1269 ;3000 ;423  ;ParentControl=1000000017;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             CaptionML=ENU=Plot Cost }
                { 1000000020;TextBox;3150 ;1692 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Down Payment" }
                { 1000000021;Label  ;0    ;1692 ;3000 ;423  ;ParentControl=1000000020;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000023;TextBox;3150 ;2115 ;1500 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Plot No." }
                { 1000000024;Label  ;0    ;2115 ;3000 ;423  ;ParentControl=1000000023;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000026;TextBox;13950;1269 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Interest Rate" }
                { 1000000027;Label  ;10800;1269 ;3000 ;423  ;ParentControl=1000000026;
                                                             FontSize=8;
                                                             FontBold=Yes }
              }
               }
          }
           }
        { PROPERTIES
          {
            DataItemIndent=1;
            DataItemTable=Table21;
            DataItemTableView=SORTING(Customer No.,Posting Date)
                              WHERE(Reversed=CONST(No));
            OnPreDataItem=BEGIN
    
                            //"Cust. Ledger Entry".SETFILTER("Posting Date",DateFilt);
    
                            FinchargeTotal:=0;
                            PrincipalTotal:=0;
                            ArreasVarTotal:=0;
                            CustBal1 := 0;
                            TotCustBal1:=0;
                          END;
    
            OnAfterGetRecord=BEGIN
                               Fincharge:=0;
                               Principal:=0;
                               ArreasVar:=0;
                               CustBal :=CustBal+"Cust. Ledger Entry".Amount;
    
                               TotalCustBal := "Detailed Cust. Ledg. Entry"."Amount (LCY)";
                               CustBal1 := "Cust. Ledger Entry". Amount;
    
                               //CustBal :=CustBal + "Cust. Ledger Entry". Amount;
                               TotCustBal1 += CustBal1;
    
                               IF "Document Type"=0 THEN  BEGIN
                                Amount := CustBal1-CustBal1;
                                END;
    
                               IF "Document Type"="Document Type":: Invoice THEN  BEGIN
                                Amount := CustBal1-CustBal1;
                               END;
    
                               IF "Document Type"="Document Type":: "Finance Charge Memo" THEN  BEGIN
                                 Fincharge :=ABS(Amount);
                               END;
    
                               IF "Document Type"="Document Type":: "Finance Charge Memo" THEN  BEGIN
                                 Amount :=ABS(Amount)-ABS(Amount);
                               END;
    
    
    
                               IF "Document Type"="Document Type"::Payment THEN  BEGIN
                                 Principal:= "Closed by Amount";
                                // Fincharge :=ABS(Amount)-ABS(Principal);
                                 FinchargeTotal:=FinchargeTotal+ ABS(Fincharge);
                                 PrincipalTotal :=PrincipalTotal+ABS(Principal);
                                 ArreasVar:= -Customer."Monthly Install" - "Cust. Ledger Entry".Amount;
                                 ArreasVarTotal:=ArreasVarTotal+ArreasVar;
                               END;
                             END;
    
            CalcFields=Amount;
            DataItemLink=Customer No.=FIELD(No.);
          }
          SECTIONS
          {
            { PROPERTIES
              {
                SectionType=Header;
                SectionWidth=18300;
                SectionHeight=846;
              }
              CONTROLS
              {
                { 1000000007;Label  ;0    ;0    ;1200 ;846  ;ParentControl=1000000000;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000013;Label  ;3000 ;0    ;1500 ;846  ;ParentControl=1000000010;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000019;Label  ;4650 ;0    ;4050 ;846  ;ParentControl=1000000016;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000025;Label  ;9000 ;0    ;1800 ;846  ;ParentControl=1000000022;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000029;Label  ;1500 ;0    ;1350 ;846  ;ParentControl=1000000028;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000031;Label  ;16650;0    ;1500 ;846  ;ParentControl=1000000030;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Arreas }
                { 1000000033;Label  ;10950;0    ;1800 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Interest  Charge }
                { 1102750002;Label  ;12900;0    ;1500 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Principal }
                { 1102750003;Label  ;14550;0    ;1950 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Acc Balance }
              }
               }
            { PROPERTIES
              {
                SectionType=Body;
                SectionWidth=18300;
                SectionHeight=423;
              }
              CONTROLS
              {
                { 1000000000;TextBox;150  ;0    ;1200 ;423  ;SourceExpr="Posting Date" }
                { 1000000010;TextBox;3000 ;0    ;1500 ;423  ;HorzAlign=Center;
                                                             SourceExpr="Document No." }
                { 1000000016;TextBox;4650 ;0    ;4200 ;423  ;SourceExpr=Description }
                { 1000000022;TextBox;9000 ;0    ;1800 ;423  ;SourceExpr=Amount }
                { 1000000028;TextBox;1500 ;0    ;1350 ;423  ;SourceExpr="Document Type" }
                { 1000000030;TextBox;16650;0    ;1500 ;423  ;HorzAlign=Right;
                                                             BlankZero=Yes;
                                                             SourceExpr=ArreasVar }
                { 1000000032;TextBox;10950;0    ;1800 ;423  ;BlankZero=Yes;
                                                             SourceExpr=-Fincharge }
                { 1102750000;TextBox;14550;0    ;1950 ;423  ;BlankZero=Yes;
                                                             SourceExpr=TotCustBal1 }
                { 1102750001;TextBox;12900;0    ;1500 ;423  ;BlankZero=Yes;
                                                             SourceExpr=Principal }
              }
               }
            { PROPERTIES
              {
                SectionType=Footer;
                SectionWidth=18300;
                SectionHeight=846;
              }
              CONTROLS
              {
                { 1102750004;TextBox;10950;0    ;1800 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=FinchargeTotal }
                { 1102750005;TextBox;12900;0    ;1650 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=PrincipalTotal }
                { 1102750006;TextBox;16200;0    ;1950 ;423  ;HorzAlign=Right;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=ArreasVarTotal }
              }
               }
          }
           }
      }
      REQUESTFORM
      {
        PROPERTIES
        {
          Width=9020;
          Height=3410;
        }
        CONTROLS
        {
        }
      }
      CODE
      {
        VAR
          Fincharge@1000000000 : Decimal;
          CustBal@1102750000 : Decimal;
          Principal@1102750001 : Decimal;
          DateFilt@1102750002 : Text[50];
          FinchargeTotal@1102750003 : Decimal;
          PrincipalTotal@1102750004 : Decimal;
          ArreasVar@1102750005 : Decimal;
          ArreasVarTotal@1102750006 : Decimal;
          CustBal1@1000000001 : Decimal;
          TotCustBal1@1000000002 : Decimal;
          TotalCustBal@1000000003 : Decimal;
          "Detailed Cust. Ledg. Entry"@1000000004 : Record 379;
    
        BEGIN
        END.
      }
    }
    
    

    I when to pick the interest Rate Corresponding to BAK code
    ie 10% to be shown in the report shown above.
    Any idea please.
    Thanks.
  • kolaboykolaboy Member Posts: 446
    kolaboy wrote:
    Code Interest Rate
    BAK 10
    BNKG 8


    The interest rates are in the Finance charge Terms Table as shown above.

    I created this report as shown below:
    OBJECT Report 50301 Mortgage Statements
    {
      OBJECT-PROPERTIES
      {
        Date=12/08/07;
        Time=22:37:26;
        Modified=Yes;
        Version List=NCM/MLS;
      }
      PROPERTIES
      {
        OnPreReport=BEGIN
                      DateFilt:=Customer.GETFILTER(Customer."Date Filter");
                    END;
    
      }
      DATAITEMS
      {
        { PROPERTIES
          {
            DataItemTable=Table18;
            DataItemTableView=SORTING(No.)
                              ORDER(Ascending);
            NewPagePerRecord=Yes;
            PrintOnlyIfDetail=Yes;
            ReqFilterFields=No.;
          }
          SECTIONS
          {
            { PROPERTIES
              {
                SectionType=Header;
                PrintOnEveryPage=Yes;
                SectionWidth=18300;
                SectionHeight=1692;
              }
              CONTROLS
              {
                { 1000000001;Label  ;0    ;0    ;7500 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             CaptionML=ENU=Mortgage Customer Statement }
                { 1000000002;TextBox;15000;0    ;3150 ;423  ;HorzAlign=Right;
                                                             SourceExpr=FORMAT(TODAY,0,4) }
                { 1000000003;TextBox;0    ;423  ;7500 ;423  ;SourceExpr=COMPANYNAME }
                { 1000000004;TextBox;17700;423  ;450  ;423  ;CaptionML=ENU=Page;
                                                             SourceExpr=CurrReport.PAGENO }
                { 1000000005;Label  ;16950;423  ;750  ;423  ;ParentControl=1000000004 }
              }
               }
            { PROPERTIES
              {
                SectionType=Body;
                SectionWidth=18300;
                SectionHeight=3384;
              }
              CONTROLS
              {
                { 1000000008;TextBox;3150 ;0    ;1500 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="No." }
                { 1000000009;Label  ;0    ;0    ;3000 ;423  ;ParentControl=1000000008;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000011;TextBox;3150 ;423  ;6150 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr=Name }
                { 1000000012;Label  ;0    ;423  ;3000 ;423  ;ParentControl=1000000011;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000014;TextBox;13950;423  ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Monthly Install" }
                { 1000000015;Label  ;10800;423  ;3000 ;423  ;ParentControl=1000000014;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000017;TextBox;3150 ;1269 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Loan Amount" }
                { 1000000018;Label  ;0    ;1269 ;3000 ;423  ;ParentControl=1000000017;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             CaptionML=ENU=Plot Cost }
                { 1000000020;TextBox;3150 ;1692 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Down Payment" }
                { 1000000021;Label  ;0    ;1692 ;3000 ;423  ;ParentControl=1000000020;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000023;TextBox;3150 ;2115 ;1500 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Plot No." }
                { 1000000024;Label  ;0    ;2115 ;3000 ;423  ;ParentControl=1000000023;
                                                             FontSize=8;
                                                             FontBold=Yes }
                { 1000000026;TextBox;13950;1269 ;1800 ;423  ;HorzAlign=Left;
                                                             FontSize=8;
                                                             SourceExpr="Interest Rate" }
                { 1000000027;Label  ;10800;1269 ;3000 ;423  ;ParentControl=1000000026;
                                                             FontSize=8;
                                                             FontBold=Yes }
              }
               }
          }
           }
        { PROPERTIES
          {
            DataItemIndent=1;
            DataItemTable=Table21;
            DataItemTableView=SORTING(Customer No.,Posting Date)
                              WHERE(Reversed=CONST(No));
            OnPreDataItem=BEGIN
    
                            //"Cust. Ledger Entry".SETFILTER("Posting Date",DateFilt);
    
                            FinchargeTotal:=0;
                            PrincipalTotal:=0;
                            ArreasVarTotal:=0;
                            CustBal1 := 0;
                            TotCustBal1:=0;
                          END;
    
            OnAfterGetRecord=BEGIN
                               Fincharge:=0;
                               Principal:=0;
                               ArreasVar:=0;
                               CustBal :=CustBal+"Cust. Ledger Entry".Amount;
    
                               TotalCustBal := "Detailed Cust. Ledg. Entry"."Amount (LCY)";
                               CustBal1 := "Cust. Ledger Entry". Amount;
    
                               //CustBal :=CustBal + "Cust. Ledger Entry". Amount;
                               TotCustBal1 += CustBal1;
    
                               IF "Document Type"=0 THEN  BEGIN
                                Amount := CustBal1-CustBal1;
                                END;
    
                               IF "Document Type"="Document Type":: Invoice THEN  BEGIN
                                Amount := CustBal1-CustBal1;
                               END;
    
                               IF "Document Type"="Document Type":: "Finance Charge Memo" THEN  BEGIN
                                 Fincharge :=ABS(Amount);
                               END;
    
                               IF "Document Type"="Document Type":: "Finance Charge Memo" THEN  BEGIN
                                 Amount :=ABS(Amount)-ABS(Amount);
                               END;
    
    
    
                               IF "Document Type"="Document Type"::Payment THEN  BEGIN
                                 Principal:= "Closed by Amount";
                                // Fincharge :=ABS(Amount)-ABS(Principal);
                                 FinchargeTotal:=FinchargeTotal+ ABS(Fincharge);
                                 PrincipalTotal :=PrincipalTotal+ABS(Principal);
                                 ArreasVar:= -Customer."Monthly Install" - "Cust. Ledger Entry".Amount;
                                 ArreasVarTotal:=ArreasVarTotal+ArreasVar;
                               END;
                             END;
    
            CalcFields=Amount;
            DataItemLink=Customer No.=FIELD(No.);
          }
          SECTIONS
          {
            { PROPERTIES
              {
                SectionType=Header;
                SectionWidth=18300;
                SectionHeight=846;
              }
              CONTROLS
              {
                { 1000000007;Label  ;0    ;0    ;1200 ;846  ;ParentControl=1000000000;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000013;Label  ;3000 ;0    ;1500 ;846  ;ParentControl=1000000010;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000019;Label  ;4650 ;0    ;4050 ;846  ;ParentControl=1000000016;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000025;Label  ;9000 ;0    ;1800 ;846  ;ParentControl=1000000022;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000029;Label  ;1500 ;0    ;1350 ;846  ;ParentControl=1000000028;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes }
                { 1000000031;Label  ;16650;0    ;1500 ;846  ;ParentControl=1000000030;
                                                             HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Arreas }
                { 1000000033;Label  ;10950;0    ;1800 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Interest  Charge }
                { 1102750002;Label  ;12900;0    ;1500 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Principal }
                { 1102750003;Label  ;14550;0    ;1950 ;846  ;HorzAlign=Right;
                                                             VertAlign=Bottom;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             MultiLine=Yes;
                                                             CaptionML=ENU=Acc Balance }
              }
               }
            { PROPERTIES
              {
                SectionType=Body;
                SectionWidth=18300;
                SectionHeight=423;
              }
              CONTROLS
              {
                { 1000000000;TextBox;150  ;0    ;1200 ;423  ;SourceExpr="Posting Date" }
                { 1000000010;TextBox;3000 ;0    ;1500 ;423  ;HorzAlign=Center;
                                                             SourceExpr="Document No." }
                { 1000000016;TextBox;4650 ;0    ;4200 ;423  ;SourceExpr=Description }
                { 1000000022;TextBox;9000 ;0    ;1800 ;423  ;SourceExpr=Amount }
                { 1000000028;TextBox;1500 ;0    ;1350 ;423  ;SourceExpr="Document Type" }
                { 1000000030;TextBox;16650;0    ;1500 ;423  ;HorzAlign=Right;
                                                             BlankZero=Yes;
                                                             SourceExpr=ArreasVar }
                { 1000000032;TextBox;10950;0    ;1800 ;423  ;BlankZero=Yes;
                                                             SourceExpr=-Fincharge }
                { 1102750000;TextBox;14550;0    ;1950 ;423  ;BlankZero=Yes;
                                                             SourceExpr=TotCustBal1 }
                { 1102750001;TextBox;12900;0    ;1500 ;423  ;BlankZero=Yes;
                                                             SourceExpr=Principal }
              }
               }
            { PROPERTIES
              {
                SectionType=Footer;
                SectionWidth=18300;
                SectionHeight=846;
              }
              CONTROLS
              {
                { 1102750004;TextBox;10950;0    ;1800 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=FinchargeTotal }
                { 1102750005;TextBox;12900;0    ;1650 ;423  ;FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=PrincipalTotal }
                { 1102750006;TextBox;16200;0    ;1950 ;423  ;HorzAlign=Right;
                                                             FontSize=8;
                                                             FontBold=Yes;
                                                             BlankZero=Yes;
                                                             SourceExpr=ArreasVarTotal }
              }
               }
          }
           }
      }
      REQUESTFORM
      {
        PROPERTIES
        {
          Width=9020;
          Height=3410;
        }
        CONTROLS
        {
        }
      }
      CODE
      {
        VAR
          Fincharge@1000000000 : Decimal;
          CustBal@1102750000 : Decimal;
          Principal@1102750001 : Decimal;
          DateFilt@1102750002 : Text[50];
          FinchargeTotal@1102750003 : Decimal;
          PrincipalTotal@1102750004 : Decimal;
          ArreasVar@1102750005 : Decimal;
          ArreasVarTotal@1102750006 : Decimal;
          CustBal1@1000000001 : Decimal;
          TotCustBal1@1000000002 : Decimal;
          TotalCustBal@1000000003 : Decimal;
          "Detailed Cust. Ledg. Entry"@1000000004 : Record 379;
    
        BEGIN
        END.
      }
    }
    
    

    I when to pick the interest Rate Corresponding to BAK code
    ie 10% to be shown in the report shown above.
    Any idea please.
    Thanks.

    I am still struggling with the above problem. Can anyone help me out please.
    Thanks
  • AlbertvhAlbertvh Member Posts: 516
    Hi Kolaboy,

    you will need to define the Finance Charge Terms table as variable of record type and do the following in the OnAfterGetrecord of the Customer table

    FinChrgTerm.GET("Fin. Charge Terms Code");

    Albert
  • kolaboykolaboy Member Posts: 446
    IF "Fin. Charge Terms Code" = BAK  THEN
    FinChrgTerm.GET("Fin. Charge Terms Code");
    IntRate := "Finance Charge Terms"."Interest Rate"
    

    I use the above code to be able to display the interest of 10% which is correspond to BAK, but is giving 0.00 as result.

    i define IntRate as decimal in a text box of the report to display the result but to no avail.

    I have done what Albertvh told me to do, but its not working. Am i missing anything. Please i need you help. Albertvh is there anything am missing?
    Thanks
  • AlbertvhAlbertvh Member Posts: 516
    Hi Kolaboy,

    change

    SourceExpr="Interest Rate"

    to

    SourceExpr=FinChrgTerms."Interest Rate"

    In Customer - OnAfterGetRecord

    IF NOT FinChrgTerm.GET("Fin. Charge Terms Code") THEN
    FinChrgTerm."Interest Rate" := 0;


    Albert
  • kolaboykolaboy Member Posts: 446
    Albertvh, thanks for the suggestion its working now.
    Thanks.
Sign In or Register to comment.