$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();