/**
  * Efectua operaciones de finalizacion del recibo
  * @param boolean $UpdateSaldo Marca si Actualiza el Saldo del Credito
  */
 function setFinalizarRecibo($UpdateSaldo = false, $tesoreria_cargada = false)
 {
     //generar Poliza a demanda
     $finalizado = true;
     //tranferencia.egresos cheque
     if (MODULO_CAJA_ACTIVADO == false) {
         $tesoreria_cargada = true;
         /* Forzar AML si Tesoreria esta Desactivado */
     }
     /**
      * Modificacion de la condicion de socio por afectar al recibo en SI?
      */
     if ($UpdateSaldo == true) {
         if ($this->mSumaDeRecibo == 0 or $this->mForceUpdateSaldos == true or !isset($this->mSumaDeRecibo) or $this->mSumaDeRecibo == false or $this->mSumaDeRecibo == '') {
             $sqlSUM = "SELECT\n\t\t\t\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real` *  `operaciones_mvtos`.`valor_afectacion`) \tAS 'monto',\n\t\t\t\t\t\t\t\tCOUNT(`operaciones_mvtos`.`idoperaciones_mvtos`)\t\t\t\t\t\t\t\t\t\tAS 'numero',\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado`,\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`recibo_afectado` =" . $this->mCodigoDeRecibo . ")\n\n\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`recibo_afectado` ";
             $TDRec = obten_filas($sqlSUM);
             $this->mSumaDeRecibo = $TDRec["monto"];
             $this->mNumeroDeMvtos = $TDRec["numero"];
             $this->mMessages .= "SUCESSACT\tMonto Actualizado a " . $this->mSumaDeRecibo . " y # Operaciones " . $this->mNumeroDeMvtos . "\r\n";
         }
         if (!isset($this->mSumaDeRecibo)) {
             $this->mSumaDeRecibo = 0;
         }
         $sql = "UPDATE operaciones_recibos SET total_operacion=" . $this->mSumaDeRecibo . "\n    \t\t\t\tWHERE\tidoperaciones_recibos= " . $this->mCodigoDeRecibo . "\t";
         $xRs = my_query($sql);
     }
     if ($this->mSetGenerarPoliza == true) {
         //PolizaPorRecibo($this->mCodigoDeRecibo, GENERAR_POLIZAS_AL_CIERRE);
     }
     $this->mTotalRecibo = $this->mSumaDeRecibo;
     //-- AML
     if (MODULO_AML_ACTIVADO == true and $this->isPagable() == true and $tesoreria_cargada == true) {
         $xAml = new cAMLPersonas($this->mSocio);
         $xAml->init();
         $xAml->setForceAlerts();
         $xAmlO = new cAMLOperaciones();
         $this->init();
         if ($xAml->getEsPersonaVigilada() == true) {
             $tipo_de_pago_aml = $this->mTipoDePago;
             if (setNoMenorQueCero($this->mTipoOrigenAML) > 0) {
                 $xRisK = new cPersonas_perfil_transaccional_tipos();
                 $xRisK->query()->initByID($this->mTipoOrigenAML);
                 $tipo_de_pago_aml = strtolower($xRisK->tipo_de_exhibicion()->v(OUT_TXT));
                 $this->mMessages .= "WARN\tCambiar el perfil de pago de " . $this->mTipoDePago . " a {$tipo_de_pago_aml} \r\n";
             }
             $res = $xAmlO->analizarOperacion($this->mSocio, 0, $this->mMoneda, $tipo_de_pago_aml, $this->getFechaDeRecibo(), $this->getCodigoDeRecibo(), $this->mTipoOrigenAML);
             if ($res == false) {
                 $this->mMessages .= "OK\tAML Normal \r\n";
                 if (MODO_DEBUG == true) {
                     $this->mMessages .= $xAmlO->getMessages(OUT_TXT);
                 }
             } else {
                 //REPORTAR
                 $xAv = new cAML();
                 if ($xAmlO->getTipoDeReporte() == AML_REPORTE_INMEDIATO) {
                     $xAv->setForceRegistroRiesgo();
                     $this->mMessages .= "WARN\tAML de Aviso Inmediato\r\n";
                 }
                 $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $xAmlO->getTipoDeAlerta(), $xAmlO->getMessageAlert(), $this->mCodigoDeRecibo, $this->mFechaDeOperacion);
             }
             $this->mMessages .= $xAmlO->getMessages(OUT_TXT);
             //validar perfil transaccional
             $xAml->setVerificarPerfilTransaccional();
         }
         //Validar si es person riesgosa
         $xSoc = $xAml->getOPersona();
         if ($xSoc->getEsPersonaSDN() == true) {
             //REPORTAR operaciones con alto riesgo
             $idriesgo = AML_ID_OPERACIONES_PERSONAS_ALTO_RIESGO;
             //operaciones con criminales
             $xRiesgo = new cAml_risk_catalog();
             $xRiesgo->setData($xRiesgo->query()->initByID($idriesgo));
             $xAv = new cAML();
             $xAv->setForceRegistroRiesgo();
             $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $idriesgo, "ERROR\tOperaciones con persona ALTAMENTE RIESGOSA Recibo " . $this->mCodigoDeRecibo, $this->mCodigoDeRecibo, $this->getFechaDeRecibo());
             $this->mMessages .= $xAv->getMessages(OUT_TXT);
         }
         if ($xSoc->getEsPersonaPoliticamenteExpuesta() == true) {
             //REPORTAR operaciones con PEPs
             $idriesgo = AML_ID_OPERACIONES_PERSONAS_PEP;
             //operaciones con criminales
             $xRiesgo = new cAml_risk_catalog();
             $xRiesgo->setData($xRiesgo->query()->initByID($idriesgo));
             $xAv = new cAML();
             $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $idriesgo, "ERROR\tOperaciones con PEPS Recibo " . $this->mCodigoDeRecibo, $this->mCodigoDeRecibo, $this->getFechaDeRecibo());
             $this->mMessages .= $xAv->getMessages(OUT_TXT);
         }
         if ($xSoc->getEsPersonaRiesgosa() == true) {
             //REPORTAR operaciones con PEPs
             $idriesgo = 101005;
             //operaciones con criminales
             $xRiesgo = new cAml_risk_catalog();
             $xRiesgo->setData($xRiesgo->query()->initByID($idriesgo));
             $xAv = new cAML();
             $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $idriesgo, "ERROR\tOperaciones con Personas de Alto Riesgo.- Recibo " . $this->mCodigoDeRecibo, $this->mCodigoDeRecibo, $this->getFechaDeRecibo());
             $this->mMessages .= $xAv->getMessages(OUT_TXT);
         }
         //Operaciones de una exhibicion 500 y USD
         if ($this->mMoneda != AML_CLAVE_MONEDA_LOCAL) {
             $idriesgo = AML_CLAVE_RIESGO_OPS_INDIVIDUALES;
             $xRiesgo = new cAml_risk_catalog();
             $xMon = new cMonedas($this->mMoneda);
             $xRiesgo->setData($xRiesgo->query()->initByID($idriesgo));
             $unidades = $xMon->getEnDolares($this->getUnidadesOriginales());
             if ($unidades >= $xRiesgo->unidades_ponderadas()->v()) {
                 $xAv = new cAML();
                 $xAv->setForceRegistroRiesgo();
                 $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $idriesgo, "Operaciones({$unidades}) excedidas de 500 USD en el recibo " . $this->mCodigoDeRecibo . " Moneda " . $this->mMoneda, $this->mCodigoDeRecibo, $this->getFechaDeRecibo());
                 $this->mMessages .= $xAv->getMessages(OUT_TXT);
             } else {
                 $this->mMessages .= "OK\tNo hay modificacion para la Moneda " . $this->mMoneda . " por {$unidades} \r\n";
             }
         }
         // Agregar Relevantes por 10000USD
         if ($this->isEfectivo() == true) {
             $idriesgo = AML_CLAVE_RIESGO_OPS_RELEVANTES;
             $xRiesgo = new cAml_risk_catalog();
             $xMon = new cMonedas($this->mMoneda);
             $mmonto = $this->mMoneda == AML_CLAVE_MONEDA_LOCAL ? $this->getTotal() : $this->getUnidadesOriginales();
             $xRiesgo->setData($xRiesgo->query()->initByID($idriesgo));
             $unidades = $xMon->getEnDolares($mmonto);
             if ($unidades >= $xRiesgo->unidades_ponderadas()->v()) {
                 $xAv = new cAML();
                 $xAv->setForceRegistroRiesgo();
                 $xAv->sendAlerts($this->mSocio, AML_OFICIAL_DE_CUMPLIMIENTO, $idriesgo, "Operaciones Relevantes por {$unidades} USD en el recibo " . $this->mCodigoDeRecibo . " Moneda " . $this->mMoneda, $this->mCodigoDeRecibo, $this->getFechaDeRecibo());
                 $this->mMessages .= $xAv->getMessages(OUT_TXT);
             } else {
                 $this->mMessages .= "OK\tNo hay modificacion para la Moneda " . $this->mMoneda . " por {$unidades} \r\n";
             }
         }
         if ($xAml->getEsPersonaVigilada() == true) {
             //Operaciones Internas Preocupantes por Usuario
             $xAml->setAnalizarTransaccionalidadPorNucleo($this->mCodigoDeRecibo, $this->mFechaDeOperacion, $this->mUsuario, true);
         }
         $this->mMessages .= $xAml->getMessages(OUT_TXT);
     }
     return $finalizado;
 }
function jsaValidarPerfilTransaccional($persona)
{
    $xAml = new cAMLPersonas($persona);
    $xAml->init();
    $validar = false;
    //(MODO_DEBUG == true) ? true : false;
    $xAml->setVerificarPerfilTransaccional(false, $validar);
    $xAml->setVerificarOperacionesSemestrales();
    return $xAml->getMessages(OUT_HTML);
}
$xT->setTipoSalida($out);
$xT->setFootSum(array(4 => "monto", 9 => "unidades", 10 => "equivalencia"));
$body = $xRPT->getEncabezado($xHP->getTitle(), $FechaInicial, $FechaFinal);
$xRPT->setBodyMail($body);
$xRPT->addContent($body);
$xRPT->addContent($xSoc->getFicha(true));
//$xT->setEventKey("jsGoPanel");
//$xT->setKeyField("creditos_solicitud");
$xRPT->addContent($xT->Show($xHP->getTitle()));
$xT = new cTabla($xL->getListadoDePerfil($persona));
$xRPT->addContent($xT->Show());
if (MODO_DEBUG == true) {
    $periodo_inicial = date("Ym", $xF->getInt($FechaInicial));
    $periodo_final = date("Ym", $xF->getInt($FechaFinal));
    $xT2 = new cTabla($xL->getAMLAcumuladoDeEgresos($periodo_inicial, $periodo_final, $persona));
    $xRPT->addContent($xT2->Show());
}
$xRPT->addContent("<h3>" . $xHP->lang("Mensaje") . "</h3>");
//============ Agregar HTML
//$xRPT->addContent( $xHP->init($jsEvent) );
//$xRPT->addContent( $xHP->end() );
$xAml = new cAMLPersonas($persona);
$xAml->init();
$validar = false;
//(MODO_DEBUG == true) ? true : false;
$xAml->setVerificarPerfilTransaccional(false, $validar);
$xAml->setVerificarOperacionesSemestrales();
$xRPT->addContent($xAml->getMessages(OUT_HTML));
$xRPT->setResponse();
$xRPT->setSenders($senders);
echo $xRPT->render(true);
        $xAML->setGuardarPerfilTransaccional(101, "MX", 10000, 10, "");
        $xAML->setGuardarPerfilTransaccional(201, "MX", 20000, 2, "");
        $xAML->setGuardarPerfilTransaccional(301, "MX", 30000, 3, "");
        $xAML->setGuardarPerfilTransaccional(401, "MX", 40000, 4, "");
    }
    $xHFrm->addHElem("<p class='aviso'>" . $xCred->getMessages(OUT_HTML) . "</p>");
}
//$xHFrm->addHElem( $txt );
//$xHFrm->addHElem( $xF->show(true) );
//$xHFrm->addHElem( "<p class='aviso'>La $miFecha, Dias del Mes==". $xF->getDiasDelMes() ."</p>");
//$xAML->getSimilaresPorNombre("jose leonides", "cocom");
//$xAML->getSimilaresPorNombre("alberto", "chi");
$miFecha = "2014-03-01";
//$xAML->getSimilaresPorNombre();
//$acum	= $xAML->getOAcumuladoDeOperaciones("2013-12-30", $miFecha, SYS_TODAS);
$xAML->setVerificarPerfilTransaccional($miFecha);
//$acum6	= $xAML->get
//$xHFrm->addHElem( "<p class='aviso'> Las operaciones Acumulados son de " . $acum->getNumero() . " </p>");
//$xHFrm->addHElem( "<p class='aviso'> El Monto Acumulado es de " . $acum->getMonto() . " </p>");
//$xHFrm->addHElem( "<p class='aviso'>" . $acum->getSQL()  ."</p>");
$xHFrm->addHElem("<p class='aviso'>PAGOS EN EFECTIVO: " . $x2AML->getPagosEnEfectivoNac(SYS_MONTO) . "</p>");
$xHFrm->addHElem("<p class='aviso'>NUMERO DE PAGOS EN EFECTIVO " . $x2AML->getPagosEnEfectivoNac(SYS_NUMERO) . "</p>");
$xAML->getEsPersonaVigilada();
$xHFrm->addHElem("<p class='aviso'>" . $x2AML->getMessages(OUT_HTML) . "</p>");
$xHFrm->addHElem("<p class='aviso'>" . $xAML->getMessages(OUT_HTML) . "</p>");
$xRPT = new cReportes_Layout();
$xRPT->setTipo($xRPT->OPERACIONES_INUSUALES);
//var_dump( $xRPT->read() );
$datos = $xRPT->read();
//var_dump($datos["contenido"]);
echo $xHFrm->get();