list-compres.php
author viric@llimona
Wed, 04 Oct 2006 23:24:21 +0200
changeset 5 974edda953a6
parent 0 e269d7e3f581
child 2 eb656142f039
child 9 e3ddfccc8d4f
permissions -rw-r--r--
Els percentatges precalculats eren massa llargs. Arreglat.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     2
<html>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     3
<head>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     4
	<title>Ètxelon - Consulta de compres</title>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     5
	<meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     6
</head>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     7
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     8
<body>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
     9
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    10
<h1 align=center>Ètxelon</h1>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    11
<h2>Total de compres</h2>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    12
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    13
<?php
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    14
	include("getdb.inc");
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    15
	$connexio = mysql_connect($mysql_server, $mysql_user, $mysql_password);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    16
	mysql_select_db($mysql_db, $connexio);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    17
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    18
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    19
	// Crides a funcions per obtenir parametres
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    20
	$habitants = obtenir_habitants($connexio);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    21
	$num_habitants = count($habitants);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    22
?>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    23
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    24
<TABLE BORDER=1>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    25
<TR>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    26
	<TH ROWSPAN=2>Data
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    27
	<TH ROWSPAN=2>Botiga
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    28
	<TH ROWSPAN=2>Motiu
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    29
	<TH ROWSPAN=2>Preu
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    30
	<TH COLSPAN=<?php echo $num_habitants?>>Pagat
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    31
	<TH ROWSPAN=2>Excepcions
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    32
	<TH ROWSPAN=2>Eliminiar
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    33
<TR>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    34
<?php
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    35
		foreach($habitants as $i)
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    36
			echo "\t<TH>" . strtohtml($i["nom"]). "\n";
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    37
?>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    38
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    39
<?php
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    40
	$query = "SELECT UNIX_TIMESTAMP(data),botiga,motiu,preu FROM compres ORDER BY data DESC";
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    41
	$resultat = mysql_query($query, $connexio);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    42
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    43
	// Per cada compra ...
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    44
	$num_compres = 0;
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    45
	while ($fila = mysql_fetch_row($resultat))
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    46
	{
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    47
		$data = $fila[0];
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    48
		$date_shown = date("d/m/Y H:i",$data);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    49
		printf("<tr>\n\t<td><A HREF=\"view-compra?id=%s\">%s</A>\n", $data,
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    50
			$date_shown);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    51
		printf("\t<td>%s\n", strtohtml($fila[1]));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    52
		printf("\t<td>%s\n", strtohtml($fila[2]));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    53
		printf("\t<td align=right>%s\n", pricetohtml($fila[3]));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    54
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    55
		// Obtenim lo que toca pagar a cadascú
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    56
		$query = "SELECT compradors.persona,compradors.pagat,compradors.toca_pagar FROM compradors,gent WHERE compradors.data = FROM_UNIXTIME($data) AND compradors.persona = gent.id AND gent.habitant = 1 ORDER BY gent.nom;";
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    57
		$resultat2 = mysql_query($query, $connexio);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    58
		
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    59
		unset($compradors);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    60
		while ($fila2 = mysql_fetch_row($resultat2))
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    61
		{
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    62
			$compradors[$fila2[0]] = array( "pagat" => $fila2[1],
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    63
											"toca_pagar" => $fila2[2]);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    64
		}
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    65
		foreach($habitants as $i)
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    66
		{
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    67
			if (isset($compradors[$i["id"]]))
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    68
				printf("\t<td align=right>%s\n", pricetohtml($compradors[$i["id"]]["pagat"]));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    69
			else
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    70
				printf("\t<td align=right>%s\n", pricetohtml(0));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    71
		}
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    72
		$excepcions = obtenir_excepcions($data,$connexio);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    73
		if ($excepcions != 0)
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    74
			printf("\t<td align=right>%d\n", count($excepcions));
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    75
		else
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    76
			printf("\t<td align=right>0\n");
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    77
		printf("\t<td><A HREF=\"delete-compra?id=%s\">Eliminar</A>\n", $data);
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    78
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    79
		$num_compres++;
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    80
	}
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    81
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    82
?>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    83
</TABLE>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    84
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    85
<P>Hi ha un total de <?php echo $num_compres ?> compres. </P>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    86
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    87
<HR WIDTH="70%">
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    88
<BR>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    89
<A HREF="index">Tornar al menú d'inici</A>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    90
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    91
</body>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    92
</html>
e269d7e3f581 Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff changeset
    93