/htdocs/comm/prospect.old/fiche.php

<?php

/* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@capnetworks.com>
 * Copyright (C) 2010-2011 Herve Prot           <herve.prot@symeos.com>
 *
 * 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 3 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, see <http://www.gnu.org/licenses/>.
 */

/**
 * 	\file       htdocs/comm/prospect/fiche.php
 * 	\ingroup    prospect
 * 	\brief      Page de la fiche prospect
 */
require_once '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT . '/societe/lib/societe.lib.php';
require_once DOL_DOCUMENT_ROOT . '/comm/prospect/class/prospect.class.php';
require_once DOL_DOCUMENT_ROOT . '/core/class/html.formcompany.class.php';
require_once DOL_DOCUMENT_ROOT . '/contact/class/contact.class.php';
//require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
if (!empty($conf->adherent->enabled))
    require_once DOL_DOCUMENT_ROOT . '/adherent/class/adherent.class.php';
if (!empty($conf->propal->enabled))
    require_once DOL_DOCUMENT_ROOT . '/comm/propal/class/propal.class.php';

$langs->load('companies');
$langs->load('lead@lead');
$langs->load('projects');
$langs->load('propal');
$langs->load('commercial');

// Security check
$socid = GETPOST('socid', 'alpha');
if ($user->societe_id)
    $socid = $user->societe_id;
$result = restrictedArea($user, 'societe', $socid, '&societe');

$object = new Prospect($db);


/*
 * Actions
 */

if ($_GET["action"] == 'cstc') {
    $sql = "UPDATE " . MAIN_DB_PREFIX . "societe SET fk_stcomm = " . $_GET["stcomm"];
    $sql .= " WHERE rowid = " . $_GET["socid"];
    $db->query($sql);

    $actioncomm = new ActionComm($db);
    $actioncomm->addAutoTask('AC_PROSPECT', $_GET["stcomm"] . " Statut de prospection : " . $obj->libelle, $_GET["socid"], '', '');

    if ($objp->fk_stcomm == 0 && $_GET["stcomm"] > 0) {
        $actioncomm = new ActionComm($db);
        $actioncomm->addAutoTask('AC_SUSP', "Statut de prospection : " . $obj->libelle, $_GET["socid"], '', '');
    }

    if (!empty($_GET["backtopage"])) {
        header("Location: " . $_GET["backtopage"]);
    }
}
// set prospect level
if ($_POST["action"] == 'setprospectlevel' && $user->rights->societe->creer) {
    $object->fetch($_GET["socid"]);
    $object->fk_prospectlevel = $_POST['prospect_level_id'];
    $sql = "UPDATE " . MAIN_DB_PREFIX . "societe SET fk_prospectlevel='" . $_POST['prospect_level_id'];
    $sql.= "' WHERE rowid='" . $_GET["socid"] . "'";
    $result = $db->query($sql);
    if (!$result)
        dol_print_error($result);
}


/* * *******************************************************************************
 *
 * Mode fiche
 *
 * ******************************************************************************* */

llxHeader();

$now = dol_now();

$form = new Form($db);
$formcompany = new FormCompany($db);

if ($socid > 0) {
    $actionstatic = new ActionComm($db);
    $result = $object->fetch($socid);
    if ($result < 0) {
        dol_print_error($db);
        exit;
    }

    /*
     * Affichage onglets
     */
    $head = societe_prepare_head($object);

    dol_fiche_head($head, 'prospect', $langs->trans("ThirdParty"), 0, 'company');

    print '<table width="100%" class="notopnoleftnoright">';
    print '<tr><td valign="top" width="50%" class="notopnoleft">';

    print '<table class="border" width="100%">';
    print '<tr><td width="25%">' . $langs->trans("ThirdPartyName") . '</td><td colspan="3">';
    $object->next_prev_filter = "te.client in (2,3)";
    print $form->showrefnav($object, 'socid', '', ($user->societe_id ? 0 : 1), 'rowid', 'nom', '', '');
    print '</td></tr>';

    // Address
    print '<tr><td valign="top">' . $langs->trans("Address") . '</td><td colspan="3">';
    dol_print_address($object->address, 'gmap', 'thirdparty', $object->id);
    print "</td></tr>";

    // Zip / Town
    print '<tr><td nowrap="nowrap">' . $langs->trans('Zip') . ' / ' . $langs->trans("Town") . '</td><td colspan="3">' . $object->zip . (($object->zip && $object->town) ? ' / ' : '') . $societe->town . '</td>';
    print '</tr>';

    // Country
    print '<tr><td>' . $langs->trans("Country") . '</td><td colspan="3">';
    $img = picto_from_langcode($object->country_code);
    if ($object->isInEEC())
        print $form->textwithpicto(($img ? $img . ' ' : '') . $object->country, $langs->trans("CountryIsInEEC"), 1, 0);
    else
        print ($img ? $img . ' ' : '') . $object->country;
    print '</td></tr>';

    // Phone
    print '<tr><td>' . $langs->trans("Phone") . '</td><td style="min-width: 25%;">' . dol_print_phone($object->tel, $object->country_code, 0, $object->id, 'AC_TEL') . '</td>';
    print '<td>' . $langs->trans("Fax") . '</td><td style="min-width: 25%;">' . dol_print_phone($object->fax, $object->country_code) . '</td></tr>';

    // EMail
    print '<td>' . $langs->trans('EMail') . '</td><td colspan="3">' . dol_print_email($object->email, 0, $object->id, 'AC_EMAIL') . '</td></tr>';

    // Web
    print '<tr><td>' . $langs->trans("Web") . "</td><td colspan=\"3\"><a href=\"http://$object->url\">$object->url</a></td></tr>";

    // Level of prospect
    print '<tr><td nowrap>';
    print '<table width="100%" class="nobordernopadding"><tr><td nowrap>';
    print $langs->trans('ProspectLevelShort');
    print '<td>';
    if (($_GET['action'] != 'editlevel') && $user->rights->societe->creer)
        print '<td align="right"><a href="' . $_SERVER["PHP_SELF"] . '?action=editlevel&amp;socid=' . $object->id . '">' . img_edit($langs->trans('SetLevel'), 1) . '</a></td>';
    print '</tr></table>';
    print '</td><td colspan="3">';
    if ($_GET['action'] == 'editlevel') {
        $formcompany->form_prospect_level($_SERVER['PHP_SELF'] . '?socid=' . $object->id, $object->fk_prospectlevel, 'prospect_level_id', 1);
    } else {
        print $object->getLibLevel();
        //$formcompany->form_prospect_level($_SERVER['PHP_SELF'].'?socid='.$objsoc->id,$objsoc->mode_reglement,'none');
    }
    print "</td>";
    print '</tr>';

    // Multiprice level
    if (!empty($conf->global->PRODUIT_MULTIPRICES)) {
        print '<tr><td nowrap>';
        print '<table width="100%" class="nobordernopadding"><tr><td nowrap>';
        print $langs->trans("PriceLevel");
        print '<td><td align="right">';
        if ($user->rights->societe->creer) {
            print '<a href="' . DOL_URL_ROOT . '/comm/multiprix.php?id=' . $object->id . '">' . img_edit($langs->trans("Modify")) . '</a>';
        }
        print '</td></tr></table>';
        print '</td><td colspan="3">' . $object->price_level . "</td>";
        print '</tr>';
    }

    // Status
    print '<tr><td>' . $langs->trans("StatusProsp") . '</td><td colspan="2">' . $object->getLibProspStatut(4) . '</td>';
    print '<td>';
    if ($object->stcomm_id != -1)
        print '<a href="fiche.php?socid=' . $object->id . '&amp;stcomm=-1&amp;action=cstc">' . img_action(0, -1) . '</a>';
    if ($object->stcomm_id != 0)
        print '<a href="fiche.php?socid=' . $object->id . '&amp;stcomm=0&amp;action=cstc">' . img_action(0, 0) . '</a>';
    if ($object->stcomm_id != 1)
        print '<a href="fiche.php?socid=' . $object->id . '&amp;stcomm=1&amp;action=cstc">' . img_action(0, 1) . '</a>';
    if ($object->stcomm_id != 2)
        print '<a href="fiche.php?socid=' . $object->id . '&amp;stcomm=2&amp;action=cstc">' . img_action(0, 2) . '</a>';
    if ($object->stcomm_id != 3)
        print '<a href="fiche.php?socid=' . $object->id . '&amp;stcomm=3&amp;action=cstc">' . img_action(0, 3) . '</a>';
    print '</td></tr>';

    // Sales representative
    include DOL_DOCUMENT_ROOT . '/societe/tpl/linesalesrepresentative.tpl.php';

    // Module Adherent
    if (!empty($conf->adherent->enabled)) {
        $langs->load("members");
        $langs->load("users");
        print '<tr><td width="25%" valign="top">' . $langs->trans("LinkedToSpeedealingMember") . '</td>';
        print '<td colspan="3">';
        $adh = new Adherent($db);
        $result = $adh->fetch('', '', $object->id);
        if ($result > 0) {
            $adh->ref = $adh->getFullName($langs);
            print $adh->getNomUrl(1);
        } else {
            print $langs->trans("UserNotLinkedToMember");
        }
        print '</td>';
        print "</tr>\n";
    }

    // Commercial
    print '<tr ' . $bc[$var] . '><td>';
    print '<table width="100%" class="nobordernopadding"><tr><td id="label">';
    print $langs->trans('SalesRepresentatives');
    print '<td><td  id="value" align="right">';
    if ($user->rights->societe->creer)
        print '<a href="' . DOL_URL_ROOT . '/societe/commerciaux.php?socid=' . $societe->id . '">' . img_edit() . '</a>';
    else
        print '&nbsp;';
    print '</td></tr></table>';
    print '</td>';
    print '<td colspan="3">';

    $listsalesrepresentatives = $societe->getSalesRepresentatives($user);
    $nbofsalesrepresentative = sizeof($listsalesrepresentatives);
    if ($nbofsalesrepresentative > 3) {   // We print only number
        print '<a href="' . DOL_URL_ROOT . '/societe/commerciaux.php?socid=' . $societe->id . '">';
        print $nbofsalesrepresentative;
        print '</a>';
    } else if ($nbofsalesrepresentative > 0) {
        $userstatic = new User($db);
        $i = 0;
        foreach ($listsalesrepresentatives as $val) {
            $userstatic->id = $val['id'];
            $userstatic->nom = $val['name'];
            $userstatic->prenom = $val['firstname'];
            print $userstatic->getNomUrl(1);
            $i++;
            if ($i < $nbofsalesrepresentative)
                print ', ';
        }
    }
    else
        print $langs->trans("NoSalesRepresentativeAffected");
    print '</td></tr>';
    $var = !$var;

    // Affichage des notes
    print '<tr ' . $bc[$var] . '><td valign="top">';
    print '<table width="100%" class="nobordernopadding"><tr><td id="label">';
    print $langs->trans("Note");
    print '</td><td align="right">';
    if ($user->rights->societe->creer)
        print '<a href="' . DOL_URL_ROOT . '/societe/socnote.php?socid=' . $societe->id . '&action=edit&backtopage=' . DOL_URL_ROOT . '/comm/prospect/fiche.php?socid=' . $societe->id . '">' . img_edit() . '</a>';
    else
        print '&nbsp;';
    print '</td></tr></table>';
    print '</td>';
    print '<td colspan="3" id="value">';
    print nl2br($societe->note);
    print "</td></tr>";
    $var = !$var;

    print '</table>';


    print "</td>\n";
    print '<td valign="top" width="50%" class="notopnoleftnoright">';

    // Nbre max d'elements des petites listes
    $MAXLIST = 5;
    $tableaushown = 0;

    // Lien recap
    print '<table class="noborder" width="100%">';
    print '<tr class="liste_titre">';
    print '<td colspan="4"><table width="100%" class="nobordernopadding"><tr><td>' . $langs->trans("Summary") . '</td>';
    print '<td align="right"><a href="' . DOL_URL_ROOT . '/comm/prospect/recap-prospect.php?socid=' . $object->id . '">' . $langs->trans("ShowProspectPreview") . '</a></td></tr></table></td>';
    print '</tr>';
    print '</table>';
    print '<br>';


    /*
     * Last proposals
     */
    if (!empty($conf->propal->enabled) && $user->rights->propale->lire) {
        $propal_static = new Propal($db);

        $sql = "SELECT s.nom, s.rowid as socid, p.rowid as propalid, p.fk_statut, p.total_ht, p.ref, p.remise, ";
        $sql.= " p.datep as dp, p.fin_validite as datelimite,";
        $sql.= " c.label as statut, c.id as statutid";
        $sql.= " FROM " . MAIN_DB_PREFIX . "societe as s";
        $sql.= ", " . MAIN_DB_PREFIX . "propal as p";
        $sql.= ", " . MAIN_DB_PREFIX . "c_propalst as c";
        $sql.= " WHERE p.fk_soc = s.rowid";
        $sql.= " AND p.fk_statut = c.id";
        $sql.= " AND p.entity = " . $conf->entity;
        $sql.= " AND s.rowid = " . $object->id;
        $sql.= " ORDER BY p.datep DESC";

        $resql = $db->query($sql);
        if ($resql) {
            $var = true;
            $i = 0;
            $num = $db->num_rows($resql);

            if ($num > 0) {
                print '<table class="noborder" width="100%">';
                print '<tr class="liste_titre">';
                print '<td colspan="4"><table width="100%" class="nobordernopadding"><tr><td>' . $langs->trans("LastPropals", ($num <= $MAXLIST ? "" : $MAXLIST)) . '</td><td align="right"><a href="' . DOL_URL_ROOT . '/comm/propal.php?socid=' . $object->id . '">' . $langs->trans("AllPropals") . ' (' . $num . ')</a></td>';
                print '<td width="20px" align="right"><a href="' . DOL_URL_ROOT . '/comm/propal/stats/index.php?socid=' . $object->id . '">' . img_picto($langs->trans("Statistics"), 'stats') . '</a></td>';
                print '</tr></table></td>';
                print '</tr>';
            }

            while ($i < $num && $i < $MAXLIST) {
                $objp = $db->fetch_object($resql);
                $var = !$var;
                print "<tr $bc[$var]>";
                print "<td><a href=\"../propal.php?id=$objp->propalid\">";
                print img_object($langs->trans("ShowPropal"), "propal");
                print " " . $objp->ref . "</a>\n";
                if ($db->jdate($objp->dp) < ($now - $conf->propal->cloture->warning_delay) && $objp->fk_statut == 1) {
                    print " " . img_warning();
                }
                print "</td><td align=\"right\">" . dol_print_date($db->jdate($objp->dp), "day") . "</td>\n";
                print "<td align=\"right\">" . price($objp->total_ht) . "</td>\n";
                print "<td align=\"right\">" . $propal_static->LibStatut($objp->fk_statut, 5) . "</td></tr>\n";
                $i++;
            }
            $db->free();

            if ($num > 0)
                print "</table>";
        }
        else {
            dol_print_error($db);
        }
    }

    print "</td></tr>";
    print "</table>\n";

    dol_fiche_end();

    /*
     * Barre d'action
     */

    print '<div class="tabsAction">';

    if (!empty($conf->propal->enabled) && $user->rights->propale->creer) {
        print '<a class="butAction" href="' . DOL_URL_ROOT . '/comm/addpropal.php?socid=' . $object->id . '&amp;action=create">' . $langs->trans("AddProp") . '</a>';
    }

    // Add action
    if (!empty($conf->agenda->enabled) && !empty($conf->global->MAIN_REPEATTASKONEACHTAB)) {
        if ($user->rights->agenda->myactions->create) {
            print '<a class="butAction" href="' . DOL_URL_ROOT . '/comm/action/fiche.php?action=create&socid=' . $object->id . '">' . $langs->trans("AddAction") . '</a>';
        } else {
            print '<a class="butAction" title="' . dol_escape_js($langs->trans("NotAllowed")) . '" href="#">' . $langs->trans("AddAction") . '</a>';
        }
    }

    print '</div>';

    print '<br>';


    if (!empty($conf->global->MAIN_REPEATCONTACTONEACHTAB)) {
        print '<br>';
        // List of contacts
        show_contacts($conf, $langs, $db, $object, $_SERVER["PHP_SELF"] . '?socid=' . $object->id);
    }

    if (!empty($conf->global->MAIN_REPEATTASKONEACHTAB)) {
        print load_fiche_titre($langs->trans("ActionsOnCompany"), '', '');

        // List of todo actions
        show_actions_todo($conf, $langs, $db, $object);

        // List of done actions
        show_actions_done($conf, $langs, $db, $object);
    }
    if ($conf->lead->enabled) {
        print '<table width="100%" class="notopnoleftnoright">';
        print '<tr><td valign="top" width="50%" class="notopnoleft">';
        // Leads list
        $result = show_leads($conf, $langs, $db, $societe);

        print "</td>\n";
        print '<td valign="top" width="50%" class="notopnoleft">';
        print "</td>\n";
        print "</tr>\n";
        print "</table>\n";
    }
}


llxFooter();

$db->close();
?>