First import

importorderlines/.gitignore

@@ -0,0 +1 @@
+lib

importorderlines/admin/admin.php

@@ -0,0 +1,69 @@
+<?php
+
+/**
+ * Copyright © 2015 Marcos García de La Fuente <[email protected]>
+ *
+ * This file is part of Importorderlines.
+ *
+ * Multismtp 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.
+ *
+ * Multismtp 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 Multismtp.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+require '../../main.inc.php';
+
+$langs->load('admin');
+$langs->load('importorderlines@importorderlines');
+
+llxHeader();
+
+$linkback='<a href="'.DOL_URL_ROOT.'/admin/modules.php">'.$langs->trans("BackToModuleList").'</a>';
+print_fiche_titre($langs->trans('ImportOrderLinesInfo'), $linkback);
+
+?>
+
+<div class="titre"><?php echo $langs->trans('ImportOrderLinesTitle') ?></div>
+
+<p><?php echo $langs->trans('ImportOrderLinesInfoFormat') ?></p><ul>
+	<li><?php echo $langs->trans('ImportOrderLinesInfoFormatA', $langs->trans('Ref')) ?></li>
+	<li><?php echo $langs->trans('ImportOrderLinesInfoFormatB', $langs->trans('Label')) ?></li>
+	<li><?php echo $langs->trans('ImportOrderLinesInfoFormatC', $langs->trans('Qty')) ?></li>
+</ul>
+<p><?php echo $langs->trans('ImportOrderLinesInfoFormatMore') ?></p>
+<p><?php echo $langs->trans('ImportOrderLinesInfoFormatCreate',
+		$langs->transnoentities('Tools'),
+		$langs->transnoentities('NewExport'),
+		$langs->transnoentities('Products'),
+		$langs->transnoentities('Ref')
+	).$langs->trans('ImportOrderLinesInfoFormatCreate2',
+			$langs->transnoentities('Label'),
+			$langs->transnoentities('Qty')
+		) ?></p>
+<p><?php echo $langs->trans('ImportOrderLinesInfoFormatExample') ?></p>
+<img src="<?php echo $langs->trans('ImportOrderLinesInfoFormatExampleImgSrc') ?>" alt="<?php echo $langs->trans('ImportOrderLinesInfoFormatExampleImgAlt') ?>">
+
+<br><br>
+
+<div class="titre"><?php echo $langs->trans('ImportOrderLinesInfoUsing') ?></div>
+
+<p><?php echo $langs->trans('ImportOrderLinesInfoUsingOrder', $langs->transnoentities('ImportOrderLines')) ?></p>
+
+<br>
+
+<div class="titre"><?php echo $langs->trans('ImportOrderLinesAbout') ?></div>
+
+<p><?php echo $langs->trans('ImportOrderLinesAuthor', '<a href="http://marcosgdf.com">http://marcosgdf.com</a>') ?></p>
+<p><?php echo $langs->trans('ImportOrderLinesContact', '<a href="mailto:[email protected]">[email protected]</a>') ?></p>
+
+<?php
+
+llxFooter();

importorderlines/class/Utils.php

@@ -0,0 +1,231 @@
+<?php
+
+/**
+ * Copyright © 2015 Marcos García de La Fuente <[email protected]>
+ *
+ * This file is part of Importorderlines.
+ *
+ * Multismtp 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.
+ *
+ * Multismtp 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 Multismtp.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+/**
+ * Dolibarr license:
+ *
+ * You can find a copy of the code at http://github.com/dolibarr/dolibarr
+ *
+ * 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/>.
+ */
+
+class Utils
+{
+
+	/**
+	 * Piece of code extracted from Form::formconfirm to show a confirm dialog with a upload form
+	 * File input has name 'uploadfile'
+	 *
+	 * @param string $page Url of page to call if confirmation is OK
+	 * @param string $title Title
+	 * @param string $question Question
+	 * @param string $action Action
+	 * @param string $label Label of the input
+	 * @return string HTML code
+	 */
+	public static function uploadForm($page, $title, $question, $action, $label)
+	{
+		global $langs;
+
+		$formconfirm = "\n<!-- begin form_confirm page=".$page." -->\n";
+
+		$formconfirm.= '<form method="POST" action="'.$page.'" class="notoptoleftroright" enctype="multipart/form-data">'."\n";
+		$formconfirm.= '<input type="hidden" name="action" value="'.$action.'">';
+		$formconfirm.= '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'."\n";
+
+		$formconfirm.= '<table width="100%" class="valid">'."\n";
+
+		// Line title
+		$formconfirm.= '<tr class="validtitre"><td class="validtitre" colspan="3">'.img_picto('','recent').' '.$title.'</td></tr>'."\n";
+
+		// Line form fields
+		$formconfirm.='<tr class="valid"><td class="valid" colspan="3">'."\n";
+		$formconfirm.=$label.'</td><td valign="top" colspan="2" align="left">';
+		$formconfirm.= '<input type="file" name="uploadfile">';
+		$formconfirm.='</td></tr>'."\n";
+		$formconfirm.='</td></tr>'."\n";
+
+		// Line with question
+		$formconfirm.= '<tr class="valid">';
+		$formconfirm.= '<td class="valid" colspan="3"></td>';
+		$formconfirm.= '<td class="valid" colspan="2"><input class="button" type="submit" value="'.$langs->trans("Upload").'"></td>';
+		$formconfirm.= '</tr>'."\n";
+
+		$formconfirm.= '</table>'."\n";
+
+		$formconfirm.= "</form>\n";
+		$formconfirm.= '<br>';
+
+		$formconfirm.= "<!-- end form_confirm -->\n";
+
+		return $formconfirm;
+	}
+
+	/**
+	 * Adds a product to the order
+	 *
+	 * @param Commande $object Order object
+	 * @param Product $prod Product to add
+	 * @param int $qty Quantity of the product
+	 * @throws Exception
+	 */
+	public static function addOrderLine(Commande $object, Product $prod, $qty)
+	{
+		global $db, $conf, $mysoc, $langs;
+
+		$tva_tx = get_default_tva($mysoc, $object->client, $prod->id);
+		$tva_npr = get_default_npr($mysoc, $object->client, $prod->id);
+
+		if (! empty($conf->global->PRODUIT_MULTIPRICES) && ! empty($object->client->price_level))
+		{
+			$pu_ht = $prod->multiprices [$object->client->price_level];
+			$pu_ttc = $prod->multiprices_ttc [$object->client->price_level];
+			$price_base_type = $prod->multiprices_base_type [$object->client->price_level];
+
+			if (isset($prod->multiprices_tva_tx[$object->client->price_level])) {
+				$tva_tx=$prod->multiprices_tva_tx[$object->client->price_level];
+			}
+			if (isset($prod->multiprices_recuperableonly[$object->client->price_level])) {
+				$tva_npr=$prod->multiprices_recuperableonly[$object->client->price_level];
+			}
+		}
+		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 >= 0) {
+				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;
+				} else {
+					$pu_ht = $prod->price;
+					$pu_ttc = $prod->price_ttc;
+					$price_base_type = $prod->price_base_type;
+				}
+			} else {
+				throw new Exception($prodcustprice->error);
+			}
+		}
+		else
+		{
+			$pu_ht = $prod->price;
+			$pu_ttc = $prod->price_ttc;
+			$price_base_type = $prod->price_base_type;
+		}
+
+		// if price ht is forced (ie: 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');
+			}
+		}
+
+		// 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->client->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;
+		}
+
+		// 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);
+		}
+
+		// Local Taxes
+		$localtax1_tx = get_localtax($tva_tx, 1, $object->client);
+		$localtax2_tx = get_localtax($tva_tx, 2, $object->client);
+
+		$info_bits = 0;
+		if ($tva_npr)
+			$info_bits |= 0x01;
+
+		// Insert line
+		$result = $object->addline(
+			$desc,
+			$pu_ht,
+			$qty,
+			$tva_tx,
+			$localtax1_tx,
+			$localtax2_tx,
+			$prod->id,
+			0,
+			$info_bits,
+			0,
+			$price_base_type,
+			$pu_ttc,
+			'',
+			'',
+			$prod->type
+		);
+
+		if ($result < 0) {
+			throw new Exception($langs->trans('ErrorAddOrderLine', $prod->ref));
+		}
+	}
+
+}