Consegui obrigado.
Para uso dos demais:
CREATE TRIGGER TBQLCONTROLE_AI FOR TBQLCONTROLE ACTIVE
AFTER INSERT POSITION 0
AS
declare variable i integer;
declare variable iFuros integer;
BEGIN
i = 1;
iFuros = new.furos + 1;
While (i < iFuros) do
begin
insert into tbqlcontroledimensional
(ID_CONTROLE, FURO, USR_CAD, DT_CAD)
values
(NEW.ID, :i, NEW.USR_CAD, NEW.DT_CAD);
i = i + 1;
end
END
Levi
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Danilo
Enviada em: segunda-feira, 5 de setembro de 2005 11:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: For ou While dentro de uma procedure firebird
Boa Tarde,
faz assim
CONTA = 0; --VARIAVEL CONTA INTEIRO
FIM = 100; --VARIAVEL FIM INTEIRO
while (CONTA <= FIM) do
begin
-- cola aki seu codigo
CONTA = CONTA +1;
end
abraços
Danilo
*********** REPLY SEPARATOR ***********
On 5/9/2005 at 10:53 Levi Ribeiro de Freitas wrote:
Silveira,
Obrigado pela ajuda.
Mas vê se eu posso fazer de outra forma.
Cada vez que eu inserir um cadastro novo, este cadastro irá conter um campo
que vai me dizer quantos itens preciso inserir na tabela filha.
Acredito que não consiguirei usar uma estrutura baseada no seu exemplo.
Levi
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de crsilveira
Enviada em: segunda-feira, 5 de setembro de 2005 10:41
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: For ou While dentro de uma procedure firebird
FOR SELECT CAMPO1 FROM TABELA WHERE XXX = :PARAM
INTO :CAMPO1a
DO
BEGIN
--Insira aqui o q vc quer executar
END;
--- Em delphi-br@yahoogrupos.com.br, "Levi Ribeiro de Freitas"
<[EMAIL PROTECTED]> escreveu
> Pessoal,
>
> Alguém tem idéia de como posso fazer um while ou for dentro de uma
procedure
> firebird?
> Preciso inserir um lote de registros cada vez que ela for executada.
> Obrigado
>
> Atenciosamente,
>
> Levi Ribeiro de Freitas
> Programador de Computadores
> <mailto:[EMAIL PROTECTED]>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fdrc5uu/M=365837.7000707.7924794.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1125934877/A=2950750/R=2/id=noscript/SIG=10tif
t5qr/*http://br.movies.yahoo.com/>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new Array();
lrec_URL[1]="http://br.rd.yahoo.com/SIG=12f55gpkm/M=365837.7000707.7924794.2
369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1125936020/A=2950750/R=0/id=flashu
rl/SIG=10tift5qr/*http://br.movies.yahoo.com/";; var
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0901_lrec_cinema
_calendario.swf?clickTAG=javascript:LRECopenWindow(1)"; var
lrec_altURL="http://br.rd.yahoo.com/SIG=12f55gpkm/M=365837.7000707.7924794.2
369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1125936020/A=2950750/R=1/id=altimg
/SIG=10tift5qr/*http://br.movies.yahoo.com/";; var
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_ca
lendario.gif"; var lrec_width=300;var lrec_height=250;
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12f2jvi3a/M=365837.7000707.7924794.2369893/D=brc
lubs/S=2137111264:HM/Y=BR/EXP=1125981723/A=2950750/R=2/id=noscript/SIG=10tif
t5qr/*http://br.movies.yahoo.com/>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
