Subversion Repositories eFlore/Applications.cel

Compare Revisions

Ignore whitespace Rev 415 → Rev 416

/trunk/jrest/services/InventoryByDept.php
New file
0,0 → 1,153
<?php
 
// In utf8
// Out iso3859
 
// Liste des Nouvelles observations par departement
 
 
Class InventoryByDept extends DBAccessor {
 
 
var $config;
var $extendSpreadsheetProductor;
function InventoryByDept($config) {
 
$this->config=$config;
// Pas d'heritage multiple en php :(
$this->extendSpreadsheetProductor = new SpreadsheetProductor();
$this->extendSpreadsheetProductor->initSpreadsheet();
}
 
function getRessource(){
$DB=$this->connectDB($this->config,'database_cel');
$query="SELECT id_location, identifiant, ordre, nom_sel, num_nom_sel, nom_ret, num_nom_ret, num_taxon, famille, location, date_observation," .
" lieudit, station, milieu, commentaire, transmission FROM cel_inventory ".
"where id_location!='000null' and transmission=1 and num_taxon!=0 order by round(id_location), nom_ret";
$res =& $DB->query($query);
if (DB::isError($res)) {
die($res->getMessage());
}
// Creating a workbook
$workbook = new Spreadsheet_Excel_Writer();
// Creating a worksheet
$worksheet = $workbook->addWorksheet('Liste');
 
$worksheet->write(0,0,'Departement');
$worksheet->write(0,1,'Nom saisi');
$worksheet->write(0,2,'Numero nomenclatural');
$worksheet->write(0,3,'Nom retenu');
$worksheet->write(0,4,'Numero nomenclatural nom retenu');
$worksheet->write(0,5,'Numero taxonomique');
$worksheet->write(0,6,'Famille');
$worksheet->write(0,7,'Commune');
$worksheet->write(0,8,'Date Observation');
$worksheet->write(0,9,'Lieu dit');
$worksheet->write(0,10,'Station');
$worksheet->write(0,11,'Milieu');
$worksheet->write(0,12,'Commentaire');
$worksheet->write(0,13,'Observateur');
$DB2=$this->connectDB($this->config);
$i=1;
while ($row =& $res->fetchrow(DB_FETCHMODE_ASSOC)) {
 
$query2="SELECT ecd_ce_taxon FROM eflore_zg, eflore_chorologie_donnee WHERE ecd_ce_taxon =".$row['num_taxon']." and ezg_code=".$row['id_location']." and ecd_ce_zone_geo=ezg_id_zone_geo and ezg_id_projet_zg =ecd_ce_version_projet_zg and ecd_ce_version_projet_taxon=25";
 
$res2 =& $DB2->query($query2);
if (DB::isError($res2)) {
die($res2->getMessage());
}
if ($res2->numRows() == 0) {
// Denullifiage
foreach($row as $k=>$v) {
if (($v=="null") || ($v=="000null")) {
$row[$k]="";
}
else {
$row[$k]=utf8_decode($v);
}
}
if ($row['date_observation']!="0000-00-00 00:00:00") {
list($year,$month,$day)= split ('-',$row['date_observation']);
list($day)= split (' ',$day);
$row['date_observation']=$day."/".$month."/".$year;
}
else {
$row['date_observation']="00/00/0000";
}
$worksheet->write($i,0,$row['id_location']);
$worksheet->write($i,1,$row['nom_sel']);
$worksheet->write($i,2,$row['num_nom_sel']);
$worksheet->write($i,3,$row['nom_ret']);
$worksheet->write($i,4,$row['num_nom_ret']);
$worksheet->write($i,5,$row['num_taxon']);
$worksheet->write($i,6,$row['famille']);
$worksheet->write($i,7,$row['location']);
$worksheet->write($i,8,$row['date_observation']);
$worksheet->write($i,9,$row['lieudit']);
$worksheet->write($i,10,$row['station']);
$worksheet->write($i,11,$row['milieu']);
$worksheet->write($i,12,$row['commentaire']);
$worksheet->write($i,13,$row['identifiant']);
$i++;
}
}
// sending HTTP headers
$workbook->send('liste.xls');
$workbook->close();
exit();
}
}
 
/* +--Fin du code ---------------------------------------------------------------------------------------+
* $Log$
* Revision 1.1 2008-11-13 11:29:12 ddelon
* Reecriture gwt-ext
*
* Revision 1.2 2008-01-30 08:57:28 ddelon
* fin mise en place mygwt
*
* Revision 1.1 2007-06-06 13:31:16 ddelon
* v0.09
*
* Revision 1.3 2007-05-22 12:54:09 ddelon
* Securisation acces utilisateur
*
*
*
*/
 
?>