[firebase-br] Procedure entra em loop

[Paulo Sergio Xavier Soares]

Isso acontece por causa da própria lógica da rotina. Portanto, de duas uma:
ou a rotina não está de acordo com a lógica desejada e nesse caso é preciso
alterar a rotina, ou a lógica está errada e nesse caso é preciso revisar a
lógica.



2008/1/11, Nelson <nelson.tln em terra.com.br>:
>
> Pessoal, estou com um problema em uma procedure.
> Qdo a rotina chega ao While, se o select retornar vazio a rotina entra
> em loop e não sai do While.
> Alguem sabe como resolver isso, se exite alguma função tipo "eof" (para
> quem programou em Clipper, hehe) para eu para a rotina?
>
>
>       While ( cWhile = 'S' ) Do Begin
>          nParc = tControle + 1;
>          cContr = SUBSTRING((10000000+nParc) FROM 2 FOR 7);
>          select Empresa, Controle From pagarreceber Where Empresa =
> :CodEmpresa and Tipo = 'R' and Controle = :cContr into :CodEmpr, :Contr;
>          if ( Contr is null ) then Begin
>             tControle = tControle+1;
>             cWhile = 'M';
>          end
>          Else begin
>             tControle = tControle +1;
>             cWhile = 'S';
>          End
>       End
>
> Nelson
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
___________________________________
*** Paulo Sergio Xavier Soares ***
Skype: Allumo, E-mail: paulosoares.br em gmail.com, MSN: paulosxs em yahoo.com.br
Consultor em Informatica
Matematica - UEM

Obs: Se o seu leitor de e-mail não estiver configurado para emitir resposta
automática do recebimento, favor responder essa mensagem para o confirmar.