From 0ff0c22740e064f73164c3c27261a5d8230cb2f6 Mon Sep 17 00:00:00 2001
From: Rodolphe Quiedeville <rodolphe@quiedeville.org>
Date: Wed, 6 Apr 2005 10:53:07 +0000
Subject: [PATCH] =?UTF-8?q?Ajout=20v=E9rification=20de=20la=20coh=E9rence?=
 =?UTF-8?q?=20des=20contrats?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../telephonie/script/facturation-verif.php   | 70 +++++++++++++++++++
 1 file changed, 70 insertions(+)

diff --git a/htdocs/telephonie/script/facturation-verif.php b/htdocs/telephonie/script/facturation-verif.php
index 4e93e8d01ee..a7037b99afe 100644
--- a/htdocs/telephonie/script/facturation-verif.php
+++ b/htdocs/telephonie/script/facturation-verif.php
@@ -103,4 +103,74 @@ if ( $resql )
   $db->free();
 }
 print "\n";
+
+/*
+ * Verfication des contrats
+ */
+$contrats = array();
+
+$sql = "SELECT rowid, fk_client_comm, fk_soc, fk_soc_facture";
+$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_contrat ";
+
+$resql = $db->query($sql) ;
+
+if ( $resql )
+{
+  $num = $db->num_rows($resql);
+  
+  $i = 0;
+  
+  while ($i < $num)
+    {
+      $objp = $db->fetch_object($resql);
+      
+      $contrats[$i] = $objp;
+      
+      $i++;
+    }            
+  $db->free();
+}
+dolibarr_syslog(sizeof($contrats) ." contrats a vérifier"); 
+
+foreach ($contrats as $contrat)
+{
+
+  $sql = "SELECT rowid, fk_client_comm, fk_soc, fk_soc_facture";
+  $sql .= " FROM ".MAIN_DB_PREFIX."telephonie_societe_ligne";
+  $sql .= " WHERE fk_contrat = ".$contrat->rowid;
+
+  $resql = $db->query($sql) ;
+  
+  if ( $resql )
+    {
+      $num = $db->num_rows($resql);      
+      $i = 0;
+      
+      while ($i < $num)
+	{
+	  $objp = $db->fetch_object($resql);
+	  
+	  if ($objp->fk_client_comm <> $contrat->fk_client_comm)
+	    {
+	      dolibarr_syslog("Erreur fk_client_comm contrat ".$contrat->rowid." ligne ".$objp->rowid);
+	    }
+	  
+	  if ($objp->fk_soc <> $contrat->fk_soc)
+	    {
+	      dolibarr_syslog("Erreur fk_soc contrat ".$contrat->rowid." ligne ".$objp->rowid);
+	    }
+
+	  if ($objp->fk_soc_facture <> $contrat->fk_soc_facture)
+	    {
+	      dolibarr_syslog("Erreur fk_soc_facture contrat ".$contrat->rowid." ligne ".$objp->rowid);
+	    }
+	  $i++;
+	}            
+      $db->free();
+    } 
+  else
+    {
+      dolibarr_syslog("Erreur SQL");
+    }
+}
 ?>