Password reset mail could take several hours. After fix only a couple of seconds...

[fa-stable.git] / reporting / rep708.php

diff --git a/reporting/rep708.php b/reporting/rep708.php
index 17854bca712e68c4c90ea3c3d0fb54004c6f1d5f..1da9ce2a39bc7dfd796398c388b0b5ce80df15fd 100644 (file)
--- a/reporting/rep708.php
+++ b/reporting/rep708.php
@@ -31,7 +31,7 @@ $pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;
 
 function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balances, $dimension, $dimension2)
 {
-       global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal;
+       global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal, $SysPrefs;
        
        $printtitle = 0; //Flag for printing type name  
        
@@ -55,6 +55,15 @@ function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balan
                        $rep->NewLine();                        
                }
                
+               // FA doesn't really clear the closed year, therefore the brought forward balance includes all the transactions from the past, even though the balance is null.
+               // If we want to remove the balanced part for the past years, this option removes the common part from from the prev and tot figures.
+               if (@$SysPrefs->clear_trial_balance_opening)
+               {
+                       $open = get_balance($account["account_code"], $dimension, $dimension2, $begin,  $begin, false, true);
+                       $offset = min($open['debit'], $open['credit']);
+               } else
+                       $offset = 0;
+
                $prev = get_balance($account["account_code"], $dimension, $dimension2, $begin, $from, false, false);
                $curr = get_balance($account["account_code"], $dimension, $dimension2, $from, $to, true, true);
                $tot = get_balance($account["account_code"], $dimension, $dimension2, $begin, $to, false, true);
@@ -80,18 +89,18 @@ function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balan
                }
                else
                {
-                       $rep->AmountCol(2, 3, $prev['debit'], $dec);
-                       $rep->AmountCol(3, 4, $prev['credit'], $dec);
+                       $rep->AmountCol(2, 3, $prev['debit']-$offset, $dec);
+                       $rep->AmountCol(3, 4, $prev['credit']-$offset, $dec);
                        $rep->AmountCol(4, 5, $curr['debit'], $dec);
                        $rep->AmountCol(5, 6, $curr['credit'], $dec);
-                       $rep->AmountCol(6, 7, $tot['debit'], $dec);
-                       $rep->AmountCol(7, 8, $tot['credit'], $dec);
-                       $pdeb += $prev['debit'];
-                       $pcre += $prev['credit'];
+                       $rep->AmountCol(6, 7, $tot['debit']-$offset, $dec);
+                       $rep->AmountCol(7, 8, $tot['credit']-$offset, $dec);
+                       $pdeb += $prev['debit']-$offset;
+                       $pcre += $prev['credit']-$offset;
                        $cdeb += $curr['debit'];
                        $ccre += $curr['credit'];
-                       $tdeb += $tot['debit'];
-                       $tcre += $tot['credit'];
+                       $tdeb += $tot['debit']-$offset;
+                       $tcre += $tot['credit']-$offset;
                }       
 
                $pbal += $prev['balance'];
@@ -194,7 +203,7 @@ function print_trial_balance()
                        3 => array('text' => _('Dimension')." 2",
                             'from' => get_dimension_string($dimension2), 'to' => ''));
     }
-    else if ($dim == 1)
+    elseif ($dim == 1)
     {
        $params =   array(      0 => $comments,
                                    1 => array('text' => _('Period'),'from' => $from, 'to' => $to),
@@ -213,6 +222,7 @@ function print_trial_balance()
        recalculate_cols($cols);
        recalculate_cols($cols2);
        }
+
        $rep->Font();
        $rep->Info($params, $cols, $headers, $aligns, $cols2, $headers2, $aligns2);
        $rep->NewPage();
@@ -275,4 +285,3 @@ function print_trial_balance()
        $rep->End();
 }
 
-?>
\ No newline at end of file