}
echo $xHP->setBodyinit($eventOnLoad);
echo $scripts;
//pegar script como variable, eventonload
//<----------------------------------------------------------
$variable_numero_de_recibo = $recibo;
$variable_monto_del_recibo = number_format($totaloperacion, 2, '.', ',');
$variable_monto_del_recibo_en_letras = convertirletras($totaloperacion);
$variable_fecha_del_recibo = "";
$variable_tipo_de_pago = "";
$xCajero = new cSystemUser($DRec["idusuario"]);
$variable_nombre_del_cajero = $xCajero->getNombreCompleto();
$variable_observacion_del_recibo = $DRec["observacion_recibo"];
$variable_datos_de_pago = $xRec->getDatosDeCobro();
$xSuc = new cSucursal($DRec["sucursal"]);
$xSuc->init();
$DSuc = $xSuc->getDatosInArray();
$variable_lugar = $DSuc["municipio"] . ", " . $DSuc["estado"];
$variable_marca_de_tiempo = date("Ymd:His");
$tipoDocto = "";
$estatDocto = "";
$letras = "";
/* -----------------Verifica si es solicitud, si es imprime el saldo actual */
if ($origen == TESORERIA_RECIBOS_ORIGEN_CRED or $origen == TESORERIA_RECIBOS_ORIGEN_MIXTO) {
    $DD = $xRec->getInfoDoctoInArray();
    if ($DD != false and is_array($DD)) {
        $sdoctacred = $DD["saldo_actual"];
        $sdov = $DD["saldo_vencido"];
        $nota = "Capital Insoluto: \$ " . getFMoney($sdoctacred) . "|";
        $tipoDocto = eltipo("creditos_modalidades", $DD["tipo_credito"]);
        $estatDocto = eltipo("creditos_estatus", $DD["estatus_actual"]);
 function sendAlerts($PersonaDeOrigen, $PersonaDeDestino, $TipoDeAlerta, $mensaje = "", $documento = false, $fecha = false, $hora = false, $valorDeterminado = 0, $tipo_de_docto = false, $tercero_relacionado = DEFAULT_SOCIO)
 {
     $hora = setNoMenorQueCero($hora) <= 0 ? date("Hi") : $hora;
     $fecha = $fecha == false ? fechasys() : $fecha;
     $documento = $documento == false ? DEFAULT_RECIBO : $documento;
     $tipo_de_docto = $tipo_de_docto == false ? $this->mTipoDeDocto : $tipo_de_docto;
     $this->mTipoDeDocto = $tipo_de_docto;
     $resultado = true;
     $xRsk = new cAml_risk_catalog();
     $xSuc = new cSucursal();
     $xSuc->init();
     $idnumerico = $xSuc->getClaveNumerica();
     $xRsk->setData($xRsk->query()->initByID($TipoDeAlerta));
     $riesgo = $xRsk->valor_ponderado()->v();
     $nombreRies = $xRsk->descripcion()->v();
     $claseRies = $xRsk->tipo_de_riesgo()->v();
     $valorDeterminado = $valorDeterminado == 0 ? $xRsk->valor_ponderado()->v() : $valorDeterminado;
     $xF = new cFecha();
     $fecha = $xF->getInt($fecha);
     $xAl = new cAml_alerts();
     $xAl->estado_en_sistema(SYS_UNO);
     $xAl->fecha_de_checking(SYS_CERO);
     $xAl->fecha_de_origen($fecha);
     $xAl->fecha_de_registro($xF->getInt(fechasys()));
     $xAl->hora_de_proceso($hora);
     $xAl->documento_relacionado($documento);
     $xAl->medio_de_envio(AML_ALERT_MAIL);
     $xAl->mensaje($mensaje);
     $xAl->riesgo_calificado($valorDeterminado);
     $xAl->tipo_de_aviso($TipoDeAlerta);
     $xAl->sucursal($idnumerico);
     //Verificar
     $xAl->entidad(EACP_CLAVE_CASFIN);
     //Actualizar
     $xAl->usuario(getUsuarioActual());
     $xAl->persona_de_destino($PersonaDeDestino);
     $xAl->persona_de_origen($PersonaDeOrigen);
     $xAl->tipo_de_documento($tipo_de_docto);
     $xAl->tercero_relacionado($tercero_relacionado);
     $id_de_alerta = $xAl->query()->getLastID();
     $xAl->clave_de_control($id_de_alerta);
     $ql = $xAl->query()->insert();
     $res = $ql->save();
     if (setNoMenorQueCero($res) <= 0) {
         $this->mMessages .= "ERROR\tAl guardar registro ({$idnumerico})\r\n";
         if (MODO_DEBUG == true) {
             $this->mMessages .= $ql->getMessages(OUT_TXT);
         }
         $resultado = false;
     }
     //$xCatRiesgo				= new cAml_risk_catalog();
     //$xCatRiesgo->setData( $xCatRiesgo->query()->initByID($TipoDeAlerta) );
     //
     $xCatRiesgos = new cAml_risk_catalog();
     $xCatRiesgos->setData($xCatRiesgos->query()->initByID($TipoDeAlerta));
     $nombre_riesgo = $xCatRiesgos->descripcion()->v();
     //Enviar SMS
     $xMail = new cNotificaciones();
     //obtener los datos del usuario
     $xVUser = new cVistaUsuarios();
     $xD = $xVUser->query()->initByID($PersonaDeDestino);
     $xVUser->setData($xD);
     $userP = $xVUser->codigo_de_persona()->v();
     $mailD = false;
     $telD = false;
     $xSoc = new cSocio($userP);
     if ($xSoc->existe($userP) == true) {
         $xSoc->init();
         $mailD = $xSoc->getCorreoElectronico();
         $telD = $xSoc->getTelefonoPrincipal();
     } else {
         $this->mMessages .= "ERROR\tNo existe la persona de envio {$userP}\r\n";
     }
     //Array de valores
     $arrV = array();
     $fechacorta = $xF->getFechaCorta($xF->getFechaByInt($fecha));
     $arrV["variable_documento_codigo"] = $documento;
     $arrV["variable_docto_fecha"] = $fechacorta;
     $arrV["variable_docto_hora"] = $hora;
     $arrV["variable_nivel_de_riesgo"] = $riesgo;
     $arrV["variable_tipo_de_riesgo"] = $nombreRies;
     $arrV["variable_clasificacion_de_riesgo"] = $claseRies;
     $arrV["variable_codigo_de_alerta"] = $id_de_alerta;
     $arrV["variable_mensaje_de_alerta"] = $mensaje;
     $arrV["variable_url_del_sistema"] = SAFE_HOST_URL;
     //Enviar Mail
     $xFmt = new cFormato(800);
     $xFmt->setUsuario($PersonaDeDestino);
     $xFmt->setPersona($PersonaDeOrigen);
     $xFmt->setProcesarVars($arrV);
     $txtMail = $xFmt->get();
     if ($valorDeterminado > 51 or $this->mForceAvisos == true) {
         $xMail->setTitulo(AML_TITULO_DE_ALERTA);
         $this->mMessages .= $xMail->send($txtMail, $mailD, $telD, $PersonaDeDestino, "{$fechacorta}-{$claseRies}-{$mensaje}", "aml.{$mailD}");
         if ($this->mForceRegRiesgo == true) {
             //Agregar el riesgo
             $xAlert = new cAMLAlertas($id_de_alerta);
             $regFecha = $xF->getFechaByInt($fecha);
             $xAlert->setConfirmaAlerta($mensaje, $regFecha);
             $this->mMessages .= $xAlert->getMessages();
             //$xPAML		= new cAMLPersonas($PersonaDeOrigen);
             //$xPAML->setAgregarPerfilDeRiesgo($TipoDeAlerta, $fecha, $valorDeterminado, $documento, $tipo_de_docto, $PersonaDeDestino, $hora, $tercero_relacionado, $mensaje );
             //$this->mMessages	.= $xPAML->getMessages();
         }
     }
     return $resultado;
 }
define("SPLIT_INTERES_MORATORIO", $xC->get("dividir_interes_moratorio_del_normal", "true", $xC->OPERACIONES));
// true
//========================================= DATOS DE AML/PLD/FT ===========================================
define("AML_FECHA_DE_INICIO", $xC->get("aml_fecha_de_activacion", date("Y-m-d"), $xC->AML));
define("AML_KYC_DIAS_PARA_REVISAR_DOCTOS", $xC->get("aml_dias_para_revisar_documentos_de_personas", 3, $xC->AML));
define("AML_KYC_DIAS_PARA_COMPLETAR_PERFIL", $xC->get("aml_dias_para_completar_perfil_transaccional", 3, $xC->AML));
define("AML_CLAVE_MONEDA_LOCAL", strtoupper($xC->get("aml_clave_de_moneda_local", "MXN", $xC->AML)));
//========================================= DATOS DE CONTABILIDAD ===========================================
define("COSTE_POR_ACCION", $xC->get("costo_por_accion", "1000", $xC->CONTABILIDAD));
define("EACP_TASA_RESERVA", $xC->get("tasa_de_reserva_en_aportaciones", 0, $xC->CONTABILIDAD));
//Coste de Acciones
//2012-05-04 : Parametro que marca si la modalidad de credito(consumo, comercial) es determinada por el destino
if (isset($_SESSION["sucursal"])) {
    include_once "core.common.inc.php";
    $xSuc = new cSucursal();
    if ($xSuc->init() == true) {
        //valores tomados de la sucursal
        define("DEFAULT_CODIGO_POSTAL", $xSuc->getCodigoPostal());
        define("DEFAULT_NOMBRE_COLONIA", $xSuc->getColonia());
        define("DEFAULT_NOMBRE_LOCALIDAD", $xSuc->getClaveDeLocalidad());
        define("DEFAULT_NOMBRE_MUNICIPIO", $xSuc->getMunicipio());
        define("DEFAULT_NOMBRE_ESTADO", $xSuc->getEstado());
    } else {
        //valores tomados de la sucursal
        define("DEFAULT_CODIGO_POSTAL", $xC->get("domicilio.codigo_postal", "", $xC->ENTIDAD_DOMICILIO));
        define("DEFAULT_NOMBRE_COLONIA", $xC->get("domicilio.colonia", "", $xC->ENTIDAD_DOMICILIO));
        define("DEFAULT_NOMBRE_LOCALIDAD", $xC->get("domicilio.localidad", "", $xC->ENTIDAD_DOMICILIO));
        define("DEFAULT_NOMBRE_MUNICIPIO", $xC->get("domicilio.municipio", "", $xC->ENTIDAD_DOMICILIO));
        define("DEFAULT_NOMBRE_ESTADO", $xC->get("domicilio.estado", "", $xC->ENTIDAD_DOMICILIO));
    }
} else {
function jsaActualizarSucursal($idsucursal)
{
    $xSuc = new cSucursal($idsucursal);
    if ($xSuc->init() == true) {
        $xSuc->setActualizarPorPersona();
    }
    return $xSuc->getMessages(OUT_HTML);
}
 function setSucursal($sucursal = false)
 {
     $sucursal = $sucursal == false ? getSucursal() : $sucursal;
     $xSuc = new cSucursal($sucursal);
     $xSuc->init();
     $variable_lugar = $xSuc->getEstado() . ", " . $xSuc->getMunicipio();
     $this->mArr["variable_lugar"] = $variable_lugar;
     $this->mArr["variable_lugar_actual"] = $variable_lugar;
 }
 function setCorregirActividadEconomica($correcion = false)
 {
     //obtener codigo postal
     $msg = "";
     //verificar si existe persona
     $ql = new MQL();
     $rs = $ql->getDataRecord("SELECT * FROM  `socios_aeconomica` ");
     $xAct = new cSocios_aeconomica();
     //$xT				= new cTipos();
     //$xT->setForceMayus();
     //$xT->setToUTF8();
     //$xT->setForceClean();
     foreach ($rs as $rows) {
         $xAct->setData($rows);
         $persona = $xAct->socio_aeconomica()->v();
         $id = $xAct->idsocios_aeconomica()->v();
         $cp = $xAct->ae_codigo_postal()->v();
         $iddom = $xAct->domicilio_vinculado()->v();
         //===========
         //==
         $xPerAe = new cPersonaActividadEconomica($persona);
         $xPerAe->setID($id);
         $xPerAe->init();
         if ($xPerAe->isInit() == true) {
             if ($xPerAe->setUpdatePorEmpresa(true) == false) {
                 $xPerAe->setUpdatePorDomicilio();
             }
             $msg .= $xPerAe->getMessages();
         } else {
             $msg .= "ERROR\tAl procesar el Domicilio\r\n";
         }
         //verificar si tiene codigo postal
     }
     $rs = $ql->getDataRecord("SELECT * FROM  `socios_aeconomica` WHERE `domicilio_vinculado` <= 1 OR `ae_codigo_postal` <= 1 ");
     $xAct = new cSocios_aeconomica();
     foreach ($rs as $rows) {
         $xAct->setData($rows);
         $persona = $xAct->socio_aeconomica()->v();
         $id = $xAct->idsocios_aeconomica()->v();
         $cp = $xAct->ae_codigo_postal()->v();
         $iddom = $xAct->domicilio_vinculado()->v();
         $idsuc = $xAct->sucursal()->v();
         $xSuc = new cSucursal($idsuc);
         if ($xSuc->init() == true) {
             $xAct->ae_codigo_postal($xSuc->getCodigoPostal());
             $xAct->ae_clave_de_localidad($xSuc->getClaveDeLocalidad());
         }
         $success = $xAct->query()->update()->save($id);
         if ($success != false) {
             $xPerAe = new cPersonaActividadEconomica($persona);
             $xPerAe->setID($id);
             $xPerAe->init();
             if ($xPerAe->isInit() == true) {
                 if ($xPerAe->setUpdatePorEmpresa(true) == false) {
                     $xPerAe->setUpdatePorDomicilio();
                 }
                 $msg .= $xPerAe->getMessages();
             } else {
                 $msg .= "ERROR\tAl procesar el Domicilio con ID {$id} 2\r\n";
             }
         } else {
             $msg .= "ERROR\tAl procesar al actualizar {$id}\r\n";
         }
     }
     return $msg;
 }
 function init($sucursal = false)
 {
     $sucursal = $sucursal == false ? getSucursal() : $sucursal;
     //if( ($sucursal != getSucursal()) OR !isset($_SESSION["domicilio.cp"]) ){
     $cargar = false;
     $cargar = !isset($_SESSION[SYS_LOCAL_VARS_LOAD]) ? true : $cargar;
     $cargar = $sucursal != getSucursal() ? true : $cargar;
     if ($cargar == true) {
         //$this->mCajaLocal
         $this->mClaveDeEstado = EACP_CLAVE_NUM_ENTIDADFED;
         $this->mClaveDeEstadoABC = EACP_CLAVE_DE_ENTIDADFED;
         $this->mClaveDeEstadoSIC = EACP_CLAVE_DE_ENTIDAD_SIC;
         $this->mLocalidad = EACP_LOCALIDAD;
         $this->mClaveLocalidad = EACP_CLAVE_DE_LOCALIDAD;
         $this->mMunicipio = EACP_MUNICIPIO;
         $this->mClaveDeMunicipio = EACP_CLAVE_DE_MUNICIPIO;
         $this->mClavePostal = EACP_CODIGO_POSTAL;
         $this->mEntidadFed = EACP_ESTADO;
         $this->mCajaLocal = DEFAULT_CAJA_LOCAL;
         $this->mCalle = EACP_DOMICILIO_CALLE;
         $this->mNumeroExt = EACP_DOMICILIO_NUM_EXT;
         $this->mNumeroInt = EACP_DOMICILIO_NUM_INT;
         $this->mNombrePais = EACP_DOMICILIO_PAIS;
         $this->mColonia = EACP_COLONIA;
         $xSuc = new cSucursal($sucursal);
         if ($xSuc->init() == true) {
             $this->mClaveDeEstado = $xSuc->getClaveDeEstado();
             $this->mClaveDeEstadoABC = $xSuc->getClaveDeEstadoABC();
             $this->mClaveDeEstadoSIC = $xSuc->getClaveDeEstadoSIC();
             $this->mLocalidad = $xSuc->getNombreLocalidad();
             $this->mClaveLocalidad = $xSuc->getClaveDeLocalidad();
             $this->mMunicipio = $xSuc->getMunicipio();
             $this->mClaveDeMunicipio = $xSuc->getClaveDeMunicipio();
             $this->mClavePostal = $xSuc->getCodigoPostal();
             $this->mEntidadFed = $xSuc->getEstado();
             $this->mCajaLocal = $xSuc->getCajaLocalResidente();
             $this->mCalle = $xSuc->getCalle();
             $this->mNumeroExt = $xSuc->getNumeroExterior();
             $this->mNumeroInt = $xSuc->getNumeroInterior();
             //$this->mNombrePais			= $xSuc->ge
             $this->mColonia = $xSuc->getColonia();
         }
         $_SESSION["domicilio.localidad"] = $this->mLocalidad;
         $_SESSION["domicilio.localidad.clave"] = $this->mClaveLocalidad;
         $_SESSION["domicilio.municipio"] = $this->mMunicipio;
         $_SESSION["domicilio.municipio.clave"] = $this->mClaveDeMunicipio;
         $_SESSION["domicilio.estado.clave.abc"] = $this->mClaveDeEstadoABC;
         $_SESSION["domicilio.estado.clave.sic"] = $this->mClaveDeEstadoSIC;
         $_SESSION["domicilio.estado.clave.num"] = $this->mClaveDeEstado;
         $_SESSION["domicilio.estado"] = $this->mEntidadFed;
         $_SESSION["domicilio.cp"] = $this->mClavePostal;
         $_SESSION["domicilio.cajalocal"] = $this->mCajaLocal;
         $_SESSION["domicilio.colonia"] = $this->mColonia;
         $_SESSION["domicilio.calle"] = $this->mCalle;
         $_SESSION["domicilio.numero.ext"] = $this->mNumeroExt;
         $_SESSION["domicilio.numero.int"] = $this->mNumeroInt;
         $_SESSION["domicilio.pais"] = $this->mNombrePais;
         $_SESSION[SYS_LOCAL_VARS_LOAD] = true;
     }
 }