function Main()
{
try {
$u = unserialize($_SESSION["usu"]);
$mensagem = $_GET["m"];
$tpl = file_get_contents("tpl/usuariosgrupos.html");
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
$tpl = str_replace("<!--Mensagem-->", isset($mensagem) && $mensagem != "" ? base64_decode($mensagem) : "", $tpl);
$botoes = Botao::BotaoSalvar("fntGravaUsuariosGrupo();", "@lng[Salvar as alterações]");
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
$grupos = new Grupo();
$rs = $grupos->ListaRecordSet();
if ($rs != 0) {
if (mysql_num_rows($rs) > 0) {
$opts .= '<option value="">@lng[Selecione]</option>';
while ($linha = mysql_fetch_array($rs)) {
$opts .= '<option value="' . $linha["Codigo"] . '">' . $linha["Descricao"] . '</option>';
}
} else {
$opts = '<option value="-1">@lng[Nenhum grupo cadastrado]</option>';
}
} else {
$opts = '<option value="-1">@lng[Erro ao carregar]</option>';
}
$tpl = str_replace("##OptsGrupos##", $opts, $tpl);
$tpl = str_replace("##OptsTU##", "", $tpl);
$tpl = str_replace("##OptsUDG##", "", $tpl);
echo Comuns::Idioma($tpl);
} catch (Exception $ex) {
$msg = base64_encode($ex->getMessage());
header("Location:vwerro.php?m=" . $msg);
}
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$usuarios = isset($_POST["u"]) ? $_POST["u"] : "";
$msg = "";
if (isset($_SESSION['caso']) && $_SESSION['caso'] != 0) {
if ($usuarios != "") {
try {
$c = new Caso();
$c->setCodigo($_SESSION['caso']);
if ($c->DeletaTodosOsColaboradores()) {
$usuarios = split("-", $usuarios);
foreach ($usuarios as $usuario) {
$c->AdicionaColaboradorAoCaso($usuario);
}
echo "GRAVOU";
} else {
$msg = "@lng[Não foi possível excluír o colaborador.]";
}
} catch (Exception $ex) {
throw new Exception($ex->getMessage(), $ex->getCode());
}
} else {
$msg = "@lng[Usuários não informados]";
}
} else {
$msg = "@lng[Caso não identificado.]";
}
echo Comuns::Idioma($msg);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$grupo = isset($_POST["cg"]) && is_numeric($_POST["cg"]) ? $_POST["cg"] : 0;
$permissoes = isset($_POST["p"]) && trim($_POST["cg"]) != "" ? $_POST["p"] : "";
if ($grupo != 0) {
if ($permissoes != "") {
try {
$g = new Grupo();
$g->setCodigo($grupo);
if ($g->DeletaTodasPermissoes()) {
$permissoes = split("-", $permissoes);
foreach ($permissoes as $perm) {
$g->AdicionaPermissaoGrupoUsuario($perm);
}
}
echo "OK";
} catch (Exception $ex) {
throw new Exception($ex->getMessage(), $ex->getCode());
}
} else {
$g = new Grupo();
$g->setCodigo($grupo);
if ($g->DeletaTodasPermissoes()) {
echo "OK";
} else {
echo "Erro";
}
}
} else {
echo Comuns::Idioma("@lng[Grupo não informado]");
}
}
function Main()
{
$u = unserialize($_SESSION['usu']);
$tpl = file_get_contents("tpl/frm-montagem.html");
$botoes = "";
//$botoes = Botao::BotaoSalvar("fntSalvaMontagem();", "Salvar a montagem atual");
$botoes .= Botao::BotaoAdd("fntAddFolha();", "@lng[Adicionar o item selecionado a montagem]");
$botoes .= Botao::BotaoExcluir("fntRemoverItemMontagem()", "@lng[Remover o item selecionado da montagem]");
$botoes .= Botao::BotaoConfigs("fntMostraConfigs();", "@lng[Permite modificar as configurações do item selecionado]");
//$botoes .= Botao::BotaoSalvar("fntSalvaConfigs();", "Salvar as configurações do item selecionado");
$botoes .= Botao::BotaoCancelar("fntVoltaTelaOpcoes();", "@lng[Voltar para a tela inicial do caso]");
$mon = new Montagem();
$mon->setCodCaso($_SESSION['caso']);
$rais = $mon->ExisteArvore();
if (is_null($rais)) {
$rais = $mon->AddRais();
}
$arvore = $mon->RetornaArvoreLista();
$anexos = $mon->RetornaComboConteudosExtras();
if ($arvore != false) {
//echo($arvore);
//return;
$tpl = str_replace("<!--arvore-->", $arvore, $tpl);
} else {
$tpl = str_replace("<!--arvore-->", $mon->getErro(), $tpl);
}
$tpl = str_replace("<!--selConteudos-->", $anexos, $tpl);
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
$codTPL = $_GET["t"];
$codReg = $_GET["r"];
$editar = false;
$u = unserialize($_SESSION["usu"]);
if (!is_numeric($codTPL)) {
$msg = "Ação inválida";
header("Location:index.php?msg=" . $msg);
}
//Verifica se veio um código para ser editado
if (isset($codReg) && $codReg != "") {
$codReg = base64_decode($codReg);
$editar = true;
}
$cnn = new Conexao();
$sql = "SELECT Arquivo FROM mestemplates WHERE Codigo = 3;";
$rs = $cnn->Consulta($sql);
$tpl_p = file_get_contents(mysql_result($rs, 0, "Arquivo"));
$tpl_p = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl_p);
$tpl_p = str_replace("<!--Mensagem-->", isset($mensagem) && $mensagem != "" ? base64_decode($mensagem) : "", $tpl_p);
$sql = "SELECT Classe, jsLoad, CodPermissao, linkSalva, linkVolta ";
$sql .= "FROM mestemplates WHERE Codigo = " . $codTPL . ";";
$rs = $cnn->Consulta($sql);
if ($rs != 0) {
// Classe que será instanciada e permissão necessária para acessar a tela
$classe = mysql_result($rs, 0, "Classe");
$permissao = mysql_result($rs, 0, "CodPermissao");
$funload = mysql_result($rs, 0, "jsLoad");
if ($u->TemPermissao($permissao)) {
$frm = new $classe();
if ($editar) {
// Se vier um comando de edição de registro, monta o form com os dados do registro solicitado
Log::RegistraLog("Acessou a tela de " . $frm->RetornaDescricaoTela('cadastro') . " para editar o registro " . $codReg);
$tpl = $frm->FormEdita($codReg);
} else {
// Senão, monta um formulário em branco
Log::RegistraLog("Acessou a tela de " . $frm->RetornaDescricaoTela('cadastro') . " para inserir um novo registro");
$tpl = $frm->FormNovo();
}
if (!is_null($funload) && $funload != '') {
$tpl_p = str_replace('<!--javaonload-->', $funload, $tpl_p);
} else {
$tpl_p = str_replace('<!--javaonload-->', '', $tpl_p);
}
$botoes = Botao::BotaoSalvar(mysql_result($rs, 0, "linkSalva"));
$botoes .= Botao::BotaoVoltar(mysql_result($rs, 0, "linkVolta"));
$tpl_p = str_replace("<!--itens-toolbar-->", $botoes, $tpl_p);
} else {
$msg = base64_encode("@lng[Você não tem permissão para acessar esta tela]");
header("Location:interna.php?msg=" . $msg);
}
} else {
$msg = "@lng[Página inválida]";
header("Location:index.php?msg=" . $msg);
}
$tpl_p = str_replace("##Formulario##", $tpl, $tpl_p);
header('Content-Type: text/html; charset=iso-8859-1');
echo Comuns::Idioma($tpl_p);
}
function Main()
{
//header('Content-Type: text/html; charset=iso-8859-1');
if (isset($_SESSION['casores']) && $_SESSION['casores'] > 0) {
if ($_POST['k']) {
$idnodo = $_POST['k'];
$res = new Resolucao();
$res->setCodcaso($_SESSION['casores']);
$hash = $res->BuscaConteudoPelaChave($idnodo);
if ($hash != false) {
$res->RegistraVisitaNodo($idnodo);
if ($hash->ContainsKey("fim")) {
if ($hash->getValue("fim") == "S") {
// É fim do caso. Deve atualizar status
$u = unserialize($_SESSION['usu']);
$res->setCodusuario($u->getCodigo());
$res->setCodresolucao($_SESSION['codresolucao']);
if (!$res->ConcluiResolucao()) {
echo $res->getErro();
}
}
}
echo Comuns::Idioma($hash->ToXML());
} else {
die(Comuns::Idioma("ERRO: @lng[hash retornou false]"));
}
} else {
die(Comuns::Idioma("ERRO: @lng[Conteúdo não informado]"));
}
} else {
die(Comuns::Idioma("ERRO: @lng[Caso não encontrado]"));
}
}
function Main()
{
$tpl = file_get_contents("tpl/cad-perg-agrup.html");
$ag = new GrupoPergunta();
$p = new Pergunta();
$u = unserialize($_SESSION['usu']);
$codigo = base64_decode($_GET['c']);
if ($ag->Carrega($codigo)) {
$_SESSION['agruperg'] = $ag->getCodgrupo();
$perguntas = $p->ListaPerguntasAtivas(null, null, "", 0, $u->getCodigo());
if (count($perguntas) > 0) {
$retorno = "<h4>@lng[As perguntas marcadas são as já vinculadas a este agrupamento]</h4>";
$cont = 0;
foreach ($perguntas as $perg) {
$cont++;
if (!is_null($ag->getPerguntas()) && in_array($perg->Codigo, $ag->getPerguntas())) {
$retorno .= '<input type="checkbox" name="chkPerguntas[]" id="chkRelPergCaso_' . $cont . '" value="' . base64_encode($perg->Codigo) . '" class="campo" checked="checked" />' . $perg->Texto . '<br />';
} else {
$retorno .= '<input type="checkbox" name="chkPerguntas[]" id="chkRelPergCaso_' . $cont . '" value="' . base64_encode($perg->Codigo) . '" class="campo" />' . $perg->Texto . '<br />';
}
}
} else {
$retorno = "@lng[Nenhum pergunta cadastrada no sistema]";
}
$botoes = Botao::BotaoSalvar("fntSalvaAgrupamento();", "@lng[Salvar as alterações do agrupamento]");
$botoes .= Botao::BotaoVoltar("fntVoltar();", "@lng[Voltar para a listagem de agrupadores de pergunta]");
$tpl = str_replace("<!--textoagrupador-->", $ag->getTexto(), $tpl);
$tpl = str_replace("<!--listaexercicios-->", $retorno, $tpl);
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
echo $tpl;
} else {
echo "ERRO inesperado! " . $ag->getErro();
}
}
function RenderOpcoes()
{
$u = unserialize($_SESSION['usu']);
$tpl = file_get_contents("tpl/frm-opcoeslogin.html");
$grupos = null;
foreach ($u->getGrupos() as $grupo) {
$grupos .= $grupos != "" ? ", " . $grupo : $grupo;
}
$sql = "select Codigo, Descricao from mesgrupousuario where Codigo IN(" . $grupos . ") and Codigo <> 3;";
$cnn = Conexao2::getInstance();
$cmd = $cnn->prepare($sql);
$cmd->execute();
$dsPerfis = $cmd->fetchAll(PDO::FETCH_OBJ);
if ($grupos) {
$cmbGrupos = new ComboBox();
$cmbGrupos->ID("selPerfil");
$cmbGrupos->setDataSet($dsPerfis);
$cmbGrupos->setDataValueField("Codigo");
$cmbGrupos->setDataTextField("Descricao");
$cmbGrupos->setDefaultValue("0");
$cmbGrupos->setDefaultText("@lng[Selecione]");
$cmbGrupos->cssClass("campo req");
$htmlCombo = $cmbGrupos->RenderHTML();
} else {
$htmlCombo = "<p>@lng[Não existem perfis associados ao seu usuário]</p>";
}
$tpl = str_replace("<!--Perfis-->", $htmlCombo, $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$grupo = isset($_POST["cg"]) && is_numeric($_POST["cg"]) ? $_POST["cg"] : 0;
$usuarios = isset($_POST["u"]) ? $_POST["u"] : "";
$msg = "";
if ($grupo != 0) {
if ($usuarios != "") {
try {
$g = new Grupo();
$g->setCodigo($grupo);
if ($g->DeletaTodosOsUsuarios()) {
$usuarios = split("-", $usuarios);
foreach ($usuarios as $usuario) {
$g->AdicionaUsuarioAoGrupo($usuario);
}
return "GRAVOU";
} else {
$msg = "@lng[Não consegui excluir]";
}
} catch (Exception $ex) {
throw new Exception($ex->getMessage(), $ex->getCode());
}
} else {
$msg = "@lng[Usuarios não informados]";
}
} else {
$msg = "@lng[Grupo não informado]";
}
echo Comuns::Idioma($msg);
}
public static function DetalhaLog($idacesso)
{
$u = unserialize($_SESSION['usu']);
$sql = "select acoes.CodAcesso, acessos.CodUsuario, usuario.NomeCompleto, acoes.Acao, acoes.DataHora ";
$sql .= "\t\t,case when acessos.Host is null then '' else acessos.Host end AS Host ";
$sql .= "from mesusuariologacoes acoes ";
$sql .= "inner join mesacessousuario acessos ";
$sql .= "\t\ton acessos.numacesso = acoes.codacesso ";
$sql .= "inner join mesusuario usuario ";
$sql .= "\t\ton usuario.codigo = acessos.codusuario ";
$sql .= "where CodAcesso = :pCodAcesso ";
$sql .= "order by DataHora desc";
$cnn = Conexao2::getInstance();
$cmd = $cnn->prepare($sql);
$cmd->bindParam(":pCodAcesso", $idacesso, PDO::PARAM_INT);
$cmd->execute();
if ($cmd->rowCount() > 0) {
$ret = Comuns::TopoTabelaListagem("Ações realizadas", "actrealizadas", array("Usuário", "Ação", "Data/Hora", "Host"));
while ($linha = $cmd->fetch(PDO::FETCH_OBJ)) {
$ret .= '<tr>';
$ret .= ' <td>' . $linha->NomeCompleto . '</td>';
$ret .= ' <td>' . $linha->Acao . '</td>';
$ret .= ' <td>' . date('d/m/Y H:i:s', strtotime($linha->DataHora)) . '</td>';
$ret .= ' <td>' . $linha->Host . '</td>';
$ret .= '</tr>';
}
$ret .= '</tbody></table>';
} else {
$ret = "Falha ao recuperar detalhes";
}
$cmd->closeCursor();
return $ret;
}
function AlteraSenha($tpl)
{
$tpl_senha = file_get_contents('tpl/aluno/frm-altera-senha.html');
$tpl = str_replace("<!--conteudo-->", $tpl_senha, $tpl);
header('Content-Type: text/html; charset=iso-8859-1');
echo Comuns::Idioma($tpl);
}
function Main()
{
header('Content-Type: text/html; charset=utf-8');
if (!isset($_COOKIE['siacc_lang'])) {
$_COOKIE['siacc_lang'] = '1';
}
$mensagem = $_GET["m"];
$tpl = file_get_contents("tpl/index.html");
$rs = null;
if (!Comuns::ArrayObj("select Codigo, Nome from sisidiomas /*where publicado = 1*/", $rs)) {
echo $rs;
}
$cmb = new ComboBox("selIdioma", $rs, "Codigo", "Nome");
$tpl = str_replace("<!--selIdioma-->", $cmb->RenderHTML($_COOKIE['siacc_lang']), $tpl);
if (isset($mensagem) && $mensagem != "") {
$msg = '<div id="errologin">' . base64_decode($mensagem) . '</div>';
$tpl = str_replace("<!--Mensagem-->", $msg, $tpl);
} else {
$tpl = str_replace("<!--Mensagem-->", "", $tpl);
}
if (strpos(strtolower($_SERVER['HTTP_HOST']), "localhost") === false) {
$tpl = str_replace("<!--analytics-->", Comuns::GOOGLE_ANALYTICS, $tpl);
} else {
$tpl = str_replace("<!--analytics-->", "", $tpl);
}
echo Comuns::Idioma($tpl, "login");
}
function Main()
{
if (isset($_SESSION['caso']) && $_SESSION['caso'] > 0) {
$cnn = Conexao2::getInstance();
$erro = false;
$deserro = "";
$caso = $_SESSION['caso'];
foreach ($_POST as $campo => $valor) {
if ($campo != "selFeedback" && $campo != "etapa") {
$campo = split("_", $campo);
$secao = $campo[0];
$config = $campo[1];
$sqlConsulta = "SELECT 1 as Tem FROM mescasoconfigs ";
$sqlConsulta .= "WHERE CodCaso = :pCodCaso AND Secao = :pSecao and Configuracao = :pConfig;";
$cmdConsulta = $cnn->prepare($sqlConsulta);
$cmdConsulta->bindParam(":pCodCaso", $caso, PDO::PARAM_INT);
$cmdConsulta->bindParam(":pSecao", $secao, PDO::PARAM_STR);
$cmdConsulta->bindParam(":pConfig", $config, PDO::PARAM_STR);
$cmdConsulta->execute();
if ($cmdConsulta->rowCount() > 0) {
$sqlComando = "UPDATE mescasoconfigs SET Valor = :pValor ";
$sqlComando .= "WHERE CodCaso = :pCodCaso AND Secao = :pSecao AND Configuracao = :pConfig ";
} else {
$sqlComando = "INSERT INTO mescasoconfigs(CodCaso, Secao, Configuracao, Valor) ";
$sqlComando .= "VALUES(:pCodCaso, :pSecao, :pConfig, :pValor);";
}
$cmdComando = $cnn->prepare($sqlComando);
$cmdComando->bindParam(":pCodCaso", $caso, PDO::PARAM_INT);
$cmdComando->bindParam(":pSecao", $secao, PDO::PARAM_STR);
$cmdComando->bindParam(":pConfig", $config, PDO::PARAM_STR);
$cmdComando->bindParam(":pValor", $valor, PDO::PARAM_STR);
$cmdComando->execute();
if ($cmdComando->errorCode() != Comuns::QUERY_OK) {
$msg = $cmdComando->errorInfo();
$erro = true;
$deserro .= "Erro " . $msg[2];
}
} else {
$sql = "UPDATE mescaso SET DaResposta = :pResposta WHERE Codigo = :pCodCaso;";
$cmd = $cnn->prepare($sql);
$cmd->bindParam(":pResposta", $valor, PDO::PARAM_INT);
$cmd->bindParam(":pCodCaso", $caso, PDO::PARAM_INT);
$cmd->execute();
if ($cmd->errorCode() != Comuns::QUERY_OK) {
$msg = $cmd->errorInfo();
$erro = true;
$deserro .= "Erro " . $msg[2];
}
}
}
if ($erro == false) {
echo "OK";
} else {
echo $deserro;
}
} else {
echo Comuns::Idioma("@lng[Erro ao locallizar o caso clínico]");
}
}
function Main()
{
$cod = $_POST["c"];
$nom = urldecode($_POST["n"]);
$usu = urldecode($_POST["u"]);
$ema = urldecode($_POST["e"]);
$ins = $_POST["i"];
$idi = $_POST["l"];
$sen = urldecode($_POST["s"]);
$ati = $_POST["a"];
header('Content-Type: text/html; charset=iso-8859-1');
try {
$ret = "";
$u = new Usuario();
if ($cod != "") {
$u->setCodigo($cod);
}
if ($nom != "") {
$u->setNome($nom);
}
if ($usu != "") {
$u->setUsuario($usu);
}
if ($ema != "") {
$u->setEmail($ema);
}
if ($ins != "") {
$u->setCodigoInstituicao($ins);
}
if ($idi != "") {
$u->setCodIdioma($idi);
}
if ($sen != "") {
$u->setSenha($sen);
}
if ($ati != "") {
$u->setAtivo($ati);
}
if ($cod == "") {
if ($u->AdicionaUsuario()) {
$ret = "GRAVADO";
} else {
$ret = $u->getErro();
}
} else {
if ($u->AtualizaUsuario()) {
$ret = "GRAVADO";
} else {
$ret = $u->getErro();
}
}
echo Comuns::Idioma($ret);
} catch (Exception $ex) {
echo Comuns::Idioma($ex->getMessage());
}
}
function fntDeletaTipoExame()
{
$t = new TipoExame();
$t->setCodigo(base64_decode($_POST['id']));
if ($t->Deletar()) {
echo Comuns::Idioma("@lng[Excluído com sucesso.]");
} else {
echo Comuns::Idioma("@lng[Não foi possível deletar tipo de exame.] " . $t->getErro());
}
}
function Main()
{
//header('Content-Type: text/html; charset=iso-8859-1');
$acao = $_GET['act'];
$acaoload = false;
$tpl = file_get_contents("tpl/cad-curso.html");
$u = unserialize($_SESSION["usu"]);
$mensagem = $_GET["m"];
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
if (isset($_SESSION['caso']) && $_SESSION['caso'] != 0) {
if (Caso::ConsultaSituacao($_SESSION['caso']) == 0) {
$secao = $_POST['etapa'];
$retorno = "";
switch ($secao) {
case "basicos":
//fntProcessaDadosBasicos();
break;
case "objetivos":
$retorno = fntDeletaObjetivos();
break;
case "anamnese":
//fntProcessaDadosAnamnese();
break;
case "examefisico":
//fntProcessaDadosExameFisico();
break;
case "hipoteses":
$retorno = fntDeletaHipoteses();
break;
case "exames":
$retorno = fntDeletaExames();
break;
case "diagnosticos":
$retorno = fntDeletaDiagnosticos();
break;
case "tratamentos":
$retorno = fntDeletaTratamentos();
break;
case "desfechos":
$retorno = fntDeletaDesfechos();
break;
case "conteudos":
$retorno = fntDeletaConteudos();
break;
case "exercicios":
//fntProcessaDadosExercicios();
break;
case "montagem":
//fntProcessaDadosMontagem();
break;
}
echo Comuns::Idioma($retorno);
} else {
echo Comuns::Idioma("ERRO. @lng[Este caso está publicado, não será possível modificar seus dados.]");
}
} else {
echo Comuns::Idioma("ERRO. @lng[Não foi possível excluir os dados.]");
}
}
function Main()
{
//header('Content-Type: text/html; charset=iso-8859-1');
/*header('Content-Type: text/html; charset=utf-8');*/
$u = unserialize($_SESSION["usu"]);
log::RegistraLog("Acessou a tela inicial do sistema");
$mensagem = $_GET["msg"];
$tpl = file_get_contents("tpl/interna.html");
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
$tpl = str_replace("<!--Mensagem-->", isset($mensagem) && $mensagem != "" ? base64_decode($mensagem) : "", $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
$html = "";
if ($_GET['id']) {
$idioma = $_GET['id'];
$sql = "select e.Codigo, e.Expressao, t.Expressao as Traducao ";
$sql .= "from sisexpressoes e left outer join sistraducoes t on t.CodExpressao = e.Codigo and t.CodIdioma = :pCodIdioma ";
$sql .= "order by e.Expressao";
$cnn = Conexao2::getInstance();
$cmd = $cnn->prepare($sql);
$cmd->bindParam(":pCodIdioma", $idioma, PDO::PARAM_INT);
$cmd->execute();
$total = 0;
$feito = 0;
if ($cmd->errorCode() == Comuns::QUERY_OK) {
$html = '<table class="listadados">';
$html .= '<tr class="head"><th>@lng[Expressão]</th><th>@lng[Tradução]</th></tr>';
while ($expressao = $cmd->fetch(PDO::FETCH_OBJ)) {
$html .= '<tr>';
$html .= ' <td><label>' . $expressao->Expressao . '</label></td>';
$html .= ' <td>';
$html .= ' <input type="text" name="exp_' . $expressao->Codigo . '" id="exp_' . $expressao->Codigo . '" value="' . ($expressao->Traducao == null ? '' : $expressao->Traducao) . '" class="campo campomedio" onblur="javascript:fntGravaTraducao(' . $expressao->Codigo . ');" /></td>';
$html .= ' <input type="hidden" name="h_exp_' . $expressao->Codigo . '" id="h_exp_' . $expressao->Codigo . '" value="' . ($expressao->Traducao == null ? '' : $expressao->Traducao) . '" />';
$html .= ' </td>';
$html .= '</tr>';
$total++;
$feito += $expressao->Traducao == null ? 0 : 1;
}
$html .= '</table>';
$html = '<div class="info-percentual">@lng[Percentual traduzido:] ' . $feito / $total * 100 . '%</div>' . $html;
} else {
$msg = $cmd->errorInfo();
$html = $msg[2];
}
}
$usu = unserialize($_SESSION['usu']);
$tpl = file_get_contents("tpl/frm-idiomas.html");
$idiomas = null;
Comuns::ArrayObj("select Codigo, Nome from sisidiomas order by Nome", $idiomas);
$cmbIdiomas = new ComboBox("selIdioma", $idiomas, "Codigo", "Nome", "0", "@lng[Selecione]");
$cmbIdiomas->cssClass("campo");
$cmbIdiomas->setSelectedValue($_GET['id'] ? $_GET['id'] : "0");
$cmbIdiomas->Eventos(array("onchange" => "fntBuscaTraducoes()"));
$botoes = Botao::BotaoNovo("fntAddExpressao();", "@lng[Adicionar expressão]");
$botoes .= Botao::BotaoPesquisar("fntBuscaTraducoes();", "@lng[Buscar traduções]");
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($usu), $tpl);
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
$tpl = str_replace("<!--selIdioma-->", $cmbIdiomas->RenderHTML(), $tpl);
$tpl = str_replace("<!--expressoes-->", $html, $tpl);
header('Content-Type: text/html; charset=iso-8859-1');
echo Comuns::Idioma($tpl);
}
function Main()
{
$usu = unserialize($_SESSION['usu']);
//$usu = new Usuario();
$usufiltro = $_POST['txtUsuario'];
$idusuario = $_POST['idusuario'];
$dtinifiltro = $_POST['txtDtIni'];
$dtfimfiltro = $_POST['txtDtFin'];
$pagina = $_POST['hidPagina'];
$tpl = file_get_contents("tpl/frm-acessos.html");
$botoes = Botao::BotaoPesquisar("fntPesquisarAcessos();", "Pesquisar acessos");
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($usu), $tpl);
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
$tpl = str_replace("<!--txtDtIni-->", $dtinifiltro, $tpl);
$tpl = str_replace("<!--txtDtFin-->", $dtfimfiltro, $tpl);
if ($dtinifiltro != "" && $dtfimfiltro != "") {
Log::RegistraLog("Acessou tela de consulta de acessos ao sistema e parametrizou: dtinifiltro=" . $dtinifiltro . "; dtfimfiltro=" . $dtfimfiltro . "; idusuario=" . $idusuario);
$idusuario = $idusuario == "" ? null : $idusuario;
$pagina = $pagina == "" ? 1 : $pagina;
$tpl = str_replace("<!--hidPagina-->", $pagina, $tpl);
$dtinifiltro = Comuns::DataBanco($dtinifiltro) . " 00:00:00";
$dtfimfiltro = Comuns::DataBanco($dtfimfiltro) . " 23:59:59";
$regs = 0;
$acessos = $usu->ListaAcessosSistema($usuario = $idusuario, $dataini = $dtinifiltro, $datafim = $dtfimfiltro, $pagina = $pagina, 30, $regs);
if (count($acessos) > 0) {
$tabela = Comuns::TopoTabelaListagem("Acessos ao sistema", "acessos", array('Núm. Acesso', 'Usuário', 'Data', 'Detalhes'));
foreach ($acessos as $linha) {
$tabela .= '<tr>';
$tabela .= ' <td>' . $linha->NumAcesso . '</td>';
$tabela .= ' <td>' . $linha->Usuario . '</td>';
$tabela .= ' <td>' . date("d/m/Y H:i:s", strtotime($linha->Data)) . '</td>';
$tabela .= ' <td><a href="javascript:void(0);" onclick="javascript:fntDetalhesAcesso(' . $linha->NumAcesso . ');">' . Comuns::IMG_ACAO_DETALHES . '</a></td>';
$tabela .= '</tr>';
}
$tabela .= '</tbody>';
$tabela .= '</table>';
$tabela .= Comuns::GeraPaginacao($regs, $pagina, 30, 0, "fntNavegaPaginacaoAcessos", true);
$tabela .= '<br /><br />';
} else {
$tabela = "@lng[Nenhum registro encontrado]";
}
} else {
$tabela = "@lng[Pesquisa não realizada]";
}
$tpl = str_replace("<!--txtUsuario-->", $usufiltro, $tpl);
$tpl = str_replace("<!--id-usuario-->", $idusuario, $tpl);
$tpl = str_replace("<!--acessos-usuarios-->", $tabela, $tpl);
$tpl = str_replace("<!--hidPagina-->", "", $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
$codigo = base64_decode($_POST['txtCodigo']);
$txt = urldecode($_POST['txtDescricao']);
$clsAtual = $_POST['selClasse'];
$nivAtual = $_POST['selNivel'];
$tipAtual = $_POST['selTipo'];
$ativo = $_POST['selAtivo'];
$expGeral = urldecode($_POST['txtExplicacaoGeral']);
if (trim($codigo) == "") {
$codigo = null;
} else {
if (!is_numeric($codigo)) {
echo Comuns::Idioma("@lng[Código informado não é válido]");
}
}
$p = new Pergunta();
if (!is_null($codigo)) {
$p->setCodigo($codigo);
}
$p->setTexto($txt);
$p->setClasse($clsAtual);
$p->setNivel($nivAtual);
$p->setTipo(TipoPergunta::RetornaTipo($tipAtual));
$p->setAtivo($ativo);
if ($expGeral != "") {
$p->setTextoExplicacaoGeral($expGeral);
}
if ($p->getCodigo() === 0) {
if ($p->AdicionaPergunta() === true) {
$_SESSION['perg'] = $p->getCodigo();
echo "OK";
} else {
$_SESSION['perg'] = 0;
echo Comuns::Idioma("@lng[Erro ao adicionar a pergunta:]");
}
} else {
if ($p->AtualizaPergunta() === true) {
$_SESSION['perg'] = $p->getCodigo();
echo "OK";
} else {
$erros = "@lng[Erros ocorreram.]";
foreach ($p->msg_erro as $err) {
$erros .= "<br />" . $err;
}
echo Comuns::Idioma($erros);
}
}
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$cont = new Conteudo();
$conteudos = $cont->ListaRecordSet($_SESSION['caso']);
if ($conteudos) {
$ret .= '<option value="">@lng[Selecione]</option>';
foreach ($conteudos as $html) {
$ret .= '<option value="vwcont.php?k=' . $html->Chave . '">' . $html->Descricao . '</option>';
}
} else {
$ret = '<option value="">@lng[Nenhum item encontrado]</option>';
}
echo Comuns::Idioma($ret);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$ht = new HashTable();
$e = new Exame();
$retorno = "";
if ($_POST['context'] == 'N') {
$ht->AddItem("imgs", $e->ListaArquivosExame($_SESSION['caso'], $_SESSION['exame'], "img"));
$ht->AddItem("docs", $e->ListaArquivosExame($_SESSION['caso'], $_SESSION['exame'], "doc"));
$retorno = $ht->ToXML();
} else {
$c = new Conteudo();
$retorno = $c->Lista($_SESSION['caso']);
}
echo Comuns::Idioma($retorno);
}
function Main()
{
if (isset($_FILES["realupload"])) {
$up = new Upload();
$m = new Midia();
$up->setArquivo($_FILES["realupload"]);
if ($up->ValidaVideo($up->getTipo())) {
// Gera onde o arquivo será armazenado
if (isset($_SESSION['caso']) && $_SESSION['caso'] != 0) {
// Gera o nome do arquivo
$nome = Comuns::CodigoUnico();
$destino = "files/" . $_SESSION['caso'] . "/videos";
$up->setNome($nome);
$up->setDestino($destino);
if ($up->RealizaUpload()) {
$descricao = $_POST['txtDesArquivo'] != "" ? $_POST['txtDesArquivo'] : null;
$complemento = $_POST['txtComplementoVideo'] != "" ? urldecode($_POST['txtComplementoVideo']) : null;
$origem = $_POST['txtOrigem'];
$tipo = $_POST['txtTipo'];
$m->setCodCaso($_SESSION['caso']);
$m->setDescricao($descricao);
$m->setComplemento($complemento);
$m->setTipoMidia(Comuns::TIPO_MIDIA_VIDEO);
$m->setURL($up->getFullPath());
$m->setOrigem("upload");
if ($m->Insere()) {
Log::RegistraLog('Realizado upload do arquivo de vídeo ' . $up->getFullPath() . ' - ' . $descricao);
$tpl = file_get_contents("tpl/caso-upload-video.html");
$tpl = str_replace("<!--Listararquivos-->", "fntReloadConteudos();", $tpl);
echo $tpl;
} else {
$up->DeletaArquivo($up->getFullPath());
Log::RegistraLog('Falha ao realizar upload do arquivo de vídeo ' . $up->getFullPath() . ' - ' . $descricao . '. Detalhes: ' . $m->getErro(), true);
echo Comuns::Idioma('@lng[Não foi possível enviar o arquivo. Detalhes:]' . ' ' . $m->getErro() . '<br /><br /><a href="vwuploaddetalhe.php?type=vid">@lng[Voltar]</a>');
}
} else {
Log::RegistraLog('Falha ao realizar upload do arquivo de vídeo ' . $up->getFullPath() . ' - ' . $_POST['txtDesArquivo'] . '. Detalhes: ' . $up->getStatus(), true);
echo Comuns::Idioma('@lng[Problemas ao enviar o arquivo:]' . ' ' . $up->getStatus() . '<br /><br /><a href="vwuploaddetalhe.php?type=vid">@lng[Voltar]</a>');
}
}
} else {
Log::RegistraLog("Falha ao tentar enviar arquivo de vídeo. Detalhes: " . $up->getStatus(), true);
echo Comuns::Idioma($up->getStatus() . '<br /><br /><a href="vwuploaddetalhe.php?type=vid">@lng[Voltar]</a>');
}
}
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$u = unserialize($_SESSION['usu']);
$msgRet = "";
if ($u->TemPermissao(26)) {
if ($_REQUEST['hdnHorigem'] == "banco") {
foreach ($_REQUEST['chkUsar'] as $imagem) {
$value = base64_decode($imagem);
$valores = split("::::", $value);
$m = new Midia();
$m->setCodCaso($_SESSION['caso']);
$m->setTipoMidia(Comuns::TIPO_MIDIA_IMAGEM);
$m->setURL($valores[0]);
$m->setDescricao($valores[1]);
$m->setComplemento("@lng[Imagem do banco de imagens da UFCSPA]");
$m->setOrigem("banco");
if (!$m->Insere()) {
$msgRet = "ERRO: " . $m->getErro();
} else {
if ($_POST['txtTipo'] == "exame") {
$e = new Exame();
// Se tem alguma indicação de que seja um exame, então grava na tabela de exames
if ($e->InsereImagemExame($_SESSION['caso'], $_SESSION['exame'], $m->getCodMidia(), $m->getDescricao(), $m->getComplemento(), $m->getOrigem())) {
Log::RegistraLog('@lng[Realizado upload da imagem] ' . $m->getURL() . ' - ' . $m->getDescricao());
$msgRet = '@lng[Realizado upload da imagem] ' . $m->getURL() . ' - ' . $m->getDescricao();
} else {
Log::RegistraLog('@lng[Falha ao realizar upload da imagem]' . $m->getURL() . ' - ' . $m->getDescricao() . '. @lng[Detalhes:] ' . $e->getErro(), true);
$m->Deteta();
$up->DeletaArquivo($up->getFullPath());
$msgRet = '@lng[Não foi possível cadastrar a imagem] ' . $m->getURL() . '. @lng[Detalhes:] ' . $e->getErro() . '<br /><br /><a href="vwuploaddetalhe.php?type=img">@lng[Voltar]</a>';
}
} else {
$msgRet = "@lng[Imagem carregada]";
}
}
}
} else {
$msgRet = "ERRO: @lng[Origem inválida]";
}
} else {
$msgRet = "ERRO: @lng[Usuário sem permissão para cadastrar imagens]";
}
echo Comuns::Idioma($msgRet);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$tpl = file_get_contents("tpl/cad-componenteexame.html");
$codexame = base64_decode($_POST["c"]);
$registro = base64_decode($_POST['r']);
$tpl = str_replace("<!--hdnCodigoExame-->", $_POST["c"], $tpl);
$tpl = str_replace("<!--nomeexame-->", TipoExame::ConsultaNomeExame($codexame), $tpl);
// Lista os componentes já cadastrados
$componentes = new Componente();
$componentes->setCodexame($codexame);
if ($registro == "") {
$tpl = str_replace("<!--txtDescricao-->", "", $tpl);
$tpl = str_replace("<!--hdnCodigoComp-->", "", $tpl);
} else {
$componentes->setCodcomponente($registro);
$retorno = $componentes->Carrega();
$tpl = str_replace("<!--txtDescricao-->", $retorno->getDescricao(), $tpl);
$tpl = str_replace("<!--hdnCodigoComp-->", base64_encode($retorno->getCodcomponente()), $tpl);
}
$rs = $componentes->Lista();
if (count($rs) > 0) {
$tab = Comuns::TopoTabelaListagem("Componentes cadastrados", "componentes", array('Descrição', 'Ações'));
foreach ($rs as $comp) {
$excri = base64_encode($comp->CodExame);
$compcri = base64_encode($comp->Codigo);
$tab .= ' <tr id="' . $excri . '_' . $compcri . '">';
$tab .= ' <td>' . $comp->Descricao . '</td>';
$tab .= ' <td>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntEditaComponente(\'' . $excri . '\',\'' . $compcri . '\');">' . Comuns::IMG_ACAO_EDITAR . '</a>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntDeletaComponente(\'' . $excri . '\',\'' . $compcri . '\')">' . Comuns::IMG_ACAO_DELETAR . '</a>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntAbreValorRef(\'' . $excri . '\',\'' . $compcri . '\')">' . Comuns::IMG_ACAO_VALORES_REF . '</a>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntMoverComponente(\'' . $excri . '\',\'' . $compcri . '\')">' . Comuns::IMG_ACAO_MOVER . '</a>';
$tab .= ' </td>';
$tab .= ' </tr>';
}
$tab .= ' </tbody>';
$tab .= '</table>';
} else {
$tab = "<br />@lng[Nenhum componente cadastrado]";
}
$tpl = str_replace("<!--tabela-->", $tab, $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
//header('Content-Type: text/html; charset=iso-8859-1');
$acao = $_GET['act'];
$acaoload = false;
$tpl = file_get_contents("tpl/casos-inicio.html");
if ($acao == "new") {
$_SESSION['caso'] = 0;
} else {
if ($acao == "") {
if ($_GET['cod'] != "" && is_numeric(base64_decode($_GET['cod'])) == true) {
$_SESSION['caso'] = base64_decode($_GET['cod']);
} else {
if (!isset($_SESSION['caso'])) {
$_SESSION['caso'] = 0;
}
}
}
}
$tpl = str_replace("<!--javaonload-->", $acao == "new" ? "fntLoadTela('basicos');" : "", $tpl);
if (isset($_SESSION['caso']) && $_SESSION['caso'] > 0) {
if (Caso::ConsultaSituacao($_SESSION['caso']) == 0) {
$botoes = Botao::BotaoPublicar("fntPublicaCaso();", "@lng[Publicar o caso clínico]");
} else {
$botoes = Botao::BotaoDespublicar("fntDespublicaCaso();", "@lng[Cancelar publicação]");
}
$botoes .= Botao::BotaoVisualizar("fntInstanciaPreview('" . base64_encode($_SESSION['caso']) . "');", "@lng[Visualizar o caso clínico]");
$tpl = str_replace("caso-estilo", '', $tpl);
$infoscaso = Caso::ConsultaInfosCaso($_SESSION['caso']);
$evento = "Acessou o caso clínico " . $infoscaso['nome'] . " (código " . $infoscaso['codigo'] . ")";
Log::RegistraLog($evento);
} else {
$tpl = str_replace("caso-estilo", 'style="display:none;"', $tpl);
$botoes = "";
}
$tpl = str_replace("<!--itens-toolbar-->", $botoes, $tpl);
$tpl = str_replace("<!--CodCaso-->", base64_encode($_SESSION['caso']), $tpl);
$tpl = str_replace("<!--Mensagem-->", isset($mensagem) && $mensagem != "" ? base64_decode($mensagem) : "", $tpl);
$u = unserialize($_SESSION["usu"]);
$mensagem = $_GET["m"];
$tpl = str_replace("<!--telatopo-->", Comuns::GeraTopoPagina($u), $tpl);
echo Comuns::Idioma($tpl);
}
function Main()
{
$u = unserialize($_SESSION['usu']);
$res = new Resolucao();
$res->setCodcaso($_SESSION['casores']);
$res->setCodUsuario($u->getCodigo());
$msg = "";
if ($u->TemGrupo(1) || $u->TemGrupo(4)) {
if (Caso::ConsultaSituacao($_SESSION['casores']) == 0) {
if (!$res->LimpaResolucao()) {
$msg = "@lng[Erro ao limpar histórico de resoluções.]" . " " . $res->getErro();
} else {
$msg = "OK";
}
} else {
$msg = "@lng[Erro. Este caso está publicado e não é possível limpar suas resoluções]";
}
}
echo Comuns::Idioma($msg);
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$codexame = base64_decode($_POST["c"]);
$codcomp = base64_decode($_POST["r"]);
$c = new Componente();
$c->setCodexame($codexame);
$c->setCodcomponente($codcomp);
if ($c->PodeExcluir()) {
$ret = "";
$ret = $c->Deleta();
if ($ret == true) {
echo "OK";
} else {
echo $c->getErro();
}
} else {
echo Comuns::Idioma("@lng[O registro não pode ser excluido pois está sendo usado por outro registro]");
}
}
function Main()
{
if (isset($_SESSION['caso']) && $_SESSION['caso'] != 0) {
if (isset($_SESSION['exame']) && $_SESSION['exame'] > 0) {
if (isset($_SESSION['itemexame']) && $_SESSION['itemexame'] > 0) {
if (isset($_GET["type"]) && $_GET["type"] == "doc") {
$tpl = file_get_contents("tpl/caso-atualiza-item-doc-exame.html");
} else {
$tpl = file_get_contents("tpl/caso-atualiza-item-exame.html");
}
$e = new Exame();
$item = $e->CarregaImagemExame($_SESSION['caso'], $_SESSION['exame'], $_SESSION['itemexame']);
if ($item != false) {
$urlimg = '<img class="thumbatual" src="viewimagem.php?img=' . base64_encode($item->Valor) . '">';
$tpl = str_replace('<!--caminhoimagem-->', $urlimg, $tpl);
$tpl = str_replace('<!--txtDesArquivo-->', $item->Descricao, $tpl);
$tpl = str_replace('<!--txtComplementoImagem-->', $item->Complemento, $tpl);
$tpl = str_replace('<!--tipo-->', $item->TipoItem, $tpl);
if ($_GET['act'] == "redir") {
$tpl = str_replace('<!--retornoacao-->', "fntExibeRetorno('OK', '" . base64_encode($_SESSION['exame']) . "');", $tpl);
} else {
if ($_GET['act'] == "fica") {
$tpl = str_replace('<!--retornoacao-->', "fntExibeRetorno('" . base64_decode($_GET['act']) . "', '" . base64_decode($_GET['ret']) . "');", $tpl);
} else {
$tpl = str_replace('<!--retornoacao-->', "", $tpl);
}
}
} else {
$tpl = $e->getErro();
}
} else {
$tpl = "@lng[Item não encontrado]";
}
} else {
$tpl = "@lng[Exame não encontrado]";
}
} else {
$tpl = "@lng[Caso de estudo não encontrado]";
}
echo Comuns::Idioma($tpl);
}
