Re: [Dolibarr-dev] propositions aperçu propa l & co

[Laurent Destailleur (Eldy)]

Christophe wrote:

> Le jeudi 28 juillet 2005 à 16:09 +0200, Régis Houssin a écrit :
>  
>
> > > - est-il envisagé/able de faire pour les propal, comme pour les
> > > factures, d'avoir un accès en prévisualisation ? Je le trouve fort
> > > intéressant et utile pour les factures, je me dis que ça serait bien
> > >      
> > de
> >    
> >
> > > l'extrapoler aux autres types de sorties.
> > >      
> > Oui je pourrais regarder ca ce weekend
> >    
>
> Bon, comme je n'avais toujours pas de nouvelles, j'ai tenté quelque
> chose. Je joints le patch correspondant, si ça dit à quelqu'un.
>
> Et vive CVS parce qu'avec tout ce que j'ai déjà modifié et qui n'est pas
> dans le CVS, sans un tel système de gestion de versions, jamais je ne
> pourrais continuer à faire des mises à jour ;-)
>  
Ton patch a été appliqué avec succès.
Merci.

>  
>
> ------------------------------------------------------------------------
>
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/comm/propal/apercu.php 
> dolibarr/htdocs/comm/propal/apercu.php
> --- dolibarrcvs/htdocs/comm/propal/apercu.php   1969-12-31 20:00:00.000000000 
> -0400
> +++ dolibarr/htdocs/comm/propal/apercu.php      2005-08-12 18:08:54.000000000 
> -0400
> @@ -0,0 +1,286 @@
> +<?php
> +/* Copyright (C) 2002-2005 Rodolphe Quiedeville <address@hidden>
> + * Copyright (C) 2004      Éric Seigne          <address@hidden>
> + * Copyright (C) 2004-2005 Laurent Destailleur  <address@hidden>
> + *
> + * This program is free software; you can redistribute it and/or modify
> + * it under the terms of the GNU General Public License as published by
> + * the Free Software Foundation; either version 2 of the License, or
> + * (at your option) any later version.
> + *
> + * This program is distributed in the hope that it will be useful,
> + * but WITHOUT ANY WARRANTY; without even the implied warranty of
> + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> + * GNU General Public License for more details.
> + *
> + * You should have received a copy of the GNU General Public License
> + * along with this program; if not, write to the Free Software
> + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
> + *
> + * $Id: apercu.php,v 1.0 2005/07/16 11:10:39 chris Exp $
> + * $Source: /cvsroot/dolibarr/dolibarr/htdocs/comm/propal/apercu.php,v $
> + *
> + */
> +
> +/**
> +               \file           htdocs/comm/propal/apercu.php
> +               \ingroup        propal
> +               \brief          Page de l'onglet aperçu d'une propal
> +               \version        $Revision: 1.0 $
> +*/
> +
> +require("./pre.inc.php");
> +
> +$user->getrights('propale');
> +
> +if (!$user->rights->propale->lire)
> +       accessforbidden();
> +
> +$langs->load('propal');
> +$langs->load("bills");
> +
> +
> +require_once(DOL_DOCUMENT_ROOT.'/comm/propal_model_pdf.class.php');
> +require_once(DOL_DOCUMENT_ROOT.'/propal.class.php');
> +if ($conf->projet->enabled) {
> +       require_once(DOL_DOCUMENT_ROOT."/project.class.php");
> +}
> +
> +
> +/*
> + * Sécurité accés client
> +*/
> +if ($user->societe_id > 0)
> +{
> +       $action = '';
> +       $socidp = $user->societe_id;
> +}
> +
> +llxHeader();
> +
> +$html = new Form($db);
> +
> +/* *************************************************************************** 
> */
> +/*                                                                             
> */
> +/* Mode fiche                                                                  
> */
> +/*                                                                             
> */
> +/* *************************************************************************** 
> */
> +
> +if ($_GET["propalid"] > 0) {
> +       $propal = new Propal($db);
> +
> +       if ( $propal->fetch($_GET["propalid"], $user->societe_id) > 0)
> +               {
> +               $soc = new Societe($db, $propal->socidp);
> +               $soc->fetch($propal->socidp);
> +
> +               $h=0;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans('CommercialCard');
> +               $h++;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/compta/propal.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans('AccountancyCard');
> +               $h++;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans("Preview");
> +               $hselected=$h;
> +               $h++;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans('Note');
> +               $h++;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/info.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans('Info');
> +               $h++;
> +
> +               $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/document.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans('Documents');
> +               $h++;
> +
> +               dolibarr_fiche_head($head, $hselected, 
> $langs->trans('Proposal').': '.$propal->ref);
> +
> +
> +               /*
> +               *   Propal
> +               */
> +               $sql = 'SELECT s.nom, s.idp, p.price, p.fk_projet, p.remise, 
> p.tva, p.total, p.ref, p.fk_statut, '.$db->pdate('p.datep').' as dp, p.note,';
> +               $sql.= ' x.firstname, x.name, x.fax, x.phone, x.email, 
> p.fk_user_author, p.fk_user_valid, p.fk_user_cloture, p.datec, p.date_valid, 
> p.date_cloture';
> +               $sql.= ' FROM '.MAIN_DB_PREFIX.'societe as s, 
> '.MAIN_DB_PREFIX.'propal as p, '.MAIN_DB_PREFIX.'socpeople as x';
> +               $sql.= ' WHERE p.fk_soc = s.idp AND p.fk_soc_contact = x.idp AND 
> p.rowid = '.$propal->id;
> +               if ($socidp) $sql .= ' AND s.idp = '.$socidp;
> +
> +               $result = $db->query($sql);
> +
> +
> +
> +
> +               if ($result) {
> +                       if ($db->num_rows($result)) {
> +                               $obj = $db->fetch_object($result);
> +
> +                               $societe = new Societe($db);
> +                               $societe->fetch($obj->idp);
> +
> +                               print '<table class="border" width="100%">';
> +                               $rowspan=3;
> +                               // ligne 1
> +                               // partie Gauche
> +                               print '<tr><td>'.$langs->trans('Company').'</td><td 
> colspan="3">';
> +                               if ($societe->client == 1) {
> +                                       $url ='fiche.php?socid='.$societe->id;
> +                               } else {
> +                                       $url = 
> DOL_URL_ROOT.'/comm/prospect/fiche.php?socid='.$societe->id;
> +                               }
> +                               print '<a 
> href="'.$url.'">'.$societe->nom.'</a></td>';
> +                               // partie Droite
> +                               print '<td align="left">Conditions de 
> réglement</td>';
> +                               print '<td>'.'&nbsp;'.'</td>';
> +                               print '</tr>';
> +
> +                               // ligne 2
> +                               // partie Gauche
> +                               print '<tr><td>'.$langs->trans('Date').'</td><td 
> colspan="3">';
> +                               print dolibarr_print_date($propal->date,'%a %e 
> %B %Y');
> +                               print '</td>';
> +
> +                               // partie Droite
> +                               print 
> '<td>'.$langs->trans('DateEndPropal').'</td><td>';
> +                               if ($propal->fin_validite) {
> +                                       print 
> dolibarr_print_date($propal->fin_validite);
> +                               } else {
> +                                       print $langs->trans("Unknown");
> +                               }
> +                               print '</td>';
> +                               print '</tr>';
> +
> +                               // Destinataire
> +                               $langs->load('mails');
> +                               // ligne 3
> +                               print '<tr>';
> +                               // partie Gauche
> +                               print '<td>'.$langs->trans('MailTo').'</td>';
> +
> +                               $dests=$societe->contact_array($societe->id);
> +                               $numdest = count($dests);
> +                               print '<td colspan="3">';
> +                               if ($numdest==0) {
> +                                       print '<font class="error">Cette societe n\'a pas 
> de contact, veuillez en créer un avant de faire votre proposition commerciale</font><br>';
> +                                       print '<a 
> href="'.DOL_URL_ROOT.'/contact/fiche.php?socid='.$societe->id.'&amp;action=create&amp;backtoreferer=1">'.$langs->trans('AddContact').'</a>';
> +                               } else {
> +                                       if (!empty($propal->contactid)) {
> +                                               
> require_once(DOL_DOCUMENT_ROOT.'/contact.class.php');
> +                                               $contact=new Contact($db);
> +                                               
> $contact->fetch($propal->contactid);
> +                                               print '<a 
> href="'.DOL_URL_ROOT.'/contact/fiche.php?id='.$propal->contactid.'" 
> title="'.$langs->trans('ShowContact').'">';
> +                                               print $contact->firstname.' 
> '.$contact->name;
> +                                               print '</a>';
> +                                       } else {
> +                                               print '&nbsp;';
> +                                       }
> +                               }
> +                               print '</td>';
> +
> +                               // partie Droite sur $rowspan lignes
> +                               print '<td colspan="2" rowspan="'.$rowspan.'" valign="top" 
> width="50%">';
> +
> +
> +                               /*
> +                               * Documents
> +                               *
> +                               */
> +                               $propalref = sanitize_string($propal->ref);
> +                               $file = $conf->propal->dir_output . "/" . $propalref . 
> "/" . $propalref . ".pdf";
> +                               $filedetail = $conf->propal->dir_output . "/" . $propalref . 
> "/" . $propalref . "-detail.pdf";
> +                               $relativepath = "${propalref}/${propalref}.pdf";
> +                               $relativepathdetail = 
> "${propalref}/${propalref}-detail.pdf";
> +                               $relativepathimage = 
> "${propalref}/${propalref}.pdf.png";
> +
> +                               $fileimage = $file.".png";
> +
> +                               $var=true;
> +
> +                               // Si fichier PDF existe
> +                               if (file_exists($file)) {
> +                                       $encfile = urlencode($file);
> +                                       print_titre($langs->trans("Documents"));
> +                                       print '<table class="border" 
> width="100%">';
> +
> +                                       print "<tr 
> $bc[$var]><td>".$langs->trans("Propal")." PDF</td>";
> +
> +                                       print '<td><a href="'.DOL_URL_ROOT . 
> '/document.php?modulepart=propal&file='.urlencode($relativepath).'">'.$propal->ref.'.pdf</a></td>';
> +                                       print '<td align="right">'.filesize($file). ' 
> bytes</td>';
> +                                       print '<td align="right">'.strftime("%d %b %Y 
> %H:%M:%S",filemtime($file)).'</td>';
> +                                       print '</tr>';
> +
> +                                       // Si fichier detail PDF existe
> +                                       if (file_exists($filedetail)) { // 
> propal détaillée supplémentaire
> +                                               print "<tr $bc[$var]><td>Propal 
> détaillée</td>";
> +
> +                                               print '<td><a href="'.DOL_URL_ROOT . 
> '/document.php?modulepart=propal&file='.urlencode($relativepathdetail).'">'.$propal->ref.'-detail.pdf</a></td>';
> +                                               print '<td 
> align="right">'.filesize($filedetail). ' bytes</td>';
> +                                               print '<td align="right">'.strftime("%d %b 
> %Y %H:%M:%S",filemtime($filedetail)).'</td>';
> +                                               print '</tr>';
> +                                       }
> +                                       print "</table>\n";
> +                                       // Conversion du PDF en image png si 
> fichier png non existant
> +                                       if (!file_exists($fileimage)) {
> +                                               if 
> (function_exists(imagick_readimage)) {
> +                                                       $handle = 
> imagick_readimage( $file ) ;
> +                                                       if ( imagick_iserror( 
> $handle ) ) {
> +                                                               $reason      = 
> imagick_failedreason( $handle ) ;
> +                                                               $description = 
> imagick_faileddescription( $handle ) ;
> +
> +                                                               print "handle 
> failed!<BR>\nReason: $reason<BR>\nDescription: $description<BR>\n";
> +                                                       }
> +                                                       imagick_convert( $handle, 
> "PNG" ) ;
> +                                                       if ( imagick_iserror( 
> $handle ) ) {
> +                                                               $reason      = 
> imagick_failedreason( $handle ) ;
> +                                                               $description = 
> imagick_faileddescription( $handle ) ;
> +                                                               print "handle 
> failed!<BR>\nReason: $reason<BR>\nDescription: $description<BR>\n";
> +                                                       }
> +                                                       imagick_writeimage( $handle, 
> $file .".png");
> +                                               } else {
> +                                                       $langs->load("other");
> +                                                       print 
> $langs->trans("ErrorNoImagickReadimage");
> +                                               }
> +                                       }
> +                               }
> +                               print "</td></tr>";
> +
> +
> +                               // ligne 4
> +                               // partie Gauche
> +                               print '<tr><td height="10" 
> nowrap>'.$langs->trans('GlobalDiscount').'</td>';
> +                               print '<td 
> colspan="3">'.$propal->remise_percent.'%</td>';
> +                               print '</tr>';
> +
> +                               // ligne 5
> +                               // partie Gauche
> +                               print '<tr><td 
> height="10">'.$langs->trans('AmountHT').'</td>';
> +                               print '<td align="right" 
> colspan="2"><b>'.price($propal->price).'</b></td>';
> +                               print 
> '<td>'.$langs->trans("Currency".$conf->monnaie).'</td></tr>';
> +                               print '</table>';
> +                       }
> +               } else {
> +                       dolibarr_print_error($db);
> +               }
> +       } else {
> +       // Propal non trouvée
> +       print $langs->trans("ErrorPropalNotFound",$_GET["propalid"]);
> +       }
> +}
> +
> +if (file_exists($fileimage))
> +       {
> +       print '<img src="'.DOL_URL_ROOT . 
> '/viewimage.php?modulepart=apercupropal&file='.urlencode($relativepathimage).'">';
> +       }
> +print '</div>';
> +
> +$db->close();
> +
> +llxFooter('$Date: 2005/08/12 11:10:39 $ - $Revision: 1.0 $');
> +?>
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/comm/propal/document.php 
> dolibarr/htdocs/comm/propal/document.php
> --- dolibarrcvs/htdocs/comm/propal/document.php 2005-07-30 00:03:08.000000000 
> -0400
> +++ dolibarr/htdocs/comm/propal/document.php    2005-08-12 16:29:25.000000000 
> -0400
> @@ -105,6 +105,10 @@
>         $head[$h][1] = $langs->trans('AccountancyCard');
>         $h++;
>     
> +		$head[$h][0] = DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +               $head[$h][1] = $langs->trans("Preview");
> +               $h++;
> +
>                 $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
>                 $head[$h][1] = $langs->trans('Note');
>                 $h++;
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/comm/propal/info.php 
> dolibarr/htdocs/comm/propal/info.php
> --- dolibarrcvs/htdocs/comm/propal/info.php     2005-07-10 20:49:17.000000000 
> -0400
> +++ dolibarr/htdocs/comm/propal/info.php        2005-08-12 16:29:15.000000000 
> -0400
> @@ -63,6 +63,10 @@
>         $head[$h][1] = $langs->trans('AccountancyCard');
>         $h++;
>
> +       $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +       $head[$h][1] = $langs->trans("Preview");
> +       $h++;
> +
>         $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
>         $head[$h][1] = $langs->trans('Note');
>         $h++;
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/comm/propal/note.php 
> dolibarr/htdocs/comm/propal/note.php
> --- dolibarrcvs/htdocs/comm/propal/note.php     2005-07-10 20:49:17.000000000 
> -0400
> +++ dolibarr/htdocs/comm/propal/note.php        2005-08-12 16:28:59.000000000 
> -0400
> @@ -83,6 +83,10 @@
>                 $head[$h][1] = $langs->trans('AccountancyCard');
>                 $h++;
>         
> +			$head[$h][0] = DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +                       $head[$h][1] = $langs->trans("Preview");
> +                       $h++;
> +
>                         $head[$h][0] = 
> DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
>                         $head[$h][1] = $langs->trans('Note');
>                         $hselected=$h;
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/comm/propal.php 
> dolibarr/htdocs/comm/propal.php
> --- dolibarrcvs/htdocs/comm/propal.php  2005-08-11 22:25:48.000000000 -0400
> +++ dolibarr/htdocs/comm/propal.php     2005-08-12 16:03:41.000000000 -0400
> @@ -398,6 +398,10 @@
>   $head[$h][1] = $langs->trans('AccountancyCard');
>   $h++;
>
> +  $head[$h][0] = DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +  $head[$h][1] = $langs->trans("Preview");
> +  $h++;
> +
>   $head[$h][0] = DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
>   $head[$h][1] = $langs->trans('Note');
>   $h++;
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/compta/propal.php 
> dolibarr/htdocs/compta/propal.php
> --- dolibarrcvs/htdocs/compta/propal.php        2005-08-11 22:25:49.000000000 
> -0400
> +++ dolibarr/htdocs/compta/propal.php   2005-08-12 16:28:42.000000000 -0400
> @@ -107,6 +107,10 @@
>   $hselected=$h;
>   $h++;
>   
> +  $head[$h][0] = DOL_URL_ROOT.'/comm/propal/apercu.php?propalid='.$propal->id;
> +  $head[$h][1] = $langs->trans("Preview");
> +  $h++;
> +
>   $head[$h][0] = DOL_URL_ROOT.'/comm/propal/note.php?propalid='.$propal->id;
>   $head[$h][1] = $langs->trans('Note');
>   $h++;
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file 
> dolibarrcvs/htdocs/includes/modules/propale/modules_propale.php 
> dolibarr/htdocs/includes/modules/propale/modules_propale.php
> --- dolibarrcvs/htdocs/includes/modules/propale/modules_propale.php     
> 2004-12-23 13:52:48.000000000 -0400
> +++ dolibarr/htdocs/includes/modules/propale/modules_propale.php        
> 2005-08-12 18:19:10.000000000 -0400
> @@ -127,6 +127,8 @@
>
>       if ( $obj->write_pdf_file($facid) > 0)
>         {
> +         // on supprime l'image correspondant au preview
> +           propale_delete_preview($db, $facid);
>           return 1;
>         }
>       else
> @@ -142,4 +144,33 @@
>       return 0;
>     }
> }
> +/**
> +   \brief      Supprime l'image de prévisualitation, pour le cas de 
> régénération de propal
> +   \param          db                  objet base de donnée
> +   \param          propalid    id de la propal à effacer
> +*/
> +function propale_delete_preview($db, $propalid)
> +{
> +       global $langs,$conf;
> +
> +       $propal = new Propal($db,"",$propalid);
> +	$propal->fetch($propalid);  
> +	$propal->fetch_client();
> +
> +       if ($conf->propal->dir_output)
> +               {
> +		$propalref = sanitize_string($propal->ref); 
> +		$dir = $conf->propal->dir_output . "/" . $propalref ; 
> +		$file = $dir . "/" . $propalref . ".pdf.png";
> +
> +               if ( file_exists( $file ) && is_writable( $file ) )
> +                       {
> +                       if ( ! unlink($file) )
> +                               {
> +                               
> $this->error=$langs->trans("ErrorFailedToOpenFile",$file);
> +                               return 0;
> +                               }
> +                       }
> +               }
> +}
> ?>
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/langs/fr_FR/propal.lang 
> dolibarr/htdocs/langs/fr_FR/propal.lang
> --- dolibarrcvs/htdocs/langs/fr_FR/propal.lang  2005-08-11 22:25:53.000000000 
> -0400
> +++ dolibarr/htdocs/langs/fr_FR/propal.lang     2005-08-12 16:44:44.000000000 
> -0400
> @@ -57,4 +57,5 @@
> ClassifyBilled=Classer facturée
> BuildBill=Créer facture
> RelatedBill=Facture associée
> -RelatedBills=Factures associées
> \ Pas de fin de ligne à la fin du fichier.
> +RelatedBills=Factures associées
> +ErrorPropalNotFound=Propal %s inexistante
> diff -ur --exclude=CVS --exclude=install --exclude=conf.php 
> --unidirectional-new-file dolibarrcvs/htdocs/viewimage.php 
> dolibarr/htdocs/viewimage.php
> --- dolibarrcvs/htdocs/viewimage.php    2005-08-01 01:32:47.000000000 -0400
> +++ dolibarr/htdocs/viewimage.php       2005-08-12 17:44:13.000000000 -0400
> @@ -70,6 +70,17 @@
>         $original_file=$conf->facture->dir_output.'/'.$original_file;
>     }
>
> +    // Wrapping pour les apercu propal
> +    if ($modulepart == 'apercupropal')
> +    {
> +        $user->getrights('propale');
> +        if ($user->rights->propale->lire)
> +        {
> +            $accessallowed=1;
> +        }
> +        $original_file=$conf->propal->dir_output.'/'.$original_file;
> +    }
> +
>     // Wrapping pour les images des stats propales
>     if ($modulepart == 'propalstats')
>     {
>  
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Dolibarr-dev mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/dolibarr-dev
>  



--
Laurent Destailleur.
---------------------------------------------------------------
EMail: address@hidden
Instant messenger: ICQ=89306207, Jabber=Eldy
Web: http://www.destailleur.fr
AWStats: http://awstats.sourceforge.net
CVSChangeLogBuilder: http://cvschangelogb.sourceforge.net
AWBot: http://awbot.sourceforge.net
Dolibarr: http//dolibarr.com