function setVerificarDocumentosCompletos($fecha_de_verificacion = false)
 {
     $xB = new cBases();
     $xSoc = $this->getOPersona();
     $mems = $xSoc->getEsPersonaFisica() == true ? $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_FISICAS) : $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_MORALES);
     $sql = "SELECT `clave_de_control`, `tipo_de_documento`,`clave_de_persona` FROM `personas_documentacion` WHERE \n\t\t\t\t\t(`clave_de_persona` =" . $this->mClaveDePersona . ") AND (`estado_en_sistema` =" . AML_KYC_DOCTO_ACTIVO . ") ";
     $mql = new cPersonas_documentacion();
     $tdoctos = new cPersonas_documentacion_tipos();
     $TipoDeAlerta = 801005;
     $PersonaDeDestino = AML_OFICIAL_DE_CUMPLIMIENTO;
     $q = $mql->query()->select();
     $q->set($sql);
     $data = $q->exec();
     $doctos = array();
     $msg = "";
     foreach ($data as $campos) {
         $v = $campos[$mql->tipo_de_documento()->get()];
         $doctos[$v] = $v;
         //$this->mMessages	.= "Agregar " . $doctos[$mql->tipo_de_documento()->get()]	 . "\r\n";
     }
     if (MODO_DEBUG == true) {
         //$this->mMessages	.= $q->log();
     }
     foreach ($mems as $clave => $valor) {
         $tdoctos->setData($tdoctos->query()->initByID($valor));
         //var_dump($doctos[$valor]);
         if (!isset($doctos[$valor])) {
             $msg .= "ERROR\t" . $this->mClaveDePersona . "\tDocumento ({$valor}) " . $tdoctos->nombre_del_documento()->v() . " NO encontrado\r\n";
         } else {
             $msg .= "OK\t" . $this->mClaveDePersona . "\tDocumento " . $tdoctos->nombre_del_documento()->v() . " encontrado\r\n";
         }
     }
     //TODO: Verificar domicilios
     $dv = $xSoc->getODomicilio();
     if ($dv == null) {
         $msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos de la Vivienda\r\n";
     } else {
         if ($dv->isInit() == false) {
             $msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos de la Vivienda\r\n";
         }
     }
     //TODO. Verificar Actividad Economica
     $da = $xSoc->getOActividadEconomica();
     if ($da == null) {
         $msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos del la Actividad Economica\r\n";
     } else {
         if ($da->isInit() == false) {
             $msg .= "ERROR\t" . $this->mClaveDePersona . "\tNo existen datos del Actividad Economica\r\n";
         }
     }
     $this->mMessages .= $msg;
     if ($this->mForceAvisos == true) {
         //generar aviso
         $xAml = new cAML();
         $xAml->setForceAlerts(true);
         $xAml->sendAlerts(getUsuarioActual(), $PersonaDeDestino, $TipoDeAlerta, $msg);
     }
 }
$jxc->exportFunction('jsaMarcarReal', array('iddocumento', 'idobservaciones', 'idpersona'), '#idmsg');
$jxc->exportFunction('jsaMarcarSinInfo', array('iddocumento', 'idobservaciones', 'idpersona'), '#idmsg');
$jxc->process();
$xHP->setTitle($xHP->lang("validacion de", "documentos"));
echo $xHP->getHeader();
$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