Viewing File: /home/cienp/public_html/portal/sql_anim_solc.php
<?php
$dt_atua = date("Y-m-d H:i:s");
echo ".";
function env_mail($solc,$mens,$titl,$para) {
require "includes/conecta.php";
$sqlad = "SELECT u.de_mail ";
$sqlad .= "FROM ".$pref_tabl."user u ";
$sqlad .= "WHERE fl_anim IN ('A','B') "; // Biotério e Administradores
$sqlad .= "AND fl_atvo = 'S' ";
$sqlad .= "AND id_user <> 1 "; // Administrador Commix
$resad = mysqli_query($conn, $sqlad);
if (mysqli_num_rows($resad) > 0) {
while ($linhaad = mysqli_fetch_array($resad)) {
if ($linhaad[de_mail] != '') {
$to .= $linhaad[de_mail].',';
}
}
}
if ($para == 'C') {
$sqlcd = "SELECT u.de_mail ";
$sqlcd .= "FROM ".$pref_tabl."anim_solc a, ".$pref_tabl."user u ";
$sqlcd .= "WHERE a.id_cads = u.id_user ";
$sqlcd .= "AND a.id_solc = '$solc' ";
$sqlcd .= "LIMIT 1 ";
$rescd = mysqli_query($conn, $sqlcd);
if (mysqli_num_rows($rescd) > 0) {
$linhacd = mysqli_fetch_array($rescd);
if ($linhacd[de_mail] != '') {
$to .= $linhacd[de_mail].',';
}
}
}
if ($para == 'D') { // Diretores aprovadores
$sqldr = "SELECT u.de_mail ";
$sqldr .= "FROM ".$pref_tabl."user u ";
$sqldr .= "WHERE fl_anim = 'D' "; // Direção
$sqldr .= "AND fl_atvo = 'S' ";
$resdr = mysqli_query($conn, $sqldr);
if (mysqli_num_rows($resdr) > 0) {
while ($linhadr = mysqli_fetch_array($resdr)) {
if ($linhadr[de_mail] != '') {
$to .= $linhadr[de_mail].',';
}
}
}
}
$to = substr($to,0,-1);
$mensagem = "
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"pt-BR\" lang=\"pt-BR\">
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<style TYPE='text/css'>
A {text-decoration: none}
A:link {color:'#89211b';}
A:visited {color:'#89211b';}
A:hover {color:'#000000';}
</style>
</head>
<body>
<p align='left'><font color='#000000' size='2' face='Arial, Helvetica'>
$mens<br><br>
Atenciosamente,<br><br>
CIEnP<br>
Centro de Inovação e Ensaios Pré-Clínicos<br>
Software de Solicitação de Animais<br>
</font><br/></p>
</body>
</html>
";
$snap = "\n";
$from = "compras@cienp.org.br";
// $from = "atendimento@commix.com.br";
$boundary = "==Multipart_Boundary_x".md5(time())."x";
$body = stripslashes($mensagem);
// Criamos os cabeçalhos MIME utilizados para separar as partes da mensagem MIME
$html = "--".$boundary.$snap;
$html .= "Content-Transfer-Encoding: 8bits".$snap;
$html .= "Content-Type: text/html; charset=\"ISO-8859-1\"".$snap.$snap;
$html .= $body.$snap;
$html .= "--".$boundary."--";
// Adiciono os cabeçalhos de um arquivo anexado
$head = "MIME-Version: 1.0".$snap;
$head .= "From: $from".$snap;
$head .= "Return-Path: $from".$snap;
$head .= "Reply-to: $from".$snap;
$head .= "Bcc:".$snap;
$head .= "Content-type: multipart/alternative; boundary=\"{$boundary}\"".$snap;
$head .= $boundary.$snap;
//$to = 'jarbas.siqueira@cienp.org.br';
@mail($to, $titl, $html, $head);
}
switch ($_POST[opc]){
case "ins":
require "$this->include_dir/conecta.php";
$s_id_colb = protecao($_POST[id_colb],'inteiro');
$s_id_resp = protecao($_POST[id_resp],'inteiro');
$s_id_estd = protecao($_POST[id_estd],'inteiro');
$s_nu_ceua = protecao($_POST[nu_ceua]);
$s_nu_durc = protecao($_POST[nu_durc],'inteiro');
$s_dt_inic = protecao($_POST[dt_inic],'data');
$s_dt_finl = protecao($_POST[dt_finl],'data');
$s_fl_enrq = protecao($_POST[fl_enrq]);
$s_de_obsr = protecao($_POST[de_obsr]);
if ($s_dt_inic != '') {
$d1 = explode('/', $s_dt_inic);
$dt_inic = $d1[2]."-".$d1[1]."-".$d1[0];
}
if ($s_dt_finl != '') {
$d1 = explode('/', $s_dt_finl);
$dt_finl = $d1[2]."-".$d1[1]."-".$d1[0];
}
$sql = "INSERT INTO ".$pref_tabl."anim_solc ";
$sql .= "(id_colb, id_resp, id_estd, nu_ceua, nu_durc, dt_inic, dt_finl, fl_enrq, de_obsr, dt_cads, id_cads) ";
$sql .= "VALUES ('$s_id_colb', '$s_id_resp', '$s_id_estd', '$s_nu_ceua', '$s_nu_durc', '$dt_inic', '$dt_finl', '$s_fl_enrq', '$s_de_obsr', '$dt_atua', $linhau[id_user])";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=S";
$sqln = "SELECT MAX(id_solc) as id_solc ";
$sqln .= "FROM ".$pref_tabl."anim_solc";
$resn = mysqli_query($conn, $sqln);
if (mysqli_num_rows($resn) > 0) {
$linhan = mysqli_fetch_array($resn);
$_POST[id_solc] = $linhan[id_solc];
}
// envia e-mail
$mens = "Uma nova SA nº $linhan[id_solc] esta em elaboração.";
$titl = "Solicitação de Animais - Em elaboração - CIEnP";
env_mail($linhan[id_solc],$mens,$titl,'');
} else
$onde = "index1.php?pg=ins_anim_solc&certo=N";
break;
case "alt":
$erros = 0;
require "$this->include_dir/conecta.php";
if ($erros == 0) {
$s_id_colb = protecao($_POST[id_colb],'inteiro');
$s_id_resp = protecao($_POST[id_resp],'inteiro');
$s_id_estd = protecao($_POST[id_estd],'inteiro');
$s_nu_ceua = protecao($_POST[nu_ceua]);
$s_nu_durc = protecao($_POST[nu_durc],'inteiro');
$s_dt_inic = protecao($_POST[dt_inic],'data');
$s_dt_finl = protecao($_POST[dt_finl],'data');
$s_fl_enrq = protecao($_POST[fl_enrq]);
$s_de_obsr = protecao($_POST[de_obsr]);
$s_id_solc = protecao($_POST[id_solc],'inteiro');
if ($s_dt_inic != '') {
$d1 = explode('/', $s_dt_inic);
$dt_inic = $d1[2]."-".$d1[1]."-".$d1[0];
}
if ($s_dt_finl != '') {
$d1 = explode('/', $s_dt_finl);
$dt_finl = $d1[2]."-".$d1[1]."-".$d1[0];
}
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_colb = '$s_id_colb', ";
$sql .= "id_resp = '$s_id_resp', ";
$sql .= "id_estd = '$s_id_estd', ";
$sql .= "nu_ceua = '$s_nu_ceua', ";
$sql .= "nu_durc = '$s_nu_durc', ";
$sql .= "dt_inic = '$dt_inic', ";
$sql .= "dt_finl = '$dt_finl', ";
$sql .= "fl_enrq = '$s_fl_enrq', ";
$sql .= "de_obsr = '$s_de_obsr', ";
$sql .= "id_altr = '$linhau[id_user]', ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = $s_id_solc ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=S";
} else
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "ins_anim_anim":
require "$this->include_dir/conecta.php";
$s_id_linh = protecao($_POST[id_linh],'inteiro');
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_nu_idad = protecao($_POST[nu_idad]);
$s_vl_peso = protecao($_POST[vl_peso]);
$s_nu_mach = protecao($_POST[nu_mach]);
$s_nu_fema = protecao($_POST[nu_fema]);
$s_dt_utlz = protecao($_POST[dt_utlz],'data');
$s_de_obsr = protecao($_POST[de_obsr]);
if ($s_dt_utlz != '') {
$d1 = explode('/', $s_dt_utlz);
$dt_utlz = $d1[2]."-".$d1[1]."-".$d1[0];
}
$sql = "INSERT INTO ".$pref_tabl."anim_anim ";
$sql .= "(id_linh, id_solc, nu_idad, vl_peso, nu_mach, nu_fema, ";
$sql .= "dt_utlz, de_obsr, dt_cads, id_cads) ";
$sql .= "VALUES ('$s_id_linh', '$s_id_solc', '$s_nu_idad', '$s_vl_peso', '$s_nu_mach', '$s_nu_fema', ";
$sql .= "'$dt_utlz', '$s_de_obsr', '$dt_atua', $linhau[id_user])";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SA";
} else
$onde = "index1.php?pg=ver_anim_solc&certo=NA";
break;
case "exc_anim_anim":
require "$this->include_dir/conecta.php";
$s_id_anim = protecao($_POST[id_anim],'inteiro');
if ($s_id_anim > 0) {
$sql = "DELETE FROM ".$pref_tabl."anim_anim ";
$sql .= "WHERE id_anim = '$s_id_anim' ";
$sql .= "LIMIT 1";
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=XA";
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "finl_pree":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '2', ";
$sql .= "id_altr = '$linhau[id_user]', ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SP";
// envia e-mail
$mens = "A SA nº $s_id_solc teve seu preenchimento finalizado e esta na situção Aguardando Aprovação.";
$titl = "Solicitação de Animais - Aguardando Aprovação - CIEnP";
env_mail($s_id_solc,$mens,$titl,'D');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "alt_reab":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '10', ";
$sql .= "id_altr = '$linhau[id_user]', ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SP";
// envia e-mail
$mens = "A SA nº $s_id_solc foi reaberta.";
$titl = "Solicitação de Animais - Reabertura de SA - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "ins_parc":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_dt_prev = protecao($_POST[dt_prev],'data');
$s_nu_mach = protecao($_POST[nu_mach],'inteiro');
$s_nu_fema = protecao($_POST[nu_fema],'inteiro');
if ($s_dt_prev != '') {
$d1 = explode('/', $s_dt_prev);
$dt_prev = $d1[2]."-".$d1[1]."-".$d1[0];
}
$sql = "SELECT a.nu_mach, a.nu_fema, s.id_sitc, s.id_solc ";
$sql .= "FROM ".$pref_tabl."anim_anim a, ".$pref_tabl."anim_solc s ";
$sql .= "WHERE a.id_solc = s.id_solc ";
$sql .= "AND a.id_anim = '$s_id_anim' ";
$sql .= "LIMIT 1 ";
#echo $sqlm.'<br>';
$res = mysqli_query($conn, $sql);
if (mysqli_num_rows($res) > 0) {
$linha = mysqli_fetch_array($res);
$nu_mach = $linha[nu_mach] - $s_nu_mach;
$nu_fema = $linha[nu_fema] - $s_nu_fema;
$nu_parc = 0;
$sqlp = "SELECT a.nu_mach, a.nu_fema, a.nu_parc ";
$sqlp .= "FROM ".$pref_tabl."anim_parc a ";
$sqlp .= "WHERE a.id_anim = '$s_id_anim' ";
$sqlp .= "AND fl_tipo IN ('U','R') "; // Utilizado e Recebido
$sqlp .= "ORDER BY nu_parc ";
#echo $sqlp.'<br>';
$resp = mysqli_query($conn, $sqlp);
if (mysqli_num_rows($resp) > 0) {
while ($linhap = mysqli_fetch_array($resp)) {
$nu_mach = $nu_mach - $linhap[nu_mach];
$nu_fema = $nu_fema - $linhap[nu_fema];
}
}
$sqlc = "SELECT MAX(nu_parc) as nu_parc ";
$sqlc .= "FROM ".$pref_tabl."anim_parc ";
$sqlc .= "WHERE id_anim = '$s_id_anim' ";
#echo $sqlc.'<br>';
$resc = mysqli_query($conn, $sqlc);
if (mysqli_num_rows($resc) > 0) {
$linhac = mysqli_fetch_array($resc);
$nu_parc = $linhac[nu_parc];
}
$nu_parc++;
if (($nu_mach >= 0)
&& ($nu_fema >= 0)) {
$sql = "INSERT INTO ".$pref_tabl."anim_parc ";
$sql .= "(id_anim, dt_prev, nu_mach, nu_fema, nu_parc, dt_cads, id_cads) ";
$sql .= "VALUES ('$s_id_anim', '$dt_prev', '$s_nu_mach', '$s_nu_fema', '$nu_parc', '$dt_atua', $linhau[id_user])";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=SP";
// envia e-mail
$mens = "Foi inserida uma nova parcela na SA nº $s_id_solc.";
$titl = "Solicitação de Animais Nova Parcela de SA - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
// altera a situção da solicitação de aprovado para Liberado para Utilização
if (($linha['id_sitc'] == 3) // Em produção
|| ($linha['id_sitc'] == 7) // Nascidos
|| ($linha['id_sitc'] == 8)) { // Aguardando Idade
$sqlsc = "UPDATE ".$pref_tabl."anim_solc ";
$sqlsc .= "SET id_sitc = '4' "; // Entregue
$sqlsc .= "WHERE id_solc = '$linha[id_solc]' ";
$sqlsc .= "LIMIT 1 ";
#echo $sqlsc;
$ressc = mysqli_query($conn, $sqlsc);
// envia e-mail
$mens = "A SA nº $s_id_solc teve sua situação alterada para Entregue (pelo Biotério).";
$titl = "Solicitação de Animais - Entregue (pelo Biotério) - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=NT";
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
case "ins_entg":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_id_parc = protecao($_POST[id_parc],'inteiro');
$s_dt_entg = protecao($_POST[dt_entg],'data');
if ($s_dt_entg != '') {
$d1 = explode('/', $s_dt_entg);
$dt_entg = $d1[2]."-".$d1[1]."-".$d1[0];
}
$sql = "UPDATE ".$pref_tabl."anim_parc ";
$sql .= "SET dt_entg = '$dt_entg', ";
$sql .= "id_altr = '$linhau[id_user]', ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_parc = '$s_id_parc' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=SC";
// envia e-mail
$mens = "Uma parcela da SA nº $s_id_solc foi marcada como entregue.";
$titl = "Solicitação de Animais - Data de Entrega - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
case "ins_recb":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_id_parc = protecao($_POST[id_parc_recb],'inteiro');
$s_de_obsr = protecao($_POST[de_obsr]);
$sql = "UPDATE ".$pref_tabl."anim_parc ";
$sql .= "SET dt_recb = '$dt_atua', ";
$sql .= "de_obsr = '$s_de_obsr', ";
$sql .= "id_recb = '$linhau[id_user]' ";
$sql .= "WHERE id_parc = '$s_id_parc' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=SC";
// envia e-mail
$mens = "Uma parcela da SA nº $s_id_solc foi marcada como recebida.";
$titl = "Solicitação de Animais - Recebimento de Parcela - CIEnP";
env_mail($s_id_solc,$mens,$titl,'');
// verifica se foram recebidas todas as parcelas
$sqlss = "SELECT a.nu_mach, a.nu_fema, a.id_solc ";
$sqlss .= "FROM ".$pref_tabl."anim_anim a ";
$sqlss .= "WHERE a.id_anim = '$s_id_anim' ";
$sqlss .= "LIMIT 1 ";
#echo $sqlss.'<br>';
$resss = mysqli_query($conn, $sqlss);
if (mysqli_num_rows($resss) > 0) {
$linhass = mysqli_fetch_array($resss);
// echo $linhass[nu_mach].' Machos <br>';
// echo $linhass[nu_fema].' Femeas <br>';
$nu_mach = 0;
$nu_fema = 0;
$sqlp = "SELECT SUM(a.nu_mach) as nu_mach, SUM(a.nu_fema) as nu_fema ";
$sqlp .= "FROM ".$pref_tabl."anim_parc a ";
$sqlp .= "WHERE a.id_anim = '$s_id_anim' ";
$sqlp .= "AND fl_tipo IN ('U') "; // Utilizado
$sqlp .= "AND dt_recb <> '' "; // recebido
#echo $sqlp.'<br>';
$resp = mysqli_query($conn, $sqlp);
if (mysqli_num_rows($resp) > 0) {
$linhap = mysqli_fetch_array($resp);
$nu_mach = $linhap[nu_mach];
$nu_fema = $linhap[nu_fema];
}
// $sqlt = "SELECT SUM(a.nu_mach) as nu_mach, SUM(a.nu_fema) as nu_fema ";
// $sqlt .= "FROM ".$pref_tabl."anim_parc a ";
// $sqlt .= "WHERE a.id_anim = '$s_id_anim' ";
// $sqlt .= "AND fl_tipo = 'T' "; // Transferido
// #echo $sqlt.'<br>';
// $rest = mysqli_query($conn, $sqlt);
// if (mysqli_num_rows($rest) > 0) {
// $linhat = mysqli_fetch_array($rest);
// $nu_mach = $nu_mach + $linhat[nu_mach];
// $nu_fema = $nu_fema + $linhat[nu_fema];
// }
// echo $nu_mach.' Machos <br>';
// echo $nu_fema.' Femeas <br>';
// todos foram recebidos
if (($nu_mach == $linhass[nu_mach])
&& ($nu_fema == $linhass[nu_fema])) {
$sqlst = "UPDATE ".$pref_tabl."anim_solc ";
$sqlst .= "SET id_sitc = '9', "; // Recebido
$sqlst .= "id_altr = '$linhau[id_user]', ";
$sqlst .= "dt_altr = '$dt_atua' ";
$sqlst .= "WHERE id_solc = '$linhass[id_solc]' ";
$sqlst .= "LIMIT 1";
//echo $sqlst;
$resst = mysqli_query($conn, $sqlst);
// envia e-mail
$mens = "A SA nº $s_id_solc teve sua situação alterada para Recebido (Pelo Solicitante).";
$titl = "Solicitação de Animais - Recebido (Pelo Solicitante) - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
}
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
case "exc_parc":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_id_parc = protecao($_POST[id_parc],'inteiro');
$sql = "DELETE FROM ".$pref_tabl."anim_parc ";
$sql .= "WHERE id_parc = '$s_id_parc' ";
$sql .= "AND id_anim = '$s_id_anim' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=SX";
// envia e-mail
$mens = "Uma parcela da SA nº $s_id_solc foi excluída.";
$titl = "Solicitação de Animais - Exclusão de Parcela - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
case "ins_tran":
require "$this->include_dir/conecta.php";
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_dest = protecao($_POST[id_dest],'inteiro');
$s_nu_mach = protecao($_POST[nu_mach],'inteiro');
$s_nu_fema = protecao($_POST[nu_fema],'inteiro');
// verifica se destino esta na situação correta
$sqldp = "SELECT id_solc ";
$sqldp .= "FROM ".$pref_tabl."anim_solc ";
$sqldp .= "WHERE id_sitc IN (4,9) "; // Entregue ou Recebido
$sqldp .= "AND id_solc = '$s_id_dest' ";
$sqldp .= "ORDER BY id_solc DESC ";
$resdp = mysqli_query($conn, $sqldp);
if (mysqli_num_rows($resdp) > 0) {
$sqlss = "SELECT a.*, s.id_sitc ";
$sqlss .= "FROM ".$pref_tabl."anim_solc s, ".$pref_tabl."anim_anim a ";
$sqlss .= "WHERE a.id_solc = s.id_solc ";
$sqlss .= "AND a.id_anim = '$s_id_anim' ";
$sqlss .= "LIMIT 1 ";
#echo $sqlss.'<br>';
$resss = mysqli_query($conn, $sqlss);
if (mysqli_num_rows($resss) > 0) {
$linhass = mysqli_fetch_array($resss);
if (($linhass[id_sitc] == 9)
|| ($linhass[id_sitc] == 4)) {
$nu_mach = 0;
$nu_fema = 0;
$sqlp = "SELECT SUM(a.nu_mach) as nu_mach, SUM(a.nu_fema) as nu_fema ";
$sqlp .= "FROM ".$pref_tabl."anim_parc a ";
$sqlp .= "WHERE a.id_anim = '$s_id_anim' ";
$sqlp .= "AND fl_tipo IN ('U','R') "; // Utilizado e Recebido
#echo $sqlp.'<br>';
$resp = mysqli_query($conn, $sqlp);
if (mysqli_num_rows($resp) > 0) {
$linhap = mysqli_fetch_array($resp);
$nu_mach = $linhap[nu_mach];
$nu_fema = $linhap[nu_fema];
}
$sqlt = "SELECT SUM(a.nu_mach) as nu_mach, SUM(a.nu_fema) as nu_fema ";
$sqlt .= "FROM ".$pref_tabl."anim_parc a ";
$sqlt .= "WHERE a.id_anim = '$s_id_anim' ";
$sqlt .= "AND fl_tipo = 'T' "; // Transferido
#echo $sqlt.'<br>';
$rest = mysqli_query($conn, $sqlt);
if (mysqli_num_rows($rest) > 0) {
$linhat = mysqli_fetch_array($rest);
$nu_mach = $nu_mach - $linhat[nu_mach];
$nu_fema = $nu_fema - $linhat[nu_fema];
}
if (($nu_mach >= 0)
&& ($nu_fema >= 0)) {
$sql = "INSERT INTO ".$pref_tabl."anim_anim ";
$sql .= "(id_linh, id_solc, nu_idad, vl_peso, nu_mach, nu_fema, ";
$sql .= "dt_utlz, de_obsr, dt_cads, id_cads, id_orig) ";
$sql .= "VALUES ('$linhass[id_linh]', '$s_id_dest', '$linhass[nu_idad]', '$linhass[vl_peso]', '$s_nu_mach', '$s_nu_fema', ";
$sql .= "'$linhass[dt_utlz]', '', '$dt_atua', $linhau[id_user], '$s_id_solc')";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=ST";
$sqln = "SELECT MAX(id_anim) as id_anim ";
$sqln .= "FROM ".$pref_tabl."anim_anim";
$resn = mysqli_query($conn, $sqln);
if (mysqli_num_rows($resn) > 0) {
$linhan = mysqli_fetch_array($resn);
}
// inserir anim_parc do destino... verificar se vai confirmar recebimento
$sqlr = "INSERT INTO ".$pref_tabl."anim_parc ";
$sqlr .= "(id_anim, dt_prev, dt_entg, nu_mach, nu_fema, nu_parc, dt_cads, id_cads, fl_tipo, id_dest) ";
$sqlr .= "VALUES ('$linhan[id_anim]', '$dt_atua', '$dt_atua', '$s_nu_mach', '$s_nu_fema', '1', '$dt_atua', $linhau[id_user], 'R', '$s_id_solc')";
#echo $sqlr;
$resr = mysqli_query($conn, $sqlr);
$nu_parc = 0;
$sqlc = "SELECT MAX(nu_parc) as nu_parc ";
$sqlc .= "FROM ".$pref_tabl."anim_parc ";
$sqlc .= "WHERE a.id_anim = '$s_id_anim' ";
#echo $sqlc.'<br>';
$resc = mysqli_query($conn, $sqlc);
if (mysqli_num_rows($resc) > 0) {
$linhac = mysqli_fetch_array($resc);
$nu_parc = $linhac[nu_parc];
}
$nu_parc++;
// insere a transferencia na origem
$sqlt = "INSERT INTO ".$pref_tabl."anim_parc ";
$sqlt .= "(id_anim, dt_prev, dt_entg, nu_mach, nu_fema, nu_parc, dt_cads, id_cads, fl_tipo, id_dest) ";
$sqlt .= "VALUES ('$s_id_anim', '$dt_atua', '$dt_atua', '$s_nu_mach', '$s_nu_fema', '$nu_parc', '$dt_atua', $linhau[id_user], 'T', '$s_id_dest')";
#echo $sqlt;
$rest = mysqli_query($conn, $sqlt);
// envia e-mail
$mens = "Uma parcela da SA nº $s_id_solc foi transferida.";
$titl = "Solicitação de Animais - Transferência de Animais - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=alt_anim_tran&certo=N";
}
} else {
$onde = "index1.php?pg=alt_anim_tran&certo=NS";
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=NO";
}
} else {
$onde = "index1.php?pg=alt_anim_tran&certo=N";
}
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=NC";
}
break;
case "ins_finl":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '5', "; // Finalizado
$sql .= "id_altr = '$linhau[id_user]', ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SP";
// envia e-mail
$mens = "A SA nº $s_id_solc teve sua situação alterada para Finalizada.";
$titl = "Solicitação de Animais - Finalizada - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "ins_aprv":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_de_recs = protecao($_POST[de_desc_aprv]);
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '10', "; // Aprovação do Biotério
$sql .= "de_obsr_aprv = '$s_de_recs', ";
$sql .= "id_aprv = $linhau[id_user], ";
$sql .= "dt_aprv = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php";
// envia e-mail
$mens = "Informamos que a SA $s_id_solc foi aprovada pela Direção.";
$titl = "Solicitação de Animais - Aprovada pela Direção - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "ins_biot":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_de_recs = protecao($_POST[de_desc_aprv]);
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '3', "; // Em produção
$sql .= "de_obsr_biot = '$s_de_recs', ";
$sql .= "id_biot = $linhau[id_user], ";
$sql .= "dt_biot = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SB";
// envia e-mail
$mens = "Informamos que a SA $s_id_solc foi aprovada pelo Biotério.";
$titl = "Solicitação de Animais - Aprovada pelo Biotério - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "ins_rejt":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_de_recs = protecao($_POST[de_desc_aprv]);
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '1', "; // Em Elaboração
$sql .= "de_obsr_aprv = '$s_de_recs', ";
$sql .= "id_aprv = $linhau[id_user], ";
$sql .= "dt_aprv = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php";
// envia e-mail
$mens = "Informamos que a SA $s_id_solc foi recusada e esta na situação Em Elaboração.";
$titl = "Solicitação de Animais - Recusada - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "alt_sitc":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_id_sitc = protecao($_POST[id_sitc],'inteiro');
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET id_sitc = '$s_id_sitc', ";
$sql .= "id_altr = $linhau[id_user], ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=ver_anim_solc&certo=SP";
$sqlst = "SELECT id_sitc, de_sitc ";
$sqlst .= "FROM ".$pref_tabl."anim_sitc ";
$sqlst .= "WHERE id_sitc = '$s_id_sitc' ";
$sqlst .= "LIMIT 1 ";
$resst = mysqli_query($conn, $sqlst);
if (mysqli_num_rows($resst) > 0) {
$linhast = mysqli_fetch_array($resst);
}
// envia e-mail
$mens = "Informamos que a SA $s_id_solc esta na situação $linhast[de_sitc].";
$titl = "Solicitação de Animais - $linhast[de_sitc] - CIEnP";
env_mail($s_id_solc,$mens,$titl,'C');
} else {
$onde = "index1.php?pg=ver_anim_solc&certo=N";
}
break;
case "alt_plan":
require "$this->include_dir/conecta.php";
$s_id_solc = protecao($_POST[id_solc],'inteiro');
$s_de_tabl = $_POST[de_link_plan];
$sql = "UPDATE ".$pref_tabl."anim_solc ";
$sql .= "SET de_link_plan = '$s_de_tabl', ";
$sql .= "id_altr = $linhau[id_user], ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_solc = '$s_id_solc' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=ST";
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
case "alt_anim_qtde":
require "$this->include_dir/conecta.php";
$s_id_anim = protecao($_POST[id_anim],'inteiro');
$s_nu_idad = protecao($_POST[nu_idad]);
$s_vl_peso = protecao($_POST[vl_peso]);
$s_nu_mach = protecao($_POST[nu_mach]);
$s_nu_fema = protecao($_POST[nu_fema]);
$sql = "UPDATE ".$pref_tabl."anim_anim ";
$sql .= "SET nu_idad = '$s_nu_idad', ";
$sql .= "vl_peso = '$s_vl_peso', ";
$sql .= "nu_mach = '$s_nu_mach', ";
$sql .= "nu_fema = '$s_nu_fema', ";
$sql .= "id_altr = $linhau[id_user], ";
$sql .= "dt_altr = '$dt_atua' ";
$sql .= "WHERE id_anim = '$s_id_anim' ";
$sql .= "LIMIT 1 ";
#echo $sql;
$res = mysqli_query($conn, $sql);
if ($res) {
$onde = "index1.php?pg=alt_anim_anim&certo=ST";
} else {
$onde = "index1.php?pg=alt_anim_anim&certo=N";
}
break;
}
?>
<form name="retorna" method="post" action="">
<input type="hidden" name="id_solc" id="id_solc" value="<?=$_POST[id_solc]?>">
<input type="hidden" name="id_anim" id="id_anim" value="<?=$_POST[id_anim]?>">
<input type="hidden" name="v_id_colb" id="v_id_colb" value="<?=$_POST[v_id_colb]?>">
<input type="hidden" name="v_id_linh" id="v_id_linh" value="<?=$_POST[v_id_linh]?>">
<input type="hidden" name="v_fl_tipo" id="v_fl_tipo" value="<?=$_POST[v_fl_tipo]?>">
<input type="hidden" name="v_id_estd" id="v_id_estd" value="<?=$_POST[v_id_estd]?>">
<input type="hidden" name="v_nu_ceua" id="v_nu_ceua" value="<?=$_POST[v_nu_ceua]?>">
<input type="hidden" name="v_dt_inic" id="v_dt_inic" value="<?=$_POST[v_dt_inic]?>">
<input type="hidden" name="v_dt_finl" id="v_dt_finl" value="<?=$_POST[v_dt_finl]?>">
<input name="passa" type="hidden" id="passa" value="yes">
</form>
<?php
echo "<SCRIPT LANGUAGE=javascript> \n";
echo "document.retorna.action = '$onde'; \n";
echo "document.retorna.submit(); \n";
echo "</script>";
?>
Back to Directory
File Manager