function setVerificarDocumentosVencidos($fecha_de_verificacion = false)
 {
     $xCO = new cPersonas_documentacion();
     $xF = new cFecha();
     $where = $xCO->clave_de_persona()->get() . "=" . $this->mClaveDePersona;
     $where .= " AND " . $xCO->resultado_de_la_verificacion()->get() . "=" . AML_KYC_DOCTO_NO_VERIFICADO;
     $q = $xCO->query()->select();
     $data = $q->exec($where);
     $fecha_actual = $xF->getInt($fecha_de_verificacion);
     $markT = AML_KYC_DIAS_PARA_REVISAR_DOCTOS * SYS_FACTOR_DIAS;
     $TipoDeAlerta = 801006;
     $PersonaDeDestino = AML_OFICIAL_DE_CUMPLIMIENTO;
     $msg = "";
     //$this->mMessages	.= $q->log();
     foreach ($data as $datos) {
         $xCO->setData($datos);
         $persona = $xCO->clave_de_persona()->v();
         //checar los dias sin verificar
         $fecha_limite = $xCO->fecha_de_carga()->v() + $markT;
         $clave_docto = $xCO->clave_de_control()->v();
         if ($fecha_limite < $fecha_actual) {
             $msg .= "ERROR\t{$persona}\tDocumento {$clave_docto} VENCIDO " . $xF->getFechaByInt($fecha_limite) . "\r\n";
         } else {
             $msg .= "WARN\t{$persona}\tDocumento {$clave_docto} no verificado al " . $xF->getFechaByInt($fecha_actual) . " limite al  " . $xF->getFechaByInt($fecha_limite) . "\r\n";
         }
     }
     $this->mMessages .= $msg;
     if ($this->mForceAvisos == true) {
         //generar aviso
         $xAml = new cAML();
         $xAml->setForceAlerts(true);
         $xAml->sendAlerts(getUsuarioActual(), $PersonaDeDestino, $TipoDeAlerta, $msg);
     }
 }
$jsb = new jsBasicForm("");
//$jxc ->drawJavaScript(false, true);
echo $xHP->setBodyinit();
$xFRM = new cHForm("frmvalidardocumentos", "./");
$xBtn = new cHButton();
$xTxt = new cHText();
$xAt = new cHTextArea();
$xFRM->setTitle($xHP->getTitle());
$sql = "SELECT\r\n\t`personas_documentacion`.`clave_de_control`,\r\n\t`personas_documentacion`.`clave_de_persona`,\r\n\t`socios`.`nombre`,\r\n\t`personas_documentacion`.`fecha_de_carga`,\r\n\t`personas_documentacion_tipos`.`nombre_del_documento`,\r\n\t`personas_documentacion`.`observaciones`,\r\n\t`personas_documentacion`.`estado_en_sistema`,\r\n\t`personas_documentacion`.`tipo_de_documento`  \r\nFROM\r\n\t`personas_documentacion` `personas_documentacion` \r\n\t\tINNER JOIN `socios` `socios` \r\n\t\tON `personas_documentacion`.`clave_de_persona` = `socios`.`codigo` \r\n\t\t\tINNER JOIN `personas_documentacion_tipos` \r\n\t\t\t`personas_documentacion_tipos` \r\n\t\t\tON `personas_documentacion`.`tipo_de_documento` = \r\n\t\t\t`personas_documentacion_tipos`.`clave_de_control` \r\nWHERE\r\n\t(`personas_documentacion`.`estado_en_sistema` =1)";
$ql = new cPersonas_documentacion();
$tdocto = new cPersonas_documentacion_tipos();
$sel = $ql->query()->select();
$sel->set($sql);
$data = $sel->exec();
foreach ($data as $rows) {
    $ql->setData($rows);
    $socio = $ql->clave_de_persona()->v();
    $tipo = $ql->tipo_de_documento()->v();
    $tdocto->setData($tdocto->query()->initByID($tipo));
    $id = $ql->clave_de_control()->v();
    //var_dump($rows);
    $str = "<div class='tx1'>";
    $str .= "<div class='tx34'>";
    $str .= "<fieldset><legend>{$socio} - " . $tdocto->nombre_del_documento()->v() . "</legend>";
    //$xDoc		= new cDocumentos($ql->);
    //XXX: Modificar 1.- Asunto de documento
    //$str		.= "<img src='../frmsocios/documento.png.php?persona=$socio&tipo=" . $tipo . "' class='docto' onclick=\"jsToImage('$socio&tipo=" . $tipo . "')\">";
    $str .= "</fieldset></div>";
    $str .= "<div class='tx14'>";
    $str .= $xAt->get("idobservaciones-{$id}", "", $xFRM->lang("observaciones"));
    $str .= "<div class='tx1'><table>";