<?php
	session_start(); 
	require_once("../../shared/class_folder/grid_param.php");
	$io_grid=new grid_param();
	require_once("class_funciones_cxp.php");
	$io_funciones_cxp=new class_funciones_cxp();
	require_once("../../shared/class_folder/class_datastore.php");
	$io_dscuentas=new class_datastore(); // Datastored de cuentas contables
	$ruta = '../../';
	require_once("../../shared/class_folder/sigesp_conexiones.php");
    $io_conexiones=new conexiones();
	// proceso a ejecutar
	$ls_proceso=$io_funciones_cxp->uf_obtenervalor("proceso","");
	// total de filas de recepciones
	$li_totrowrecepciones=$io_funciones_cxp->uf_obtenervalor("totrowrecepciones",1);
	// total 
	$li_total=$io_funciones_cxp->uf_obtenervalor("total","0,00");
	// numero de solicitud 
	$ls_numsol=$io_funciones_cxp->uf_obtenervalor("numsol","");
	switch($ls_proceso)
	{
		case "LIMPIAR":
			uf_print_recepciones($li_totrowrecepciones,$li_total);
			break;

		case "AGREGARRECEPCIONES":
		    if($_POST['codmon'] and $_POST['tascam']>0){				
				echo " <br><br><br>
					   <table width='540' height='116' border='0' align='center' cellpadding='0' cellspacing='0' class='formato-azul'>";
				echo "        <tr>";
				echo "          <td><div align='center'>";
					 uf_print_recepciones_monext($li_totrowrecepciones,$li_total);		
				echo "              </div>
								</td>";
				echo "        </tr>";
				echo "</table>";
				
			}			
			uf_print_recepciones($li_totrowrecepciones,$li_total);
			break;
		case "LOADRECEPCIONES":
		     if($_POST['codmon'] and $_POST['tascam']>0){				
				echo " <br><br><br>
					   <table width='540' height='116' border='0' align='center' cellpadding='0' cellspacing='0' class='formato-azul'>";
				echo "        <tr>";
				echo "          <td><div align='center'>";
					uf_load_recepciones_monext($ls_numsol,$li_total);
				echo "              </div>
								</td>";
				echo "        </tr>";
				echo "</table>";
				
			}			
			uf_load_recepciones($ls_numsol,$li_total);
			break;
		case "CARGAR_REPORTE":
			$ls_tipoformato=$io_funciones_cxp->uf_obtenervalor("formato","");
			uf_load_formatos($ls_tipoformato);
			break;
	}

	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_print_recepciones($ai_totrowrecepciones,$ai_total)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_recepciones
		//		   Access: private
		//	    Arguments: ai_totrowrecepciones // Total de filas de recepciones de documentos
		//				   ai_total             // Monto total
		//	  Description: Método que imprime el grid de las cuentas recepciones de documentos
		//	   Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
		// Fecha Creación: 19/04/2007								Fecha Última Modificación : 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_cxp, $io_dscuentas,$io_conexiones;
		// Titulos el Grid
		$lo_title[1]="Nro. Recepción";
		$lo_title[2]="Tipo";
		$lo_title[3]="Monto";
		$lo_title[4]=" "; 
		$ls_codpro="";
		// Recorrido del Grid de Recepciones
		$li_montotal=0;
		$io_conexiones->decodificar_post();
		for($li_fila=1;$li_fila<$ai_totrowrecepciones;$li_fila++)
		{
			$ls_numrecdoc=trim($io_funciones_cxp->uf_obtenervalor("txtnumrecdoc".$li_fila,""));
			$ls_codtipdoc=trim($io_funciones_cxp->uf_obtenervalor("txtcodtipdoc".$li_fila,""));
			$ls_dentipdoc=trim($io_funciones_cxp->uf_obtenervalor("txtdentipdoc".$li_fila,""));
			$li_montotdoc=trim($io_funciones_cxp->uf_obtenervalor("txtmontotdoc".$li_fila,"0,00"));
			$ls_auxpro=trim($io_funciones_cxp->uf_obtenervalor("txtauxpro".$li_fila,""));
			$ls_auxben=trim($io_funciones_cxp->uf_obtenervalor("txtauxben".$li_fila,""));
			$ls_codproalt=trim($io_funciones_cxp->uf_obtenervalor("txtcodproalt".$li_fila,""));
			$ls_benefalt=trim($io_funciones_cxp->uf_obtenervalor("txtbenefaltrd".$li_fila,""));
			$estliqant=trim($io_funciones_cxp->uf_obtenervalor("txtestliqant".$li_fila,""));
			$li_monto=str_replace(".","",$li_montotdoc);
			$li_monto=str_replace(",",".",$li_monto);
			$li_montotal=$li_montotal + $li_monto;
			
			$ls_benefalt = str_replace('$and$','&',$ls_benefalt);
			$infobenef = ($ls_benefalt)?'<br><b>Benef. Alt: </b> '.$ls_benefalt:'';
			
			$lo_object[$li_fila][1]="<input name=txtnumrecdoc".$li_fila." type=text id=txtnumrecdoc".$li_fila."   class=sin-borde  style=text-align:center size=20 value='".$ls_numrecdoc."' readonly>";
			$lo_object[$li_fila][2]="<input name=txtdentipdoc".$li_fila." type=text id=txtdentipdoc".$li_fila."   class=sin-borde  style=text-align:center size=45 value='".$ls_dentipdoc."' readonly>".$infobenef;
			$lo_object[$li_fila][3]="<input name=txtmontotdoc".$li_fila." type=text id=txtmontotdoc".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$li_montotdoc."' readonly>";
			$lo_object[$li_fila][4]="<a href=javascript:ue_delete_recepcion('".$li_fila."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
									"<input name=txtcodtipdoc".$li_fila." type=hidden id=txtcodtipdoc".$li_fila." value='".$ls_codtipdoc."'>".
									"<input name=txtauxpro".$li_fila." type=hidden id=txtauxpro".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_auxpro."' readonly>".
									"<input name=txtcodproalt".$li_fila." type=hidden id=txtcodproalt".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_codproalt."' readonly>".
									"<input name=txtbenefaltrd".$li_fila." type=hidden id=txtbenefaltrd".$li_fila." value='".$ls_benefalt."' readonly>".
									"<input name=txtestliqant".$li_fila." type=hidden id=txtestliqant".$li_fila." value='".$estliqant."' readonly>".
									"<input name=txtauxben".$li_fila." type=hidden id=txtauxben".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_auxben."' readonly>";
		}
		$lo_object[$ai_totrowrecepciones][1]="<input name=txtnumrecdoc".$ai_totrowrecepciones." type=text id=txtnumrecdoc".$ai_totrowrecepciones."   class=sin-borde  style=text-align:center size=20 readonly>";
		$lo_object[$ai_totrowrecepciones][2]="<input name=txtdentipdoc".$ai_totrowrecepciones." type=text id=txtdentipdoc".$ai_totrowrecepciones."   class=sin-borde  style=text-align:center size=45 readonly>";
		$lo_object[$ai_totrowrecepciones][3]="<input name=txtmontotdoc".$ai_totrowrecepciones." type=text id=txtmontotdoc".$ai_totrowrecepciones."   class=sin-borde  style=text-align:right size=25  readonly>";
		$lo_object[$ai_totrowrecepciones][4]="<a><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
											 "<input name=txtcodtipdoc".$ai_totrowrecepciones." type=hidden id=txtcodtipdoc".$ai_totrowrecepciones.">".
											 "<input name=txtauxpro".$ai_totrowrecepciones." type=hidden id=txtauxpro".$ai_totrowrecepciones."   class=sin-borde  style=text-align:right size=25  readonly>".
											 "<input name=txtcodproalt".$li_fila." type=hidden id=txtcodproalt".$li_fila."   class=sin-borde  style=text-align:right size=25 readonly>".
											 "<input name=txtauxben".$ai_totrowrecepciones." type=hidden id=txtauxben".$ai_totrowrecepciones."   class=sin-borde  style=text-align:right size=25  readonly>";
		if($ai_total==0)
		{
			$ai_total=$li_montotal;
		}
		print "  <table width='720' border='0' align='right' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
		print "    <tr>";
		print " 	  <td height='22' align='left'><a href='javascript:ue_catalogorecepciones();'><img src='../shared/imagebank/tools/nuevo.gif' title='Agregar Detalle Recepciones' width='20' height='20' border='0'>Agregar Detalle Recepciones</a></td>";
		print "    </tr>";
		print "  </table>";
		print "<p>&nbsp;</p>";
		$io_grid->makegrid($ai_totrowrecepciones,$lo_title,$lo_object,720,"Detalle Solicitud","gridrecepciones");
		print "  <table width='720' border='0' align='right' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
		print "    <tr>";
		print "<td  align='right' width='540'><b>Total&nbsp;&nbsp;</b></td>";
		print "<td  align='left'><input name='txtmonsol' type='text' id='txtmonsol' size='25' style='text-align:right' value='".number_format($ai_total,2,",",".")."' readonly></td>";
		print "    </tr>";
		print "  </table>";
	}// end function uf_print_cuentas_presupuesto
	//-----------------------------------------------------------------------------------------------------------------------------------
	
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_print_recepciones_monext($ai_totrowrecepciones,$ai_total)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_recepciones_monext
		//		   Access: private
		//	    Arguments: ai_totrowrecepciones // Total de filas de recepciones de documentos
		//				   ai_total             // Monto total
		//	  Description: Método que imprime el grid de las cuentas recepciones de documentos
		//	   Creado Por: Lic. Edgar A. Quintero
		// Fecha Creación: 01/12/2012								Fecha Última Modificación : 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_cxp, $io_dscuentas,$io_conexiones;
		// Titulos el Grid
		$lo_title[1]="Nro. Recepción";
		$lo_title[2]="Tipo";
		$lo_title[3]="Monto";		
		$ls_codpro="";
		// Recorrido del Grid de Recepciones
		$li_montotal=0;
		for($li_fila=1;$li_fila<$ai_totrowrecepciones;$li_fila++)
		{
			$ls_numrecdoc=trim($io_funciones_cxp->uf_obtenervalor("txtnumrecdoc".$li_fila,""));
			$ls_codtipdoc=trim($io_funciones_cxp->uf_obtenervalor("txtcodtipdoc".$li_fila,""));
			$ls_dentipdoc=trim($io_funciones_cxp->uf_obtenervalor("txtdentipdoc".$li_fila,""));
			$li_montotdoc=trim($io_funciones_cxp->uf_obtenervalor("txtmontotdoc".$li_fila,"0,00"));
			$ls_auxpro=trim($io_funciones_cxp->uf_obtenervalor("txtauxpro".$li_fila,""));
			$ls_auxben=trim($io_funciones_cxp->uf_obtenervalor("txtauxben".$li_fila,""));
			$ls_codproalt=trim($io_funciones_cxp->uf_obtenervalor("txtcodproalt".$li_fila,""));
			$ls_benefalt=trim($io_funciones_cxp->uf_obtenervalor("txtbenefaltrd".$li_fila,""));
			
			$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);			
			$li_monto=$io_conexiones->formato_numerico_us($li_montotdoc)/$tascam;						
			$li_montotal=$li_montotal + $li_monto;			
			$li_montotdoc=number_format($li_monto,2,",",".");
			
			$ls_benefalt = str_replace("$and$","&",$ls_benefalt);
			$infobenef = ($ls_benefalt)?'<br><b>Benef. Alt: </b> '.$ls_benefalt:'';
			
			$lo_object[$li_fila][1]="<input name=txtextnumrecdoc".$li_fila." type=text id=txtextnumrecdoc".$li_fila."   class=sin-borde  style=text-align:center size=20 value='".$ls_numrecdoc."' readonly>";
			$lo_object[$li_fila][2]="<input name=txtextdentipdoc".$li_fila." type=text id=txtextdentipdoc".$li_fila."   class=sin-borde  style=text-align:center size=45 value='".$ls_dentipdoc."' readonly>".$infobenef;
			$lo_object[$li_fila][3]="<input name=txtextmontotdoc".$li_fila." type=text id=txtextmontotdoc".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$li_montotdoc."' readonly>";
			
		}
		//echo $ai_total;
		$ai_total=$ai_total/$tascam;
		
		if($ai_total==0)
		{
			$ai_total=$li_montotal;
		}

		$io_grid->makegrid($ai_totrowrecepciones,$lo_title,$lo_object,720,"Detalle Solicitud (MONEDA EXTRANJERA)","gridextrecepciones");
		print "  <table width='540' border='0' align='right' cellpadding='0' cellspacing='0'  class='formato-azul'>";
		print "    <tr>";
		print "<td  align='right' width='540'><b>Total&nbsp;&nbsp;</b></td>";
		print "<td  align='left'><input name='txtextmonsol' type='text' id='txtextmonsol' size='12' style='text-align:right' value='".number_format($ai_total,2,",",".")."' readonly></td>";
		print "    </tr>";
		print "  </table>";
	}// end function uf_print_cuentas_presupuesto
	//-----------------------------------------------------------------------------------------------------------------------------------

	
	
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_load_recepciones($as_numsol,$ai_total)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_creditos
		//		   Access: private
		//	    Arguments: as_numsol  // Número de Solicitud
		//                 ai_total   // Total de la Solicitud
		//	  Description: Método que busca las recepciones de documento asociadas y las imprime
		//	   Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
		// Fecha Creación: 29/04/2007								Fecha Última Modificación : 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_cxp;

		// Titulos del Grid
		$lo_title[1]="Nro. Recepción";
		$lo_title[2]="Tipo";
		$lo_title[3]="Monto";
		$lo_title[4]=" "; 
		$lo_object[0]="";
		require_once("sigesp_cxp_c_solicitudpago.php");
		$io_solicitud=new sigesp_cxp_c_solicitudpago("../../");
		$rs_data = $io_solicitud->uf_load_recepciones($as_numsol);
		$li_fila=0;
		$ai_total=str_replace(".","",$ai_total);
		$ai_total=str_replace(",",".",$ai_total);							
		$li_montotal=0;
		while($row=$io_solicitud->io_sql->fetch_row($rs_data))	  
		{
			$li_fila=$li_fila+1;
			$ls_numrecdoc=trim($row["numrecdoc"]);
			$ls_codtipdoc=trim($row["codtipdoc"]);
			$ls_dentipdoc=rtrim($row["dentipdoc"]);
			$li_montotdoc=$row["monto"];
			$ls_auxpro=rtrim($row["cod_pro"]);
			$ls_auxben=rtrim($row["ced_bene"]);
			$ls_codproalt=rtrim($row["codproalt"]);
			$li_montotal=$li_montotal + $li_montotdoc;
			$ls_benefalt=trim($row["benefaltrd"]);
			$estliqant=trim($row["estliqant"]);
			$infobenef = ($ls_benefalt)?'<br><b>Benef. Alt: </b> '.$ls_benefalt:'';
			
			$lo_object[$li_fila][1]="<input name=txtnumrecdoc".$li_fila." type=text id=txtnumrecdoc".$li_fila."   class=sin-borde  style=text-align:center size=20 value='".$ls_numrecdoc."' readonly>";
			$lo_object[$li_fila][2]="<input name=txtdentipdoc".$li_fila." type=text id=txtdentipdoc".$li_fila."   class=sin-borde  style=text-align:center size=45 value='".$ls_dentipdoc."' readonly>".$infobenef;
			$lo_object[$li_fila][3]="<input name=txtmontotdoc".$li_fila." type=text id=txtmontotdoc".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".number_format($li_montotdoc,2,',','.')."' readonly>";
			$lo_object[$li_fila][4]="<a href=javascript:ue_delete_recepcion('".$li_fila."');><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
									"<input name=txtcodtipdoc".$li_fila." type=hidden id=txtcodtipdoc".$li_fila." value='".$ls_codtipdoc."'>".
									"<input name=txtauxpro".$li_fila." type=hidden id=txtauxpro".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_auxpro."' readonly>".
									"<input name=txtcodproalt".$li_fila." type=hidden id=txtcodproalt".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_codproalt."' readonly>".
									"<input name=txtbenefaltrd".$li_fila." type=hidden id=txtbenefaltrd".$li_fila." value='".$ls_benefalt."' readonly>".
									"<input name=txtestliqant".$li_fila." type=hidden id=txtestliqant".$li_fila." value='".$estliqant."' readonly>".
									"<input name=txtauxben".$li_fila." type=hidden id=txtauxben".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".$ls_auxben."' readonly>";
		}
		$li_fila=$li_fila+1;
		$lo_object[$li_fila][1]="<input name=txtnumrecdoc".$li_fila." type=text id=txtnumrecdoc".$li_fila."   class=sin-borde  style=text-align:center size=20 readonly>";
		$lo_object[$li_fila][2]="<input name=txtdentipdoc".$li_fila." type=text id=txtdentipdoc".$li_fila."   class=sin-borde  style=text-align:center size=45 readonly>";
		$lo_object[$li_fila][3]="<input name=txtmontotdoc".$li_fila." type=text id=txtmontotdoc".$li_fila."   class=sin-borde  style=text-align:right size=25  readonly>";
		$lo_object[$li_fila][4]="<a><img src=../shared/imagebank/tools15/eliminar.gif title=Eliminar width=15 height=10 border=0></a>".
											 "<input name=txtcodtipdoc".$li_fila." type=hidden id=txtcodtipdoc".$li_fila.">".
											 "<input name=txtauxpro".$li_fila." type=hidden id=txtauxpro".$li_fila."   class=sin-borde  style=text-align:right size=25  readonly>".
											 "<input name=txtcodproalt".$li_fila." type=hidden id=txtcodproalt".$li_fila."   class=sin-borde  style=text-align:right size=25 readonly>".
											 "<input name=txtbenefaltrd".$li_fila." type=hidden id=txtbenefaltrd".$li_fila."  readonly>".
											 "<input name=txtestliqant".$li_fila." type=hidden id=txtestliqant".$li_fila."  readonly>".
											 "<input name=txtauxben".$li_fila." type=hidden id=txtauxben".$li_fila."   class=sin-borde  style=text-align:right size=25  readonly>";
		if($ai_total==0)
		{
			$ai_total=$li_montotal;
		}
		unset($io_solicitud);		
		print "<p>&nbsp;</p>";
		print "  <table width='720' border='0' align='right' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
		print "    <tr>";
		print " 	  <td height='22' align='left'><a href='javascript:ue_catalogorecepciones();'><img src='../shared/imagebank/tools/nuevo.gif' title='Agregar Detalle Recepciones' width='20' height='20' border='0'>Agregar Detalle Recepciones</a></td>";
		print "    </tr>";
		print "  </table>";
		print "<p>&nbsp;</p>";
		$io_grid->makegrid($li_fila,$lo_title,$lo_object,720,"Detalle Solicitud","gridrecepciones");
		print "  <table width='720' border='0' align='right' cellpadding='0' cellspacing='0' class='celdas-blancas'>";
		print "    <tr>";
		print "<td  align='right' width='540'><b>Total&nbsp;&nbsp;</b></td>";
		print "<td  align='left'><input name='txtmonsol' type='text' id='txtmonsol' size='25' style='text-align:right' value='".number_format($ai_total,2,",",".")."' readonly></td>";
		print "    </tr>";
		print "  </table>";
	}// end function uf_print_creditos
	//-----------------------------------------------------------------------------------------------------------------------------------
	
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_load_recepciones_monext($as_numsol,$ai_total)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_load_recepciones_monext
		//		   Access: private
		//	    Arguments: as_numsol  // Número de Solicitud
		//                 ai_total   // Total de la Solicitud
		//	  Description: Método que busca las recepciones de documento asociadas y las imprime en moneda extranjera
		//	   Creado Por: Lic. Edgar A. Quintero
		// Fecha Creación: 01/12/2012								Fecha Última Modificación : 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_grid, $io_funciones_cxp,$io_conexiones;

		// Titulos del Grid
		$lo_title[1]="Nro. Recepción";
		$lo_title[2]="Tipo";
		$lo_title[3]="Monto";		
		$lo_object[0]="";
		require_once("sigesp_cxp_c_solicitudpago.php");
		$io_solicitud=new sigesp_cxp_c_solicitudpago("../../");
		$rs_data = $io_solicitud->uf_load_recepciones($as_numsol);
		$li_fila=0;
		$ai_total=str_replace(".","",$ai_total);
		$ai_total=str_replace(",",".",$ai_total);							
		$li_montotal=0;
		while($row=$io_solicitud->io_sql->fetch_row($rs_data))	  
		{
			$li_fila=$li_fila+1;
			$ls_numrecdoc=trim($row["numrecdoc"]);
			$ls_codtipdoc=trim($row["codtipdoc"]);
			$ls_dentipdoc=rtrim($row["dentipdoc"]);
			$li_montotdoc=$row["monto"];
			$ls_auxpro=rtrim($row["cod_pro"]);
			$ls_auxben=rtrim($row["ced_bene"]);
			$ls_codproalt=rtrim($row["codproalt"]);
			
			$tascam = $io_conexiones->formato_numerico_us($_POST['tascam']);			
			$li_montotdoc=($li_montotdoc)/$tascam;			
			$li_montotal=$li_montotal + $li_montotdoc;
			$ls_benefalt=trim($row["benefaltrd"]);
			$infobenef = ($ls_benefalt)?'<br><b>Benef. Alt: </b> '.$ls_benefalt:'';

			
			$lo_object[$li_fila][1]="<input name=txtartnumrecdoc".$li_fila." type=text id=txtartnumrecdoc".$li_fila."   class=sin-borde  style=text-align:center size=20 value='".$ls_numrecdoc."' readonly>";
			$lo_object[$li_fila][2]="<input name=txtartdentipdoc".$li_fila." type=text id=txtartdentipdoc".$li_fila."   class=sin-borde  style=text-align:center size=45 value='".$ls_dentipdoc."' readonly>".$infobenef;
			$lo_object[$li_fila][3]="<input name=txtartmontotdoc".$li_fila." type=text id=txtartmontotdoc".$li_fila."   class=sin-borde  style=text-align:right size=25 value='".number_format($li_montotdoc,2,',','.')."' readonly>";
		}
		$li_fila=$li_fila+1;
		$ai_total=$ai_total/$tascam;
		if($ai_total==0)
		{
			$ai_total=$li_montotal;
		}
		unset($io_solicitud);		

		$io_grid->makegrid($li_fila,$lo_title,$lo_object,720,"Detalle Solicitud (MONEDA EXTRANJERA)","gridextrecepciones");
		print "  <table width='540' border='0' align='right' cellpadding='0' cellspacing='0'  class='formato-azul'>";
		print "    <tr>";
		print "<td  align='right' width='540'><b>Total&nbsp;&nbsp;</b></td>";
		print "<td  align='left'><input name='txtextmonsol' type='text' id='txtextmonsol' size='12' style='text-align:right' value='".number_format($ai_total,2,",",".")."' readonly></td>";
		print "    </tr>";
		print "  </table>";
	}// end function uf_print_creditos
	//-----------------------------------------------------------------------------------------------------------------------------------

	
	//-----------------------------------------------------------------------------------------------------------------------------------
	function uf_load_formatos($as_tipoformato)
	{	
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//	     Function: uf_print_creditos
		//		   Access: private
		//	    Arguments: as_tipoformato  // Tipo de Formato a Obtener el fisico
		//	  Description: Método que busca el fisico del reporte 
		//	   Creado Por: Ing. Luis Anibal Lang
		// Fecha Creación: 05/01/2009								Fecha Última Modificación : 
		/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		global $io_funciones_cxp;

		require_once("sigesp_cxp_c_solicitudpago.php");
		$io_recepcion=new sigesp_cxp_c_solicitudpago("../../");
		$ls_reporte=$io_recepcion->uf_load_archivoformato("CXP","REPORTE","FORMATO_SOLPAG_".$as_tipoformato,"sigesp_cxp_rfs_solicitudes.php","C");
		print "REPORTE->".$ls_reporte;
	}// end function uf_print_creditos
	//-----------------------------------------------------------------------------------------------------------------------------------

?>
