...
ELSE BEGIN
FromDate := GETRANGEMIN("Posting Date");
ToDate := GETRANGEMAX("Posting Date");
END;
LastFieldNo := FIELDNO("G/L Account No.");
...
...
ELSE BEGIN
FromDate := GETRANGEMIN("Posting Date");
ToDate := GETRANGEMAX("Posting Date");
END;
// Add the following line.
SETRANGE("Posting Date",0D,ToDate);
// End of the added line.
LastFieldNo := FIELDNO("G/L Account No.");
...
...
IF (v_Project<>"G/L Entry"."Global Dimension 2 Code") OR (v_Departament<>"G/L Entry"."Global Dimension 1 Code")THEN BEGIN
DebitValueGroup:=0;
CreditValueGroup:=0;
END;
...
...
IF (v_Project <> "G/L Entry"."Global Dimension 2 Code") OR (v_Departament <> "G/L Entry"."Global Dimension 1 Code")THEN BEGIN
DebitValueGroup := 0;
CreditValueGroup := 0;
// Add the following lines.
DebitAmountAdjustGroup := 0;
CreditAmountAdjustGroup := 0;
// End of the added lines.
END;
...
...
GLAcc.GET("G/L Entry"."G/L Account No.");
// Delete the following line.
GLAcc.SETRANGE("Date Filter",StartingPeriod(FromDate),ToDate);
// End of the deleted line.
GLAcc.SETRANGE("Global Dimension 1 Filter","G/L Entry"."Global Dimension 1 Code");
GLAcc.SETRANGE("Global Dimension 2 Filter","G/L Entry"."Global Dimension 2 Code");
GLAcc.CALCFIELDS("Debit Amount","Credit Amount","Balance at Date");
...
...
GLAcc.GET("G/L Entry"."G/L Account No.");
GLAcc.SETRANGE("Global Dimension 1 Filter","G/L Entry"."Global Dimension 1 Code");
GLAcc.SETRANGE("Global Dimension 2 Filter","G/L Entry"."Global Dimension 2 Code");
// Add the following lines.
IF v_Mov <> "G/L Entry"."Entry No." THEN BEGIN
GLAcc.SETRANGE("Date Filter",0D,FromDate);
GLAcc.CALCFIELDS("Debit Amount","Credit Amount");
DebitAmountAdjust := GLAcc."Debit Amount";
DebitAmountAdjustGroup += GLAcc."Debit Amount";
DebitAmountAdjustFooter += GLAcc."Debit Amount";
CreditAmountAdjust := GLAcc."Credit Amount";
CreditAmountAdjustGroup += GLAcc."Credit Amount";
CreditAmountAdjustFooter += GLAcc."Credit Amount";
END;
GLAcc.SETRANGE("Date Filter",StartingPeriod(FromDate),ToDate);
// End of the added lines.
GLAcc.CALCFIELDS("Debit Amount","Credit Amount","Balance at Date");
...
...
Text1110021@1110021 : TextConst 'ENU="Period: "';
Text1110022@1110022 : TextConst 'ENU="Report Filters: "';
PROCEDURE StartingPeriod@9(Date@1110000 : Date) : Date;
...
...
Text1110021@1110021 : TextConst 'ENU="Period: "';
Text1110022@1110022 : TextConst 'ENU="Report Filters: "';
// Add the following lines.
CreditAmountAdjust@1110023 : Decimal;
DebitAmountAdjust@1110024 : Decimal;
CreditAmountAdjustGroup@1110025 : Decimal;
DebitAmountAdjustGroup@1110026 : Decimal;
CreditAmountAdjustFooter@1110027 : Decimal;
DebitAmountAdjustFooter@1110028 : Decimal;
// End of the added lines.
PROCEDURE StartingPeriod@9(Date@1110000 : Date) : Date;
...