*/
if (MODULO_SEGUIMIENTO_ACTIVADO == true) {
    $aliasFil = getSucursal() . "-eventos-al-cierre-de-seguimiento-del-dia-{$fechaop}";
    $xLog = new cFileLog($aliasFil);
    $idrecibo = DEFAULT_RECIBO;
    $messages .= "=======================================================================================\r\n";
    $messages .= "=========================\t\t" . EACP_NAME . " \r\n";
    $messages .= "=========================\t\t" . getSucursal() . " \r\n";
    $messages .= "=======================================================================================\r\n";
    $messages .= "=========================\t\tINICIANDO EL CIERRE DE SEGUIMIENTO ====================\r\n";
    $messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t   ====================\r\n";
    $messages .= "=========================\t\tFECHA: {$fechaop}\t\t\t\t\t   ====================\r\n";
    $messages .= "=======================================================================================\r\n";
    //Avisos
    $dia_siguiente = sumardias($fechaop, 1);
    $xAv = new cAlertasDelSistema($dia_siguiente);
    $messages .= $xAv->setGenerarAlCierre($dia_siguiente);
    $messages .= vencer_notificaciones();
    $messages .= vencer_llamadas();
    $messages .= vencer_compromisos();
    $xLlam = new cLlamada();
    $xLlam->setCancelarLlamadasAnteriores($fechaop);
    $messages .= setLlamadasDiariasCreditosNo360($fechaop, $idrecibo);
    $messages .= setLlamadasDiariasPorMora($fechaop, $idrecibo);
    $xLog->setWrite($messages);
    $xLog->setClose();
    if (ENVIAR_MAIL_LOGS == true) {
        $xLog->setSendToMail("TR.Eventos del Cierre del Seguimiento");
    }
}
if ($parser != false) {
 function setEjecutarAlertas($evento = false)
 {
     $evento = $evento == false ? $this->mEvento : $evento;
     $this->mEvento = $evento;
     //$xAlerts		= new cAlertasDelSistema();
     //obtener eventos
     $xAlerts = new cAlertasDelSistema();
     $rs = $xAlerts->getDatAlertasPorEvento($evento);
     $xPrg = new cSistema_programacion_de_avisos();
     foreach ($rs as $datos) {
         //				$xPrg->setData($rs);
         $xAlerts->setProcesarProgramacion($datos["idprograma"], $this->mVars);
         $this->mMessages .= $xAlerts->getMessages();
     }
 }
        if (MODO_DEBUG == true) {
            $xErr = new cError();
            $msg .= $xErr->getREQVars();
        }
    } else {
        $xA = new cAlertasDelSistema();
        $destinatarios .= $oficiales == "" ? "" : "OFICIALES:{$oficiales}|";
        $destinatarios .= $empresas == "" ? "" : "EMPRESAS:{$empresas}|";
        $destinatarios .= $personas == "" ? "" : "PERSONAS:{$personas}|";
        $destinatarios .= $mails == "" ? "" : "CORREO:{$mails}|";
        $xA->setAgregarProgramacion($titulo, $contenido, $destinatarios, $programacion, $generadoen, $medios, $precomandos, $intentcheck);
        $msg .= $xA->getMessages();
        $msg .= $xHP->lang(MSG_READY_SAVE);
    }
}
$xPRG = new cAlertasDelSistema();
$xSel2 = new cHSelect();
$xSel2->addOptions($xPRG->getATipoDeEvento());
$xSel2->addEvent("jsaListadoDeEventos()", "onblur");
$xFRM->addHElem($xTxt->getNormal("idtitulo", $titulo, "TR.Titulo del Aviso"));
$xFRM->addHElem($xSel2->get("idgeneradoen", "TR.Generado"));
$xSel->addOptions($xPRG->getTipoDeProgramacion());
$xFRM->addHElem($xSel->get("idtipodeprogramacion", "TR.Programado"));
$xFS2 = new cHFieldset("TR.Destinatarios");
$xFS = new cHFieldset("TR.Medios de envio");
$xFS->addHElem($xChk->get("TR.Aviso por Telefono", "portelefono"));
$xFS->addHElem($xChk->get("TR.Aviso por Email", "pormail"));
$xFS->addHElem($xChk->get("TR.Aviso por SMS", "porsms"));
$xFRM->addHElem($xFS->get());
$xFRM->addHElem("<div id='lstevento'></div>");
$xFRM->addSeccion("iddestinatarios", "TR.Destinatarios");