decodificar_post();
// tipo de SEP si es de BIENES ó de SERVICIOS
$ls_rutaarchivo=$io_funciones_sep->uf_obtenervalor("rutaarchivo","");
// proceso a ejecutar
$ls_proceso=$io_funciones_sep->uf_obtenervalor("proceso","");
switch($ls_proceso)
{
case "BUSCAR":
uf_print_creditos($ls_rutaarchivo);
break;
}
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_print_creditos($as_rutaarchivo)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_creditos
// Access: private
// Arguments: as_rutaarchivo // Ruta donde se van a leer los archivos xml
// Description: Método que busca los archivos xml y los lee
// Creado Por: Ing. Yesenia Moreno de Lang
// Fecha Creación: 23/07/2008 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid, $io_funciones_sep, $io_xml;
// Titulos del Grid de Bienes
$lo_title[1]="";
$lo_title[2]="Beneficiario";
$lo_title[3]="Fecha Crédito";
$lo_title[4]="Concepto";
$lo_title[5]="Monto";
$ld_fecregsol=date("d/m/Y");
$la_archivos=$io_xml->uf_load_archivos($as_rutaarchivo);
$li_totalarchivos=count($la_archivos["filnam"]);
if($la_archivos=="")
{
$li_totalarchivos=0;
}
$li_fila=0;
for($li_i=1;$li_i<=$li_totalarchivos;$li_i++)
{
$ls_archivo=$la_archivos["filnam"][$li_i];
$la_data=$io_xml->uf_cargar_sep_solicitud($as_rutaarchivo."/".$ls_archivo);
$li_total=count($la_data);
if(!is_array($la_data))
{
$li_total=0;
}
for($i=1;$i<=$li_total;$i++)
{
$li_fila=$li_fila+1;
$ls_ced_bene=rtrim($la_data[$i]["ced_bene"]);
$ls_consol=rtrim($la_data[$i]["consol"]);
$li_monto=rtrim($la_data[$i]["monto"]);
$ls_codtipsol=rtrim($la_data[$i]["codtipsol"]);
$ls_coduniadm=rtrim($la_data[$i]["coduniadm"]);
$ls_estcla=rtrim($la_data[$i]["estcla"]);
$ls_codestpro1=rtrim($la_data[$i]["codestpro1"]);
$ls_codestpro2=rtrim($la_data[$i]["codestpro2"]);
$ls_codestpro3=rtrim($la_data[$i]["codestpro3"]);
$ls_codestpro4=rtrim($la_data[$i]["codestpro4"]);
$ls_codestpro5=rtrim($la_data[$i]["codestpro5"]);
$ls_tipo_destino=rtrim($la_data[$i]["tipo_destino"]);
$li_monto = number_format($li_monto,2,',','.');
$lo_object[$li_fila][1] = "";
$lo_object[$li_fila][2] = "";
$lo_object[$li_fila][3] = "";
$lo_object[$li_fila][4] = "";
$lo_object[$li_fila][5] = "".
"".
"".
"".
"".
"".
"".
"".
"".
"".
"";
}
}
if($li_fila>0)
{
$io_grid->makegrid($li_fila,$lo_title,$lo_object,700,"Créditos por aprobar","gridbienes");
}
}// end function uf_print_creditos
//-----------------------------------------------------------------------------------------------------------------------------------
?>