Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
accounting.lib.php	7.08 KB	-rw-r--r--	2020-08-17 04:34
admin.lib.php	67.53 KB	-rw-r--r--	2020-07-24 01:47
agenda.lib.php	19.97 KB	-rw-r--r--	2020-06-10 12:45
ajax.lib.php	28.77 KB	-rw-r--r--	2020-08-18 15:30
asset.lib.php	4.76 KB	-rw-r--r--	2020-05-12 15:31
bank.lib.php	13.29 KB	-rw-r--r--	2020-05-28 20:13
barcode.lib.php	14.29 KB	-rw-r--r--	2020-05-28 20:13
categories.lib.php	3.41 KB	-rw-r--r--	2020-05-17 12:52
company.lib.php	79.51 KB	-rw-r--r--	2020-07-25 03:01
contact.lib.php	4.66 KB	-rw-r--r--	2020-05-17 13:22
contract.lib.php	4.78 KB	-rw-r--r--	2020-05-12 15:31
cron.lib.php	4.4 KB	-rw-r--r--	2020-05-28 20:13
date.lib.php	34.54 KB	-rw-r--r--	2020-05-28 20:13
doc.lib.php	6.7 KB	-rw-r--r--	2020-05-28 20:13
doleditor.lib.php	4.29 KB	-rw-r--r--	2020-05-28 20:13
donation.lib.php	3.59 KB	-rw-r--r--	2020-05-17 12:52
ecm.lib.php	3.84 KB	-rw-r--r--	2020-05-28 20:13
emailing.lib.php	2.25 KB	-rw-r--r--	2020-06-20 12:19
expedition.lib.php	3.79 KB	-rw-r--r--	2020-05-12 15:31
expensereport.lib.php	5.69 KB	-rw-r--r--	2020-05-17 12:54
fichinter.lib.php	6.48 KB	-rw-r--r--	2020-05-17 12:54
files.lib.php	111.69 KB	-rw-r--r--	2020-06-17 14:45
fiscalyear.lib.php	1.86 KB	-rw-r--r--	2020-05-17 12:54
format_cards.lib.php	2.9 KB	-rw-r--r--	2020-05-28 20:13
fourn.lib.php	9.17 KB	-rw-r--r--	2020-09-09 13:55
functions.lib.php	360.25 KB	-rw-r--r--	2023-11-09 16:47
functions2.lib.php	93.61 KB	-rw-r--r--	2020-07-25 03:01
functions_ch.lib.php	3.66 KB	-rw-r--r--	2020-05-12 15:31
functionsnumtoword.lib.php	9.88 KB	-rw-r--r--	2020-08-07 10:00
geturl.lib.php	8.88 KB	-rw-r--r--	2020-05-28 20:13
holiday.lib.php	3.38 KB	-rw-r--r--	2020-07-04 13:01
hrm.lib.php	2.86 KB	-rw-r--r--	2020-05-17 12:54
images.lib.php	23.42 KB	-rw-r--r--	2020-08-06 17:24
import.lib.php	1.75 KB	-rw-r--r--	2020-05-12 15:31
index.html	0 B	-rw-r--r--	2020-04-18 15:05
invoice.lib.php	7.37 KB	-rw-r--r--	2020-09-09 13:52
invoice2.lib.php	8.84 KB	-rw-r--r--	2020-05-28 20:13
json.lib.php	11.53 KB	-rw-r--r--	2020-05-28 20:13
ldap.lib.php	5.19 KB	-rw-r--r--	2020-05-28 20:13
loan.lib.php	3.08 KB	-rw-r--r--	2020-05-12 15:31
mailmanspip.lib.php	1.24 KB	-rw-r--r--	2020-05-12 15:31
member.lib.php	10.04 KB	-rw-r--r--	2020-05-17 12:55
memory.lib.php	7.71 KB	-rw-r--r--	2020-05-28 20:13
modulebuilder.lib.php	12.2 KB	-rw-r--r--	2020-05-31 23:31
multicurrency.lib.php	1.85 KB	-rw-r--r--	2020-05-12 15:31
oauth.lib.php	6.77 KB	-rw-r--r--	2020-05-12 15:31
order.lib.php	5.64 KB	-rw-r--r--	2020-09-09 13:54
parsemd.lib.php	2.73 KB	-rw-r--r--	2020-05-28 20:13
payments.lib.php	13.75 KB	-rw-r--r--	2020-05-28 20:13
pdf.lib.php	96.37 KB	-rw-r--r--	2020-08-23 19:25
prelevement.lib.php	2.86 KB	-rw-r--r--	2020-07-27 18:41
price.lib.php	20.92 KB	-rw-r--r--	2020-07-25 02:47
product.lib.php	22.17 KB	-rw-r--r--	2020-05-28 20:13
project.lib.php	102.22 KB	-rw-r--r--	2020-09-09 13:56
propal.lib.php	5.27 KB	-rw-r--r--	2020-09-09 13:53
receiptprinter.lib.php	2.19 KB	-rw-r--r--	2020-05-12 15:31
reception.lib.php	3.69 KB	-rw-r--r--	2020-05-12 15:31
report.lib.php	3.78 KB	-rw-r--r--	2020-05-12 15:31
resource.lib.php	4.67 KB	-rw-r--r--	2020-05-12 15:31
salaries.lib.php	3.57 KB	-rw-r--r--	2020-05-17 12:58
security.lib.php	29.91 KB	-rw-r--r--	2020-08-17 19:55
security2.lib.php	17.25 KB	-rw-r--r--	2020-05-28 20:13
sendings.lib.php	16.23 KB	-rw-r--r--	2020-05-28 20:13
signature.lib.php	2.81 KB	-rw-r--r--	2020-05-28 20:13
stock.lib.php	3.67 KB	-rw-r--r--	2020-05-17 12:59
supplier_proposal.lib.php	4.85 KB	-rw-r--r--	2020-05-12 15:31
takepos.lib.php	1.96 KB	-rw-r--r--	2020-05-12 15:31
tax.lib.php	49.87 KB	-rw-r--r--	2020-05-28 20:13
ticket.lib.php	39.15 KB	-rw-r--r--	2020-06-11 23:37
treeview.lib.php	9.27 KB	-rw-r--r--	2020-05-28 20:13
trip.lib.php	1.98 KB	-rw-r--r--	2020-05-17 12:59
usergroups.lib.php	41.61 KB	-rw-r--r--	2020-09-16 13:12
vat.lib.php	2.55 KB	-rw-r--r--	2020-09-10 18:02
website.lib.php	47.84 KB	-rw-r--r--	2020-06-10 12:45
website2.lib.php	20.4 KB	-rw-r--r--	2020-06-19 10:36
ws.lib.php	3.52 KB	-rw-r--r--	2020-05-28 20:13
xcal.lib.php	16.59 KB	-rw-r--r--	2020-05-28 20:13

Rename

<?php
/* Copyright (C) 2015 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2015 Víctor Ortiz Pérez   <victor@accett.com.mx>
 *
 * 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 <https://www.gnu.org/licenses/>.
 * or see https://www.gnu.org/
 */
/**
 *  \file			htdocs/core/lib/functionsnumtoword.lib.php
 *	\brief			A set of functions for Dolibarr
 *					This file contains all frequently used functions.
 */

/**
 * Function to return a number into a text.
 * May use module NUMBERWORDS if found.
 *
 * @param	float       $num			Number to convert (must be a numeric value, like reported by price2num())
 * @param	Translate   $langs			Language
 * @param	boolean     $currency		0=number to translate | 1=currency to translate
 * @param	boolean     $centimes		0=no cents/centimes | 1=there is cents/centimes to translate
 * @return 	string|false			    Text of the number
 */
function dol_convertToWord($num, $langs, $currency = false, $centimes = false)
{
	global $conf;

//$num = str_replace(array(',', ' '), '', trim($num));	This should be useless since $num MUST be a php numeric value
	if (!$num) {
		return false;
	}

if ($centimes && strlen($num) == 1) {
		$num = $num * 10;
	}

if (!empty($conf->global->MAIN_MODULE_NUMBERWORDS)) {
		if ($currency) {
			$type = 1;
		} else {
			$type = 0;
		}

$concatWords = $langs->getLabelFromNumber($num, $type);
		return $concatWords;
	} else {
		$TNum = explode('.', $num);

$num = (int) $TNum[0];
		$words = array();
		$list1 = array(
			'',
			$langs->transnoentitiesnoconv('one'),
			$langs->transnoentitiesnoconv('two'),
			$langs->transnoentitiesnoconv('three'),
			$langs->transnoentitiesnoconv('four'),
			$langs->transnoentitiesnoconv('five'),
			$langs->transnoentitiesnoconv('six'),
			$langs->transnoentitiesnoconv('seven'),
			$langs->transnoentitiesnoconv('eight'),
			$langs->transnoentitiesnoconv('nine'),
			$langs->transnoentitiesnoconv('ten'),
			$langs->transnoentitiesnoconv('eleven'),
			$langs->transnoentitiesnoconv('twelve'),
			$langs->transnoentitiesnoconv('thirteen'),
			$langs->transnoentitiesnoconv('fourteen'),
			$langs->transnoentitiesnoconv('fifteen'),
			$langs->transnoentitiesnoconv('sixteen'),
			$langs->transnoentitiesnoconv('seventeen'),
			$langs->transnoentitiesnoconv('eighteen'),
			$langs->transnoentitiesnoconv('nineteen')
		);
		$list2 = array(
			'',
			$langs->transnoentitiesnoconv('ten'),
			$langs->transnoentitiesnoconv('twenty'),
			$langs->transnoentitiesnoconv('thirty'),
			$langs->transnoentitiesnoconv('forty'),
			$langs->transnoentitiesnoconv('fifty'),
			$langs->transnoentitiesnoconv('sixty'),
			$langs->transnoentitiesnoconv('seventy'),
			$langs->transnoentitiesnoconv('eighty'),
			$langs->transnoentitiesnoconv('ninety'),
			$langs->transnoentitiesnoconv('hundred')
		);
		$list3 = array(
			'',
			$langs->transnoentitiesnoconv('thousand'),
			$langs->transnoentitiesnoconv('million'),
			$langs->transnoentitiesnoconv('billion'),
			$langs->transnoentitiesnoconv('trillion'),
			$langs->transnoentitiesnoconv('quadrillion')
		);

$num_length = strlen($num);
		$levels = (int) (($num_length + 2) / 3);
		$max_length = $levels * 3;
		$num = substr('00'.$num, -$max_length);
		$num_levels = str_split($num, 3);
		$nboflevels = count($num_levels);
		for ($i = 0; $i < $nboflevels; $i++) {
			$levels--;
			$hundreds = (int) ($num_levels[$i] / 100);
			$hundreds = ($hundreds ? ' '.$list1[$hundreds].' '.$langs->transnoentities('hundred').($hundreds == 1 ? '' : 's').' ' : '');
			$tens = (int) ($num_levels[$i] % 100);
			$singles = '';
			if ($tens < 20) {
				$tens = ($tens ? ' '.$list1[$tens].' ' : '');
			} else {
				$tens = (int) ($tens / 10);
				$tens = ' '.$list2[$tens].' ';
				$singles = (int) ($num_levels[$i] % 10);
				$singles = ' '.$list1[$singles].' ';
			}
			$words[] = $hundreds.$tens.$singles.(($levels && (int) ($num_levels[$i])) ? ' '.$list3[$levels].' ' : '');
		} //end for loop
		$commas = count($words);
		if ($commas > 1) {
			$commas = $commas - 1;
		}
		$concatWords = implode(' ', $words);
		// Delete multi whitespaces
		$concatWords = trim(preg_replace('/[ ]+/', ' ', $concatWords));

if (!empty($currency)) {
			$concatWords .= ' '.$currency;
		}

// If we need to write cents call again this function for cents
		$decimalpart = $TNum[1];
		$decimalpart = preg_replace('/0+$/', '', $decimalpart);

if ($decimalpart) {
			if (!empty($currency)) $concatWords .= ' '.$langs->transnoentities('and');

$concatWords .= ' '.dol_convertToWord($decimalpart, $langs, '', true);
			if (!empty($currency)) $concatWords .= ' '.$langs->transnoentities('centimes');
		}
		return $concatWords;
	}
}

/**
 * Function to return number or amount in text.
 *
 * @deprecated
 * @param	float 	    $numero			Number to convert
 * @param	Translate	$langs			Language
 * @param	string	    $numorcurrency	'number' or 'amount'
 * @return 	string  	       			Text of the number or -1 in case TOO LONG (more than 1000000000000.99)
 */
function dolNumberToWord($numero, $langs, $numorcurrency = 'number')
{
	// If the number is negative convert to positive and return -1 if it is too long
	if ($numero < 0) $numero *= -1;
	if ($numero >= 1000000000001) {
		return -1;
	}

// Get 2 decimals to cents, another functions round or truncate
	$strnumber = number_format($numero, 10);
	$len = strlen($strnumber);
	for ($i = 0; $i < $len; $i++)
	{
		if ($strnumber[$i] == '.') {
			$parte_decimal = $strnumber[$i + 1].$strnumber[$i + 2];
			break;
		}
	}

/*In dolibarr 3.6.2 (my current version) doesn't have $langs->default and
	in case exist why ask $lang like a parameter?*/
	if (((is_object($langs) && $langs->default == 'es_MX') || (!is_object($langs) && $langs == 'es_MX')) && $numorcurrency == 'currency')
	{
		if ($numero >= 1 && $numero < 2) {
			return ("UN PESO ".$parte_decimal." / 100 M.N.");
		}
		elseif ($numero >= 0 && $numero < 1) {
			return ("CERO PESOS ".$parte_decimal." / 100 M.N.");
		}
		elseif ($numero >= 1000000 && $numero < 1000001) {
			return ("UN MILL&OacuteN DE PESOS ".$parte_decimal." / 100 M.N.");
		}
		elseif ($numero >= 1000000000000 && $numero < 1000000000001) {
			return ("UN BILL&OacuteN DE PESOS ".$parte_decimal." / 100 M.N.");
		}
		else {
			$entexto = "";
			$number = $numero;
			if ($number >= 1000000000) {
				$CdMMillon = (int) ($numero / 100000000000);
				$numero = $numero - $CdMMillon * 100000000000;
				$DdMMillon = (int) ($numero / 10000000000);
				$numero = $numero - $DdMMillon * 10000000000;
				$UdMMillon = (int) ($numero / 1000000000);
				$numero = $numero - $UdMMillon * 1000000000;
				$entexto .= hundreds2text($CdMMillon, $DdMMillon, $UdMMillon);
				$entexto .= " MIL ";
			}
			if ($number >= 1000000) {
				$CdMILLON = (int) ($numero / 100000000);
				$numero = $numero - $CdMILLON * 100000000;
				$DdMILLON = (int) ($numero / 10000000);
				$numero = $numero - $DdMILLON * 10000000;
				$udMILLON = (int) ($numero / 1000000);
				$numero = $numero - $udMILLON * 1000000;
				$entexto .= hundreds2text($CdMILLON, $DdMILLON, $udMILLON);
				if (!$CdMMillon && !$DdMMillon && !$UdMMillon && !$CdMILLON && !$DdMILLON && $udMILLON == 1)
					$entexto .= " MILL&OacuteN ";
				else
					$entexto .= " MILLONES ";
			}
			if ($number >= 1000) {
				$cdm = (int) ($numero / 100000);
				$numero = $numero - $cdm * 100000;
				$ddm = (int) ($numero / 10000);
				$numero = $numero - $ddm * 10000;
				$udm = (int) ($numero / 1000);
				$numero = $numero - $udm * 1000;
				$entexto .= hundreds2text($cdm, $ddm, $udm);
				if ($cdm || $ddm || $udm)
					$entexto .= " MIL ";
			}
			$c = (int) ($numero / 100);
			$numero = $numero - $c * 100;
			$d = (int) ($numero / 10);
			$u = (int) $numero - $d * 10;
			$entexto .= hundreds2text($c, $d, $u);
			if (!$cdm && !$ddm && !$udm && !$c && !$d && !$u && $number > 1000000)
				$entexto .= " DE";
			$entexto .= " PESOS ".$parte_decimal." / 100 M.N.";
		}
		return $entexto;
	}
}

/**
 * hundreds2text
 *
 * @param integer $hundreds     Hundreds
 * @param integer $tens         Tens
 * @param integer $units        Units
 * @return string
 */
function hundreds2text($hundreds, $tens, $units)
{
	if ($hundreds == 1 && $tens == 0 && $units == 0) {
		return "CIEN";
	}
	$centenas = array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS");
	$decenas = array("", "", "TREINTA ", "CUARENTA ", "CINCUENTA ", "SESENTA ", "SETENTA ", "OCHENTA ", "NOVENTA ");
	$veintis = array("VEINTE", "VEINTIUN", "VEINTID&OacuteS", "VEINTITR&EacuteS", "VEINTICUATRO", "VEINTICINCO", "VEINTIS&EacuteIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE");
	$diecis = array("DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECIS&EacuteIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE");
    $unidades = array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE");
	$entexto = "";
	if ($hundreds != 0) {
		$entexto .= $centenas[$hundreds - 1];
	}
	if ($tens > 2) {
		if ($hundreds != 0) $entexto .= " ";
		$entexto .= $decenas[$tens - 1];
		if ($units != 0) {
			$entexto .= " Y ";
			$entexto .= $unidades[$units - 1];
		}
		return $entexto;
	}
	elseif ($tens == 2) {
		if ($hundreds != 0) $entexto .= " ";
		$entexto .= " ".$veintis[$units];
		return $entexto;
	}
	elseif ($tens == 1) {
		if ($hundreds != 0) $entexto .= " ";
		$entexto .= $diecis[$units];
		return $entexto;
	}
	if ($units != 0) {
		if ($hundreds != 0 || $tens != 0) $entexto .= " ";
		$entexto .= $unidades[$units - 1];
	}
	return $entexto;
}