ActiveDelphi

WEPIRA

Bom dia

Fiz o comando no timer para importar registro de uma tabela para outra, mas quando ele chega no ultimo registro da primeira tabela ele continua repetindo a importação do ultimo registro.

Como faço para parar quando chegar no ultimo registro???

Netrunner · Enviada: Qua Jul 24, 2013 9:26 am Assunto:

Timer.Enabled := False; na ultima linha

Caduzera · Enviada: Qua Jul 24, 2013 9:31 am Assunto:

Amigo, quando você inicia o procedimento você coloca o Timer como Enabled = False ??

WEPIRA · Enviada: Qua Jul 24, 2013 10:00 am Assunto: importar registro

Estou usando o código no timer para importar, so que quando chega no ultimo registro ele não para e continua repetindo o ultimo registro veja o código abaixo

adoquery3.Open;//abrindo tabela de exportação

adoquery3.Insert; // colocndo em modo de inserção tabela expprtaçãoi
adoquery3.FieldByName('descricao').AsString:=adoquery5.fieldbyname('descricao').AsString; //transferindo o nome do dbgrid para outro
adoquery3.FieldByName('quantidade').AsString :=edit7.Text;

adoquery3.Post;
adoquery6.Next;
end;
timer6.Enabled := false;

Caduzera · Enviada: Qua Jul 24, 2013 10:06 am Assunto:

O Timer.Enabled := False fica no inicio da rotina.

mhgsimoes · Enviada: Qua Jul 24, 2013 10:15 am Assunto:

Amigo, não entendi muito bem pq está utilizando o timer. É só para importar o próximo registro?

WEPIRA · Enviada: Qua Jul 24, 2013 10:20 am Assunto: importar

não deu certo, ele manda o primeiro e depois para o que pode esta errado??

begin
timer6.Enabled := false;
adoquery3.Open;//abrindo tabela de exportação

adoquery3.Insert; // colocndo em modo de inserção tabela expprtaçãoi
adoquery3.FieldByName('descricao').AsString:=adoquery5.fieldbyname('descricao').AsString; //transferindo o nome do dbgrid para outro
adoquery3.FieldByName('quantidade').AsString :=edit7.Text;

adoquery3.Post;

end;

natanbh1 · Enviada: Qua Jul 24, 2013 10:39 am Assunto: Re: importar

mhgsimoes · Enviada: Qua Jul 24, 2013 10:41 am Assunto:

Se entendi bem o que quer, não precisaria nem de timer. Bastaria fazer um "loop".

mhgsimoes · Enviada: Qua Jul 24, 2013 10:43 am Assunto:

natanbh1, postamos a mesma solução.. rs

WEPIRA · Enviada: Qua Jul 24, 2013 11:04 am Assunto: estou quase

vou explicar melhor para entederem o que quero fazer

tenho uma tabela produto com quantidade saida e descrição e outra tabela que tem quantidade de entrada.

pego da primeira tabela, a descrição e a subitraçao da quantidade que esta na edit e jogo na tabela de importação, importando o primeiro registro depois ele da o next e envia também o próximo registro com a descrição e a subitraçã da edit

um cliente meu a muito tempo ele adiquiriu um programa em VB com banco access e o estoque dele não dar baixa automático envia quantidade entrada em uma tabela e saída em outra,
ele me pediu para tentar fazer um relatório com o saldo de estoque, por isto estou enviado a descrição, quantidade de entrada e saldo da edit para outra tabela para que eu possa faze o relatório.

WEPIRA · Enviada: Qua Jul 24, 2013 11:22 am Assunto: resolvido

gente obrigado pelo apoio, juntando todas as dicas que me passaram consegui chegar onde queria, muito obrigado..

Valeu.