Skip to content
Snippets Groups Projects
fiche-rec.php 66.2 KiB
Newer Older
Benoit Mortier's avatar
 
Benoit Mortier committed
<?php
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
/* Copyright (C) 2002-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2016 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@capnetworks.com>
 * Copyright (C) 2013      Florian Henry	    <florian.henry@open-concept.pro>
 * Copyright (C) 2013      Juanjo Menent	    <jmenent@2byte.es>
 * Copyright (C) 2015      Jean-François Ferry	<jfefe@aternatik.fr>
 * Copyright (C) 2012      Cedric Salvador      <csalvador@gpcsolutions.fr>
 * Copyright (C) 2015      Alexandre Spangaro   <aspangaro.dolibarr@gmail.com>
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
 *
 * 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
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
 * (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/>.
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
 */
 *	\file       htdocs/compta/facture/fiche-rec.php
 *	\ingroup    facture
Laurent Destailleur's avatar
Laurent Destailleur committed
 *	\brief      Page to show predefined invoice
require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture-rec.class.php';
require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
$langs->load('bills');
$langs->load('compta');
$langs->load('admin');
// Security check
Regis Houssin's avatar
Regis Houssin committed
$id=(GETPOST('facid','int')?GETPOST('facid','int'):GETPOST('id','int'));
$confirm = GETPOST('confirm', 'alpha');
$cancel = GETPOST('cancel', 'alpha');
$lineid=GETPOST('lineid','int');
Regis Houssin's avatar
Regis Houssin committed
$action=GETPOST('action', 'alpha');
if ($user->societe_id) $socid=$user->societe_id;
Regis Houssin's avatar
Regis Houssin committed
$objecttype = 'facture_rec';
if ($action == "create" || $action == "add") $objecttype = '';
Regis Houssin's avatar
Regis Houssin committed
$result = restrictedArea($user, 'facture', $id, $objecttype);
$projectid = GETPOST('projectid','int');
$search_ref=GETPOST('search_ref');
$search_societe=GETPOST('search_societe');
$search_montant_ht=GETPOST('search_montant_ht');
$search_montant_vat=GETPOST('search_montant_vat');
$search_montant_ttc=GETPOST('search_montant_ttc');
$day=GETPOST('day');
$year=GETPOST('year');
$month=GETPOST('month');
$day_date_when=GETPOST('day_date_when');
$year_date_when=GETPOST('year_date_when');
$month_date_when=GETPOST('month_date_when');
$search_frequency=GETPOST('search_frequency');

$limit = GETPOST('limit')?GETPOST('limit','int'):$conf->liste_limit;
$sortfield = GETPOST("sortfield",'alpha');
$sortorder = GETPOST("sortorder",'alpha');
$page = GETPOST("page",'int');
if ($page == -1) { $page = 0; }
$offset = $limit * $page;
if (! $sortorder) $sortorder='DESC';
if (! $sortfield) $sortfield='f.titre';
$pageprev = $page - 1;
$pagenext = $page + 1;
Regis Houssin's avatar
Regis Houssin committed
$object = new FactureRec($db);
if (($id > 0 || $ref) && $action != 'create' && $action != 'add')
	$ret = $object->fetch($id, $ref);
	if (!$ret)
	{
		setEventMessages($langs->trans("ErrorRecordNotFound"), null, 'errors');
	}
}
// Initialize technical object to manage hooks of thirdparties. Note that conf->hooks_modules contains array array
$hookmanager->initHooks(array('invoicecard','globalcard'));
$extrafields = new ExtraFields($db);

// fetch optionals attributes and labels
$extralabels = $extrafields->fetch_name_optionals_label('facturerec');
$search_array_options=$extrafields->getOptionalsFromPost($extralabels,'','search_');

$permissionnote = $user->rights->facture->creer; // Used by the include of actions_setnotes.inc.php
$permissiondellink=$user->rights->facture->creer;	// Used by the include of actions_dellink.inc.php
$permissiontoedit = $user->rights->facture->creer; // Used by the include of actions_lineupdonw.inc.php

$arrayfields=array(
    'f.titre'=>array('label'=>$langs->trans("Ref"), 'checked'=>1),
    's.nom'=>array('label'=>$langs->trans("ThirdParty"), 'checked'=>1),
    'f.total'=>array('label'=>$langs->trans("AmountHT"), 'checked'=>1),
    'f.tva'=>array('label'=>$langs->trans("AmountVAT"), 'checked'=>1),
    'f.total_ttc'=>array('label'=>$langs->trans("AmountTTC"), 'checked'=>1),
    'f.frequency'=>array('label'=>$langs->trans("RecurringInvoiceTemplate"), 'checked'=>1),
    'f.date_last_gen'=>array('label'=>$langs->trans("DateLastGeneration"), 'checked'=>1),
    'f.date_when'=>array('label'=>$langs->trans("NextDateToExecution"), 'checked'=>1),
    'f.datec'=>array('label'=>$langs->trans("DateCreation"), 'checked'=>0, 'position'=>500),
    'f.tms'=>array('label'=>$langs->trans("DateModificationShort"), 'checked'=>0, 'position'=>500),
);
// Extra fields
if (is_array($extrafields->attribute_label) && count($extrafields->attribute_label))
{
    foreach($extrafields->attribute_label as $key => $val)
    {
        $arrayfields["ef.".$key]=array('label'=>$extrafields->attribute_label[$key], 'checked'=>$extrafields->attribute_list[$key], 'position'=>$extrafields->attribute_pos[$key], 'enabled'=>$extrafields->attribute_perms[$key]);
    }
}

Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
/*
 * Actions
$parameters = array('socid' => $socid);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');

// Set note
include DOL_DOCUMENT_ROOT.'/core/actions_setnotes.inc.php';	// Must be include, not include_once

include DOL_DOCUMENT_ROOT.'/core/actions_lineupdown.inc.php';	// Must be include, not include_once
if (GETPOST('cancel')) $action='';

if ($action == 'add')
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
{
	if (! GETPOST('titre'))
	{
Philippe Grand's avatar
Philippe Grand committed
		setEventMessages($langs->transnoentities("ErrorFieldRequired",$langs->trans("Title")), null, 'errors');
Regis Houssin's avatar
Regis Houssin committed
		$action = "create";
		$error++;
	$frequency=GETPOST('frequency', 'int');
	$reyear=GETPOST('reyear');
	$remonth=GETPOST('remonth');
	$reday=GETPOST('reday');
Laurent Destailleur's avatar
Laurent Destailleur committed
	$rehour=GETPOST('rehour');
	$remin=GETPOST('remin');
	$nb_gen_max=GETPOST('nb_gen_max', 'int');
	//if (empty($nb_gen_max)) $nb_gen_max =0;
	if (GETPOST('frequency'))
	{
		if (empty($reyear) || empty($remonth) || empty($reday))
		{
			setEventMessages($langs->transnoentities("ErrorFieldRequired",$langs->trans("Date")), null, 'errors');
			$action = "create";
			$error++;
		if ($nb_gen_max === '')
		{
			setEventMessages($langs->transnoentities("ErrorFieldRequired",$langs->trans("MaxPeriodNumber")), null, 'errors');
			$action = "create";
			$error++;
		}
	}

Regis Houssin's avatar
Regis Houssin committed
	if (! $error)
		$object->titre = GETPOST('titre', 'alpha');
		$object->note_private = GETPOST('note_private');
		$object->note_public  = GETPOST('note_public');
		$object->usenewprice = GETPOST('usenewprice');
		$object->frequency = $frequency;
		$object->unit_frequency = GETPOST('unit_frequency', 'alpha');
		$object->nb_gen_max = $nb_gen_max;
		$object->auto_validate = GETPOST('auto_validate', 'int');
		$object->fk_project = $projectid;
Laurent Destailleur's avatar
Laurent Destailleur committed
		$date_next_execution = dol_mktime($rehour, $remin, 0, $remonth, $reday, $reyear);
		$object->date_when = $date_next_execution;

		// Get first contract linked to invoice used to generate template
		{
            $srcObject = new Facture($db);
            $srcObject->fetch(GETPOST('facid','int'));
            if (! empty($srcObject->linkedObjectsIds['contrat']))
            {
                $contractidid = reset($srcObject->linkedObjectsIds['contrat']);

                $object->origin = 'contrat';
                $object->origin_id = $contractidid;
                $object->linked_objects[$object->origin] = $object->origin_id;
            }
		$oldinvoice = new Facture($db);
		$oldinvoice->fetch($id);
		$result = $object->create($user, $oldinvoice->id);
		if ($result > 0)
		{
			$result=$oldinvoice->delete(0, 1);
			if ($result < 0)
			{
			    $error++;
    		    setEventMessages($oldinvoice->error, $oldinvoice->errors, 'errors');
    		    $action = "create";
			}
		}
		else
		{
		    $error++;
		    setEventMessages($object->error, $object->errors, 'errors');
		    $action = "create";
		}
			header("Location: " . $_SERVER['PHP_SELF'] . '?facid=' . $object->id);
Philippe Grand's avatar
Philippe Grand committed
			setEventMessages($object->error, $object->errors, 'errors');
			$action = "create";
Philippe Grand's avatar
Philippe Grand committed
// Delete
if ($action == 'delete' && $user->rights->facture->supprimer)
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
{
Regis Houssin's avatar
Regis Houssin committed
	$object->delete();
	header("Location: " . $_SERVER['PHP_SELF'] );
	exit;
// Update field
// Set condition
if ($action == 'setconditions' && $user->rights->facture->creer)
{
	$result=$object->setPaymentTerms(GETPOST('cond_reglement_id', 'int'));

}
// Set mode
elseif ($action == 'setmode' && $user->rights->facture->creer)
{
	$result=$object->setPaymentMethods(GETPOST('mode_reglement_id', 'int'));
}
// Set project
elseif ($action == 'classin' && $user->rights->facture->creer)
{
	$object->setProject(GETPOST('projectid', 'int'));
}
// Set bank account
elseif ($action == 'setref' && $user->rights->facture->creer)
{
    $result=$object->setValueFrom('titre', GETPOST('ref', 'alpha'));
    if ($result > 0)
    {
    	$object->titre = GETPOST('ref', 'alpha');
    	$object->ref = $object->titre;
    }
}
// Set bank account
elseif ($action == 'setbankaccount' && $user->rights->facture->creer)
{
    $result=$object->setBankAccount(GETPOST('fk_account', 'int'));
}
// Set frequency and unit frequency
elseif ($action == 'setfrequency' && $user->rights->facture->creer)
{
	$object->setFrequencyAndUnit(GETPOST('frequency', 'int'), GETPOST('unit_frequency', 'alpha'));
}
// Set next date of execution
elseif ($action == 'setdate_when' && $user->rights->facture->creer)
{
Laurent Destailleur's avatar
Laurent Destailleur committed
	$date = dol_mktime(GETPOST('date_whenhour'), GETPOST('date_whenmin'), 0, GETPOST('date_whenmonth'), GETPOST('date_whenday'), GETPOST('date_whenyear'));
	if (!empty($date)) $object->setNextDate($date);
}
// Set max period
elseif ($action == 'setnb_gen_max' && $user->rights->facture->creer)
{
	$object->setMaxPeriod(GETPOST('nb_gen_max', 'int'));
}
// Set auto validate
elseif ($action == 'setauto_validate' && $user->rights->facture->creer)
{
	$object->setAutoValidate(GETPOST('auto_validate', 'int'));
}

// Delete line
if ($action == 'confirm_deleteline' && $confirm == 'yes' && $user->rights->facture->creer)
{
    $object->fetch($id);
    $object->fetch_thirdparty();

    $db->begin();
    $line=new FactureLigneRec($db);
    // For triggers
    $line->id = $lineid;
    if ($line->delete() > 0)
    {
        $result=$object->update_price(1);
        if ($result > 0)
        {
            $db->commit();
            $object->fetch($object->id);    // Reload lines
        }
        else
        {
            $db->rollback();
            setEventMessages($db->lasterror(), null, 'errors');
        }
    }
    else
    {
        $db->rollback();
        setEventMessages($line->error, $line->errors, 'errors');
    }
}

// Add a new line
if ($action == 'addline' && $user->rights->facture->creer)
{
    $langs->load('errors');
    $error = 0;

    // Set if we used free entry or predefined product
    $predef='';
    $product_desc=(GETPOST('dp_desc')?GETPOST('dp_desc'):'');
    $price_ht = GETPOST('price_ht');
    if (GETPOST('prod_entry_mode') == 'free')
    {
        $idprod=0;
        $tva_tx = (GETPOST('tva_tx') ? GETPOST('tva_tx') : 0);
    }
    else
    {
        $idprod=GETPOST('idprod', 'int');
        $tva_tx = '';
    }

    $qty = GETPOST('qty' . $predef);
    $remise_percent = GETPOST('remise_percent' . $predef);

    // Extrafields
    $extrafieldsline = new ExtraFields($db);
    $extralabelsline = $extrafieldsline->fetch_name_optionals_label($object->table_element_line);
    $array_options = $extrafieldsline->getOptionalsFromPost($extralabelsline, $predef);
    // Unset extrafield
    if (is_array($extralabelsline)) {
        // Get extra fields
        foreach ($extralabelsline as $key => $value) {
            unset($_POST["options_" . $key . $predef]);
        }
    }

    if (empty($idprod) && ($price_ht < 0) && ($qty < 0)) {
        setEventMessages($langs->trans('ErrorBothFieldCantBeNegative', $langs->transnoentitiesnoconv('UnitPriceHT'), $langs->transnoentitiesnoconv('Qty')), null, 'errors');
        $error ++;
    }
    if (GETPOST('prod_entry_mode') == 'free' && empty($idprod) && GETPOST('type') < 0) {
        setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv('Type')), null, 'errors');
        $error ++;
    }
    if (GETPOST('prod_entry_mode') == 'free' && empty($idprod) && (! ($price_ht >= 0) || $price_ht == '')) 	// Unit price can be 0 but not ''
    {
        setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("UnitPriceHT")), null, 'errors');
        $error ++;
    }
    if ($qty == '') {
        setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv('Qty')), null, 'errors');
        $error ++;
    }
    if (GETPOST('prod_entry_mode') == 'free' && empty($idprod) && empty($product_desc)) {
        setEventMessages($langs->trans('ErrorFieldRequired', $langs->transnoentitiesnoconv('Description')), null, 'errors');
        $error ++;
    }
    if ($qty < 0) {
        $langs->load("errors");
        setEventMessages($langs->trans('ErrorQtyForCustomerInvoiceCantBeNegative'), null, 'errors');
        $error ++;
    }
    if (! $error && ($qty >= 0) && (! empty($product_desc) || ! empty($idprod))) {
        $ret = $object->fetch($id);
        if ($ret < 0) {
            dol_print_error($db, $object->error);
            exit();
        }
        $ret = $object->fetch_thirdparty();

        // Clean parameters
        $date_start = dol_mktime(GETPOST('date_start' . $predef . 'hour'), GETPOST('date_start' . $predef . 'min'), GETPOST('date_start' . $predef . 'sec'), GETPOST('date_start' . $predef . 'month'), GETPOST('date_start' . $predef . 'day'), GETPOST('date_start' . $predef . 'year'));
        $date_end = dol_mktime(GETPOST('date_end' . $predef . 'hour'), GETPOST('date_end' . $predef . 'min'), GETPOST('date_end' . $predef . 'sec'), GETPOST('date_end' . $predef . 'month'), GETPOST('date_end' . $predef . 'day'), GETPOST('date_end' . $predef . 'year'));
        $price_base_type = (GETPOST('price_base_type', 'alpha') ? GETPOST('price_base_type', 'alpha') : 'HT');

        // Define special_code for special lines
        $special_code = 0;
        // if (empty($_POST['qty'])) $special_code=3; // Options should not exists on invoices

        // Ecrase $pu par celui du produit
        // Ecrase $desc par celui du produit
        // Ecrase $txtva par celui du produit
        // Ecrase $base_price_type par celui du produit
        // Replaces $fk_unit with the product's
        if (! empty($idprod))
        {
            $prod = new Product($db);
            $prod->fetch($idprod);

            $label = ((GETPOST('product_label') && GETPOST('product_label') != $prod->label) ? GETPOST('product_label') : '');

            // Update if prices fields are defined
            $tva_tx = get_default_tva($mysoc, $object->thirdparty, $prod->id);
            $tva_npr = get_default_npr($mysoc, $object->thirdparty, $prod->id);
            if (empty($tva_tx)) $tva_npr=0;
            $pu_ht = $prod->price;
            $pu_ttc = $prod->price_ttc;
            $price_min = $prod->price_min;
            $price_base_type = $prod->price_base_type;

            // We define price for product
            if (! empty($conf->global->PRODUIT_MULTIPRICES) && ! empty($object->thirdparty->price_level))
            {
                $pu_ht = $prod->multiprices[$object->thirdparty->price_level];
                $pu_ttc = $prod->multiprices_ttc[$object->thirdparty->price_level];
                $price_min = $prod->multiprices_min[$object->thirdparty->price_level];
                $price_base_type = $prod->multiprices_base_type[$object->thirdparty->price_level];
                if (! empty($conf->global->PRODUIT_MULTIPRICES_USE_VAT_PER_LEVEL))  // using this option is a bug. kept for backward compatibility
                {
                    if (isset($prod->multiprices_tva_tx[$object->thirdparty->price_level])) $tva_tx=$prod->multiprices_tva_tx[$object->thirdparty->price_level];
                    if (isset($prod->multiprices_recuperableonly[$object->thirdparty->price_level])) $tva_npr=$prod->multiprices_recuperableonly[$object->thirdparty->price_level];
                    if (empty($tva_tx)) $tva_npr=0;
                }
            }
            elseif (! empty($conf->global->PRODUIT_CUSTOMER_PRICES))
            {
                require_once DOL_DOCUMENT_ROOT . '/product/class/productcustomerprice.class.php';

                $prodcustprice = new Productcustomerprice($db);

                $filter = array('t.fk_product' => $prod->id,'t.fk_soc' => $object->thirdparty->id);

                $result = $prodcustprice->fetch_all('', '', 0, 0, $filter);
                if ($result) {
                    if (count($prodcustprice->lines) > 0) {
                        $pu_ht = price($prodcustprice->lines[0]->price);
                        $pu_ttc = price($prodcustprice->lines[0]->price_ttc);
                        $price_base_type = $prodcustprice->lines[0]->price_base_type;
                        $prod->tva_tx = $prodcustprice->lines[0]->tva_tx;
                    }
                }
            }

            // if price ht was forced (ie: from gui when calculated by margin rate and cost price)
            if (! empty($price_ht))
            {
                $pu_ht = price2num($price_ht, 'MU');
                $pu_ttc = price2num($pu_ht * (1 + ($tva_tx / 100)), 'MU');
            }
            // On reevalue prix selon taux tva car taux tva transaction peut etre different
            // de ceux du produit par defaut (par exemple si pays different entre vendeur et acheteur).
            elseif ($tva_tx != $prod->tva_tx)
            {
                if ($price_base_type != 'HT')
                {
                    $pu_ht = price2num($pu_ttc / (1 + ($tva_tx / 100)), 'MU');
                }
                else
                {
                    $pu_ttc = price2num($pu_ht * (1 + ($tva_tx / 100)), 'MU');
                }
            }

            $desc = '';

            // Define output language
            if (! empty($conf->global->MAIN_MULTILANGS) && ! empty($conf->global->PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE)) {
                $outputlangs = $langs;
                $newlang = '';
                if (empty($newlang) && GETPOST('lang_id'))
                    $newlang = GETPOST('lang_id');
                    if (empty($newlang))
                        $newlang = $object->thirdparty->default_lang;
                        if (! empty($newlang)) {
                            $outputlangs = new Translate("", $conf);
                            $outputlangs->setDefaultLang($newlang);
                        }

                        $desc = (! empty($prod->multilangs [$outputlangs->defaultlang] ["description"])) ? $prod->multilangs [$outputlangs->defaultlang] ["description"] : $prod->description;
            } else {
                $desc = $prod->description;
            }

            $desc = dol_concatdesc($desc, $product_desc);

            // Add custom code and origin country into description
            if (empty($conf->global->MAIN_PRODUCT_DISABLE_CUSTOMCOUNTRYCODE) && (! empty($prod->customcode) || ! empty($prod->country_code))) {
                $tmptxt = '(';
                if (! empty($prod->customcode))
                    $tmptxt .= $langs->transnoentitiesnoconv("CustomCode") . ': ' . $prod->customcode;
                    if (! empty($prod->customcode) && ! empty($prod->country_code))
                        $tmptxt .= ' - ';
                        if (! empty($prod->country_code))
                            $tmptxt .= $langs->transnoentitiesnoconv("CountryOrigin") . ': ' . getCountry($prod->country_code, 0, $db, $langs, 0);
                            $tmptxt .= ')';
                            $desc = dol_concatdesc($desc, $tmptxt);
            }

            $type = $prod->type;
            $fk_unit = $prod->fk_unit;
        } else {
            $pu_ht = price2num($price_ht, 'MU');
            $pu_ttc = price2num(GETPOST('price_ttc'), 'MU');
            $tva_npr = (preg_match('/\*/', $tva_tx) ? 1 : 0);
            $tva_tx = str_replace('*', '', $tva_tx);
            if (empty($tva_tx)) $tva_npr=0;
            $label = (GETPOST('product_label') ? GETPOST('product_label') : '');
            $desc = $product_desc;
            $type = GETPOST('type');
            $fk_unit= GETPOST('units', 'alpha');
        }
        // Margin
        $fournprice = price2num(GETPOST('fournprice' . $predef) ? GETPOST('fournprice' . $predef) : '');
        $buyingprice = price2num(GETPOST('buying_price' . $predef) != '' ? GETPOST('buying_price' . $predef) : '');    // If buying_price is '0', we must keep this value

        // Local Taxes
        $localtax1_tx = get_localtax($tva_tx, 1, $object->thirdparty, $mysoc, $tva_npr);
        $localtax2_tx = get_localtax($tva_tx, 2, $object->thirdparty, $mysoc, $tva_npr);
        $info_bits = 0;
        if ($tva_npr)
            $info_bits |= 0x01;

        if (! empty($price_min) && (price2num($pu_ht) * (1 - price2num($remise_percent) / 100) < price2num($price_min))) {
            $mesg = $langs->trans("CantBeLessThanMinPrice", price(price2num($price_min, 'MU'), 0, $langs, 0, 0, - 1, $conf->currency));
            setEventMessages($mesg, null, 'errors');
        } else {
            // Insert line
            $result = $object->addline($desc, $pu_ht, $qty, $tva_tx, $idprod, $remise_percent, $price_base_type, $info_bits, '', $pu_ttc, $type, - 1, $special_code, $label, $fk_unit);

            if ($result > 0)
            {
                /*if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE))
                {
                    $outputlangs = $langs;
                    $newlang = '';
                    if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id')) $newlang = GETPOST('lang_id','alpha');
                    if ($conf->global->MAIN_MULTILANGS && empty($newlang))	$newlang = $object->thirdparty->default_lang;
                    if (! empty($newlang)) {
                        $outputlangs = new Translate("", $conf);
                        $outputlangs->setDefaultLang($newlang);
                    }
                    $model=$object->modelpdf;
                    $ret = $object->fetch($id); // Reload to get new records

                    $result = $object->generateDocument($model, $outputlangs, $hidedetails, $hidedesc, $hideref);
                    if ($result < 0) setEventMessages($object->error, $object->errors, 'errors');
                }*/
                $object->fetch($object->id);    // Reload lines
                unset($_POST['prod_entry_mode']);

                unset($_POST['qty']);
                unset($_POST['type']);
                unset($_POST['remise_percent']);
                unset($_POST['price_ht']);
                unset($_POST['multicurrency_price_ht']);
                unset($_POST['price_ttc']);
                unset($_POST['tva_tx']);
                unset($_POST['product_ref']);
                unset($_POST['product_label']);
                unset($_POST['product_desc']);
                unset($_POST['fournprice']);
                unset($_POST['buying_price']);
                unset($_POST['np_marginRate']);
                unset($_POST['np_markRate']);
                unset($_POST['dp_desc']);
                unset($_POST['idprod']);
                unset($_POST['units']);

                unset($_POST['date_starthour']);
                unset($_POST['date_startmin']);
                unset($_POST['date_startsec']);
                unset($_POST['date_startday']);
                unset($_POST['date_startmonth']);
                unset($_POST['date_startyear']);
                unset($_POST['date_endhour']);
                unset($_POST['date_endmin']);
                unset($_POST['date_endsec']);
                unset($_POST['date_endday']);
                unset($_POST['date_endmonth']);
                unset($_POST['date_endyear']);

                unset($_POST['situations']);
                unset($_POST['progress']);
            } else {
                setEventMessages($object->error, $object->errors, 'errors');
            }

            $action = '';
        }
    }
}
elseif ($action == 'updateligne' && $user->rights->facture->creer && ! GETPOST('cancel'))
{
    if (! $object->fetch($id) > 0)	dol_print_error($db);
    $object->fetch_thirdparty();

    // Clean parameters
    $date_start = '';
    $date_end = '';
    //$date_start = dol_mktime(GETPOST('date_starthour'), GETPOST('date_startmin'), GETPOST('date_startsec'), GETPOST('date_startmonth'), GETPOST('date_startday'), GETPOST('date_startyear'));
    //$date_end = dol_mktime(GETPOST('date_endhour'), GETPOST('date_endmin'), GETPOST('date_endsec'), GETPOST('date_endmonth'), GETPOST('date_endday'), GETPOST('date_endyear'));
    $description = dol_htmlcleanlastbr(GETPOST('product_desc') ? GETPOST('product_desc') : GETPOST('desc'));
    $pu_ht = GETPOST('price_ht');
    $vat_rate = (GETPOST('tva_tx') ? GETPOST('tva_tx') : 0);
    $qty = GETPOST('qty');

    // Define info_bits
    $info_bits = 0;
    if (preg_match('/\*/', $vat_rate))
        $info_bits |= 0x01;

        // Define vat_rate
        $vat_rate = str_replace('*', '', $vat_rate);
        $localtax1_rate = get_localtax($vat_rate, 1, $object->thirdparty);
        $localtax2_rate = get_localtax($vat_rate, 2, $object->thirdparty);

        // Add buying price
        $fournprice = price2num(GETPOST('fournprice') ? GETPOST('fournprice') : '');
        $buyingprice = price2num(GETPOST('buying_price') != '' ? GETPOST('buying_price') : '');       // If buying_price is '0', we muste keep this value

        // Extrafields
        $extrafieldsline = new ExtraFields($db);
        $extralabelsline = $extrafieldsline->fetch_name_optionals_label($object->table_element_line);
        $array_options = $extrafieldsline->getOptionalsFromPost($extralabelsline);
        // Unset extrafield
        if (is_array($extralabelsline)) {
            // Get extra fields
            foreach ($extralabelsline as $key => $value) {
                unset($_POST["options_" . $key]);
            }
        }

        // Define special_code for special lines
        $special_code=GETPOST('special_code');
        if (! GETPOST('qty')) $special_code=3;

        /*$line = new FactureLigne($db);
        $line->fetch(GETPOST('lineid'));
        $percent = $line->get_prev_progress($object->id);

        if (GETPOST('progress') < $percent)
        {
            $mesg = '<div class="warning">' . $langs->trans("CantBeLessThanMinPercent") . '</div>';
            setEventMessages($mesg, null, 'warnings');
            $error++;
            $result = -1;
        }*/

        // Check minimum price
        $productid = GETPOST('productid', 'int');
        if (! empty($productid))
        {
            $product = new Product($db);
            $product->fetch($productid);

            $type = $product->type;

            $price_min = $product->price_min;
            if (! empty($conf->global->PRODUIT_MULTIPRICES) && ! empty($object->thirdparty->price_level))
                $price_min = $product->multiprices_min [$object->thirdparty->price_level];

                $label = ((GETPOST('update_label') && GETPOST('product_label')) ? GETPOST('product_label') : '');

                // Check price is not lower than minimum (check is done only for standard or replacement invoices)
                if (($object->type == Facture::TYPE_STANDARD || $object->type == Facture::TYPE_REPLACEMENT) && $price_min && (price2num($pu_ht) * (1 - price2num(GETPOST('remise_percent')) / 100) < price2num($price_min))) {
                    setEventMessages($langs->trans("CantBeLessThanMinPrice", price(price2num($price_min, 'MU'), 0, $langs, 0, 0, - 1, $conf->currency)), null, 'errors');
                    $error ++;
                }
        } else {
            $type = GETPOST('type');
            $label = (GETPOST('product_label') ? GETPOST('product_label') : '');

            // Check parameters
            if (GETPOST('type') < 0) {
                setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Type")), null, 'errors');
                $error ++;
            }
        }
        if ($qty < 0) {
            $langs->load("errors");
            setEventMessages($langs->trans('ErrorQtyForCustomerInvoiceCantBeNegative'), null, 'errors');
            $error ++;
        }

        // Update line
        if (! $error) {
            $result = $object->updateline(GETPOST('lineid'), $description, $pu_ht, $qty,
                $vat_rate, GETPOST('productid'), GETPOST('remise_percent'), 'HT', $info_bits, 0, 0, $type,
                0, $special_code, $label, GETPOST('units'));

            if ($result >= 0) {
                /*if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE)) {
                    // Define output language
                    $outputlangs = $langs;
                    $newlang = '';
                    if ($conf->global->MAIN_MULTILANGS && empty($newlang) && GETPOST('lang_id'))
                        $newlang = GETPOST('lang_id');
                        if ($conf->global->MAIN_MULTILANGS && empty($newlang))
                            $newlang = $object->thirdparty->default_lang;
                            if (! empty($newlang)) {
                                $outputlangs = new Translate("", $conf);
                                $outputlangs->setDefaultLang($newlang);
                            }

                            $ret = $object->fetch($id); // Reload to get new records
                            $object->generateDocument($object->modelpdf, $outputlangs, $hidedetails, $hidedesc, $hideref);
                }*/

                $object->fetch($object->id);    // Reload lines
                unset($_POST['qty']);
                unset($_POST['type']);
                unset($_POST['productid']);
                unset($_POST['remise_percent']);
                unset($_POST['price_ht']);
                unset($_POST['multicurrency_price_ht']);
                unset($_POST['price_ttc']);
                unset($_POST['tva_tx']);
                unset($_POST['product_ref']);
                unset($_POST['product_label']);
                unset($_POST['product_desc']);
                unset($_POST['fournprice']);
                unset($_POST['buying_price']);
                unset($_POST['np_marginRate']);
                unset($_POST['np_markRate']);

                unset($_POST['dp_desc']);
                unset($_POST['idprod']);
                unset($_POST['units']);

                unset($_POST['date_starthour']);
                unset($_POST['date_startmin']);
                unset($_POST['date_startsec']);
                unset($_POST['date_startday']);
                unset($_POST['date_startmonth']);
                unset($_POST['date_startyear']);
                unset($_POST['date_endhour']);
                unset($_POST['date_endmin']);
                unset($_POST['date_endsec']);
                unset($_POST['date_endday']);
                unset($_POST['date_endmonth']);
                unset($_POST['date_endyear']);

                unset($_POST['situations']);
                unset($_POST['progress']);
            } else {
                setEventMessages($object->error, $object->errors, 'errors');
            }
        }
}

// Do we click on purge search criteria ?
if (GETPOST("button_removefilter_x") || GETPOST("button_removefilter.x") || GETPOST("button_removefilter")) // All test are required to be compatible with all browsers
{
    $search_ref='';
    $search_societe='';
    $search_montant_ht='';
    $search_montant_vat='';
    $search_montant_ttc='';
    $day='';
    $year='';
    $month='';
    $day_date_when='';
    $year_date_when='';
    $month_date_when='';
    $search_frequency='';
    $search_array_options=array();
}

Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
/*
llxHeader('',$langs->trans("RepeatableInvoices"),'ch-facture.html#s-fac-facture-rec');
Regis Houssin's avatar
Regis Houssin committed
$form = new Form($db);
$formother = new FormOther($db);
$companystatic = new Societe($db);
$now = dol_now();
$tmparray=dol_getdate($now);
$today = dol_mktime(23,59,59,$tmparray['mon'],$tmparray['mday'],$tmparray['year']);   // Today is last second of current day
Regis Houssin's avatar
Regis Houssin committed
/*
 * Create mode
 */
if ($action == 'create')
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
{
	print load_fiche_titre($langs->trans("CreateRepeatableInvoice"),'','title_accountancy.png');
	$object = new Facture($db);   // Source invoice
Regis Houssin's avatar
Regis Houssin committed
	$product_static = new Product($db);
	$formproject = new FormProjets($db);
	if ($object->fetch($id, $ref) > 0)
		$result = $object->getLinesArray();
	    print '<form action="fiche-rec.php" method="post">';
		print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
Laurent Destailleur's avatar
Laurent Destailleur committed
		print '<input type="hidden" name="action" value="add">';
		print '<input type="hidden" name="facid" value="'.$object->id.'">';
Rodolphe Quiedeville's avatar
.  
Rodolphe Quiedeville committed

Laurent Destailleur's avatar
Laurent Destailleur committed
		if (! empty($conf->projet->enabled)) $rowspan++;
		if ($object->fk_account > 0) $rowspan++;
Laurent Destailleur's avatar
Laurent Destailleur committed
		print '<table class="border" width="100%">';
Rodolphe Quiedeville's avatar
.  
Rodolphe Quiedeville committed

		print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Title").'</td><td>';
		print '<input class="flat quatrevingtpercent" type="text" name="titre" value="'.$_POST["titre"].'">';
		print '</td></tr>';
		// Third party
		print '<tr><td class="titlefieldcreate">'.$langs->trans("Customer").'</td><td>'.$object->thirdparty->getNomUrl(1,'customer').'</td>';
		print '</tr>';

		// Note public
		print '<tr><td>'.$langs->trans("NotePublic").'</td><td valign="top">';
		print '<textarea class="flat centpercent" name="note_public" wrap="soft" rows="'.ROWS_4.'"></textarea>';
		// Note private
		print '<tr><td>'.$langs->trans("NotePrivate").'</td><td valign="top">';
		print '<textarea class="flat centpercent" name="note_private" wrap="soft" rows="'.ROWS_4.'"></textarea>';
		print '</td></tr>';
		print "<tr><td>".$langs->trans("Author")."</td><td>".$user->getFullName($langs)."</td></tr>";
		print "<tr><td>".$langs->trans("PaymentConditions")."</td><td>";
		$form->form_conditions_reglement($_SERVER['PHP_SELF'].'?id='.$object->id, $object->cond_reglement_id, 'none');
		print "<tr><td>".$langs->trans("PaymentMode")."</td><td>";
		$form->form_modes_reglement($_SERVER['PHP_SELF'].'?id='.$object->id, $object->mode_reglement_id, 'none');
Laurent Destailleur's avatar
Laurent Destailleur committed
		print "</td></tr>";

    	if (! empty($conf->projet->enabled) && is_object($object->thirdparty) && $object->thirdparty->id > 0)
    	{
    	    $projectid = $object->fk_project;
    		$langs->load('projects');
    		print '<tr><td>' . $langs->trans('Project') . '</td><td>';
    		$numprojet = $formproject->select_projects($socid, $projectid, 'projectid', 0);
    		print ' &nbsp; <a href="'.DOL_URL_ROOT.'/projet/card.php?socid=' . $object->thirdparty->id . '&action=create&status=1&backtopage='.urlencode($_SERVER["PHP_SELF"].'?action=create&socid='.$object->thirdparty->id).'">' . $langs->trans("AddProject") . '</a>';
Laurent Destailleur's avatar
Laurent Destailleur committed
		// Bank account
		if ($object->fk_account > 0)
		{
			$form->formSelectAccount($_SERVER['PHP_SELF'].'?id='.$object->id, $object->fk_account, 'none');
			print "</td></tr>";
		}

Laurent Destailleur's avatar
Laurent Destailleur committed
		print '<br><br>';
Laurent Destailleur's avatar
Laurent Destailleur committed
		// Autogeneration
		$title = $langs->trans("Recurrence");
Laurent Destailleur's avatar
Laurent Destailleur committed
		print load_fiche_titre($title, '', 'calendar');
		print '<table class="border" width="100%">';
		print '<tr><td class="titlefieldcreate">'.$form->textwithpicto($langs->trans("Frequency"), $langs->transnoentitiesnoconv('toolTipFrequency'))."</td><td>";
		print "<input type='text' name='frequency' value='".GETPOST('frequency', 'int')."' size='5' />&nbsp;".$form->selectarray('unit_frequency', array('d'=>$langs->trans('Day'), 'm'=>$langs->trans('Month'), 'y'=>$langs->trans('Year')), (GETPOST('unit_frequency')?GETPOST('unit_frequency'):'m'));
		print "</td></tr>";
		// First date of execution for cron
		print "<tr><td>".$langs->trans('NextDateToExecution')."</td><td>";
Laurent Destailleur's avatar
Laurent Destailleur committed
		$date_next_execution = isset($date_next_execution) ? $date_next_execution : (GETPOST('remonth') ? dol_mktime(12, 0, 0, GETPOST('remonth'), GETPOST('reday'), GETPOST('reyear')) : -1);
		print $form->select_date($date_next_execution, '', 1, 1, '', "add", 1, 1, 1);
		print "</td></tr>";
		// Number max of generation
		print "<tr><td>".$langs->trans("MaxPeriodNumber")."</td><td>";
		print '<input type="text" name="nb_gen_max" value="'.GETPOST('nb_gen_max').'" size="5" />';
		print "</td></tr>";

		// Auto validate the invoice
		print "<tr><td>".$langs->trans("StatusOfGeneratedInvoices")."</td><td>";
        $select = array('0'=>$langs->trans('BillStatusDraft'),'1'=>$langs->trans('BillStatusValidated'));
        print $form->selectarray('auto_validate', $select, GETPOST('auto_validate'));
		print "</td></tr>";

		print "</table>";

Laurent Destailleur's avatar
Laurent Destailleur committed
		print '<br><br>';
		$title = $langs->trans("ProductsAndServices");
		if (empty($conf->service->enabled))
			$title = $langs->trans("Products");
		else if (empty($conf->product->enabled))
			$title = $langs->trans("Services");

Laurent Destailleur's avatar
Laurent Destailleur committed
		print load_fiche_titre($title, '', '');
Regis Houssin's avatar
Regis Houssin committed
		 * Invoice lines
		print '<table id="tablelines" class="noborder noshadow" width="100%">';
		// Show object lines
		if (! empty($object->lines))
		{
		    $disableedit=1;
		    $disablemove=1;
		    $disableremove=1;
		    $ret = $object->printObjectLines('', $mysoc, $object->thirdparty, $lineid, 0);      // No date selector for template invoice
Laurent Destailleur's avatar
Laurent Destailleur committed
		print '</td></tr>';

		if ($flag_price_may_change)
Laurent Destailleur's avatar
Laurent Destailleur committed
			print '<tr><td colspan="3" align="left">';
			print '<select name="usenewprice" class="flat">';
			print '<option value="0">'.$langs->trans("AlwaysUseFixedPrice").'</option>';
			print '<option value="1" disabled>'.$langs->trans("AlwaysUseNewPrice").'</option>';
Laurent Destailleur's avatar
Laurent Destailleur committed
			print '</select>';
			print '</td></tr>';
Laurent Destailleur's avatar
Laurent Destailleur committed
		print "</table>\n";

        dol_fiche_end();

		print '<div align="center"><input type="submit" class="button" value="'.$langs->trans("Create").'">';
        print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
	    print '<input type="button" class="button" value="' . $langs->trans("Cancel") . '" onClick="javascript:history.go(-1)">';
        print '</div>';
		print "</form>\n";
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
	}
Laurent Destailleur's avatar
Laurent Destailleur committed
	else
		dol_print_error('',"Error, no invoice ".$object->id);
Rodolphe Quiedeville's avatar
Rodolphe Quiedeville committed
{
Regis Houssin's avatar
Regis Houssin committed
	/*
	 * View mode