';
}
}
else
{
//Asignamos las variables para el ordenamiento
$pagesize = 20; // Registros a traerse de la bd
if (array_key_exists('pagesize',$_GET))
{$pagesize = $_GET['pagesize'];}
$offset = 0; // Primer Registro a mostrar
if (array_key_exists('offset',$_GET))
{$offset = $_GET['offset'];}
$sort_col = 'fecha'; //Columna en la tabla HTML
if (array_key_exists('sort_col',$_GET))
{$sort_col = $_GET['sort_col'];}
// Asiganamos el campo para el ordenamiento
// Hay que estar pendiente de comparalo en minusculas y con los acentos si lleva
switch($sort_col)
{
case("Fecha"):
$sort_col="feccordeuant";
break;
case("código"):
$sort_col="codper";
break;
case("nombre"):
$sort_col="nomper";
break;
case("apellido"):
$sort_col="apeper";
break;
default : $sort_col="feccordeuant";
}
//Asignamos la direccion del ordenamiento
$sort_dir = 'ASC';
if (array_key_exists('sort_dir',$_GET))
{
$sort_dir = $_GET['sort_dir'];
}
//Hacemos la peticion de los registros
$lb_hay = $lo_dao->getDeudaAnterior("ORDER BY $sort_col $sort_dir LIMIT $offset,$pagesize",$la_datos);
if ($lb_hay)
{
$li_registros = (count($la_datos,COUNT_RECURSIVE)/count($la_datos))-1;
//Indicamos en la cabecera que devolveremos un documento xml
header("Content-Type: text/xml");
//Escribimos el xml con el formato requerido por rico
$ls_salida = '<'.'?xml version="1.0" encoding="UTF-8"?'.'>';
$ls_salida .= '';
for ($i=1; $i<=$li_registros; $i++)
{
$li_i = 1;
$la_arr = array();
$la_arr[$li_i++] = $ls_codper = $la_datos["codper"][$i];
$la_arr[$li_i++] = $ls_nomper = $la_datos["nomper"][$i];
$la_arr[$li_i++] = $ls_apeper = $la_datos["apeper"][$i];
$la_arr[$li_i++] = $ls_codnom = $la_datos["codnom"][$i];
$la_arr[$li_i++] = $ls_desnom = $la_datos["desnom"][$i];
$la_arr[$li_i++] = $ls_feccordeuant = $io_function->uf_convertirfecmostrar($la_datos["feccordeuant"][$i]);
$la_arr[$li_i++] = $ls_deuantant = str_replace(".", ",", $la_datos["deuantant"][$i]);
$la_arr[$li_i++] = $ls_deuantint = str_replace(".", ",", $la_datos["deuantint"][$i]);
$la_arr[$li_i++] = $ls_antpag = str_replace(".", ",", $la_datos["antpag"][$i]);
$la_newarr= "new Array(";
for ($li_i=1; $li_i<=count($la_arr); $li_i++)
{ $la_newarr = $la_newarr . "'" . $la_arr[$li_i] . "'";
if ($li_i != count($la_arr))
{$la_newarr = $la_newarr . ",";}
}
$la_newarr = $la_newarr . ")";
$ls_salida .='