$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, El Mes Anterior==" . $xF->getFechaMesAnterior() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, dos meses atras==" . $xF->getFechaMesAnterior(false, 2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 30 Dias==" . $xF->setRestarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 30 Dias==" . $xF->setSumarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  + 2 meses==" . $xF->setSumarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}  - 2 meses==" . $xF->setRestarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Nombre del Dia==" . $xF->getDayName() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dia Inicial del mes==" . $xF->getDiaInicial() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener Dia Habil==" . $xF->getDiaHabil() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias desde el 31Dic2013==" . $xF->setRestarFechas($xF->get(), "2013-12-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar Sabado(D6) para el dia de hoy==" . $xF->getDiaAbonoSemanal(6) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar NOMBRE Sabado(D6) para el dia de hoy==" . $xF->getDayName($xF->getDiaAbonoSemanal(6)) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-02") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-11") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-18") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-20") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-24") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-29") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener dias Loborales en el mes==" . $xF->getDiasHabilesEnRango("2014-03-31", "2014-03-01") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener entero del mes==" . $xF->getInt(fechasys()) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, DIAS CORRIENTES DE MES" . $xF->getDiasCorrientesDeMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, sumar  7 dias time stamp 84600==" . $xF->getFechaByInt($xF->getInt(fechasys()) + (7 + 1) * 84600) . "</p>");
$xHFrm->addHElem("<p class='aviso'>" . $xF->getMessages(OUT_HTML) . "</p>");
//$xHFrm->addHTML("<p>Esto es un parrafo de prueba</p>");
echo $xHFrm->get();
echo $xP->setBodyEnd();
echo $xP->end();
//=====================================================================================================
?>
 
 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);
     }
 }
$xTBL = new cTabla($sql);
$rpt = "";
$rs = $query->getDataRecord($sql);
$xEquivOps = new cSistemaEquivalencias(TOPERACIONES_RECIBOSTIPOS);
$xEquivOps->init($xEquivOps->PLD_OPERACIONES);
$xEquivInst = new cSistemaEquivalencias(TTESORERIA_TIPOS_DE_PAGO);
$xEquivInst->init($xEquivInst->PLD_OPERACIONES);
//$xEquivIns
$operaciones = 0;
$totalerrores = 0;
foreach ($rs as $data) {
    $xRisk = new cAml_risk_register();
    $xRisk->setData($data);
    $persona = $xRisk->persona_relacionada()->v();
    // $data["persona"];
    $fechaDetec = $xF->getFechaByInt($xRisk->fecha_de_reporte()->v());
    //$data["fecha"]);
    //$tipo_de_riesgo	=  $data["tipo_de_riesgo"];
    //obtener listado de operaciones en el mes
    $xAML = new cAMLPersonas($persona);
    $xSoc = new cSocio($persona, true);
    $ODom = $xSoc->getODomicilio();
    $OAEc = $xSoc->getOActividadEconomica();
    $tp = $xSoc->getEsPersonaFisica() == true ? 1 : 2;
    $nac = $xSoc->getPaisDeOrigen() == EACP_CLAVE_DE_PAIS ? 1 : 2;
    $detalles = $xRisk->notas_de_checking()->v(OUT_TXT);
    $razones = $xRisk->razones_de_reporte()->v(OUT_TXT);
    $tipo_de_obj = $xRisk->tipo_de_documento()->v();
    $tercero = $xRisk->tercero_relacionado()->v();
    //obtiene las razones de cada operacion presente.
    $recibo = $xRisk->documento_relacionado()->v();
 $xHTabs->addTab(PERSONAS_TITULO_PARTES, "");
 //3
 $xHTabs->addTab("TR.ACTIVIDAD_ECONOMICA", "");
 //tab4
 // Tabla de Relacion Patrimonial
 $xHTabs->addTab("TR.PATRIMONIO", "");
 //tab5?
 //=======================================================================
 $cnt = "";
 $xB = new cBases();
 $mems = $xSoc->getEsPersonaFisica() == true ? $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_FISICAS) : $xB->getMembers_InArray(false, BASE_DOCTOS_PERSONAS_MORALES);
 $rsDocs = $ql->getDataRecord($xql->getListadoDePersonasDoctos($idsocio));
 $xTbl = new cHTabla();
 foreach ($rsDocs as $rows) {
     $iddocto = $rows["archivo_de_documento"];
     $fecha = $xF->getFechaByInt($rows["fecha_de_carga"]);
     $xTbl->initRow();
     $xTbl->addTD($rows["tipo"]);
     $xTbl->addTD($xF->getFechaCorta($fecha));
     $xTbl->addTD($xBtn->getBasic($rows["archivo_de_documento"], "var xPers = new PersGen();xPers.getDocumento({persona:{$idsocio}, docto: '" . $rows["archivo_de_documento"] . "'});", $oFrm->ic()->TIPO));
     $xTbl->addTD($rows["observaciones"]);
     $xTbl->endRow();
 }
 $xHTabs->addTab("TR.DOCUMENTOS", $xTbl->get());
 //tabs
 if (getEsModuloMostrado(USUARIO_TIPO_OFICIAL_AML) == true) {
     $xDiv3 = new cHDiv("tx1", "msgcumplimiento");
     $oFrm->addToolbar($xBtn->getBasic("TR.validar documentos", "jsaValidarDocumentacion()", "documentos", "idvalidadoc", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.validar perfil_transaccional", "jsaValidarPerfilT()", "perfil", "validaperfil", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.validar riesgo", "jsaValidarRiesgo()", "riesgo", "validariesgo", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.Actualizar Nivel de Riesgo", "jsActualizarNivelDeRiesgo({$idsocio})", "riesgo", "actualizarriesgo", false));
$sql = "SELECT \n\t`aml_risk_register`.`persona_relacionada` \t\tAS 'persona',\n\t`aml_risk_register`.`fecha_de_reporte` \t\t\tAS 'fecha',\n\t`aml_risk_register`.`instrumento_financiero` \tAS 'instrumento',\n\t`aml_risk_register`.`documento_relacionado` \tAS `recibo` \nFROM\n\t`aml_risk_catalog` `aml_risk_catalog` \n\t\tINNER JOIN `aml_risk_register` `aml_risk_register` \n\t\tON `aml_risk_catalog`.`clave_de_control` = `aml_risk_register`.\n\t\t`tipo_de_riesgo` \nWHERE\n\t`aml_risk_catalog`.`tipo_de_riesgo` = " . AML_CLAVE_OPERACIONES_RELEVANTES . "\n\tAND (\n\tgetFechaByInt(`aml_risk_register`.`fecha_de_reporte`) >='{$FechaInicial}' \n\tAND \n\tgetFechaByInt(`aml_risk_register`.`fecha_de_reporte`) <='{$FechaFinal}'\n\t) \n\tAND (`aml_risk_register`.`estado_de_envio` =0)\n\n";
$xTBL = new cTabla($sql);
$rpt = "";
$rs = $query->getDataRecord($sql);
$xRisk = new cAml_risk_register();
$xEquivOps = new cSistemaEquivalencias(TOPERACIONES_RECIBOSTIPOS);
$xEquivOps->init($xEquivOps->PLD_OPERACIONES);
$xEquivInst = new cSistemaEquivalencias(TTESORERIA_TIPOS_DE_PAGO);
$xEquivInst->init($xEquivInst->PLD_OPERACIONES);
//$xEquivIns
$operaciones = 0;
$totalerrores = 0;
foreach ($rs as $data) {
    $persona = $data["persona"];
    $idrecibo = $data["recibo"];
    $fechaDetec = $xF->getFechaByInt($data["fecha"]);
    //obtener listado de operaciones en el mes
    $xAML = new cAMLPersonas($persona);
    $xSoc = new cSocio($persona, true);
    $xSoc->init();
    $ODom = $xSoc->getODomicilio();
    $OAEc = $xSoc->getOActividadEconomica();
    $tp = $xSoc->getEsPersonaFisica() == true ? 1 : 2;
    $nac = $xSoc->getPaisDeOrigen() == EACP_CLAVE_DE_PAIS ? 1 : 2;
    $sqlR = "SELECT `operaciones_recibos`.* FROM\t`operaciones_recibos` WHERE `idoperaciones_recibos`={$idrecibo} ";
    //setLog($sqlR);
    $rs1 = $query->getDataRecord($sqlR);
    $orels = 0;
    foreach ($rs1 as $datos) {
        $recibo = $datos["idoperaciones_recibos"];
        $cont = array();