| author | viric@llimona |
| Wed, 08 Nov 2006 22:43:00 +0100 | |
| changeset 9 | e3ddfccc8d4f |
| parent 0 | e269d7e3f581 |
| permissions | -rw-r--r-- |
|
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 - Eliminar pagament</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"> |
|
9
e3ddfccc8d4f
Ported a change from the development version: no-cache to every php page.
viric@llimona
parents:
0
diff
changeset
|
6 |
<meta http-equiv="cache-control" content="no-cache"> |
|
0
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
7 |
</head> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
8 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
9 |
<body> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
10 |
<?php |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
11 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
12 |
include("getdb.inc");
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
13 |
// Variables globals |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
14 |
$touchdb = 1; // Si val 0, no es modificarà la base de dades |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
15 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
16 |
// Fem la connexió |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
17 |
$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
|
18 |
mysql_select_db($mysql_db, $connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
19 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
20 |
$data = $_GET["id"]; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
21 |
|
|
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 |
// Crides a funcions per obtenir parametres |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
24 |
$habitants = obtenir_habitants($connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
25 |
$num_habitants = count($habitants); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
26 |
$altres = obtenir_altres($connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
27 |
$gent = obtenir_gent($connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
28 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
29 |
$pagament = obtenir_pagament($data, $connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
30 |
$pagadors = obtenir_pagadors($data, $connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
31 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
32 |
if(!isset($_GET["sure"]) && isset($_GET["id"])) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
33 |
{
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
34 |
?> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
35 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
36 |
<H1 ALIGN=center>Eliminar pagament</H1> |
|
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 |
<H2>Dades generals</H2> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
39 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
40 |
<p> Dades del pagament: </p> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
41 |
<TABLE BORDER=0> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
42 |
<TR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
43 |
<TH>Data i Hora: |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
44 |
<TD> <?php |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
45 |
echo 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
|
46 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
47 |
<TR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
48 |
<TH> Comentari: |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
49 |
<TD> <?php |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
50 |
echo strtohtml($pagament["comentari"]); ?> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
51 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
52 |
</TABLE> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
53 |
|
|
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 |
<H2>Pagadors i cobradors</H2> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
56 |
<!-- Taula de compradors globals --> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
57 |
<TABLE BORDER=1> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
58 |
<CAPTION>Pagadors</CAPTION> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
59 |
<TR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
60 |
<TH>Persona |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
61 |
<TH>Pagat |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
62 |
<TH>Cobrat |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
63 |
<TH>Balanç |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
64 |
<?php |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
65 |
$suma_pagat = 0; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
66 |
$suma_cobrat = 0; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
67 |
$suma_balans = 0; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
68 |
foreach($gent as $key => $value) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
69 |
{
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
70 |
if (isset($pagadors[$key])) |
|
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 |
echo "<TR>\n\t<TD>". strtohtml($gent[$key]["nom"]) . "\n"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
73 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
74 |
printf("\t<TD align=right>%.2f\n", $pagadors[$key]["pagat"]);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
75 |
printf("\t<TD align=right>%.2f\n", $pagadors[$key]["cobrat"]);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
76 |
printf("\t<TD align=right>%.2f\n", $pagadors[$key]["pagat"] - $pagadors[$key]["cobrat"]);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
77 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
78 |
$suma_pagat += $pagadors[$key]["pagat"]; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
79 |
$suma_cobrat += $pagadors[$key]["cobrat"]; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
80 |
$suma_balans += $pagadors[$key]["pagat"] - $pagadors[$key]["cobrat"]; |
|
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 |
echo "<TR>\n\t<TH>Total\n"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
84 |
printf("\t<TD align=right>%.2f\n", $suma_pagat);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
85 |
printf("\t<TD align=right>%.2f\n", $suma_cobrat);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
86 |
printf("\t<TD align=right>%.2f\n", $suma_balans);
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
87 |
?> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
88 |
</TABLE> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
89 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
90 |
<HR WIDTH="70%"> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
91 |
<BR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
92 |
<CENTER> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
93 |
<TABLE BORDER=2> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
94 |
<TR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
95 |
<TD><A HREF="delete-pagament?id=<?php echo $_GET["id"]; ?>&sure=yes"><STRONG>ELIMINAR SEGUR!</STRONG></A> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
96 |
</TR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
97 |
</TABLE> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
98 |
</CENTER> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
99 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
100 |
<?php |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
101 |
} |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
102 |
elseif (isset($_GET["id"]) && $_GET["sure"] == "yes") |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
103 |
{
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
104 |
// Borrem pagadors |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
105 |
$query = "DELETE FROM pagadors WHERE data=FROM_UNIXTIME($data);"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
106 |
if ($touchdb) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
107 |
{
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
108 |
$resultat = mysql_query($query, $connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
109 |
if (!$resultat) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
110 |
warn_mysql("pagadors");
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
111 |
} |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
112 |
else |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
113 |
echo $query . "<BR>\n"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
114 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
115 |
// Borrem pagament |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
116 |
$query = "DELETE FROM pagaments WHERE data=FROM_UNIXTIME($data);"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
117 |
if ($touchdb) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
118 |
{
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
119 |
$resultat = mysql_query($query, $connexio); |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
120 |
if (!$resultat) |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
121 |
warn_mysql("pagaments");
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
122 |
} |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
123 |
else |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
124 |
echo $query . "<BR>\n"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
125 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
126 |
echo "<p>Si no hi ha cap error en línies anteriors, el pagament ha estat eliminat.</p>\n"; |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
127 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
128 |
} |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
129 |
?> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
130 |
<BR> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
131 |
<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
|
132 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
133 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
134 |
|
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
135 |
</body> |
|
e269d7e3f581
Commit inicial. Només hi ha dues diferències de l'original:
viric@llimona
parents:
diff
changeset
|
136 |
</html> |