inverte uma consulta potencialmente pesada de forma que deve otimizar a emissão de senhas

git-svn-id: http://svn.softwarepublico.gov.br/svn/sistemadeatendimento/sistema/trunk@40 63db2ce5-8a6c-0410-abb9-a418dd412890

inverte uma consulta potencialmente pesada de forma que deve otimizar a emissão de senhas
git-svn-id: http://svn.softwarepublico.gov.br/svn/sistemadeatendimento/sistema/trunk@40 63db2ce5-8a6c-0410-abb9-a418dd412890
daniel@ruoso.com
1 parent 174569b6
Showing 1 changed file with 7 additions and 4 deletions Show diff stats
Fila-Servico/lib/Fila/Servico/Controller/WS/Gestao/Senha.pm
@@ -191,10 +191,13 @@ sub solicitar_senha :WSDLPort(&#39;GestaoSenha&#39;) :DBICTransaction(&#39;DB&#39;) :MI {
         }
  
         # verificar se a senha está disponível.
-        my $verificar = $c->stash->{local}->atendimentos_atuais->search
-          ({ 'senha.id_categoria' => $id_categoria,
-             'senha.codigo' => $codigo_senha_atual },
-           { join => 'senha' });
+        my $verificar = $c->model('DB::Senha')->search
+          ({ 'me.id_categoria' => $id_categoria,
+             'me.codigo' => $codigo_senha_atual,
+             'atendimentos.vt_ini' => { '>=' => $now },
+             'atendimentos.vt_fim' => { '<'  => $now },
+             'atendimentos.id_local' => $c->stash->{local}->id_local },
+           { join => 'atendimentos' });
         if ($verificar->first) {
             goto CHECARSENHA;
         }
...	...	@@ -191,10 +191,13 @@ sub solicitar_senha :WSDLPort('GestaoSenha') :DBICTransaction('DB') :MI {
191	191	}
192	192
193	193	# verificar se a senha está disponível.
194		- my $verificar = $c->stash->{local}->atendimentos_atuais->search
195		- ({ 'senha.id_categoria' => $id_categoria,
196		- 'senha.codigo' => $codigo_senha_atual },
197		- { join => 'senha' });
	194	+ my $verificar = $c->model('DB::Senha')->search
	195	+ ({ 'me.id_categoria' => $id_categoria,
	196	+ 'me.codigo' => $codigo_senha_atual,
	197	+ 'atendimentos.vt_ini' => { '>=' => $now },
	198	+ 'atendimentos.vt_fim' => { '<' => $now },
	199	+ 'atendimentos.id_local' => $c->stash->{local}->id_local },
	200	+ { join => 'atendimentos' });
198	201	if ($verificar->first) {
199	202	goto CHECARSENHA;
200	203	}
...	...