'; print ''."\n"; print ''; print ''; print ''; print ''; print ''; foreach($months as $k => $v){ if (($k+1) >= $date_startmonth) { print ''; } } foreach($months as $k => $v){ if (($k+1) < $date_startmonth) { print ''; } } print ''; if ($modecompta == 'CREANCES-DETTES') { //if (! empty($date_start) && ! empty($date_end)) // $sql.= " AND f.datef >= '".$db->idate($date_start)."' AND f.datef <= '".$db->idate($date_end)."'"; } elseif ($modecompta=="RECETTES-DEPENSES") { //if (! empty($date_start) && ! empty($date_end)) // $sql.= " AND p.datep >= '".$db->idate($date_start)."' AND p.datep <= '".$db->idate($date_end)."'"; } elseif ($modecompta=="BOOKKEEPING") { // Get array of all report groups that are active $cats = $AccCat->getCats(); // WARNING: Computed groups must be after group they include /* $sql = 'SELECT DISTINCT t.numero_compte as nb FROM '.MAIN_DB_PREFIX.'accounting_bookkeeping as t, '.MAIN_DB_PREFIX.'accounting_account as aa'; $sql.= " WHERE t.numero_compte = aa.account_number AND aa.fk_accounting_category = 0"; if (! empty($date_start) && ! empty($date_end)) $sql.= " AND t.doc_date >= '".$db->idate($date_start)."' AND t.doc_date <= '".$db->idate($date_end)."'"; if (! empty($month)) { $sql .= " AND MONTH(t.doc_date) = " . $month; } $resql = $db->query($sql); if ($resql) { $num_rows = $db->num_rows($resql); if ($num_rows) { print ''; $i = 0; //while ($i < $num) { // $obj = $db->fetch_object($resql); // $i++; //} } } else dol_print_error($db); */ $j=1; $sommes = array(); $totPerAccount = array(); foreach ($cats as $cat) // Loop on each group { if (!empty($cat['category_type'])) // category calculed { // When we enter here, $sommes was filled by group of accounts $formula = $cat['formula']; print ''; // Year NP print ''; $vars = array(); // Previous Fiscal year (N-1) foreach($sommes as $code => $det){ $vars[$code] = $det['NP']; } $result = strtr($formula, $vars); //var_dump($result); //$r = $AccCat->calculate($result); $r = dol_eval($result, 1); //var_dump($r); print ''; // Year N $code = $cat['code']; // code of categorie ('VTE', 'MAR', ...) $sommes[$code]['NP'] += $r; // Current fiscal year (N) if (is_array($sommes) && ! empty($sommes)){ foreach($sommes as $code => $det){ $vars[$code] = $det['N']; } } $result = strtr($formula, $vars); //$r = $AccCat->calculate($result); $r = dol_eval($result, 1); print ''; $sommes[$code]['N'] += $r; // Detail by month foreach($months as $k => $v) { if (($k+1) >= $date_startmonth) { foreach($sommes as $code => $det){ $vars[$code] = $det['M'][$k]; } $result = strtr($formula, $vars); //$r = $AccCat->calculate($result); $r = dol_eval($result, 1); print ''; $sommes[$code]['M'][$k] += $r; } } foreach($months as $k => $v) { if (($k+1) < $date_startmonth) { foreach($sommes as $code => $det){ $vars[$code] = $det['M'][$k]; } $result = strtr($formula, $vars); //$r = $AccCat->calculate($result); $r = dol_eval($result, 1); print ''; $sommes[$code]['M'][$k] += $r; } } print "\n"; //var_dump($sommes); } else // normal category { $code = $cat['code']; // Category code we process $totCat = array(); $totCat['NP'] = 0; $totCat['N'] = 0; $totCat['M'] = array(); foreach($months as $k => $v) { $totCat['M'][$k] = 0; } // Set $cpts with array of accounts in the category/group $cpts = $AccCat->getCptsCat($cat['rowid']); $arrayofaccountforfilter=array(); foreach($cpts as $i => $cpt) // Loop on each account. { $arrayofaccountforfilter[]=$cpt['account_number']; } // N-1 if (! empty($arrayofaccountforfilter)) { $return = $AccCat->getSumDebitCredit($arrayofaccountforfilter, $date_start_previous, $date_end_previous, $cpt['dc']?$cpt['dc']:0); if ($return < 0) { setEventMessages(null, $AccCat->errors, 'errors'); $resultNP=0; } else { foreach($cpts as $i => $cpt) // Loop on each account. { $resultNP = empty($AccCat->sdcperaccount[$cpt['account_number']])?0:$AccCat->sdcperaccount[$cpt['account_number']]; $totCat['NP'] += $resultNP; $sommes[$code]['NP'] += $resultNP; $totPerAccount[$cpt['account_number']]['NP'] = $resultNP; } } } // Set value into column N and month M ($totCat) // This make 12 calls for each accountancy account (12 monthes M) foreach($cpts as $i => $cpt) // Loop on each account. { // We make 1 loop for each account because we may want detail per account. // @TODO Optimize to ask a 'group by' account and a filter with account in (..., ...) in request // Each month $resultN = 0; foreach($months as $k => $v) { $monthtoprocess = $k+1; // ($k+1) is month 1, 2, ..., 12 $yeartoprocess = $start_year; if (($k+1) < $start_month) $yeartoprocess++; //var_dump($monthtoprocess.'_'.$yeartoprocess); $return = $AccCat->getSumDebitCredit($cpt['account_number'], $date_start, $date_end, $cpt['dc']?$cpt['dc']:0, 'nofilter', $monthtoprocess, $yeartoprocess); if ($return < 0) { setEventMessages(null, $AccCat->errors, 'errors'); $resultM=0; } else { $resultM=$AccCat->sdc; } $totCat['M'][$k] += $resultM; $sommes[$code]['M'][$k] += $resultM; $totPerAccount[$cpt['account_number']]['M'][$k] = $resultM; $resultN += $resultM; } $totCat['N'] += $resultN; $sommes[$code]['N'] += $resultN; $totPerAccount[$cpt['account_number']]['N'] = $resultN; } // Now output columns for row $code ('VTE', 'MAR', ...) print ""; // Column group print ''; // Label of group print ''; print ''; print ''; // Each month foreach($totCat['M'] as $k => $v){ if (($k+1) >= $date_startmonth) print ''; } foreach($totCat['M'] as $k => $v){ if (($k+1) < $date_startmonth) print ''; } print "\n"; // Loop on detail of all accounts to output the detail if ($showaccountdetail != 'no') { foreach($cpts as $i => $cpt) { $resultNP=$totPerAccount[$cpt['account_number']]['NP']; $resultN=$totPerAccount[$cpt['account_number']]['N']; if ($showaccountdetail == 'all' || $resultN > 0) { print ''; print ''; print ''; print ''; print ''; // Make one call for each month foreach($months as $k => $v) { if (($k+1) >= $date_startmonth) { $resultM=$totPerAccount[$cpt['account_number']]['M'][$k]; print ''; } } foreach($months as $k => $v) { if (($k+1) < $date_startmonth) { $resultM=$totPerAccount[$cpt['account_number']]['M'][$k]; print ''; } } print "\n"; } } } } } } print "

'.$langs->trans("AccountingCategory").'		'.$langs->trans("PreviousPeriod").'	'.$langs->trans("SelectedPeriod").'	'.$langs->trans('MonthShort'.sprintf("%02s",($k+1))).'	'.$langs->trans('MonthShort'.sprintf("%02s",($k+1))).'
'; print $cat['code']; print '	'; print $cat['label']; print '	' . price($r) . '	' . price($r) . '	' . price($r) . '	' . price($r) . '
'; print $cat['code']; print '	'; print $cat['label']; if (count($cpts) > 0) // Show example of 5 first accounting accounts { $i=0; foreach($cpts as $cpt) { if ($i > 5) { print '...)'; break; } if ($i > 0) print ', '; else print ' ('; print $cpt['account_number']; $i++; } if ($i <= 5) print ')'; } else { print ' - '.$langs->trans("GroupIsEmptyCheckSetup").''; } print '	' . price($totCat['NP']) . '	' . price($totCat['N']) . '	' . price($v) . '	' . price($v) . '
	'; print '     ' . length_accountg($cpt['account_number']); print ' - '; print $cpt['account_label']; print '	' . price($resultNP) . '	' . price($resultN) . '	' . price($resultM) . '	' . price($resultM) . '

"; print '