[firebase-br] Procedure entra em loop

[Marcelo Papuska]

Ola, tenta assim:

     While ( cWhile = 'S' ) Do Begin
        nParc = tControle + 1;
        cContr = SUBSTRING((10000000+nParc) FROM 2 FOR 7);
        select count(1) From pagarreceber Where Empresa =
        :CodEmpresa and Tipo = 'R' and Controle = :cContr into :Contr;
        if ( Contr = 0 ) then Begin
           tControle = tControle+1;
           cWhile = 'M';
        end
        Else begin
           tControle = tControle +1;
           cWhile = 'S';
        End
     End
Nelson

On Jan 11, 2008 6:33 AM, Nelson <nelson.tln em terra.com.br> wrote:

> 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
>