ìußa­‘UXØ#Óõœä½C<ëÂšî#Ç#í=ÑRÄY
ØuBoàMd3’ZâÎÂJ™µËˆÎ3T@jP×IyuÉ·iÛ†¸e&;H¼„<T$¤$¹	/[ÎÎh6`«Øá:"U„±¨Õa÷®z5¡°€|¶³ËŽ5ÑêvÆ0± j/ã¶gžt½åŒd·ºcé†9
LÑÀÇév9ó‹“öêN¼,n/©.—´|!(ùádÜÅ/Î”FÊLo©~Å$žëHSË¡’ÁU½ÍÒé|¼`•‰ûbÆ"3´^4Ãq/J¬ôÞ¥ÁŒiSŠ
‡üqðˆ*Y‹?ÀRd¨íñÐ)êùÏ¥>Á¹ÇULùê+çó‹ma¦ÄFÎÍ¦Õ·H(DÎßñEÂãy©ïW–,a¸$ú<±¹v™–×š	+qïXÃKJm'vþÌ'æŒ¬•Äùp)Iv…óOU.ˆQ6Þ‰j,wC<=Þ…ùà6ºÐ€Bë8RIÁÓé¨Ó9¯â×«ªtY}äqìµÙœ5·ÛB¡*Û_u¼!+Vš
c{ådyWÃá;Ì©öÎà6ŒY4 &"GìÂò™;Ûèé÷âõíØp#+ qó«|aÈ›d”èââç\IIžØmÞ|$JËN	zcBí1ýê©Âi¨Wæn&ªLª˜+±¡ËbPjŠBQXì†™±p|ét‡æfÙvpbÄï"†ÀûnµŠ3ÒmPw”²tÀnhx4\¼7[ÅØð Ii2#Ä°ÆÄ\òÖû ¾¾Â¿Ì ¸œmÇØÍ®‚Ñ^í~™ö‰!HS‡~ð‚Mô"ëzFmšvgâDYúw´"dFZÄ¦c2¨TDS8þ]X¬Ÿ„ÔµP@²ÇÙ‘ì.g¿2m3±?Ó«Ç'ëýSöD‘ðÛ ¨UE‹Zzš©fXWXÎ6«²Ò„ÊÄØ¿×œ±Ø„Ð‹X›lSuaÂ~2l#¨\MoMšÍL65‡;E'¡Û›â8×eü–|X^ó.®3ëà>täÙã8»li0üÝã.;(5®È¼q¼£w—\{ðÛ9ztÕMÃ²Èöm*Ÿ›1câhUHrÎÛ4Xºÿþ´¶§g}5ïï$\T=Ùº…î`¼Ø¶÷±?…ÌÚºØDÁ…ì]]ä›v?*–¼µw&AˆFÕø?œ\!
'sdæ¿DKÝ§G$Uã·D×>1oá¸ŽqòUa½Z%_Æ¯„óÍgó¥þ¶µº¶
'sdæ¿DKÝ§G$Uã·­¥Ï†‰Dü]“~¶N(<p5ßëâ0hÓ–}[ñù Bm['`8Ú þMWêá'”0;…\=Åˆ2K×Éžx²1ÛöIúÒKË¦!lÞ‡GIE(+o½ÇÆE±[[†;µÜ®—þª"³:K÷»˜ÆzäþŸ¯Q_Oà_£çOy$D¢àˆ6&0ºðsì1Þe]Ã¥rDŠŽú†$´¾>½¾ªY±ú0+*‚HŽ.ô;¡W²ç¾–Ç™¯BßµJÈÕÔÃêï@µg‰ëÜbº+ß¬½ð®C­d´–Ú%¡Le]:ÿâÆKq)Q&ÐÈýò²5·7Éæ41«Ícú´î½žË2-ƒËkµ"Œ‡…«ÄHU‹ï‹ÔØˆPÜ>äN™#·Îï¶‡ã(iaõ …1ýHÉ°àÍñfH ÛQoýzsŠÉ“³e¢ éœívb(˜:7&rŸ3.Oü¨/|µ+“Õ¤Œºàª‡‡—þÞø%Î–[m¿+?ï~–RŽ3ÚE]&2QöþI°øÍ²»3VŠjü¹ä¨J€ÏNÁÿ”¶±lBX¤Õ/ÏÈ$„!¦ÇƒIŸkÈ¤6ÈëC›Ì¼qüÞ3¨bï’”„	šÙ{¥å¦:|†™Òç–þSlÉ„¯¶îŠ2ëbs^Ûc5¥Æµw|v«ðóJ6¬<ì¶í¬‚ÚLäø’öša†ÖÁ	€Æƒr s#ñÕÄù¤n® 1Në‚“hƒ]ŠigdãEdÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÛÀ½Ä<iIšøì‚¢ïßÍ«µE6ö3âÛ¯€Ru†ö‡4Ð0ãQOQu.»eü"µgë–í…‚c&q\J¶¼µÉÖ	Ä`R×‹¬G-_”Bå\#ÖALš¬BLÛÄlÝØ6?eêÍÍX'¦½Y-6yï5ÞK&{aËòN0æ‚›•¾•jÑK={—Ä7ïÂÀ¹†ÓÑu¤pï9Ä™šM£\£W«˜,]ÜÃì¦†À#ýí3"ñ„ÅHý–ÛkS{$cêŠí…¹¬¹Üú‹BPRN·l„„›ÔfPÝ‚-"¬*¶ä•ƒ
+áŸ5½®Ñ/kï;†F’Ú^šè<6oiâÿž`Tšš–î2ZþÝâ&/à3ç!èúá†½nIÊÝ¨‡$cñv$›¯\†šwêR´’zùÇ•sŸ~Üãí×Ãã:vð‘ÏÇÚã†ŽÄ´ÝKjÿKÐãWþC³ÔQúhñê·f¦þR~Üâð@¼IºÍ
ç ÌÐå¡8m@j¢\cœÄBåx`{‹+OÙSS³0|;xzIãƒ˜åb÷é [›º5~A1Ë21 koÒ¯Ž;Ë{ÝÓmøE£ÄµvÉ½èstäÌXï
ÁîZÇò¿]fó;c#Z´«D–?‹§ŸÂ“×š:	†`øëâ¦ã…™‰›Êè¡ÙÃÈn¯W÷wác¸lt®_?À=÷3Ì\T ûÓk~Ô© ÅöÀœþŽÄ¥.ä©˜æ1ƒA¬Â#§g ºùå:lçÃÖ·Ða`„e?<`ï¯eMG×;xrÃ*A¥yB­_¸<µzæO›<w¿Æ•. NîúšELÂS‡Å§íZÇŒYã©’7T±;É¤õ
ˆHï?8tpy‡sS'ºL5ÛºôQúxÙu^¶†(Ý4ç4rÊqCßBD+íŒŠ’KOcÏólƒðYÆe	üdlª&+â»Š²€¶¯Æ¬À\½øŒÏò^·WÞÕ(n=ò]ÎÒ\KU%´N@6ö‹¼1Ý‘µ_n°û¤¶r2›-íXvÑ;ÓðDIóPJ³%\‘õº9É¨ÕH)(±ÜhUÖÉÛ¹ÛÅ„´ñÿÈˆI©¯ãþÆ»]E]_Ž\û„~¾½òð·—Ë?m>TQøÃìS_¾¢²´Ç‰ƒX}žÄeã¹›‚’T¦pÉŒ¼ ™„+oÀAló[`½£†öðÐ?^Á”“¾dZÌÚµ@d*’Ëút€¬Jl²ºÙB‚ÙP3U£gÕ]§D¤HpøBôz÷†ß¨Â£óLG„™È>q`6è‘c­¸½ü,Nx597°4ÏÏ/Ó1eaònR`u×À|z·š@!]E åc‘)XLdLA1ÇúgZÉä˜¶m¯6ÓšíÕ6~à'±ë«hpœË—øØêæÞÛ»ØýölR­&*;î>rÅ«œ/Í·U ç,lÑ°¹‹žO:–‘u……ÙéøçO;Uð…aLIvê‘}tb²…Býª¼vÀûU•äŸŽt\î®@†©õ‘L êÌÏeÐJA1ÜfPÜÄá{ØG*ùË
åÏÿY¡jFWÑ™×ÉûÝNœƒYpÀÔ~½`sVskvŠMò#\P5×KY‰øx¬Ë3…VÆƒŠ²Ùroÿd,ÎíËAgtÊ5©qVÅ<0Ðàz:Æ&4 éŠ¤õ»/fà'¹Ã[‘ô3ïþ=„°X1Zó6)í9è#~žÿÉÓÚþñ°ßa¼çWEäëŽYþt³¯Ç=ñ¹rùIª‡¡*Köv0ÖJ}5(TJ>Àø’Ô'ã‡Ó˜MÁÕwG’]Ö	ë€½„5¼6×¥Õnt`†Ä¤Õ FK‹ÛË7ÅfJK’ñ:G6pæºÒ*D•}ÖïO¢Áö\6whŽˆªÉ;¾ÞÃ_ë_Ž¦µ#ç‡@À¹lT~·¿]Þ¾,°X¨I(˜ˆÉõ·;Ð&xÊüÿ/à¿ËgêïáQÆ)w÷VÚ6QˆÔ=ïþ#«6ÜÙŽoº¡lwPž–ï¹nË^t$
»%KÆÎhÃ$e×o§ß@Syl3ÿ¨z´ €ìyÕÁÑWdKÒ9j°.…)Ò(7ìa†5uU0åBg
9&eD]í"É”;/;ÿîŽJ'E)ÈÑ9©›¬»V^3öAˆï»®ŽzŽ.±žtxÙ¡èÞT¦]?—”é-¹·³ý…Ú_‡Ú:•€´Xÿ™*®ZC5DX¼pËlQI%NêrÃ*r8Ÿˆk3°äÚ<¹$>ö°z›‰¯k=V Ìõ¿-´¤ÄM
	~ð_…XºÝáªB¯ôæ”Û@í{Ò¿ïS¶Jî¿ÙþÖ/c9Ú¹Eaä²·m†î¢†2c¡i¢šHÜIKd5Òe˜°S‹Ïúð-ŸÇeg¦*FËíÇ½ˆ”XÉ‘39‹ÃÜÕ¸Òeg,Tm7•óÕ]`ê6ý°åí1{Ÿž!V[‘¨)'éS¢ŠŸõ!¼0%‡²¯tKß®HÊ¿ò‡Ã,Å¨Ioo"ÐFÖN]ÚÍiŸ@m­ ¬ô/¼†‡0K~äßpŠ ìfWVKD±¢AÎ·Ò.+5å<l_NßªªÜ«ç-£I÷Ø[ÕÐë*W¯Œ=Æ-\¡±JÙŽëßšº²˜ vc¼¹¤Á]Æ€—æ
ûÊ:Aíœü0K%xHs4G.žqò}°;DýUI¶ÿgƒý	ý`¾Z\Ì§BµÍ6Ú¡KiW%xY§w6ËoA]@È£òÂf›xtœzßóÃ¼½®r»›–o?ƒ‰„ÐNÆnÏM<ÇSßã€û÷ãµrR…“þb-¼2óÖët?KôØ‰¸ÄÅ¥—É-—È0Ê¶–÷=É’•MêŽ˜‹þ=½´lD¼‹Õ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôÕ7\uHR¸ÓfnfŽºôC"FÕ‘!¬‘ŠJ"¥UÇOgœs_‰Š£`gÒ1ÛeyA=]—½¶=ÏÆû\”0¬—úðUŽèáÆØ)¡3šjÙ«õ¨R£Ásr÷Ç1=Úµ0'tj§p¼zÉ´¸þbr_pad($total_pg_T, 9, " ", STR_PAD_LEFT); 
	$total_cb 					= str_pad($total_cb_T, 9, " ", STR_PAD_LEFT); 
	 
	 //$pdf = new FPDF();
	  // create new PDF document
	$width = 210;  
	$height = 310; 
	$pageLayout = array($width, $height); //  or array($height, $width) 
	$pdf = new TCPDF('p', 'mm', $pageLayout, true, 'UTF-8', false);

	$pdf->SetCreator(PDF_CREATOR);
	$pdf->SetAuthor('Cise Soft');
	$pdf->SetTitle('Ficha Factura');
	$pdf->SetSubject('Pdf Factura');
	$pdf->SetKeywords('TCPDF, PDF, Factura, Ficha');

	// set default header data
	// remove default header/footer
	$pdf->setPrintHeader(false);
	$pdf->setPrintFooter(false);
	$ancho=$pdf->GetPageWidth();  // Width of Current Page
	$largo=$pdf->GetPageHeight(); // Height of Current Page

	$pdf->AddPage();
	$pdf->SetTitle("Factura", true);
	$pdf->Cell(9); 

	$pdf->SetFont('times', '', 11); 

	$pdf->SetXY(43, 35); 
	$pdf->Cell(30,6,$fecha_imp,0,0,'L`'); 

	$pdf->SetXY(162, 35); 
	$pdf->Cell(10,6,$CONTADO,0,0,'L`'); 
	$pdf->SetXY(182, 35);
	$pdf->Cell(10,6,$CREDITO,0,0,'L`'); 

	$pdf->SetXY(26, 40); 
	$pdf->Cell(30,6,$ruc_defecto,0,0,'L`'); 

	$pdf->SetXY(50, 42); 
	$pdf->SetFont('times', '', 11); 
	$pdf->Cell(30,6,$cli_defecto,0,0,'L`'); 
	$pdf->SetXY(170, 42); 
	$pdf->SetFont('times', '', 10); 
	$pdf->Cell(160,6,$telefono_cli,0,0,'L`'); 

	$pdf->SetFont('times', '', 10); 
	$pdf->SetXY(32, 48); 
	$pdf->Cell(30,6,$direccion_cli,0,0,'L`'); 
	$pdf->SetXY(20, 57.2); 

	$wcolumna = array(23, 75, 24, 45);
	/*$pdf->SetFont('times','B',10);  
	$pdf->Cell($wcolumna[1],6,"Producto",1);
	$pdf->Cell($wcolumna[0],6,"Cant.",1,0,'R'); 
	$pdf->Cell($wcolumna[2],6,"Precio ",1,0,'R'); 
	$pdf->Cell($wcolumna[2],6,"Subtotal",1,0,'R'); */
	$pdf->Ln();
	$total_iva_ext	 = 0;
	$total_iva_5 	= 0;
	$total_iva_10	= 0;
	$consulta_prod_ped = $aux_fdb->LISTADO_DETALLE_FACTURA_VTA_CLIENTE($CAB_FACTURA_VTA);
	$numfilas_prod_ped = $aux_fdb->numero_de_filas($consulta_prod_ped);
	$total_articulos=0;
			  
		$tsub_ext		=0;
		$tsub_iva5		=0;
		$tsub_iva10		=0;
		$f_tsub_ext		=0; 
		$f_tsub_iva5	=0;
		$f_tsub_iva10	=0;
		 while ($row = $consulta_prod_ped->fetch_assoc()) {
            $cod_producto 			= $row['cod_producto']; 
            $cod_referencia_prod 	= $row['cod_referencia_prod'];    
 
            
            $des_prod				 = $row['desc_producto'];
            $$cod_iva 				= $row['$cod_iva'];
            $cant_prod_dt 			= $row['cant_producto'] + 0;
            $precio_producto 		= number_format($row['precio_producto'], 0);
            $subto_ext		 		= $row['subto_ext'];
            $subto_5 				= $row['subto_5'];
            $subto_10 				= $row['subto_10'];
            $subto_producto 		= $row['subto_producto'];
            $total_iva_ext 			+= $row['subto_ext'];
            $total_iva_5 			+= $row['subto_5'];
            $total_iva_10 			+= $row['subto_10'];
        
            
			$descripcion_prod 		= ucwords(strtolower(substr($des_prod, 0, 25)));
				  
				$descripcion_ped		=  utf8_decode( $descripcion_prod);
				 
				$subto_ped				= $subto_producto;
				$sub_ext				= $subto_ext;
				$sub_iva5				= $subto_5;
				$sub_iva10				= $subto_10; 
				$desc_prod				= str_pad($descripcion_ped, 30, " ", STR_PAD_RIGHT); 
				 
				if($sub_ext==0){
						$sub_ext		= 0;
				}else{
						$sub_ext		= number_format($subto_ped,0,'.',','); 
				}
				if($sub_iva10==0){
						$sub_iva10		= 0;
				}else{
						$sub_iva10		= number_format($subto_ped,0,'.',',');
						
				}
		 
				if($sub_iva5==0){
						$sub_iva5		= 0;
				}else{
						$sub_iva5		= number_format($subto_ped,0,'.',',');
						
				}
				if($cod_iva==1){ 
						$f_tsub_iva10+=$subto_ped; 
				}
				if($cod_iva==2){ 
						$f_tsub_iva5+=$subto_ped;
				} 
				
				$cantidad_ped		= $cant_prod_dt+0; 
				$precio_ped			= $precio_producto;    
				$precio_ped2		= number_format($precio_ped,0,'.',',');
				$cantidad_ped2		= number_format($cantidad_ped,0,'.',',');
				$subto_ped2			= number_format($subto_ped,0,'.',','); 
			   
				$subto_ped			= number_format($subto_ped,0,'.',',');
			  
				$subto_ped 		= str_pad($subto_ped,10, " ", STR_PAD_LEFT );  
				$sub_ext 		= str_pad($sub_ext,10, " ", STR_PAD_LEFT);  
				$sub_iva10 		= str_pad($sub_iva10,10, " ", STR_PAD_LEFT);  
				$sub_iva5 		= str_pad($sub_iva5,10, " ", STR_PAD_LEFT);  
				$cantidad_ped2 		= str_pad($cantidad_ped2,10, " ", STR_PAD_BOTH);  
			$pdf->SetFont('times','',9);  
			$pdf->Cell($wcolumna[0],6,$cantidad_ped2,0,0,'R'); 
			
			$pdf->SetFont('helvetica', '', 10); 
			$pdf->Cell($wcolumna[1],6,ucwords(strtolower($desc_prod)),0);
			$pdf->SetFont('times','',10);  
			$pdf->Cell($wcolumna[2],6,$precio_ped2,0,0,'R'); 
			/*$pdf->Cell($wcolumna[2],6,"1.000.000",0,0,'R'); 
			$pdf->Cell($wcolumna[2],6,"1.000.000",0,0,'R'); 
			$pdf->Cell($wcolumna[2],6,"1.000.000",0,0,'R');  */
			$pdf->Cell($wcolumna[2],6,$sub_ext,0,0,'R'); 
			$pdf->Cell($wcolumna[2],6,$sub_iva5,0,0,'R'); 
			$pdf->Cell($wcolumna[2],6,$sub_iva10,0,0,'R');  
		$pdf->Ln();	 
	}  
	$total_iva_extf		= number_format($tsub_ext+0, 0, ',', '.');
	$total_iva_5f		= number_format($tsub_iva5+0, 0, ',', '.');
	$total_iva_10f		= number_format($tsub_iva10+0, 0, ',', '.');

	$f_tsub_iva5=$f_tsub_iva5/21;
		$f_tsub_iva10=$f_tsub_iva10/11;
	$total_iv_ft=$f_tsub_iva5+$f_tsub_iva10;

	$div_iva_5_f		= number_format($f_tsub_iva5+0, 0, ',', '.');
	$div_iva_10_f		= number_format($f_tsub_iva10+0, 0, ',', '.');
	$total_iv_ft		= number_format($total_iv_ft+0, 0, ',', '.');
	$tl_vx 				= str_pad($div_iva_0, 9, " ", STR_PAD_LEFT); 
	$tl_v5 				= str_pad($div_iva_5_f, 9, " ", STR_PAD_LEFT); 
	$tl_v10 			= str_pad($div_iva_10_f, 9, " ", STR_PAD_LEFT); 

	 
	 
	  $pdf->SetXY(120, 132); 
	 $pdf->SetFont('times','',10);
	$pdf->Cell(28,6,$total_iva_extf,0,0,'R');   
	$pdf->Cell(28,6,$total_iva_5f,0,0,'R');   
	$pdf->Cell(28,6,$total_iva_10f,0,0,'R');   
	 
	 
	$pdf->SetXY(40, 139); 
	$pdf->SetFont('helvetica', '', 11);   
	$pdf->Cell(70,6,$convertirLetras." de guaranies.",0,0,'L'); 
	$pdf->SetXY(185, 138); 
	$pdf->SetFont('times', '', 10);  
	$pdf->Cell(20,6,$total_vt_Tf,0,0,'R'); 
	$pdf->Ln();	 
	$pdf->SetX(35);	
	$pdf->Cell(20,6,$tl_v5,0,0,'R'); 
	$pdf->SetX(75);
	$pdf->Cell(20,6,$tl_v10,0,0,'R'); 
	$pdf->SetX(130);
	$pdf->Cell(20,6,$total_iv_ft,0,0,'R'); 
	 
	 

	}//fin del --->  while ($row = $consulta_env_ped->fetch_assoc()) {}
}//fin del ---> if ($numfilas_env_ped > 0) {}
$impresino='fc_nro_'.$posi_mv.'.pdf';
//Close and output PDF document
$pdf->Output($impresino, 'I');


  function unidad($numuero){
	switch ($numuero)
	{
		case 9:
		{
			$numu = "nueve";
			break;
		}
		case 8:
		{
			$numu = "ocho";
			break;
		}
		case 7:
		{
			$numu = "siete";
			break;
		}
		case 6:
		{
			$numu = "seis";
			break;
		}
		case 5:
		{
			$numu = "cinco";
			break;
		}
		case 4:
		{
			$numu = "cuatro";
			break;
		}
		case 3:
		{
			$numu = "tres";
			break;
		}
		case 2:
		{
			$numu = "dos";
			break;
		}
		case 1:
		{
			$numu = "uno";
			break;
		}
		case 0:
		{
			$numu = "";
			break;
		}
	}
	return $numu;
}
 
function decena($numdero){
 
		if ($numdero >= 90 && $numdero <= 99)
		{
			$numd = "noventa ";
			if ($numdero > 90)
				$numd = $numd."y ".(unidad($numdero - 90));
		}
		else if ($numdero >= 80 && $numdero <= 89)
		{
			$numd = "ochenta ";
			if ($numdero > 80)
				$numd = $numd."y ".(unidad($numdero - 80));
		}
		else if ($numdero >= 70 && $numdero <= 79)
		{
			$numd = "setenta ";
			if ($numdero > 70)
				$numd = $numd."y ".(unidad($numdero - 70));
		}
		else if ($numdero >= 60 && $numdero <= 69)
		{
			$numd = "sesenta ";
			if ($numdero > 60)
				$numd = $numd."y ".(unidad($numdero - 60));
		}
		else if ($numdero >= 50 && $numdero <= 59)
		{
			$numd = "cincuenta ";
			if ($numdero > 50)
				$numd = $numd."y ".(unidad($numdero - 50));
		}
		else if ($numdero >= 40 && $numdero <= 49)
		{
			$numd = "cuarenta ";
			if ($numdero > 40)
				$numd = $numd."y ".(unidad($numdero - 40));
		}
		else if ($numdero >= 30 && $numdero <= 39)
		{
			$numd = "treinta ";
			if ($numdero > 30)
				$numd = $numd."y ".(unidad($numdero - 30));
		}
		else if ($numdero >= 20 && $numdero <= 29)
		{
			if ($numdero == 20)
				$numd = "Veinte ";
			else
				$numd = "Veinti".(unidad($numdero - 20));
		}
		else if ($numdero >= 10 && $numdero <= 19)
		{
			switch ($numdero){
			case 10:
			{
				$numd = "diez ";
				break;
			}
			case 11:
			{
				$numd = "once ";
				break;
			}
			case 12:
			{
				$numd = "doce";
				break;
			}
			case 13:
			{
				$numd = "trece ";
				break;
			}
			case 14:
			{
				$numd = "catorce ";
				break;
			}
			case 15:
			{
				$numd = "quince ";
				break;
			}
			case 16:
			{
				$numd = "dieciseis ";
				break;
			}
			case 17:
			{
				$numd = "diecisiete ";
				break;
			}
			case 18:
			{
				$numd = "dieciocho ";
				break;
			}
			case 19:
			{
				$numd = "diecinueve ";
				break;
			}
			}
		}
		else
			$numd = unidad($numdero);
	return $numd;
}
 
	function centena($numc){
		if ($numc >= 100)
		{
			if ($numc >= 900 && $numc <= 999)
			{
				$numce = "novecientos ";
				if ($numc > 900)
					$numce = $numce.(decena($numc - 900));
			}
			else if ($numc >= 800 && $numc <= 899)
			{
				$numce = "ochocientos ";
				if ($numc > 800)
					$numce = $numce.(decena($numc - 800));
			}
			else if ($numc >= 700 && $numc <= 799)
			{
				$numce = "setecientos ";
				if ($numc > 700)
					$numce = $numce.(decena($numc - 700));
			}
			else if ($numc >= 600 && $numc <= 699)
			{
				$numce = "seiscientos ";
				if ($numc > 600)
					$numce = $numce.(decena($numc - 600));
			}
			else if ($numc >= 500 && $numc <= 599)
			{
				$numce = "quinientos ";
				if ($numc > 500)
					$numce = $numce.(decena($numc - 500));
			}
			else if ($numc >= 400 && $numc <= 499)
			{
				$numce = "cuatrocientos ";
				if ($numc > 400)
					$numce = $numce.(decena($numc - 400));
			}
			else if ($numc >= 300 && $numc <= 399)
			{
				$numce = "trescientos ";
				if ($numc > 300)
					$numce = $numce.(decena($numc - 300));
			}
			else if ($numc >= 200 && $numc <= 299)
			{
				$numce = "doscientos ";
				if ($numc > 200)
					$numce = $numce.(decena($numc - 200));
			}
			else if ($numc >= 100 && $numc <= 199)
			{
				if ($numc == 100)
					$numce = "cien ";
				else
					$numce = "ciento ".(decena($numc - 100));
			}
		}
		else
			$numce = decena($numc);
 
		return $numce;
}
 
	function miles($nummero){
		if ($nummero >= 1000 && $nummero < 2000){
			$numm = "mil ".(centena($nummero%1000));
		}
		if ($nummero >= 2000 && $nummero <10000){
			$numm = unidad(Floor($nummero/1000))." mil ".(centena($nummero%1000));
		}
		if ($nummero < 1000)
			$numm = centena($nummero);
 
		return $numm;
	}
 
	function decmiles($numdmero){
		if ($numdmero == 10000)
			$numde = "diez mil";
		if ($numdmero > 10000 && $numdmero <20000){
			$numde = decena(Floor($numdmero/1000))."mil ".(centena($numdmero%1000));
		}
		if ($numdmero >= 20000 && $numdmero <100000){
			$numde = decena(Floor($numdmero/1000))." mil ".(miles($numdmero%1000));
		}
		if ($numdmero < 10000)
			$numde = miles($numdmero);
 
		return $numde;
	}
 
	function cienmiles($numcmero){
		if ($numcmero == 100000)
			$num_letracm = "cien mil";
		if ($numcmero >= 100000 && $numcmero <1000000){
			$num_letracm = centena(Floor($numcmero/1000))." mil ".(centena($numcmero%1000));
		}
		if ($numcmero < 100000)
			$num_letracm = decmiles($numcmero);
		return $num_letracm;
	}
 
	function millon($nummiero){
		if ($nummiero >= 1000000 && $nummiero <2000000){
			$num_letramm = "un millon ".(cienmiles($nummiero%1000000));
		}
		if ($nummiero >= 2000000 && $nummiero <10000000){
			$num_letramm = unidad(Floor($nummiero/1000000))." millones ".(cienmiles($nummiero%1000000));
		}
		if ($nummiero < 1000000)
			$num_letramm = cienmiles($nummiero);
 
		return $num_letramm;
	}
 
	function decmillon($numerodm){
		if ($numerodm == 10000000)
			$num_letradmm = "diez millones";
		if ($numerodm > 10000000 && $numerodm <20000000){
			$num_letradmm = decena(Floor($numerodm/1000000))."millones ".(cienmiles($numerodm%1000000));
		}
		if ($numerodm >= 20000000 && $numerodm <100000000){
			$num_letradmm = decena(Floor($numerodm/1000000))." millones ".(millon($numerodm%1000000));
		}
		if ($numerodm < 10000000)
			$num_letradmm = millon($numerodm);
 
		return $num_letradmm;
	}
 
	function cienmillon($numcmeros){
		if ($numcmeros == 100000000)
			$num_letracms = "cien millones";
		if ($numcmeros >= 100000000 && $numcmeros <1000000000){
			$num_letracms = centena(Floor($numcmeros/1000000))." millones ".(millon($numcmeros%1000000));
		}
		if ($numcmeros < 100000000)
			$num_letracms = decmillon($numcmeros);
		return $num_letracms;
	}
 
	function milmillon($nummierod){
		if ($nummierod >= 1000000000 && $nummierod <2000000000){
			$num_letrammd = "mil ".(cienmillon($nummierod%1000000000));
		}
		if ($nummierod >= 2000000000 && $nummierod <10000000000){
			$num_letrammd = unidad(Floor($nummierod/1000000000))." mil ".(cienmillon($nummierod%1000000000));
		}
		if ($nummierod < 1000000000)
			$num_letrammd = cienmillon($nummierod);
 
		return $num_letrammd;
	}
 
 
function convertir($numero){
		     $num = str_replace(",","",$numero);
		     $num = number_format($num,2,'.','');
		     $cents = substr($num,strlen($num)-2,strlen($num)-1);
		     $num = (int)$num;
 
		     $numf = milmillon($num);
 
		//return " PESOS  ".$numf." CON ".$cents."/100";
		return $numf;
}

//-----------------------

?>