Пример #1
0
function Main()
{
    $hash = new HashTable();
    echo "Primeiro teste: Adicionar elementos<br /><br />";
    $hash->AddItem("Nome", "Regis");
    $hash->AddItem("Sobrenome", "Sebastiani");
    echo "Segundo teste: Verificar se existem elementos<br /><br />";
    if ($hash->ContainsKey("Sobrenome")) {
        echo "Tem Sobrenome<br /><br />";
    } else {
        echo "N? tem Sobrenome<br /><br />";
    }
    if ($hash->ContainsKey("Endere?")) {
        echo "Tem Endere?<br /><br />";
    } else {
        echo "N? tem Endere?<br /><br />";
    }
    if ($hash->ContainsValue("Regis")) {
        echo "Tem o valor Regis<br /><br />";
    } else {
        echo "N? tem o valor Regis<br /><br />";
    }
    if ($hash->ContainsValue("teste")) {
        echo "Tem o valor teste<br /><br />";
    } else {
        echo "N? tem o valor teste<br /><br />";
    }
    echo "Terceiro teste: Recuperando um valor<br /><br />";
    echo $hash->getValue("Nome") . "<br /><br />";
    echo "Quarto teste: Gerando XML<br /><br />";
    echo $hash->ToXML();
}
Пример #2
0
function Main()
{
    $dados = new HashTable();
    switch ($_POST['tipo']) {
        case "exames":
            $rels = fntMostraRelacoesExame();
            $dados->AddItem("relacoes", $rels);
            break;
    }
    echo $dados->ToXML();
}
Пример #3
0
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);
}
Пример #4
0
function TrataDadosConteudosDlg()
{
    $dados = new HashTable();
    if (isset($_SESSION['caso']) && $_SESSION['caso'] != 0) {
        $c = new Conteudo();
        if ($_POST['r'] != "") {
            $codconteudo = base64_decode($_POST['r']);
            $_SESSION['conteudo'] = $codconteudo;
            $c->Carrega($_SESSION['caso'], $codconteudo);
            $dados->AddItem("txtTexto", $c->getTexto());
            $dados->AddItem("txtDescricao", $c->getDescricao());
        } else {
            $_SESSION['conteudo'] = 0;
            $dados->AddItem("txtTexto", "");
            $dados->AddItem("txtDescricao", "");
        }
        return $dados->ToXML();
    } else {
        return "@lng[Erro ao localizar o caso de estudo]";
    }
}
Пример #5
0
 public function RetornaConfigs($tipo, $item)
 {
     $sql .= "SELECT conf.CodConfig, conf.Prefixo, conf.Nome, val.Valor ";
     $sql .= "FROM mescasomontagemconfigs conf ";
     $sql .= "LEFT OUTER JOIN mescasomontagemvalconfigs val ";
     $sql .= "\t\t\t ON val.CodConfig = conf.CodConfig ";
     $sql .= "\t\t\tAND val.CodCaso = :pCodCaso ";
     $sql .= "\t\t\tAND val.CodMontagem = 1 ";
     $sql .= "\t\t\tAND val.Chave = :pChave ";
     $sql .= "WHERE ((conf.Grupo & (SELECT CodBinario FROM mestipoitem WHERE Codigo = :pTipoItem)) > 0);";
     /*
     $sql  = "SELECT val.CodConfig, val.Valor, conf.Prefixo ";
     $sql .= "FROM mescasomontagemvalconfigs val ";
     $sql .= "INNER JOIN mescasomontagemconfigs conf ";
     $sql .= "		 ON conf.CodConfig = val.CodConfig ";
     $sql .= "WHERE CodCaso = :pCodCaso ";
     $sql .= "  AND CodMontagem = 1 ";
     $sql .= "  AND Chave = :pChave";
     */
     $cnn = Conexao2::getInstance();
     $cmd = $cnn->prepare($sql);
     $cmd->bindParam(":pCodCaso", $this->codcaso, PDO::PARAM_INT);
     $cmd->bindParam(":pChave", $item, PDO::PARAM_STR);
     $cmd->bindParam(":pTipoItem", $tipo, PDO::FETCH_OBJ);
     $cmd->execute();
     if ($cmd->errorCode() == Comuns::QUERY_OK) {
         if ($cmd->rowCount() > 0) {
             $hash = new HashTable();
             $arrconfs = "";
             while ($item = $cmd->fetch(PDO::FETCH_OBJ)) {
                 $hash->AddItem($item->Prefixo . "Config_" . $item->CodConfig, $item->Valor);
                 $arrconfs .= ($arrconfs != '' ? ';' : '') . $item->CodConfig;
             }
             $hash->AddItem("ArrConfs", $arrconfs);
             return $hash->ToXML();
         } else {
             $this->msg_erro = "@lng[Nada cadastrado]";
             return false;
         }
     } else {
         $msg = $cmd->errorInfo();
         $this->msg_erro = $msg[2];
         return false;
     }
 }