<?php
/* crpricextract: send SMS to thirdparties by crpricextract.com
/* Copyright (C) 2012 Maxime MANGIN <maxime@tuxserv.fr>
 *
 * 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    admin/setup.php
 * \ingroup crpricextract
 * \brief   crpricextract setup page.
 *
 * Based on smsdecanet module.
 */

 // Load Dolibarr environment
$res=0;
// Try main.inc.php into web root known defined into CONTEXT_DOCUMENT_ROOT (not always defined)
if (! $res && ! empty($_SERVER["CONTEXT_DOCUMENT_ROOT"])) $res=@include($_SERVER["CONTEXT_DOCUMENT_ROOT"]."/main.inc.php");
// Try main.inc.php into web root detected using web root caluclated from SCRIPT_FILENAME
$tmp=empty($_SERVER['SCRIPT_FILENAME'])?'':$_SERVER['SCRIPT_FILENAME'];$tmp2=realpath(__FILE__); $i=strlen($tmp)-1; $j=strlen($tmp2)-1;
while($i > 0 && $j > 0 && isset($tmp[$i]) && isset($tmp2[$j]) && $tmp[$i]==$tmp2[$j]) { $i--; $j--; }
if (! $res && $i > 0 && file_exists(substr($tmp, 0, ($i+1))."/main.inc.php")) $res=@include(substr($tmp, 0, ($i+1))."/main.inc.php");
if (! $res && $i > 0 && file_exists(dirname(substr($tmp, 0, ($i+1)))."/main.inc.php")) $res=@include(dirname(substr($tmp, 0, ($i+1)))."/main.inc.php");
// Try main.inc.php using relative path
if (! $res && file_exists("../../main.inc.php")) $res=@include("../../main.inc.php");
if (! $res && file_exists("../../../main.inc.php")) $res=@include("../../../main.inc.php");
if (! $res) die("Include of main fails");

require_once(DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php");
require_once(DOL_DOCUMENT_ROOT."/core/lib/files.lib.php");
require_once(DOL_DOCUMENT_ROOT.'/core/class/html.formadmin.class.php');
require_once(DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php');


global $langs, $user;

// Libraries
require_once DOL_DOCUMENT_ROOT . "/core/lib/admin.lib.php";
require_once("../core/modules/modSYDinitprocess.class.php");


// Translations
$langs->load('admin');


$modules = array(
	'SdC' =>'Saldos de Cuentas Contables',
	'PEC' =>'Costo Compras y Existencias',
	'PCm' =>'Costo Mayor',
	'ITF' =>'Inventario Toma Fisica',
	'DDP' =>'Documentos de Proveedores',
	'DDC' =>'Documentos de Clientes',
	'DDE' =>'Documentos de Empleados',
	'CPS' =>'Codigos CABYS'
);

// Access control
if (! $user->admin) {
	accessforbidden();
}

// Parameters
$action = GETPOST('action', 'alpha');

/*
 * Actions
 */
 
if ($_POST["action"] == 'modifyconfig')
{
}

// Send file
if (GETPOST('sendit') && ! empty($conf->global->MAIN_UPLOAD_DOC))
{
	$error=0;
	if (! GETPOST('module','alpha') || is_numeric(GETPOST('module','alpha'))){
		$error++;
		setEventMessage($langs->trans("ErrorFieldRequired",$langs->transnoentitiesnoconv("Type")),'warnings');
	}
	if (! $error){
		if (is_array($_FILES['userfile']['name'])) {
			$listoffiles=$_FILES['userfile']['name'];
		}
		else {
			$listoffiles=array($_FILES['userfile']['name']);
		}

		foreach($listoffiles as $key => $filename) {
			if (preg_match('/\.csv$/i', $filename)) {
				$upload_dir = DOL_DATA_ROOT.'/sydtech/';
				
				if (dol_mkdir($upload_dir) >= 0)
				{
					if (is_array($_FILES['userfile']['name']))
					{
						$tmp_name = $_FILES['userfile']['tmp_name'][$key];
						$fileerror = $_FILES['userfile']['error'][$key];
					}
					else
					{
						$tmp_name = $_FILES['userfile']['tmp_name'];
						$fileerror = $_FILES['userfile']['error'];
					}
					$resupload=dol_move_uploaded_file($tmp_name, $upload_dir . "/" . $filename, 0, 0, $fileerror);
					if (is_numeric($resupload) && $resupload > 0)
					{
						

						//setEventMessage($langs->trans("FileTransferComplete"),'mesgs');
						if (GETPOST('module','alpha') === 'SdC' ){

							require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
							require_once DOL_DOCUMENT_ROOT.'/accountancy/class/bookkeeping.class.php';
							require_once DOL_DOCUMENT_ROOT.'/core/class/html.formaccounting.class.php';
							require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
							require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
							require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingjournal.class.php';
							require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';

							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								$data = str_getcsv( str_replace(' -   ','0',$line), $delimiter);
								$tabarray[] = $data;

							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);

							$doc_ref = date('Ymdhis');
							$doc_type = 'saldo_inicial';
							$mode = '';
							$journal_code = 'SI'; //Saldos Iniciales
							$label_operation = 'Carga de Saldos Iniciales.';
							$date_start = date('Y-m-d', strtotime("-1 months"));
							$error = 0;

							$accountingjournal = new AccountingJournal($db);
							$accountingjournal->fetch(null, $journal_code);
							$journal_label = $accountingjournal->label;
							
							$object = new BookKeeping($db);
							$next_num_mvt = $object->getNextNumMvt($mode);

							// $object = new BookKeeping($db);
							
							// $object->label_compte = '';
							// $object->debit = 0;
							// $object->credit = 0;
							// $object->doc_date = $date_start;
							// $object->doc_type = $doc_type;
							// $object->piece_num = $next_num_mvt;
							// $object->doc_ref = $doc_ref;
							// $object->code_journal = $journal_code;
							// $object->journal_label = $journal_label;
							// $object->fk_doc = 0;
							// $object->fk_docdet = 0;
							// $object->montant = 0; // deprecated
							// $object->amount = 0;
					
							// $result = $object->createStd($user, 0, $mode);
							// if ($result < 0) {
							// 	setEventMessages($object->error, $object->errors, 'errors');
							// } else {
							// 	$action = 'update';
							// 	$id = $object->id;
							// 	$piece_num = $object->piece_num;
							// }
							$acumsaldofinal =0;
							$error = 0;
							$arrayLength = count($tabarray);
							$i = 0;
							while ( $i < $arrayLength ){
								$idcuenta =$tabarray[$i][8];

								if (!is_numeric($idcuenta) ){
									$i++;
									continue;
								}
								
								$accountingaccount = new AccountingAccount($db);
								
								$accountingaccount_number = $idcuenta;
								$result = $accountingaccount->fetch(null, $accountingaccount_number, true);
								$accountingaccount_label = $accountingaccount->label;
								
								if ($result > 0 ){
									$sql="SELECT count(rowid) menores FROM ".MAIN_DB_PREFIX."accounting_account 
									WHERE entity=".$conf->entity." and account_parent like '".$accountingaccount_number."%' ";
									$rqs=$db->query($sql);
								
									$result = $db->fetch_object($rqs);
									$isparent =null;
									if ($result->menores >= 1 ){
										$isparent = true;
									}else{
										$isparent = false;
									}
									$saldoinicial = (float) str_replace(',','',$tabarray[$i][13]); 
									$debe =(float) str_replace(',','',$tabarray[$i][14]); 
									$haber = (float) str_replace(',','',$tabarray[$i][15]); 
									$saldofinal = (float) str_replace(',','',$tabarray[$i][17]); 
	
									if (!$isparent && ( $saldofinal != 0)){
										$grupo =  trim($tabarray[$i][2]);
										switch ($grupo){
											case 'ACTIVO':
												$sens = 'D';
												break;
											case 'PASIVO':
												$sens = 'D';
												break;
											case 'CAPITAL':
												$sens = 'D';
												break;
											case 'INGRESOS':
												$sens = 'D';
												break;
											case 'COSTOS':
												$sens = 'D';
												break;
											case 'GASTOS':
												$sens = 'D';
												break;
											case 'OTROS':
												break;
										}
										$subledger_account = null;
										$subledger_label = null;
										
										if (!$error) {
	
											
											if ($saldofinal < 0 ){
												$sens ='C';
											}else{
												$sens ='D';
											}
											if ($sens == 'D'){
												$debit = $saldofinal ;
											}else{
												$credit = abs( $saldofinal) ;
											}

											$acumsaldofinal += $saldofinal;
											$object = new BookKeeping($db);
									
											$object->numero_compte = trim($tabarray[$i][8]);
											$object->subledger_account = $subledger_account;
											$object->subledger_label = $subledger_label;
											$object->label_compte = $accountingaccount_label;
											$object->label_operation = $label_operation;
											$object->debit = $debit;
											$object->credit = $credit;
											$object->doc_date = $date_start;
											$object->doc_type = $doc_type;
											$object->piece_num = $next_num_mvt;
											$object->doc_ref = $doc_ref;
											$object->code_journal = $journal_code;
											$object->journal_label = $journal_label;
									
											if (floatval($debit) != 0.0) {
												$object->montant = $debit; // deprecated
												$object->amount = $debit;
												$object->sens = 'D';
											}
									
											if (floatval($credit) != 0.0) {
												$object->montant = $credit; // deprecated
												$object->amount = $credit;
												$object->sens = 'C';
											}
									
											$result = $object->createStd($user, false, $mode);
											if ($result < 0) {
												setEventMessages( $accountingaccount_number . $object->error, $object->errors, 'errors');
											} else {
												if ($mode != '_tmp') {
													setEventMessages($langs->trans('RecordSaved'), null, 'mesgs');
												}
									
												$debit = 0;
												$credit = 0;
									
												$action = '';
											}
										}
									}
								}else{
									require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
									require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
									require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountancysystem.class.php';

									$sql = "SELECT pcg_version FROM " . MAIN_DB_PREFIX . "accounting_system WHERE rowid = ".((int) $conf->global->CHARTOFACCOUNTS);

									$result = $db->query($sql);
									$obj = $db->fetch_object($result);

									$object = new AccountingAccount($db);
									$object->fk_pcg_version = $obj->pcg_version;
									$object->pcg_type = trim($tabarray[$i][2]);
									$object->account_number = trim($tabarray[$i][8]);
									$object->account_parent = $tabarray[$i][9];
									$object->account_category = 0;
									$object->label = $tabarray[$i][11];
									$object->labelshort = $tabarray[$i][11];
									$object->active = 1;

									$res = $object->create($user);
									if ($res == -3) {
										$error = 1;
										setEventMessages($object->error, $object->errors, 'errors');
									} elseif ($res == -4) {
										$error = 2;
										setEventMessages($object->error, $object->errors, 'errors');
									} elseif ($res < 0) {
										$error++;
										setEventMessages($object->error, $object->errors, 'errors');
									}
									if (!$error) {
										$sql="SELECT count(rowid) menores FROM ".MAIN_DB_PREFIX."accounting_account 
										WHERE entity=".$conf->entity." and account_parent like '".$accountingaccount_number."%' ";
										$rqs=$db->query($sql);
										$result = $db->fetch_object($rqs);
										$isparent =null;
										if ($result->menores >= 1 ){
											$isparent = true;
										}else{
											$isparent = false;
										}
										$saldoinicial = (float) str_replace(',','',$tabarray[$i][13]); 
										$debe =(float) str_replace(',','',$tabarray[$i][14]); 
										$haber = (float) str_replace(',','',$tabarray[$i][15]); 
										$saldofinal = (float) str_replace(',','',$tabarray[$i][17]); 
		
										if (!$isparent && ( $saldofinal != 0)){
											$grupo =  trim($tabarray[$i][2]);
											switch ($grupo){
												case 'ACTIVO':
													$sens = 'D';
													break;
												case 'PASIVO':
													$sens = 'D';
													break;
												case 'CAPITAL':
													$sens = 'D';
													break;
												case 'INGRESOS':
													$sens = 'D';
													break;
												case 'COSTOS':
													$sens = 'D';
													break;
												case 'GASTOS':
													$sens = 'D';
													break;
												case 'OTROS':
													break;
											}
											$subledger_account = null;
											$subledger_label = null;
											
											if (!$error) {
		
												
												if ($saldofinal < 0 ){
													$sens ='C';
												}else{
													$sens ='D';
												}
												if ($sens == 'D'){
													$debit = $saldofinal ;
												}else{
													$credit = abs( $saldofinal) ;
												}
											
												$acumsaldofinal += $saldofinal;
												$object = new BookKeeping($db);
										
												$object->numero_compte = trim($tabarray[$i][8]);
												$object->subledger_account = $subledger_account;
												$object->subledger_label = $subledger_label;
												$object->label_compte = $accountingaccount_label;
												$object->label_operation = $label_operation;
												$object->debit = $debit;
												$object->credit = $credit;
												$object->doc_date = $date_start;
												$object->doc_type = $doc_type;
												$object->piece_num = $next_num_mvt;
												$object->doc_ref = $doc_ref;
												$object->code_journal = $journal_code;
												$object->journal_label = $journal_label;
										
												if (floatval($debit) != 0.0) {
													$object->montant = $debit; // deprecated
													$object->amount = $debit;
													$object->sens = 'D';
												}
										
												if (floatval($credit) != 0.0) {
													$object->montant = $credit; // deprecated
													$object->amount = $credit;
													$object->sens = 'C';
												}
										
												$result = $object->createStd($user, false, $mode);
												if ($result < 0) {
													setEventMessages( $accountingaccount_number . $object->error, $object->errors, 'errors');
												} else {
													if ($mode != '_tmp') {
														setEventMessages($langs->trans('RecordSaved'), null, 'mesgs');
													}
										
													$debit = 0;
													$credit = 0;
										
													$action = '';
												}
											}
										}
										setEventMessages("RecordCreatedSuccessfully", null, 'mesgs');
										
									}
								}
								

								$i++;
							}

							// $accountingaccount_number = '90';
							// $accountingaccount->fetch(null, $accountingaccount_number, true);
							// $accountingaccount_label = $accountingaccount->label;
							
							// $object = new BookKeeping($db);
							// $debit = 0;
							// $credit = $acumsaldofinal;
							
							// $object->numero_compte = $accountingaccount_number;
							// $object->subledger_account = $subledger_account;
							// $object->subledger_label = $subledger_label;
							// $object->label_compte = $accountingaccount_label;
							// $object->label_operation = $label_operation;
							// $object->debit = $debit;
							// $object->credit = $credit;
							// $object->doc_date = $date_start;
							// $object->doc_type = $doc_type;
							// $object->piece_num = $next_num_mvt;
							// $object->doc_ref = $doc_ref;
							// $object->code_journal = $journal_code;
							// $object->journal_label = $journal_label;
					
							// if (floatval($debit) != 0.0) {
							// 	$object->montant = $debit; // deprecated
							// 	$object->amount = $debit;
							// 	$object->sens = 'D';
							// }
					
							// if (floatval($credit) != 0.0) {
							// 	$object->montant = $credit; // deprecated
							// 	$object->amount = $credit;
							// 	$object->sens = 'C';
							// }
					
							// $result = $object->createStd($user, false, $mode);

							if ($result < 0) {
								setEventMessages($object->error, $object->errors, 'errors');
							} else {
								if ($mode != '_tmp') {
									setEventMessages($langs->trans('RecordSaved'), null, 'mesgs');
								}
					
								$debit = 0;
								$credit = 0;
					
								$action = '';
							}	
						}
						if (GETPOST('module','alpha') === 'PEC' ){

							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');

							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								
								//$data = str_getcsv( str_replace(' ','',str_replace(',','.',$line)), $delimiter);
								$data = str_getcsv( $line, $delimiter);
								
								if ( is_numeric (  str_replace(' ','',str_replace(',','.',$data[3]))  ) ){
									
									$tabarray[] = $data;
								}
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);
						
							require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
							require_once DOL_DOCUMENT_ROOT.'/product/stock/class/productlot.class.php';
							require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
							require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';

							$error = 0;
							$arrayLength = count($tabarray);
							$i = 0;
							while ( $i < $arrayLength ){
								$cat = substr($tabarray[$i][0],1,4);
								$prod = str_pad( trim(substr($tabarray[$i][0],5,strlen($tabarray[$i][0]))) , 10, "0", STR_PAD_LEFT);
								$productref = $cat .'-'. $prod;
								
								$nombre = $tabarray[$i][1];
								$nbpiece =price2num(str_replace(',','.',$tabarray[$i][4]) ) ;
								
								$priceunit = price2num( str_replace(',','.',$tabarray[$i][3]) );
								
								$id_entrepot=1; //Almacen default
								$descripcion = 'Carga de existencias iniciales y precio costo compra (PMP)';
								$inventorycode = str_pad( date('Ymd'), 10, "0", STR_PAD_LEFT);
								$disablestockchangeforsubproduct =0;
								$object = new Product($db);
								$result = $object->fetch('', $productref);
								
								if ( $result <= 0 ) {
									$object->ref = $productref ;
									$object->label = $nombre ;
									$object->type = 0;
									$object->default_vat_code = '08';
									$object->tva_tx = 13;
									$object->description = $nombre ;
									$object->note_private          	 = $descripcion ;
									$object->note               	 = $descripcion ;
									$object->fk_default_warehouse =1;
									$object->seuil_stock_alerte 	 =10;
									$object->desiredstock =10;
									$id = $object->create($user);
									if ($id < 0) {
										var_dump($object->errors);
										die;
										$errorlist[] = 'A'.$productref;
									}else{
										$id = $thirdpartyid;
									}
								}else{
									$id = $object->id;
									
								}

								if (is_numeric($nbpiece) && $nbpiece != 0 && $id) {
									$origin_element = '';
									$origin_id = null;
						
									if (empty($object)) {
										$object = new Product($db);
										$result = $object->fetch($id);
									}
									$mresult =1;
									$mresult = $object->correct_stock(
										$user,
										$id_entrepot,
										$nbpiece,
										0, //0 = add, 1 = remove
										$descripcion,
										$priceunit,
										$inventorycode,
										$origin_element,
										$origin_id,
										$disablestockchangeforsubproduct
									); // We do not change value of stock for a correction
									
									if ($mresult <= 0) {
										var_dump($object->error);
									die;
										$errorlist[] = 'B'.$productref;
									}
								}else{
									$errorlist[] = 'C'.$productref;
								}
								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes productos'. json_encode($errorlist), null, 'errors');
							}
						}
						if (GETPOST('module','alpha') === 'ITF' ){
							setEventMessage('Deshabilitar el modulo de inventario perpetuo!!','warnings');
							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');

							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								//$data = str_getcsv( str_replace(' ','',str_replace(',','.',$line)), $delimiter);
								$data = str_getcsv( $line, $delimiter);
								$tabarray[] = $data;
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);
						
							require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
							require_once DOL_DOCUMENT_ROOT.'/product/stock/class/productlot.class.php';
							require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.product.class.php';
							require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';

							$error = 0;
							$arrayLength = count($tabarray);
							$i = 0;
							while ( $i < $arrayLength ){
								$cat = substr($tabarray[$i][0],1,4);
								$productref = $tabarray[$i][1];
								
								$nombre = $tabarray[$i][2];
								$nbpiece =price2num(str_replace(',','.',$tabarray[$i][4]) ) ;
								
								$priceunit = price2num( str_replace(',','',$tabarray[$i][3]) );
								
								$id_entrepot=1; //Almacen default
								$descripcion = 'Actualiza inventario toma fisica';
								$inventorycode = str_pad( date('Ymd'), 10, "0", STR_PAD_LEFT);
								$disablestockchangeforsubproduct =0;
								$object = new Product($db);
								$result = $object->fetch('', $productref);
								
								if ( $result <= 0 ) {
									$object->ref = $productref ;
									$object->label = $nombre ;
									$object->type = 0;
									$object->default_vat_code = '08';
									$object->tva_tx = 13;
									$object->description = $nombre ;
									$object->note_private          	 = $descripcion ;
									$object->note               	 = $descripcion ;
									$object->fk_default_warehouse =1;
									$object->seuil_stock_alerte 	 =$nbpiece;
									$object->desiredstock =$nbpiece;
									$id = $object->create($user);
									if ($id < 0) {
										echo 'erro insertando prod'.$productref;
										var_dump($object->errors);
										$errorlist[] = $productref;
									}else{
										$id = $id;
									}
								}else{
									$id = $object->id;
								}

								$origin_element = '';
								$origin_id = null;
					
								if (empty($object)) {
									$object = new Product($db);
									$result = $object->fetch($id);
								}
								//echo 'erro  prod'.$productref;
								$mresult =1;
								$mresult = $object->correct_stock(
									$user,
									$id_entrepot,
									$nbpiece,
									0, //0 = add, 1 = remove
									$descripcion,
									$priceunit,
									$inventorycode,
									$origin_element,
									$origin_id,
									$disablestockchangeforsubproduct
								); // We do not change value of stock for a correction
								
								if ($nbpiece ==0){
									$sql="Update ".MAIN_DB_PREFIX."product set pmp = ".$priceunit . " where ref = '".$productref. "';" ;
									$rqs=$db->query(($sql));
								}
								if ($mresult <= 0) {
									var_dump($object->error);
								die;
									$errorlist[] = 'B'.$productref;
								}
								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes productos'. json_encode($errorlist), null, 'errors');
							}
							setEventMessage('Habilitar el modulo de inventario perpetuo!!','warnings');


						}
						if (GETPOST('module','alpha') === 'PCm' ){
							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								$data = str_getcsv( str_replace(' ','',str_replace(',','.',$line)), $delimiter);
								if ( is_numeric ( $data[3] ) ){
									$tabarray[] = $data;
								}
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);

							require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
							require_once DOL_DOCUMENT_ROOT.'/core/lib/price.lib.php';
							require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';

							$error = 0;
							$arrayLength = count($tabarray);
							$i = 0;
							while ( $i < $arrayLength ){
								$cat = substr($tabarray[$i][0],1,4);
								$prod = str_pad( substr($tabarray[$i][0],5,strlen($tabarray[$i][0])) , 10, "0", STR_PAD_LEFT);
								$productref = $cat .'-'. $prod;
								$cost_price = price2num( $tabarray[$i][3] );
								
								$object = new Product($db);
								$result = $object->fetch('', $productref);
								
								if (!$error && $result > 0 ) {
									$id = $object->id;
									if (is_numeric($cost_price) && $cost_price != 0 && $id) {
										$object->cost_price = price2num($cost_price);
										$mresult = $object->update($object->id, $user);
										if ($mresult <= 0) {
											$errorlist[] = $productref;
										}
									}else{
										$errorlist[] = $productref;
									}

								}else{
									$errorlist[] = $productref;
								}
								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes productos'. json_encode($errorlist), null, 'errors');
							}
						}
						if (GETPOST('module','alpha') === 'DDP' ){
							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');
							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								$data = str_getcsv( $line, $delimiter);
								$tabarray[] = $data;
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);
 
							require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';

							$error = 0;
							$arrayLength = count($tabarray);
							
							$i = 0;
							while ( $i < $arrayLength ){
								$prefijo =' ';
								$consecutivo =  str_pad( $tabarray[$i][5],10,'0',STR_PAD_LEFT);
								$cliente =  str_replace( '-','',substr($tabarray[$i][0],0,6));
								$ncliente = $tabarray[$i][1];
								$fecha = trim($tabarray[$i][2]);
								$dia = substr($fecha,0,2);
								$mes = substr($fecha,3,2);
								$ano = substr($fecha,6,4);
								$fechav = trim($tabarray[$i][3]);
								$diav = substr($fechav,0,2);
								$mesv = substr($fechav,3,2);
								$anov = substr($fechav,6,4);

								$subtotal = $tabarray[$i][6];
								$impuesto = 0;
								$total = $tabarray[$i][6];
								$statu =3;
								$condpago = 1; //Credito
								$modopago = 1; //Transferencia
								$moneda = 'CRC';

								$sql="SELECT rowid  FROM ".MAIN_DB_PREFIX."societe  
									WHERE entity=".$conf->entity." and code_fournisseur like '%".'SU%-' .$cliente. "%'" ;
								$rqs=$db->query($sql);
								$result = $db->fetch_object($rqs);

								if ( is_null($result ) ||  $result < 0  ){

									$sql = "INSERT INTO ".MAIN_DB_PREFIX."societe (";
									$sql .= "nom";
									$sql .= ", name_alias";
									$sql .= ", entity";
									$sql .= ", datec";
									$sql .= ", fk_user_creat";
									$sql .= ", fk_typent";
									$sql .= ", code_fournisseur";
									$sql .= ", fournisseur";
									$sql .= ", status";
									$sql .= ") VALUES ('".$ncliente."', '".$ncliente."', 1, now()";
									$sql .= ", ".(!empty($user->id) ? ((int) $user->id) : "null");
									$sql .= ", ".(1);
									$sql .= ", '".'SU2203-'.$cliente ."'";
									$sql .= ", 1";
									$sql .= ", 0";
									$sql .= ")";
						
									$result = $db->query($sql);
									
									$socid = $db->last_insert_id(MAIN_DB_PREFIX."societe");
									//echo '<pre>';var_dump($socid);echo '</pre>';
									// $thirdpartystatic = new Societe($db);

									// $thirdpartystatic->name =  $ncliente;
									// $thirdpartystatic->name_alias = $ncliente;
									// $thirdpartystatic->typent_code= 0;
									// $thirdpartystatic->code_fournisseur= 'SU2203-'.$cliente;
									// $thirdpartystatic->pays = 75;
									// $thirdpartystatic->country = 'Costa Rica';
									// $thirdpartystatic->country_code = 'CR';
									// $thirdpartystatic->country_id = 75;
									// $thirdpartystatic->multicurrency_code = $moneda;
									// $thirdpartystatic->forme_juridique_code =1;
									// $thirdpartystatic->idprof1 = $cliente;
									// $thirdpartystatic->email = $cliente.'@oficomercr.com';
									// $thirdpartystatic->fournisseur = 1;
									// $thirdpartystatic->note_public = 'Importado por archivo CXP documento '.$consecutivo. 'Linea '. trim($tabarray[$i][0]);

									// $thirdpartyid = $thirdpartystatic->create($user);
									// echo '<pre>';var_dump($thirdpartyid);echo '</pre>';
									// die;
									// if ($thirdpartyid < 0) {
									// 	echo $ncliente .'<br>';
									// 	echo '<pre>';var_dump($thirdpartystatic);echo '</pre>';
									// 	die;
									// 	$errorlist[] = $consecutivo;
									// }else{
									// 	$socid = $thirdpartyid;
									// }




								}else{
									$socid = $result->rowid;
									
								}

								$facture = new FactureFournisseur($db);

								$facture->socid = $socid ;
								$facture->type            = FactureFournisseur::TYPE_STANDARD ;
								//$facture->ref             = $prefijo . $consecutivo ;
								$facture->date            = dol_mktime(12, 0, 0, $mes, $dia, $ano);
								$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
								$facture->note_public = 'Importado como referencia';
								$facture->note_private    = 'Importado como referencia';
								$facture->ref_supplier      = $consecutivo;
								$facture->model_pdf = 'sponge';
								//$facture->fk_project = GETPOST('projectid', 'int');
								$facture->cond_reglement_id	= $condpago;
								$facture->mode_reglement_id	= $modopago;
								$facture->fk_account = 0;

								$facture->total_tva = price2num($impuesto);
								$facture->total_ht = price2num($subtotal);
								$facture->total_ttc = price2num($total);
								$facture->remise_absolue		= 0;
								$facture->multicurrency_code = 'CRC';
								$facture->multicurrency_tx   = 1;
								$facture->status = 1;
								
								$id = $facture->create($user);

								if ($id) {
									$facture = new FactureFournisseur($db);
									$facture->fetch($id);
									// $facture->date_creation = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									// $facture->date = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->date            = dol_mktime(12, 0, 0, $mes, $dia, $ano);
									$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
									$facture->ref_ext =  $consecutivo ;
									$facture->ref_supplier =  $consecutivo ;
									$facture->ref = $facture->getNextNumRef($thirdpartystatic);
									$facture->status = 1;
									$facture->statut = 1;
									$facture->total_tva = $impuesto;
									$facture->total_ht = $subtotal;
									$facture->total_ttc = $total;

									$result = $facture->update($user,1);
									if ($result <= 0) {
										//echo '<pre>';var_dump($facture);echo '</pre>';
										$errorlist[] = $consecutivo;
									}
									$sql="UPDATE   ".MAIN_DB_PREFIX."facture_fourn  
									set date_lim_reglement='". $anov.'-'.$mesv.'-'.$diav. " 00:00:00' where ref_supplier = '" .$consecutivo. "'" ;
									$rqs=$db->query($sql);

								}else{
									$errorlist[] = $consecutivo;
								}
								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes documentos'. json_encode($errorlist), null, 'errors');
								die;
							}
						}
						if (GETPOST('module','alpha') === 'DDC' ){
							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');
							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';

							while ( !feof($fp) ){
								$line = fgets($fp, 2048);

								$data = str_getcsv( $line, $delimiter);
								
								if ( ( strlen($data[1]) > 0 )   &&  (strlen($data[2]) == 0 ) ){
									$cliente = explode(" ",$data[1]);
									$cedula = $cliente[1];
									$cliente = str_replace('-','',substr($cliente[0],0,6));
									

								}elseif(  strlen($data[1]) == 0   &&  strlen($data[2]) == 0 &&  strlen($data[3]) > 0 ) {
									$data[1] = 'CU2202-'.$cliente;
									$data[2] = $cedula;
									$line = explode(" ",$data[3]);
									$data[3] = $line[0]; //numdocto
									$data[4] = $line[1]; //tipo
									$data[5] = $line[2]; //fecha
									$data[6] = $line[3]; //vence

									if ( $line[4] != $line[5] ){
										$data[7] = $line[5]; //saldo doc
									}
									$data[7] = $line[4]; //saldo doc
									$data[8] = $line[5]; //saldo venc
									$data[9] = $line[6]; //
									$tabarray[] = $data;
								}
								
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);

							require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';

							$error = 0;
							$arrayLength = count($tabarray);

							
							$i = 0;
							while ( $i < $arrayLength ){
								$prefijo ='5063003220031011115350010000201';
								$consecutivo = str_pad( $tabarray[$i][3],10,'0',STR_PAD_LEFT);
								$codactividad = '';
								$tipo = trim($tabarray[$i][4]);
								$cliente = $tabarray[$i][1];
								//$ncliente = substr($tabarray[$i][3],strpos($tabarray[$i][3],'-'),strlen($tabarray[$i][3]));
								$fecha = $tabarray[$i][5];
								$dia = substr($fecha,0,2);
								$mes = substr($fecha,2,2);
								$ano = '20'.substr($fecha,4,2);
								$fechav = trim($tabarray[$i][6]);
								$diav = substr($fechav,0,2);
								$mesv = substr($fechav,2,2);
								$anov = '20'.substr($fechav,4,2);
								
								$moneda = 'CRC';
								$tipocambio = 1;
								$descuento = 0;
								$subtotal = str_replace(',','',$tabarray[$i][7]);
								$impuesto = 0;//$tabarray[$i][11];
								$total = str_replace(',','',$tabarray[$i][7]);
								$statu =3;
								$condpago = 1; //Credito
								$modopago = 4; //Transferencia

								$sql="SELECT rowid  FROM ".MAIN_DB_PREFIX."societe  
									WHERE entity=".$conf->entity." and code_client like '".$cliente. "'" ;
								$rqs=$db->query($sql);

								$result = $db->fetch_object($rqs);

								if ( is_null($result ) ||  $result < 0  ){

									$thirdpartystatic = new Societe($db);

									$thirdpartystatic->name =  trim($tabarray[$i][2]);
									$thirdpartystatic->name_alias = trim($tabarray[$i][2]);
									$thirdpartystatic->typent_code= 0;
									$thirdpartystatic->code_client= $cliente;
									$thirdpartystatic->pays = 75;
									$thirdpartystatic->country = 'Costa Rica';
									$thirdpartystatic->country_code = 'CR';
									$thirdpartystatic->country_id = 75;
									$thirdpartystatic->multicurrency_code = $moneda;
									$thirdpartystatic->forme_juridique_code =1;
									$thirdpartystatic->tva_intra = $codactividad;
									$thirdpartystatic->idprof1 = $cliente;
									$thirdpartystatic->idprof6 =  $codactividad;
									$thirdpartystatic->email = $cliente.'@oficomercr.com';
									$thirdpartystatic->client = 1;
									$thirdpartystatic->note_public = 'Importado por archivo CXC documento '.$consecutivo. 'Linea '. trim($tabarray[$i][0]);

									$thirdpartyid = $thirdpartystatic->create($user);

									if ($thirdpartyid < 0) {
										var_dump($thirdpartystatic->errors);
										die;
										$errorlist[] = $consecutivo;
									}else{
										$socid = $thirdpartyid;
									}
								}else{
									$socid = $result->rowid;
									
								}

								$facture = new Facture($db);

								$facture->socid = $socid ;
								$facture->type            = Facture::TYPE_STANDARD ;
								$facture->ref             = $prefijo . $consecutivo ;
								$facture->date            = dol_mktime(12, 0, 0, $mes, $dia, $ano);
								$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
								$facture->note_public = 'Importado como referencia'.$consecutivo. 'Linea '. trim($tabarray[$i][0]);
								$facture->note_private    = 'Importado como referencia'.$consecutivo. 'Linea '. trim($tabarray[$i][0]);
								$facture->ref_client      = '';
								//$facture->fk_project = GETPOST('projectid', 'int');
								$facture->cond_reglement_id	= $condpago;
								$facture->mode_reglement_id	= $modopago;
								$facture->remise_absolue		= price2num($descuento, 'MU');
								$facture->multicurrency_code = $moneda;
								$facture->multicurrency_tx   = $tipocambio;
								$facture->status = 1;
								$facture->total_tva = price2num($impuesto);
								$facture->total_ht = price2num($subtotal);
								$facture->total_ttc = price2num($total);
								
								$id = $facture->create($user);

								if ($id) {
									$facture = new Facture($db);
									$facture->fetch($id);
									$facture->date_creation = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->date = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
									$facture->date_validation = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->ref_ext = $prefijo . $consecutivo ;
									$facture->ref_client = $prefijo . $consecutivo ;
									$facture->ref = 'FA'.$consecutivo;
									$facture->total_tva = price2num($impuesto);
									$facture->total_ht = price2num($subtotal);
									$facture->total_ttc = price2num($total);
									$facture->fk_user_valid = 1;
									$facture->status = 1;
									$facture->statut = 1;
									$result = $facture->update($user,1);
									if ($result <= 0) {
										$errorlist[] = $consecutivo;
									}
								}else{
									$errorlist[] = $consecutivo;
								}

								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes documentos'. json_encode($errorlist), null, 'errors');
							}
						}
						if (GETPOST('module','alpha') === 'DDE' ){
							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');
							$fp = fopen($upload_dir . "/" . $filename, 'r');
							$delimiter = ';';
							$toload =array();
							while ( !feof($fp) ){
								$line = fgets($fp, 2048);

								$data = str_getcsv( $line, $delimiter);
							
								if(  strlen($data[0]) > 7 ) {
									$cliente = substr(str_replace('-','',$data[0]),0,5);
								}elseif(strlen($data[0]) == 5 ){
									$toload[0] = $cliente;

									$toload[1] = $data[0]; //numdocto
									$toload[2] = $data[1]; //fecha
									$toload[3] = $data[2]; //vence
									$toload[4] = str_replace(',','',$data[3]); //saldo doc
									$tabarray[] = $toload;
								}
								//var_dump($data);echo '<br>';
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);

							require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';

					// var_dump($tabarray);echo '<br>';
							$error = 0;
							$arrayLength = count($tabarray);
						
							$i = 0;
							while ( $i < $arrayLength ){
								$prefijo ='5063003220031011115350010000201';
								$consecutivo = str_pad( $tabarray[$i][1],10,'0',STR_PAD_LEFT);
								$codactividad = '';
								$tipo = 1;
								$cliente = $tabarray[$i][0];
								//$ncliente = substr($tabarray[$i][3],strpos($tabarray[$i][3],'-'),strlen($tabarray[$i][3]));
								$fecha = $tabarray[$i][2];
								$dia = substr($fecha,0,2);
								$mes = substr($fecha,2,2);
								$ano = substr($fecha,4,4);
								$fechav = trim($tabarray[$i][3]);
								$diav = substr($fechav,0,2);
								$mesv = substr($fechav,2,2);
								$anov = substr($fechav,4,4);
								
								$moneda = 'CRC';
								$tipocambio = 1;
								$descuento = 0;
								$subtotal = str_replace(',','',$tabarray[$i][4]);
								$impuesto = 0;//$tabarray[$i][11];
								$total = str_replace(',','',$tabarray[$i][4]);
								$statu =3;
								$condpago = 1; //Credito
								$modopago = 4; //Transferencia

								$sql="SELECT rowid  FROM ".MAIN_DB_PREFIX."societe  
									WHERE entity=".$conf->entity." and code_client like '%".$cliente. "%'" ;
								$rqs=$db->query($sql);

								$result = $db->fetch_object($rqs);

								if ( is_null($result ) ||  $result < 0  ){

									$thirdpartystatic = new Societe($db);

									$thirdpartystatic->name =  trim($tabarray[$i][2]);
									$thirdpartystatic->name_alias = trim($tabarray[$i][2]);
									$thirdpartystatic->typent_code= 0;
									$thirdpartystatic->code_client= 'CU2202-'.$cliente;
									$thirdpartystatic->pays = 75;
									$thirdpartystatic->country = 'Costa Rica';
									$thirdpartystatic->country_code = 'CR';
									$thirdpartystatic->country_id = 75;
									$thirdpartystatic->multicurrency_code = $moneda;
									$thirdpartystatic->forme_juridique_code =1;
									$thirdpartystatic->tva_intra = $codactividad;
									$thirdpartystatic->idprof1 = $cliente;
									$thirdpartystatic->idprof6 =  $codactividad;
									$thirdpartystatic->email = $cliente.'@oficomercr.com';
									$thirdpartystatic->client = 1;
									$thirdpartystatic->note_public = 'Importado por archivo CXC documento '.$consecutivo. 'Linea '. trim($tabarray[$i][0]);

									$thirdpartyid = $thirdpartystatic->create($user);

									if ($thirdpartyid < 0) {
										
										$errorlist[] = $consecutivo;
									}else{
										$socid = $thirdpartyid;
									}
								}else{
									$socid = $result->rowid;
								}

								$facture = new Facture($db);

								$facture->socid = $socid ;
								$facture->type            = Facture::TYPE_STANDARD ;
								$facture->ref             = $prefijo . $consecutivo ;
								$facture->date            = dol_mktime(12, 0, 0, $mes, $dia, $ano);
								$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
								$facture->note_public = 'Importado como referencia'.$consecutivo. 'Linea '. trim($tabarray[$i][0]);
								$facture->note_private    = 'Importado como referencia'.$consecutivo. 'Linea '. trim($tabarray[$i][0]);
								$facture->ref_client      = '';
								//$facture->fk_project = GETPOST('projectid', 'int');
								$facture->cond_reglement_id	= $condpago;
								$facture->mode_reglement_id	= $modopago;
								$facture->remise_absolue		= price2num($descuento, 'MU');
								$facture->multicurrency_code = $moneda;
								$facture->multicurrency_tx   = $tipocambio;
								$facture->status = 1;
								$facture->total_tva = price2num($impuesto);
								$facture->total_ht = price2num($subtotal);
								$facture->total_ttc = price2num($total);
								
								$id = $facture->create($user);

								if ($id) {
									$facture = new Facture($db);
									$facture->fetch($id);
									$facture->date_creation = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->date = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->date_lim_reglement = dol_mktime(12, 0, 0,  $mesv, $diav, $anov);
									$facture->date_validation = dol_mktime(12, 0, 0,  $mes, $dia, $ano);
									$facture->ref_ext = $prefijo . $consecutivo ;
									$facture->ref_client = $prefijo . $consecutivo ;
									$facture->ref = 'FA'.$consecutivo;
									$facture->total_tva = price2num($impuesto);
									$facture->total_ht = price2num($subtotal);
									$facture->total_ttc = price2num($total);
									$facture->fk_user_valid = 1;
									$facture->status = 1;
									$facture->statut = 1;
									$result = $facture->update($user,1);

									//var_dump($result );
									if ($result <= 0) {
										$errorlist[] = $consecutivo;
									}
								}else{
									
									$errorlist[] = $consecutivo;
								}

								$i++;
							}
							if (!empty($errorlist)){
								setEventMessages('Error en los siguientes documentos'. json_encode($errorlist), null, 'errors');
							}
						}
						if (GETPOST('module','alpha') === 'CPS' ){
							ini_set('max_execution_time', '300');
							ini_set('memory_limit', '-1');
							//$fp = fopen($upload_dir . "/" . $filename, 'r');
							setEventMessages('Suba el archivo manualmente en el directorio de datos del modulo', null, 'errors');
							return -1 ;
							$fp = fopen($upload_dir . "/Catalogo-de-bienes-servicios.csv"  , 'r');
							$delimiter = '|';
							while ( !feof($fp) ){
								$line = fgets($fp, 2048);
								$data = str_getcsv(str_replace("'","\'",$line), $delimiter);
								$tabarray[] = $data;
								
							}
							fclose($fp);
							$result = dol_delete_file($upload_dir . "/" . $filename,0,0,0);
							
							$arrayLength = count($tabarray);
							$i = 1;
							$c1="";
							$c2="";
							$c3="";
							$c4="";
							$c5="";
							$c6="";
							$c7="";
							$c8="";
							$c9="";
							while ( $i < $arrayLength ){
								if ($c1 != trim($tabarray[$i][0]) && trim($tabarray[$i][0]) != ""  ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c1 Values ('". trim($tabarray[$i][0]) . "', '".substr(trim($tabarray[$i][1]),0,254). "') " ;
									$rqs=$db->query(($sql));
									$c1 = trim($tabarray[$i][0]);
								}
								if ($c2 != trim($tabarray[$i][2])  && trim($tabarray[$i][2]) != "" ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c2  Values('".trim($tabarray[$i][2]) . "', '".substr($tabarray[$i][3],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c2 = trim($tabarray[$i][2]);
								}
								if ($c3 != trim($tabarray[$i][4]) && trim($tabarray[$i][4]) != ""  ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c3  Values('".trim($tabarray[$i][4]) . "', '".substr($tabarray[$i][5],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c3 = trim($tabarray[$i][4]);
								}
								if ($c4 != trim($tabarray[$i][6])  && trim($tabarray[$i][6]) != "" ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c4  Values('".trim($tabarray[$i][6]) . "', '".substr($tabarray[$i][7],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c4 = trim($tabarray[$i][6]);
								}
								if ($c5 != trim($tabarray[$i][8]) && trim($tabarray[$i][8]) != ""  ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c5  Values('".trim($tabarray[$i][8]) . "', '".substr($tabarray[$i][9],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c5 = trim($tabarray[$i][8]);
								}
								if ($c6 != trim($tabarray[$i][10]) && trim($tabarray[$i][10]) != ""  ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c6  Values('".trim($tabarray[$i][10]) . "', '".substr($tabarray[$i][11],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c6 = trim($tabarray[$i][10]);
								}
								if ($c7 != trim($tabarray[$i][12])  && trim($tabarray[$i][12]) != "" ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c7  Values('".trim($tabarray[$i][12]) . "', '".substr($tabarray[$i][13],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c3 = trim($tabarray[$i][12]);
								}
								if ($c8 != trim($tabarray[$i][14])  && trim($tabarray[$i][14]) != "" ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys_c8  Values('".trim($tabarray[$i][14]) . "', '".substr($tabarray[$i][15],0,254). "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c8 = trim($tabarray[$i][14]);
								}
								if ($c9 != trim($tabarray[$i][16])  && trim($tabarray[$i][16]) != "" ){
									$sql="INSERT INTO ".MAIN_DB_PREFIX."cabys  Values('".trim($tabarray[$i][16]) . "', '".substr($tabarray[$i][17],0,254). "', '".$tabarray[$i][18].  "') " ;
									$rqs=$db->query(utf8_encode($sql));
									$c9 = trim($tabarray[$i][16]);
								}

								$i++;
							}
						}
					}else{
						$langs->load("errors");
						if ($resupload < 0)	// Unknown error
						{
							setEventMessage($langs->trans("ErrorFileNotUploaded"),'mesgs');
						}
						else if (preg_match('/ErrorFileIsInfectedWithAVirus/',$resupload))	// Files infected by a virus
						{
							setEventMessage($langs->trans("ErrorFileIsInfectedWithAVirus"),'mesgs');
						}
						else	// Known error
						{
							setEventMessage($langs->trans($resupload),'errors');
						}
					}
				}else{
					$langs->load('errors');
					setEventMessage($langs->trans("ErrorFailToCreateDir",$upload_dir),'errors');
				}
			}else{
				setEventMessage($langs->trans("ErrorFileMustBeACSV"),'errors');
			}
		}
	}
}
/*
 * View
 */
 
$form=new Form($db);
$formfile=new FormFile($db);

llxHeader('', 'Modulo de Migracion');


// Subheader
$linkback = '<a href="' . DOL_URL_ROOT . '/admin/modules.php">'
	. 'BackToModuleList' . '</a>';
print load_fiche_titre('Migracion de datos', $linkback);


// Configuration header

$head = ''; //mymoduleAdminPrepareHead();
dol_fiche_head(
	$head,
	'settings',
	$langs->trans("Module743743Name"),
	0,
	""
);
print '<br>';

clearstatcache();
$var=true;
// Show for to add a file
$select_module=$form->selectarray('module', $modules, GETPOST('module'), 1, 0, 0, '', 1);
$formfile->form_attach_new_file($_SERVER['PHP_SELF'], '', 0, 0, 1, 50, '', $select_module, false, '', 0);

dol_fiche_end();

llxFooter();

$db->close();

?>