function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$codexame = base64_decode($_POST["e"]);
$codcompo = base64_decode($_POST["c"]);
$agrupador = base64_decode($_POST["r"]);
$v = new ValorReferencia();
$v->setCodexame($codexame);
$v->setCodcomponente($codcompo);
$v->setAgrupador($agrupador);
if ($v->PodeExcluir()) {
$ret = "";
$ret = $v->Deleta();
if ($ret == true) {
echo "OK";
} else {
echo $v->getErro();
}
} else {
echo Comuns::Idioma("@lng[O registro não pode ser excluido pois está sendo usado por outro registro]");
}
}
function Main()
{
header('Content-Type: text/html; charset=iso-8859-1');
$tpl = file_get_contents("tpl/cad-valoresreferencia.html");
// Pode ser que o componente do exame seja zero.
// Isso indica um exame sem componentes
$codexame = base64_decode($_POST['e']);
$codcompo = base64_decode($_POST['c']);
$registro = base64_decode($_POST['r']);
$nomepai = "";
if ($codcompo == 0) {
$nomepai = TipoExame::ConsultaNomeExame($codexame);
$tipo = "exame";
} else {
$nomepai = Componente::ConsultaNomeComponente($codexame, $codcompo);
$tipo = "componente";
}
$tpl = str_replace("<!--hdnCodigoExame-->", $_POST["e"], $tpl);
$tpl = str_replace("<!--hdnCodigoCompo-->", $_POST["c"], $tpl);
$tpl = str_replace("<!--nomeexame-->", $nomepai, $tpl);
$tpl = str_replace("<!--tipo-->", $tipo, $tpl);
$valref = new ValorReferencia();
$valref->setCodexame($codexame);
$valref->setCodcomponente($codcompo);
if ($registro == "") {
$tpl = str_replace("<!--txtAgrupador-->", "", $tpl);
$tpl = str_replace("<!--txtValMin-->", "", $tpl);
$tpl = str_replace("<!--txtValMax-->", "", $tpl);
$tpl = str_replace("<!--txtValIgual-->", "", $tpl);
$tpl = str_replace("<!--txtUnidMedida-->", "", $tpl);
$tpl = str_replace("<!--opcoestipovalor-->", TipoValorReferencia::RetornaSelect(0), $tpl);
$tpl = str_replace("<!--chkmarcado-->", "", $tpl);
} else {
if ($registro == "--") {
$valref->setAgrupador("");
} else {
$valref->setAgrupador($registro);
}
$retorno = $valref->Carrega();
$tpl = str_replace("<!--txtAgrupador-->", $retorno->getAgrupador(), $tpl);
$tpl = str_replace("<!--txtValMin-->", $retorno->getVlrminimo(), $tpl);
$tpl = str_replace("<!--txtValMax-->", $retorno->getVlrmaximo(), $tpl);
$tpl = str_replace("<!--txtValIgual-->", $retorno->getVlrminimo(), $tpl);
$tpl = str_replace("<!--txtUnidMedida-->", $retorno->getUnidadeMedida(), $tpl);
$tpl = str_replace("<!--opcoestipovalor-->", TipoValorReferencia::RetornaSelect($retorno->getTipo()), $tpl);
if ($retorno->getTemagrupador() == 1) {
$tpl = str_replace("<!--chkmarcado-->", "", $tpl);
} else {
$tpl = str_replace('<!--chkmarcado-->', 'checked="checked"', $tpl);
}
}
$rs = $valref->Lista();
if (count($rs) > 0) {
$tab = Comuns::TopoTabelaListagem("Valores de referência", "valref", array('Agrupador', 'Referência', 'Unid. Medida', 'Ações'));
foreach ($rs as $reg) {
$cri_codexame = base64_encode($reg->CodExame);
$cri_codcompo = base64_encode($reg->CodComponente);
$cri_agrupador = base64_encode($reg->Agrupador);
$tab .= ' <tr>';
$tab .= ' <td>' . $reg->Agrupador . '</td>';
$tab .= ' <td>' . $reg->Descricao . '</td>';
$tab .= ' <td>' . $reg->UnidadeMedida . '</td>';
$tab .= ' <td>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntEditaValorRef(\'' . $cri_codexame . '\',\'' . $cri_codcompo . '\', \'' . $cri_agrupador . '\');">' . Comuns::IMG_ACAO_EDITAR . '</a>';
$tab .= ' <a href="javascript:void(0);" onclick="javascript:fntDeletaValorRef(\'' . $cri_codexame . '\',\'' . $cri_codcompo . '\', \'' . $cri_agrupador . '\')">' . Comuns::IMG_ACAO_DELETAR . '</a>';
$tab .= ' </td>';
$tab .= ' </tr>';
}
$tab .= ' </tbody>';
$tab .= '</table>';
} else {
$tab = "<br />@lng[Nenhum valor de referência cadastrado]";
}
$tpl = str_replace("<!--tabela-->", $tab, $tpl);
echo Comuns::Idioma($tpl);
}
/**
* Retorna um objeto do tipo ValorReferencia com o registro selecionado
* @return objeto : ValorReferencia ou false
* */
public function Carrega()
{
$sql = "SELECT CodExame, CodComponente, TemAgrupador, Agrupador, Tipo, CASE WHEN ValMin IS NULL THEN '' ELSE ValMin END AS ValMin, CASE WHEN ValMax IS NULL THEN '' ELSE ValMax END AS ValMax, UnidadeMedida ";
$sql .= "FROM mestipoexamevalref ";
$sql .= "WHERE CodExame = :pCodExame AND CodComponente = :pCodComponente AND Agrupador = :pAgrupador;";
$cnn = Conexao2::getInstance();
$cmd = $cnn->prepare($sql);
$cmd->bindParam(":pCodExame", $this->codexame, PDO::PARAM_INT);
$cmd->bindParam(":pCodComponente", $this->codcomponente, PDO::PARAM_INT);
$cmd->bindParam(":pAgrupador", $this->agrupador, PDO::PARAM_STR);
$cmd->execute();
if ($cmd->errorCode() == Comuns::QUERY_OK) {
$vlr = new ValorReferencia();
$rs = $cmd->fetch(PDO::FETCH_OBJ);
$vlr->setCodexame($rs->CodExame);
$vlr->setCodcomponente($rs->CodComponente);
$vlr->setTemagrupador($rs->TemAgrupador);
$vlr->setAgrupador($rs->Agrupador);
$vlr->setTipo($rs->Tipo);
$vlr->setVlrminimo($rs->ValMin);
$vlr->setVlrmaximo($rs->ValMax);
$vlr->setUnidadeMedida(is_null($rs->UnidadeMedida) ? '' : $rs->UnidadeMedida);
$cmd->closeCursor();
return $vlr;
} else {
$erro = $cmd->errorInfo();
echo $erro[2];
return false;
}
}
function Main()
{
$codexame = base64_decode($_POST["hdnCodigoExame"]);
$codcompo = base64_decode($_POST["hdnCodigoCompo"]);
$temagrup = trim($_POST["txtAgrupador"]) != "" && !isset($_POST["chkSemAgrupador"]) ? 1 : 0;
$agrupador = urldecode($_POST["txtAgrupador"]);
$tipovalor = $_POST["selTipoValor"];
$valminimo = urldecode($_POST["txtValMin"]);
$valmaximo = urldecode($_POST["txtValMax"]);
$valigual = urldecode($_POST["txtValIgual"]);
$unmedida = urldecode($_POST["txtUnidMedida"]);
header('Content-Type: text/html; charset=iso-8859-1');
try {
$v = new ValorReferencia();
if ($codexame != "") {
$v->setCodexame($codexame);
}
if ($codcompo != "") {
$v->setCodcomponente($codcompo);
}
$v->setTemagrupador($temagrup);
if ($temagrup == 1) {
$v->setAgrupador($agrupador);
} else {
$v->setAgrupador("");
}
switch ($tipovalor) {
case 1:
if ($valminimo != "") {
$v->setVlrminimo($valminimo);
}
if ($valmaximo != "") {
$v->setVlrmaximo($valmaximo);
}
break;
case 2:
case 6:
if ($valminimo != "") {
$v->setVlrminimo($valminimo);
}
break;
case 3:
case 5:
if ($valmaximo != "") {
$v->setVlrmaximo($valmaximo);
}
break;
case 4:
if ($valigual != "") {
$v->setVlrminimo($valigual);
}
break;
}
$v->setTipo($tipovalor);
if ($unmedida != "") {
$v->setUnidadeMedida($unmedida);
}
$ret = "";
if (!$v->ExisteChave()) {
$ret = $v->Insere();
} else {
$ret = $v->Altera();
}
if ($ret == true) {
echo "GRAVADO";
} else {
echo $v->getErro();
}
} catch (PDOException $ex) {
echo $ex->getMessage();
}
}
