Re: [firebase-br] DBSEEK() do clipper. Como faço no firebird??

[marcelo luiz stefaniak - teflamar]

zquery.sql.text:='SELECT SUM(VALOR) AS TOTAL FROM TABELA WHERE CODIGO=:CODIGO';
zquery1.parambyname('codigo').asstring:=copy(inttostr(strtoint(edcodigo.text)+1000000)),2,6);
zquery1.open;
if zquery1.isempty then cadastrado:='NAO' else cadastrado:='SIM';
msoma:=ibquery1.fieldbyname('total').asfloat;

----- Original Message ----- 
From: "Juliano Van Dal" <julianovandal em yahoo.com.br>
To: "Lista Firebase (Cantu)" <lista em firebase.com.br>
Sent: Monday, April 24, 2006 3:39 PM
Subject: [firebase-br] DBSEEK() do clipper. Como faço no firebird??


Ola, 
  Venho da programação top-down (do bom e saudoso clipper), e quero saber como faço uma pesquisa do tipo:
   
        SELE 16 
      SET ORDER TO 01
      DBSEEK( STRZERO( MCODIGO,6 ) )
      IF FOUND()
         DO WHILE ! EOF() .AND. CODIGO = STRZERO( MCODIGO,6 )
            CADASTRADO:="SIM"
              MSOMA:=MSOMA+VALOR
            SKIP
         ENDDO
         ELSEIF
               CADASTRADO:="NAO"
        ENDIF
   
   
  utilizando componentes de ligação ZEUS
   
  Grato, aguardo a compreensão...
   
  Juliano
   


---------------------------------
 Yahoo! Search
 Imposto de Renda 2006: o prazo está acabando. Faça já a sua declaração no site da Receita Federal.
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.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


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.4.5/322 - Release Date: 22/04/2006