function setGuardarDocumento($tipo, $archivo, $pagina = SYS_CERO, $observaciones = '', $fecha = false, $archivoenviado = null)
 {
     $socio = $this->getCodigo();
     $ready = true;
     //si existe el archivo enviado.
     if (is_array($archivoenviado)) {
         $xDoc = new cDocumentos();
         $ready = $xDoc->FTPUpload($archivoenviado);
         $archivo = $xDoc->getNombreArchivo();
         if (MODO_DEBUG == true) {
             if ($ready == false) {
                 $this->mMessages .= $xDoc->getMessages();
             }
         }
     }
     if (isset($archivo) and $ready == true) {
         $xDoc = new cDocumentos($archivo);
         $ready = $xDoc->FTPMove($archivo, $socio);
         if ($ready == true) {
             $ready = $xDoc->add($tipo, $pagina, $observaciones);
         }
         if (MODO_DEBUG == true) {
             $xDoc->getMessages();
         }
     } else {
         $this->mMessages .= "ERROR\tNO EXISTE EL ARCHIVO {$archivo}\r\n";
         $ready = false;
     }
     return $ready;
 }
//=====================================================================================================
//=====>	INICIO_H
include_once "../core/go.login.inc.php";
include_once "../core/core.error.inc.php";
include_once "../core/core.html.inc.php";
include_once "../core/core.init.inc.php";
$theFile = __FILE__;
$permiso = getSIPAKALPermissions($theFile);
if ($permiso === false) {
    header("location:../404.php?i=999");
}
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
$iduser = $_SESSION["log_id"];
//=====================================================================================================
$xHP = new cHPage("TR.Visor de Documentos", HP_FORM);
$xQL = new MQL();
$xLi = new cSQLListas();
$xF = new cFecha();
$xHP->init();
$persona = parametro("persona", DEFAULT_SOCIO, MQL_INT);
$persona = parametro("socio", $persona, MQL_INT);
$persona = parametro("idsocio", $persona, MQL_INT);
$docto = parametro("docto", "", MQL_RAW);
$xFRM = new cHForm("frmdocto");
//$docto				= $rows["archivo_de_documento"];
$xDoc = new cDocumentos($docto);
$xFRM->addHElem("<div class='tx4'>" . $xDoc->getEmbed($docto, $persona) . "</div>");
$xFRM->addCerrar();
echo $xFRM->get();
$xHP->fin();
$form = parametro("form");
$action = parametro("action", SYS_NINGUNO);
$xHP->init();
//$xForm	= new cFormato($forma);
//echo $xForm->get();
// establecer una conexión básica
$xFTP = new cDocumentos();
$contents = $xFTP->FTPListFiles();
//$xFTP->FTPMakeDir("PRUEBAS");
$xFRM = new cHForm("frm", "./");
$xBTN = new cHButton();
$xDiv = new cHDiv("tx12");
$msg = "";
$fils = 0;
foreach ($contents as $archivos) {
    $xFil = new cDocumentos($archivos);
    $icon = "desconocido";
    if ($xFil->isDocto() == true) {
        $icon = "documento";
    }
    if ($xFil->isImagen() == true) {
        $icon = "imagen";
    }
    //$xFRM->OButton($archivos, "");
    if ($icon != "desconocido") {
        $xFRM->addDivSolo($xFil->getEmbed($archivos), $xBTN->getBasic("", "setFile('{$archivos}')", $icon, "id{$fils}"), "tx34", "tx14");
        //$xFRM->addHElem(  );
    }
    $fils++;
}
$xFRM->addCerrar();