$ls_codserhas = $io_fun_soc->uf_obtenervalor_get("txtcodserhas","");
$ls_rdanucom = $io_fun_soc->uf_obtenervalor_get("rdanucom","");
$ls_rdemi = $io_fun_soc->uf_obtenervalor_get("rdemi","");
$ls_rdpre = $io_fun_soc->uf_obtenervalor_get("rdpre","");
$ls_rdcon = $io_fun_soc->uf_obtenervalor_get("rdcon","");
$ls_rdanu = $io_fun_soc->uf_obtenervalor_get("rdanu","");
$ls_rdinv = $io_fun_soc->uf_obtenervalor_get("rdinv","");
$ls_estcondat = $io_fun_soc->uf_obtenervalor_get("rdtipo","");
$ls_tipo = $io_fun_soc->uf_obtenervalor_get("esttip","");
//--------------------------------------------------------------------------------------------------------------------------------
$rs_data = $io_report->uf_select_listado_orden_compra($ls_numordcomdes,$ls_numordcomhas,$ls_codprodes,
$ls_codprohas,$ls_fecordcomdes,$ls_fecordcomhas,$ls_coduniadmdes,
$ls_coduniadmhas,$ls_rdanucom,$ls_rdemi,$ls_rdpre,$ls_rdcon,$ls_rdanu,
$ls_rdinv,$ls_codartdes,$ls_codarthas,$ls_codserdes,
$ls_codserhas,$ls_estcondat,$ls_tipo,&$lb_valido);
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
print(" close();");
print("</script>");
}
else // Imprimimos el reporte
{
$ls_descripcion="Generó el Reporte de Listado de Orden de Compra";
$lb_valido=$io_fun_soc->uf_load_seguridad_reporte("SOC","sigesp_soc_r_orden_compra.php",$ls_descripcion);
if($lb_valido)
{
