{
       if ($row=$io_sql->fetch_row($rs_data))
          {
	        $rs_datos["nombene"] = $row["nombene"];
	        $rs_datos["ctabene"] = trim($row["codcueban"]);
	        $rs_datos["apebene"] = $row["apebene"];
	        $rs_datos["nacper"]  = $row["nacben"];
	        $rs_datos["tipocta"] = $row["tipocta"];
	       }
     }
  return $rs_datos;
}
	
if ($ls_operacion=="CARGAR_DT")
   {
     $io_carord->uf_cargar_programaciones($ls_tipo,$ls_provbene,$ls_codban,$ls_cuenta_banco,&$object,&$li_rows,$li_tipvia,$ls_numordpagmin,$ls_codtipfon);
   }	
	
function uf_nuevo()
{
	global $ls_mov_operacion,$ls_numordpagmin,$ls_codtipfon,$ld_monmaxmov;
	global $la_seguridad;
	$ls_mov_operacion="ND";
	global $ls_opepre;
	$ls_opepre="";
	global $ls_documento;
	$ls_documento="";
	global $ls_codban;
	$ls_codban="";
	global $ls_denban;
	$ls_denban="";
  else
     {
	   if ($row=$io_sql->fetch_row($rs_data))
	      {
		    $rs_datos["nombene"] = $row["nombene"];
			$rs_datos["ctabene"] = $row["codcueban"];
			$rs_datos["apebene"] = $row["apebene"];
			$rs_datos["nacper"]  = $row["nacben"];
		  }
	 }
  return $rs_datos;
}	
	
	if($ls_operacion=="CARGAR_DT")
	{
		$in_class_carta->uf_cargar_programaciones($ls_tipo,$ls_provbene,$ls_codban,$ls_cuenta_banco,&$object,&$li_rows,$li_tipvia);
	}	
	
	
	function uf_nuevo()
	{
		global $ls_mov_operacion;
		global $la_seguridad;
		$ls_mov_operacion="ND";
	    global $ls_opepre;
		$ls_opepre="";
		global $ls_documento;
		$ls_documento="";
		global $ls_codban;
		$ls_codban="";
		global $ls_denban;