lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Premiere version exploitable

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2003-05-13 11:48:33 +00:00
parent f9f7c20acf
commit 45960bd04d
1 changed files with 42 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
htdocs/compta/ca.php3
View File

@ -39,45 +39,64 @@ if ($user->societe_id > 0)
print_titre("Chiffres d'affaires en euros HT"); print_titre("Chiffres d'affaires en euros HT");
print "<table width=\"100%\">";
print "<tr><td valign=\"top\">";
$sql = "SELECT sum(f.amount) as amount , date_format(f.datef,'%Y-%m') as dm"; $sql = "SELECT sum(f.amount) as amount , date_format(f.datef,'%Y-%m') as dm";
$sql .= " FROM llx_facture as f WHERE f.paye = 1"; $sql .= " FROM llx_facture as f WHERE f.paye = 1";
if ($socidp) if ($socidp)
{ {
$sql .= " AND f.fk_soc = $socidp"; $sql .= " AND f.fk_soc = $socidp";
} }
$sql .= " GROUP BY dm DESC"; $sql .= " GROUP BY dm DESC";
pt($db, $sql,"Par mois"); $result = $db->query($sql);
if ($result) {
print "</td><td valign=\"top\">"; $num = $db->num_rows();
$i = 0;
$sql = "SELECT sum(f.amount) as amount, month(f.datef) as dm"; $var=True;
$sql .= " FROM llx_facture as f WHERE f.paye = 1"; while ($i < $num)
if ($socidp) {
{ $row = $db->fetch_row($i);
$sql .= " AND f.fk_soc = $socidp"; $cum[$row[1]] = $row[0];
$i++;
}
} }
$sql .= " GROUP BY dm";
pt($db, $sql,"Mois cumulés");
print "<P>";
$sql = "SELECT sum(f.amount) as amount, year(f.datef) as dm"; print '<table width="100%" border="1">';
$sql .= " FROM llx_facture as f WHERE f.paye = 1"; print '<tr class="liste_titre"><td></td>';
if ($socidp)
for ($annee = 2001 ; $annee < 2006 ; $annee++)
{ {
$sql .= " AND f.fk_soc = $socidp"; print '<td align="center" width="14%">'.$annee.'</td>';
} }
$sql .= " GROUP BY dm DESC"; print '</tr>';
for ($mois = 1 ; $mois < 13 ; $mois++)
{
pt($db, $sql,"Année"); print '<tr>';
print "<td>".strftime("%B",mktime(1,1,1,$mois,1,2000))."</td>";
for ($annee = 2001 ; $annee < 2006 ; $annee++)
{
print '<td align="right">&nbsp;';
$case = strftime("%Y-%m",mktime(1,1,1,$mois,1,$annee));
if ($cum[$case]>0)
{
print price($cum[$case]);
}
print "</td>";
}
print "</td></tr></table>"; print '</tr>';
}
//pt($db, $sql,"Par mois");
print "</table>";
$db->close(); $db->close();
@ -90,8 +109,7 @@ llxFooter("<em>Derni&egrave;re modification $Date$ r&eacute;vision $Revision$</e
function pt ($db, $sql, $date) function pt ($db, $sql, $date)
{ {
$bc[0]="class=\"pair\""; global $bc;
$bc[1]="class=\"impair\"";
$result = $db->query($sql); $result = $db->query($sql);
if ($result) { if ($result) {