[Dolibarr-dev] Patch rajoutant l'auteur et le montant TTC dans la liste des commandes fournisseur

[Sébastien Wacquiez]

Bonjour,


Ci-joint un petit patch qui nous facilite la vie la ou je travaille,
permettant d'avoir sur le listing globale des commandes une colonne
concernant le montant TTC (ce choix a été fait car c'est souvent un
montant TTC que l'on recherche sur une commande afin de faire un
rapprochement bancaire) et l'auteur de la dite commande sur le tableau
globale.

Je me suis inspirer du code deja existant dans d'autre module pour
écrire ce patch ; si quelque chose bloque son inclusion n'hésitez pas a
me le faire savoir, je corrigerais.


Merci encore pour ce logiciel ;

-- 
Sébastien Wacquiez, Network Engineer

Smartjog S.A. - http://www.smartjog.com
27 Bd Hippolyte Marques, 94200 Ivry sur Seine, France
Tel  : +33 (0)1 58 68 62 38
Cell : +33 (0)6 31 90 34 62
Fax  : +33 (0)1 58 68 62 05

--- dolibarr-a/htdocs/fourn/commande/liste.php  2009-08-03 09:53:21.000000000 
+0000
+++ dolibarr-b/htdocs/fourn/commande/liste.php  2009-08-03 11:26:01.000000000 
+0000
@@ -66,9 +66,10 @@
  */
 
 $sql = "SELECT s.rowid as socid, s.nom, ".$db->pdate("cf.date_commande")." as 
dc,";
-$sql .= " cf.rowid,cf.ref, cf.fk_statut";
+$sql .= " cf.rowid,cf.ref, cf.fk_statut, cf.total_ttc, cf.fk_user_author, 
u.login";
 if (!$user->rights->societe->client->voir && !$socid) $sql .= ", sc.fk_soc, 
sc.fk_user";
 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, 
".MAIN_DB_PREFIX."commande_fournisseur as cf";
+$sql .= '  LEFT JOIN '.MAIN_DB_PREFIX.'user as u ON cf.fk_user_author = 
u.rowid';
 if (!$user->rights->societe->client->voir && !$socid) $sql .= ", 
".MAIN_DB_PREFIX."societe_commerciaux as sc";
 $sql .= " WHERE cf.fk_soc = s.rowid ";
 if (!$user->rights->societe->client->voir && !$socid) //restriction
@@ -95,6 +96,11 @@
     $sql .= " AND s.nom LIKE '%".$_GET["search_nom"]."%'";
 }
 
+if (strlen($_GET["search_ttc"]))
+{
+    $sql .= " AND round(total_ttc) = round(".$_GET["search_ttc"].")"   ;
+}
+
 $sql .= " ORDER BY $sortfield $sortorder " . $db->plimit($conf->liste_limit+1, 
$offset);
 
 $resql = $db->query($sql);
@@ -111,6 +117,8 @@
     print '<tr class="liste_titre">';
     
print_liste_field_titre($langs->trans("Ref"),$_SERVER["PHP_SELF"],"cf.ref","","",'',$sortfield,$sortorder);
     
print_liste_field_titre($langs->trans("Company"),$_SERVER["PHP_SELF"],"s.nom","","",'',$sortfield,$sortorder);
+    
print_liste_field_titre($langs->trans("Author"),$_SERVER["PHP_SELF"],"u.login","","",'',$sortfield,$sortorder);
+    
print_liste_field_titre($langs->trans("AmountTTC"),$_SERVER["PHP_SELF"],"total_ttc","","",'',$sortfield,$sortorder);
     
print_liste_field_titre($langs->trans("OrderDate"),$_SERVER["PHP_SELF"],"dc","","",'align="center"',$sortfield,$sortorder);
     
print_liste_field_titre($langs->trans("Status"),$_SERVER["PHP_SELF"],"cf.fk_statut","","",'align="right"',$sortfield,$sortorder);
     print "</tr>\n";
@@ -119,13 +127,15 @@
 
     print '<td><input type="text" class="flat" name="search_ref" 
value="'.$_GET["search_ref"].'"></td>';
     print '<td><input type="text" class="flat" name="search_nom" 
value="'.$_GET["search_nom"].'"></td>';
+    print '<td></td>';
+    print '<td><input type="text" class="flat" name="search_ttc" 
value="'.$_GET["search_ttc"].'"></td>';
     print '<td colspan="2" class="liste_titre" align="right">';
     print '<input type="image" class="liste_titre" name="button_search" 
src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/search.png" 
alt="'.$langs->trans("Search").'">';
     print '</td>';
     print '</tr>';
 
     $var=true;
-
+    $userstatic=new User($db);
     while ($i < min($num,$conf->liste_limit))
     {
         $obj = $db->fetch_object($resql);
@@ -140,6 +150,18 @@
         print '<td><a 
href="'.DOL_URL_ROOT.'/fourn/fiche.php?socid='.$obj->socid.'">'.img_object($langs->trans("ShowCompany"),"company").'
 ';
         print $obj->nom.'</a></td>'."\n";
 
+       // Auteur
+       
+       $userstatic->id=$obj->fk_user_author;
+       $userstatic->login=$obj->login;
+       print "<td>";
+       if ($userstatic->id) print $userstatic->getLoginUrl(1);
+       else print "&nbsp;";
+       print "</td>";
+
+       // Montant
+       print '<td align="right" width="100">'.price($obj->total_ttc)."</td>";
+
         // Date
         print "<td align=\"center\" width=\"100\">";
         if ($obj->dc)
@@ -152,6 +174,7 @@
         }
         print '</td>';
 
+
         // Statut
         print '<td align="right">'.$commandestatic->LibStatut($obj->fk_statut, 
5).'</td>';
 

signature.asc
Description: OpenPGP digital signature

_______________________________________________
Dolibarr-dev mailing list
Dolibarr-dev@nongnu.org
http://lists.nongnu.org/mailman/listinfo/dolibarr-dev