|
\n";
## AQUI O FORM
my $disable = "";
my $disable2 = "";
if ($fromweb{id_valor} eq undef) {
if (( substr $vardb{ACES} , 94,1) eq '1' ) {
# $saida .= "" . loc("Entre com os Dados do Novo Percurso",) . "\n";
$disable = "ENABLED";
$disable2 = "ENABLED";
}
}
elsif ($fromweb{id_valor} ne undef) {
if (( substr $vardb{ACES} , 94,1) eq '1' ) {
$saida .= "" . loc("ATUALIZE OS DADOS DO PERCURSO",) . "
\n";
$disable = "ENABLED";
$disable2 = "DISABLED";
# $fromweb{data_ultima_atual} = &Converte_Data_Ifem_Barra($fromweb{data_ultima_atual});
}
else {
$saida .= "" . loc("EDIÇÃO DE DADOS NÃO PERMITIDA",) . "
\n";
$disable = "DISABLED";
$disable2 = "DISABLED";
}
}
if ($fromweb{status} eq "A"){
$disable = "ENABLED";
$saida .= "" . loc("ATUALIZE OS DADOS DO PERCURSO",) . "
\n";
}
elsif ($fromweb{status} eq "D"){
$disable = "DISABLED";
$saida .= "" . loc("EDIÇÃO DE DADOS NÃO PERMITIDA",) . "
\n";
}
# $saida .= "\n";
#################################
# $saida .= " | ";
$saida .= "\n";
$saida .= "\n";
## $saida .= "\n";
## $saida .= "\n";
## $saida .= "\n";
&passaHidden();
$saida .= "\n";
my $lista;
$saida .= "";
$saida .= " | " . loc("Tipo de Transporte",) . " | \n";
$saida .= " \n";
$saida .= " |
";
my $teste = $lista->[1];
# printError(" tipo percurso:$teste ");
$saida .= "";
$saida .= "| " . loc("Descrição",) . " | ";
$saida .= " | ";
$saida .= "
";
$saida .= "";
$saida .= "| " . loc("Valor/Km",) . " | ";
$saida .= " | ";
$saida .= "
";
my ($dia, $mes, $ano, $hora, $min, $sec)= (localtime(time))[3,4,5,2,1,0];
$dia = ($dia < 10 ? "0".$dia : $dia);
$mes = (($mes+1) < 10 ? "0".($mes+1) : $mes);
$ano = ($ano+1900);
$saida .= "
\n";
$saida .= "
\n";
#####################################
#####################################
}
##########################################
sub desenha_StatusCadastrado() {
$saida .= "
$mens2
\n";
$saida .= "
\n";
}
#####################################
#####################################
###### TRATAMENTO DE ERROS #######
#####################################
#####################################
sub trata_erros_ambulancia {
my $retorno = 0;
if (($mens .= $erros[0]($fromweb{cgc}, loc("CNPJ", ))) ne "") {$retorno = 1;};
if (($mens .= $erros[0]($fromweb{empresa}, loc("Empresa", ))) ne "") {$retorno = 1;};
# if (($mens .= $erros[0]($fromweb{regiao}, loc("Região", ))) ne "") {$retorno = 1;};
return $retorno;
}
sub trataErrosDelete() {
my $retorno = 0;
if ($fromweb{id_valor} eq "") {
if (($mens .= $erros[0]($fromweb{id}, loc("Código", ))) ne "") {$retorno = 1;};
}
return $retorno;
}
## trata_erros_valores
sub trata_erros_valores {
my $retorno = 0;
=pod
if ($fromweb{id_valor} eq undef) {
if (($mens .= $erros[0]($fromweb{tipo_percurso}, loc("Tipo Transporte", ))) ne "") {$retorno = 1;};
}
if (($mens .= $erros[0]($fromweb{descricao}, loc("Descrição", ))) ne "") {$retorno = 1;};
if (($mens .= $erros[0]($fromweb{valor_km}, loc("Valor/km", ))) ne "") {$retorno = 1;};
=cut
return $retorno;
}
#################################################
## Realizacao das consultas ao banco de dados ##
#################################################
sub SQL_MontaLista_AMB {
my $consulta = "SELECT id, cgc, unimed, empresa, contato, tel, endereco, bairro, cidade,
uf, cep, inscricao, valor_km, data_utilizacao, uti_neonatal, vigencia_contrato, celular_contato, complemento, contrato
FROM am_cad_ambulancias
WHERE id is not null AND status <> 'D'";
if ($fromweb{valor_cgc} ne ""){
$consulta .= " AND cgc = \"$fromweb{valor_cgc}\"";
}
if ($fromweb{valor_nome} ne ""){
$consulta .= " AND empresa like \"%$fromweb{valor_nome}%\"";
}
$consulta .= " ORDER BY cgc; ";
my $sth1 = $dbh->prepare($consulta);
$sth1->execute();
if (my $erro=$sth1->errstr) { $sth1->finish; $dbh->disconnect; printError $erro; }
$listaAMB = $sth1->fetchall_arrayref();
$sth1->finish;
}
sub SQL_SelectDadosAMB{
my $sth7 = $dbh->prepare("SELECT unimed, empresa, cgc, inscricao, contato, tel, endereco, bairro, cidade, uf, cep, data_utilizacao, regiao, uti_neonatal, vigencia_contrato, celular_contato, complemento, contrato
FROM am_cad_ambulancias WHERE id = ?;");
$sth7->execute($_[0]);
if (my $erro=$sth7->errstr) { $sth7->finish; $dbh->disconnect; printError $erro; }
my $apontador = $sth7->fetch();
$sth7->finish;
if ($apontador eq undef) { return undef }
return (@$apontador);
}
sub SQL_SelectDados_NovaAMB() {
my $sth7 = $dbh->prepare("SELECT id, unimed, empresa, cgc, inscricao, contato, tel, endereco, bairro, cidade, uf, cep, data_utilizacao, regiao, uti_neonatal, vigencia_contrato, celular_contato, complemento, contrato
FROM am_cad_ambulancias WHERE cgc = ?;");
$sth7->execute($_[0]);
if (my $erro=$sth7->errstr) { $sth7->finish; $dbh->disconnect; printError $erro; }
my $apontador = $sth7->fetch();
$sth7->finish;
if ($apontador eq undef) { return undef }
return (@$apontador);
}
sub SQL_VerificaExisteAMB{
my $sth7 = $dbh->prepare("SELECT count(*) FROM am_cad_ambulancias WHERE cgc = ?;");
$sth7->execute($_[0]);
if (my $erro=$sth7->errstr) { $sth7->finish; $dbh->disconnect; printError $erro; }
my $apontador = $sth7->fetch();
$sth7->finish;
if ($apontador eq undef) { return undef }
return (@$apontador);
}
sub SQL_CadastraAMB {
my ($unimed, $empresa, $cgc, $inscricao, $contato, $tel, $endereco, $bairro, $cidade, $uf, $cep, $data_utiliza, $regiao, $uti_neonatal, $vigencia_contrato, $celular_contato, $complemento, $contrato) = @_;
## printError("DADOS RECEBIDOS: $unimed, $empresa, $cgc, $inscricao, $contato, $tel, $endereco, $bairro, $cidade, $uf, $cep, $data_utiliza, $regiao, $uti_neonatal, $vigencia_contrato, $celular_contato, $complemento, $contrato ");
my $sth3 = $dbh->prepare("INSERT INTO am_cad_ambulancias (unimed, empresa, cgc, inscricao, contato,
tel, endereco, bairro, cidade, uf, cep, data_utilizacao, regiao,
uti_neonatal, vigencia_contrato, celular_contato, complemento, contrato, status)
VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?); " );
$sth3->execute($unimed, uc($empresa), $cgc, $inscricao, $contato, $tel, $endereco, $bairro, $cidade, $uf, $cep, $data_utiliza, $regiao, $uti_neonatal, $vigencia_contrato, $celular_contato, $complemento, $contrato, 'A');
if (my $erro=$sth3->errstr) { $sth3->finish; $dbh->disconnect; printError $erro; }
$sth3->finish;
my $id_ambulancia = $dbh->last_insert_id(undef, undef, "am_cad_ambulancias", undef);
my $teste = &escreveLog($idoper_h, "Tabelas/Ambulancias", "Manutenção", "Inclusão", "Inclusão de Dados das Ambulancias Tipo: $_[0] Código: $_[1]");
return $id_ambulancia;
}
sub SQL_UpdateAMB {
my $sth3 = $dbh->prepare('UPDATE am_cad_ambulancias SET cgc=?, unimed=?, empresa=?, contato=?,
tel=?,celular_contato=?, endereco=?, bairro=?, cidade=?, uf=?, cep=?, inscricao=?,
valor_km=?, data_utilizacao=?, regiao=?, uti_neonatal=?, vigencia_contrato=?, celular_contato=?, complemento=?, contrato=?
WHERE id = ?');
$sth3->execute($_[0], $_[1], uc($_[2]), $_[3], $_[4], $_[5], $_[6], $_[7], $_[8], $_[9], $_[10], $_[11], $_[12], $_[13], $_[14], $_[15], $_[16], $_[17], $_[18], $_[19], $_[20]);
if (my $erro=$sth3->errstr) { $sth3->finish; $dbh->disconnect; printError $erro; }
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Ambulancias", "Manutenção", "Alteração", "Alteração de Dados das Ambulancias Id: $_[6] Descrição: $_[0]");
}
sub SQL_DeleteAMB {
my $sth3 = $dbh->prepare("UPDATE am_cad_ambulancias SET status='D' WHERE id = ?");
$sth3->execute($_[0]);
if (my $erro=$sth3->errstr ) {$sth3->finish; $dbh->disconnect; printError $erro;}
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Ambulancias", "Manutenção", "Exclusão", "Exclusão de Dados das Ambulancias Id: $_[0] Código: $_[1]");
}
sub SQL_MontaLista_Valores {
my $consulta = "SELECT v.id, t.descricao, v.descricao, v.valor_por_km, v.status, v.cod_tipo
FROM am_tab_valores_amb as v
LEFT JOIN am_tab_tipo_transp_amb as t ON (t.id_tipo = v.cod_tipo)
WHERE cod_ambulancia = $_[0] "; ## AND v.status ='A'
# if ($fromweb{valor_desc} ne ""){
# $consulta .= " AND descricao like \"%$fromweb{valor_desc}%\"";
# }
$consulta .= " ORDER BY cod_ambulancia; ";
my $sth1 = $dbh->prepare($consulta);
$sth1->execute();
if (my $erro=$sth1->errstr) { $sth1->finish; $dbh->disconnect; printError $erro; }
$listaValores = $sth1->fetchall_arrayref();
$sth1->finish;
}
sub SQL_SelectDadosValor{
my $sth7 = $dbh->prepare("SELECT v.id, v.descricao, v.valor_por_km, v.status, v.cod_tipo
FROM am_tab_valores_amb as v
LEFT JOIN am_tab_tipo_transp_amb as t ON (t.id_tipo = v.cod_tipo)
WHERE v.id = ?;");
$sth7->execute($_[0]);
if (my $erro=$sth7->errstr) { $sth7->finish; $dbh->disconnect; printError $erro; }
my $apontador = $sth7->fetch();
$sth7->finish;
if ($apontador eq undef) { return undef }
return (@$apontador);
}
sub SQL_Cadastra_Valor { # cod_tipo, descricao, valor_por_km, status, cod_ambulancia
my $sth3 = $dbh->prepare("INSERT INTO am_tab_valores_amb (cod_tipo, descricao, valor_por_km, status, cod_ambulancia)
VALUES (?, ?, ?, ?, ?); " );
$sth3->execute($_[0], $_[1], $_[2], $_[3], $_[4]);
if (my $erro=$sth3->errstr) { $sth3->finish; $dbh->disconnect; printError $erro; }
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Valores", "Manutenção", "Inclusão", "Inclusão de Dados de Percursos e Valores Descrição: $_[2]");
}
sub SQL_Update_Valor {
if ( $_[0] ne "" && $_[1] ne "" && $_[2] ne "" && $_[3] ne "" ) {
my $sth3 = $dbh->prepare("UPDATE am_tab_valores_amb SET cod_tipo=?, descricao=?, valor_por_km=?
WHERE id = ?;");
$sth3->execute($_[0], $_[1], $_[2], $_[3]);
if (my $erro=$sth3->errstr) { $sth3->finish; $dbh->disconnect; printError $erro; }
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Valores", "Manutenção", "Alteração", "Alteração de Dados do Valor Descrição: $_[1]");
$mens2 .= "Registro atualizado com sucesso!";
}
else {
printError("NÃO TEM DADOS: tipo_percurso: $_[0], descricao: $_[1], valor_km: $_[2], id_valor: $_[3] ");
## $mens2 .= "Erro na transferência dos Dados, Registro Não atualizado!";
}
}
sub SQL_Delete_Valor {
my $sth3 = $dbh->prepare("UPDATE am_tab_valores_amb SET status ='D' WHERE id=?; ");
$sth3->execute($_[0]);
if (my $erro=$sth3->errstr ) {$sth3->finish; $dbh->disconnect; printError $erro;}
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Valores", "Manutenção", "Exclusão", "Exclusão de Dados do Valor Id: $_[0] Descricao: $_[1]");
}
sub SQL_Reativa_Valor {
printError(" Id. do Valor: $_[0]");
my $sth3 = $dbh->prepare("UPDATE am_tab_valores_amb SET status ='A' WHERE id=? AND status ='D';");
$sth3->execute($_[0]);
if (my $erro=$sth3->errstr ) {$sth3->finish; $dbh->disconnect; printError $erro;}
$sth3->finish;
my $teste = &escreveLog($idoper_h, "Tabelas/Valores", "Manutenção", "Reativação", "Reativação de Dados do Valor Código: $_[1]");
}
sub SQL_Select_am_tab_regioes {
my $sth1 = $dbh->prepare("SELECT id_regiao, descricao
FROM am_tab_regioes
WHERE id_regiao !=0
AND status ='A'
GROUP BY descricao;");
$sth1->execute();
if (my $erro=$sth1->errstr ) {$sth1->finish; $dbh->disconnect; printError $erro;}
my $lista = $sth1->fetchall_arrayref();
return $lista;
}
sub SQL_Select_Tipo_Transporte {
my $sth1 = $dbh->prepare("SELECT id_tipo, descricao
FROM am_tab_tipo_transp_amb
WHERE id_tipo !=0
AND status ='A'
GROUP BY descricao;");
$sth1->execute();
if (my $erro=$sth1->errstr ) {$sth1->finish; $dbh->disconnect; printError $erro;}
my $lista = $sth1->fetchall_arrayref();
return $lista;
}
#############################################################
#############################################################
################## JAVA SCRIPT ##############################
#############################################################
#############################################################
sub scripts() {
$javsc .= "\n";
$javsc .= "\n";
$javsc .= "\n";
}
##################################
##################################
&achaPassLocal();
&consultaBanco();
&scripts();
my $sth = $dbh->disconnect;
&htm_p1 (loc("MANUTENÇÃO NA TABELA DE AMBULÂNCIAS", ));
#################################################
if (( substr $vardb{ACES} , 94,1) eq '0' ) {
&quadp_f();
&htm_p2();
quad_i("ACESSO NÃO AUTORIZADO!!");
exit
}
#################################################
&quadp_i (loc("PESQUISA AMBULÂNCIAS", ));
&desenhaEsquerda();
print $saida;
$saida = "";
&quadp_f();
&htm_p2();
if ($mens ne '') {
quad_i(loc("Mensagens", ) . "");
print "$mens
\n";
# &desenha();
}
if (( substr $vardb{ACES} , 94,1) eq '1' ) {
&quad_i("MANUTENÇÃO NA TABELA DE AMBULÂNCIAS");
&desenha();
print $saida;
}
&quad_f();
&htm_p3();
__END__
xxx
sub desenhaTelaCadastro_Valores {
## printError(" $fromweb{id_ambulancia}, $fromweb{empresa}");
my $disable = "";
my $disable2 = "";
if ($fromweb{id_valor} eq undef) {
if (( substr $vardb{ACES} , 94,1) eq '1' ) {
$saida .= "" . loc("Entre com os Dados do Novo Valor",) . "\n";
$disable = "ENABLED";
$disable2 = "ENABLED";
}
}
elsif ($fromweb{id_valor} ne undef) {
if (( substr $vardb{ACES} , 94,1) eq '1' ) {
$saida .= "" . loc("Atualize os Dados do Valor",) . "
\n";
$disable = "ENABLED";
$disable2 = "DISABLED";
# $fromweb{data_ultima_atual} = &Converte_Data_Ifem_Barra($fromweb{data_ultima_atual});
}
else {
$saida .= "" . loc("EDIÇÃO DE DADOS NÃO PERMITIDA",) . "
\n";
$disable = "DISABLED";
$disable2 = "DISABLED";
}
}
if ($fromweb{status} eq "A"){
$disable = "ENABLED";
# $saida .= "" . loc("ATUALIZE OS DADOS",) . "
\n";
}
elsif ($fromweb{status} eq "D"){
$disable = "DISABLED";
$saida .= "" . loc("EDIÇÃO DE DADOS NÃO PERMITIDA",) . "
\n";
}
#################################
$saida .= "";
}
elsif (( substr $vardb{ACES} , 94,1) eq '1' ) {
##-----------------------------
$saida .= " ". button(
-name=>'alterar_valor',
-id=>'alterar_valor',
-value=>loc('Gravar Alterações'),
-tabindex=>'3',
-disable=>'false',
-onClick=>'Submit_form_gravar()'
);
$saida .= " | \n";
$saida .= "\n";
$saida .= "\n";
$saida .= "\n";
$saida .= "\n";
# $saida .= "\n";
# $saida .= "\n";
# $saida .= "\n";
}
|